Running ‘DEPRECATED.R’ [1s/1s]
  Running ‘cluster-missing-doFuture-pkg.R’ [1s/2s]
  Running ‘doRNG,dopar.R’ [3s/35s]
  Running ‘doRNG,dorng.R’ [6s/38s]
  Running ‘foreach,errors.R’ [7s/103s]
  Running ‘foreach,globals.R’ [8s/105s]
  Running ‘foreach,nested.R’ [6s/93s]
  Running ‘foreach,nested_dopar.R’ [18s/237s]
  Running ‘foreach.R’ [12s/51s]
  Running ‘future.BatchJobs.R’ [28s/33s]
  Running ‘future.batchtools.R’ [35s/38s]
  Running ‘options.R’ [3s/20s]
  Running ‘registerDoFuture.R’ [2s/32s]
  Running ‘times.R’ [3s/34s]
  Running ‘zzz_opt-in,NMF.R’ [0s/1s]
  Running ‘zzz_opt-in,TSP.R’ [0s/1s]
  Running ‘zzz_opt-in,caret.R’ [0s/1s]
  Running ‘zzz_opt-in,foreach.R’ [0s/1s]
  Running ‘zzz_opt-in,glmnet.R’ [0s/0s]
  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
  [13:37:22.247] plan(): Setting new future strategy stack:
  [13:37:22.248] List of future strategies:
  [13:37:22.248] 1. sequential:
  [13:37:22.248]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:22.248]    - tweaked: FALSE
  [13:37:22.248]    - call: future::plan(future::sequential)
  [13:37:22.250] plan(): nbrOfWorkers() = 1
  > 
  > strategies <- future:::supportedStrategies()
  > strategies <- setdiff(strategies, "multiprocess")
  > 
  > message("*** doFuture - nested w/ %:% ...")
  *** doFuture - nested w/ %:% ...
  > 
  > registerDoFuture()
  > 
  > for (strategy1 in strategies) {
  +   for (strategy2 in strategies) {
  +     message(sprintf("- plan(list('%s', '%s')) ...", strategy1, strategy2))
  +     plan(list(a = strategy1, b = strategy2))
  +     nested <- plan("list")
  + 
  +     as <- 1:2
  +     bs <- 3:1
  +     x <- foreach(a = as) %:% foreach(b = bs) %dopar% {
  +       list(a = a, b = b, plan_b = future::plan("list"), plan = future::plan("next"))
  +     }
  + 
  +     stopifnot(length(x) == length(as))
  +     for (aa in seq_along(as)) {
  +       x_aa <- x[[aa]]
  +       stopifnot(length(x_aa) == length(bs))
  +       a <- as[aa]
  +       for (bb in seq_along(bs)) {
  +         x_aa_bb <- x_aa[[bb]]
  +         b <- bs[bb]
  +         stopifnot(
  +           length(x_aa_bb) == 4L,
  +           all(names(x_aa_bb) == c("a", "b", "plan_b", "plan")),
  +           x_aa_bb$a == a,
  +           x_aa_bb$b == b,
  +           length(x_aa_bb$plan_b) == length(nested[-1]),
  +           inherits(x_aa_bb$plan_b[[1]], strategy2),
  +           inherits(x_aa_bb$plan, strategy2)
  +         )
  +       }
  +     }
  + 
  +     message(sprintf("- plan(list('%s', '%s')) ... DONE", strategy1, strategy2))
  +   }
  + }
  - plan(list('sequential', 'sequential')) ...
  [13:37:22.318] plan(): Setting new future strategy stack:
  [13:37:22.319] List of future strategies:
  [13:37:22.319] 1. sequential:
  [13:37:22.319]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:22.319]    - tweaked: FALSE
  [13:37:22.319]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:22.319] 2. sequential:
  [13:37:22.319]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:22.319]    - tweaked: FALSE
  [13:37:22.319]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:22.348] plan(): nbrOfWorkers() = 1
  [13:37:22.349] doFuture() ...
  [13:37:22.356] - dummy globals (as locals): [2] 'a', 'b'
  [13:37:22.357] - R expression:
  [13:37:22.357] {
  [13:37:22.357]     doFuture::registerDoFuture()
  [13:37:22.357]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:22.357]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:22.357]         {
  [13:37:22.357]             a <- NULL
  [13:37:22.357]             b <- NULL
  [13:37:22.357]         }
  [13:37:22.357]         ...future.env <- environment()
  [13:37:22.357]         local({
  [13:37:22.357]             for (name in names(...future.x_jj)) {
  [13:37:22.357]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:22.357]                   inherits = FALSE)
  [13:37:22.357]             }
  [13:37:22.357]         })
  [13:37:22.357]         tryCatch({
  [13:37:22.357]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:22.357]                 plan = future::plan("next"))
  [13:37:22.357]         }, error = identity)
  [13:37:22.357]     })
  [13:37:22.357] }
  [13:37:22.358] - identifying globals and packages ...
  [13:37:22.361] getGlobalsAndPackages() ...
  [13:37:22.361] Searching for globals...
  [13:37:22.395] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [13:37:22.396] Searching for globals ... DONE
  [13:37:22.396] Resolving globals: FALSE
  [13:37:22.398] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:37:22.399] - globals: [1] '...future.x_ii'
  [13:37:22.399] 
  [13:37:22.400] getGlobalsAndPackages() ... DONE
  [13:37:22.400] List of 1
  [13:37:22.400]  $ ...future.x_ii: NULL
  [13:37:22.400]  - attr(*, "where")=List of 1
  [13:37:22.400]   ..$ ...future.x_ii:<environment: 0x5647c7e69298> 
  [13:37:22.400]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:22.400]  - attr(*, "resolved")= logi FALSE
  [13:37:22.400]  - attr(*, "total_size")= num 0
  [13:37:22.412]   - R expression:
  [13:37:22.412] {
  [13:37:22.412]     doFuture::registerDoFuture()
  [13:37:22.412]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:22.412]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:22.412]         {
  [13:37:22.412]             a <- NULL
  [13:37:22.412]             b <- NULL
  [13:37:22.412]         }
  [13:37:22.412]         ...future.env <- environment()
  [13:37:22.412]         local({
  [13:37:22.412]             for (name in names(...future.x_jj)) {
  [13:37:22.412]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:22.412]                   inherits = FALSE)
  [13:37:22.412]             }
  [13:37:22.412]         })
  [13:37:22.412]         tryCatch({
  [13:37:22.412]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:22.412]                 plan = future::plan("next"))
  [13:37:22.412]         }, error = identity)
  [13:37:22.412]     })
  [13:37:22.412] }
  [13:37:22.413]   - globals: [1] '...future.x_ii'
  [13:37:22.413] List of 1
  [13:37:22.413]  $ ...future.x_ii: NULL
  [13:37:22.413]  - attr(*, "where")=List of 1
  [13:37:22.413]   ..$ ...future.x_ii:<environment: 0x5647c7e69298> 
  [13:37:22.413]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:22.413]  - attr(*, "resolved")= logi FALSE
  [13:37:22.413]  - attr(*, "total_size")= num 0
  [13:37:22.419]   - packages: [1] 'doFuture'
  [13:37:22.419] - identifying globals and packages ... DONE
  [13:37:22.420] Number of chunks: 1
  [13:37:22.421] Number of futures (= number of chunks): 1
  [13:37:22.422] Launching 1 futures (chunks) ...
  [13:37:22.422] Chunk #1 of 1 ...
  [13:37:22.423]  - Finding globals in 'args_list' chunk #1 ...
  [13:37:22.423] getGlobalsAndPackages() ...
  [13:37:22.423] Searching for globals...
  [13:37:22.425] 
  [13:37:22.425] Searching for globals ... DONE
  [13:37:22.425] - globals: [0] <none>
  [13:37:22.425] getGlobalsAndPackages() ... DONE
  [13:37:22.426] 
  [13:37:22.426] 
  [13:37:22.427]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:37:22.427] getGlobalsAndPackages() ...
  [13:37:22.428] - globals passed as-is: [1] '...future.x_ii'
  [13:37:22.428] Resolving globals: FALSE
  [13:37:22.430] The total size of the 1 globals is 672 bytes (672 bytes)
  [13:37:22.430] - globals: [1] '...future.x_ii'
  [13:37:22.431] 
  [13:37:22.431] getGlobalsAndPackages() ... DONE
  [13:37:22.434] Packages needed by the future expression (n = 1): 'doFuture'
  [13:37:22.435] Packages needed by future strategies (n = 1): 'future'
  [13:37:22.441] {
  [13:37:22.441]     {
  [13:37:22.441]         ...future.startTime <- base::Sys.time()
  [13:37:22.441]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:22.441]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:22.441]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [13:37:22.441]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:22.441]             future.resolve.recursive = NULL, width = 80L)
  [13:37:22.441]         {
  [13:37:22.441]             {
  [13:37:22.441]                 {
  [13:37:22.441]                   has_future <- base::requireNamespace("future", 
  [13:37:22.441]                     quietly = TRUE)
  [13:37:22.441]                   version <- if (has_future) 
  [13:37:22.441]                     utils::packageVersion("future")
  [13:37:22.441]                   else NULL
  [13:37:22.441]                   if (!has_future || version < "1.8.0") {
  [13:37:22.441]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:37:22.441]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:37:22.441]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:22.441]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:22.441]                         "release", "version")], collapse = " "), 
  [13:37:22.441]                       hostname = base::Sys.info()[["nodename"]])
  [13:37:22.441]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:22.441]                       info)
  [13:37:22.441]                     info <- base::paste(info, collapse = "; ")
  [13:37:22.441]                     if (!has_future) {
  [13:37:22.441]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:22.441]                         info)
  [13:37:22.441]                     }
  [13:37:22.441]                     else {
  [13:37:22.441]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:22.441]                         info, version)
  [13:37:22.441]                     }
  [13:37:22.441]                     base::stop(msg)
  [13:37:22.441]                   }
  [13:37:22.441]                 }
  [13:37:22.441]                 base::local({
  [13:37:22.441]                   for (pkg in c("doFuture", "future")) {
  [13:37:22.441]                     base::loadNamespace(pkg)
  [13:37:22.441]                     base::library(pkg, character.only = TRUE)
  [13:37:22.441]                   }
  [13:37:22.441]                 })
  [13:37:22.441]             }
  [13:37:22.441]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:22.441]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:22.441]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:37:22.441]                 label = NULL, ...) 
  [13:37:22.441]             {
  [13:37:22.441]                 if (substitute) 
  [13:37:22.441]                   expr <- substitute(expr)
  [13:37:22.441]                 local <- as.logical(local)
  [13:37:22.441]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:37:22.441]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:22.441]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:37:22.441]                   label = label, ...)
  [13:37:22.441]                 if (!future$lazy) 
  [13:37:22.441]                   future <- run(future)
  [13:37:22.441]                 invisible(future)
  [13:37:22.441]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:22.441]         }
  [13:37:22.441]     }
  [13:37:22.441]     if (base::is.na(TRUE)) {
  [13:37:22.441]     }
  [13:37:22.441]     else {
  [13:37:22.441]         if (TRUE) {
  [13:37:22.441]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:22.441]                 open = "w")
  [13:37:22.441]         }
  [13:37:22.441]         else {
  [13:37:22.441]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:22.441]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:22.441]         }
  [13:37:22.441]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:22.441]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:22.441]             base::sink(type = "output", split = FALSE)
  [13:37:22.441]             base::close(...future.stdout)
  [13:37:22.441]         }, add = TRUE)
  [13:37:22.441]     }
  [13:37:22.441]     ...future.frame <- base::sys.nframe()
  [13:37:22.441]     ...future.conditions <- base::list()
  [13:37:22.441]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:22.441]     ...future.result <- base::tryCatch({
  [13:37:22.441]         base::withCallingHandlers({
  [13:37:22.441]             ...future.value <- base::withVisible(base::local({
  [13:37:22.441]                 doFuture::registerDoFuture()
  [13:37:22.441]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:22.441]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:22.441]                   {
  [13:37:22.441]                     a <- NULL
  [13:37:22.441]                     b <- NULL
  [13:37:22.441]                   }
  [13:37:22.441]                   ...future.env <- environment()
  [13:37:22.441]                   local({
  [13:37:22.441]                     for (name in names(...future.x_jj)) {
  [13:37:22.441]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:22.441]                         inherits = FALSE)
  [13:37:22.441]                     }
  [13:37:22.441]                   })
  [13:37:22.441]                   tryCatch({
  [13:37:22.441]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:22.441]                       plan = future::plan("next"))
  [13:37:22.441]                   }, error = identity)
  [13:37:22.441]                 })
  [13:37:22.441]             }))
  [13:37:22.441]             future::FutureResult(value = ...future.value$value, 
  [13:37:22.441]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:22.441]                   ...future.rng), started = ...future.startTime, 
  [13:37:22.441]                 version = "1.8")
  [13:37:22.441]         }, condition = base::local({
  [13:37:22.441]             c <- base::c
  [13:37:22.441]             inherits <- base::inherits
  [13:37:22.441]             invokeRestart <- base::invokeRestart
  [13:37:22.441]             length <- base::length
  [13:37:22.441]             list <- base::list
  [13:37:22.441]             seq.int <- base::seq.int
  [13:37:22.441]             signalCondition <- base::signalCondition
  [13:37:22.441]             sys.calls <- base::sys.calls
  [13:37:22.441]             Sys.time <- base::Sys.time
  [13:37:22.441]             `[[` <- base::`[[`
  [13:37:22.441]             `+` <- base::`+`
  [13:37:22.441]             `<<-` <- base::`<<-`
  [13:37:22.441]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:22.441]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:22.441]                   3L)]
  [13:37:22.441]             }
  [13:37:22.441]             function(cond) {
  [13:37:22.441]                 if (inherits(cond, "error")) {
  [13:37:22.441]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:22.441]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:22.441]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:22.441]                   signalCondition(cond)
  [13:37:22.441]                 }
  [13:37:22.441]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:37:22.441]                 ))) {
  [13:37:22.441]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:37:22.441]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:22.441]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:22.441]                   if (!signal) {
  [13:37:22.441]                     muffleCondition <- function (cond) 
  [13:37:22.441]                     {
  [13:37:22.441]                       inherits <- base::inherits
  [13:37:22.441]                       invokeRestart <- base::invokeRestart
  [13:37:22.441]                       muffled <- FALSE
  [13:37:22.441]                       if (inherits(cond, "message")) {
  [13:37:22.441]                         invokeRestart("muffleMessage")
  [13:37:22.441]                         muffled <- TRUE
  [13:37:22.441]                       }
  [13:37:22.441]                       else if (inherits(cond, "warning")) {
  [13:37:22.441]                         invokeRestart("muffleWarning")
  [13:37:22.441]                         muffled <- TRUE
  [13:37:22.441]                       }
  [13:37:22.441]                       else if (inherits(cond, "condition")) {
  [13:37:22.441]                         computeRestarts <- base::computeRestarts
  [13:37:22.441]                         grepl <- base::grepl
  [13:37:22.441]                         is.null <- base::is.null
  [13:37:22.441]                         restarts <- computeRestarts(cond)
  [13:37:22.441]                         for (restart in restarts) {
  [13:37:22.441]                           name <- restart$name
  [13:37:22.441]                           if (is.null(name)) 
  [13:37:22.441]                             next
  [13:37:22.441]                           if (!grepl("^muffle", name)) 
  [13:37:22.441]                             next
  [13:37:22.441]                           invokeRestart(restart)
  [13:37:22.441]                           muffled <- TRUE
  [13:37:22.441]                           break
  [13:37:22.441]                         }
  [13:37:22.441]                       }
  [13:37:22.441]                       invisible(muffled)
  [13:37:22.441]                     }
  [13:37:22.441]                     muffleCondition(cond)
  [13:37:22.441]                   }
  [13:37:22.441]                 }
  [13:37:22.441]             }
  [13:37:22.441]         }))
  [13:37:22.441]     }, error = function(ex) {
  [13:37:22.441]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:22.441]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:22.441]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:22.441]     }, finally = {
  [13:37:22.441]         {
  [13:37:22.441]             NULL
  [13:37:22.441]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:37:22.441]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:22.441]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:37:22.441]                 label = NULL, ...) 
  [13:37:22.441]             {
  [13:37:22.441]                 if (substitute) 
  [13:37:22.441]                   expr <- substitute(expr)
  [13:37:22.441]                 local <- as.logical(local)
  [13:37:22.441]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:37:22.441]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:22.441]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:37:22.441]                   label = label, ...)
  [13:37:22.441]                 if (!future$lazy) 
  [13:37:22.441]                   future <- run(future)
  [13:37:22.441]                 invisible(future)
  [13:37:22.441]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:37:22.441]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [13:37:22.441]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:22.441]             {
  [13:37:22.441]                 if (substitute) 
  [13:37:22.441]                   expr <- substitute(expr)
  [13:37:22.441]                 local <- as.logical(local)
  [13:37:22.441]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:37:22.441]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:22.441]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:37:22.441]                   label = label, ...)
  [13:37:22.441]                 if (!future$lazy) 
  [13:37:22.441]                   future <- run(future)
  [13:37:22.441]                 invisible(future)
  [13:37:22.441]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:22.441]         }
  [13:37:22.441]         base::options(...future.oldOptions)
  [13:37:22.441]     })
  [13:37:22.441]     Sys.time
  [13:37:22.441]     if (base::is.na(TRUE)) {
  [13:37:22.441]     }
  [13:37:22.441]     else {
  [13:37:22.441]         base::sink(type = "output", split = FALSE)
  [13:37:22.441]         if (TRUE) {
  [13:37:22.441]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:22.441]         }
  [13:37:22.441]         else {
  [13:37:22.441]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:22.441]         }
  [13:37:22.441]         base::close(...future.stdout)
  [13:37:22.441]         ...future.stdout <- NULL
  [13:37:22.441]     }
  [13:37:22.441]     ...future.result$conditions <- ...future.conditions
  [13:37:22.441]     ...future.result
  [13:37:22.441] }
  [13:37:22.448] plan(): Setting new future strategy stack:
  [13:37:22.448] List of future strategies:
  [13:37:22.448] 1. sequential:
  [13:37:22.448]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:22.448]    - tweaked: FALSE
  [13:37:22.448]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:22.449] plan(): nbrOfWorkers() = 1
  [13:37:22.492] plan(): Setting new future strategy stack:
  [13:37:22.493] List of future strategies:
  [13:37:22.493] 1. sequential:
  [13:37:22.493]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:22.493]    - tweaked: FALSE
  [13:37:22.493]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:22.493] 2. sequential:
  [13:37:22.493]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:22.493]    - tweaked: FALSE
  [13:37:22.493]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:22.494] plan(): nbrOfWorkers() = 1
  [13:37:22.495] SequentialFuture started (and completed)
  [13:37:22.496] Chunk #1 of 1 ... DONE
  [13:37:22.496] Launching 1 futures (chunks) ... DONE
  [13:37:22.497] - resolving futures
  [13:37:22.497]   - gathering results & relaying conditions (except errors)
  [13:37:22.498] resolve() on list ...
  [13:37:22.498]  recursive: 0
  [13:37:22.499]  length: 1
  [13:37:22.499] 
  [13:37:22.500] Future #1
  [13:37:22.500] signalConditionsASAP(SequentialFuture, pos=1) ...
  [13:37:22.501] - nx: 1
  [13:37:22.501] - relay: TRUE
  [13:37:22.501] - stdout: TRUE
  [13:37:22.502] - signal: TRUE
  [13:37:22.502] - resignal: FALSE
  [13:37:22.502] - force: FALSE
  [13:37:22.502] - relayed: [n=1] FALSE
  [13:37:22.503] - queued futures: [n=1] FALSE
  [13:37:22.503]  - until=1
  [13:37:22.503]  - relaying element #1
  [13:37:22.504] - relayed: [n=1] TRUE
  [13:37:22.504] - queued futures: [n=1] TRUE
  [13:37:22.504] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [13:37:22.505]  length: 0 (resolved future 1)
  [13:37:22.505] Relaying remaining futures
  [13:37:22.505] signalConditionsASAP(NULL, pos=0) ...
  [13:37:22.506] - nx: 1
  [13:37:22.506] - relay: TRUE
  [13:37:22.506] - stdout: TRUE
  [13:37:22.507] - signal: TRUE
  [13:37:22.507] - resignal: FALSE
  [13:37:22.507] - force: FALSE
  [13:37:22.507] - relayed: [n=1] TRUE
  [13:37:22.508] - queued futures: [n=1] TRUE
   - flush all
  [13:37:22.508] - relayed: [n=1] TRUE
  [13:37:22.508] - queued futures: [n=1] TRUE
  [13:37:22.509] signalConditionsASAP(NULL, pos=0) ... done
  [13:37:22.509] resolve() on list ... DONE
  [13:37:22.509] - collecting values of futures
  [13:37:22.510] - accumulating results
  [13:37:22.514] - processing errors (handler = 'stop')
  [13:37:22.514] - extracting results
  [13:37:22.515] doFuture() ... DONE
  - plan(list('sequential', 'sequential')) ... DONE
  - plan(list('sequential', 'multicore')) ...
  [13:37:22.516] plan(): Setting new future strategy stack:
  [13:37:22.516] List of future strategies:
  [13:37:22.516] 1. sequential:
  [13:37:22.516]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:22.516]    - tweaked: FALSE
  [13:37:22.516]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:22.516] 2. multicore:
  [13:37:22.516]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:37:22.516]    - tweaked: FALSE
  [13:37:22.516]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:22.522] plan(): nbrOfWorkers() = 1
  [13:37:22.523] doFuture() ...
  [13:37:22.527] - dummy globals (as locals): [2] 'a', 'b'
  [13:37:22.528] - R expression:
  [13:37:22.528] {
  [13:37:22.528]     doFuture::registerDoFuture()
  [13:37:22.528]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:22.528]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:22.528]         {
  [13:37:22.528]             a <- NULL
  [13:37:22.528]             b <- NULL
  [13:37:22.528]         }
  [13:37:22.528]         ...future.env <- environment()
  [13:37:22.528]         local({
  [13:37:22.528]             for (name in names(...future.x_jj)) {
  [13:37:22.528]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:22.528]                   inherits = FALSE)
  [13:37:22.528]             }
  [13:37:22.528]         })
  [13:37:22.528]         tryCatch({
  [13:37:22.528]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:22.528]                 plan = future::plan("next"))
  [13:37:22.528]         }, error = identity)
  [13:37:22.528]     })
  [13:37:22.528] }
  [13:37:22.529] - identifying globals and packages ...
  [13:37:22.529] getGlobalsAndPackages() ...
  [13:37:22.529] Searching for globals...
  [13:37:22.544] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [13:37:22.544] Searching for globals ... DONE
  [13:37:22.545] Resolving globals: FALSE
  [13:37:22.550] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:37:22.551] - globals: [1] '...future.x_ii'
  [13:37:22.551] 
  [13:37:22.551] getGlobalsAndPackages() ... DONE
  [13:37:22.552] List of 1
  [13:37:22.552]  $ ...future.x_ii: NULL
  [13:37:22.552]  - attr(*, "where")=List of 1
  [13:37:22.552]   ..$ ...future.x_ii:<environment: 0x5647c76766b0> 
  [13:37:22.552]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:22.552]  - attr(*, "resolved")= logi FALSE
  [13:37:22.552]  - attr(*, "total_size")= num 0
  [13:37:22.558]   - R expression:
  [13:37:22.558] {
  [13:37:22.558]     doFuture::registerDoFuture()
  [13:37:22.558]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:22.558]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:22.558]         {
  [13:37:22.558]             a <- NULL
  [13:37:22.558]             b <- NULL
  [13:37:22.558]         }
  [13:37:22.558]         ...future.env <- environment()
  [13:37:22.558]         local({
  [13:37:22.558]             for (name in names(...future.x_jj)) {
  [13:37:22.558]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:22.558]                   inherits = FALSE)
  [13:37:22.558]             }
  [13:37:22.558]         })
  [13:37:22.558]         tryCatch({
  [13:37:22.558]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:22.558]                 plan = future::plan("next"))
  [13:37:22.558]         }, error = identity)
  [13:37:22.558]     })
  [13:37:22.558] }
  [13:37:22.559]   - globals: [1] '...future.x_ii'
  [13:37:22.559] List of 1
  [13:37:22.559]  $ ...future.x_ii: NULL
  [13:37:22.559]  - attr(*, "where")=List of 1
  [13:37:22.559]   ..$ ...future.x_ii:<environment: 0x5647c76766b0> 
  [13:37:22.559]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:22.559]  - attr(*, "resolved")= logi FALSE
  [13:37:22.559]  - attr(*, "total_size")= num 0
  [13:37:22.565]   - packages: [1] 'doFuture'
  [13:37:22.566] - identifying globals and packages ... DONE
  [13:37:22.566] Number of chunks: 1
  [13:37:22.566] Number of futures (= number of chunks): 1
  [13:37:22.567] Launching 1 futures (chunks) ...
  [13:37:22.567] Chunk #1 of 1 ...
  [13:37:22.568]  - Finding globals in 'args_list' chunk #1 ...
  [13:37:22.568] getGlobalsAndPackages() ...
  [13:37:22.568] Searching for globals...
  [13:37:22.569] 
  [13:37:22.570] Searching for globals ... DONE
  [13:37:22.570] - globals: [0] <none>
  [13:37:22.570] getGlobalsAndPackages() ... DONE
  [13:37:22.571] 
  [13:37:22.571] 
  [13:37:22.571]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:37:22.572] getGlobalsAndPackages() ...
  [13:37:22.572] - globals passed as-is: [1] '...future.x_ii'
  [13:37:22.572] Resolving globals: FALSE
  [13:37:22.574] The total size of the 1 globals is 672 bytes (672 bytes)
  [13:37:22.574] - globals: [1] '...future.x_ii'
  [13:37:22.574] 
  [13:37:22.575] getGlobalsAndPackages() ... DONE
  [13:37:22.577] Packages needed by the future expression (n = 1): 'doFuture'
  [13:37:22.577] Packages needed by future strategies (n = 1): 'future'
  [13:37:22.583] {
  [13:37:22.583]     {
  [13:37:22.583]         ...future.startTime <- base::Sys.time()
  [13:37:22.583]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:22.583]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:22.583]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:22.583]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:22.583]             future.resolve.recursive = NULL, width = 80L)
  [13:37:22.583]         {
  [13:37:22.583]             {
  [13:37:22.583]                 {
  [13:37:22.583]                   has_future <- base::requireNamespace("future", 
  [13:37:22.583]                     quietly = TRUE)
  [13:37:22.583]                   version <- if (has_future) 
  [13:37:22.583]                     utils::packageVersion("future")
  [13:37:22.583]                   else NULL
  [13:37:22.583]                   if (!has_future || version < "1.8.0") {
  [13:37:22.583]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:37:22.583]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:37:22.583]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:22.583]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:22.583]                         "release", "version")], collapse = " "), 
  [13:37:22.583]                       hostname = base::Sys.info()[["nodename"]])
  [13:37:22.583]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:22.583]                       info)
  [13:37:22.583]                     info <- base::paste(info, collapse = "; ")
  [13:37:22.583]                     if (!has_future) {
  [13:37:22.583]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:22.583]                         info)
  [13:37:22.583]                     }
  [13:37:22.583]                     else {
  [13:37:22.583]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:22.583]                         info, version)
  [13:37:22.583]                     }
  [13:37:22.583]                     base::stop(msg)
  [13:37:22.583]                   }
  [13:37:22.583]                 }
  [13:37:22.583]                 base::local({
  [13:37:22.583]                   for (pkg in c("doFuture", "future")) {
  [13:37:22.583]                     base::loadNamespace(pkg)
  [13:37:22.583]                     base::library(pkg, character.only = TRUE)
  [13:37:22.583]                   }
  [13:37:22.583]                 })
  [13:37:22.583]             }
  [13:37:22.583]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:22.583]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:22.583]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:37:22.583]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:22.583]             {
  [13:37:22.583]                 if (substitute) 
  [13:37:22.583]                   expr <- substitute(expr)
  [13:37:22.583]                 if (is.function(workers)) 
  [13:37:22.583]                   workers <- workers()
  [13:37:22.583]                 workers <- as.integer(workers)
  [13:37:22.583]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:37:22.583]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:37:22.583]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:22.583]                     lazy = lazy, seed = seed, globals = globals, 
  [13:37:22.583]                     local = TRUE, label = label, ...))
  [13:37:22.583]                 }
  [13:37:22.583]                 oopts <- options(mc.cores = workers)
  [13:37:22.583]                 on.exit(options(oopts))
  [13:37:22.583]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:37:22.583]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:22.583]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:37:22.583]                   label = label, ...)
  [13:37:22.583]                 if (!future$lazy) 
  [13:37:22.583]                   future <- run(future)
  [13:37:22.583]                 invisible(future)
  [13:37:22.583]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:22.583]         }
  [13:37:22.583]     }
  [13:37:22.583]     if (base::is.na(TRUE)) {
  [13:37:22.583]     }
  [13:37:22.583]     else {
  [13:37:22.583]         if (TRUE) {
  [13:37:22.583]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:22.583]                 open = "w")
  [13:37:22.583]         }
  [13:37:22.583]         else {
  [13:37:22.583]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:22.583]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:22.583]         }
  [13:37:22.583]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:22.583]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:22.583]             base::sink(type = "output", split = FALSE)
  [13:37:22.583]             base::close(...future.stdout)
  [13:37:22.583]         }, add = TRUE)
  [13:37:22.583]     }
  [13:37:22.583]     ...future.frame <- base::sys.nframe()
  [13:37:22.583]     ...future.conditions <- base::list()
  [13:37:22.583]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:22.583]     ...future.result <- base::tryCatch({
  [13:37:22.583]         base::withCallingHandlers({
  [13:37:22.583]             ...future.value <- base::withVisible(base::local({
  [13:37:22.583]                 doFuture::registerDoFuture()
  [13:37:22.583]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:22.583]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:22.583]                   {
  [13:37:22.583]                     a <- NULL
  [13:37:22.583]                     b <- NULL
  [13:37:22.583]                   }
  [13:37:22.583]                   ...future.env <- environment()
  [13:37:22.583]                   local({
  [13:37:22.583]                     for (name in names(...future.x_jj)) {
  [13:37:22.583]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:22.583]                         inherits = FALSE)
  [13:37:22.583]                     }
  [13:37:22.583]                   })
  [13:37:22.583]                   tryCatch({
  [13:37:22.583]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:22.583]                       plan = future::plan("next"))
  [13:37:22.583]                   }, error = identity)
  [13:37:22.583]                 })
  [13:37:22.583]             }))
  [13:37:22.583]             future::FutureResult(value = ...future.value$value, 
  [13:37:22.583]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:22.583]                   ...future.rng), started = ...future.startTime, 
  [13:37:22.583]                 version = "1.8")
  [13:37:22.583]         }, condition = base::local({
  [13:37:22.583]             c <- base::c
  [13:37:22.583]             inherits <- base::inherits
  [13:37:22.583]             invokeRestart <- base::invokeRestart
  [13:37:22.583]             length <- base::length
  [13:37:22.583]             list <- base::list
  [13:37:22.583]             seq.int <- base::seq.int
  [13:37:22.583]             signalCondition <- base::signalCondition
  [13:37:22.583]             sys.calls <- base::sys.calls
  [13:37:22.583]             Sys.time <- base::Sys.time
  [13:37:22.583]             `[[` <- base::`[[`
  [13:37:22.583]             `+` <- base::`+`
  [13:37:22.583]             `<<-` <- base::`<<-`
  [13:37:22.583]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:22.583]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:22.583]                   3L)]
  [13:37:22.583]             }
  [13:37:22.583]             function(cond) {
  [13:37:22.583]                 if (inherits(cond, "error")) {
  [13:37:22.583]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:22.583]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:22.583]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:22.583]                   signalCondition(cond)
  [13:37:22.583]                 }
  [13:37:22.583]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:37:22.583]                 ))) {
  [13:37:22.583]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:37:22.583]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:22.583]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:22.583]                   if (!signal) {
  [13:37:22.583]                     muffleCondition <- function (cond) 
  [13:37:22.583]                     {
  [13:37:22.583]                       inherits <- base::inherits
  [13:37:22.583]                       invokeRestart <- base::invokeRestart
  [13:37:22.583]                       muffled <- FALSE
  [13:37:22.583]                       if (inherits(cond, "message")) {
  [13:37:22.583]                         invokeRestart("muffleMessage")
  [13:37:22.583]                         muffled <- TRUE
  [13:37:22.583]                       }
  [13:37:22.583]                       else if (inherits(cond, "warning")) {
  [13:37:22.583]                         invokeRestart("muffleWarning")
  [13:37:22.583]                         muffled <- TRUE
  [13:37:22.583]                       }
  [13:37:22.583]                       else if (inherits(cond, "condition")) {
  [13:37:22.583]                         computeRestarts <- base::computeRestarts
  [13:37:22.583]                         grepl <- base::grepl
  [13:37:22.583]                         is.null <- base::is.null
  [13:37:22.583]                         restarts <- computeRestarts(cond)
  [13:37:22.583]                         for (restart in restarts) {
  [13:37:22.583]                           name <- restart$name
  [13:37:22.583]                           if (is.null(name)) 
  [13:37:22.583]                             next
  [13:37:22.583]                           if (!grepl("^muffle", name)) 
  [13:37:22.583]                             next
  [13:37:22.583]                           invokeRestart(restart)
  [13:37:22.583]                           muffled <- TRUE
  [13:37:22.583]                           break
  [13:37:22.583]                         }
  [13:37:22.583]                       }
  [13:37:22.583]                       invisible(muffled)
  [13:37:22.583]                     }
  [13:37:22.583]                     muffleCondition(cond)
  [13:37:22.583]                   }
  [13:37:22.583]                 }
  [13:37:22.583]             }
  [13:37:22.583]         }))
  [13:37:22.583]     }, error = function(ex) {
  [13:37:22.583]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:22.583]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:22.583]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:22.583]     }, finally = {
  [13:37:22.583]         {
  [13:37:22.583]             NULL
  [13:37:22.583]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:37:22.583]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:22.583]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:37:22.583]                 label = NULL, ...) 
  [13:37:22.583]             {
  [13:37:22.583]                 if (substitute) 
  [13:37:22.583]                   expr <- substitute(expr)
  [13:37:22.583]                 local <- as.logical(local)
  [13:37:22.583]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:37:22.583]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:22.583]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:37:22.583]                   label = label, ...)
  [13:37:22.583]                 if (!future$lazy) 
  [13:37:22.583]                   future <- run(future)
  [13:37:22.583]                 invisible(future)
  [13:37:22.583]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:37:22.583]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:37:22.583]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:22.583]             {
  [13:37:22.583]                 if (substitute) 
  [13:37:22.583]                   expr <- substitute(expr)
  [13:37:22.583]                 if (is.function(workers)) 
  [13:37:22.583]                   workers <- workers()
  [13:37:22.583]                 workers <- as.integer(workers)
  [13:37:22.583]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:37:22.583]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:37:22.583]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:22.583]                     lazy = lazy, seed = seed, globals = globals, 
  [13:37:22.583]                     local = TRUE, label = label, ...))
  [13:37:22.583]                 }
  [13:37:22.583]                 oopts <- options(mc.cores = workers)
  [13:37:22.583]                 on.exit(options(oopts))
  [13:37:22.583]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:37:22.583]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:22.583]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:37:22.583]                   label = label, ...)
  [13:37:22.583]                 if (!future$lazy) 
  [13:37:22.583]                   future <- run(future)
  [13:37:22.583]                 invisible(future)
  [13:37:22.583]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:22.583]         }
  [13:37:22.583]         base::options(...future.oldOptions)
  [13:37:22.583]     })
  [13:37:22.583]     Sys.time
  [13:37:22.583]     if (base::is.na(TRUE)) {
  [13:37:22.583]     }
  [13:37:22.583]     else {
  [13:37:22.583]         base::sink(type = "output", split = FALSE)
  [13:37:22.583]         if (TRUE) {
  [13:37:22.583]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:22.583]         }
  [13:37:22.583]         else {
  [13:37:22.583]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:22.583]         }
  [13:37:22.583]         base::close(...future.stdout)
  [13:37:22.583]         ...future.stdout <- NULL
  [13:37:22.583]     }
  [13:37:22.583]     ...future.result$conditions <- ...future.conditions
  [13:37:22.583]     ...future.result
  [13:37:22.583] }
  [13:37:22.590] plan(): Setting new future strategy stack:
  [13:37:22.590] List of future strategies:
  [13:37:22.590] 1. multicore:
  [13:37:22.590]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:37:22.590]    - tweaked: FALSE
  [13:37:22.590]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:22.621] plan(): nbrOfWorkers() = 2
  [13:37:22.623] plan(): Setting new future strategy stack:
  [13:37:22.624] List of future strategies:
  [13:37:22.624] 1. sequential:
  [13:37:22.624]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:22.624]    - tweaked: FALSE
  [13:37:22.624]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:22.624] 2. multicore:
  [13:37:22.624]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:37:22.624]    - tweaked: FALSE
  [13:37:22.624]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:22.625] plan(): nbrOfWorkers() = 1
  [13:37:22.626] SequentialFuture started (and completed)
  [13:37:22.626] Chunk #1 of 1 ... DONE
  [13:37:22.627] Launching 1 futures (chunks) ... DONE
  [13:37:22.627] - resolving futures
  [13:37:22.627]   - gathering results & relaying conditions (except errors)
  [13:37:22.627] resolve() on list ...
  [13:37:22.628]  recursive: 0
  [13:37:22.628]  length: 1
  [13:37:22.628] 
  [13:37:22.629] Future #1
  [13:37:22.629] signalConditionsASAP(SequentialFuture, pos=1) ...
  [13:37:22.629] - nx: 1
  [13:37:22.630] - relay: TRUE
  [13:37:22.630] - stdout: TRUE
  [13:37:22.630] - signal: TRUE
  [13:37:22.630] - resignal: FALSE
  [13:37:22.631] - force: FALSE
  [13:37:22.631] - relayed: [n=1] FALSE
  [13:37:22.631] - queued futures: [n=1] FALSE
  [13:37:22.631]  - until=1
  [13:37:22.632]  - relaying element #1
  [13:37:22.632] - relayed: [n=1] TRUE
  [13:37:22.632] - queued futures: [n=1] TRUE
  [13:37:22.633] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [13:37:22.633]  length: 0 (resolved future 1)
  [13:37:22.633] Relaying remaining futures
  [13:37:22.634] signalConditionsASAP(NULL, pos=0) ...
  [13:37:22.634] - nx: 1
  [13:37:22.634] - relay: TRUE
  [13:37:22.637] - stdout: TRUE
  [13:37:22.638] - signal: TRUE
  [13:37:22.638] - resignal: FALSE
  [13:37:22.638] - force: FALSE
  [13:37:22.639] - relayed: [n=1] TRUE
  [13:37:22.639] - queued futures: [n=1] TRUE
   - flush all
  [13:37:22.639] - relayed: [n=1] TRUE
  [13:37:22.640] - queued futures: [n=1] TRUE
  [13:37:22.640] signalConditionsASAP(NULL, pos=0) ... done
  [13:37:22.640] resolve() on list ... DONE
  [13:37:22.640] - collecting values of futures
  [13:37:22.641] - accumulating results
  [13:37:22.643] - processing errors (handler = 'stop')
  [13:37:22.644] - extracting results
  [13:37:22.644] doFuture() ... DONE
  - plan(list('sequential', 'multicore')) ... DONE
  - plan(list('sequential', 'multisession')) ...
  [13:37:22.646] plan(): Setting new future strategy stack:
  [13:37:22.646] List of future strategies:
  [13:37:22.646] 1. sequential:
  [13:37:22.646]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:22.646]    - tweaked: FALSE
  [13:37:22.646]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:22.646] 2. multisession:
  [13:37:22.646]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:37:22.646]    - tweaked: FALSE
  [13:37:22.646]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:22.647] plan(): nbrOfWorkers() = 1
  [13:37:22.648] doFuture() ...
  [13:37:22.669] - dummy globals (as locals): [2] 'a', 'b'
  [13:37:22.670] - R expression:
  [13:37:22.670] {
  [13:37:22.670]     doFuture::registerDoFuture()
  [13:37:22.670]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:22.670]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:22.670]         {
  [13:37:22.670]             a <- NULL
  [13:37:22.670]             b <- NULL
  [13:37:22.670]         }
  [13:37:22.670]         ...future.env <- environment()
  [13:37:22.670]         local({
  [13:37:22.670]             for (name in names(...future.x_jj)) {
  [13:37:22.670]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:22.670]                   inherits = FALSE)
  [13:37:22.670]             }
  [13:37:22.670]         })
  [13:37:22.670]         tryCatch({
  [13:37:22.670]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:22.670]                 plan = future::plan("next"))
  [13:37:22.670]         }, error = identity)
  [13:37:22.670]     })
  [13:37:22.670] }
  [13:37:22.675] - identifying globals and packages ...
  [13:37:22.675] getGlobalsAndPackages() ...
  [13:37:22.676] Searching for globals...
  [13:37:22.707] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [13:37:22.707] Searching for globals ... DONE
  [13:37:22.708] Resolving globals: FALSE
  [13:37:22.709] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:37:22.710] - globals: [1] '...future.x_ii'
  [13:37:22.710] 
  [13:37:22.710] getGlobalsAndPackages() ... DONE
  [13:37:22.711] List of 1
  [13:37:22.711]  $ ...future.x_ii: NULL
  [13:37:22.711]  - attr(*, "where")=List of 1
  [13:37:22.711]   ..$ ...future.x_ii:<environment: 0x5647c66ed498> 
  [13:37:22.711]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:22.711]  - attr(*, "resolved")= logi FALSE
  [13:37:22.711]  - attr(*, "total_size")= num 0
  [13:37:22.733]   - R expression:
  [13:37:22.733] {
  [13:37:22.733]     doFuture::registerDoFuture()
  [13:37:22.733]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:22.733]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:22.733]         {
  [13:37:22.733]             a <- NULL
  [13:37:22.733]             b <- NULL
  [13:37:22.733]         }
  [13:37:22.733]         ...future.env <- environment()
  [13:37:22.733]         local({
  [13:37:22.733]             for (name in names(...future.x_jj)) {
  [13:37:22.733]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:22.733]                   inherits = FALSE)
  [13:37:22.733]             }
  [13:37:22.733]         })
  [13:37:22.733]         tryCatch({
  [13:37:22.733]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:22.733]                 plan = future::plan("next"))
  [13:37:22.733]         }, error = identity)
  [13:37:22.733]     })
  [13:37:22.733] }
  [13:37:22.734]   - globals: [1] '...future.x_ii'
  [13:37:22.734] List of 1
  [13:37:22.734]  $ ...future.x_ii: NULL
  [13:37:22.734]  - attr(*, "where")=List of 1
  [13:37:22.734]   ..$ ...future.x_ii:<environment: 0x5647c66ed498> 
  [13:37:22.734]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:22.734]  - attr(*, "resolved")= logi FALSE
  [13:37:22.734]  - attr(*, "total_size")= num 0
  [13:37:22.740]   - packages: [1] 'doFuture'
  [13:37:22.741] - identifying globals and packages ... DONE
  [13:37:22.741] Number of chunks: 1
  [13:37:22.741] Number of futures (= number of chunks): 1
  [13:37:22.742] Launching 1 futures (chunks) ...
  [13:37:22.743] Chunk #1 of 1 ...
  [13:37:22.743]  - Finding globals in 'args_list' chunk #1 ...
  [13:37:22.743] getGlobalsAndPackages() ...
  [13:37:22.743] Searching for globals...
  [13:37:22.744] 
  [13:37:22.745] Searching for globals ... DONE
  [13:37:22.745] - globals: [0] <none>
  [13:37:22.745] getGlobalsAndPackages() ... DONE
  [13:37:22.746] 
  [13:37:22.746] 
  [13:37:22.746]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:37:22.763] getGlobalsAndPackages() ...
  [13:37:22.763] - globals passed as-is: [1] '...future.x_ii'
  [13:37:22.763] Resolving globals: FALSE
  [13:37:22.765] The total size of the 1 globals is 672 bytes (672 bytes)
  [13:37:22.765] - globals: [1] '...future.x_ii'
  [13:37:22.765] 
  [13:37:22.766] getGlobalsAndPackages() ... DONE
  [13:37:22.768] Packages needed by the future expression (n = 1): 'doFuture'
  [13:37:22.768] Packages needed by future strategies (n = 1): 'future'
  [13:37:22.774] {
  [13:37:22.774]     {
  [13:37:22.774]         ...future.startTime <- base::Sys.time()
  [13:37:22.774]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:22.774]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:22.774]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:22.774]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:22.774]             future.resolve.recursive = NULL, width = 80L)
  [13:37:22.774]         {
  [13:37:22.774]             {
  [13:37:22.774]                 {
  [13:37:22.774]                   has_future <- base::requireNamespace("future", 
  [13:37:22.774]                     quietly = TRUE)
  [13:37:22.774]                   version <- if (has_future) 
  [13:37:22.774]                     utils::packageVersion("future")
  [13:37:22.774]                   else NULL
  [13:37:22.774]                   if (!has_future || version < "1.8.0") {
  [13:37:22.774]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:37:22.774]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:37:22.774]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:22.774]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:22.774]                         "release", "version")], collapse = " "), 
  [13:37:22.774]                       hostname = base::Sys.info()[["nodename"]])
  [13:37:22.774]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:22.774]                       info)
  [13:37:22.774]                     info <- base::paste(info, collapse = "; ")
  [13:37:22.774]                     if (!has_future) {
  [13:37:22.774]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:22.774]                         info)
  [13:37:22.774]                     }
  [13:37:22.774]                     else {
  [13:37:22.774]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:22.774]                         info, version)
  [13:37:22.774]                     }
  [13:37:22.774]                     base::stop(msg)
  [13:37:22.774]                   }
  [13:37:22.774]                 }
  [13:37:22.774]                 base::local({
  [13:37:22.774]                   for (pkg in c("doFuture", "future")) {
  [13:37:22.774]                     base::loadNamespace(pkg)
  [13:37:22.774]                     base::library(pkg, character.only = TRUE)
  [13:37:22.774]                   }
  [13:37:22.774]                 })
  [13:37:22.774]             }
  [13:37:22.774]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:22.774]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:22.774]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:37:22.774]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:37:22.774]                 ...) 
  [13:37:22.774]             {
  [13:37:22.774]                 if (substitute) 
  [13:37:22.774]                   expr <- substitute(expr)
  [13:37:22.774]                 if (is.function(workers)) 
  [13:37:22.774]                   workers <- workers()
  [13:37:22.774]                 workers <- as.integer(workers)
  [13:37:22.774]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:37:22.774]                   workers >= 1)
  [13:37:22.774]                 if (workers == 1L) {
  [13:37:22.774]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:22.774]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:37:22.774]                     local = TRUE, label = label, ...))
  [13:37:22.774]                 }
  [13:37:22.774]                 workers <- ClusterRegistry("start", workers = workers)
  [13:37:22.774]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:37:22.774]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:22.774]                   globals = globals, persistent = persistent, 
  [13:37:22.774]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:37:22.774]                   label = label, ...)
  [13:37:22.774]                 if (!future$lazy) 
  [13:37:22.774]                   future <- run(future)
  [13:37:22.774]                 invisible(future)
  [13:37:22.774]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:22.774]         }
  [13:37:22.774]     }
  [13:37:22.774]     if (base::is.na(TRUE)) {
  [13:37:22.774]     }
  [13:37:22.774]     else {
  [13:37:22.774]         if (TRUE) {
  [13:37:22.774]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:22.774]                 open = "w")
  [13:37:22.774]         }
  [13:37:22.774]         else {
  [13:37:22.774]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:22.774]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:22.774]         }
  [13:37:22.774]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:22.774]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:22.774]             base::sink(type = "output", split = FALSE)
  [13:37:22.774]             base::close(...future.stdout)
  [13:37:22.774]         }, add = TRUE)
  [13:37:22.774]     }
  [13:37:22.774]     ...future.frame <- base::sys.nframe()
  [13:37:22.774]     ...future.conditions <- base::list()
  [13:37:22.774]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:22.774]     ...future.result <- base::tryCatch({
  [13:37:22.774]         base::withCallingHandlers({
  [13:37:22.774]             ...future.value <- base::withVisible(base::local({
  [13:37:22.774]                 doFuture::registerDoFuture()
  [13:37:22.774]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:22.774]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:22.774]                   {
  [13:37:22.774]                     a <- NULL
  [13:37:22.774]                     b <- NULL
  [13:37:22.774]                   }
  [13:37:22.774]                   ...future.env <- environment()
  [13:37:22.774]                   local({
  [13:37:22.774]                     for (name in names(...future.x_jj)) {
  [13:37:22.774]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:22.774]                         inherits = FALSE)
  [13:37:22.774]                     }
  [13:37:22.774]                   })
  [13:37:22.774]                   tryCatch({
  [13:37:22.774]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:22.774]                       plan = future::plan("next"))
  [13:37:22.774]                   }, error = identity)
  [13:37:22.774]                 })
  [13:37:22.774]             }))
  [13:37:22.774]             future::FutureResult(value = ...future.value$value, 
  [13:37:22.774]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:22.774]                   ...future.rng), started = ...future.startTime, 
  [13:37:22.774]                 version = "1.8")
  [13:37:22.774]         }, condition = base::local({
  [13:37:22.774]             c <- base::c
  [13:37:22.774]             inherits <- base::inherits
  [13:37:22.774]             invokeRestart <- base::invokeRestart
  [13:37:22.774]             length <- base::length
  [13:37:22.774]             list <- base::list
  [13:37:22.774]             seq.int <- base::seq.int
  [13:37:22.774]             signalCondition <- base::signalCondition
  [13:37:22.774]             sys.calls <- base::sys.calls
  [13:37:22.774]             Sys.time <- base::Sys.time
  [13:37:22.774]             `[[` <- base::`[[`
  [13:37:22.774]             `+` <- base::`+`
  [13:37:22.774]             `<<-` <- base::`<<-`
  [13:37:22.774]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:22.774]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:22.774]                   3L)]
  [13:37:22.774]             }
  [13:37:22.774]             function(cond) {
  [13:37:22.774]                 if (inherits(cond, "error")) {
  [13:37:22.774]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:22.774]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:22.774]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:22.774]                   signalCondition(cond)
  [13:37:22.774]                 }
  [13:37:22.774]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:37:22.774]                 ))) {
  [13:37:22.774]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:37:22.774]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:22.774]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:22.774]                   if (!signal) {
  [13:37:22.774]                     muffleCondition <- function (cond) 
  [13:37:22.774]                     {
  [13:37:22.774]                       inherits <- base::inherits
  [13:37:22.774]                       invokeRestart <- base::invokeRestart
  [13:37:22.774]                       muffled <- FALSE
  [13:37:22.774]                       if (inherits(cond, "message")) {
  [13:37:22.774]                         invokeRestart("muffleMessage")
  [13:37:22.774]                         muffled <- TRUE
  [13:37:22.774]                       }
  [13:37:22.774]                       else if (inherits(cond, "warning")) {
  [13:37:22.774]                         invokeRestart("muffleWarning")
  [13:37:22.774]                         muffled <- TRUE
  [13:37:22.774]                       }
  [13:37:22.774]                       else if (inherits(cond, "condition")) {
  [13:37:22.774]                         computeRestarts <- base::computeRestarts
  [13:37:22.774]                         grepl <- base::grepl
  [13:37:22.774]                         is.null <- base::is.null
  [13:37:22.774]                         restarts <- computeRestarts(cond)
  [13:37:22.774]                         for (restart in restarts) {
  [13:37:22.774]                           name <- restart$name
  [13:37:22.774]                           if (is.null(name)) 
  [13:37:22.774]                             next
  [13:37:22.774]                           if (!grepl("^muffle", name)) 
  [13:37:22.774]                             next
  [13:37:22.774]                           invokeRestart(restart)
  [13:37:22.774]                           muffled <- TRUE
  [13:37:22.774]                           break
  [13:37:22.774]                         }
  [13:37:22.774]                       }
  [13:37:22.774]                       invisible(muffled)
  [13:37:22.774]                     }
  [13:37:22.774]                     muffleCondition(cond)
  [13:37:22.774]                   }
  [13:37:22.774]                 }
  [13:37:22.774]             }
  [13:37:22.774]         }))
  [13:37:22.774]     }, error = function(ex) {
  [13:37:22.774]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:22.774]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:22.774]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:22.774]     }, finally = {
  [13:37:22.774]         {
  [13:37:22.774]             NULL
  [13:37:22.774]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:37:22.774]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:22.774]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:37:22.774]                 label = NULL, ...) 
  [13:37:22.774]             {
  [13:37:22.774]                 if (substitute) 
  [13:37:22.774]                   expr <- substitute(expr)
  [13:37:22.774]                 local <- as.logical(local)
  [13:37:22.774]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:37:22.774]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:22.774]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:37:22.774]                   label = label, ...)
  [13:37:22.774]                 if (!future$lazy) 
  [13:37:22.774]                   future <- run(future)
  [13:37:22.774]                 invisible(future)
  [13:37:22.774]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:37:22.774]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:37:22.774]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [13:37:22.774]                 label = NULL, ...) 
  [13:37:22.774]             {
  [13:37:22.774]                 if (substitute) 
  [13:37:22.774]                   expr <- substitute(expr)
  [13:37:22.774]                 if (is.function(workers)) 
  [13:37:22.774]                   workers <- workers()
  [13:37:22.774]                 workers <- as.integer(workers)
  [13:37:22.774]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:37:22.774]                   workers >= 1)
  [13:37:22.774]                 if (workers == 1L) {
  [13:37:22.774]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:22.774]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:37:22.774]                     local = TRUE, label = label, ...))
  [13:37:22.774]                 }
  [13:37:22.774]                 workers <- ClusterRegistry("start", workers = workers)
  [13:37:22.774]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:37:22.774]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:22.774]                   globals = globals, persistent = persistent, 
  [13:37:22.774]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:37:22.774]                   label = label, ...)
  [13:37:22.774]                 if (!future$lazy) 
  [13:37:22.774]                   future <- run(future)
  [13:37:22.774]                 invisible(future)
  [13:37:22.774]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:22.774]         }
  [13:37:22.774]         base::options(...future.oldOptions)
  [13:37:22.774]     })
  [13:37:22.774]     Sys.time
  [13:37:22.774]     if (base::is.na(TRUE)) {
  [13:37:22.774]     }
  [13:37:22.774]     else {
  [13:37:22.774]         base::sink(type = "output", split = FALSE)
  [13:37:22.774]         if (TRUE) {
  [13:37:22.774]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:22.774]         }
  [13:37:22.774]         else {
  [13:37:22.774]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:22.774]         }
  [13:37:22.774]         base::close(...future.stdout)
  [13:37:22.774]         ...future.stdout <- NULL
  [13:37:22.774]     }
  [13:37:22.774]     ...future.result$conditions <- ...future.conditions
  [13:37:22.774]     ...future.result
  [13:37:22.774] }
  [13:37:22.797] plan(): Setting new future strategy stack:
  [13:37:22.797] List of future strategies:
  [13:37:22.797] 1. multisession:
  [13:37:22.797]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:37:22.797]    - tweaked: FALSE
  [13:37:22.797]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:22.799] plan(): nbrOfWorkers() = 2
  [13:37:22.801] plan(): Setting new future strategy stack:
  [13:37:22.802] List of future strategies:
  [13:37:22.802] 1. sequential:
  [13:37:22.802]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:22.802]    - tweaked: FALSE
  [13:37:22.802]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:22.802] 2. multisession:
  [13:37:22.802]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:37:22.802]    - tweaked: FALSE
  [13:37:22.802]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:22.803] plan(): nbrOfWorkers() = 1
  [13:37:22.804] SequentialFuture started (and completed)
  [13:37:22.824] Chunk #1 of 1 ... DONE
  [13:37:22.824] Launching 1 futures (chunks) ... DONE
  [13:37:22.825] - resolving futures
  [13:37:22.825]   - gathering results & relaying conditions (except errors)
  [13:37:22.825] resolve() on list ...
  [13:37:22.826]  recursive: 0
  [13:37:22.826]  length: 1
  [13:37:22.826] 
  [13:37:22.827] Future #1
  [13:37:22.827] signalConditionsASAP(SequentialFuture, pos=1) ...
  [13:37:22.827] - nx: 1
  [13:37:22.828] - relay: TRUE
  [13:37:22.828] - stdout: TRUE
  [13:37:22.828] - signal: TRUE
  [13:37:22.829] - resignal: FALSE
  [13:37:22.829] - force: FALSE
  [13:37:22.829] - relayed: [n=1] FALSE
  [13:37:22.829] - queued futures: [n=1] FALSE
  [13:37:22.830]  - until=1
  [13:37:22.830]  - relaying element #1
  [13:37:22.831] - relayed: [n=1] TRUE
  [13:37:22.831] - queued futures: [n=1] TRUE
  [13:37:22.831] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [13:37:22.832]  length: 0 (resolved future 1)
  [13:37:22.832] Relaying remaining futures
  [13:37:22.832] signalConditionsASAP(NULL, pos=0) ...
  [13:37:22.833] - nx: 1
  [13:37:22.833] - relay: TRUE
  [13:37:22.833] - stdout: TRUE
  [13:37:22.833] - signal: TRUE
  [13:37:22.834] - resignal: FALSE
  [13:37:22.834] - force: FALSE
  [13:37:22.834] - relayed: [n=1] TRUE
  [13:37:22.835] - queued futures: [n=1] TRUE
   - flush all
  [13:37:22.835] - relayed: [n=1] TRUE
  [13:37:22.835] - queued futures: [n=1] TRUE
  [13:37:22.836] signalConditionsASAP(NULL, pos=0) ... done
  [13:37:22.836] resolve() on list ... DONE
  [13:37:22.836] - collecting values of futures
  [13:37:22.837] - accumulating results
  [13:37:22.839] - processing errors (handler = 'stop')
  [13:37:22.839] - extracting results
  [13:37:22.840] doFuture() ... DONE
  - plan(list('sequential', 'multisession')) ... DONE
  - plan(list('sequential', 'cluster')) ...
  [13:37:22.841] plan(): Setting new future strategy stack:
  [13:37:22.841] List of future strategies:
  [13:37:22.841] 1. sequential:
  [13:37:22.841]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:22.841]    - tweaked: FALSE
  [13:37:22.841]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:22.841] 2. cluster:
  [13:37:22.841]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:37:22.841]    - tweaked: FALSE
  [13:37:22.841]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:22.843] plan(): nbrOfWorkers() = 1
  [13:37:22.844] doFuture() ...
  [13:37:22.848] - dummy globals (as locals): [2] 'a', 'b'
  [13:37:22.849] - R expression:
  [13:37:22.849] {
  [13:37:22.849]     doFuture::registerDoFuture()
  [13:37:22.849]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:22.849]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:22.849]         {
  [13:37:22.849]             a <- NULL
  [13:37:22.849]             b <- NULL
  [13:37:22.849]         }
  [13:37:22.849]         ...future.env <- environment()
  [13:37:22.849]         local({
  [13:37:22.849]             for (name in names(...future.x_jj)) {
  [13:37:22.849]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:22.849]                   inherits = FALSE)
  [13:37:22.849]             }
  [13:37:22.849]         })
  [13:37:22.849]         tryCatch({
  [13:37:22.849]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:22.849]                 plan = future::plan("next"))
  [13:37:22.849]         }, error = identity)
  [13:37:22.849]     })
  [13:37:22.849] }
  [13:37:22.850] - identifying globals and packages ...
  [13:37:22.851] getGlobalsAndPackages() ...
  [13:37:22.851] Searching for globals...
  [13:37:22.879] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [13:37:22.879] Searching for globals ... DONE
  [13:37:22.879] Resolving globals: FALSE
  [13:37:22.881] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:37:22.882] - globals: [1] '...future.x_ii'
  [13:37:22.882] 
  [13:37:22.882] getGlobalsAndPackages() ... DONE
  [13:37:22.883] List of 1
  [13:37:22.883]  $ ...future.x_ii: NULL
  [13:37:22.883]  - attr(*, "where")=List of 1
  [13:37:22.883]   ..$ ...future.x_ii:<environment: 0x5647c67411b8> 
  [13:37:22.883]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:22.883]  - attr(*, "resolved")= logi FALSE
  [13:37:22.883]  - attr(*, "total_size")= num 0
  [13:37:22.889]   - R expression:
  [13:37:22.889] {
  [13:37:22.889]     doFuture::registerDoFuture()
  [13:37:22.889]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:22.889]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:22.889]         {
  [13:37:22.889]             a <- NULL
  [13:37:22.889]             b <- NULL
  [13:37:22.889]         }
  [13:37:22.889]         ...future.env <- environment()
  [13:37:22.889]         local({
  [13:37:22.889]             for (name in names(...future.x_jj)) {
  [13:37:22.889]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:22.889]                   inherits = FALSE)
  [13:37:22.889]             }
  [13:37:22.889]         })
  [13:37:22.889]         tryCatch({
  [13:37:22.889]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:22.889]                 plan = future::plan("next"))
  [13:37:22.889]         }, error = identity)
  [13:37:22.889]     })
  [13:37:22.889] }
  [13:37:22.890]   - globals: [1] '...future.x_ii'
  [13:37:22.891] List of 1
  [13:37:22.891]  $ ...future.x_ii: NULL
  [13:37:22.891]  - attr(*, "where")=List of 1
  [13:37:22.891]   ..$ ...future.x_ii:<environment: 0x5647c67411b8> 
  [13:37:22.891]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:22.891]  - attr(*, "resolved")= logi FALSE
  [13:37:22.891]  - attr(*, "total_size")= num 0
  [13:37:22.897]   - packages: [1] 'doFuture'
  [13:37:22.897] - identifying globals and packages ... DONE
  [13:37:22.897] Number of chunks: 1
  [13:37:22.898] Number of futures (= number of chunks): 1
  [13:37:22.898] Launching 1 futures (chunks) ...
  [13:37:22.899] Chunk #1 of 1 ...
  [13:37:22.899]  - Finding globals in 'args_list' chunk #1 ...
  [13:37:22.899] getGlobalsAndPackages() ...
  [13:37:22.900] Searching for globals...
  [13:37:22.904] 
  [13:37:22.905] Searching for globals ... DONE
  [13:37:22.905] - globals: [0] <none>
  [13:37:22.905] getGlobalsAndPackages() ... DONE
  [13:37:22.905] 
  [13:37:22.906] 
  [13:37:22.906]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:37:22.906] getGlobalsAndPackages() ...
  [13:37:22.907] - globals passed as-is: [1] '...future.x_ii'
  [13:37:22.907] Resolving globals: FALSE
  [13:37:22.908] The total size of the 1 globals is 672 bytes (672 bytes)
  [13:37:22.909] - globals: [1] '...future.x_ii'
  [13:37:22.909] 
  [13:37:22.909] getGlobalsAndPackages() ... DONE
  [13:37:22.912] Packages needed by the future expression (n = 1): 'doFuture'
  [13:37:22.912] Packages needed by future strategies (n = 1): 'future'
  [13:37:22.918] {
  [13:37:22.918]     {
  [13:37:22.918]         ...future.startTime <- base::Sys.time()
  [13:37:22.918]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:22.918]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:22.918]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:22.918]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:22.918]             future.resolve.recursive = NULL, width = 80L)
  [13:37:22.918]         {
  [13:37:22.918]             {
  [13:37:22.918]                 {
  [13:37:22.918]                   has_future <- base::requireNamespace("future", 
  [13:37:22.918]                     quietly = TRUE)
  [13:37:22.918]                   version <- if (has_future) 
  [13:37:22.918]                     utils::packageVersion("future")
  [13:37:22.918]                   else NULL
  [13:37:22.918]                   if (!has_future || version < "1.8.0") {
  [13:37:22.918]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:37:22.918]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:37:22.918]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:22.918]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:22.918]                         "release", "version")], collapse = " "), 
  [13:37:22.918]                       hostname = base::Sys.info()[["nodename"]])
  [13:37:22.918]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:22.918]                       info)
  [13:37:22.918]                     info <- base::paste(info, collapse = "; ")
  [13:37:22.918]                     if (!has_future) {
  [13:37:22.918]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:22.918]                         info)
  [13:37:22.918]                     }
  [13:37:22.918]                     else {
  [13:37:22.918]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:22.918]                         info, version)
  [13:37:22.918]                     }
  [13:37:22.918]                     base::stop(msg)
  [13:37:22.918]                   }
  [13:37:22.918]                 }
  [13:37:22.918]                 base::local({
  [13:37:22.918]                   for (pkg in c("doFuture", "future")) {
  [13:37:22.918]                     base::loadNamespace(pkg)
  [13:37:22.918]                     base::library(pkg, character.only = TRUE)
  [13:37:22.918]                   }
  [13:37:22.918]                 })
  [13:37:22.918]             }
  [13:37:22.918]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:22.918]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:22.918]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:37:22.918]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:37:22.918]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:37:22.918]                 ...) 
  [13:37:22.918]             {
  [13:37:22.918]                 if (substitute) 
  [13:37:22.918]                   expr <- substitute(expr)
  [13:37:22.918]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:37:22.918]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:22.918]                   globals = globals, persistent = persistent, 
  [13:37:22.918]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:37:22.918]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:37:22.918]                   label = label, ...)
  [13:37:22.918]                 if (!future$lazy) 
  [13:37:22.918]                   future <- run(future)
  [13:37:22.918]                 invisible(future)
  [13:37:22.918]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:22.918]         }
  [13:37:22.918]     }
  [13:37:22.918]     if (base::is.na(TRUE)) {
  [13:37:22.918]     }
  [13:37:22.918]     else {
  [13:37:22.918]         if (TRUE) {
  [13:37:22.918]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:22.918]                 open = "w")
  [13:37:22.918]         }
  [13:37:22.918]         else {
  [13:37:22.918]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:22.918]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:22.918]         }
  [13:37:22.918]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:22.918]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:22.918]             base::sink(type = "output", split = FALSE)
  [13:37:22.918]             base::close(...future.stdout)
  [13:37:22.918]         }, add = TRUE)
  [13:37:22.918]     }
  [13:37:22.918]     ...future.frame <- base::sys.nframe()
  [13:37:22.918]     ...future.conditions <- base::list()
  [13:37:22.918]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:22.918]     ...future.result <- base::tryCatch({
  [13:37:22.918]         base::withCallingHandlers({
  [13:37:22.918]             ...future.value <- base::withVisible(base::local({
  [13:37:22.918]                 doFuture::registerDoFuture()
  [13:37:22.918]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:22.918]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:22.918]                   {
  [13:37:22.918]                     a <- NULL
  [13:37:22.918]                     b <- NULL
  [13:37:22.918]                   }
  [13:37:22.918]                   ...future.env <- environment()
  [13:37:22.918]                   local({
  [13:37:22.918]                     for (name in names(...future.x_jj)) {
  [13:37:22.918]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:22.918]                         inherits = FALSE)
  [13:37:22.918]                     }
  [13:37:22.918]                   })
  [13:37:22.918]                   tryCatch({
  [13:37:22.918]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:22.918]                       plan = future::plan("next"))
  [13:37:22.918]                   }, error = identity)
  [13:37:22.918]                 })
  [13:37:22.918]             }))
  [13:37:22.918]             future::FutureResult(value = ...future.value$value, 
  [13:37:22.918]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:22.918]                   ...future.rng), started = ...future.startTime, 
  [13:37:22.918]                 version = "1.8")
  [13:37:22.918]         }, condition = base::local({
  [13:37:22.918]             c <- base::c
  [13:37:22.918]             inherits <- base::inherits
  [13:37:22.918]             invokeRestart <- base::invokeRestart
  [13:37:22.918]             length <- base::length
  [13:37:22.918]             list <- base::list
  [13:37:22.918]             seq.int <- base::seq.int
  [13:37:22.918]             signalCondition <- base::signalCondition
  [13:37:22.918]             sys.calls <- base::sys.calls
  [13:37:22.918]             Sys.time <- base::Sys.time
  [13:37:22.918]             `[[` <- base::`[[`
  [13:37:22.918]             `+` <- base::`+`
  [13:37:22.918]             `<<-` <- base::`<<-`
  [13:37:22.918]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:22.918]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:22.918]                   3L)]
  [13:37:22.918]             }
  [13:37:22.918]             function(cond) {
  [13:37:22.918]                 if (inherits(cond, "error")) {
  [13:37:22.918]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:22.918]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:22.918]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:22.918]                   signalCondition(cond)
  [13:37:22.918]                 }
  [13:37:22.918]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:37:22.918]                 ))) {
  [13:37:22.918]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:37:22.918]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:22.918]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:22.918]                   if (!signal) {
  [13:37:22.918]                     muffleCondition <- function (cond) 
  [13:37:22.918]                     {
  [13:37:22.918]                       inherits <- base::inherits
  [13:37:22.918]                       invokeRestart <- base::invokeRestart
  [13:37:22.918]                       muffled <- FALSE
  [13:37:22.918]                       if (inherits(cond, "message")) {
  [13:37:22.918]                         invokeRestart("muffleMessage")
  [13:37:22.918]                         muffled <- TRUE
  [13:37:22.918]                       }
  [13:37:22.918]                       else if (inherits(cond, "warning")) {
  [13:37:22.918]                         invokeRestart("muffleWarning")
  [13:37:22.918]                         muffled <- TRUE
  [13:37:22.918]                       }
  [13:37:22.918]                       else if (inherits(cond, "condition")) {
  [13:37:22.918]                         computeRestarts <- base::computeRestarts
  [13:37:22.918]                         grepl <- base::grepl
  [13:37:22.918]                         is.null <- base::is.null
  [13:37:22.918]                         restarts <- computeRestarts(cond)
  [13:37:22.918]                         for (restart in restarts) {
  [13:37:22.918]                           name <- restart$name
  [13:37:22.918]                           if (is.null(name)) 
  [13:37:22.918]                             next
  [13:37:22.918]                           if (!grepl("^muffle", name)) 
  [13:37:22.918]                             next
  [13:37:22.918]                           invokeRestart(restart)
  [13:37:22.918]                           muffled <- TRUE
  [13:37:22.918]                           break
  [13:37:22.918]                         }
  [13:37:22.918]                       }
  [13:37:22.918]                       invisible(muffled)
  [13:37:22.918]                     }
  [13:37:22.918]                     muffleCondition(cond)
  [13:37:22.918]                   }
  [13:37:22.918]                 }
  [13:37:22.918]             }
  [13:37:22.918]         }))
  [13:37:22.918]     }, error = function(ex) {
  [13:37:22.918]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:22.918]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:22.918]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:22.918]     }, finally = {
  [13:37:22.918]         {
  [13:37:22.918]             NULL
  [13:37:22.918]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:37:22.918]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:22.918]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:37:22.918]                 label = NULL, ...) 
  [13:37:22.918]             {
  [13:37:22.918]                 if (substitute) 
  [13:37:22.918]                   expr <- substitute(expr)
  [13:37:22.918]                 local <- as.logical(local)
  [13:37:22.918]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:37:22.918]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:22.918]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:37:22.918]                   label = label, ...)
  [13:37:22.918]                 if (!future$lazy) 
  [13:37:22.918]                   future <- run(future)
  [13:37:22.918]                 invisible(future)
  [13:37:22.918]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:37:22.918]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:37:22.918]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [13:37:22.918]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:37:22.918]                 label = NULL, ...) 
  [13:37:22.918]             {
  [13:37:22.918]                 if (substitute) 
  [13:37:22.918]                   expr <- substitute(expr)
  [13:37:22.918]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:37:22.918]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:22.918]                   globals = globals, persistent = persistent, 
  [13:37:22.918]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:37:22.918]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:37:22.918]                   label = label, ...)
  [13:37:22.918]                 if (!future$lazy) 
  [13:37:22.918]                   future <- run(future)
  [13:37:22.918]                 invisible(future)
  [13:37:22.918]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:22.918]         }
  [13:37:22.918]         base::options(...future.oldOptions)
  [13:37:22.918]     })
  [13:37:22.918]     Sys.time
  [13:37:22.918]     if (base::is.na(TRUE)) {
  [13:37:22.918]     }
  [13:37:22.918]     else {
  [13:37:22.918]         base::sink(type = "output", split = FALSE)
  [13:37:22.918]         if (TRUE) {
  [13:37:22.918]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:22.918]         }
  [13:37:22.918]         else {
  [13:37:22.918]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:22.918]         }
  [13:37:22.918]         base::close(...future.stdout)
  [13:37:22.918]         ...future.stdout <- NULL
  [13:37:22.918]     }
  [13:37:22.918]     ...future.result$conditions <- ...future.conditions
  [13:37:22.918]     ...future.result
  [13:37:22.918] }
  [13:37:22.925] plan(): Setting new future strategy stack:
  [13:37:22.926] List of future strategies:
  [13:37:22.926] 1. cluster:
  [13:37:22.926]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:37:22.926]    - tweaked: FALSE
  [13:37:22.926]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:22.929] plan(): nbrOfWorkers() = 2
  [13:37:22.931] plan(): Setting new future strategy stack:
  [13:37:22.932] List of future strategies:
  [13:37:22.932] 1. sequential:
  [13:37:22.932]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:22.932]    - tweaked: FALSE
  [13:37:22.932]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:22.932] 2. cluster:
  [13:37:22.932]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:37:22.932]    - tweaked: FALSE
  [13:37:22.932]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:22.933] plan(): nbrOfWorkers() = 1
  [13:37:22.934] SequentialFuture started (and completed)
  [13:37:22.934] Chunk #1 of 1 ... DONE
  [13:37:22.935] Launching 1 futures (chunks) ... DONE
  [13:37:22.935] - resolving futures
  [13:37:22.935]   - gathering results & relaying conditions (except errors)
  [13:37:22.935] resolve() on list ...
  [13:37:22.936]  recursive: 0
  [13:37:22.936]  length: 1
  [13:37:22.936] 
  [13:37:22.937] Future #1
  [13:37:22.937] signalConditionsASAP(SequentialFuture, pos=1) ...
  [13:37:22.937] - nx: 1
  [13:37:22.938] - relay: TRUE
  [13:37:22.938] - stdout: TRUE
  [13:37:22.938] - signal: TRUE
  [13:37:22.939] - resignal: FALSE
  [13:37:22.939] - force: FALSE
  [13:37:22.939] - relayed: [n=1] FALSE
  [13:37:22.939] - queued futures: [n=1] FALSE
  [13:37:22.940]  - until=1
  [13:37:22.940]  - relaying element #1
  [13:37:22.941] - relayed: [n=1] TRUE
  [13:37:22.941] - queued futures: [n=1] TRUE
  [13:37:22.941] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [13:37:22.942]  length: 0 (resolved future 1)
  [13:37:22.942] Relaying remaining futures
  [13:37:22.942] signalConditionsASAP(NULL, pos=0) ...
  [13:37:22.943] - nx: 1
  [13:37:22.943] - relay: TRUE
  [13:37:22.943] - stdout: TRUE
  [13:37:22.943] - signal: TRUE
  [13:37:22.944] - resignal: FALSE
  [13:37:22.944] - force: FALSE
  [13:37:22.944] - relayed: [n=1] TRUE
  [13:37:22.945] - queued futures: [n=1] TRUE
   - flush all
  [13:37:22.945] - relayed: [n=1] TRUE
  [13:37:22.946] - queued futures: [n=1] TRUE
  [13:37:22.946] signalConditionsASAP(NULL, pos=0) ... done
  [13:37:22.946] resolve() on list ... DONE
  [13:37:22.946] - collecting values of futures
  [13:37:22.947] - accumulating results
  [13:37:22.950] - processing errors (handler = 'stop')
  [13:37:22.950] - extracting results
  [13:37:22.950] doFuture() ... DONE
  - plan(list('sequential', 'cluster')) ... DONE
  - plan(list('multicore', 'sequential')) ...
  [13:37:22.952] plan(): Setting new future strategy stack:
  [13:37:22.952] List of future strategies:
  [13:37:22.952] 1. multicore:
  [13:37:22.952]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:37:22.952]    - tweaked: FALSE
  [13:37:22.952]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:22.952] 2. sequential:
  [13:37:22.952]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:22.952]    - tweaked: FALSE
  [13:37:22.952]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:22.954] plan(): nbrOfWorkers() = 2
  [13:37:22.955] doFuture() ...
  [13:37:22.959] - dummy globals (as locals): [2] 'a', 'b'
  [13:37:22.960] - R expression:
  [13:37:22.960] {
  [13:37:22.960]     doFuture::registerDoFuture()
  [13:37:22.960]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:22.960]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:22.960]         {
  [13:37:22.960]             a <- NULL
  [13:37:22.960]             b <- NULL
  [13:37:22.960]         }
  [13:37:22.960]         ...future.env <- environment()
  [13:37:22.960]         local({
  [13:37:22.960]             for (name in names(...future.x_jj)) {
  [13:37:22.960]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:22.960]                   inherits = FALSE)
  [13:37:22.960]             }
  [13:37:22.960]         })
  [13:37:22.960]         tryCatch({
  [13:37:22.960]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:22.960]                 plan = future::plan("next"))
  [13:37:22.960]         }, error = identity)
  [13:37:22.960]     })
  [13:37:22.960] }
  [13:37:22.961] - identifying globals and packages ...
  [13:37:22.962] getGlobalsAndPackages() ...
  [13:37:22.962] Searching for globals...
  [13:37:22.981] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [13:37:22.982] Searching for globals ... DONE
  [13:37:22.982] Resolving globals: FALSE
  [13:37:22.984] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:37:22.984] - globals: [1] '...future.x_ii'
  [13:37:22.984] 
  [13:37:22.985] getGlobalsAndPackages() ... DONE
  [13:37:22.985] List of 1
  [13:37:22.985]  $ ...future.x_ii: NULL
  [13:37:22.985]  - attr(*, "where")=List of 1
  [13:37:22.985]   ..$ ...future.x_ii:<environment: 0x5647c76ee268> 
  [13:37:22.985]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:22.985]  - attr(*, "resolved")= logi FALSE
  [13:37:22.985]  - attr(*, "total_size")= num 0
  [13:37:22.991]   - R expression:
  [13:37:22.992] {
  [13:37:22.992]     doFuture::registerDoFuture()
  [13:37:22.992]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:22.992]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:22.992]         {
  [13:37:22.992]             a <- NULL
  [13:37:22.992]             b <- NULL
  [13:37:22.992]         }
  [13:37:22.992]         ...future.env <- environment()
  [13:37:22.992]         local({
  [13:37:22.992]             for (name in names(...future.x_jj)) {
  [13:37:22.992]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:22.992]                   inherits = FALSE)
  [13:37:22.992]             }
  [13:37:22.992]         })
  [13:37:22.992]         tryCatch({
  [13:37:22.992]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:22.992]                 plan = future::plan("next"))
  [13:37:22.992]         }, error = identity)
  [13:37:22.992]     })
  [13:37:22.992] }
  [13:37:22.992]   - globals: [1] '...future.x_ii'
  [13:37:22.993] List of 1
  [13:37:22.993]  $ ...future.x_ii: NULL
  [13:37:22.993]  - attr(*, "where")=List of 1
  [13:37:22.993]   ..$ ...future.x_ii:<environment: 0x5647c76ee268> 
  [13:37:22.993]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:22.993]  - attr(*, "resolved")= logi FALSE
  [13:37:22.993]  - attr(*, "total_size")= num 0
  [13:37:22.999]   - packages: [1] 'doFuture'
  [13:37:22.999] - identifying globals and packages ... DONE
  [13:37:23.004] Number of chunks: 2
  [13:37:23.004] Number of futures (= number of chunks): 2
  [13:37:23.005] Launching 2 futures (chunks) ...
  [13:37:23.005] Chunk #1 of 2 ...
  [13:37:23.005]  - Finding globals in 'args_list' chunk #1 ...
  [13:37:23.006] getGlobalsAndPackages() ...
  [13:37:23.006] Searching for globals...
  [13:37:23.007] 
  [13:37:23.008] Searching for globals ... DONE
  [13:37:23.008] - globals: [0] <none>
  [13:37:23.008] getGlobalsAndPackages() ... DONE
  [13:37:23.008] 
  [13:37:23.009] 
  [13:37:23.009]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:37:23.010] getGlobalsAndPackages() ...
  [13:37:23.011] - globals passed as-is: [1] '...future.x_ii'
  [13:37:23.011] Resolving globals: FALSE
  [13:37:23.012] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:37:23.012] - globals: [1] '...future.x_ii'
  [13:37:23.013] 
  [13:37:23.013] getGlobalsAndPackages() ... DONE
  [13:37:23.016] Packages needed by the future expression (n = 1): 'doFuture'
  [13:37:23.017] Packages needed by future strategies (n = 1): 'future'
  [13:37:23.022] {
  [13:37:23.022]     {
  [13:37:23.022]         ...future.startTime <- base::Sys.time()
  [13:37:23.022]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:23.022]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:23.022]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:23.022]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:23.022]             future.resolve.recursive = NULL, width = 80L)
  [13:37:23.022]         {
  [13:37:23.022]             {
  [13:37:23.022]                 {
  [13:37:23.022]                   {
  [13:37:23.022]                     has_future <- base::requireNamespace("future", 
  [13:37:23.022]                       quietly = TRUE)
  [13:37:23.022]                     version <- if (has_future) 
  [13:37:23.022]                       utils::packageVersion("future")
  [13:37:23.022]                     else NULL
  [13:37:23.022]                     if (!has_future || version < "1.8.0") {
  [13:37:23.022]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:37:23.022]                         "", base::R.version$version.string), 
  [13:37:23.022]                         platform = base::sprintf("%s (%s-bit)", 
  [13:37:23.022]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:23.022]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:23.022]                           "release", "version")], collapse = " "), 
  [13:37:23.022]                         hostname = base::Sys.info()[["nodename"]])
  [13:37:23.022]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:23.022]                         info)
  [13:37:23.022]                       info <- base::paste(info, collapse = "; ")
  [13:37:23.022]                       if (!has_future) {
  [13:37:23.022]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:23.022]                           info)
  [13:37:23.022]                       }
  [13:37:23.022]                       else {
  [13:37:23.022]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:23.022]                           info, version)
  [13:37:23.022]                       }
  [13:37:23.022]                       base::stop(msg)
  [13:37:23.022]                     }
  [13:37:23.022]                   }
  [13:37:23.022]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:37:23.022]                   base::options(mc.cores = 1L)
  [13:37:23.022]                 }
  [13:37:23.022]                 base::local({
  [13:37:23.022]                   for (pkg in c("doFuture", "future")) {
  [13:37:23.022]                     base::loadNamespace(pkg)
  [13:37:23.022]                     base::library(pkg, character.only = TRUE)
  [13:37:23.022]                   }
  [13:37:23.022]                 })
  [13:37:23.022]             }
  [13:37:23.022]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:23.022]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:23.022]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:37:23.022]                 label = NULL, ...) 
  [13:37:23.022]             {
  [13:37:23.022]                 if (substitute) 
  [13:37:23.022]                   expr <- substitute(expr)
  [13:37:23.022]                 local <- as.logical(local)
  [13:37:23.022]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:37:23.022]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:23.022]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:37:23.022]                   label = label, ...)
  [13:37:23.022]                 if (!future$lazy) 
  [13:37:23.022]                   future <- run(future)
  [13:37:23.022]                 invisible(future)
  [13:37:23.022]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:23.022]         }
  [13:37:23.022]     }
  [13:37:23.022]     if (base::is.na(TRUE)) {
  [13:37:23.022]     }
  [13:37:23.022]     else {
  [13:37:23.022]         if (TRUE) {
  [13:37:23.022]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:23.022]                 open = "w")
  [13:37:23.022]         }
  [13:37:23.022]         else {
  [13:37:23.022]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:23.022]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:23.022]         }
  [13:37:23.022]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:23.022]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:23.022]             base::sink(type = "output", split = FALSE)
  [13:37:23.022]             base::close(...future.stdout)
  [13:37:23.022]         }, add = TRUE)
  [13:37:23.022]     }
  [13:37:23.022]     ...future.frame <- base::sys.nframe()
  [13:37:23.022]     ...future.conditions <- base::list()
  [13:37:23.022]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:23.022]     ...future.result <- base::tryCatch({
  [13:37:23.022]         base::withCallingHandlers({
  [13:37:23.022]             ...future.value <- base::withVisible(base::local({
  [13:37:23.022]                 doFuture::registerDoFuture()
  [13:37:23.022]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:23.022]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:23.022]                   {
  [13:37:23.022]                     a <- NULL
  [13:37:23.022]                     b <- NULL
  [13:37:23.022]                   }
  [13:37:23.022]                   ...future.env <- environment()
  [13:37:23.022]                   local({
  [13:37:23.022]                     for (name in names(...future.x_jj)) {
  [13:37:23.022]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:23.022]                         inherits = FALSE)
  [13:37:23.022]                     }
  [13:37:23.022]                   })
  [13:37:23.022]                   tryCatch({
  [13:37:23.022]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:23.022]                       plan = future::plan("next"))
  [13:37:23.022]                   }, error = identity)
  [13:37:23.022]                 })
  [13:37:23.022]             }))
  [13:37:23.022]             future::FutureResult(value = ...future.value$value, 
  [13:37:23.022]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:23.022]                   ...future.rng), started = ...future.startTime, 
  [13:37:23.022]                 version = "1.8")
  [13:37:23.022]         }, condition = base::local({
  [13:37:23.022]             c <- base::c
  [13:37:23.022]             inherits <- base::inherits
  [13:37:23.022]             invokeRestart <- base::invokeRestart
  [13:37:23.022]             length <- base::length
  [13:37:23.022]             list <- base::list
  [13:37:23.022]             seq.int <- base::seq.int
  [13:37:23.022]             signalCondition <- base::signalCondition
  [13:37:23.022]             sys.calls <- base::sys.calls
  [13:37:23.022]             Sys.time <- base::Sys.time
  [13:37:23.022]             `[[` <- base::`[[`
  [13:37:23.022]             `+` <- base::`+`
  [13:37:23.022]             `<<-` <- base::`<<-`
  [13:37:23.022]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:23.022]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:23.022]                   3L)]
  [13:37:23.022]             }
  [13:37:23.022]             function(cond) {
  [13:37:23.022]                 if (inherits(cond, "error")) {
  [13:37:23.022]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:23.022]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:23.022]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:23.022]                   signalCondition(cond)
  [13:37:23.022]                 }
  [13:37:23.022]                 else if (inherits(cond, "condition")) {
  [13:37:23.022]                   signal <- FALSE && inherits(cond, character(0))
  [13:37:23.022]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:23.022]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:23.022]                   if (!signal) {
  [13:37:23.022]                     muffleCondition <- function (cond) 
  [13:37:23.022]                     {
  [13:37:23.022]                       inherits <- base::inherits
  [13:37:23.022]                       invokeRestart <- base::invokeRestart
  [13:37:23.022]                       muffled <- FALSE
  [13:37:23.022]                       if (inherits(cond, "message")) {
  [13:37:23.022]                         invokeRestart("muffleMessage")
  [13:37:23.022]                         muffled <- TRUE
  [13:37:23.022]                       }
  [13:37:23.022]                       else if (inherits(cond, "warning")) {
  [13:37:23.022]                         invokeRestart("muffleWarning")
  [13:37:23.022]                         muffled <- TRUE
  [13:37:23.022]                       }
  [13:37:23.022]                       else if (inherits(cond, "condition")) {
  [13:37:23.022]                         computeRestarts <- base::computeRestarts
  [13:37:23.022]                         grepl <- base::grepl
  [13:37:23.022]                         is.null <- base::is.null
  [13:37:23.022]                         restarts <- computeRestarts(cond)
  [13:37:23.022]                         for (restart in restarts) {
  [13:37:23.022]                           name <- restart$name
  [13:37:23.022]                           if (is.null(name)) 
  [13:37:23.022]                             next
  [13:37:23.022]                           if (!grepl("^muffle", name)) 
  [13:37:23.022]                             next
  [13:37:23.022]                           invokeRestart(restart)
  [13:37:23.022]                           muffled <- TRUE
  [13:37:23.022]                           break
  [13:37:23.022]                         }
  [13:37:23.022]                       }
  [13:37:23.022]                       invisible(muffled)
  [13:37:23.022]                     }
  [13:37:23.022]                     muffleCondition(cond)
  [13:37:23.022]                   }
  [13:37:23.022]                 }
  [13:37:23.022]             }
  [13:37:23.022]         }))
  [13:37:23.022]     }, error = function(ex) {
  [13:37:23.022]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:23.022]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:23.022]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:23.022]     }, finally = {
  [13:37:23.022]         {
  [13:37:23.022]             {
  [13:37:23.022]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:37:23.022]             }
  [13:37:23.022]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:37:23.022]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:23.022]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:37:23.022]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:23.022]             {
  [13:37:23.022]                 if (substitute) 
  [13:37:23.022]                   expr <- substitute(expr)
  [13:37:23.022]                 if (is.function(workers)) 
  [13:37:23.022]                   workers <- workers()
  [13:37:23.022]                 workers <- as.integer(workers)
  [13:37:23.022]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:37:23.022]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:37:23.022]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:23.022]                     lazy = lazy, seed = seed, globals = globals, 
  [13:37:23.022]                     local = TRUE, label = label, ...))
  [13:37:23.022]                 }
  [13:37:23.022]                 oopts <- options(mc.cores = workers)
  [13:37:23.022]                 on.exit(options(oopts))
  [13:37:23.022]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:37:23.022]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:23.022]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:37:23.022]                   label = label, ...)
  [13:37:23.022]                 if (!future$lazy) 
  [13:37:23.022]                   future <- run(future)
  [13:37:23.022]                 invisible(future)
  [13:37:23.022]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:37:23.022]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [13:37:23.022]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:23.022]             {
  [13:37:23.022]                 if (substitute) 
  [13:37:23.022]                   expr <- substitute(expr)
  [13:37:23.022]                 local <- as.logical(local)
  [13:37:23.022]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:37:23.022]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:23.022]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:37:23.022]                   label = label, ...)
  [13:37:23.022]                 if (!future$lazy) 
  [13:37:23.022]                   future <- run(future)
  [13:37:23.022]                 invisible(future)
  [13:37:23.022]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:23.022]         }
  [13:37:23.022]         base::options(...future.oldOptions)
  [13:37:23.022]     })
  [13:37:23.022]     Sys.time
  [13:37:23.022]     if (base::is.na(TRUE)) {
  [13:37:23.022]     }
  [13:37:23.022]     else {
  [13:37:23.022]         base::sink(type = "output", split = FALSE)
  [13:37:23.022]         if (TRUE) {
  [13:37:23.022]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:23.022]         }
  [13:37:23.022]         else {
  [13:37:23.022]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:23.022]         }
  [13:37:23.022]         base::close(...future.stdout)
  [13:37:23.022]         ...future.stdout <- NULL
  [13:37:23.022]     }
  [13:37:23.022]     ...future.result$conditions <- ...future.conditions
  [13:37:23.022]     ...future.result
  [13:37:23.022] }
  [13:37:23.028] requestCore(): workers = 2
  [13:37:23.033] MulticoreFuture started
  [13:37:23.034] Chunk #1 of 2 ... DONE
  [13:37:23.034] Chunk #2 of 2 ...
  [13:37:23.035]  - Finding globals in 'args_list' chunk #2 ...
  [13:37:23.035] getGlobalsAndPackages() ...
  [13:37:23.036] Searching for globals...
  [13:37:23.037] 
  [13:37:23.038] Searching for globals ... DONE
  [13:37:23.038] - globals: [0] <none>
  [13:37:23.038] getGlobalsAndPackages() ... DONE
  [13:37:23.039] 
  [13:37:23.039] 
  [13:37:23.039]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:37:23.041] getGlobalsAndPackages() ...
  [13:37:23.042] - globals passed as-is: [1] '...future.x_ii'
  [13:37:23.042] Resolving globals: FALSE
  [13:37:23.043] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:37:23.044] - globals: [1] '...future.x_ii'
  [13:37:23.044] 
  [13:37:23.045] getGlobalsAndPackages() ... DONE
  [13:37:23.048] Packages needed by the future expression (n = 1): 'doFuture'
  [13:37:23.049] Packages needed by future strategies (n = 1): 'future'
  [13:37:23.051] plan(): Setting new future strategy stack:
  [13:37:23.052] List of future strategies:
  [13:37:23.052] 1. sequential:
  [13:37:23.052]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:23.052]    - tweaked: FALSE
  [13:37:23.052]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.053] plan(): nbrOfWorkers() = 1
  [13:37:23.056] plan(): Setting new future strategy stack:
  [13:37:23.056] List of future strategies:
  [13:37:23.056] 1. multicore:
  [13:37:23.056]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:37:23.056]    - tweaked: FALSE
  [13:37:23.056]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.056] 2. sequential:
  [13:37:23.056]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:23.056]    - tweaked: FALSE
  [13:37:23.056]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.058] plan(): nbrOfWorkers() = 2
  [13:37:23.056] {
  [13:37:23.056]     {
  [13:37:23.056]         ...future.startTime <- base::Sys.time()
  [13:37:23.056]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:23.056]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:23.056]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:23.056]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:23.056]             future.resolve.recursive = NULL, width = 80L)
  [13:37:23.056]         {
  [13:37:23.056]             {
  [13:37:23.056]                 {
  [13:37:23.056]                   {
  [13:37:23.056]                     has_future <- base::requireNamespace("future", 
  [13:37:23.056]                       quietly = TRUE)
  [13:37:23.056]                     version <- if (has_future) 
  [13:37:23.056]                       utils::packageVersion("future")
  [13:37:23.056]                     else NULL
  [13:37:23.056]                     if (!has_future || version < "1.8.0") {
  [13:37:23.056]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:37:23.056]                         "", base::R.version$version.string), 
  [13:37:23.056]                         platform = base::sprintf("%s (%s-bit)", 
  [13:37:23.056]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:23.056]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:23.056]                           "release", "version")], collapse = " "), 
  [13:37:23.056]                         hostname = base::Sys.info()[["nodename"]])
  [13:37:23.056]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:23.056]                         info)
  [13:37:23.056]                       info <- base::paste(info, collapse = "; ")
  [13:37:23.056]                       if (!has_future) {
  [13:37:23.056]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:23.056]                           info)
  [13:37:23.056]                       }
  [13:37:23.056]                       else {
  [13:37:23.056]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:23.056]                           info, version)
  [13:37:23.056]                       }
  [13:37:23.056]                       base::stop(msg)
  [13:37:23.056]                     }
  [13:37:23.056]                   }
  [13:37:23.056]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:37:23.056]                   base::options(mc.cores = 1L)
  [13:37:23.056]                 }
  [13:37:23.056]                 base::local({
  [13:37:23.056]                   for (pkg in c("doFuture", "future")) {
  [13:37:23.056]                     base::loadNamespace(pkg)
  [13:37:23.056]                     base::library(pkg, character.only = TRUE)
  [13:37:23.056]                   }
  [13:37:23.056]                 })
  [13:37:23.056]             }
  [13:37:23.056]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:23.056]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:23.056]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:37:23.056]                 label = NULL, ...) 
  [13:37:23.056]             {
  [13:37:23.056]                 if (substitute) 
  [13:37:23.056]                   expr <- substitute(expr)
  [13:37:23.056]                 local <- as.logical(local)
  [13:37:23.056]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:37:23.056]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:23.056]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:37:23.056]                   label = label, ...)
  [13:37:23.056]                 if (!future$lazy) 
  [13:37:23.056]                   future <- run(future)
  [13:37:23.056]                 invisible(future)
  [13:37:23.056]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:23.056]         }
  [13:37:23.056]     }
  [13:37:23.056]     if (base::is.na(TRUE)) {
  [13:37:23.056]     }
  [13:37:23.056]     else {
  [13:37:23.056]         if (TRUE) {
  [13:37:23.056]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:23.056]                 open = "w")
  [13:37:23.056]         }
  [13:37:23.056]         else {
  [13:37:23.056]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:23.056]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:23.056]         }
  [13:37:23.056]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:23.056]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:23.056]             base::sink(type = "output", split = FALSE)
  [13:37:23.056]             base::close(...future.stdout)
  [13:37:23.056]         }, add = TRUE)
  [13:37:23.056]     }
  [13:37:23.056]     ...future.frame <- base::sys.nframe()
  [13:37:23.056]     ...future.conditions <- base::list()
  [13:37:23.056]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:23.056]     ...future.result <- base::tryCatch({
  [13:37:23.056]         base::withCallingHandlers({
  [13:37:23.056]             ...future.value <- base::withVisible(base::local({
  [13:37:23.056]                 doFuture::registerDoFuture()
  [13:37:23.056]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:23.056]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:23.056]                   {
  [13:37:23.056]                     a <- NULL
  [13:37:23.056]                     b <- NULL
  [13:37:23.056]                   }
  [13:37:23.056]                   ...future.env <- environment()
  [13:37:23.056]                   local({
  [13:37:23.056]                     for (name in names(...future.x_jj)) {
  [13:37:23.056]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:23.056]                         inherits = FALSE)
  [13:37:23.056]                     }
  [13:37:23.056]                   })
  [13:37:23.056]                   tryCatch({
  [13:37:23.056]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:23.056]                       plan = future::plan("next"))
  [13:37:23.056]                   }, error = identity)
  [13:37:23.056]                 })
  [13:37:23.056]             }))
  [13:37:23.056]             future::FutureResult(value = ...future.value$value, 
  [13:37:23.056]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:23.056]                   ...future.rng), started = ...future.startTime, 
  [13:37:23.056]                 version = "1.8")
  [13:37:23.056]         }, condition = base::local({
  [13:37:23.056]             c <- base::c
  [13:37:23.056]             inherits <- base::inherits
  [13:37:23.056]             invokeRestart <- base::invokeRestart
  [13:37:23.056]             length <- base::length
  [13:37:23.056]             list <- base::list
  [13:37:23.056]             seq.int <- base::seq.int
  [13:37:23.056]             signalCondition <- base::signalCondition
  [13:37:23.056]             sys.calls <- base::sys.calls
  [13:37:23.056]             Sys.time <- base::Sys.time
  [13:37:23.056]             `[[` <- base::`[[`
  [13:37:23.056]             `+` <- base::`+`
  [13:37:23.056]             `<<-` <- base::`<<-`
  [13:37:23.056]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:23.056]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:23.056]                   3L)]
  [13:37:23.056]             }
  [13:37:23.056]             function(cond) {
  [13:37:23.056]                 if (inherits(cond, "error")) {
  [13:37:23.056]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:23.056]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:23.056]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:23.056]                   signalCondition(cond)
  [13:37:23.056]                 }
  [13:37:23.056]                 else if (inherits(cond, "condition")) {
  [13:37:23.056]                   signal <- FALSE && inherits(cond, character(0))
  [13:37:23.056]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:23.056]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:23.056]                   if (!signal) {
  [13:37:23.056]                     muffleCondition <- function (cond) 
  [13:37:23.056]                     {
  [13:37:23.056]                       inherits <- base::inherits
  [13:37:23.056]                       invokeRestart <- base::invokeRestart
  [13:37:23.056]                       muffled <- FALSE
  [13:37:23.056]                       if (inherits(cond, "message")) {
  [13:37:23.056]                         invokeRestart("muffleMessage")
  [13:37:23.056]                         muffled <- TRUE
  [13:37:23.056]                       }
  [13:37:23.056]                       else if (inherits(cond, "warning")) {
  [13:37:23.056]                         invokeRestart("muffleWarning")
  [13:37:23.056]                         muffled <- TRUE
  [13:37:23.056]                       }
  [13:37:23.056]                       else if (inherits(cond, "condition")) {
  [13:37:23.056]                         computeRestarts <- base::computeRestarts
  [13:37:23.056]                         grepl <- base::grepl
  [13:37:23.056]                         is.null <- base::is.null
  [13:37:23.056]                         restarts <- computeRestarts(cond)
  [13:37:23.056]                         for (restart in restarts) {
  [13:37:23.056]                           name <- restart$name
  [13:37:23.056]                           if (is.null(name)) 
  [13:37:23.056]                             next
  [13:37:23.056]                           if (!grepl("^muffle", name)) 
  [13:37:23.056]                             next
  [13:37:23.056]                           invokeRestart(restart)
  [13:37:23.056]                           muffled <- TRUE
  [13:37:23.056]                           break
  [13:37:23.056]                         }
  [13:37:23.056]                       }
  [13:37:23.056]                       invisible(muffled)
  [13:37:23.056]                     }
  [13:37:23.056]                     muffleCondition(cond)
  [13:37:23.056]                   }
  [13:37:23.056]                 }
  [13:37:23.056]             }
  [13:37:23.056]         }))
  [13:37:23.056]     }, error = function(ex) {
  [13:37:23.056]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:23.056]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:23.056]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:23.056]     }, finally = {
  [13:37:23.056]         {
  [13:37:23.056]             {
  [13:37:23.056]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:37:23.056]             }
  [13:37:23.056]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:37:23.056]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:23.056]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:37:23.056]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:23.056]             {
  [13:37:23.056]                 if (substitute) 
  [13:37:23.056]                   expr <- substitute(expr)
  [13:37:23.056]                 if (is.function(workers)) 
  [13:37:23.056]                   workers <- workers()
  [13:37:23.056]                 workers <- as.integer(workers)
  [13:37:23.056]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:37:23.056]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:37:23.056]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:23.056]                     lazy = lazy, seed = seed, globals = globals, 
  [13:37:23.056]                     local = TRUE, label = label, ...))
  [13:37:23.056]                 }
  [13:37:23.056]                 oopts <- options(mc.cores = workers)
  [13:37:23.056]                 on.exit(options(oopts))
  [13:37:23.056]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:37:23.056]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:23.056]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:37:23.056]                   label = label, ...)
  [13:37:23.056]                 if (!future$lazy) 
  [13:37:23.056]                   future <- run(future)
  [13:37:23.056]                 invisible(future)
  [13:37:23.056]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:37:23.056]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [13:37:23.056]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:23.056]             {
  [13:37:23.056]                 if (substitute) 
  [13:37:23.056]                   expr <- substitute(expr)
  [13:37:23.056]                 local <- as.logical(local)
  [13:37:23.056]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:37:23.056]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:23.056]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:37:23.056]                   label = label, ...)
  [13:37:23.056]                 if (!future$lazy) 
  [13:37:23.056]                   future <- run(future)
  [13:37:23.056]                 invisible(future)
  [13:37:23.056]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:23.056]         }
  [13:37:23.056]         base::options(...future.oldOptions)
  [13:37:23.056]     })
  [13:37:23.056]     Sys.time
  [13:37:23.056]     if (base::is.na(TRUE)) {
  [13:37:23.056]     }
  [13:37:23.056]     else {
  [13:37:23.056]         base::sink(type = "output", split = FALSE)
  [13:37:23.056]         if (TRUE) {
  [13:37:23.056]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:23.056]         }
  [13:37:23.056]         else {
  [13:37:23.056]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:23.056]         }
  [13:37:23.056]         base::close(...future.stdout)
  [13:37:23.056]         ...future.stdout <- NULL
  [13:37:23.056]     }
  [13:37:23.056]     ...future.result$conditions <- ...future.conditions
  [13:37:23.056]     ...future.result
  [13:37:23.056] }
  [13:37:23.062] requestCore(): workers = 2
  [13:37:23.083] MulticoreFuture started
  [13:37:23.084] Chunk #2 of 2 ... DONE
  [13:37:23.084] Launching 2 futures (chunks) ... DONE
  [13:37:23.085] - resolving futures
  [13:37:23.085]   - gathering results & relaying conditions (except errors)
  [13:37:23.085] resolve() on list ...
  [13:37:23.086]  recursive: 0
  [13:37:23.086]  length: 2
  [13:37:23.087] 
  [13:37:23.090] Future #1
  [13:37:23.097] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [13:37:23.098] - nx: 2
  [13:37:23.098] - relay: TRUE
  [13:37:23.098] - stdout: TRUE
  [13:37:23.099] - signal: TRUE
  [13:37:23.099] plan(): Setting new future strategy stack:
  [13:37:23.099] - resignal: FALSE
  [13:37:23.099] - force: FALSE
  [13:37:23.100] - relayed: [n=2] FALSE, FALSE
  [13:37:23.100] - queued futures: [n=2] FALSE, FALSE
  [13:37:23.099] List of future strategies:
  [13:37:23.099] 1. sequential:
  [13:37:23.099]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:23.099]    - tweaked: FALSE
  [13:37:23.099]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.101]  - until=1
  [13:37:23.101] plan(): nbrOfWorkers() = 1
  [13:37:23.101]  - relaying element #1
  [13:37:23.102] - relayed: [n=2] TRUE, FALSE
  [13:37:23.102] - queued futures: [n=2] TRUE, FALSE
  [13:37:23.103] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [13:37:23.103] plan(): Setting new future strategy stack:
  [13:37:23.103]  length: 1 (resolved future 1)
  [13:37:23.104] List of future strategies:
  [13:37:23.104] 1. multicore:
  [13:37:23.104]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:37:23.104]    - tweaked: FALSE
  [13:37:23.104]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.104] 2. sequential:
  [13:37:23.104]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:23.104]    - tweaked: FALSE
  [13:37:23.104]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.106] plan(): nbrOfWorkers() = 2
  [13:37:23.107] Future #2
  [13:37:23.110] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [13:37:23.110] - nx: 2
  [13:37:23.111] - relay: TRUE
  [13:37:23.111] - stdout: TRUE
  [13:37:23.112] - signal: TRUE
  [13:37:23.112] - resignal: FALSE
  [13:37:23.112] - force: FALSE
  [13:37:23.113] - relayed: [n=2] TRUE, FALSE
  [13:37:23.113] - queued futures: [n=2] TRUE, FALSE
  [13:37:23.114]  - until=2
  [13:37:23.114]  - relaying element #2
  [13:37:23.115] - relayed: [n=2] TRUE, TRUE
  [13:37:23.115] - queued futures: [n=2] TRUE, TRUE
  [13:37:23.115] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [13:37:23.116]  length: 0 (resolved future 2)
  [13:37:23.116] Relaying remaining futures
  [13:37:23.117] signalConditionsASAP(NULL, pos=0) ...
  [13:37:23.117] - nx: 2
  [13:37:23.117] - relay: TRUE
  [13:37:23.118] - stdout: TRUE
  [13:37:23.118] - signal: TRUE
  [13:37:23.118] - resignal: FALSE
  [13:37:23.119] - force: FALSE
  [13:37:23.119] - relayed: [n=2] TRUE, TRUE
  [13:37:23.120] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [13:37:23.120] - relayed: [n=2] TRUE, TRUE
  [13:37:23.121] - queued futures: [n=2] TRUE, TRUE
  [13:37:23.121] signalConditionsASAP(NULL, pos=0) ... done
  [13:37:23.121] resolve() on list ... DONE
  [13:37:23.122] - collecting values of futures
  [13:37:23.124] - accumulating results
  [13:37:23.127] - processing errors (handler = 'stop')
  [13:37:23.127] - extracting results
  [13:37:23.128] doFuture() ... DONE
  - plan(list('multicore', 'sequential')) ... DONE
  - plan(list('multicore', 'multicore')) ...
  [13:37:23.129] plan(): Setting new future strategy stack:
  [13:37:23.129] List of future strategies:
  [13:37:23.129] 1. multicore:
  [13:37:23.129]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:37:23.129]    - tweaked: FALSE
  [13:37:23.129]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.129] 2. multicore:
  [13:37:23.129]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:37:23.129]    - tweaked: FALSE
  [13:37:23.129]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.132] plan(): nbrOfWorkers() = 2
  [13:37:23.133] doFuture() ...
  [13:37:23.137] - dummy globals (as locals): [2] 'a', 'b'
  [13:37:23.139] - R expression:
  [13:37:23.139] {
  [13:37:23.139]     doFuture::registerDoFuture()
  [13:37:23.139]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:23.139]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:23.139]         {
  [13:37:23.139]             a <- NULL
  [13:37:23.139]             b <- NULL
  [13:37:23.139]         }
  [13:37:23.139]         ...future.env <- environment()
  [13:37:23.139]         local({
  [13:37:23.139]             for (name in names(...future.x_jj)) {
  [13:37:23.139]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:23.139]                   inherits = FALSE)
  [13:37:23.139]             }
  [13:37:23.139]         })
  [13:37:23.139]         tryCatch({
  [13:37:23.139]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:23.139]                 plan = future::plan("next"))
  [13:37:23.139]         }, error = identity)
  [13:37:23.139]     })
  [13:37:23.139] }
  [13:37:23.140] - identifying globals and packages ...
  [13:37:23.140] getGlobalsAndPackages() ...
  [13:37:23.141] Searching for globals...
  [13:37:23.162] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [13:37:23.163] Searching for globals ... DONE
  [13:37:23.163] Resolving globals: FALSE
  [13:37:23.165] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:37:23.165] - globals: [1] '...future.x_ii'
  [13:37:23.166] 
  [13:37:23.166] getGlobalsAndPackages() ... DONE
  [13:37:23.167] List of 1
  [13:37:23.167]  $ ...future.x_ii: NULL
  [13:37:23.167]  - attr(*, "where")=List of 1
  [13:37:23.167]   ..$ ...future.x_ii:<environment: 0x5647c75cf850> 
  [13:37:23.167]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:23.167]  - attr(*, "resolved")= logi FALSE
  [13:37:23.167]  - attr(*, "total_size")= num 0
  [13:37:23.173]   - R expression:
  [13:37:23.173] {
  [13:37:23.173]     doFuture::registerDoFuture()
  [13:37:23.173]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:23.173]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:23.173]         {
  [13:37:23.173]             a <- NULL
  [13:37:23.173]             b <- NULL
  [13:37:23.173]         }
  [13:37:23.173]         ...future.env <- environment()
  [13:37:23.173]         local({
  [13:37:23.173]             for (name in names(...future.x_jj)) {
  [13:37:23.173]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:23.173]                   inherits = FALSE)
  [13:37:23.173]             }
  [13:37:23.173]         })
  [13:37:23.173]         tryCatch({
  [13:37:23.173]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:23.173]                 plan = future::plan("next"))
  [13:37:23.173]         }, error = identity)
  [13:37:23.173]     })
  [13:37:23.173] }
  [13:37:23.174]   - globals: [1] '...future.x_ii'
  [13:37:23.175] List of 1
  [13:37:23.175]  $ ...future.x_ii: NULL
  [13:37:23.175]  - attr(*, "where")=List of 1
  [13:37:23.175]   ..$ ...future.x_ii:<environment: 0x5647c75cf850> 
  [13:37:23.175]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:23.175]  - attr(*, "resolved")= logi FALSE
  [13:37:23.175]  - attr(*, "total_size")= num 0
  [13:37:23.181]   - packages: [1] 'doFuture'
  [13:37:23.181] - identifying globals and packages ... DONE
  [13:37:23.182] Number of chunks: 2
  [13:37:23.183] Number of futures (= number of chunks): 2
  [13:37:23.184] Launching 2 futures (chunks) ...
  [13:37:23.184] Chunk #1 of 2 ...
  [13:37:23.184]  - Finding globals in 'args_list' chunk #1 ...
  [13:37:23.184] getGlobalsAndPackages() ...
  [13:37:23.185] Searching for globals...
  [13:37:23.186] 
  [13:37:23.186] Searching for globals ... DONE
  [13:37:23.186] - globals: [0] <none>
  [13:37:23.187] getGlobalsAndPackages() ... DONE
  [13:37:23.187] 
  [13:37:23.187] 
  [13:37:23.187]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:37:23.188] getGlobalsAndPackages() ...
  [13:37:23.189] - globals passed as-is: [1] '...future.x_ii'
  [13:37:23.189] Resolving globals: FALSE
  [13:37:23.190] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:37:23.190] - globals: [1] '...future.x_ii'
  [13:37:23.191] 
  [13:37:23.191] getGlobalsAndPackages() ... DONE
  [13:37:23.193] Packages needed by the future expression (n = 1): 'doFuture'
  [13:37:23.194] Packages needed by future strategies (n = 1): 'future'
  [13:37:23.200] {
  [13:37:23.200]     {
  [13:37:23.200]         ...future.startTime <- base::Sys.time()
  [13:37:23.200]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:23.200]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:23.200]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:23.200]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:23.200]             future.resolve.recursive = NULL, width = 80L)
  [13:37:23.200]         {
  [13:37:23.200]             {
  [13:37:23.200]                 {
  [13:37:23.200]                   {
  [13:37:23.200]                     has_future <- base::requireNamespace("future", 
  [13:37:23.200]                       quietly = TRUE)
  [13:37:23.200]                     version <- if (has_future) 
  [13:37:23.200]                       utils::packageVersion("future")
  [13:37:23.200]                     else NULL
  [13:37:23.200]                     if (!has_future || version < "1.8.0") {
  [13:37:23.200]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:37:23.200]                         "", base::R.version$version.string), 
  [13:37:23.200]                         platform = base::sprintf("%s (%s-bit)", 
  [13:37:23.200]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:23.200]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:23.200]                           "release", "version")], collapse = " "), 
  [13:37:23.200]                         hostname = base::Sys.info()[["nodename"]])
  [13:37:23.200]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:23.200]                         info)
  [13:37:23.200]                       info <- base::paste(info, collapse = "; ")
  [13:37:23.200]                       if (!has_future) {
  [13:37:23.200]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:23.200]                           info)
  [13:37:23.200]                       }
  [13:37:23.200]                       else {
  [13:37:23.200]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:23.200]                           info, version)
  [13:37:23.200]                       }
  [13:37:23.200]                       base::stop(msg)
  [13:37:23.200]                     }
  [13:37:23.200]                   }
  [13:37:23.200]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:37:23.200]                   base::options(mc.cores = 1L)
  [13:37:23.200]                 }
  [13:37:23.200]                 base::local({
  [13:37:23.200]                   for (pkg in c("doFuture", "future")) {
  [13:37:23.200]                     base::loadNamespace(pkg)
  [13:37:23.200]                     base::library(pkg, character.only = TRUE)
  [13:37:23.200]                   }
  [13:37:23.200]                 })
  [13:37:23.200]             }
  [13:37:23.200]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:23.200]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:23.200]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:37:23.200]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:23.200]             {
  [13:37:23.200]                 if (substitute) 
  [13:37:23.200]                   expr <- substitute(expr)
  [13:37:23.200]                 if (is.function(workers)) 
  [13:37:23.200]                   workers <- workers()
  [13:37:23.200]                 workers <- as.integer(workers)
  [13:37:23.200]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:37:23.200]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:37:23.200]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:23.200]                     lazy = lazy, seed = seed, globals = globals, 
  [13:37:23.200]                     local = TRUE, label = label, ...))
  [13:37:23.200]                 }
  [13:37:23.200]                 oopts <- options(mc.cores = workers)
  [13:37:23.200]                 on.exit(options(oopts))
  [13:37:23.200]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:37:23.200]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:23.200]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:37:23.200]                   label = label, ...)
  [13:37:23.200]                 if (!future$lazy) 
  [13:37:23.200]                   future <- run(future)
  [13:37:23.200]                 invisible(future)
  [13:37:23.200]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:23.200]         }
  [13:37:23.200]     }
  [13:37:23.200]     if (base::is.na(TRUE)) {
  [13:37:23.200]     }
  [13:37:23.200]     else {
  [13:37:23.200]         if (TRUE) {
  [13:37:23.200]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:23.200]                 open = "w")
  [13:37:23.200]         }
  [13:37:23.200]         else {
  [13:37:23.200]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:23.200]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:23.200]         }
  [13:37:23.200]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:23.200]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:23.200]             base::sink(type = "output", split = FALSE)
  [13:37:23.200]             base::close(...future.stdout)
  [13:37:23.200]         }, add = TRUE)
  [13:37:23.200]     }
  [13:37:23.200]     ...future.frame <- base::sys.nframe()
  [13:37:23.200]     ...future.conditions <- base::list()
  [13:37:23.200]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:23.200]     ...future.result <- base::tryCatch({
  [13:37:23.200]         base::withCallingHandlers({
  [13:37:23.200]             ...future.value <- base::withVisible(base::local({
  [13:37:23.200]                 doFuture::registerDoFuture()
  [13:37:23.200]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:23.200]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:23.200]                   {
  [13:37:23.200]                     a <- NULL
  [13:37:23.200]                     b <- NULL
  [13:37:23.200]                   }
  [13:37:23.200]                   ...future.env <- environment()
  [13:37:23.200]                   local({
  [13:37:23.200]                     for (name in names(...future.x_jj)) {
  [13:37:23.200]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:23.200]                         inherits = FALSE)
  [13:37:23.200]                     }
  [13:37:23.200]                   })
  [13:37:23.200]                   tryCatch({
  [13:37:23.200]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:23.200]                       plan = future::plan("next"))
  [13:37:23.200]                   }, error = identity)
  [13:37:23.200]                 })
  [13:37:23.200]             }))
  [13:37:23.200]             future::FutureResult(value = ...future.value$value, 
  [13:37:23.200]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:23.200]                   ...future.rng), started = ...future.startTime, 
  [13:37:23.200]                 version = "1.8")
  [13:37:23.200]         }, condition = base::local({
  [13:37:23.200]             c <- base::c
  [13:37:23.200]             inherits <- base::inherits
  [13:37:23.200]             invokeRestart <- base::invokeRestart
  [13:37:23.200]             length <- base::length
  [13:37:23.200]             list <- base::list
  [13:37:23.200]             seq.int <- base::seq.int
  [13:37:23.200]             signalCondition <- base::signalCondition
  [13:37:23.200]             sys.calls <- base::sys.calls
  [13:37:23.200]             Sys.time <- base::Sys.time
  [13:37:23.200]             `[[` <- base::`[[`
  [13:37:23.200]             `+` <- base::`+`
  [13:37:23.200]             `<<-` <- base::`<<-`
  [13:37:23.200]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:23.200]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:23.200]                   3L)]
  [13:37:23.200]             }
  [13:37:23.200]             function(cond) {
  [13:37:23.200]                 if (inherits(cond, "error")) {
  [13:37:23.200]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:23.200]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:23.200]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:23.200]                   signalCondition(cond)
  [13:37:23.200]                 }
  [13:37:23.200]                 else if (inherits(cond, "condition")) {
  [13:37:23.200]                   signal <- FALSE && inherits(cond, character(0))
  [13:37:23.200]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:23.200]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:23.200]                   if (!signal) {
  [13:37:23.200]                     muffleCondition <- function (cond) 
  [13:37:23.200]                     {
  [13:37:23.200]                       inherits <- base::inherits
  [13:37:23.200]                       invokeRestart <- base::invokeRestart
  [13:37:23.200]                       muffled <- FALSE
  [13:37:23.200]                       if (inherits(cond, "message")) {
  [13:37:23.200]                         invokeRestart("muffleMessage")
  [13:37:23.200]                         muffled <- TRUE
  [13:37:23.200]                       }
  [13:37:23.200]                       else if (inherits(cond, "warning")) {
  [13:37:23.200]                         invokeRestart("muffleWarning")
  [13:37:23.200]                         muffled <- TRUE
  [13:37:23.200]                       }
  [13:37:23.200]                       else if (inherits(cond, "condition")) {
  [13:37:23.200]                         computeRestarts <- base::computeRestarts
  [13:37:23.200]                         grepl <- base::grepl
  [13:37:23.200]                         is.null <- base::is.null
  [13:37:23.200]                         restarts <- computeRestarts(cond)
  [13:37:23.200]                         for (restart in restarts) {
  [13:37:23.200]                           name <- restart$name
  [13:37:23.200]                           if (is.null(name)) 
  [13:37:23.200]                             next
  [13:37:23.200]                           if (!grepl("^muffle", name)) 
  [13:37:23.200]                             next
  [13:37:23.200]                           invokeRestart(restart)
  [13:37:23.200]                           muffled <- TRUE
  [13:37:23.200]                           break
  [13:37:23.200]                         }
  [13:37:23.200]                       }
  [13:37:23.200]                       invisible(muffled)
  [13:37:23.200]                     }
  [13:37:23.200]                     muffleCondition(cond)
  [13:37:23.200]                   }
  [13:37:23.200]                 }
  [13:37:23.200]             }
  [13:37:23.200]         }))
  [13:37:23.200]     }, error = function(ex) {
  [13:37:23.200]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:23.200]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:23.200]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:23.200]     }, finally = {
  [13:37:23.200]         {
  [13:37:23.200]             {
  [13:37:23.200]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:37:23.200]             }
  [13:37:23.200]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:37:23.200]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:23.200]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:37:23.200]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:23.200]             {
  [13:37:23.200]                 if (substitute) 
  [13:37:23.200]                   expr <- substitute(expr)
  [13:37:23.200]                 if (is.function(workers)) 
  [13:37:23.200]                   workers <- workers()
  [13:37:23.200]                 workers <- as.integer(workers)
  [13:37:23.200]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:37:23.200]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:37:23.200]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:23.200]                     lazy = lazy, seed = seed, globals = globals, 
  [13:37:23.200]                     local = TRUE, label = label, ...))
  [13:37:23.200]                 }
  [13:37:23.200]                 oopts <- options(mc.cores = workers)
  [13:37:23.200]                 on.exit(options(oopts))
  [13:37:23.200]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:37:23.200]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:23.200]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:37:23.200]                   label = label, ...)
  [13:37:23.200]                 if (!future$lazy) 
  [13:37:23.200]                   future <- run(future)
  [13:37:23.200]                 invisible(future)
  [13:37:23.200]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:37:23.200]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:37:23.200]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:23.200]             {
  [13:37:23.200]                 if (substitute) 
  [13:37:23.200]                   expr <- substitute(expr)
  [13:37:23.200]                 if (is.function(workers)) 
  [13:37:23.200]                   workers <- workers()
  [13:37:23.200]                 workers <- as.integer(workers)
  [13:37:23.200]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:37:23.200]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:37:23.200]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:23.200]                     lazy = lazy, seed = seed, globals = globals, 
  [13:37:23.200]                     local = TRUE, label = label, ...))
  [13:37:23.200]                 }
  [13:37:23.200]                 oopts <- options(mc.cores = workers)
  [13:37:23.200]                 on.exit(options(oopts))
  [13:37:23.200]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:37:23.200]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:23.200]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:37:23.200]                   label = label, ...)
  [13:37:23.200]                 if (!future$lazy) 
  [13:37:23.200]                   future <- run(future)
  [13:37:23.200]                 invisible(future)
  [13:37:23.200]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:23.200]         }
  [13:37:23.200]         base::options(...future.oldOptions)
  [13:37:23.200]     })
  [13:37:23.200]     Sys.time
  [13:37:23.200]     if (base::is.na(TRUE)) {
  [13:37:23.200]     }
  [13:37:23.200]     else {
  [13:37:23.200]         base::sink(type = "output", split = FALSE)
  [13:37:23.200]         if (TRUE) {
  [13:37:23.200]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:23.200]         }
  [13:37:23.200]         else {
  [13:37:23.200]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:23.200]         }
  [13:37:23.200]         base::close(...future.stdout)
  [13:37:23.200]         ...future.stdout <- NULL
  [13:37:23.200]     }
  [13:37:23.200]     ...future.result$conditions <- ...future.conditions
  [13:37:23.200]     ...future.result
  [13:37:23.200] }
  [13:37:23.205] requestCore(): workers = 2
  [13:37:23.209] MulticoreFuture started
  [13:37:23.210] Chunk #1 of 2 ... DONE
  [13:37:23.210] Chunk #2 of 2 ...
  [13:37:23.211]  - Finding globals in 'args_list' chunk #2 ...
  [13:37:23.211] getGlobalsAndPackages() ...
  [13:37:23.211] Searching for globals...
  [13:37:23.213] 
  [13:37:23.213] Searching for globals ... DONE
  [13:37:23.214] - globals: [0] <none>
  [13:37:23.214] getGlobalsAndPackages() ... DONE
  [13:37:23.214] 
  [13:37:23.215] 
  [13:37:23.215]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:37:23.217] getGlobalsAndPackages() ...
  [13:37:23.218] - globals passed as-is: [1] '...future.x_ii'
  [13:37:23.218] Resolving globals: FALSE
  [13:37:23.220] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:37:23.220] - globals: [1] '...future.x_ii'
  [13:37:23.221] 
  [13:37:23.221] getGlobalsAndPackages() ... DONE
  [13:37:23.224] Packages needed by the future expression (n = 1): 'doFuture'
  [13:37:23.225] Packages needed by future strategies (n = 1): 'future'
  [13:37:23.227] plan(): Setting new future strategy stack:
  [13:37:23.228] List of future strategies:
  [13:37:23.228] 1. multicore:
  [13:37:23.228]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:37:23.228]    - tweaked: FALSE
  [13:37:23.228]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.230] plan(): nbrOfWorkers() = 1
  [13:37:23.233] plan(): Setting new future strategy stack:
  [13:37:23.233] List of future strategies:
  [13:37:23.233] 1. multicore:
  [13:37:23.233]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:37:23.233]    - tweaked: FALSE
  [13:37:23.233]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.233] 2. multicore:
  [13:37:23.233]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:37:23.233]    - tweaked: FALSE
  [13:37:23.233]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.236] plan(): nbrOfWorkers() = 2
  [13:37:23.232] {
  [13:37:23.232]     {
  [13:37:23.232]         ...future.startTime <- base::Sys.time()
  [13:37:23.232]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:23.232]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:23.232]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:23.232]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:23.232]             future.resolve.recursive = NULL, width = 80L)
  [13:37:23.232]         {
  [13:37:23.232]             {
  [13:37:23.232]                 {
  [13:37:23.232]                   {
  [13:37:23.232]                     has_future <- base::requireNamespace("future", 
  [13:37:23.232]                       quietly = TRUE)
  [13:37:23.232]                     version <- if (has_future) 
  [13:37:23.232]                       utils::packageVersion("future")
  [13:37:23.232]                     else NULL
  [13:37:23.232]                     if (!has_future || version < "1.8.0") {
  [13:37:23.232]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:37:23.232]                         "", base::R.version$version.string), 
  [13:37:23.232]                         platform = base::sprintf("%s (%s-bit)", 
  [13:37:23.232]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:23.232]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:23.232]                           "release", "version")], collapse = " "), 
  [13:37:23.232]                         hostname = base::Sys.info()[["nodename"]])
  [13:37:23.232]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:23.232]                         info)
  [13:37:23.232]                       info <- base::paste(info, collapse = "; ")
  [13:37:23.232]                       if (!has_future) {
  [13:37:23.232]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:23.232]                           info)
  [13:37:23.232]                       }
  [13:37:23.232]                       else {
  [13:37:23.232]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:23.232]                           info, version)
  [13:37:23.232]                       }
  [13:37:23.232]                       base::stop(msg)
  [13:37:23.232]                     }
  [13:37:23.232]                   }
  [13:37:23.232]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:37:23.232]                   base::options(mc.cores = 1L)
  [13:37:23.232]                 }
  [13:37:23.232]                 base::local({
  [13:37:23.232]                   for (pkg in c("doFuture", "future")) {
  [13:37:23.232]                     base::loadNamespace(pkg)
  [13:37:23.232]                     base::library(pkg, character.only = TRUE)
  [13:37:23.232]                   }
  [13:37:23.232]                 })
  [13:37:23.232]             }
  [13:37:23.232]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:23.232]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:23.232]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:37:23.232]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:23.232]             {
  [13:37:23.232]                 if (substitute) 
  [13:37:23.232]                   expr <- substitute(expr)
  [13:37:23.232]                 if (is.function(workers)) 
  [13:37:23.232]                   workers <- workers()
  [13:37:23.232]                 workers <- as.integer(workers)
  [13:37:23.232]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:37:23.232]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:37:23.232]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:23.232]                     lazy = lazy, seed = seed, globals = globals, 
  [13:37:23.232]                     local = TRUE, label = label, ...))
  [13:37:23.232]                 }
  [13:37:23.232]                 oopts <- options(mc.cores = workers)
  [13:37:23.232]                 on.exit(options(oopts))
  [13:37:23.232]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:37:23.232]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:23.232]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:37:23.232]                   label = label, ...)
  [13:37:23.232]                 if (!future$lazy) 
  [13:37:23.232]                   future <- run(future)
  [13:37:23.232]                 invisible(future)
  [13:37:23.232]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:23.232]         }
  [13:37:23.232]     }
  [13:37:23.232]     if (base::is.na(TRUE)) {
  [13:37:23.232]     }
  [13:37:23.232]     else {
  [13:37:23.232]         if (TRUE) {
  [13:37:23.232]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:23.232]                 open = "w")
  [13:37:23.232]         }
  [13:37:23.232]         else {
  [13:37:23.232]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:23.232]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:23.232]         }
  [13:37:23.232]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:23.232]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:23.232]             base::sink(type = "output", split = FALSE)
  [13:37:23.232]             base::close(...future.stdout)
  [13:37:23.232]         }, add = TRUE)
  [13:37:23.232]     }
  [13:37:23.232]     ...future.frame <- base::sys.nframe()
  [13:37:23.232]     ...future.conditions <- base::list()
  [13:37:23.232]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:23.232]     ...future.result <- base::tryCatch({
  [13:37:23.232]         base::withCallingHandlers({
  [13:37:23.232]             ...future.value <- base::withVisible(base::local({
  [13:37:23.232]                 doFuture::registerDoFuture()
  [13:37:23.232]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:23.232]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:23.232]                   {
  [13:37:23.232]                     a <- NULL
  [13:37:23.232]                     b <- NULL
  [13:37:23.232]                   }
  [13:37:23.232]                   ...future.env <- environment()
  [13:37:23.232]                   local({
  [13:37:23.232]                     for (name in names(...future.x_jj)) {
  [13:37:23.232]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:23.232]                         inherits = FALSE)
  [13:37:23.232]                     }
  [13:37:23.232]                   })
  [13:37:23.232]                   tryCatch({
  [13:37:23.232]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:23.232]                       plan = future::plan("next"))
  [13:37:23.232]                   }, error = identity)
  [13:37:23.232]                 })
  [13:37:23.232]             }))
  [13:37:23.232]             future::FutureResult(value = ...future.value$value, 
  [13:37:23.232]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:23.232]                   ...future.rng), started = ...future.startTime, 
  [13:37:23.232]                 version = "1.8")
  [13:37:23.232]         }, condition = base::local({
  [13:37:23.232]             c <- base::c
  [13:37:23.232]             inherits <- base::inherits
  [13:37:23.232]             invokeRestart <- base::invokeRestart
  [13:37:23.232]             length <- base::length
  [13:37:23.232]             list <- base::list
  [13:37:23.232]             seq.int <- base::seq.int
  [13:37:23.232]             signalCondition <- base::signalCondition
  [13:37:23.232]             sys.calls <- base::sys.calls
  [13:37:23.232]             Sys.time <- base::Sys.time
  [13:37:23.232]             `[[` <- base::`[[`
  [13:37:23.232]             `+` <- base::`+`
  [13:37:23.232]             `<<-` <- base::`<<-`
  [13:37:23.232]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:23.232]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:23.232]                   3L)]
  [13:37:23.232]             }
  [13:37:23.232]             function(cond) {
  [13:37:23.232]                 if (inherits(cond, "error")) {
  [13:37:23.232]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:23.232]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:23.232]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:23.232]                   signalCondition(cond)
  [13:37:23.232]                 }
  [13:37:23.232]                 else if (inherits(cond, "condition")) {
  [13:37:23.232]                   signal <- FALSE && inherits(cond, character(0))
  [13:37:23.232]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:23.232]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:23.232]                   if (!signal) {
  [13:37:23.232]                     muffleCondition <- function (cond) 
  [13:37:23.232]                     {
  [13:37:23.232]                       inherits <- base::inherits
  [13:37:23.232]                       invokeRestart <- base::invokeRestart
  [13:37:23.232]                       muffled <- FALSE
  [13:37:23.232]                       if (inherits(cond, "message")) {
  [13:37:23.232]                         invokeRestart("muffleMessage")
  [13:37:23.232]                         muffled <- TRUE
  [13:37:23.232]                       }
  [13:37:23.232]                       else if (inherits(cond, "warning")) {
  [13:37:23.232]                         invokeRestart("muffleWarning")
  [13:37:23.232]                         muffled <- TRUE
  [13:37:23.232]                       }
  [13:37:23.232]                       else if (inherits(cond, "condition")) {
  [13:37:23.232]                         computeRestarts <- base::computeRestarts
  [13:37:23.232]                         grepl <- base::grepl
  [13:37:23.232]                         is.null <- base::is.null
  [13:37:23.232]                         restarts <- computeRestarts(cond)
  [13:37:23.232]                         for (restart in restarts) {
  [13:37:23.232]                           name <- restart$name
  [13:37:23.232]                           if (is.null(name)) 
  [13:37:23.232]                             next
  [13:37:23.232]                           if (!grepl("^muffle", name)) 
  [13:37:23.232]                             next
  [13:37:23.232]                           invokeRestart(restart)
  [13:37:23.232]                           muffled <- TRUE
  [13:37:23.232]                           break
  [13:37:23.232]                         }
  [13:37:23.232]                       }
  [13:37:23.232]                       invisible(muffled)
  [13:37:23.232]                     }
  [13:37:23.232]                     muffleCondition(cond)
  [13:37:23.232]                   }
  [13:37:23.232]                 }
  [13:37:23.232]             }
  [13:37:23.232]         }))
  [13:37:23.232]     }, error = function(ex) {
  [13:37:23.232]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:23.232]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:23.232]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:23.232]     }, finally = {
  [13:37:23.232]         {
  [13:37:23.232]             {
  [13:37:23.232]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:37:23.232]             }
  [13:37:23.232]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:37:23.232]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:23.232]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:37:23.232]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:23.232]             {
  [13:37:23.232]                 if (substitute) 
  [13:37:23.232]                   expr <- substitute(expr)
  [13:37:23.232]                 if (is.function(workers)) 
  [13:37:23.232]                   workers <- workers()
  [13:37:23.232]                 workers <- as.integer(workers)
  [13:37:23.232]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:37:23.232]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:37:23.232]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:23.232]                     lazy = lazy, seed = seed, globals = globals, 
  [13:37:23.232]                     local = TRUE, label = label, ...))
  [13:37:23.232]                 }
  [13:37:23.232]                 oopts <- options(mc.cores = workers)
  [13:37:23.232]                 on.exit(options(oopts))
  [13:37:23.232]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:37:23.232]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:23.232]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:37:23.232]                   label = label, ...)
  [13:37:23.232]                 if (!future$lazy) 
  [13:37:23.232]                   future <- run(future)
  [13:37:23.232]                 invisible(future)
  [13:37:23.232]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:37:23.232]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:37:23.232]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:23.232]             {
  [13:37:23.232]                 if (substitute) 
  [13:37:23.232]                   expr <- substitute(expr)
  [13:37:23.232]                 if (is.function(workers)) 
  [13:37:23.232]                   workers <- workers()
  [13:37:23.232]                 workers <- as.integer(workers)
  [13:37:23.232]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:37:23.232]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:37:23.232]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:23.232]                     lazy = lazy, seed = seed, globals = globals, 
  [13:37:23.232]                     local = TRUE, label = label, ...))
  [13:37:23.232]                 }
  [13:37:23.232]                 oopts <- options(mc.cores = workers)
  [13:37:23.232]                 on.exit(options(oopts))
  [13:37:23.232]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:37:23.232]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:23.232]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:37:23.232]                   label = label, ...)
  [13:37:23.232]                 if (!future$lazy) 
  [13:37:23.232]                   future <- run(future)
  [13:37:23.232]                 invisible(future)
  [13:37:23.232]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:23.232]         }
  [13:37:23.232]         base::options(...future.oldOptions)
  [13:37:23.232]     })
  [13:37:23.232]     Sys.time
  [13:37:23.232]     if (base::is.na(TRUE)) {
  [13:37:23.232]     }
  [13:37:23.232]     else {
  [13:37:23.232]         base::sink(type = "output", split = FALSE)
  [13:37:23.232]         if (TRUE) {
  [13:37:23.232]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:23.232]         }
  [13:37:23.232]         else {
  [13:37:23.232]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:23.232]         }
  [13:37:23.232]         base::close(...future.stdout)
  [13:37:23.232]         ...future.stdout <- NULL
  [13:37:23.232]     }
  [13:37:23.232]     ...future.result$conditions <- ...future.conditions
  [13:37:23.232]     ...future.result
  [13:37:23.232] }
  [13:37:23.239] requestCore(): workers = 2
  [13:37:23.243] MulticoreFuture started
  [13:37:23.244] Chunk #2 of 2 ... DONE
  [13:37:23.245] Launching 2 futures (chunks) ... DONE
  [13:37:23.245] - resolving futures
  [13:37:23.246]   - gathering results & relaying conditions (except errors)
  [13:37:23.246] resolve() on list ...
  [13:37:23.247]  recursive: 0
  [13:37:23.247]  length: 2
  [13:37:23.247] 
  [13:37:23.256] Future #1
  [13:37:23.260] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [13:37:23.260] - nx: 2
  [13:37:23.261] - relay: TRUE
  [13:37:23.261] - stdout: TRUE
  [13:37:23.262] - signal: TRUE
  [13:37:23.262] - resignal: FALSE
  [13:37:23.263] - force: FALSE
  [13:37:23.263] - relayed: [n=2] FALSE, FALSE
  [13:37:23.263] - queued futures: [n=2] FALSE, FALSE
  [13:37:23.264]  - until=1
  [13:37:23.264]  - relaying element #1
  [13:37:23.265] - relayed: [n=2] TRUE, FALSE
  [13:37:23.265] - queued futures: [n=2] TRUE, FALSE
  [13:37:23.266] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [13:37:23.271] plan(): Setting new future strategy stack:
  [13:37:23.271] List of future strategies:
  [13:37:23.271] 1. multicore:
  [13:37:23.271]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:37:23.271]    - tweaked: FALSE
  [13:37:23.271]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.280] plan(): nbrOfWorkers() = 1
  [13:37:23.266]  length: 1 (resolved future 1)
  [13:37:23.283] plan(): Setting new future strategy stack:
  [13:37:23.284] List of future strategies:
  [13:37:23.284] 1. multicore:
  [13:37:23.284]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:37:23.284]    - tweaked: FALSE
  [13:37:23.284]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.284] 2. multicore:
  [13:37:23.284]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:37:23.284]    - tweaked: FALSE
  [13:37:23.284]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.286] plan(): nbrOfWorkers() = 2
  [13:37:23.288] Future #2
  [13:37:23.291] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [13:37:23.292] - nx: 2
  [13:37:23.292] - relay: TRUE
  [13:37:23.292] - stdout: TRUE
  [13:37:23.293] - signal: TRUE
  [13:37:23.293] - resignal: FALSE
  [13:37:23.293] - force: FALSE
  [13:37:23.294] - relayed: [n=2] TRUE, FALSE
  [13:37:23.294] - queued futures: [n=2] TRUE, FALSE
  [13:37:23.295]  - until=2
  [13:37:23.295]  - relaying element #2
  [13:37:23.296] - relayed: [n=2] TRUE, TRUE
  [13:37:23.296] - queued futures: [n=2] TRUE, TRUE
  [13:37:23.297] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [13:37:23.297]  length: 0 (resolved future 2)
  [13:37:23.298] Relaying remaining futures
  [13:37:23.298] signalConditionsASAP(NULL, pos=0) ...
  [13:37:23.298] - nx: 2
  [13:37:23.299] - relay: TRUE
  [13:37:23.299] - stdout: TRUE
  [13:37:23.299] - signal: TRUE
  [13:37:23.300] - resignal: FALSE
  [13:37:23.300] - force: FALSE
  [13:37:23.300] - relayed: [n=2] TRUE, TRUE
  [13:37:23.301] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [13:37:23.301] - relayed: [n=2] TRUE, TRUE
  [13:37:23.302] - queued futures: [n=2] TRUE, TRUE
  [13:37:23.302] signalConditionsASAP(NULL, pos=0) ... done
  [13:37:23.303] resolve() on list ... DONE
  [13:37:23.303] - collecting values of futures
  [13:37:23.304] - accumulating results
  [13:37:23.311] - processing errors (handler = 'stop')
  [13:37:23.311] - extracting results
  [13:37:23.312] doFuture() ... DONE
  - plan(list('multicore', 'multicore')) ... DONE
  - plan(list('multicore', 'multisession')) ...
  [13:37:23.313] plan(): Setting new future strategy stack:
  [13:37:23.314] List of future strategies:
  [13:37:23.314] 1. multicore:
  [13:37:23.314]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:37:23.314]    - tweaked: FALSE
  [13:37:23.314]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.314] 2. multisession:
  [13:37:23.314]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:37:23.314]    - tweaked: FALSE
  [13:37:23.314]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.316] plan(): nbrOfWorkers() = 2
  [13:37:23.317] doFuture() ...
  [13:37:23.322] - dummy globals (as locals): [2] 'a', 'b'
  [13:37:23.323] - R expression:
  [13:37:23.324] {
  [13:37:23.324]     doFuture::registerDoFuture()
  [13:37:23.324]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:23.324]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:23.324]         {
  [13:37:23.324]             a <- NULL
  [13:37:23.324]             b <- NULL
  [13:37:23.324]         }
  [13:37:23.324]         ...future.env <- environment()
  [13:37:23.324]         local({
  [13:37:23.324]             for (name in names(...future.x_jj)) {
  [13:37:23.324]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:23.324]                   inherits = FALSE)
  [13:37:23.324]             }
  [13:37:23.324]         })
  [13:37:23.324]         tryCatch({
  [13:37:23.324]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:23.324]                 plan = future::plan("next"))
  [13:37:23.324]         }, error = identity)
  [13:37:23.324]     })
  [13:37:23.324] }
  [13:37:23.325] - identifying globals and packages ...
  [13:37:23.325] getGlobalsAndPackages() ...
  [13:37:23.326] Searching for globals...
  [13:37:23.343] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [13:37:23.344] Searching for globals ... DONE
  [13:37:23.344] Resolving globals: FALSE
  [13:37:23.346] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:37:23.346] - globals: [1] '...future.x_ii'
  [13:37:23.347] 
  [13:37:23.347] getGlobalsAndPackages() ... DONE
  [13:37:23.347] List of 1
  [13:37:23.347]  $ ...future.x_ii: NULL
  [13:37:23.347]  - attr(*, "where")=List of 1
  [13:37:23.347]   ..$ ...future.x_ii:<environment: 0x5647c5fb78d0> 
  [13:37:23.347]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:23.347]  - attr(*, "resolved")= logi FALSE
  [13:37:23.347]  - attr(*, "total_size")= num 0
  [13:37:23.358]   - R expression:
  [13:37:23.358] {
  [13:37:23.358]     doFuture::registerDoFuture()
  [13:37:23.358]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:23.358]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:23.358]         {
  [13:37:23.358]             a <- NULL
  [13:37:23.358]             b <- NULL
  [13:37:23.358]         }
  [13:37:23.358]         ...future.env <- environment()
  [13:37:23.358]         local({
  [13:37:23.358]             for (name in names(...future.x_jj)) {
  [13:37:23.358]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:23.358]                   inherits = FALSE)
  [13:37:23.358]             }
  [13:37:23.358]         })
  [13:37:23.358]         tryCatch({
  [13:37:23.358]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:23.358]                 plan = future::plan("next"))
  [13:37:23.358]         }, error = identity)
  [13:37:23.358]     })
  [13:37:23.358] }
  [13:37:23.359]   - globals: [1] '...future.x_ii'
  [13:37:23.360] List of 1
  [13:37:23.360]  $ ...future.x_ii: NULL
  [13:37:23.360]  - attr(*, "where")=List of 1
  [13:37:23.360]   ..$ ...future.x_ii:<environment: 0x5647c5fb78d0> 
  [13:37:23.360]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:23.360]  - attr(*, "resolved")= logi FALSE
  [13:37:23.360]  - attr(*, "total_size")= num 0
  [13:37:23.366]   - packages: [1] 'doFuture'
  [13:37:23.366] - identifying globals and packages ... DONE
  [13:37:23.368] Number of chunks: 2
  [13:37:23.368] Number of futures (= number of chunks): 2
  [13:37:23.369] Launching 2 futures (chunks) ...
  [13:37:23.369] Chunk #1 of 2 ...
  [13:37:23.369]  - Finding globals in 'args_list' chunk #1 ...
  [13:37:23.370] getGlobalsAndPackages() ...
  [13:37:23.370] Searching for globals...
  [13:37:23.371] 
  [13:37:23.371] Searching for globals ... DONE
  [13:37:23.372] - globals: [0] <none>
  [13:37:23.372] getGlobalsAndPackages() ... DONE
  [13:37:23.372] 
  [13:37:23.372] 
  [13:37:23.373]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:37:23.374] getGlobalsAndPackages() ...
  [13:37:23.374] - globals passed as-is: [1] '...future.x_ii'
  [13:37:23.375] Resolving globals: FALSE
  [13:37:23.376] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:37:23.376] - globals: [1] '...future.x_ii'
  [13:37:23.376] 
  [13:37:23.377] getGlobalsAndPackages() ... DONE
  [13:37:23.379] Packages needed by the future expression (n = 1): 'doFuture'
  [13:37:23.380] Packages needed by future strategies (n = 1): 'future'
  [13:37:23.385] {
  [13:37:23.385]     {
  [13:37:23.385]         ...future.startTime <- base::Sys.time()
  [13:37:23.385]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:23.385]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:23.385]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:23.385]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:23.385]             future.resolve.recursive = NULL, width = 80L)
  [13:37:23.385]         {
  [13:37:23.385]             {
  [13:37:23.385]                 {
  [13:37:23.385]                   {
  [13:37:23.385]                     has_future <- base::requireNamespace("future", 
  [13:37:23.385]                       quietly = TRUE)
  [13:37:23.385]                     version <- if (has_future) 
  [13:37:23.385]                       utils::packageVersion("future")
  [13:37:23.385]                     else NULL
  [13:37:23.385]                     if (!has_future || version < "1.8.0") {
  [13:37:23.385]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:37:23.385]                         "", base::R.version$version.string), 
  [13:37:23.385]                         platform = base::sprintf("%s (%s-bit)", 
  [13:37:23.385]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:23.385]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:23.385]                           "release", "version")], collapse = " "), 
  [13:37:23.385]                         hostname = base::Sys.info()[["nodename"]])
  [13:37:23.385]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:23.385]                         info)
  [13:37:23.385]                       info <- base::paste(info, collapse = "; ")
  [13:37:23.385]                       if (!has_future) {
  [13:37:23.385]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:23.385]                           info)
  [13:37:23.385]                       }
  [13:37:23.385]                       else {
  [13:37:23.385]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:23.385]                           info, version)
  [13:37:23.385]                       }
  [13:37:23.385]                       base::stop(msg)
  [13:37:23.385]                     }
  [13:37:23.385]                   }
  [13:37:23.385]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:37:23.385]                   base::options(mc.cores = 1L)
  [13:37:23.385]                 }
  [13:37:23.385]                 base::local({
  [13:37:23.385]                   for (pkg in c("doFuture", "future")) {
  [13:37:23.385]                     base::loadNamespace(pkg)
  [13:37:23.385]                     base::library(pkg, character.only = TRUE)
  [13:37:23.385]                   }
  [13:37:23.385]                 })
  [13:37:23.385]             }
  [13:37:23.385]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:23.385]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:23.385]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:37:23.385]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:37:23.385]                 ...) 
  [13:37:23.385]             {
  [13:37:23.385]                 if (substitute) 
  [13:37:23.385]                   expr <- substitute(expr)
  [13:37:23.385]                 if (is.function(workers)) 
  [13:37:23.385]                   workers <- workers()
  [13:37:23.385]                 workers <- as.integer(workers)
  [13:37:23.385]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:37:23.385]                   workers >= 1)
  [13:37:23.385]                 if (workers == 1L) {
  [13:37:23.385]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:23.385]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:37:23.385]                     local = TRUE, label = label, ...))
  [13:37:23.385]                 }
  [13:37:23.385]                 workers <- ClusterRegistry("start", workers = workers)
  [13:37:23.385]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:37:23.385]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:23.385]                   globals = globals, persistent = persistent, 
  [13:37:23.385]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:37:23.385]                   label = label, ...)
  [13:37:23.385]                 if (!future$lazy) 
  [13:37:23.385]                   future <- run(future)
  [13:37:23.385]                 invisible(future)
  [13:37:23.385]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:23.385]         }
  [13:37:23.385]     }
  [13:37:23.385]     if (base::is.na(TRUE)) {
  [13:37:23.385]     }
  [13:37:23.385]     else {
  [13:37:23.385]         if (TRUE) {
  [13:37:23.385]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:23.385]                 open = "w")
  [13:37:23.385]         }
  [13:37:23.385]         else {
  [13:37:23.385]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:23.385]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:23.385]         }
  [13:37:23.385]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:23.385]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:23.385]             base::sink(type = "output", split = FALSE)
  [13:37:23.385]             base::close(...future.stdout)
  [13:37:23.385]         }, add = TRUE)
  [13:37:23.385]     }
  [13:37:23.385]     ...future.frame <- base::sys.nframe()
  [13:37:23.385]     ...future.conditions <- base::list()
  [13:37:23.385]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:23.385]     ...future.result <- base::tryCatch({
  [13:37:23.385]         base::withCallingHandlers({
  [13:37:23.385]             ...future.value <- base::withVisible(base::local({
  [13:37:23.385]                 doFuture::registerDoFuture()
  [13:37:23.385]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:23.385]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:23.385]                   {
  [13:37:23.385]                     a <- NULL
  [13:37:23.385]                     b <- NULL
  [13:37:23.385]                   }
  [13:37:23.385]                   ...future.env <- environment()
  [13:37:23.385]                   local({
  [13:37:23.385]                     for (name in names(...future.x_jj)) {
  [13:37:23.385]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:23.385]                         inherits = FALSE)
  [13:37:23.385]                     }
  [13:37:23.385]                   })
  [13:37:23.385]                   tryCatch({
  [13:37:23.385]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:23.385]                       plan = future::plan("next"))
  [13:37:23.385]                   }, error = identity)
  [13:37:23.385]                 })
  [13:37:23.385]             }))
  [13:37:23.385]             future::FutureResult(value = ...future.value$value, 
  [13:37:23.385]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:23.385]                   ...future.rng), started = ...future.startTime, 
  [13:37:23.385]                 version = "1.8")
  [13:37:23.385]         }, condition = base::local({
  [13:37:23.385]             c <- base::c
  [13:37:23.385]             inherits <- base::inherits
  [13:37:23.385]             invokeRestart <- base::invokeRestart
  [13:37:23.385]             length <- base::length
  [13:37:23.385]             list <- base::list
  [13:37:23.385]             seq.int <- base::seq.int
  [13:37:23.385]             signalCondition <- base::signalCondition
  [13:37:23.385]             sys.calls <- base::sys.calls
  [13:37:23.385]             Sys.time <- base::Sys.time
  [13:37:23.385]             `[[` <- base::`[[`
  [13:37:23.385]             `+` <- base::`+`
  [13:37:23.385]             `<<-` <- base::`<<-`
  [13:37:23.385]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:23.385]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:23.385]                   3L)]
  [13:37:23.385]             }
  [13:37:23.385]             function(cond) {
  [13:37:23.385]                 if (inherits(cond, "error")) {
  [13:37:23.385]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:23.385]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:23.385]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:23.385]                   signalCondition(cond)
  [13:37:23.385]                 }
  [13:37:23.385]                 else if (inherits(cond, "condition")) {
  [13:37:23.385]                   signal <- FALSE && inherits(cond, character(0))
  [13:37:23.385]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:23.385]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:23.385]                   if (!signal) {
  [13:37:23.385]                     muffleCondition <- function (cond) 
  [13:37:23.385]                     {
  [13:37:23.385]                       inherits <- base::inherits
  [13:37:23.385]                       invokeRestart <- base::invokeRestart
  [13:37:23.385]                       muffled <- FALSE
  [13:37:23.385]                       if (inherits(cond, "message")) {
  [13:37:23.385]                         invokeRestart("muffleMessage")
  [13:37:23.385]                         muffled <- TRUE
  [13:37:23.385]                       }
  [13:37:23.385]                       else if (inherits(cond, "warning")) {
  [13:37:23.385]                         invokeRestart("muffleWarning")
  [13:37:23.385]                         muffled <- TRUE
  [13:37:23.385]                       }
  [13:37:23.385]                       else if (inherits(cond, "condition")) {
  [13:37:23.385]                         computeRestarts <- base::computeRestarts
  [13:37:23.385]                         grepl <- base::grepl
  [13:37:23.385]                         is.null <- base::is.null
  [13:37:23.385]                         restarts <- computeRestarts(cond)
  [13:37:23.385]                         for (restart in restarts) {
  [13:37:23.385]                           name <- restart$name
  [13:37:23.385]                           if (is.null(name)) 
  [13:37:23.385]                             next
  [13:37:23.385]                           if (!grepl("^muffle", name)) 
  [13:37:23.385]                             next
  [13:37:23.385]                           invokeRestart(restart)
  [13:37:23.385]                           muffled <- TRUE
  [13:37:23.385]                           break
  [13:37:23.385]                         }
  [13:37:23.385]                       }
  [13:37:23.385]                       invisible(muffled)
  [13:37:23.385]                     }
  [13:37:23.385]                     muffleCondition(cond)
  [13:37:23.385]                   }
  [13:37:23.385]                 }
  [13:37:23.385]             }
  [13:37:23.385]         }))
  [13:37:23.385]     }, error = function(ex) {
  [13:37:23.385]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:23.385]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:23.385]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:23.385]     }, finally = {
  [13:37:23.385]         {
  [13:37:23.385]             {
  [13:37:23.385]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:37:23.385]             }
  [13:37:23.385]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:37:23.385]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:23.385]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:37:23.385]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:23.385]             {
  [13:37:23.385]                 if (substitute) 
  [13:37:23.385]                   expr <- substitute(expr)
  [13:37:23.385]                 if (is.function(workers)) 
  [13:37:23.385]                   workers <- workers()
  [13:37:23.385]                 workers <- as.integer(workers)
  [13:37:23.385]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:37:23.385]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:37:23.385]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:23.385]                     lazy = lazy, seed = seed, globals = globals, 
  [13:37:23.385]                     local = TRUE, label = label, ...))
  [13:37:23.385]                 }
  [13:37:23.385]                 oopts <- options(mc.cores = workers)
  [13:37:23.385]                 on.exit(options(oopts))
  [13:37:23.385]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:37:23.385]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:23.385]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:37:23.385]                   label = label, ...)
  [13:37:23.385]                 if (!future$lazy) 
  [13:37:23.385]                   future <- run(future)
  [13:37:23.385]                 invisible(future)
  [13:37:23.385]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:37:23.385]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:37:23.385]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [13:37:23.385]                 label = NULL, ...) 
  [13:37:23.385]             {
  [13:37:23.385]                 if (substitute) 
  [13:37:23.385]                   expr <- substitute(expr)
  [13:37:23.385]                 if (is.function(workers)) 
  [13:37:23.385]                   workers <- workers()
  [13:37:23.385]                 workers <- as.integer(workers)
  [13:37:23.385]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:37:23.385]                   workers >= 1)
  [13:37:23.385]                 if (workers == 1L) {
  [13:37:23.385]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:23.385]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:37:23.385]                     local = TRUE, label = label, ...))
  [13:37:23.385]                 }
  [13:37:23.385]                 workers <- ClusterRegistry("start", workers = workers)
  [13:37:23.385]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:37:23.385]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:23.385]                   globals = globals, persistent = persistent, 
  [13:37:23.385]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:37:23.385]                   label = label, ...)
  [13:37:23.385]                 if (!future$lazy) 
  [13:37:23.385]                   future <- run(future)
  [13:37:23.385]                 invisible(future)
  [13:37:23.385]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:23.385]         }
  [13:37:23.385]         base::options(...future.oldOptions)
  [13:37:23.385]     })
  [13:37:23.385]     Sys.time
  [13:37:23.385]     if (base::is.na(TRUE)) {
  [13:37:23.385]     }
  [13:37:23.385]     else {
  [13:37:23.385]         base::sink(type = "output", split = FALSE)
  [13:37:23.385]         if (TRUE) {
  [13:37:23.385]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:23.385]         }
  [13:37:23.385]         else {
  [13:37:23.385]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:23.385]         }
  [13:37:23.385]         base::close(...future.stdout)
  [13:37:23.385]         ...future.stdout <- NULL
  [13:37:23.385]     }
  [13:37:23.385]     ...future.result$conditions <- ...future.conditions
  [13:37:23.385]     ...future.result
  [13:37:23.385] }
  [13:37:23.391] requestCore(): workers = 2
  [13:37:23.394] MulticoreFuture started
  [13:37:23.395] Chunk #1 of 2 ... DONE
  [13:37:23.395] Chunk #2 of 2 ...
  [13:37:23.396]  - Finding globals in 'args_list' chunk #2 ...
  [13:37:23.396] getGlobalsAndPackages() ...
  [13:37:23.397] Searching for globals...
  [13:37:23.398] 
  [13:37:23.399] Searching for globals ... DONE
  [13:37:23.399] - globals: [0] <none>
  [13:37:23.399] getGlobalsAndPackages() ... DONE
  [13:37:23.400] 
  [13:37:23.400] 
  [13:37:23.400]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:37:23.402] getGlobalsAndPackages() ...
  [13:37:23.403] - globals passed as-is: [1] '...future.x_ii'
  [13:37:23.403] Resolving globals: FALSE
  [13:37:23.405] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:37:23.405] - globals: [1] '...future.x_ii'
  [13:37:23.406] 
  [13:37:23.406] getGlobalsAndPackages() ... DONE
  [13:37:23.411] plan(): Setting new future strategy stack:
  [13:37:23.411] List of future strategies:
  [13:37:23.411] 1. multisession:
  [13:37:23.411]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:37:23.411]    - tweaked: FALSE
  [13:37:23.411]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.414] plan(): nbrOfWorkers() = 1
  [13:37:23.416] plan(): Setting new future strategy stack:
  [13:37:23.416] List of future strategies:
  [13:37:23.416] 1. multicore:
  [13:37:23.416]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:37:23.416]    - tweaked: FALSE
  [13:37:23.416]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.416] 2. multisession:
  [13:37:23.416]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:37:23.416]    - tweaked: FALSE
  [13:37:23.416]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.419] plan(): nbrOfWorkers() = 2
  [13:37:23.423] Packages needed by the future expression (n = 1): 'doFuture'
  [13:37:23.424] Packages needed by future strategies (n = 1): 'future'
  [13:37:23.431] {
  [13:37:23.431]     {
  [13:37:23.431]         ...future.startTime <- base::Sys.time()
  [13:37:23.431]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:23.431]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:23.431]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:23.431]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:23.431]             future.resolve.recursive = NULL, width = 80L)
  [13:37:23.431]         {
  [13:37:23.431]             {
  [13:37:23.431]                 {
  [13:37:23.431]                   {
  [13:37:23.431]                     has_future <- base::requireNamespace("future", 
  [13:37:23.431]                       quietly = TRUE)
  [13:37:23.431]                     version <- if (has_future) 
  [13:37:23.431]                       utils::packageVersion("future")
  [13:37:23.431]                     else NULL
  [13:37:23.431]                     if (!has_future || version < "1.8.0") {
  [13:37:23.431]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:37:23.431]                         "", base::R.version$version.string), 
  [13:37:23.431]                         platform = base::sprintf("%s (%s-bit)", 
  [13:37:23.431]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:23.431]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:23.431]                           "release", "version")], collapse = " "), 
  [13:37:23.431]                         hostname = base::Sys.info()[["nodename"]])
  [13:37:23.431]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:23.431]                         info)
  [13:37:23.431]                       info <- base::paste(info, collapse = "; ")
  [13:37:23.431]                       if (!has_future) {
  [13:37:23.431]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:23.431]                           info)
  [13:37:23.431]                       }
  [13:37:23.431]                       else {
  [13:37:23.431]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:23.431]                           info, version)
  [13:37:23.431]                       }
  [13:37:23.431]                       base::stop(msg)
  [13:37:23.431]                     }
  [13:37:23.431]                   }
  [13:37:23.431]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:37:23.431]                   base::options(mc.cores = 1L)
  [13:37:23.431]                 }
  [13:37:23.431]                 base::local({
  [13:37:23.431]                   for (pkg in c("doFuture", "future")) {
  [13:37:23.431]                     base::loadNamespace(pkg)
  [13:37:23.431]                     base::library(pkg, character.only = TRUE)
  [13:37:23.431]                   }
  [13:37:23.431]                 })
  [13:37:23.431]             }
  [13:37:23.431]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:23.431]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:23.431]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:37:23.431]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:37:23.431]                 ...) 
  [13:37:23.431]             {
  [13:37:23.431]                 if (substitute) 
  [13:37:23.431]                   expr <- substitute(expr)
  [13:37:23.431]                 if (is.function(workers)) 
  [13:37:23.431]                   workers <- workers()
  [13:37:23.431]                 workers <- as.integer(workers)
  [13:37:23.431]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:37:23.431]                   workers >= 1)
  [13:37:23.431]                 if (workers == 1L) {
  [13:37:23.431]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:23.431]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:37:23.431]                     local = TRUE, label = label, ...))
  [13:37:23.431]                 }
  [13:37:23.431]                 workers <- ClusterRegistry("start", workers = workers)
  [13:37:23.431]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:37:23.431]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:23.431]                   globals = globals, persistent = persistent, 
  [13:37:23.431]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:37:23.431]                   label = label, ...)
  [13:37:23.431]                 if (!future$lazy) 
  [13:37:23.431]                   future <- run(future)
  [13:37:23.431]                 invisible(future)
  [13:37:23.431]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:23.431]         }
  [13:37:23.431]     }
  [13:37:23.431]     if (base::is.na(TRUE)) {
  [13:37:23.431]     }
  [13:37:23.431]     else {
  [13:37:23.431]         if (TRUE) {
  [13:37:23.431]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:23.431]                 open = "w")
  [13:37:23.431]         }
  [13:37:23.431]         else {
  [13:37:23.431]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:23.431]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:23.431]         }
  [13:37:23.431]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:23.431]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:23.431]             base::sink(type = "output", split = FALSE)
  [13:37:23.431]             base::close(...future.stdout)
  [13:37:23.431]         }, add = TRUE)
  [13:37:23.431]     }
  [13:37:23.431]     ...future.frame <- base::sys.nframe()
  [13:37:23.431]     ...future.conditions <- base::list()
  [13:37:23.431]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:23.431]     ...future.result <- base::tryCatch({
  [13:37:23.431]         base::withCallingHandlers({
  [13:37:23.431]             ...future.value <- base::withVisible(base::local({
  [13:37:23.431]                 doFuture::registerDoFuture()
  [13:37:23.431]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:23.431]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:23.431]                   {
  [13:37:23.431]                     a <- NULL
  [13:37:23.431]                     b <- NULL
  [13:37:23.431]                   }
  [13:37:23.431]                   ...future.env <- environment()
  [13:37:23.431]                   local({
  [13:37:23.431]                     for (name in names(...future.x_jj)) {
  [13:37:23.431]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:23.431]                         inherits = FALSE)
  [13:37:23.431]                     }
  [13:37:23.431]                   })
  [13:37:23.431]                   tryCatch({
  [13:37:23.431]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:23.431]                       plan = future::plan("next"))
  [13:37:23.431]                   }, error = identity)
  [13:37:23.431]                 })
  [13:37:23.431]             }))
  [13:37:23.431]             future::FutureResult(value = ...future.value$value, 
  [13:37:23.431]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:23.431]                   ...future.rng), started = ...future.startTime, 
  [13:37:23.431]                 version = "1.8")
  [13:37:23.431]         }, condition = base::local({
  [13:37:23.431]             c <- base::c
  [13:37:23.431]             inherits <- base::inherits
  [13:37:23.431]             invokeRestart <- base::invokeRestart
  [13:37:23.431]             length <- base::length
  [13:37:23.431]             list <- base::list
  [13:37:23.431]             seq.int <- base::seq.int
  [13:37:23.431]             signalCondition <- base::signalCondition
  [13:37:23.431]             sys.calls <- base::sys.calls
  [13:37:23.431]             Sys.time <- base::Sys.time
  [13:37:23.431]             `[[` <- base::`[[`
  [13:37:23.431]             `+` <- base::`+`
  [13:37:23.431]             `<<-` <- base::`<<-`
  [13:37:23.431]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:23.431]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:23.431]                   3L)]
  [13:37:23.431]             }
  [13:37:23.431]             function(cond) {
  [13:37:23.431]                 if (inherits(cond, "error")) {
  [13:37:23.431]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:23.431]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:23.431]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:23.431]                   signalCondition(cond)
  [13:37:23.431]                 }
  [13:37:23.431]                 else if (inherits(cond, "condition")) {
  [13:37:23.431]                   signal <- FALSE && inherits(cond, character(0))
  [13:37:23.431]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:23.431]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:23.431]                   if (!signal) {
  [13:37:23.431]                     muffleCondition <- function (cond) 
  [13:37:23.431]                     {
  [13:37:23.431]                       inherits <- base::inherits
  [13:37:23.431]                       invokeRestart <- base::invokeRestart
  [13:37:23.431]                       muffled <- FALSE
  [13:37:23.431]                       if (inherits(cond, "message")) {
  [13:37:23.431]                         invokeRestart("muffleMessage")
  [13:37:23.431]                         muffled <- TRUE
  [13:37:23.431]                       }
  [13:37:23.431]                       else if (inherits(cond, "warning")) {
  [13:37:23.431]                         invokeRestart("muffleWarning")
  [13:37:23.431]                         muffled <- TRUE
  [13:37:23.431]                       }
  [13:37:23.431]                       else if (inherits(cond, "condition")) {
  [13:37:23.431]                         computeRestarts <- base::computeRestarts
  [13:37:23.431]                         grepl <- base::grepl
  [13:37:23.431]                         is.null <- base::is.null
  [13:37:23.431]                         restarts <- computeRestarts(cond)
  [13:37:23.431]                         for (restart in restarts) {
  [13:37:23.431]                           name <- restart$name
  [13:37:23.431]                           if (is.null(name)) 
  [13:37:23.431]                             next
  [13:37:23.431]                           if (!grepl("^muffle", name)) 
  [13:37:23.431]                             next
  [13:37:23.431]                           invokeRestart(restart)
  [13:37:23.431]                           muffled <- TRUE
  [13:37:23.431]                           break
  [13:37:23.431]                         }
  [13:37:23.431]                       }
  [13:37:23.431]                       invisible(muffled)
  [13:37:23.431]                     }
  [13:37:23.431]                     muffleCondition(cond)
  [13:37:23.431]                   }
  [13:37:23.431]                 }
  [13:37:23.431]             }
  [13:37:23.431]         }))
  [13:37:23.431]     }, error = function(ex) {
  [13:37:23.431]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:23.431]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:23.431]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:23.431]     }, finally = {
  [13:37:23.431]         {
  [13:37:23.431]             {
  [13:37:23.431]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:37:23.431]             }
  [13:37:23.431]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:37:23.431]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:23.431]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:37:23.431]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:23.431]             {
  [13:37:23.431]                 if (substitute) 
  [13:37:23.431]                   expr <- substitute(expr)
  [13:37:23.431]                 if (is.function(workers)) 
  [13:37:23.431]                   workers <- workers()
  [13:37:23.431]                 workers <- as.integer(workers)
  [13:37:23.431]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:37:23.431]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:37:23.431]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:23.431]                     lazy = lazy, seed = seed, globals = globals, 
  [13:37:23.431]                     local = TRUE, label = label, ...))
  [13:37:23.431]                 }
  [13:37:23.431]                 oopts <- options(mc.cores = workers)
  [13:37:23.431]                 on.exit(options(oopts))
  [13:37:23.431]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:37:23.431]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:23.431]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:37:23.431]                   label = label, ...)
  [13:37:23.431]                 if (!future$lazy) 
  [13:37:23.431]                   future <- run(future)
  [13:37:23.431]                 invisible(future)
  [13:37:23.431]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:37:23.431]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:37:23.431]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [13:37:23.431]                 label = NULL, ...) 
  [13:37:23.431]             {
  [13:37:23.431]                 if (substitute) 
  [13:37:23.431]                   expr <- substitute(expr)
  [13:37:23.431]                 if (is.function(workers)) 
  [13:37:23.431]                   workers <- workers()
  [13:37:23.431]                 workers <- as.integer(workers)
  [13:37:23.431]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:37:23.431]                   workers >= 1)
  [13:37:23.431]                 if (workers == 1L) {
  [13:37:23.431]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:23.431]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:37:23.431]                     local = TRUE, label = label, ...))
  [13:37:23.431]                 }
  [13:37:23.431]                 workers <- ClusterRegistry("start", workers = workers)
  [13:37:23.431]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:37:23.431]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:23.431]                   globals = globals, persistent = persistent, 
  [13:37:23.431]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:37:23.431]                   label = label, ...)
  [13:37:23.431]                 if (!future$lazy) 
  [13:37:23.431]                   future <- run(future)
  [13:37:23.431]                 invisible(future)
  [13:37:23.431]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:23.431]         }
  [13:37:23.431]         base::options(...future.oldOptions)
  [13:37:23.431]     })
  [13:37:23.431]     Sys.time
  [13:37:23.431]     if (base::is.na(TRUE)) {
  [13:37:23.431]     }
  [13:37:23.431]     else {
  [13:37:23.431]         base::sink(type = "output", split = FALSE)
  [13:37:23.431]         if (TRUE) {
  [13:37:23.431]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:23.431]         }
  [13:37:23.431]         else {
  [13:37:23.431]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:23.431]         }
  [13:37:23.431]         base::close(...future.stdout)
  [13:37:23.431]         ...future.stdout <- NULL
  [13:37:23.431]     }
  [13:37:23.431]     ...future.result$conditions <- ...future.conditions
  [13:37:23.431]     ...future.result
  [13:37:23.431] }
  [13:37:23.438] requestCore(): workers = 2
  [13:37:23.442] MulticoreFuture started
  [13:37:23.442] Chunk #2 of 2 ... DONE
  [13:37:23.443] Launching 2 futures (chunks) ... DONE
  [13:37:23.443] - resolving futures
  [13:37:23.443]   - gathering results & relaying conditions (except errors)
  [13:37:23.444] resolve() on list ...
  [13:37:23.444]  recursive: 0
  [13:37:23.445]  length: 2
  [13:37:23.445] 
  [13:37:23.445] Future #1
  [13:37:23.452] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [13:37:23.452] - nx: 2
  [13:37:23.453] - relay: TRUE
  [13:37:23.453] - stdout: TRUE
  [13:37:23.453] - signal: TRUE
  [13:37:23.454] - resignal: FALSE
  [13:37:23.454] - force: FALSE
  [13:37:23.454] - relayed: [n=2] FALSE, FALSE
  [13:37:23.455] - queued futures: [n=2] FALSE, FALSE
  [13:37:23.455]  - until=1
  [13:37:23.455]  - relaying element #1
  [13:37:23.456] - relayed: [n=2] TRUE, FALSE
  [13:37:23.456] - queued futures: [n=2] TRUE, FALSE
  [13:37:23.457] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [13:37:23.457]  length: 1 (resolved future 1)
  [13:37:23.459] plan(): Setting new future strategy stack:
  [13:37:23.459] List of future strategies:
  [13:37:23.459] 1. multisession:
  [13:37:23.459]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:37:23.459]    - tweaked: FALSE
  [13:37:23.459]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.462] plan(): nbrOfWorkers() = 1
  [13:37:23.464] plan(): Setting new future strategy stack:
  [13:37:23.465] List of future strategies:
  [13:37:23.465] 1. multicore:
  [13:37:23.465]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:37:23.465]    - tweaked: FALSE
  [13:37:23.465]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.465] 2. multisession:
  [13:37:23.465]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:37:23.465]    - tweaked: FALSE
  [13:37:23.465]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.469] plan(): nbrOfWorkers() = 2
  [13:37:23.470] Future #2
  [13:37:23.479] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [13:37:23.480] - nx: 2
  [13:37:23.480] - relay: TRUE
  [13:37:23.481] - stdout: TRUE
  [13:37:23.481] - signal: TRUE
  [13:37:23.482] - resignal: FALSE
  [13:37:23.482] - force: FALSE
  [13:37:23.483] - relayed: [n=2] TRUE, FALSE
  [13:37:23.483] - queued futures: [n=2] TRUE, FALSE
  [13:37:23.484]  - until=2
  [13:37:23.484]  - relaying element #2
  [13:37:23.485] - relayed: [n=2] TRUE, TRUE
  [13:37:23.485] - queued futures: [n=2] TRUE, TRUE
  [13:37:23.486] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [13:37:23.486]  length: 0 (resolved future 2)
  [13:37:23.486] Relaying remaining futures
  [13:37:23.487] signalConditionsASAP(NULL, pos=0) ...
  [13:37:23.487] - nx: 2
  [13:37:23.488] - relay: TRUE
  [13:37:23.488] - stdout: TRUE
  [13:37:23.489] - signal: TRUE
  [13:37:23.489] - resignal: FALSE
  [13:37:23.489] - force: FALSE
  [13:37:23.490] - relayed: [n=2] TRUE, TRUE
  [13:37:23.490] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [13:37:23.491] - relayed: [n=2] TRUE, TRUE
  [13:37:23.491] - queued futures: [n=2] TRUE, TRUE
  [13:37:23.492] signalConditionsASAP(NULL, pos=0) ... done
  [13:37:23.492] resolve() on list ... DONE
  [13:37:23.493] - collecting values of futures
  [13:37:23.493] - accumulating results
  [13:37:23.500] - processing errors (handler = 'stop')
  [13:37:23.500] - extracting results
  [13:37:23.501] doFuture() ... DONE
  - plan(list('multicore', 'multisession')) ... DONE
  - plan(list('multicore', 'cluster')) ...
  [13:37:23.502] plan(): Setting new future strategy stack:
  [13:37:23.502] List of future strategies:
  [13:37:23.502] 1. multicore:
  [13:37:23.502]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:37:23.502]    - tweaked: FALSE
  [13:37:23.502]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.502] 2. cluster:
  [13:37:23.502]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:37:23.502]    - tweaked: FALSE
  [13:37:23.502]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.505] plan(): nbrOfWorkers() = 2
  [13:37:23.506] doFuture() ...
  [13:37:23.510] - dummy globals (as locals): [2] 'a', 'b'
  [13:37:23.511] - R expression:
  [13:37:23.512] {
  [13:37:23.512]     doFuture::registerDoFuture()
  [13:37:23.512]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:23.512]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:23.512]         {
  [13:37:23.512]             a <- NULL
  [13:37:23.512]             b <- NULL
  [13:37:23.512]         }
  [13:37:23.512]         ...future.env <- environment()
  [13:37:23.512]         local({
  [13:37:23.512]             for (name in names(...future.x_jj)) {
  [13:37:23.512]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:23.512]                   inherits = FALSE)
  [13:37:23.512]             }
  [13:37:23.512]         })
  [13:37:23.512]         tryCatch({
  [13:37:23.512]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:23.512]                 plan = future::plan("next"))
  [13:37:23.512]         }, error = identity)
  [13:37:23.512]     })
  [13:37:23.512] }
  [13:37:23.513] - identifying globals and packages ...
  [13:37:23.513] getGlobalsAndPackages() ...
  [13:37:23.514] Searching for globals...
  [13:37:23.531] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [13:37:23.531] Searching for globals ... DONE
  [13:37:23.532] Resolving globals: FALSE
  [13:37:23.533] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:37:23.534] - globals: [1] '...future.x_ii'
  [13:37:23.534] 
  [13:37:23.535] getGlobalsAndPackages() ... DONE
  [13:37:23.536] List of 1
  [13:37:23.536]  $ ...future.x_ii: NULL
  [13:37:23.536]  - attr(*, "where")=List of 1
  [13:37:23.536]   ..$ ...future.x_ii:<environment: 0x5647c5655908> 
  [13:37:23.536]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:23.536]  - attr(*, "resolved")= logi FALSE
  [13:37:23.536]  - attr(*, "total_size")= num 0
  [13:37:23.542]   - R expression:
  [13:37:23.542] {
  [13:37:23.542]     doFuture::registerDoFuture()
  [13:37:23.542]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:23.542]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:23.542]         {
  [13:37:23.542]             a <- NULL
  [13:37:23.542]             b <- NULL
  [13:37:23.542]         }
  [13:37:23.542]         ...future.env <- environment()
  [13:37:23.542]         local({
  [13:37:23.542]             for (name in names(...future.x_jj)) {
  [13:37:23.542]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:23.542]                   inherits = FALSE)
  [13:37:23.542]             }
  [13:37:23.542]         })
  [13:37:23.542]         tryCatch({
  [13:37:23.542]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:23.542]                 plan = future::plan("next"))
  [13:37:23.542]         }, error = identity)
  [13:37:23.542]     })
  [13:37:23.542] }
  [13:37:23.543]   - globals: [1] '...future.x_ii'
  [13:37:23.544] List of 1
  [13:37:23.544]  $ ...future.x_ii: NULL
  [13:37:23.544]  - attr(*, "where")=List of 1
  [13:37:23.544]   ..$ ...future.x_ii:<environment: 0x5647c5655908> 
  [13:37:23.544]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:23.544]  - attr(*, "resolved")= logi FALSE
  [13:37:23.544]  - attr(*, "total_size")= num 0
  [13:37:23.554]   - packages: [1] 'doFuture'
  [13:37:23.554] - identifying globals and packages ... DONE
  [13:37:23.556] Number of chunks: 2
  [13:37:23.556] Number of futures (= number of chunks): 2
  [13:37:23.557] Launching 2 futures (chunks) ...
  [13:37:23.557] Chunk #1 of 2 ...
  [13:37:23.558]  - Finding globals in 'args_list' chunk #1 ...
  [13:37:23.558] getGlobalsAndPackages() ...
  [13:37:23.558] Searching for globals...
  [13:37:23.559] 
  [13:37:23.560] Searching for globals ... DONE
  [13:37:23.560] - globals: [0] <none>
  [13:37:23.560] getGlobalsAndPackages() ... DONE
  [13:37:23.560] 
  [13:37:23.561] 
  [13:37:23.561]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:37:23.562] getGlobalsAndPackages() ...
  [13:37:23.562] - globals passed as-is: [1] '...future.x_ii'
  [13:37:23.563] Resolving globals: FALSE
  [13:37:23.564] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:37:23.564] - globals: [1] '...future.x_ii'
  [13:37:23.565] 
  [13:37:23.565] getGlobalsAndPackages() ... DONE
  [13:37:23.567] Packages needed by the future expression (n = 1): 'doFuture'
  [13:37:23.568] Packages needed by future strategies (n = 1): 'future'
  [13:37:23.573] {
  [13:37:23.573]     {
  [13:37:23.573]         ...future.startTime <- base::Sys.time()
  [13:37:23.573]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:23.573]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:23.573]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:23.573]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:23.573]             future.resolve.recursive = NULL, width = 80L)
  [13:37:23.573]         {
  [13:37:23.573]             {
  [13:37:23.573]                 {
  [13:37:23.573]                   {
  [13:37:23.573]                     has_future <- base::requireNamespace("future", 
  [13:37:23.573]                       quietly = TRUE)
  [13:37:23.573]                     version <- if (has_future) 
  [13:37:23.573]                       utils::packageVersion("future")
  [13:37:23.573]                     else NULL
  [13:37:23.573]                     if (!has_future || version < "1.8.0") {
  [13:37:23.573]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:37:23.573]                         "", base::R.version$version.string), 
  [13:37:23.573]                         platform = base::sprintf("%s (%s-bit)", 
  [13:37:23.573]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:23.573]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:23.573]                           "release", "version")], collapse = " "), 
  [13:37:23.573]                         hostname = base::Sys.info()[["nodename"]])
  [13:37:23.573]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:23.573]                         info)
  [13:37:23.573]                       info <- base::paste(info, collapse = "; ")
  [13:37:23.573]                       if (!has_future) {
  [13:37:23.573]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:23.573]                           info)
  [13:37:23.573]                       }
  [13:37:23.573]                       else {
  [13:37:23.573]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:23.573]                           info, version)
  [13:37:23.573]                       }
  [13:37:23.573]                       base::stop(msg)
  [13:37:23.573]                     }
  [13:37:23.573]                   }
  [13:37:23.573]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:37:23.573]                   base::options(mc.cores = 1L)
  [13:37:23.573]                 }
  [13:37:23.573]                 base::local({
  [13:37:23.573]                   for (pkg in c("doFuture", "future")) {
  [13:37:23.573]                     base::loadNamespace(pkg)
  [13:37:23.573]                     base::library(pkg, character.only = TRUE)
  [13:37:23.573]                   }
  [13:37:23.573]                 })
  [13:37:23.573]             }
  [13:37:23.573]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:23.573]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:23.573]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:37:23.573]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:37:23.573]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:37:23.573]                 ...) 
  [13:37:23.573]             {
  [13:37:23.573]                 if (substitute) 
  [13:37:23.573]                   expr <- substitute(expr)
  [13:37:23.573]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:37:23.573]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:23.573]                   globals = globals, persistent = persistent, 
  [13:37:23.573]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:37:23.573]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:37:23.573]                   label = label, ...)
  [13:37:23.573]                 if (!future$lazy) 
  [13:37:23.573]                   future <- run(future)
  [13:37:23.573]                 invisible(future)
  [13:37:23.573]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:23.573]         }
  [13:37:23.573]     }
  [13:37:23.573]     if (base::is.na(TRUE)) {
  [13:37:23.573]     }
  [13:37:23.573]     else {
  [13:37:23.573]         if (TRUE) {
  [13:37:23.573]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:23.573]                 open = "w")
  [13:37:23.573]         }
  [13:37:23.573]         else {
  [13:37:23.573]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:23.573]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:23.573]         }
  [13:37:23.573]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:23.573]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:23.573]             base::sink(type = "output", split = FALSE)
  [13:37:23.573]             base::close(...future.stdout)
  [13:37:23.573]         }, add = TRUE)
  [13:37:23.573]     }
  [13:37:23.573]     ...future.frame <- base::sys.nframe()
  [13:37:23.573]     ...future.conditions <- base::list()
  [13:37:23.573]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:23.573]     ...future.result <- base::tryCatch({
  [13:37:23.573]         base::withCallingHandlers({
  [13:37:23.573]             ...future.value <- base::withVisible(base::local({
  [13:37:23.573]                 doFuture::registerDoFuture()
  [13:37:23.573]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:23.573]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:23.573]                   {
  [13:37:23.573]                     a <- NULL
  [13:37:23.573]                     b <- NULL
  [13:37:23.573]                   }
  [13:37:23.573]                   ...future.env <- environment()
  [13:37:23.573]                   local({
  [13:37:23.573]                     for (name in names(...future.x_jj)) {
  [13:37:23.573]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:23.573]                         inherits = FALSE)
  [13:37:23.573]                     }
  [13:37:23.573]                   })
  [13:37:23.573]                   tryCatch({
  [13:37:23.573]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:23.573]                       plan = future::plan("next"))
  [13:37:23.573]                   }, error = identity)
  [13:37:23.573]                 })
  [13:37:23.573]             }))
  [13:37:23.573]             future::FutureResult(value = ...future.value$value, 
  [13:37:23.573]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:23.573]                   ...future.rng), started = ...future.startTime, 
  [13:37:23.573]                 version = "1.8")
  [13:37:23.573]         }, condition = base::local({
  [13:37:23.573]             c <- base::c
  [13:37:23.573]             inherits <- base::inherits
  [13:37:23.573]             invokeRestart <- base::invokeRestart
  [13:37:23.573]             length <- base::length
  [13:37:23.573]             list <- base::list
  [13:37:23.573]             seq.int <- base::seq.int
  [13:37:23.573]             signalCondition <- base::signalCondition
  [13:37:23.573]             sys.calls <- base::sys.calls
  [13:37:23.573]             Sys.time <- base::Sys.time
  [13:37:23.573]             `[[` <- base::`[[`
  [13:37:23.573]             `+` <- base::`+`
  [13:37:23.573]             `<<-` <- base::`<<-`
  [13:37:23.573]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:23.573]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:23.573]                   3L)]
  [13:37:23.573]             }
  [13:37:23.573]             function(cond) {
  [13:37:23.573]                 if (inherits(cond, "error")) {
  [13:37:23.573]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:23.573]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:23.573]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:23.573]                   signalCondition(cond)
  [13:37:23.573]                 }
  [13:37:23.573]                 else if (inherits(cond, "condition")) {
  [13:37:23.573]                   signal <- FALSE && inherits(cond, character(0))
  [13:37:23.573]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:23.573]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:23.573]                   if (!signal) {
  [13:37:23.573]                     muffleCondition <- function (cond) 
  [13:37:23.573]                     {
  [13:37:23.573]                       inherits <- base::inherits
  [13:37:23.573]                       invokeRestart <- base::invokeRestart
  [13:37:23.573]                       muffled <- FALSE
  [13:37:23.573]                       if (inherits(cond, "message")) {
  [13:37:23.573]                         invokeRestart("muffleMessage")
  [13:37:23.573]                         muffled <- TRUE
  [13:37:23.573]                       }
  [13:37:23.573]                       else if (inherits(cond, "warning")) {
  [13:37:23.573]                         invokeRestart("muffleWarning")
  [13:37:23.573]                         muffled <- TRUE
  [13:37:23.573]                       }
  [13:37:23.573]                       else if (inherits(cond, "condition")) {
  [13:37:23.573]                         computeRestarts <- base::computeRestarts
  [13:37:23.573]                         grepl <- base::grepl
  [13:37:23.573]                         is.null <- base::is.null
  [13:37:23.573]                         restarts <- computeRestarts(cond)
  [13:37:23.573]                         for (restart in restarts) {
  [13:37:23.573]                           name <- restart$name
  [13:37:23.573]                           if (is.null(name)) 
  [13:37:23.573]                             next
  [13:37:23.573]                           if (!grepl("^muffle", name)) 
  [13:37:23.573]                             next
  [13:37:23.573]                           invokeRestart(restart)
  [13:37:23.573]                           muffled <- TRUE
  [13:37:23.573]                           break
  [13:37:23.573]                         }
  [13:37:23.573]                       }
  [13:37:23.573]                       invisible(muffled)
  [13:37:23.573]                     }
  [13:37:23.573]                     muffleCondition(cond)
  [13:37:23.573]                   }
  [13:37:23.573]                 }
  [13:37:23.573]             }
  [13:37:23.573]         }))
  [13:37:23.573]     }, error = function(ex) {
  [13:37:23.573]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:23.573]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:23.573]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:23.573]     }, finally = {
  [13:37:23.573]         {
  [13:37:23.573]             {
  [13:37:23.573]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:37:23.573]             }
  [13:37:23.573]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:37:23.573]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:23.573]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:37:23.573]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:23.573]             {
  [13:37:23.573]                 if (substitute) 
  [13:37:23.573]                   expr <- substitute(expr)
  [13:37:23.573]                 if (is.function(workers)) 
  [13:37:23.573]                   workers <- workers()
  [13:37:23.573]                 workers <- as.integer(workers)
  [13:37:23.573]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:37:23.573]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:37:23.573]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:23.573]                     lazy = lazy, seed = seed, globals = globals, 
  [13:37:23.573]                     local = TRUE, label = label, ...))
  [13:37:23.573]                 }
  [13:37:23.573]                 oopts <- options(mc.cores = workers)
  [13:37:23.573]                 on.exit(options(oopts))
  [13:37:23.573]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:37:23.573]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:23.573]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:37:23.573]                   label = label, ...)
  [13:37:23.573]                 if (!future$lazy) 
  [13:37:23.573]                   future <- run(future)
  [13:37:23.573]                 invisible(future)
  [13:37:23.573]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:37:23.573]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:37:23.573]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [13:37:23.573]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:37:23.573]                 label = NULL, ...) 
  [13:37:23.573]             {
  [13:37:23.573]                 if (substitute) 
  [13:37:23.573]                   expr <- substitute(expr)
  [13:37:23.573]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:37:23.573]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:23.573]                   globals = globals, persistent = persistent, 
  [13:37:23.573]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:37:23.573]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:37:23.573]                   label = label, ...)
  [13:37:23.573]                 if (!future$lazy) 
  [13:37:23.573]                   future <- run(future)
  [13:37:23.573]                 invisible(future)
  [13:37:23.573]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:23.573]         }
  [13:37:23.573]         base::options(...future.oldOptions)
  [13:37:23.573]     })
  [13:37:23.573]     Sys.time
  [13:37:23.573]     if (base::is.na(TRUE)) {
  [13:37:23.573]     }
  [13:37:23.573]     else {
  [13:37:23.573]         base::sink(type = "output", split = FALSE)
  [13:37:23.573]         if (TRUE) {
  [13:37:23.573]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:23.573]         }
  [13:37:23.573]         else {
  [13:37:23.573]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:23.573]         }
  [13:37:23.573]         base::close(...future.stdout)
  [13:37:23.573]         ...future.stdout <- NULL
  [13:37:23.573]     }
  [13:37:23.573]     ...future.result$conditions <- ...future.conditions
  [13:37:23.573]     ...future.result
  [13:37:23.573] }
  [13:37:23.579] requestCore(): workers = 2
  [13:37:23.582] MulticoreFuture started
  [13:37:23.583] Chunk #1 of 2 ... DONE
  [13:37:23.584] Chunk #2 of 2 ...
  [13:37:23.584]  - Finding globals in 'args_list' chunk #2 ...
  [13:37:23.584] getGlobalsAndPackages() ...
  [13:37:23.585] Searching for globals...
  [13:37:23.586] 
  [13:37:23.587] Searching for globals ... DONE
  [13:37:23.587] - globals: [0] <none>
  [13:37:23.587] getGlobalsAndPackages() ... DONE
  [13:37:23.588] 
  [13:37:23.588] 
  [13:37:23.589]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:37:23.591] getGlobalsAndPackages() ...
  [13:37:23.591] - globals passed as-is: [1] '...future.x_ii'
  [13:37:23.592] Resolving globals: FALSE
  [13:37:23.593] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:37:23.594] - globals: [1] '...future.x_ii'
  [13:37:23.594] 
  [13:37:23.594] getGlobalsAndPackages() ... DONE
  [13:37:23.595] plan(): Setting new future strategy stack:
  [13:37:23.595] List of future strategies:
  [13:37:23.595] 1. cluster:
  [13:37:23.595]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:37:23.595]    - tweaked: FALSE
  [13:37:23.595]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.598] Packages needed by the future expression (n = 1): 'doFuture'
  [13:37:23.598] Packages needed by future strategies (n = 1): 'future'
  [13:37:23.598] plan(): nbrOfWorkers() = 1
  [13:37:23.601] plan(): Setting new future strategy stack:
  [13:37:23.601] List of future strategies:
  [13:37:23.601] 1. multicore:
  [13:37:23.601]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:37:23.601]    - tweaked: FALSE
  [13:37:23.601]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.601] 2. cluster:
  [13:37:23.601]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:37:23.601]    - tweaked: FALSE
  [13:37:23.601]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.603] plan(): nbrOfWorkers() = 2
  [13:37:23.606] {
  [13:37:23.606]     {
  [13:37:23.606]         ...future.startTime <- base::Sys.time()
  [13:37:23.606]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:23.606]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:23.606]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:23.606]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:23.606]             future.resolve.recursive = NULL, width = 80L)
  [13:37:23.606]         {
  [13:37:23.606]             {
  [13:37:23.606]                 {
  [13:37:23.606]                   {
  [13:37:23.606]                     has_future <- base::requireNamespace("future", 
  [13:37:23.606]                       quietly = TRUE)
  [13:37:23.606]                     version <- if (has_future) 
  [13:37:23.606]                       utils::packageVersion("future")
  [13:37:23.606]                     else NULL
  [13:37:23.606]                     if (!has_future || version < "1.8.0") {
  [13:37:23.606]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:37:23.606]                         "", base::R.version$version.string), 
  [13:37:23.606]                         platform = base::sprintf("%s (%s-bit)", 
  [13:37:23.606]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:23.606]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:23.606]                           "release", "version")], collapse = " "), 
  [13:37:23.606]                         hostname = base::Sys.info()[["nodename"]])
  [13:37:23.606]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:23.606]                         info)
  [13:37:23.606]                       info <- base::paste(info, collapse = "; ")
  [13:37:23.606]                       if (!has_future) {
  [13:37:23.606]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:23.606]                           info)
  [13:37:23.606]                       }
  [13:37:23.606]                       else {
  [13:37:23.606]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:23.606]                           info, version)
  [13:37:23.606]                       }
  [13:37:23.606]                       base::stop(msg)
  [13:37:23.606]                     }
  [13:37:23.606]                   }
  [13:37:23.606]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:37:23.606]                   base::options(mc.cores = 1L)
  [13:37:23.606]                 }
  [13:37:23.606]                 base::local({
  [13:37:23.606]                   for (pkg in c("doFuture", "future")) {
  [13:37:23.606]                     base::loadNamespace(pkg)
  [13:37:23.606]                     base::library(pkg, character.only = TRUE)
  [13:37:23.606]                   }
  [13:37:23.606]                 })
  [13:37:23.606]             }
  [13:37:23.606]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:23.606]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:23.606]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:37:23.606]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:37:23.606]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:37:23.606]                 ...) 
  [13:37:23.606]             {
  [13:37:23.606]                 if (substitute) 
  [13:37:23.606]                   expr <- substitute(expr)
  [13:37:23.606]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:37:23.606]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:23.606]                   globals = globals, persistent = persistent, 
  [13:37:23.606]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:37:23.606]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:37:23.606]                   label = label, ...)
  [13:37:23.606]                 if (!future$lazy) 
  [13:37:23.606]                   future <- run(future)
  [13:37:23.606]                 invisible(future)
  [13:37:23.606]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:23.606]         }
  [13:37:23.606]     }
  [13:37:23.606]     if (base::is.na(TRUE)) {
  [13:37:23.606]     }
  [13:37:23.606]     else {
  [13:37:23.606]         if (TRUE) {
  [13:37:23.606]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:23.606]                 open = "w")
  [13:37:23.606]         }
  [13:37:23.606]         else {
  [13:37:23.606]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:23.606]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:23.606]         }
  [13:37:23.606]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:23.606]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:23.606]             base::sink(type = "output", split = FALSE)
  [13:37:23.606]             base::close(...future.stdout)
  [13:37:23.606]         }, add = TRUE)
  [13:37:23.606]     }
  [13:37:23.606]     ...future.frame <- base::sys.nframe()
  [13:37:23.606]     ...future.conditions <- base::list()
  [13:37:23.606]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:23.606]     ...future.result <- base::tryCatch({
  [13:37:23.606]         base::withCallingHandlers({
  [13:37:23.606]             ...future.value <- base::withVisible(base::local({
  [13:37:23.606]                 doFuture::registerDoFuture()
  [13:37:23.606]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:23.606]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:23.606]                   {
  [13:37:23.606]                     a <- NULL
  [13:37:23.606]                     b <- NULL
  [13:37:23.606]                   }
  [13:37:23.606]                   ...future.env <- environment()
  [13:37:23.606]                   local({
  [13:37:23.606]                     for (name in names(...future.x_jj)) {
  [13:37:23.606]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:23.606]                         inherits = FALSE)
  [13:37:23.606]                     }
  [13:37:23.606]                   })
  [13:37:23.606]                   tryCatch({
  [13:37:23.606]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:23.606]                       plan = future::plan("next"))
  [13:37:23.606]                   }, error = identity)
  [13:37:23.606]                 })
  [13:37:23.606]             }))
  [13:37:23.606]             future::FutureResult(value = ...future.value$value, 
  [13:37:23.606]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:23.606]                   ...future.rng), started = ...future.startTime, 
  [13:37:23.606]                 version = "1.8")
  [13:37:23.606]         }, condition = base::local({
  [13:37:23.606]             c <- base::c
  [13:37:23.606]             inherits <- base::inherits
  [13:37:23.606]             invokeRestart <- base::invokeRestart
  [13:37:23.606]             length <- base::length
  [13:37:23.606]             list <- base::list
  [13:37:23.606]             seq.int <- base::seq.int
  [13:37:23.606]             signalCondition <- base::signalCondition
  [13:37:23.606]             sys.calls <- base::sys.calls
  [13:37:23.606]             Sys.time <- base::Sys.time
  [13:37:23.606]             `[[` <- base::`[[`
  [13:37:23.606]             `+` <- base::`+`
  [13:37:23.606]             `<<-` <- base::`<<-`
  [13:37:23.606]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:23.606]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:23.606]                   3L)]
  [13:37:23.606]             }
  [13:37:23.606]             function(cond) {
  [13:37:23.606]                 if (inherits(cond, "error")) {
  [13:37:23.606]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:23.606]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:23.606]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:23.606]                   signalCondition(cond)
  [13:37:23.606]                 }
  [13:37:23.606]                 else if (inherits(cond, "condition")) {
  [13:37:23.606]                   signal <- FALSE && inherits(cond, character(0))
  [13:37:23.606]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:23.606]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:23.606]                   if (!signal) {
  [13:37:23.606]                     muffleCondition <- function (cond) 
  [13:37:23.606]                     {
  [13:37:23.606]                       inherits <- base::inherits
  [13:37:23.606]                       invokeRestart <- base::invokeRestart
  [13:37:23.606]                       muffled <- FALSE
  [13:37:23.606]                       if (inherits(cond, "message")) {
  [13:37:23.606]                         invokeRestart("muffleMessage")
  [13:37:23.606]                         muffled <- TRUE
  [13:37:23.606]                       }
  [13:37:23.606]                       else if (inherits(cond, "warning")) {
  [13:37:23.606]                         invokeRestart("muffleWarning")
  [13:37:23.606]                         muffled <- TRUE
  [13:37:23.606]                       }
  [13:37:23.606]                       else if (inherits(cond, "condition")) {
  [13:37:23.606]                         computeRestarts <- base::computeRestarts
  [13:37:23.606]                         grepl <- base::grepl
  [13:37:23.606]                         is.null <- base::is.null
  [13:37:23.606]                         restarts <- computeRestarts(cond)
  [13:37:23.606]                         for (restart in restarts) {
  [13:37:23.606]                           name <- restart$name
  [13:37:23.606]                           if (is.null(name)) 
  [13:37:23.606]                             next
  [13:37:23.606]                           if (!grepl("^muffle", name)) 
  [13:37:23.606]                             next
  [13:37:23.606]                           invokeRestart(restart)
  [13:37:23.606]                           muffled <- TRUE
  [13:37:23.606]                           break
  [13:37:23.606]                         }
  [13:37:23.606]                       }
  [13:37:23.606]                       invisible(muffled)
  [13:37:23.606]                     }
  [13:37:23.606]                     muffleCondition(cond)
  [13:37:23.606]                   }
  [13:37:23.606]                 }
  [13:37:23.606]             }
  [13:37:23.606]         }))
  [13:37:23.606]     }, error = function(ex) {
  [13:37:23.606]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:23.606]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:23.606]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:23.606]     }, finally = {
  [13:37:23.606]         {
  [13:37:23.606]             {
  [13:37:23.606]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:37:23.606]             }
  [13:37:23.606]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:37:23.606]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:23.606]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:37:23.606]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:23.606]             {
  [13:37:23.606]                 if (substitute) 
  [13:37:23.606]                   expr <- substitute(expr)
  [13:37:23.606]                 if (is.function(workers)) 
  [13:37:23.606]                   workers <- workers()
  [13:37:23.606]                 workers <- as.integer(workers)
  [13:37:23.606]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:37:23.606]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:37:23.606]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:23.606]                     lazy = lazy, seed = seed, globals = globals, 
  [13:37:23.606]                     local = TRUE, label = label, ...))
  [13:37:23.606]                 }
  [13:37:23.606]                 oopts <- options(mc.cores = workers)
  [13:37:23.606]                 on.exit(options(oopts))
  [13:37:23.606]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:37:23.606]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:23.606]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:37:23.606]                   label = label, ...)
  [13:37:23.606]                 if (!future$lazy) 
  [13:37:23.606]                   future <- run(future)
  [13:37:23.606]                 invisible(future)
  [13:37:23.606]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:37:23.606]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:37:23.606]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [13:37:23.606]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:37:23.606]                 label = NULL, ...) 
  [13:37:23.606]             {
  [13:37:23.606]                 if (substitute) 
  [13:37:23.606]                   expr <- substitute(expr)
  [13:37:23.606]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:37:23.606]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:23.606]                   globals = globals, persistent = persistent, 
  [13:37:23.606]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:37:23.606]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:37:23.606]                   label = label, ...)
  [13:37:23.606]                 if (!future$lazy) 
  [13:37:23.606]                   future <- run(future)
  [13:37:23.606]                 invisible(future)
  [13:37:23.606]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:23.606]         }
  [13:37:23.606]         base::options(...future.oldOptions)
  [13:37:23.606]     })
  [13:37:23.606]     Sys.time
  [13:37:23.606]     if (base::is.na(TRUE)) {
  [13:37:23.606]     }
  [13:37:23.606]     else {
  [13:37:23.606]         base::sink(type = "output", split = FALSE)
  [13:37:23.606]         if (TRUE) {
  [13:37:23.606]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:23.606]         }
  [13:37:23.606]         else {
  [13:37:23.606]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:23.606]         }
  [13:37:23.606]         base::close(...future.stdout)
  [13:37:23.606]         ...future.stdout <- NULL
  [13:37:23.606]     }
  [13:37:23.606]     ...future.result$conditions <- ...future.conditions
  [13:37:23.606]     ...future.result
  [13:37:23.606] }
  [13:37:23.613] requestCore(): workers = 2
  [13:37:23.616] MulticoreFuture started
  [13:37:23.617] Chunk #2 of 2 ... DONE
  [13:37:23.617] Launching 2 futures (chunks) ... DONE
  [13:37:23.618] - resolving futures
  [13:37:23.618]   - gathering results & relaying conditions (except errors)
  [13:37:23.619] resolve() on list ...
  [13:37:23.619]  recursive: 0
  [13:37:23.619]  length: 2
  [13:37:23.620] 
  [13:37:23.620] Future #1
  [13:37:23.624] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [13:37:23.625] - nx: 2
  [13:37:23.625] - relay: TRUE
  [13:37:23.626] - stdout: TRUE
  [13:37:23.626] - signal: TRUE
  [13:37:23.626] - resignal: FALSE
  [13:37:23.627] - force: FALSE
  [13:37:23.627] - relayed: [n=2] FALSE, FALSE
  [13:37:23.628] - queued futures: [n=2] FALSE, FALSE
  [13:37:23.628]  - until=1
  [13:37:23.628]  - relaying element #1
  [13:37:23.629] - relayed: [n=2] TRUE, FALSE
  [13:37:23.629] - queued futures: [n=2] TRUE, FALSE
  [13:37:23.630] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [13:37:23.630]  length: 1 (resolved future 1)
  [13:37:23.630] plan(): Setting new future strategy stack:
  [13:37:23.631] List of future strategies:
  [13:37:23.631] 1. cluster:
  [13:37:23.631]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:37:23.631]    - tweaked: FALSE
  [13:37:23.631]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.634] plan(): nbrOfWorkers() = 1
  [13:37:23.636] plan(): Setting new future strategy stack:
  [13:37:23.636] List of future strategies:
  [13:37:23.636] 1. multicore:
  [13:37:23.636]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:37:23.636]    - tweaked: FALSE
  [13:37:23.636]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.636] 2. cluster:
  [13:37:23.636]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:37:23.636]    - tweaked: FALSE
  [13:37:23.636]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.639] plan(): nbrOfWorkers() = 2
  [13:37:23.640] Future #2
  [13:37:23.642] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [13:37:23.643] - nx: 2
  [13:37:23.643] - relay: TRUE
  [13:37:23.643] - stdout: TRUE
  [13:37:23.644] - signal: TRUE
  [13:37:23.644] - resignal: FALSE
  [13:37:23.644] - force: FALSE
  [13:37:23.645] - relayed: [n=2] TRUE, FALSE
  [13:37:23.645] - queued futures: [n=2] TRUE, FALSE
  [13:37:23.645]  - until=2
  [13:37:23.646]  - relaying element #2
  [13:37:23.653] - relayed: [n=2] TRUE, TRUE
  [13:37:23.653] - queued futures: [n=2] TRUE, TRUE
  [13:37:23.654] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [13:37:23.655]  length: 0 (resolved future 2)
  [13:37:23.655] Relaying remaining futures
  [13:37:23.655] signalConditionsASAP(NULL, pos=0) ...
  [13:37:23.656] - nx: 2
  [13:37:23.656] - relay: TRUE
  [13:37:23.656] - stdout: TRUE
  [13:37:23.657] - signal: TRUE
  [13:37:23.657] - resignal: FALSE
  [13:37:23.657] - force: FALSE
  [13:37:23.658] - relayed: [n=2] TRUE, TRUE
  [13:37:23.658] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [13:37:23.659] - relayed: [n=2] TRUE, TRUE
  [13:37:23.660] - queued futures: [n=2] TRUE, TRUE
  [13:37:23.660] signalConditionsASAP(NULL, pos=0) ... done
  [13:37:23.660] resolve() on list ... DONE
  [13:37:23.661] - collecting values of futures
  [13:37:23.661] - accumulating results
  [13:37:23.664] - processing errors (handler = 'stop')
  [13:37:23.665] - extracting results
  [13:37:23.665] doFuture() ... DONE
  - plan(list('multicore', 'cluster')) ... DONE
  - plan(list('multisession', 'sequential')) ...
  [13:37:23.667] plan(): Setting new future strategy stack:
  [13:37:23.667] List of future strategies:
  [13:37:23.667] 1. multisession:
  [13:37:23.667]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:37:23.667]    - tweaked: FALSE
  [13:37:23.667]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.667] 2. sequential:
  [13:37:23.667]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:23.667]    - tweaked: FALSE
  [13:37:23.667]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.669] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
  [13:37:23.669] multisession:
  [13:37:23.669] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:37:23.669] - tweaked: FALSE
  [13:37:23.669] - call: plan(list(a = strategy1, b = strategy2))
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 27790
  [local output] Creating node 1 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp2MyXWz/future.parent=15871.3dff58989c89.pid")), silent = TRUE)' -e "file.exists('/tmp/Rtmp2MyXWz/future.parent=15871.3dff58989c89.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:15871:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp2MyXWz/future.parent=15871.3dff58989c89.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=27790 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [local output] Connection with worker #1 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 1 of 2 ... done
  [local output] Creating node 2 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp2MyXWz/future.parent=15871.3dff471c12d9.pid")), silent = TRUE)' -e "file.exists('/tmp/Rtmp2MyXWz/future.parent=15871.3dff471c12d9.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:15871:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp2MyXWz/future.parent=15871.3dff471c12d9.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=27790 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #2 on 'localhost' to connect back
  [local output] Connection with worker #2 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 2 of 2 ... done
  [13:37:39.191] getGlobalsAndPackages() ...
  [13:37:39.191] Not searching for globals
  [13:37:39.192] - globals: [0] <none>
  [13:37:39.192] getGlobalsAndPackages() ... DONE
  [13:37:39.197] Packages needed by the future expression (n = 0): <none>
  [13:37:39.198] Packages needed by future strategies (n = 1): 'future'
  [13:37:39.220] {
  [13:37:39.220]     {
  [13:37:39.220]         ...future.startTime <- base::Sys.time()
  [13:37:39.220]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:39.220]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:39.220]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:39.220]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:39.220]             future.resolve.recursive = NULL, width = 80L)
  [13:37:39.220]         {
  [13:37:39.220]             {
  [13:37:39.220]                 {
  [13:37:39.220]                   {
  [13:37:39.220]                     has_future <- base::requireNamespace("future", 
  [13:37:39.220]                       quietly = TRUE)
  [13:37:39.220]                     version <- if (has_future) 
  [13:37:39.220]                       utils::packageVersion("future")
  [13:37:39.220]                     else NULL
  [13:37:39.220]                     if (!has_future || version < "1.8.0") {
  [13:37:39.220]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:37:39.220]                         "", base::R.version$version.string), 
  [13:37:39.220]                         platform = base::sprintf("%s (%s-bit)", 
  [13:37:39.220]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:39.220]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:39.220]                           "release", "version")], collapse = " "), 
  [13:37:39.220]                         hostname = base::Sys.info()[["nodename"]])
  [13:37:39.220]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:39.220]                         info)
  [13:37:39.220]                       info <- base::paste(info, collapse = "; ")
  [13:37:39.220]                       if (!has_future) {
  [13:37:39.220]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:39.220]                           info)
  [13:37:39.220]                       }
  [13:37:39.220]                       else {
  [13:37:39.220]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:39.220]                           info, version)
  [13:37:39.220]                       }
  [13:37:39.220]                       base::stop(msg)
  [13:37:39.220]                     }
  [13:37:39.220]                   }
  [13:37:39.220]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:37:39.220]                   base::options(mc.cores = 1L)
  [13:37:39.220]                 }
  [13:37:39.220]                 base::local({
  [13:37:39.220]                   for (pkg in "future") {
  [13:37:39.220]                     base::loadNamespace(pkg)
  [13:37:39.220]                     base::library(pkg, character.only = TRUE)
  [13:37:39.220]                   }
  [13:37:39.220]                 })
  [13:37:39.220]             }
  [13:37:39.220]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:39.220]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:39.220]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:37:39.220]                 label = NULL, ...) 
  [13:37:39.220]             {
  [13:37:39.220]                 if (substitute) 
  [13:37:39.220]                   expr <- substitute(expr)
  [13:37:39.220]                 local <- as.logical(local)
  [13:37:39.220]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:37:39.220]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:39.220]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:37:39.220]                   label = label, ...)
  [13:37:39.220]                 if (!future$lazy) 
  [13:37:39.220]                   future <- run(future)
  [13:37:39.220]                 invisible(future)
  [13:37:39.220]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:39.220]         }
  [13:37:39.220]     }
  [13:37:39.220]     if (base::is.na(TRUE)) {
  [13:37:39.220]     }
  [13:37:39.220]     else {
  [13:37:39.220]         if (TRUE) {
  [13:37:39.220]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:39.220]                 open = "w")
  [13:37:39.220]         }
  [13:37:39.220]         else {
  [13:37:39.220]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:39.220]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:39.220]         }
  [13:37:39.220]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:39.220]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:39.220]             base::sink(type = "output", split = FALSE)
  [13:37:39.220]             base::close(...future.stdout)
  [13:37:39.220]         }, add = TRUE)
  [13:37:39.220]     }
  [13:37:39.220]     ...future.frame <- base::sys.nframe()
  [13:37:39.220]     ...future.conditions <- base::list()
  [13:37:39.220]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:39.220]     ...future.result <- base::tryCatch({
  [13:37:39.220]         base::withCallingHandlers({
  [13:37:39.220]             ...future.value <- base::withVisible(base::local({
  [13:37:39.220]                 ...future.sendCondition <- local({
  [13:37:39.220]                   sendCondition <- NULL
  [13:37:39.220]                   function(frame = 1L) {
  [13:37:39.220]                     if (is.function(sendCondition)) 
  [13:37:39.220]                       return(sendCondition)
  [13:37:39.220]                     ns <- getNamespace("parallel")
  [13:37:39.220]                     if (exists("sendData", mode = "function", 
  [13:37:39.220]                       envir = ns)) {
  [13:37:39.220]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:37:39.220]                         envir = ns)
  [13:37:39.220]                       envir <- sys.frame(frame)
  [13:37:39.220]                       master <- NULL
  [13:37:39.220]                       while (!identical(envir, .GlobalEnv) && 
  [13:37:39.220]                         !identical(envir, emptyenv())) {
  [13:37:39.220]                         if (exists("master", mode = "list", envir = envir, 
  [13:37:39.220]                           inherits = FALSE)) {
  [13:37:39.220]                           master <- get("master", mode = "list", 
  [13:37:39.220]                             envir = envir, inherits = FALSE)
  [13:37:39.220]                           if (inherits(master, "SOCKnode")) {
  [13:37:39.220]                             sendCondition <<- function(cond) {
  [13:37:39.220]                               data <- list(type = "VALUE", value = cond, 
  [13:37:39.220]                                 success = TRUE)
  [13:37:39.220]                               parallel_sendData(master, data)
  [13:37:39.220]                             }
  [13:37:39.220]                             return(sendCondition)
  [13:37:39.220]                           }
  [13:37:39.220]                         }
  [13:37:39.220]                         frame <- frame + 1L
  [13:37:39.220]                         envir <- sys.frame(frame)
  [13:37:39.220]                       }
  [13:37:39.220]                     }
  [13:37:39.220]                     sendCondition <<- function(cond) NULL
  [13:37:39.220]                   }
  [13:37:39.220]                 })
  [13:37:39.220]                 withCallingHandlers({
  [13:37:39.220]                   NA
  [13:37:39.220]                 }, immediateCondition = function(cond) {
  [13:37:39.220]                   sendCondition <- ...future.sendCondition()
  [13:37:39.220]                   sendCondition(cond)
  [13:37:39.220]                   muffleCondition <- function (cond) 
  [13:37:39.220]                   {
  [13:37:39.220]                     inherits <- base::inherits
  [13:37:39.220]                     invokeRestart <- base::invokeRestart
  [13:37:39.220]                     muffled <- FALSE
  [13:37:39.220]                     if (inherits(cond, "message")) {
  [13:37:39.220]                       invokeRestart("muffleMessage")
  [13:37:39.220]                       muffled <- TRUE
  [13:37:39.220]                     }
  [13:37:39.220]                     else if (inherits(cond, "warning")) {
  [13:37:39.220]                       invokeRestart("muffleWarning")
  [13:37:39.220]                       muffled <- TRUE
  [13:37:39.220]                     }
  [13:37:39.220]                     else if (inherits(cond, "condition")) {
  [13:37:39.220]                       computeRestarts <- base::computeRestarts
  [13:37:39.220]                       grepl <- base::grepl
  [13:37:39.220]                       is.null <- base::is.null
  [13:37:39.220]                       restarts <- computeRestarts(cond)
  [13:37:39.220]                       for (restart in restarts) {
  [13:37:39.220]                         name <- restart$name
  [13:37:39.220]                         if (is.null(name)) 
  [13:37:39.220]                           next
  [13:37:39.220]                         if (!grepl("^muffle", name)) 
  [13:37:39.220]                           next
  [13:37:39.220]                         invokeRestart(restart)
  [13:37:39.220]                         muffled <- TRUE
  [13:37:39.220]                         break
  [13:37:39.220]                       }
  [13:37:39.220]                     }
  [13:37:39.220]                     invisible(muffled)
  [13:37:39.220]                   }
  [13:37:39.220]                   muffleCondition(cond)
  [13:37:39.220]                 })
  [13:37:39.220]             }))
  [13:37:39.220]             future::FutureResult(value = ...future.value$value, 
  [13:37:39.220]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:39.220]                   ...future.rng), started = ...future.startTime, 
  [13:37:39.220]                 version = "1.8")
  [13:37:39.220]         }, condition = base::local({
  [13:37:39.220]             c <- base::c
  [13:37:39.220]             inherits <- base::inherits
  [13:37:39.220]             invokeRestart <- base::invokeRestart
  [13:37:39.220]             length <- base::length
  [13:37:39.220]             list <- base::list
  [13:37:39.220]             seq.int <- base::seq.int
  [13:37:39.220]             signalCondition <- base::signalCondition
  [13:37:39.220]             sys.calls <- base::sys.calls
  [13:37:39.220]             Sys.time <- base::Sys.time
  [13:37:39.220]             `[[` <- base::`[[`
  [13:37:39.220]             `+` <- base::`+`
  [13:37:39.220]             `<<-` <- base::`<<-`
  [13:37:39.220]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:39.220]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:39.220]                   3L)]
  [13:37:39.220]             }
  [13:37:39.220]             function(cond) {
  [13:37:39.220]                 if (inherits(cond, "error")) {
  [13:37:39.220]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:39.220]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:39.220]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:39.220]                   signalCondition(cond)
  [13:37:39.220]                 }
  [13:37:39.220]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:37:39.220]                 ))) {
  [13:37:39.220]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:37:39.220]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:39.220]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:39.220]                   if (!signal) {
  [13:37:39.220]                     muffleCondition <- function (cond) 
  [13:37:39.220]                     {
  [13:37:39.220]                       inherits <- base::inherits
  [13:37:39.220]                       invokeRestart <- base::invokeRestart
  [13:37:39.220]                       muffled <- FALSE
  [13:37:39.220]                       if (inherits(cond, "message")) {
  [13:37:39.220]                         invokeRestart("muffleMessage")
  [13:37:39.220]                         muffled <- TRUE
  [13:37:39.220]                       }
  [13:37:39.220]                       else if (inherits(cond, "warning")) {
  [13:37:39.220]                         invokeRestart("muffleWarning")
  [13:37:39.220]                         muffled <- TRUE
  [13:37:39.220]                       }
  [13:37:39.220]                       else if (inherits(cond, "condition")) {
  [13:37:39.220]                         computeRestarts <- base::computeRestarts
  [13:37:39.220]                         grepl <- base::grepl
  [13:37:39.220]                         is.null <- base::is.null
  [13:37:39.220]                         restarts <- computeRestarts(cond)
  [13:37:39.220]                         for (restart in restarts) {
  [13:37:39.220]                           name <- restart$name
  [13:37:39.220]                           if (is.null(name)) 
  [13:37:39.220]                             next
  [13:37:39.220]                           if (!grepl("^muffle", name)) 
  [13:37:39.220]                             next
  [13:37:39.220]                           invokeRestart(restart)
  [13:37:39.220]                           muffled <- TRUE
  [13:37:39.220]                           break
  [13:37:39.220]                         }
  [13:37:39.220]                       }
  [13:37:39.220]                       invisible(muffled)
  [13:37:39.220]                     }
  [13:37:39.220]                     muffleCondition(cond)
  [13:37:39.220]                   }
  [13:37:39.220]                 }
  [13:37:39.220]             }
  [13:37:39.220]         }))
  [13:37:39.220]     }, error = function(ex) {
  [13:37:39.220]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:39.220]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:39.220]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:39.220]     }, finally = {
  [13:37:39.220]         {
  [13:37:39.220]             {
  [13:37:39.220]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:37:39.220]             }
  [13:37:39.220]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:37:39.220]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:39.220]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:37:39.220]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:37:39.220]                 ...) 
  [13:37:39.220]             {
  [13:37:39.220]                 if (substitute) 
  [13:37:39.220]                   expr <- substitute(expr)
  [13:37:39.220]                 if (is.function(workers)) 
  [13:37:39.220]                   workers <- workers()
  [13:37:39.220]                 workers <- as.integer(workers)
  [13:37:39.220]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:37:39.220]                   workers >= 1)
  [13:37:39.220]                 if (workers == 1L) {
  [13:37:39.220]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:39.220]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:37:39.220]                     local = TRUE, label = label, ...))
  [13:37:39.220]                 }
  [13:37:39.220]                 workers <- ClusterRegistry("start", workers = workers)
  [13:37:39.220]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:37:39.220]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:39.220]                   globals = globals, persistent = persistent, 
  [13:37:39.220]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:37:39.220]                   label = label, ...)
  [13:37:39.220]                 if (!future$lazy) 
  [13:37:39.220]                   future <- run(future)
  [13:37:39.220]                 invisible(future)
  [13:37:39.220]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:37:39.220]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [13:37:39.220]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:39.220]             {
  [13:37:39.220]                 if (substitute) 
  [13:37:39.220]                   expr <- substitute(expr)
  [13:37:39.220]                 local <- as.logical(local)
  [13:37:39.220]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:37:39.220]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:39.220]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:37:39.220]                   label = label, ...)
  [13:37:39.220]                 if (!future$lazy) 
  [13:37:39.220]                   future <- run(future)
  [13:37:39.220]                 invisible(future)
  [13:37:39.220]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:39.220]         }
  [13:37:39.220]         base::options(...future.oldOptions)
  [13:37:39.220]     })
  [13:37:39.220]     Sys.time
  [13:37:39.220]     if (base::is.na(TRUE)) {
  [13:37:39.220]     }
  [13:37:39.220]     else {
  [13:37:39.220]         base::sink(type = "output", split = FALSE)
  [13:37:39.220]         if (TRUE) {
  [13:37:39.220]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:39.220]         }
  [13:37:39.220]         else {
  [13:37:39.220]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:39.220]         }
  [13:37:39.220]         base::close(...future.stdout)
  [13:37:39.220]         ...future.stdout <- NULL
  [13:37:39.220]     }
  [13:37:39.220]     ...future.result$conditions <- ...future.conditions
  [13:37:39.220]     ...future.result
  [13:37:39.220] }
  [13:37:39.244] MultisessionFuture started
  [13:37:39.245] result() for ClusterFuture ...
  [13:37:39.246] receiveMessageFromWorker() for ClusterFuture ...
  [13:37:39.246] - Validating connection of MultisessionFuture
  [13:37:39.512] - received message: FutureResult
  [13:37:39.513] - Received FutureResult
  [13:37:39.513] - Erased future from FutureRegistry
  [13:37:39.513] result() for ClusterFuture ...
  [13:37:39.514] - result already collected: FutureResult
  [13:37:39.514] result() for ClusterFuture ... done
  [13:37:39.514] receiveMessageFromWorker() for ClusterFuture ... done
  [13:37:39.515] result() for ClusterFuture ... done
  [13:37:39.515] result() for ClusterFuture ...
  [13:37:39.515] - result already collected: FutureResult
  [13:37:39.516] result() for ClusterFuture ... done
  [13:37:39.516] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE
  [13:37:39.517] plan(): nbrOfWorkers() = 2
  [13:37:39.517] doFuture() ...
  [13:37:39.544] - dummy globals (as locals): [2] 'a', 'b'
  [13:37:39.545] - R expression:
  [13:37:39.545] {
  [13:37:39.545]     doFuture::registerDoFuture()
  [13:37:39.545]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:39.545]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:39.545]         {
  [13:37:39.545]             a <- NULL
  [13:37:39.545]             b <- NULL
  [13:37:39.545]         }
  [13:37:39.545]         ...future.env <- environment()
  [13:37:39.545]         local({
  [13:37:39.545]             for (name in names(...future.x_jj)) {
  [13:37:39.545]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:39.545]                   inherits = FALSE)
  [13:37:39.545]             }
  [13:37:39.545]         })
  [13:37:39.545]         tryCatch({
  [13:37:39.545]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:39.545]                 plan = future::plan("next"))
  [13:37:39.545]         }, error = identity)
  [13:37:39.545]     })
  [13:37:39.545] }
  [13:37:39.546] - identifying globals and packages ...
  [13:37:39.546] getGlobalsAndPackages() ...
  [13:37:39.547] Searching for globals...
  [13:37:39.569] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [13:37:39.569] Searching for globals ... DONE
  [13:37:39.569] Resolving globals: FALSE
  [13:37:39.571] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:37:39.571] - globals: [1] '...future.x_ii'
  [13:37:39.572] 
  [13:37:39.572] getGlobalsAndPackages() ... DONE
  [13:37:39.572] List of 1
  [13:37:39.572]  $ ...future.x_ii: NULL
  [13:37:39.572]  - attr(*, "where")=List of 1
  [13:37:39.572]   ..$ ...future.x_ii:<environment: 0x5647c61d5ed0> 
  [13:37:39.572]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:39.572]  - attr(*, "resolved")= logi FALSE
  [13:37:39.572]  - attr(*, "total_size")= num 0
  [13:37:39.595]   - R expression:
  [13:37:39.595] {
  [13:37:39.595]     doFuture::registerDoFuture()
  [13:37:39.595]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:39.595]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:39.595]         {
  [13:37:39.595]             a <- NULL
  [13:37:39.595]             b <- NULL
  [13:37:39.595]         }
  [13:37:39.595]         ...future.env <- environment()
  [13:37:39.595]         local({
  [13:37:39.595]             for (name in names(...future.x_jj)) {
  [13:37:39.595]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:39.595]                   inherits = FALSE)
  [13:37:39.595]             }
  [13:37:39.595]         })
  [13:37:39.595]         tryCatch({
  [13:37:39.595]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:39.595]                 plan = future::plan("next"))
  [13:37:39.595]         }, error = identity)
  [13:37:39.595]     })
  [13:37:39.595] }
  [13:37:39.596]   - globals: [1] '...future.x_ii'
  [13:37:39.596] List of 1
  [13:37:39.596]  $ ...future.x_ii: NULL
  [13:37:39.596]  - attr(*, "where")=List of 1
  [13:37:39.596]   ..$ ...future.x_ii:<environment: 0x5647c61d5ed0> 
  [13:37:39.596]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:39.596]  - attr(*, "resolved")= logi FALSE
  [13:37:39.596]  - attr(*, "total_size")= num 0
  [13:37:39.602]   - packages: [1] 'doFuture'
  [13:37:39.602] - identifying globals and packages ... DONE
  [13:37:39.603] Number of chunks: 2
  [13:37:39.604] Number of futures (= number of chunks): 2
  [13:37:39.605] Launching 2 futures (chunks) ...
  [13:37:39.605] Chunk #1 of 2 ...
  [13:37:39.605]  - Finding globals in 'args_list' chunk #1 ...
  [13:37:39.605] getGlobalsAndPackages() ...
  [13:37:39.610] Searching for globals...
  [13:37:39.611] 
  [13:37:39.612] Searching for globals ... DONE
  [13:37:39.612] - globals: [0] <none>
  [13:37:39.612] getGlobalsAndPackages() ... DONE
  [13:37:39.613] 
  [13:37:39.613] 
  [13:37:39.613]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:37:39.622] getGlobalsAndPackages() ...
  [13:37:39.622] - globals passed as-is: [1] '...future.x_ii'
  [13:37:39.623] Resolving globals: FALSE
  [13:37:39.624] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:37:39.624] - globals: [1] '...future.x_ii'
  [13:37:39.624] 
  [13:37:39.625] getGlobalsAndPackages() ... DONE
  [13:37:39.629] Packages needed by the future expression (n = 1): 'doFuture'
  [13:37:39.629] Packages needed by future strategies (n = 1): 'future'
  [13:37:39.635] {
  [13:37:39.635]     {
  [13:37:39.635]         ...future.startTime <- base::Sys.time()
  [13:37:39.635]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:39.635]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:39.635]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:39.635]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:39.635]             future.resolve.recursive = NULL, width = 80L)
  [13:37:39.635]         {
  [13:37:39.635]             {
  [13:37:39.635]                 {
  [13:37:39.635]                   {
  [13:37:39.635]                     has_future <- base::requireNamespace("future", 
  [13:37:39.635]                       quietly = TRUE)
  [13:37:39.635]                     version <- if (has_future) 
  [13:37:39.635]                       utils::packageVersion("future")
  [13:37:39.635]                     else NULL
  [13:37:39.635]                     if (!has_future || version < "1.8.0") {
  [13:37:39.635]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:37:39.635]                         "", base::R.version$version.string), 
  [13:37:39.635]                         platform = base::sprintf("%s (%s-bit)", 
  [13:37:39.635]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:39.635]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:39.635]                           "release", "version")], collapse = " "), 
  [13:37:39.635]                         hostname = base::Sys.info()[["nodename"]])
  [13:37:39.635]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:39.635]                         info)
  [13:37:39.635]                       info <- base::paste(info, collapse = "; ")
  [13:37:39.635]                       if (!has_future) {
  [13:37:39.635]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:39.635]                           info)
  [13:37:39.635]                       }
  [13:37:39.635]                       else {
  [13:37:39.635]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:39.635]                           info, version)
  [13:37:39.635]                       }
  [13:37:39.635]                       base::stop(msg)
  [13:37:39.635]                     }
  [13:37:39.635]                   }
  [13:37:39.635]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:37:39.635]                   base::options(mc.cores = 1L)
  [13:37:39.635]                 }
  [13:37:39.635]                 base::local({
  [13:37:39.635]                   for (pkg in c("doFuture", "future")) {
  [13:37:39.635]                     base::loadNamespace(pkg)
  [13:37:39.635]                     base::library(pkg, character.only = TRUE)
  [13:37:39.635]                   }
  [13:37:39.635]                 })
  [13:37:39.635]             }
  [13:37:39.635]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:39.635]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:39.635]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:37:39.635]                 label = NULL, ...) 
  [13:37:39.635]             {
  [13:37:39.635]                 if (substitute) 
  [13:37:39.635]                   expr <- substitute(expr)
  [13:37:39.635]                 local <- as.logical(local)
  [13:37:39.635]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:37:39.635]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:39.635]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:37:39.635]                   label = label, ...)
  [13:37:39.635]                 if (!future$lazy) 
  [13:37:39.635]                   future <- run(future)
  [13:37:39.635]                 invisible(future)
  [13:37:39.635]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:39.635]         }
  [13:37:39.635]     }
  [13:37:39.635]     if (base::is.na(TRUE)) {
  [13:37:39.635]     }
  [13:37:39.635]     else {
  [13:37:39.635]         if (TRUE) {
  [13:37:39.635]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:39.635]                 open = "w")
  [13:37:39.635]         }
  [13:37:39.635]         else {
  [13:37:39.635]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:39.635]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:39.635]         }
  [13:37:39.635]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:39.635]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:39.635]             base::sink(type = "output", split = FALSE)
  [13:37:39.635]             base::close(...future.stdout)
  [13:37:39.635]         }, add = TRUE)
  [13:37:39.635]     }
  [13:37:39.635]     ...future.frame <- base::sys.nframe()
  [13:37:39.635]     ...future.conditions <- base::list()
  [13:37:39.635]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:39.635]     ...future.result <- base::tryCatch({
  [13:37:39.635]         base::withCallingHandlers({
  [13:37:39.635]             ...future.value <- base::withVisible(base::local({
  [13:37:39.635]                 ...future.sendCondition <- local({
  [13:37:39.635]                   sendCondition <- NULL
  [13:37:39.635]                   function(frame = 1L) {
  [13:37:39.635]                     if (is.function(sendCondition)) 
  [13:37:39.635]                       return(sendCondition)
  [13:37:39.635]                     ns <- getNamespace("parallel")
  [13:37:39.635]                     if (exists("sendData", mode = "function", 
  [13:37:39.635]                       envir = ns)) {
  [13:37:39.635]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:37:39.635]                         envir = ns)
  [13:37:39.635]                       envir <- sys.frame(frame)
  [13:37:39.635]                       master <- NULL
  [13:37:39.635]                       while (!identical(envir, .GlobalEnv) && 
  [13:37:39.635]                         !identical(envir, emptyenv())) {
  [13:37:39.635]                         if (exists("master", mode = "list", envir = envir, 
  [13:37:39.635]                           inherits = FALSE)) {
  [13:37:39.635]                           master <- get("master", mode = "list", 
  [13:37:39.635]                             envir = envir, inherits = FALSE)
  [13:37:39.635]                           if (inherits(master, "SOCKnode")) {
  [13:37:39.635]                             sendCondition <<- function(cond) {
  [13:37:39.635]                               data <- list(type = "VALUE", value = cond, 
  [13:37:39.635]                                 success = TRUE)
  [13:37:39.635]                               parallel_sendData(master, data)
  [13:37:39.635]                             }
  [13:37:39.635]                             return(sendCondition)
  [13:37:39.635]                           }
  [13:37:39.635]                         }
  [13:37:39.635]                         frame <- frame + 1L
  [13:37:39.635]                         envir <- sys.frame(frame)
  [13:37:39.635]                       }
  [13:37:39.635]                     }
  [13:37:39.635]                     sendCondition <<- function(cond) NULL
  [13:37:39.635]                   }
  [13:37:39.635]                 })
  [13:37:39.635]                 withCallingHandlers({
  [13:37:39.635]                   {
  [13:37:39.635]                     doFuture::registerDoFuture()
  [13:37:39.635]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:39.635]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:39.635]                       {
  [13:37:39.635]                         a <- NULL
  [13:37:39.635]                         b <- NULL
  [13:37:39.635]                       }
  [13:37:39.635]                       ...future.env <- environment()
  [13:37:39.635]                       local({
  [13:37:39.635]                         for (name in names(...future.x_jj)) {
  [13:37:39.635]                           assign(name, ...future.x_jj[[name]], 
  [13:37:39.635]                             envir = ...future.env, inherits = FALSE)
  [13:37:39.635]                         }
  [13:37:39.635]                       })
  [13:37:39.635]                       tryCatch({
  [13:37:39.635]                         list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:39.635]                           plan = future::plan("next"))
  [13:37:39.635]                       }, error = identity)
  [13:37:39.635]                     })
  [13:37:39.635]                   }
  [13:37:39.635]                 }, immediateCondition = function(cond) {
  [13:37:39.635]                   sendCondition <- ...future.sendCondition()
  [13:37:39.635]                   sendCondition(cond)
  [13:37:39.635]                   muffleCondition <- function (cond) 
  [13:37:39.635]                   {
  [13:37:39.635]                     inherits <- base::inherits
  [13:37:39.635]                     invokeRestart <- base::invokeRestart
  [13:37:39.635]                     muffled <- FALSE
  [13:37:39.635]                     if (inherits(cond, "message")) {
  [13:37:39.635]                       invokeRestart("muffleMessage")
  [13:37:39.635]                       muffled <- TRUE
  [13:37:39.635]                     }
  [13:37:39.635]                     else if (inherits(cond, "warning")) {
  [13:37:39.635]                       invokeRestart("muffleWarning")
  [13:37:39.635]                       muffled <- TRUE
  [13:37:39.635]                     }
  [13:37:39.635]                     else if (inherits(cond, "condition")) {
  [13:37:39.635]                       computeRestarts <- base::computeRestarts
  [13:37:39.635]                       grepl <- base::grepl
  [13:37:39.635]                       is.null <- base::is.null
  [13:37:39.635]                       restarts <- computeRestarts(cond)
  [13:37:39.635]                       for (restart in restarts) {
  [13:37:39.635]                         name <- restart$name
  [13:37:39.635]                         if (is.null(name)) 
  [13:37:39.635]                           next
  [13:37:39.635]                         if (!grepl("^muffle", name)) 
  [13:37:39.635]                           next
  [13:37:39.635]                         invokeRestart(restart)
  [13:37:39.635]                         muffled <- TRUE
  [13:37:39.635]                         break
  [13:37:39.635]                       }
  [13:37:39.635]                     }
  [13:37:39.635]                     invisible(muffled)
  [13:37:39.635]                   }
  [13:37:39.635]                   muffleCondition(cond)
  [13:37:39.635]                 })
  [13:37:39.635]             }))
  [13:37:39.635]             future::FutureResult(value = ...future.value$value, 
  [13:37:39.635]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:39.635]                   ...future.rng), started = ...future.startTime, 
  [13:37:39.635]                 version = "1.8")
  [13:37:39.635]         }, condition = base::local({
  [13:37:39.635]             c <- base::c
  [13:37:39.635]             inherits <- base::inherits
  [13:37:39.635]             invokeRestart <- base::invokeRestart
  [13:37:39.635]             length <- base::length
  [13:37:39.635]             list <- base::list
  [13:37:39.635]             seq.int <- base::seq.int
  [13:37:39.635]             signalCondition <- base::signalCondition
  [13:37:39.635]             sys.calls <- base::sys.calls
  [13:37:39.635]             Sys.time <- base::Sys.time
  [13:37:39.635]             `[[` <- base::`[[`
  [13:37:39.635]             `+` <- base::`+`
  [13:37:39.635]             `<<-` <- base::`<<-`
  [13:37:39.635]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:39.635]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:39.635]                   3L)]
  [13:37:39.635]             }
  [13:37:39.635]             function(cond) {
  [13:37:39.635]                 if (inherits(cond, "error")) {
  [13:37:39.635]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:39.635]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:39.635]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:39.635]                   signalCondition(cond)
  [13:37:39.635]                 }
  [13:37:39.635]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:37:39.635]                 ))) {
  [13:37:39.635]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:37:39.635]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:39.635]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:39.635]                   if (!signal) {
  [13:37:39.635]                     muffleCondition <- function (cond) 
  [13:37:39.635]                     {
  [13:37:39.635]                       inherits <- base::inherits
  [13:37:39.635]                       invokeRestart <- base::invokeRestart
  [13:37:39.635]                       muffled <- FALSE
  [13:37:39.635]                       if (inherits(cond, "message")) {
  [13:37:39.635]                         invokeRestart("muffleMessage")
  [13:37:39.635]                         muffled <- TRUE
  [13:37:39.635]                       }
  [13:37:39.635]                       else if (inherits(cond, "warning")) {
  [13:37:39.635]                         invokeRestart("muffleWarning")
  [13:37:39.635]                         muffled <- TRUE
  [13:37:39.635]                       }
  [13:37:39.635]                       else if (inherits(cond, "condition")) {
  [13:37:39.635]                         computeRestarts <- base::computeRestarts
  [13:37:39.635]                         grepl <- base::grepl
  [13:37:39.635]                         is.null <- base::is.null
  [13:37:39.635]                         restarts <- computeRestarts(cond)
  [13:37:39.635]                         for (restart in restarts) {
  [13:37:39.635]                           name <- restart$name
  [13:37:39.635]                           if (is.null(name)) 
  [13:37:39.635]                             next
  [13:37:39.635]                           if (!grepl("^muffle", name)) 
  [13:37:39.635]                             next
  [13:37:39.635]                           invokeRestart(restart)
  [13:37:39.635]                           muffled <- TRUE
  [13:37:39.635]                           break
  [13:37:39.635]                         }
  [13:37:39.635]                       }
  [13:37:39.635]                       invisible(muffled)
  [13:37:39.635]                     }
  [13:37:39.635]                     muffleCondition(cond)
  [13:37:39.635]                   }
  [13:37:39.635]                 }
  [13:37:39.635]             }
  [13:37:39.635]         }))
  [13:37:39.635]     }, error = function(ex) {
  [13:37:39.635]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:39.635]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:39.635]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:39.635]     }, finally = {
  [13:37:39.635]         {
  [13:37:39.635]             {
  [13:37:39.635]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:37:39.635]             }
  [13:37:39.635]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:37:39.635]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:39.635]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:37:39.635]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:37:39.635]                 ...) 
  [13:37:39.635]             {
  [13:37:39.635]                 if (substitute) 
  [13:37:39.635]                   expr <- substitute(expr)
  [13:37:39.635]                 if (is.function(workers)) 
  [13:37:39.635]                   workers <- workers()
  [13:37:39.635]                 workers <- as.integer(workers)
  [13:37:39.635]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:37:39.635]                   workers >= 1)
  [13:37:39.635]                 if (workers == 1L) {
  [13:37:39.635]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:39.635]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:37:39.635]                     local = TRUE, label = label, ...))
  [13:37:39.635]                 }
  [13:37:39.635]                 workers <- ClusterRegistry("start", workers = workers)
  [13:37:39.635]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:37:39.635]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:39.635]                   globals = globals, persistent = persistent, 
  [13:37:39.635]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:37:39.635]                   label = label, ...)
  [13:37:39.635]                 if (!future$lazy) 
  [13:37:39.635]                   future <- run(future)
  [13:37:39.635]                 invisible(future)
  [13:37:39.635]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:37:39.635]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [13:37:39.635]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:39.635]             {
  [13:37:39.635]                 if (substitute) 
  [13:37:39.635]                   expr <- substitute(expr)
  [13:37:39.635]                 local <- as.logical(local)
  [13:37:39.635]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:37:39.635]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:39.635]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:37:39.635]                   label = label, ...)
  [13:37:39.635]                 if (!future$lazy) 
  [13:37:39.635]                   future <- run(future)
  [13:37:39.635]                 invisible(future)
  [13:37:39.635]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:39.635]         }
  [13:37:39.635]         base::options(...future.oldOptions)
  [13:37:39.635]     })
  [13:37:39.635]     Sys.time
  [13:37:39.635]     if (base::is.na(TRUE)) {
  [13:37:39.635]     }
  [13:37:39.635]     else {
  [13:37:39.635]         base::sink(type = "output", split = FALSE)
  [13:37:39.635]         if (TRUE) {
  [13:37:39.635]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:39.635]         }
  [13:37:39.635]         else {
  [13:37:39.635]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:39.635]         }
  [13:37:39.635]         base::close(...future.stdout)
  [13:37:39.635]         ...future.stdout <- NULL
  [13:37:39.635]     }
  [13:37:39.635]     ...future.result$conditions <- ...future.conditions
  [13:37:39.635]     ...future.result
  [13:37:39.635] }
  [13:37:39.642] Exporting 1 global objects (336 bytes) to cluster node #1 ...
  [13:37:39.643] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ...
  [13:37:39.644] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ... DONE
  [13:37:39.644] Exporting 1 global objects (336 bytes) to cluster node #1 ... DONE
  [13:37:39.646] MultisessionFuture started
  [13:37:39.646] Chunk #1 of 2 ... DONE
  [13:37:39.647] Chunk #2 of 2 ...
  [13:37:39.647]  - Finding globals in 'args_list' chunk #2 ...
  [13:37:39.647] getGlobalsAndPackages() ...
  [13:37:39.647] Searching for globals...
  [13:37:39.648] 
  [13:37:39.649] Searching for globals ... DONE
  [13:37:39.649] - globals: [0] <none>
  [13:37:39.649] getGlobalsAndPackages() ... DONE
  [13:37:39.650] 
  [13:37:39.650] 
  [13:37:39.650]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:37:39.659] getGlobalsAndPackages() ...
  [13:37:39.660] - globals passed as-is: [1] '...future.x_ii'
  [13:37:39.660] Resolving globals: FALSE
  [13:37:39.661] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:37:39.662] - globals: [1] '...future.x_ii'
  [13:37:39.662] 
  [13:37:39.662] getGlobalsAndPackages() ... DONE
  [13:37:39.667] Packages needed by the future expression (n = 1): 'doFuture'
  [13:37:39.667] Packages needed by future strategies (n = 1): 'future'
  [13:37:39.673] {
  [13:37:39.673]     {
  [13:37:39.673]         ...future.startTime <- base::Sys.time()
  [13:37:39.673]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:39.673]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:39.673]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:39.673]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:39.673]             future.resolve.recursive = NULL, width = 80L)
  [13:37:39.673]         {
  [13:37:39.673]             {
  [13:37:39.673]                 {
  [13:37:39.673]                   {
  [13:37:39.673]                     has_future <- base::requireNamespace("future", 
  [13:37:39.673]                       quietly = TRUE)
  [13:37:39.673]                     version <- if (has_future) 
  [13:37:39.673]                       utils::packageVersion("future")
  [13:37:39.673]                     else NULL
  [13:37:39.673]                     if (!has_future || version < "1.8.0") {
  [13:37:39.673]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:37:39.673]                         "", base::R.version$version.string), 
  [13:37:39.673]                         platform = base::sprintf("%s (%s-bit)", 
  [13:37:39.673]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:39.673]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:39.673]                           "release", "version")], collapse = " "), 
  [13:37:39.673]                         hostname = base::Sys.info()[["nodename"]])
  [13:37:39.673]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:39.673]                         info)
  [13:37:39.673]                       info <- base::paste(info, collapse = "; ")
  [13:37:39.673]                       if (!has_future) {
  [13:37:39.673]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:39.673]                           info)
  [13:37:39.673]                       }
  [13:37:39.673]                       else {
  [13:37:39.673]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:39.673]                           info, version)
  [13:37:39.673]                       }
  [13:37:39.673]                       base::stop(msg)
  [13:37:39.673]                     }
  [13:37:39.673]                   }
  [13:37:39.673]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:37:39.673]                   base::options(mc.cores = 1L)
  [13:37:39.673]                 }
  [13:37:39.673]                 base::local({
  [13:37:39.673]                   for (pkg in c("doFuture", "future")) {
  [13:37:39.673]                     base::loadNamespace(pkg)
  [13:37:39.673]                     base::library(pkg, character.only = TRUE)
  [13:37:39.673]                   }
  [13:37:39.673]                 })
  [13:37:39.673]             }
  [13:37:39.673]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:39.673]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:39.673]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:37:39.673]                 label = NULL, ...) 
  [13:37:39.673]             {
  [13:37:39.673]                 if (substitute) 
  [13:37:39.673]                   expr <- substitute(expr)
  [13:37:39.673]                 local <- as.logical(local)
  [13:37:39.673]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:37:39.673]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:39.673]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:37:39.673]                   label = label, ...)
  [13:37:39.673]                 if (!future$lazy) 
  [13:37:39.673]                   future <- run(future)
  [13:37:39.673]                 invisible(future)
  [13:37:39.673]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:39.673]         }
  [13:37:39.673]     }
  [13:37:39.673]     if (base::is.na(TRUE)) {
  [13:37:39.673]     }
  [13:37:39.673]     else {
  [13:37:39.673]         if (TRUE) {
  [13:37:39.673]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:39.673]                 open = "w")
  [13:37:39.673]         }
  [13:37:39.673]         else {
  [13:37:39.673]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:39.673]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:39.673]         }
  [13:37:39.673]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:39.673]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:39.673]             base::sink(type = "output", split = FALSE)
  [13:37:39.673]             base::close(...future.stdout)
  [13:37:39.673]         }, add = TRUE)
  [13:37:39.673]     }
  [13:37:39.673]     ...future.frame <- base::sys.nframe()
  [13:37:39.673]     ...future.conditions <- base::list()
  [13:37:39.673]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:39.673]     ...future.result <- base::tryCatch({
  [13:37:39.673]         base::withCallingHandlers({
  [13:37:39.673]             ...future.value <- base::withVisible(base::local({
  [13:37:39.673]                 ...future.sendCondition <- local({
  [13:37:39.673]                   sendCondition <- NULL
  [13:37:39.673]                   function(frame = 1L) {
  [13:37:39.673]                     if (is.function(sendCondition)) 
  [13:37:39.673]                       return(sendCondition)
  [13:37:39.673]                     ns <- getNamespace("parallel")
  [13:37:39.673]                     if (exists("sendData", mode = "function", 
  [13:37:39.673]                       envir = ns)) {
  [13:37:39.673]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:37:39.673]                         envir = ns)
  [13:37:39.673]                       envir <- sys.frame(frame)
  [13:37:39.673]                       master <- NULL
  [13:37:39.673]                       while (!identical(envir, .GlobalEnv) && 
  [13:37:39.673]                         !identical(envir, emptyenv())) {
  [13:37:39.673]                         if (exists("master", mode = "list", envir = envir, 
  [13:37:39.673]                           inherits = FALSE)) {
  [13:37:39.673]                           master <- get("master", mode = "list", 
  [13:37:39.673]                             envir = envir, inherits = FALSE)
  [13:37:39.673]                           if (inherits(master, "SOCKnode")) {
  [13:37:39.673]                             sendCondition <<- function(cond) {
  [13:37:39.673]                               data <- list(type = "VALUE", value = cond, 
  [13:37:39.673]                                 success = TRUE)
  [13:37:39.673]                               parallel_sendData(master, data)
  [13:37:39.673]                             }
  [13:37:39.673]                             return(sendCondition)
  [13:37:39.673]                           }
  [13:37:39.673]                         }
  [13:37:39.673]                         frame <- frame + 1L
  [13:37:39.673]                         envir <- sys.frame(frame)
  [13:37:39.673]                       }
  [13:37:39.673]                     }
  [13:37:39.673]                     sendCondition <<- function(cond) NULL
  [13:37:39.673]                   }
  [13:37:39.673]                 })
  [13:37:39.673]                 withCallingHandlers({
  [13:37:39.673]                   {
  [13:37:39.673]                     doFuture::registerDoFuture()
  [13:37:39.673]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:39.673]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:39.673]                       {
  [13:37:39.673]                         a <- NULL
  [13:37:39.673]                         b <- NULL
  [13:37:39.673]                       }
  [13:37:39.673]                       ...future.env <- environment()
  [13:37:39.673]                       local({
  [13:37:39.673]                         for (name in names(...future.x_jj)) {
  [13:37:39.673]                           assign(name, ...future.x_jj[[name]], 
  [13:37:39.673]                             envir = ...future.env, inherits = FALSE)
  [13:37:39.673]                         }
  [13:37:39.673]                       })
  [13:37:39.673]                       tryCatch({
  [13:37:39.673]                         list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:39.673]                           plan = future::plan("next"))
  [13:37:39.673]                       }, error = identity)
  [13:37:39.673]                     })
  [13:37:39.673]                   }
  [13:37:39.673]                 }, immediateCondition = function(cond) {
  [13:37:39.673]                   sendCondition <- ...future.sendCondition()
  [13:37:39.673]                   sendCondition(cond)
  [13:37:39.673]                   muffleCondition <- function (cond) 
  [13:37:39.673]                   {
  [13:37:39.673]                     inherits <- base::inherits
  [13:37:39.673]                     invokeRestart <- base::invokeRestart
  [13:37:39.673]                     muffled <- FALSE
  [13:37:39.673]                     if (inherits(cond, "message")) {
  [13:37:39.673]                       invokeRestart("muffleMessage")
  [13:37:39.673]                       muffled <- TRUE
  [13:37:39.673]                     }
  [13:37:39.673]                     else if (inherits(cond, "warning")) {
  [13:37:39.673]                       invokeRestart("muffleWarning")
  [13:37:39.673]                       muffled <- TRUE
  [13:37:39.673]                     }
  [13:37:39.673]                     else if (inherits(cond, "condition")) {
  [13:37:39.673]                       computeRestarts <- base::computeRestarts
  [13:37:39.673]                       grepl <- base::grepl
  [13:37:39.673]                       is.null <- base::is.null
  [13:37:39.673]                       restarts <- computeRestarts(cond)
  [13:37:39.673]                       for (restart in restarts) {
  [13:37:39.673]                         name <- restart$name
  [13:37:39.673]                         if (is.null(name)) 
  [13:37:39.673]                           next
  [13:37:39.673]                         if (!grepl("^muffle", name)) 
  [13:37:39.673]                           next
  [13:37:39.673]                         invokeRestart(restart)
  [13:37:39.673]                         muffled <- TRUE
  [13:37:39.673]                         break
  [13:37:39.673]                       }
  [13:37:39.673]                     }
  [13:37:39.673]                     invisible(muffled)
  [13:37:39.673]                   }
  [13:37:39.673]                   muffleCondition(cond)
  [13:37:39.673]                 })
  [13:37:39.673]             }))
  [13:37:39.673]             future::FutureResult(value = ...future.value$value, 
  [13:37:39.673]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:39.673]                   ...future.rng), started = ...future.startTime, 
  [13:37:39.673]                 version = "1.8")
  [13:37:39.673]         }, condition = base::local({
  [13:37:39.673]             c <- base::c
  [13:37:39.673]             inherits <- base::inherits
  [13:37:39.673]             invokeRestart <- base::invokeRestart
  [13:37:39.673]             length <- base::length
  [13:37:39.673]             list <- base::list
  [13:37:39.673]             seq.int <- base::seq.int
  [13:37:39.673]             signalCondition <- base::signalCondition
  [13:37:39.673]             sys.calls <- base::sys.calls
  [13:37:39.673]             Sys.time <- base::Sys.time
  [13:37:39.673]             `[[` <- base::`[[`
  [13:37:39.673]             `+` <- base::`+`
  [13:37:39.673]             `<<-` <- base::`<<-`
  [13:37:39.673]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:39.673]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:39.673]                   3L)]
  [13:37:39.673]             }
  [13:37:39.673]             function(cond) {
  [13:37:39.673]                 if (inherits(cond, "error")) {
  [13:37:39.673]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:39.673]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:39.673]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:39.673]                   signalCondition(cond)
  [13:37:39.673]                 }
  [13:37:39.673]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:37:39.673]                 ))) {
  [13:37:39.673]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:37:39.673]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:39.673]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:39.673]                   if (!signal) {
  [13:37:39.673]                     muffleCondition <- function (cond) 
  [13:37:39.673]                     {
  [13:37:39.673]                       inherits <- base::inherits
  [13:37:39.673]                       invokeRestart <- base::invokeRestart
  [13:37:39.673]                       muffled <- FALSE
  [13:37:39.673]                       if (inherits(cond, "message")) {
  [13:37:39.673]                         invokeRestart("muffleMessage")
  [13:37:39.673]                         muffled <- TRUE
  [13:37:39.673]                       }
  [13:37:39.673]                       else if (inherits(cond, "warning")) {
  [13:37:39.673]                         invokeRestart("muffleWarning")
  [13:37:39.673]                         muffled <- TRUE
  [13:37:39.673]                       }
  [13:37:39.673]                       else if (inherits(cond, "condition")) {
  [13:37:39.673]                         computeRestarts <- base::computeRestarts
  [13:37:39.673]                         grepl <- base::grepl
  [13:37:39.673]                         is.null <- base::is.null
  [13:37:39.673]                         restarts <- computeRestarts(cond)
  [13:37:39.673]                         for (restart in restarts) {
  [13:37:39.673]                           name <- restart$name
  [13:37:39.673]                           if (is.null(name)) 
  [13:37:39.673]                             next
  [13:37:39.673]                           if (!grepl("^muffle", name)) 
  [13:37:39.673]                             next
  [13:37:39.673]                           invokeRestart(restart)
  [13:37:39.673]                           muffled <- TRUE
  [13:37:39.673]                           break
  [13:37:39.673]                         }
  [13:37:39.673]                       }
  [13:37:39.673]                       invisible(muffled)
  [13:37:39.673]                     }
  [13:37:39.673]                     muffleCondition(cond)
  [13:37:39.673]                   }
  [13:37:39.673]                 }
  [13:37:39.673]             }
  [13:37:39.673]         }))
  [13:37:39.673]     }, error = function(ex) {
  [13:37:39.673]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:39.673]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:39.673]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:39.673]     }, finally = {
  [13:37:39.673]         {
  [13:37:39.673]             {
  [13:37:39.673]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:37:39.673]             }
  [13:37:39.673]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:37:39.673]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:39.673]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:37:39.673]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:37:39.673]                 ...) 
  [13:37:39.673]             {
  [13:37:39.673]                 if (substitute) 
  [13:37:39.673]                   expr <- substitute(expr)
  [13:37:39.673]                 if (is.function(workers)) 
  [13:37:39.673]                   workers <- workers()
  [13:37:39.673]                 workers <- as.integer(workers)
  [13:37:39.673]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:37:39.673]                   workers >= 1)
  [13:37:39.673]                 if (workers == 1L) {
  [13:37:39.673]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:39.673]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:37:39.673]                     local = TRUE, label = label, ...))
  [13:37:39.673]                 }
  [13:37:39.673]                 workers <- ClusterRegistry("start", workers = workers)
  [13:37:39.673]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:37:39.673]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:39.673]                   globals = globals, persistent = persistent, 
  [13:37:39.673]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:37:39.673]                   label = label, ...)
  [13:37:39.673]                 if (!future$lazy) 
  [13:37:39.673]                   future <- run(future)
  [13:37:39.673]                 invisible(future)
  [13:37:39.673]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:37:39.673]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [13:37:39.673]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:39.673]             {
  [13:37:39.673]                 if (substitute) 
  [13:37:39.673]                   expr <- substitute(expr)
  [13:37:39.673]                 local <- as.logical(local)
  [13:37:39.673]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:37:39.673]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:39.673]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:37:39.673]                   label = label, ...)
  [13:37:39.673]                 if (!future$lazy) 
  [13:37:39.673]                   future <- run(future)
  [13:37:39.673]                 invisible(future)
  [13:37:39.673]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:39.673]         }
  [13:37:39.673]         base::options(...future.oldOptions)
  [13:37:39.673]     })
  [13:37:39.673]     Sys.time
  [13:37:39.673]     if (base::is.na(TRUE)) {
  [13:37:39.673]     }
  [13:37:39.673]     else {
  [13:37:39.673]         base::sink(type = "output", split = FALSE)
  [13:37:39.673]         if (TRUE) {
  [13:37:39.673]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:39.673]         }
  [13:37:39.673]         else {
  [13:37:39.673]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:39.673]         }
  [13:37:39.673]         base::close(...future.stdout)
  [13:37:39.673]         ...future.stdout <- NULL
  [13:37:39.673]     }
  [13:37:39.673]     ...future.result$conditions <- ...future.conditions
  [13:37:39.673]     ...future.result
  [13:37:39.673] }
  [13:37:39.680] Exporting 1 global objects (336 bytes) to cluster node #2 ...
  [13:37:39.681] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ...
  [13:37:39.682] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ... DONE
  [13:37:39.682] Exporting 1 global objects (336 bytes) to cluster node #2 ... DONE
  [13:37:39.717] MultisessionFuture started
  [13:37:39.717] Chunk #2 of 2 ... DONE
  [13:37:39.718] Launching 2 futures (chunks) ... DONE
  [13:37:39.718] - resolving futures
  [13:37:39.718]   - gathering results & relaying conditions (except errors)
  [13:37:39.719] resolve() on list ...
  [13:37:39.719]  recursive: 0
  [13:37:39.719]  length: 2
  [13:37:39.720] 
  [13:37:40.052] receiveMessageFromWorker() for ClusterFuture ...
  [13:37:40.053] - Validating connection of MultisessionFuture
  [13:37:40.095] - received message: FutureResult
  [13:37:40.095] - Received FutureResult
  [13:37:40.096] - Erased future from FutureRegistry
  [13:37:40.096] result() for ClusterFuture ...
  [13:37:40.096] - result already collected: FutureResult
  [13:37:40.097] result() for ClusterFuture ... done
  [13:37:40.097] receiveMessageFromWorker() for ClusterFuture ... done
  [13:37:40.097] Future #2
  [13:37:40.098] result() for ClusterFuture ...
  [13:37:40.098] - result already collected: FutureResult
  [13:37:40.098] result() for ClusterFuture ... done
  [13:37:40.099] result() for ClusterFuture ...
  [13:37:40.099] - result already collected: FutureResult
  [13:37:40.099] result() for ClusterFuture ... done
  [13:37:40.100] signalConditionsASAP(MultisessionFuture, pos=2) ...
  [13:37:40.100] - nx: 2
  [13:37:40.100] - relay: TRUE
  [13:37:40.101] - stdout: TRUE
  [13:37:40.101] - signal: TRUE
  [13:37:40.101] - resignal: FALSE
  [13:37:40.102] - force: FALSE
  [13:37:40.102] - relayed: [n=2] FALSE, FALSE
  [13:37:40.102] - queued futures: [n=2] FALSE, FALSE
  [13:37:40.102]  - until=1
  [13:37:40.103]  - relaying element #1
  [13:37:40.103] - relayed: [n=2] FALSE, FALSE
  [13:37:40.103] - queued futures: [n=2] FALSE, TRUE
  [13:37:40.104] signalConditionsASAP(NULL, pos=2) ... done
  [13:37:40.104]  length: 1 (resolved future 2)
  [13:37:40.206] receiveMessageFromWorker() for ClusterFuture ...
  [13:37:40.207] - Validating connection of MultisessionFuture
  [13:37:40.208] - received message: FutureResult
  [13:37:40.208] - Received FutureResult
  [13:37:40.208] - Erased future from FutureRegistry
  [13:37:40.209] result() for ClusterFuture ...
  [13:37:40.209] - result already collected: FutureResult
  [13:37:40.209] result() for ClusterFuture ... done
  [13:37:40.210] receiveMessageFromWorker() for ClusterFuture ... done
  [13:37:40.210] Future #1
  [13:37:40.210] result() for ClusterFuture ...
  [13:37:40.213] - result already collected: FutureResult
  [13:37:40.213] result() for ClusterFuture ... done
  [13:37:40.214] result() for ClusterFuture ...
  [13:37:40.214] - result already collected: FutureResult
  [13:37:40.214] result() for ClusterFuture ... done
  [13:37:40.214] signalConditionsASAP(MultisessionFuture, pos=1) ...
  [13:37:40.215] - nx: 2
  [13:37:40.215] - relay: TRUE
  [13:37:40.215] - stdout: TRUE
  [13:37:40.216] - signal: TRUE
  [13:37:40.216] - resignal: FALSE
  [13:37:40.216] - force: FALSE
  [13:37:40.217] - relayed: [n=2] FALSE, FALSE
  [13:37:40.217] - queued futures: [n=2] FALSE, TRUE
  [13:37:40.217]  - until=1
  [13:37:40.218]  - relaying element #1
  [13:37:40.218] result() for ClusterFuture ...
  [13:37:40.218] - result already collected: FutureResult
  [13:37:40.219] result() for ClusterFuture ... done
  [13:37:40.219] result() for ClusterFuture ...
  [13:37:40.219] - result already collected: FutureResult
  [13:37:40.220] result() for ClusterFuture ... done
  [13:37:40.220] result() for ClusterFuture ...
  [13:37:40.220] - result already collected: FutureResult
  [13:37:40.221] result() for ClusterFuture ... done
  [13:37:40.221] result() for ClusterFuture ...
  [13:37:40.221] - result already collected: FutureResult
  [13:37:40.222] result() for ClusterFuture ... done
  [13:37:40.222] - relayed: [n=2] TRUE, FALSE
  [13:37:40.222] - queued futures: [n=2] TRUE, TRUE
  [13:37:40.223] signalConditionsASAP(MultisessionFuture, pos=1) ... done
  [13:37:40.223]  length: 0 (resolved future 1)
  [13:37:40.223] Relaying remaining futures
  [13:37:40.224] signalConditionsASAP(NULL, pos=0) ...
  [13:37:40.224] - nx: 2
  [13:37:40.224] - relay: TRUE
  [13:37:40.224] - stdout: TRUE
  [13:37:40.225] - signal: TRUE
  [13:37:40.225] - resignal: FALSE
  [13:37:40.226] - force: FALSE
  [13:37:40.226] - relayed: [n=2] TRUE, FALSE
  [13:37:40.226] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [13:37:40.227]  - relaying element #2
  [13:37:40.227] result() for ClusterFuture ...
  [13:37:40.227] - result already collected: FutureResult
  [13:37:40.228] result() for ClusterFuture ... done
  [13:37:40.228] result() for ClusterFuture ...
  [13:37:40.228] - result already collected: FutureResult
  [13:37:40.229] result() for ClusterFuture ... done
  [13:37:40.229] result() for ClusterFuture ...
  [13:37:40.229] - result already collected: FutureResult
  [13:37:40.229] result() for ClusterFuture ... done
  [13:37:40.230] result() for ClusterFuture ...
  [13:37:40.230] - result already collected: FutureResult
  [13:37:40.230] result() for ClusterFuture ... done
  [13:37:40.231] - relayed: [n=2] TRUE, TRUE
  [13:37:40.231] - queued futures: [n=2] TRUE, TRUE
  [13:37:40.231] signalConditionsASAP(MultisessionFuture, pos=0) ... done
  [13:37:40.231] resolve() on list ... DONE
  [13:37:40.232] - collecting values of futures
  [13:37:40.232] result() for ClusterFuture ...
  [13:37:40.232] - result already collected: FutureResult
  [13:37:40.232] result() for ClusterFuture ... done
  [13:37:40.233] result() for ClusterFuture ...
  [13:37:40.233] - result already collected: FutureResult
  [13:37:40.233] result() for ClusterFuture ... done
  [13:37:40.234] result() for ClusterFuture ...
  [13:37:40.234] - result already collected: FutureResult
  [13:37:40.234] result() for ClusterFuture ... done
  [13:37:40.234] result() for ClusterFuture ...
  [13:37:40.235] - result already collected: FutureResult
  [13:37:40.235] result() for ClusterFuture ... done
  [13:37:40.235] - accumulating results
  [13:37:40.238] - processing errors (handler = 'stop')
  [13:37:40.239] - extracting results
  [13:37:40.239] doFuture() ... DONE
  - plan(list('multisession', 'sequential')) ... DONE
  - plan(list('multisession', 'multicore')) ...
  [13:37:40.241] plan(): Setting new future strategy stack:
  [13:37:40.241] List of future strategies:
  [13:37:40.241] 1. multisession:
  [13:37:40.241]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:37:40.241]    - tweaked: FALSE
  [13:37:40.241]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:40.241] 2. multicore:
  [13:37:40.241]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:37:40.241]    - tweaked: FALSE
  [13:37:40.241]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:40.244] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
  [13:37:40.245] multisession:
  [13:37:40.245] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:37:40.245] - tweaked: FALSE
  [13:37:40.245] - call: plan(list(a = strategy1, b = strategy2))
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 28730
  [local output] Creating node 1 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp2MyXWz/future.parent=15871.3dff4fb3be04.pid")), silent = TRUE)' -e "file.exists('/tmp/Rtmp2MyXWz/future.parent=15871.3dff4fb3be04.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:15871:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp2MyXWz/future.parent=15871.3dff4fb3be04.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=28730 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [local output] Connection with worker #1 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 1 of 2 ... done
  [local output] Creating node 2 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp2MyXWz/future.parent=15871.3dff3a2c60c8.pid")), silent = TRUE)' -e "file.exists('/tmp/Rtmp2MyXWz/future.parent=15871.3dff3a2c60c8.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:15871:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp2MyXWz/future.parent=15871.3dff3a2c60c8.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=28730 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #2 on 'localhost' to connect back
  [local output] Connection with worker #2 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 2 of 2 ... done
  [13:37:58.141] getGlobalsAndPackages() ...
  [13:37:58.141] Not searching for globals
  [13:37:58.142] - globals: [0] <none>
  [13:37:58.142] getGlobalsAndPackages() ... DONE
  [13:37:58.146] Packages needed by the future expression (n = 0): <none>
  [13:37:58.173] Packages needed by future strategies (n = 1): 'future'
  [13:37:58.179] {
  [13:37:58.179]     {
  [13:37:58.179]         ...future.startTime <- base::Sys.time()
  [13:37:58.179]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:58.179]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:58.179]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:58.179]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:58.179]             future.resolve.recursive = NULL, width = 80L)
  [13:37:58.179]         {
  [13:37:58.179]             {
  [13:37:58.179]                 {
  [13:37:58.179]                   {
  [13:37:58.179]                     has_future <- base::requireNamespace("future", 
  [13:37:58.179]                       quietly = TRUE)
  [13:37:58.179]                     version <- if (has_future) 
  [13:37:58.179]                       utils::packageVersion("future")
  [13:37:58.179]                     else NULL
  [13:37:58.179]                     if (!has_future || version < "1.8.0") {
  [13:37:58.179]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:37:58.179]                         "", base::R.version$version.string), 
  [13:37:58.179]                         platform = base::sprintf("%s (%s-bit)", 
  [13:37:58.179]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:58.179]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:58.179]                           "release", "version")], collapse = " "), 
  [13:37:58.179]                         hostname = base::Sys.info()[["nodename"]])
  [13:37:58.179]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:58.179]                         info)
  [13:37:58.179]                       info <- base::paste(info, collapse = "; ")
  [13:37:58.179]                       if (!has_future) {
  [13:37:58.179]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:58.179]                           info)
  [13:37:58.179]                       }
  [13:37:58.179]                       else {
  [13:37:58.179]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:58.179]                           info, version)
  [13:37:58.179]                       }
  [13:37:58.179]                       base::stop(msg)
  [13:37:58.179]                     }
  [13:37:58.179]                   }
  [13:37:58.179]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:37:58.179]                   base::options(mc.cores = 1L)
  [13:37:58.179]                 }
  [13:37:58.179]                 base::local({
  [13:37:58.179]                   for (pkg in "future") {
  [13:37:58.179]                     base::loadNamespace(pkg)
  [13:37:58.179]                     base::library(pkg, character.only = TRUE)
  [13:37:58.179]                   }
  [13:37:58.179]                 })
  [13:37:58.179]             }
  [13:37:58.179]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:58.179]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:58.179]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:37:58.179]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:58.179]             {
  [13:37:58.179]                 if (substitute) 
  [13:37:58.179]                   expr <- substitute(expr)
  [13:37:58.179]                 if (is.function(workers)) 
  [13:37:58.179]                   workers <- workers()
  [13:37:58.179]                 workers <- as.integer(workers)
  [13:37:58.179]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:37:58.179]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:37:58.179]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:58.179]                     lazy = lazy, seed = seed, globals = globals, 
  [13:37:58.179]                     local = TRUE, label = label, ...))
  [13:37:58.179]                 }
  [13:37:58.179]                 oopts <- options(mc.cores = workers)
  [13:37:58.179]                 on.exit(options(oopts))
  [13:37:58.179]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:37:58.179]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:58.179]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:37:58.179]                   label = label, ...)
  [13:37:58.179]                 if (!future$lazy) 
  [13:37:58.179]                   future <- run(future)
  [13:37:58.179]                 invisible(future)
  [13:37:58.179]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:58.179]         }
  [13:37:58.179]     }
  [13:37:58.179]     if (base::is.na(TRUE)) {
  [13:37:58.179]     }
  [13:37:58.179]     else {
  [13:37:58.179]         if (TRUE) {
  [13:37:58.179]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:58.179]                 open = "w")
  [13:37:58.179]         }
  [13:37:58.179]         else {
  [13:37:58.179]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:58.179]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:58.179]         }
  [13:37:58.179]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:58.179]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:58.179]             base::sink(type = "output", split = FALSE)
  [13:37:58.179]             base::close(...future.stdout)
  [13:37:58.179]         }, add = TRUE)
  [13:37:58.179]     }
  [13:37:58.179]     ...future.frame <- base::sys.nframe()
  [13:37:58.179]     ...future.conditions <- base::list()
  [13:37:58.179]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:58.179]     ...future.result <- base::tryCatch({
  [13:37:58.179]         base::withCallingHandlers({
  [13:37:58.179]             ...future.value <- base::withVisible(base::local({
  [13:37:58.179]                 ...future.sendCondition <- local({
  [13:37:58.179]                   sendCondition <- NULL
  [13:37:58.179]                   function(frame = 1L) {
  [13:37:58.179]                     if (is.function(sendCondition)) 
  [13:37:58.179]                       return(sendCondition)
  [13:37:58.179]                     ns <- getNamespace("parallel")
  [13:37:58.179]                     if (exists("sendData", mode = "function", 
  [13:37:58.179]                       envir = ns)) {
  [13:37:58.179]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:37:58.179]                         envir = ns)
  [13:37:58.179]                       envir <- sys.frame(frame)
  [13:37:58.179]                       master <- NULL
  [13:37:58.179]                       while (!identical(envir, .GlobalEnv) && 
  [13:37:58.179]                         !identical(envir, emptyenv())) {
  [13:37:58.179]                         if (exists("master", mode = "list", envir = envir, 
  [13:37:58.179]                           inherits = FALSE)) {
  [13:37:58.179]                           master <- get("master", mode = "list", 
  [13:37:58.179]                             envir = envir, inherits = FALSE)
  [13:37:58.179]                           if (inherits(master, "SOCKnode")) {
  [13:37:58.179]                             sendCondition <<- function(cond) {
  [13:37:58.179]                               data <- list(type = "VALUE", value = cond, 
  [13:37:58.179]                                 success = TRUE)
  [13:37:58.179]                               parallel_sendData(master, data)
  [13:37:58.179]                             }
  [13:37:58.179]                             return(sendCondition)
  [13:37:58.179]                           }
  [13:37:58.179]                         }
  [13:37:58.179]                         frame <- frame + 1L
  [13:37:58.179]                         envir <- sys.frame(frame)
  [13:37:58.179]                       }
  [13:37:58.179]                     }
  [13:37:58.179]                     sendCondition <<- function(cond) NULL
  [13:37:58.179]                   }
  [13:37:58.179]                 })
  [13:37:58.179]                 withCallingHandlers({
  [13:37:58.179]                   NA
  [13:37:58.179]                 }, immediateCondition = function(cond) {
  [13:37:58.179]                   sendCondition <- ...future.sendCondition()
  [13:37:58.179]                   sendCondition(cond)
  [13:37:58.179]                   muffleCondition <- function (cond) 
  [13:37:58.179]                   {
  [13:37:58.179]                     inherits <- base::inherits
  [13:37:58.179]                     invokeRestart <- base::invokeRestart
  [13:37:58.179]                     muffled <- FALSE
  [13:37:58.179]                     if (inherits(cond, "message")) {
  [13:37:58.179]                       invokeRestart("muffleMessage")
  [13:37:58.179]                       muffled <- TRUE
  [13:37:58.179]                     }
  [13:37:58.179]                     else if (inherits(cond, "warning")) {
  [13:37:58.179]                       invokeRestart("muffleWarning")
  [13:37:58.179]                       muffled <- TRUE
  [13:37:58.179]                     }
  [13:37:58.179]                     else if (inherits(cond, "condition")) {
  [13:37:58.179]                       computeRestarts <- base::computeRestarts
  [13:37:58.179]                       grepl <- base::grepl
  [13:37:58.179]                       is.null <- base::is.null
  [13:37:58.179]                       restarts <- computeRestarts(cond)
  [13:37:58.179]                       for (restart in restarts) {
  [13:37:58.179]                         name <- restart$name
  [13:37:58.179]                         if (is.null(name)) 
  [13:37:58.179]                           next
  [13:37:58.179]                         if (!grepl("^muffle", name)) 
  [13:37:58.179]                           next
  [13:37:58.179]                         invokeRestart(restart)
  [13:37:58.179]                         muffled <- TRUE
  [13:37:58.179]                         break
  [13:37:58.179]                       }
  [13:37:58.179]                     }
  [13:37:58.179]                     invisible(muffled)
  [13:37:58.179]                   }
  [13:37:58.179]                   muffleCondition(cond)
  [13:37:58.179]                 })
  [13:37:58.179]             }))
  [13:37:58.179]             future::FutureResult(value = ...future.value$value, 
  [13:37:58.179]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:58.179]                   ...future.rng), started = ...future.startTime, 
  [13:37:58.179]                 version = "1.8")
  [13:37:58.179]         }, condition = base::local({
  [13:37:58.179]             c <- base::c
  [13:37:58.179]             inherits <- base::inherits
  [13:37:58.179]             invokeRestart <- base::invokeRestart
  [13:37:58.179]             length <- base::length
  [13:37:58.179]             list <- base::list
  [13:37:58.179]             seq.int <- base::seq.int
  [13:37:58.179]             signalCondition <- base::signalCondition
  [13:37:58.179]             sys.calls <- base::sys.calls
  [13:37:58.179]             Sys.time <- base::Sys.time
  [13:37:58.179]             `[[` <- base::`[[`
  [13:37:58.179]             `+` <- base::`+`
  [13:37:58.179]             `<<-` <- base::`<<-`
  [13:37:58.179]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:58.179]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:58.179]                   3L)]
  [13:37:58.179]             }
  [13:37:58.179]             function(cond) {
  [13:37:58.179]                 if (inherits(cond, "error")) {
  [13:37:58.179]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:58.179]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:58.179]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:58.179]                   signalCondition(cond)
  [13:37:58.179]                 }
  [13:37:58.179]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:37:58.179]                 ))) {
  [13:37:58.179]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:37:58.179]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:58.179]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:58.179]                   if (!signal) {
  [13:37:58.179]                     muffleCondition <- function (cond) 
  [13:37:58.179]                     {
  [13:37:58.179]                       inherits <- base::inherits
  [13:37:58.179]                       invokeRestart <- base::invokeRestart
  [13:37:58.179]                       muffled <- FALSE
  [13:37:58.179]                       if (inherits(cond, "message")) {
  [13:37:58.179]                         invokeRestart("muffleMessage")
  [13:37:58.179]                         muffled <- TRUE
  [13:37:58.179]                       }
  [13:37:58.179]                       else if (inherits(cond, "warning")) {
  [13:37:58.179]                         invokeRestart("muffleWarning")
  [13:37:58.179]                         muffled <- TRUE
  [13:37:58.179]                       }
  [13:37:58.179]                       else if (inherits(cond, "condition")) {
  [13:37:58.179]                         computeRestarts <- base::computeRestarts
  [13:37:58.179]                         grepl <- base::grepl
  [13:37:58.179]                         is.null <- base::is.null
  [13:37:58.179]                         restarts <- computeRestarts(cond)
  [13:37:58.179]                         for (restart in restarts) {
  [13:37:58.179]                           name <- restart$name
  [13:37:58.179]                           if (is.null(name)) 
  [13:37:58.179]                             next
  [13:37:58.179]                           if (!grepl("^muffle", name)) 
  [13:37:58.179]                             next
  [13:37:58.179]                           invokeRestart(restart)
  [13:37:58.179]                           muffled <- TRUE
  [13:37:58.179]                           break
  [13:37:58.179]                         }
  [13:37:58.179]                       }
  [13:37:58.179]                       invisible(muffled)
  [13:37:58.179]                     }
  [13:37:58.179]                     muffleCondition(cond)
  [13:37:58.179]                   }
  [13:37:58.179]                 }
  [13:37:58.179]             }
  [13:37:58.179]         }))
  [13:37:58.179]     }, error = function(ex) {
  [13:37:58.179]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:58.179]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:58.179]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:58.179]     }, finally = {
  [13:37:58.179]         {
  [13:37:58.179]             {
  [13:37:58.179]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:37:58.179]             }
  [13:37:58.179]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:37:58.179]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:58.179]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:37:58.179]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:37:58.179]                 ...) 
  [13:37:58.179]             {
  [13:37:58.179]                 if (substitute) 
  [13:37:58.179]                   expr <- substitute(expr)
  [13:37:58.179]                 if (is.function(workers)) 
  [13:37:58.179]                   workers <- workers()
  [13:37:58.179]                 workers <- as.integer(workers)
  [13:37:58.179]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:37:58.179]                   workers >= 1)
  [13:37:58.179]                 if (workers == 1L) {
  [13:37:58.179]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:58.179]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:37:58.179]                     local = TRUE, label = label, ...))
  [13:37:58.179]                 }
  [13:37:58.179]                 workers <- ClusterRegistry("start", workers = workers)
  [13:37:58.179]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:37:58.179]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:58.179]                   globals = globals, persistent = persistent, 
  [13:37:58.179]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:37:58.179]                   label = label, ...)
  [13:37:58.179]                 if (!future$lazy) 
  [13:37:58.179]                   future <- run(future)
  [13:37:58.179]                 invisible(future)
  [13:37:58.179]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:37:58.179]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:37:58.179]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:58.179]             {
  [13:37:58.179]                 if (substitute) 
  [13:37:58.179]                   expr <- substitute(expr)
  [13:37:58.179]                 if (is.function(workers)) 
  [13:37:58.179]                   workers <- workers()
  [13:37:58.179]                 workers <- as.integer(workers)
  [13:37:58.179]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:37:58.179]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:37:58.179]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:58.179]                     lazy = lazy, seed = seed, globals = globals, 
  [13:37:58.179]                     local = TRUE, label = label, ...))
  [13:37:58.179]                 }
  [13:37:58.179]                 oopts <- options(mc.cores = workers)
  [13:37:58.179]                 on.exit(options(oopts))
  [13:37:58.179]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:37:58.179]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:58.179]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:37:58.179]                   label = label, ...)
  [13:37:58.179]                 if (!future$lazy) 
  [13:37:58.179]                   future <- run(future)
  [13:37:58.179]                 invisible(future)
  [13:37:58.179]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:58.179]         }
  [13:37:58.179]         base::options(...future.oldOptions)
  [13:37:58.179]     })
  [13:37:58.179]     Sys.time
  [13:37:58.179]     if (base::is.na(TRUE)) {
  [13:37:58.179]     }
  [13:37:58.179]     else {
  [13:37:58.179]         base::sink(type = "output", split = FALSE)
  [13:37:58.179]         if (TRUE) {
  [13:37:58.179]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:58.179]         }
  [13:37:58.179]         else {
  [13:37:58.179]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:58.179]         }
  [13:37:58.179]         base::close(...future.stdout)
  [13:37:58.179]         ...future.stdout <- NULL
  [13:37:58.179]     }
  [13:37:58.179]     ...future.result$conditions <- ...future.conditions
  [13:37:58.179]     ...future.result
  [13:37:58.179] }
  [13:37:58.199] MultisessionFuture started
  [13:37:58.200] result() for ClusterFuture ...
  [13:37:58.200] receiveMessageFromWorker() for ClusterFuture ...
  [13:37:58.200] - Validating connection of MultisessionFuture
  [13:37:58.471] - received message: FutureResult
  [13:37:58.472] - Received FutureResult
  [13:37:58.472] - Erased future from FutureRegistry
  [13:37:58.472] result() for ClusterFuture ...
  [13:37:58.473] - result already collected: FutureResult
  [13:37:58.473] result() for ClusterFuture ... done
  [13:37:58.473] receiveMessageFromWorker() for ClusterFuture ... done
  [13:37:58.474] result() for ClusterFuture ... done
  [13:37:58.474] result() for ClusterFuture ...
  [13:37:58.474] - result already collected: FutureResult
  [13:37:58.475] result() for ClusterFuture ... done
  [13:37:58.475] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE
  [13:37:58.476] plan(): nbrOfWorkers() = 2
  [13:37:58.477] doFuture() ...
  [13:37:58.481] - dummy globals (as locals): [2] 'a', 'b'
  [13:37:58.482] - R expression:
  [13:37:58.484] {
  [13:37:58.484]     doFuture::registerDoFuture()
  [13:37:58.484]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:58.484]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:58.484]         {
  [13:37:58.484]             a <- NULL
  [13:37:58.484]             b <- NULL
  [13:37:58.484]         }
  [13:37:58.484]         ...future.env <- environment()
  [13:37:58.484]         local({
  [13:37:58.484]             for (name in names(...future.x_jj)) {
  [13:37:58.484]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:58.484]                   inherits = FALSE)
  [13:37:58.484]             }
  [13:37:58.484]         })
  [13:37:58.484]         tryCatch({
  [13:37:58.484]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:58.484]                 plan = future::plan("next"))
  [13:37:58.484]         }, error = identity)
  [13:37:58.484]     })
  [13:37:58.484] }
  [13:37:58.485] - identifying globals and packages ...
  [13:37:58.485] getGlobalsAndPackages() ...
  [13:37:58.486] Searching for globals...
  [13:37:58.633] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [13:37:58.634] Searching for globals ... DONE
  [13:37:58.634] Resolving globals: FALSE
  [13:37:58.635] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:37:58.636] - globals: [1] '...future.x_ii'
  [13:37:58.636] 
  [13:37:58.636] getGlobalsAndPackages() ... DONE
  [13:37:58.637] List of 1
  [13:37:58.637]  $ ...future.x_ii: NULL
  [13:37:58.637]  - attr(*, "where")=List of 1
  [13:37:58.637]   ..$ ...future.x_ii:<environment: 0x5647c765b818> 
  [13:37:58.637]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:58.637]  - attr(*, "resolved")= logi FALSE
  [13:37:58.637]  - attr(*, "total_size")= num 0
  [13:37:58.642]   - R expression:
  [13:37:58.643] {
  [13:37:58.643]     doFuture::registerDoFuture()
  [13:37:58.643]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:58.643]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:58.643]         {
  [13:37:58.643]             a <- NULL
  [13:37:58.643]             b <- NULL
  [13:37:58.643]         }
  [13:37:58.643]         ...future.env <- environment()
  [13:37:58.643]         local({
  [13:37:58.643]             for (name in names(...future.x_jj)) {
  [13:37:58.643]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:58.643]                   inherits = FALSE)
  [13:37:58.643]             }
  [13:37:58.643]         })
  [13:37:58.643]         tryCatch({
  [13:37:58.643]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:58.643]                 plan = future::plan("next"))
  [13:37:58.643]         }, error = identity)
  [13:37:58.643]     })
  [13:37:58.643] }
  [13:37:58.643]   - globals: [1] '...future.x_ii'
  [13:37:58.644] List of 1
  [13:37:58.644]  $ ...future.x_ii: NULL
  [13:37:58.644]  - attr(*, "where")=List of 1
  [13:37:58.644]   ..$ ...future.x_ii:<environment: 0x5647c765b818> 
  [13:37:58.644]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:58.644]  - attr(*, "resolved")= logi FALSE
  [13:37:58.644]  - attr(*, "total_size")= num 0
  [13:37:58.666]   - packages: [1] 'doFuture'
  [13:37:58.666] - identifying globals and packages ... DONE
  [13:37:58.667] Number of chunks: 2
  [13:37:58.668] Number of futures (= number of chunks): 2
  [13:37:58.668] Launching 2 futures (chunks) ...
  [13:37:58.669] Chunk #1 of 2 ...
  [13:37:58.669]  - Finding globals in 'args_list' chunk #1 ...
  [13:37:58.669] getGlobalsAndPackages() ...
  [13:37:58.670] Searching for globals...
  [13:37:58.670] 
  [13:37:58.671] Searching for globals ... DONE
  [13:37:58.671] - globals: [0] <none>
  [13:37:58.671] getGlobalsAndPackages() ... DONE
  [13:37:58.672] 
  [13:37:58.672] 
  [13:37:58.672]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:37:58.684] getGlobalsAndPackages() ...
  [13:37:58.685] - globals passed as-is: [1] '...future.x_ii'
  [13:37:58.685] Resolving globals: FALSE
  [13:37:58.686] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:37:58.687] - globals: [1] '...future.x_ii'
  [13:37:58.687] 
  [13:37:58.687] getGlobalsAndPackages() ... DONE
  [13:37:58.691] Packages needed by the future expression (n = 1): 'doFuture'
  [13:37:58.692] Packages needed by future strategies (n = 1): 'future'
  [13:37:58.698] {
  [13:37:58.698]     {
  [13:37:58.698]         ...future.startTime <- base::Sys.time()
  [13:37:58.698]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:58.698]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:58.698]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:58.698]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:58.698]             future.resolve.recursive = NULL, width = 80L)
  [13:37:58.698]         {
  [13:37:58.698]             {
  [13:37:58.698]                 {
  [13:37:58.698]                   {
  [13:37:58.698]                     has_future <- base::requireNamespace("future", 
  [13:37:58.698]                       quietly = TRUE)
  [13:37:58.698]                     version <- if (has_future) 
  [13:37:58.698]                       utils::packageVersion("future")
  [13:37:58.698]                     else NULL
  [13:37:58.698]                     if (!has_future || version < "1.8.0") {
  [13:37:58.698]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:37:58.698]                         "", base::R.version$version.string), 
  [13:37:58.698]                         platform = base::sprintf("%s (%s-bit)", 
  [13:37:58.698]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:58.698]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:58.698]                           "release", "version")], collapse = " "), 
  [13:37:58.698]                         hostname = base::Sys.info()[["nodename"]])
  [13:37:58.698]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:58.698]                         info)
  [13:37:58.698]                       info <- base::paste(info, collapse = "; ")
  [13:37:58.698]                       if (!has_future) {
  [13:37:58.698]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:58.698]                           info)
  [13:37:58.698]                       }
  [13:37:58.698]                       else {
  [13:37:58.698]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:58.698]                           info, version)
  [13:37:58.698]                       }
  [13:37:58.698]                       base::stop(msg)
  [13:37:58.698]                     }
  [13:37:58.698]                   }
  [13:37:58.698]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:37:58.698]                   base::options(mc.cores = 1L)
  [13:37:58.698]                 }
  [13:37:58.698]                 base::local({
  [13:37:58.698]                   for (pkg in c("doFuture", "future")) {
  [13:37:58.698]                     base::loadNamespace(pkg)
  [13:37:58.698]                     base::library(pkg, character.only = TRUE)
  [13:37:58.698]                   }
  [13:37:58.698]                 })
  [13:37:58.698]             }
  [13:37:58.698]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:58.698]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:58.698]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:37:58.698]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:58.698]             {
  [13:37:58.698]                 if (substitute) 
  [13:37:58.698]                   expr <- substitute(expr)
  [13:37:58.698]                 if (is.function(workers)) 
  [13:37:58.698]                   workers <- workers()
  [13:37:58.698]                 workers <- as.integer(workers)
  [13:37:58.698]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:37:58.698]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:37:58.698]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:58.698]                     lazy = lazy, seed = seed, globals = globals, 
  [13:37:58.698]                     local = TRUE, label = label, ...))
  [13:37:58.698]                 }
  [13:37:58.698]                 oopts <- options(mc.cores = workers)
  [13:37:58.698]                 on.exit(options(oopts))
  [13:37:58.698]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:37:58.698]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:58.698]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:37:58.698]                   label = label, ...)
  [13:37:58.698]                 if (!future$lazy) 
  [13:37:58.698]                   future <- run(future)
  [13:37:58.698]                 invisible(future)
  [13:37:58.698]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:58.698]         }
  [13:37:58.698]     }
  [13:37:58.698]     if (base::is.na(TRUE)) {
  [13:37:58.698]     }
  [13:37:58.698]     else {
  [13:37:58.698]         if (TRUE) {
  [13:37:58.698]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:58.698]                 open = "w")
  [13:37:58.698]         }
  [13:37:58.698]         else {
  [13:37:58.698]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:58.698]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:58.698]         }
  [13:37:58.698]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:58.698]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:58.698]             base::sink(type = "output", split = FALSE)
  [13:37:58.698]             base::close(...future.stdout)
  [13:37:58.698]         }, add = TRUE)
  [13:37:58.698]     }
  [13:37:58.698]     ...future.frame <- base::sys.nframe()
  [13:37:58.698]     ...future.conditions <- base::list()
  [13:37:58.698]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:58.698]     ...future.result <- base::tryCatch({
  [13:37:58.698]         base::withCallingHandlers({
  [13:37:58.698]             ...future.value <- base::withVisible(base::local({
  [13:37:58.698]                 ...future.sendCondition <- local({
  [13:37:58.698]                   sendCondition <- NULL
  [13:37:58.698]                   function(frame = 1L) {
  [13:37:58.698]                     if (is.function(sendCondition)) 
  [13:37:58.698]                       return(sendCondition)
  [13:37:58.698]                     ns <- getNamespace("parallel")
  [13:37:58.698]                     if (exists("sendData", mode = "function", 
  [13:37:58.698]                       envir = ns)) {
  [13:37:58.698]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:37:58.698]                         envir = ns)
  [13:37:58.698]                       envir <- sys.frame(frame)
  [13:37:58.698]                       master <- NULL
  [13:37:58.698]                       while (!identical(envir, .GlobalEnv) && 
  [13:37:58.698]                         !identical(envir, emptyenv())) {
  [13:37:58.698]                         if (exists("master", mode = "list", envir = envir, 
  [13:37:58.698]                           inherits = FALSE)) {
  [13:37:58.698]                           master <- get("master", mode = "list", 
  [13:37:58.698]                             envir = envir, inherits = FALSE)
  [13:37:58.698]                           if (inherits(master, "SOCKnode")) {
  [13:37:58.698]                             sendCondition <<- function(cond) {
  [13:37:58.698]                               data <- list(type = "VALUE", value = cond, 
  [13:37:58.698]                                 success = TRUE)
  [13:37:58.698]                               parallel_sendData(master, data)
  [13:37:58.698]                             }
  [13:37:58.698]                             return(sendCondition)
  [13:37:58.698]                           }
  [13:37:58.698]                         }
  [13:37:58.698]                         frame <- frame + 1L
  [13:37:58.698]                         envir <- sys.frame(frame)
  [13:37:58.698]                       }
  [13:37:58.698]                     }
  [13:37:58.698]                     sendCondition <<- function(cond) NULL
  [13:37:58.698]                   }
  [13:37:58.698]                 })
  [13:37:58.698]                 withCallingHandlers({
  [13:37:58.698]                   {
  [13:37:58.698]                     doFuture::registerDoFuture()
  [13:37:58.698]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:58.698]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:58.698]                       {
  [13:37:58.698]                         a <- NULL
  [13:37:58.698]                         b <- NULL
  [13:37:58.698]                       }
  [13:37:58.698]                       ...future.env <- environment()
  [13:37:58.698]                       local({
  [13:37:58.698]                         for (name in names(...future.x_jj)) {
  [13:37:58.698]                           assign(name, ...future.x_jj[[name]], 
  [13:37:58.698]                             envir = ...future.env, inherits = FALSE)
  [13:37:58.698]                         }
  [13:37:58.698]                       })
  [13:37:58.698]                       tryCatch({
  [13:37:58.698]                         list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:58.698]                           plan = future::plan("next"))
  [13:37:58.698]                       }, error = identity)
  [13:37:58.698]                     })
  [13:37:58.698]                   }
  [13:37:58.698]                 }, immediateCondition = function(cond) {
  [13:37:58.698]                   sendCondition <- ...future.sendCondition()
  [13:37:58.698]                   sendCondition(cond)
  [13:37:58.698]                   muffleCondition <- function (cond) 
  [13:37:58.698]                   {
  [13:37:58.698]                     inherits <- base::inherits
  [13:37:58.698]                     invokeRestart <- base::invokeRestart
  [13:37:58.698]                     muffled <- FALSE
  [13:37:58.698]                     if (inherits(cond, "message")) {
  [13:37:58.698]                       invokeRestart("muffleMessage")
  [13:37:58.698]                       muffled <- TRUE
  [13:37:58.698]                     }
  [13:37:58.698]                     else if (inherits(cond, "warning")) {
  [13:37:58.698]                       invokeRestart("muffleWarning")
  [13:37:58.698]                       muffled <- TRUE
  [13:37:58.698]                     }
  [13:37:58.698]                     else if (inherits(cond, "condition")) {
  [13:37:58.698]                       computeRestarts <- base::computeRestarts
  [13:37:58.698]                       grepl <- base::grepl
  [13:37:58.698]                       is.null <- base::is.null
  [13:37:58.698]                       restarts <- computeRestarts(cond)
  [13:37:58.698]                       for (restart in restarts) {
  [13:37:58.698]                         name <- restart$name
  [13:37:58.698]                         if (is.null(name)) 
  [13:37:58.698]                           next
  [13:37:58.698]                         if (!grepl("^muffle", name)) 
  [13:37:58.698]                           next
  [13:37:58.698]                         invokeRestart(restart)
  [13:37:58.698]                         muffled <- TRUE
  [13:37:58.698]                         break
  [13:37:58.698]                       }
  [13:37:58.698]                     }
  [13:37:58.698]                     invisible(muffled)
  [13:37:58.698]                   }
  [13:37:58.698]                   muffleCondition(cond)
  [13:37:58.698]                 })
  [13:37:58.698]             }))
  [13:37:58.698]             future::FutureResult(value = ...future.value$value, 
  [13:37:58.698]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:58.698]                   ...future.rng), started = ...future.startTime, 
  [13:37:58.698]                 version = "1.8")
  [13:37:58.698]         }, condition = base::local({
  [13:37:58.698]             c <- base::c
  [13:37:58.698]             inherits <- base::inherits
  [13:37:58.698]             invokeRestart <- base::invokeRestart
  [13:37:58.698]             length <- base::length
  [13:37:58.698]             list <- base::list
  [13:37:58.698]             seq.int <- base::seq.int
  [13:37:58.698]             signalCondition <- base::signalCondition
  [13:37:58.698]             sys.calls <- base::sys.calls
  [13:37:58.698]             Sys.time <- base::Sys.time
  [13:37:58.698]             `[[` <- base::`[[`
  [13:37:58.698]             `+` <- base::`+`
  [13:37:58.698]             `<<-` <- base::`<<-`
  [13:37:58.698]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:58.698]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:58.698]                   3L)]
  [13:37:58.698]             }
  [13:37:58.698]             function(cond) {
  [13:37:58.698]                 if (inherits(cond, "error")) {
  [13:37:58.698]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:58.698]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:58.698]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:58.698]                   signalCondition(cond)
  [13:37:58.698]                 }
  [13:37:58.698]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:37:58.698]                 ))) {
  [13:37:58.698]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:37:58.698]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:58.698]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:58.698]                   if (!signal) {
  [13:37:58.698]                     muffleCondition <- function (cond) 
  [13:37:58.698]                     {
  [13:37:58.698]                       inherits <- base::inherits
  [13:37:58.698]                       invokeRestart <- base::invokeRestart
  [13:37:58.698]                       muffled <- FALSE
  [13:37:58.698]                       if (inherits(cond, "message")) {
  [13:37:58.698]                         invokeRestart("muffleMessage")
  [13:37:58.698]                         muffled <- TRUE
  [13:37:58.698]                       }
  [13:37:58.698]                       else if (inherits(cond, "warning")) {
  [13:37:58.698]                         invokeRestart("muffleWarning")
  [13:37:58.698]                         muffled <- TRUE
  [13:37:58.698]                       }
  [13:37:58.698]                       else if (inherits(cond, "condition")) {
  [13:37:58.698]                         computeRestarts <- base::computeRestarts
  [13:37:58.698]                         grepl <- base::grepl
  [13:37:58.698]                         is.null <- base::is.null
  [13:37:58.698]                         restarts <- computeRestarts(cond)
  [13:37:58.698]                         for (restart in restarts) {
  [13:37:58.698]                           name <- restart$name
  [13:37:58.698]                           if (is.null(name)) 
  [13:37:58.698]                             next
  [13:37:58.698]                           if (!grepl("^muffle", name)) 
  [13:37:58.698]                             next
  [13:37:58.698]                           invokeRestart(restart)
  [13:37:58.698]                           muffled <- TRUE
  [13:37:58.698]                           break
  [13:37:58.698]                         }
  [13:37:58.698]                       }
  [13:37:58.698]                       invisible(muffled)
  [13:37:58.698]                     }
  [13:37:58.698]                     muffleCondition(cond)
  [13:37:58.698]                   }
  [13:37:58.698]                 }
  [13:37:58.698]             }
  [13:37:58.698]         }))
  [13:37:58.698]     }, error = function(ex) {
  [13:37:58.698]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:58.698]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:58.698]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:58.698]     }, finally = {
  [13:37:58.698]         {
  [13:37:58.698]             {
  [13:37:58.698]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:37:58.698]             }
  [13:37:58.698]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:37:58.698]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:58.698]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:37:58.698]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:37:58.698]                 ...) 
  [13:37:58.698]             {
  [13:37:58.698]                 if (substitute) 
  [13:37:58.698]                   expr <- substitute(expr)
  [13:37:58.698]                 if (is.function(workers)) 
  [13:37:58.698]                   workers <- workers()
  [13:37:58.698]                 workers <- as.integer(workers)
  [13:37:58.698]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:37:58.698]                   workers >= 1)
  [13:37:58.698]                 if (workers == 1L) {
  [13:37:58.698]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:58.698]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:37:58.698]                     local = TRUE, label = label, ...))
  [13:37:58.698]                 }
  [13:37:58.698]                 workers <- ClusterRegistry("start", workers = workers)
  [13:37:58.698]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:37:58.698]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:58.698]                   globals = globals, persistent = persistent, 
  [13:37:58.698]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:37:58.698]                   label = label, ...)
  [13:37:58.698]                 if (!future$lazy) 
  [13:37:58.698]                   future <- run(future)
  [13:37:58.698]                 invisible(future)
  [13:37:58.698]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:37:58.698]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:37:58.698]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:58.698]             {
  [13:37:58.698]                 if (substitute) 
  [13:37:58.698]                   expr <- substitute(expr)
  [13:37:58.698]                 if (is.function(workers)) 
  [13:37:58.698]                   workers <- workers()
  [13:37:58.698]                 workers <- as.integer(workers)
  [13:37:58.698]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:37:58.698]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:37:58.698]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:58.698]                     lazy = lazy, seed = seed, globals = globals, 
  [13:37:58.698]                     local = TRUE, label = label, ...))
  [13:37:58.698]                 }
  [13:37:58.698]                 oopts <- options(mc.cores = workers)
  [13:37:58.698]                 on.exit(options(oopts))
  [13:37:58.698]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:37:58.698]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:58.698]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:37:58.698]                   label = label, ...)
  [13:37:58.698]                 if (!future$lazy) 
  [13:37:58.698]                   future <- run(future)
  [13:37:58.698]                 invisible(future)
  [13:37:58.698]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:58.698]         }
  [13:37:58.698]         base::options(...future.oldOptions)
  [13:37:58.698]     })
  [13:37:58.698]     Sys.time
  [13:37:58.698]     if (base::is.na(TRUE)) {
  [13:37:58.698]     }
  [13:37:58.698]     else {
  [13:37:58.698]         base::sink(type = "output", split = FALSE)
  [13:37:58.698]         if (TRUE) {
  [13:37:58.698]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:58.698]         }
  [13:37:58.698]         else {
  [13:37:58.698]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:58.698]         }
  [13:37:58.698]         base::close(...future.stdout)
  [13:37:58.698]         ...future.stdout <- NULL
  [13:37:58.698]     }
  [13:37:58.698]     ...future.result$conditions <- ...future.conditions
  [13:37:58.698]     ...future.result
  [13:37:58.698] }
  [13:37:58.739] Exporting 1 global objects (336 bytes) to cluster node #1 ...
  [13:37:58.739] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ...
  [13:37:58.740] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ... DONE
  [13:37:58.741] Exporting 1 global objects (336 bytes) to cluster node #1 ... DONE
  [13:37:58.743] MultisessionFuture started
  [13:37:58.743] Chunk #1 of 2 ... DONE
  [13:37:58.743] Chunk #2 of 2 ...
  [13:37:58.744]  - Finding globals in 'args_list' chunk #2 ...
  [13:37:58.744] getGlobalsAndPackages() ...
  [13:37:58.744] Searching for globals...
  [13:37:58.745] 
  [13:37:58.746] Searching for globals ... DONE
  [13:37:58.746] - globals: [0] <none>
  [13:37:58.746] getGlobalsAndPackages() ... DONE
  [13:37:58.746] 
  [13:37:58.747] 
  [13:37:58.747]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:37:58.772] getGlobalsAndPackages() ...
  [13:37:58.772] - globals passed as-is: [1] '...future.x_ii'
  [13:37:58.772] Resolving globals: FALSE
  [13:37:58.773] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:37:58.774] - globals: [1] '...future.x_ii'
  [13:37:58.774] 
  [13:37:58.775] getGlobalsAndPackages() ... DONE
  [13:37:58.779] Packages needed by the future expression (n = 1): 'doFuture'
  [13:37:58.779] Packages needed by future strategies (n = 1): 'future'
  [13:37:58.825] {
  [13:37:58.825]     {
  [13:37:58.825]         ...future.startTime <- base::Sys.time()
  [13:37:58.825]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:58.825]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:58.825]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:58.825]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:58.825]             future.resolve.recursive = NULL, width = 80L)
  [13:37:58.825]         {
  [13:37:58.825]             {
  [13:37:58.825]                 {
  [13:37:58.825]                   {
  [13:37:58.825]                     has_future <- base::requireNamespace("future", 
  [13:37:58.825]                       quietly = TRUE)
  [13:37:58.825]                     version <- if (has_future) 
  [13:37:58.825]                       utils::packageVersion("future")
  [13:37:58.825]                     else NULL
  [13:37:58.825]                     if (!has_future || version < "1.8.0") {
  [13:37:58.825]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:37:58.825]                         "", base::R.version$version.string), 
  [13:37:58.825]                         platform = base::sprintf("%s (%s-bit)", 
  [13:37:58.825]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:58.825]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:58.825]                           "release", "version")], collapse = " "), 
  [13:37:58.825]                         hostname = base::Sys.info()[["nodename"]])
  [13:37:58.825]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:58.825]                         info)
  [13:37:58.825]                       info <- base::paste(info, collapse = "; ")
  [13:37:58.825]                       if (!has_future) {
  [13:37:58.825]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:58.825]                           info)
  [13:37:58.825]                       }
  [13:37:58.825]                       else {
  [13:37:58.825]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:58.825]                           info, version)
  [13:37:58.825]                       }
  [13:37:58.825]                       base::stop(msg)
  [13:37:58.825]                     }
  [13:37:58.825]                   }
  [13:37:58.825]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:37:58.825]                   base::options(mc.cores = 1L)
  [13:37:58.825]                 }
  [13:37:58.825]                 base::local({
  [13:37:58.825]                   for (pkg in c("doFuture", "future")) {
  [13:37:58.825]                     base::loadNamespace(pkg)
  [13:37:58.825]                     base::library(pkg, character.only = TRUE)
  [13:37:58.825]                   }
  [13:37:58.825]                 })
  [13:37:58.825]             }
  [13:37:58.825]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:58.825]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:58.825]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:37:58.825]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:58.825]             {
  [13:37:58.825]                 if (substitute) 
  [13:37:58.825]                   expr <- substitute(expr)
  [13:37:58.825]                 if (is.function(workers)) 
  [13:37:58.825]                   workers <- workers()
  [13:37:58.825]                 workers <- as.integer(workers)
  [13:37:58.825]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:37:58.825]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:37:58.825]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:58.825]                     lazy = lazy, seed = seed, globals = globals, 
  [13:37:58.825]                     local = TRUE, label = label, ...))
  [13:37:58.825]                 }
  [13:37:58.825]                 oopts <- options(mc.cores = workers)
  [13:37:58.825]                 on.exit(options(oopts))
  [13:37:58.825]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:37:58.825]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:58.825]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:37:58.825]                   label = label, ...)
  [13:37:58.825]                 if (!future$lazy) 
  [13:37:58.825]                   future <- run(future)
  [13:37:58.825]                 invisible(future)
  [13:37:58.825]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:58.825]         }
  [13:37:58.825]     }
  [13:37:58.825]     if (base::is.na(TRUE)) {
  [13:37:58.825]     }
  [13:37:58.825]     else {
  [13:37:58.825]         if (TRUE) {
  [13:37:58.825]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:58.825]                 open = "w")
  [13:37:58.825]         }
  [13:37:58.825]         else {
  [13:37:58.825]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:58.825]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:58.825]         }
  [13:37:58.825]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:58.825]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:58.825]             base::sink(type = "output", split = FALSE)
  [13:37:58.825]             base::close(...future.stdout)
  [13:37:58.825]         }, add = TRUE)
  [13:37:58.825]     }
  [13:37:58.825]     ...future.frame <- base::sys.nframe()
  [13:37:58.825]     ...future.conditions <- base::list()
  [13:37:58.825]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:58.825]     ...future.result <- base::tryCatch({
  [13:37:58.825]         base::withCallingHandlers({
  [13:37:58.825]             ...future.value <- base::withVisible(base::local({
  [13:37:58.825]                 ...future.sendCondition <- local({
  [13:37:58.825]                   sendCondition <- NULL
  [13:37:58.825]                   function(frame = 1L) {
  [13:37:58.825]                     if (is.function(sendCondition)) 
  [13:37:58.825]                       return(sendCondition)
  [13:37:58.825]                     ns <- getNamespace("parallel")
  [13:37:58.825]                     if (exists("sendData", mode = "function", 
  [13:37:58.825]                       envir = ns)) {
  [13:37:58.825]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:37:58.825]                         envir = ns)
  [13:37:58.825]                       envir <- sys.frame(frame)
  [13:37:58.825]                       master <- NULL
  [13:37:58.825]                       while (!identical(envir, .GlobalEnv) && 
  [13:37:58.825]                         !identical(envir, emptyenv())) {
  [13:37:58.825]                         if (exists("master", mode = "list", envir = envir, 
  [13:37:58.825]                           inherits = FALSE)) {
  [13:37:58.825]                           master <- get("master", mode = "list", 
  [13:37:58.825]                             envir = envir, inherits = FALSE)
  [13:37:58.825]                           if (inherits(master, "SOCKnode")) {
  [13:37:58.825]                             sendCondition <<- function(cond) {
  [13:37:58.825]                               data <- list(type = "VALUE", value = cond, 
  [13:37:58.825]                                 success = TRUE)
  [13:37:58.825]                               parallel_sendData(master, data)
  [13:37:58.825]                             }
  [13:37:58.825]                             return(sendCondition)
  [13:37:58.825]                           }
  [13:37:58.825]                         }
  [13:37:58.825]                         frame <- frame + 1L
  [13:37:58.825]                         envir <- sys.frame(frame)
  [13:37:58.825]                       }
  [13:37:58.825]                     }
  [13:37:58.825]                     sendCondition <<- function(cond) NULL
  [13:37:58.825]                   }
  [13:37:58.825]                 })
  [13:37:58.825]                 withCallingHandlers({
  [13:37:58.825]                   {
  [13:37:58.825]                     doFuture::registerDoFuture()
  [13:37:58.825]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:58.825]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:58.825]                       {
  [13:37:58.825]                         a <- NULL
  [13:37:58.825]                         b <- NULL
  [13:37:58.825]                       }
  [13:37:58.825]                       ...future.env <- environment()
  [13:37:58.825]                       local({
  [13:37:58.825]                         for (name in names(...future.x_jj)) {
  [13:37:58.825]                           assign(name, ...future.x_jj[[name]], 
  [13:37:58.825]                             envir = ...future.env, inherits = FALSE)
  [13:37:58.825]                         }
  [13:37:58.825]                       })
  [13:37:58.825]                       tryCatch({
  [13:37:58.825]                         list(a = a, b = b, plan_b = future::plan("list"), 
  [13:37:58.825]                           plan = future::plan("next"))
  [13:37:58.825]                       }, error = identity)
  [13:37:58.825]                     })
  [13:37:58.825]                   }
  [13:37:58.825]                 }, immediateCondition = function(cond) {
  [13:37:58.825]                   sendCondition <- ...future.sendCondition()
  [13:37:58.825]                   sendCondition(cond)
  [13:37:58.825]                   muffleCondition <- function (cond) 
  [13:37:58.825]                   {
  [13:37:58.825]                     inherits <- base::inherits
  [13:37:58.825]                     invokeRestart <- base::invokeRestart
  [13:37:58.825]                     muffled <- FALSE
  [13:37:58.825]                     if (inherits(cond, "message")) {
  [13:37:58.825]                       invokeRestart("muffleMessage")
  [13:37:58.825]                       muffled <- TRUE
  [13:37:58.825]                     }
  [13:37:58.825]                     else if (inherits(cond, "warning")) {
  [13:37:58.825]                       invokeRestart("muffleWarning")
  [13:37:58.825]                       muffled <- TRUE
  [13:37:58.825]                     }
  [13:37:58.825]                     else if (inherits(cond, "condition")) {
  [13:37:58.825]                       computeRestarts <- base::computeRestarts
  [13:37:58.825]                       grepl <- base::grepl
  [13:37:58.825]                       is.null <- base::is.null
  [13:37:58.825]                       restarts <- computeRestarts(cond)
  [13:37:58.825]                       for (restart in restarts) {
  [13:37:58.825]                         name <- restart$name
  [13:37:58.825]                         if (is.null(name)) 
  [13:37:58.825]                           next
  [13:37:58.825]                         if (!grepl("^muffle", name)) 
  [13:37:58.825]                           next
  [13:37:58.825]                         invokeRestart(restart)
  [13:37:58.825]                         muffled <- TRUE
  [13:37:58.825]                         break
  [13:37:58.825]                       }
  [13:37:58.825]                     }
  [13:37:58.825]                     invisible(muffled)
  [13:37:58.825]                   }
  [13:37:58.825]                   muffleCondition(cond)
  [13:37:58.825]                 })
  [13:37:58.825]             }))
  [13:37:58.825]             future::FutureResult(value = ...future.value$value, 
  [13:37:58.825]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:58.825]                   ...future.rng), started = ...future.startTime, 
  [13:37:58.825]                 version = "1.8")
  [13:37:58.825]         }, condition = base::local({
  [13:37:58.825]             c <- base::c
  [13:37:58.825]             inherits <- base::inherits
  [13:37:58.825]             invokeRestart <- base::invokeRestart
  [13:37:58.825]             length <- base::length
  [13:37:58.825]             list <- base::list
  [13:37:58.825]             seq.int <- base::seq.int
  [13:37:58.825]             signalCondition <- base::signalCondition
  [13:37:58.825]             sys.calls <- base::sys.calls
  [13:37:58.825]             Sys.time <- base::Sys.time
  [13:37:58.825]             `[[` <- base::`[[`
  [13:37:58.825]             `+` <- base::`+`
  [13:37:58.825]             `<<-` <- base::`<<-`
  [13:37:58.825]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:58.825]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:58.825]                   3L)]
  [13:37:58.825]             }
  [13:37:58.825]             function(cond) {
  [13:37:58.825]                 if (inherits(cond, "error")) {
  [13:37:58.825]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:58.825]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:58.825]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:58.825]                   signalCondition(cond)
  [13:37:58.825]                 }
  [13:37:58.825]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:37:58.825]                 ))) {
  [13:37:58.825]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:37:58.825]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:58.825]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:58.825]                   if (!signal) {
  [13:37:58.825]                     muffleCondition <- function (cond) 
  [13:37:58.825]                     {
  [13:37:58.825]                       inherits <- base::inherits
  [13:37:58.825]                       invokeRestart <- base::invokeRestart
  [13:37:58.825]                       muffled <- FALSE
  [13:37:58.825]                       if (inherits(cond, "message")) {
  [13:37:58.825]                         invokeRestart("muffleMessage")
  [13:37:58.825]                         muffled <- TRUE
  [13:37:58.825]                       }
  [13:37:58.825]                       else if (inherits(cond, "warning")) {
  [13:37:58.825]                         invokeRestart("muffleWarning")
  [13:37:58.825]                         muffled <- TRUE
  [13:37:58.825]                       }
  [13:37:58.825]                       else if (inherits(cond, "condition")) {
  [13:37:58.825]                         computeRestarts <- base::computeRestarts
  [13:37:58.825]                         grepl <- base::grepl
  [13:37:58.825]                         is.null <- base::is.null
  [13:37:58.825]                         restarts <- computeRestarts(cond)
  [13:37:58.825]                         for (restart in restarts) {
  [13:37:58.825]                           name <- restart$name
  [13:37:58.825]                           if (is.null(name)) 
  [13:37:58.825]                             next
  [13:37:58.825]                           if (!grepl("^muffle", name)) 
  [13:37:58.825]                             next
  [13:37:58.825]                           invokeRestart(restart)
  [13:37:58.825]                           muffled <- TRUE
  [13:37:58.825]                           break
  [13:37:58.825]                         }
  [13:37:58.825]                       }
  [13:37:58.825]                       invisible(muffled)
  [13:37:58.825]                     }
  [13:37:58.825]                     muffleCondition(cond)
  [13:37:58.825]                   }
  [13:37:58.825]                 }
  [13:37:58.825]             }
  [13:37:58.825]         }))
  [13:37:58.825]     }, error = function(ex) {
  [13:37:58.825]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:58.825]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:58.825]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:58.825]     }, finally = {
  [13:37:58.825]         {
  [13:37:58.825]             {
  [13:37:58.825]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:37:58.825]             }
  [13:37:58.825]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:37:58.825]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:58.825]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:37:58.825]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:37:58.825]                 ...) 
  [13:37:58.825]             {
  [13:37:58.825]                 if (substitute) 
  [13:37:58.825]                   expr <- substitute(expr)
  [13:37:58.825]                 if (is.function(workers)) 
  [13:37:58.825]                   workers <- workers()
  [13:37:58.825]                 workers <- as.integer(workers)
  [13:37:58.825]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:37:58.825]                   workers >= 1)
  [13:37:58.825]                 if (workers == 1L) {
  [13:37:58.825]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:58.825]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:37:58.825]                     local = TRUE, label = label, ...))
  [13:37:58.825]                 }
  [13:37:58.825]                 workers <- ClusterRegistry("start", workers = workers)
  [13:37:58.825]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:37:58.825]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:58.825]                   globals = globals, persistent = persistent, 
  [13:37:58.825]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:37:58.825]                   label = label, ...)
  [13:37:58.825]                 if (!future$lazy) 
  [13:37:58.825]                   future <- run(future)
  [13:37:58.825]                 invisible(future)
  [13:37:58.825]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:37:58.825]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:37:58.825]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:58.825]             {
  [13:37:58.825]                 if (substitute) 
  [13:37:58.825]                   expr <- substitute(expr)
  [13:37:58.825]                 if (is.function(workers)) 
  [13:37:58.825]                   workers <- workers()
  [13:37:58.825]                 workers <- as.integer(workers)
  [13:37:58.825]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:37:58.825]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:37:58.825]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:58.825]                     lazy = lazy, seed = seed, globals = globals, 
  [13:37:58.825]                     local = TRUE, label = label, ...))
  [13:37:58.825]                 }
  [13:37:58.825]                 oopts <- options(mc.cores = workers)
  [13:37:58.825]                 on.exit(options(oopts))
  [13:37:58.825]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:37:58.825]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:58.825]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:37:58.825]                   label = label, ...)
  [13:37:58.825]                 if (!future$lazy) 
  [13:37:58.825]                   future <- run(future)
  [13:37:58.825]                 invisible(future)
  [13:37:58.825]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:58.825]         }
  [13:37:58.825]         base::options(...future.oldOptions)
  [13:37:58.825]     })
  [13:37:58.825]     Sys.time
  [13:37:58.825]     if (base::is.na(TRUE)) {
  [13:37:58.825]     }
  [13:37:58.825]     else {
  [13:37:58.825]         base::sink(type = "output", split = FALSE)
  [13:37:58.825]         if (TRUE) {
  [13:37:58.825]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:58.825]         }
  [13:37:58.825]         else {
  [13:37:58.825]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:58.825]         }
  [13:37:58.825]         base::close(...future.stdout)
  [13:37:58.825]         ...future.stdout <- NULL
  [13:37:58.825]     }
  [13:37:58.825]     ...future.result$conditions <- ...future.conditions
  [13:37:58.825]     ...future.result
  [13:37:58.825] }
  [13:37:58.841] Exporting 1 global objects (336 bytes) to cluster node #2 ...
  [13:37:58.841] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ...
  [13:37:58.851] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ... DONE
  [13:37:58.852] Exporting 1 global objects (336 bytes) to cluster node #2 ... DONE
  [13:37:58.853] MultisessionFuture started
  [13:37:58.854] Chunk #2 of 2 ... DONE
  [13:37:58.854] Launching 2 futures (chunks) ... DONE
  [13:37:58.854] - resolving futures
  [13:37:58.855]   - gathering results & relaying conditions (except errors)
  [13:37:58.855] resolve() on list ...
  [13:37:58.855]  recursive: 0
  [13:37:58.856]  length: 2
  [13:37:58.856] 
  [13:37:59.035] receiveMessageFromWorker() for ClusterFuture ...
  [13:37:59.036] - Validating connection of MultisessionFuture
  [13:37:59.079] - received message: FutureResult
  [13:37:59.080] - Received FutureResult
  [13:37:59.080] - Erased future from FutureRegistry
  [13:37:59.080] result() for ClusterFuture ...
  [13:37:59.081] - result already collected: FutureResult
  [13:37:59.081] result() for ClusterFuture ... done
  [13:37:59.081] receiveMessageFromWorker() for ClusterFuture ... done
  [13:37:59.082] Future #1
  [13:37:59.082] result() for ClusterFuture ...
  [13:37:59.082] - result already collected: FutureResult
  [13:37:59.083] result() for ClusterFuture ... done
  [13:37:59.083] result() for ClusterFuture ...
  [13:37:59.083] - result already collected: FutureResult
  [13:37:59.084] result() for ClusterFuture ... done
  [13:37:59.084] signalConditionsASAP(MultisessionFuture, pos=1) ...
  [13:37:59.084] - nx: 2
  [13:37:59.085] - relay: TRUE
  [13:37:59.085] - stdout: TRUE
  [13:37:59.085] - signal: TRUE
  [13:37:59.085] - resignal: FALSE
  [13:37:59.086] - force: FALSE
  [13:37:59.086] - relayed: [n=2] FALSE, FALSE
  [13:37:59.086] - queued futures: [n=2] FALSE, FALSE
  [13:37:59.087]  - until=1
  [13:37:59.087]  - relaying element #1
  [13:37:59.087] result() for ClusterFuture ...
  [13:37:59.087] - result already collected: FutureResult
  [13:37:59.088] result() for ClusterFuture ... done
  [13:37:59.088] result() for ClusterFuture ...
  [13:37:59.088] - result already collected: FutureResult
  [13:37:59.089] result() for ClusterFuture ... done
  [13:37:59.089] result() for ClusterFuture ...
  [13:37:59.090] - result already collected: FutureResult
  [13:37:59.090] result() for ClusterFuture ... done
  [13:37:59.090] result() for ClusterFuture ...
  [13:37:59.091] - result already collected: FutureResult
  [13:37:59.091] result() for ClusterFuture ... done
  [13:37:59.091] - relayed: [n=2] TRUE, FALSE
  [13:37:59.091] - queued futures: [n=2] TRUE, FALSE
  [13:37:59.092] signalConditionsASAP(MultisessionFuture, pos=1) ... done
  [13:37:59.092]  length: 1 (resolved future 1)
  [13:37:59.140] receiveMessageFromWorker() for ClusterFuture ...
  [13:37:59.140] - Validating connection of MultisessionFuture
  [13:37:59.183] - received message: FutureResult
  [13:37:59.184] - Received FutureResult
  [13:37:59.184] - Erased future from FutureRegistry
  [13:37:59.184] result() for ClusterFuture ...
  [13:37:59.185] - result already collected: FutureResult
  [13:37:59.185] result() for ClusterFuture ... done
  [13:37:59.185] receiveMessageFromWorker() for ClusterFuture ... done
  [13:37:59.186] Future #2
  [13:37:59.186] result() for ClusterFuture ...
  [13:37:59.186] - result already collected: FutureResult
  [13:37:59.187] result() for ClusterFuture ... done
  [13:37:59.187] result() for ClusterFuture ...
  [13:37:59.187] - result already collected: FutureResult
  [13:37:59.187] result() for ClusterFuture ... done
  [13:37:59.188] signalConditionsASAP(MultisessionFuture, pos=2) ...
  [13:37:59.188] - nx: 2
  [13:37:59.188] - relay: TRUE
  [13:37:59.189] - stdout: TRUE
  [13:37:59.189] - signal: TRUE
  [13:37:59.189] - resignal: FALSE
  [13:37:59.189] - force: FALSE
  [13:37:59.190] - relayed: [n=2] TRUE, FALSE
  [13:37:59.190] - queued futures: [n=2] TRUE, FALSE
  [13:37:59.190]  - until=2
  [13:37:59.190]  - relaying element #2
  [13:37:59.191] result() for ClusterFuture ...
  [13:37:59.191] - result already collected: FutureResult
  [13:37:59.191] result() for ClusterFuture ... done
  [13:37:59.192] result() for ClusterFuture ...
  [13:37:59.192] - result already collected: FutureResult
  [13:37:59.192] result() for ClusterFuture ... done
  [13:37:59.192] result() for ClusterFuture ...
  [13:37:59.193] - result already collected: FutureResult
  [13:37:59.193] result() for ClusterFuture ... done
  [13:37:59.193] result() for ClusterFuture ...
  [13:37:59.194] - result already collected: FutureResult
  [13:37:59.194] result() for ClusterFuture ... done
  [13:37:59.194] - relayed: [n=2] TRUE, TRUE
  [13:37:59.194] - queued futures: [n=2] TRUE, TRUE
  [13:37:59.211] signalConditionsASAP(MultisessionFuture, pos=2) ... done
  [13:37:59.211]  length: 0 (resolved future 2)
  [13:37:59.212] Relaying remaining futures
  [13:37:59.212] signalConditionsASAP(NULL, pos=0) ...
  [13:37:59.212] - nx: 2
  [13:37:59.212] - relay: TRUE
  [13:37:59.213] - stdout: TRUE
  [13:37:59.213] - signal: TRUE
  [13:37:59.213] - resignal: FALSE
  [13:37:59.214] - force: FALSE
  [13:37:59.214] - relayed: [n=2] TRUE, TRUE
  [13:37:59.214] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [13:37:59.215] - relayed: [n=2] TRUE, TRUE
  [13:37:59.215] - queued futures: [n=2] TRUE, TRUE
  [13:37:59.215] signalConditionsASAP(NULL, pos=0) ... done
  [13:37:59.216] resolve() on list ... DONE
  [13:37:59.216] - collecting values of futures
  [13:37:59.216] result() for ClusterFuture ...
  [13:37:59.216] - result already collected: FutureResult
  [13:37:59.217] result() for ClusterFuture ... done
  [13:37:59.217] result() for ClusterFuture ...
  [13:37:59.217] - result already collected: FutureResult
  [13:37:59.218] result() for ClusterFuture ... done
  [13:37:59.218] result() for ClusterFuture ...
  [13:37:59.218] - result already collected: FutureResult
  [13:37:59.219] result() for ClusterFuture ... done
  [13:37:59.219] result() for ClusterFuture ...
  [13:37:59.219] - result already collected: FutureResult
  [13:37:59.220] result() for ClusterFuture ... done
  [13:37:59.220] - accumulating results
  [13:37:59.223] - processing errors (handler = 'stop')
  [13:37:59.223] - extracting results
  [13:37:59.223] doFuture() ... DONE
  - plan(list('multisession', 'multicore')) ... DONE
  - plan(list('multisession', 'multisession')) ...
  [13:37:59.225] plan(): Setting new future strategy stack:
  [13:37:59.225] List of future strategies:
  [13:37:59.225] 1. multisession:
  [13:37:59.225]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:37:59.225]    - tweaked: FALSE
  [13:37:59.225]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:59.225] 2. multisession:
  [13:37:59.225]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:37:59.225]    - tweaked: FALSE
  [13:37:59.225]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:59.227] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
  [13:37:59.228] multisession:
  [13:37:59.228] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:37:59.228] - tweaked: FALSE
  [13:37:59.228] - call: plan(list(a = strategy1, b = strategy2))
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 35896
  [local output] Creating node 1 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp2MyXWz/future.parent=15871.3dff516925b3.pid")), silent = TRUE)' -e "file.exists('/tmp/Rtmp2MyXWz/future.parent=15871.3dff516925b3.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:15871:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp2MyXWz/future.parent=15871.3dff516925b3.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=35896 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [local output] Connection with worker #1 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 1 of 2 ... done
  [local output] Creating node 2 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp2MyXWz/future.parent=15871.3dff7dd58c27.pid")), silent = TRUE)' -e "file.exists('/tmp/Rtmp2MyXWz/future.parent=15871.3dff7dd58c27.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:15871:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp2MyXWz/future.parent=15871.3dff7dd58c27.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=35896 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #2 on 'localhost' to connect back
  [local output] Connection with worker #2 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 2 of 2 ... done
  [13:38:15.970] getGlobalsAndPackages() ...
  [13:38:15.971] Not searching for globals
  [13:38:15.972] - globals: [0] <none>
  [13:38:15.972] getGlobalsAndPackages() ... DONE
  [13:38:15.991] Packages needed by the future expression (n = 0): <none>
  [13:38:15.992] Packages needed by future strategies (n = 1): 'future'
  [13:38:16.023] {
  [13:38:16.023]     {
  [13:38:16.023]         ...future.startTime <- base::Sys.time()
  [13:38:16.023]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:38:16.023]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:38:16.023]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:38:16.023]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:38:16.023]             future.resolve.recursive = NULL, width = 80L)
  [13:38:16.023]         {
  [13:38:16.023]             {
  [13:38:16.023]                 {
  [13:38:16.023]                   {
  [13:38:16.023]                     has_future <- base::requireNamespace("future", 
  [13:38:16.023]                       quietly = TRUE)
  [13:38:16.023]                     version <- if (has_future) 
  [13:38:16.023]                       utils::packageVersion("future")
  [13:38:16.023]                     else NULL
  [13:38:16.023]                     if (!has_future || version < "1.8.0") {
  [13:38:16.023]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:38:16.023]                         "", base::R.version$version.string), 
  [13:38:16.023]                         platform = base::sprintf("%s (%s-bit)", 
  [13:38:16.023]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:38:16.023]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:38:16.023]                           "release", "version")], collapse = " "), 
  [13:38:16.023]                         hostname = base::Sys.info()[["nodename"]])
  [13:38:16.023]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:38:16.023]                         info)
  [13:38:16.023]                       info <- base::paste(info, collapse = "; ")
  [13:38:16.023]                       if (!has_future) {
  [13:38:16.023]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:38:16.023]                           info)
  [13:38:16.023]                       }
  [13:38:16.023]                       else {
  [13:38:16.023]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:38:16.023]                           info, version)
  [13:38:16.023]                       }
  [13:38:16.023]                       base::stop(msg)
  [13:38:16.023]                     }
  [13:38:16.023]                   }
  [13:38:16.023]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:38:16.023]                   base::options(mc.cores = 1L)
  [13:38:16.023]                 }
  [13:38:16.023]                 base::local({
  [13:38:16.023]                   for (pkg in "future") {
  [13:38:16.023]                     base::loadNamespace(pkg)
  [13:38:16.023]                     base::library(pkg, character.only = TRUE)
  [13:38:16.023]                   }
  [13:38:16.023]                 })
  [13:38:16.023]             }
  [13:38:16.023]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:38:16.023]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:38:16.023]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:38:16.023]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:38:16.023]                 ...) 
  [13:38:16.023]             {
  [13:38:16.023]                 if (substitute) 
  [13:38:16.023]                   expr <- substitute(expr)
  [13:38:16.023]                 if (is.function(workers)) 
  [13:38:16.023]                   workers <- workers()
  [13:38:16.023]                 workers <- as.integer(workers)
  [13:38:16.023]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:38:16.023]                   workers >= 1)
  [13:38:16.023]                 if (workers == 1L) {
  [13:38:16.023]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:38:16.023]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:38:16.023]                     local = TRUE, label = label, ...))
  [13:38:16.023]                 }
  [13:38:16.023]                 workers <- ClusterRegistry("start", workers = workers)
  [13:38:16.023]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:38:16.023]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:38:16.023]                   globals = globals, persistent = persistent, 
  [13:38:16.023]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:38:16.023]                   label = label, ...)
  [13:38:16.023]                 if (!future$lazy) 
  [13:38:16.023]                   future <- run(future)
  [13:38:16.023]                 invisible(future)
  [13:38:16.023]             }), .cleanup = FALSE, .init = FALSE)
  [13:38:16.023]         }
  [13:38:16.023]     }
  [13:38:16.023]     if (base::is.na(TRUE)) {
  [13:38:16.023]     }
  [13:38:16.023]     else {
  [13:38:16.023]         if (TRUE) {
  [13:38:16.023]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:38:16.023]                 open = "w")
  [13:38:16.023]         }
  [13:38:16.023]         else {
  [13:38:16.023]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:38:16.023]                 windows = "NUL", "/dev/null"), open = "w")
  [13:38:16.023]         }
  [13:38:16.023]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:38:16.023]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:38:16.023]             base::sink(type = "output", split = FALSE)
  [13:38:16.023]             base::close(...future.stdout)
  [13:38:16.023]         }, add = TRUE)
  [13:38:16.023]     }
  [13:38:16.023]     ...future.frame <- base::sys.nframe()
  [13:38:16.023]     ...future.conditions <- base::list()
  [13:38:16.023]     ...future.rng <- base::globalenv()$.Random.seed
  [13:38:16.023]     ...future.result <- base::tryCatch({
  [13:38:16.023]         base::withCallingHandlers({
  [13:38:16.023]             ...future.value <- base::withVisible(base::local({
  [13:38:16.023]                 ...future.sendCondition <- local({
  [13:38:16.023]                   sendCondition <- NULL
  [13:38:16.023]                   function(frame = 1L) {
  [13:38:16.023]                     if (is.function(sendCondition)) 
  [13:38:16.023]                       return(sendCondition)
  [13:38:16.023]                     ns <- getNamespace("parallel")
  [13:38:16.023]                     if (exists("sendData", mode = "function", 
  [13:38:16.023]                       envir = ns)) {
  [13:38:16.023]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:38:16.023]                         envir = ns)
  [13:38:16.023]                       envir <- sys.frame(frame)
  [13:38:16.023]                       master <- NULL
  [13:38:16.023]                       while (!identical(envir, .GlobalEnv) && 
  [13:38:16.023]                         !identical(envir, emptyenv())) {
  [13:38:16.023]                         if (exists("master", mode = "list", envir = envir, 
  [13:38:16.023]                           inherits = FALSE)) {
  [13:38:16.023]                           master <- get("master", mode = "list", 
  [13:38:16.023]                             envir = envir, inherits = FALSE)
  [13:38:16.023]                           if (inherits(master, "SOCKnode")) {
  [13:38:16.023]                             sendCondition <<- function(cond) {
  [13:38:16.023]                               data <- list(type = "VALUE", value = cond, 
  [13:38:16.023]                                 success = TRUE)
  [13:38:16.023]                               parallel_sendData(master, data)
  [13:38:16.023]                             }
  [13:38:16.023]                             return(sendCondition)
  [13:38:16.023]                           }
  [13:38:16.023]                         }
  [13:38:16.023]                         frame <- frame + 1L
  [13:38:16.023]                         envir <- sys.frame(frame)
  [13:38:16.023]                       }
  [13:38:16.023]                     }
  [13:38:16.023]                     sendCondition <<- function(cond) NULL
  [13:38:16.023]                   }
  [13:38:16.023]                 })
  [13:38:16.023]                 withCallingHandlers({
  [13:38:16.023]                   NA
  [13:38:16.023]                 }, immediateCondition = function(cond) {
  [13:38:16.023]                   sendCondition <- ...future.sendCondition()
  [13:38:16.023]                   sendCondition(cond)
  [13:38:16.023]                   muffleCondition <- function (cond) 
  [13:38:16.023]                   {
  [13:38:16.023]                     inherits <- base::inherits
  [13:38:16.023]                     invokeRestart <- base::invokeRestart
  [13:38:16.023]                     muffled <- FALSE
  [13:38:16.023]                     if (inherits(cond, "message")) {
  [13:38:16.023]                       invokeRestart("muffleMessage")
  [13:38:16.023]                       muffled <- TRUE
  [13:38:16.023]                     }
  [13:38:16.023]                     else if (inherits(cond, "warning")) {
  [13:38:16.023]                       invokeRestart("muffleWarning")
  [13:38:16.023]                       muffled <- TRUE
  [13:38:16.023]                     }
  [13:38:16.023]                     else if (inherits(cond, "condition")) {
  [13:38:16.023]                       computeRestarts <- base::computeRestarts
  [13:38:16.023]                       grepl <- base::grepl
  [13:38:16.023]                       is.null <- base::is.null
  [13:38:16.023]                       restarts <- computeRestarts(cond)
  [13:38:16.023]                       for (restart in restarts) {
  [13:38:16.023]                         name <- restart$name
  [13:38:16.023]                         if (is.null(name)) 
  [13:38:16.023]                           next
  [13:38:16.023]                         if (!grepl("^muffle", name)) 
  [13:38:16.023]                           next
  [13:38:16.023]                         invokeRestart(restart)
  [13:38:16.023]                         muffled <- TRUE
  [13:38:16.023]                         break
  [13:38:16.023]                       }
  [13:38:16.023]                     }
  [13:38:16.023]                     invisible(muffled)
  [13:38:16.023]                   }
  [13:38:16.023]                   muffleCondition(cond)
  [13:38:16.023]                 })
  [13:38:16.023]             }))
  [13:38:16.023]             future::FutureResult(value = ...future.value$value, 
  [13:38:16.023]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:38:16.023]                   ...future.rng), started = ...future.startTime, 
  [13:38:16.023]                 version = "1.8")
  [13:38:16.023]         }, condition = base::local({
  [13:38:16.023]             c <- base::c
  [13:38:16.023]             inherits <- base::inherits
  [13:38:16.023]             invokeRestart <- base::invokeRestart
  [13:38:16.023]             length <- base::length
  [13:38:16.023]             list <- base::list
  [13:38:16.023]             seq.int <- base::seq.int
  [13:38:16.023]             signalCondition <- base::signalCondition
  [13:38:16.023]             sys.calls <- base::sys.calls
  [13:38:16.023]             Sys.time <- base::Sys.time
  [13:38:16.023]             `[[` <- base::`[[`
  [13:38:16.023]             `+` <- base::`+`
  [13:38:16.023]             `<<-` <- base::`<<-`
  [13:38:16.023]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:38:16.023]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:38:16.023]                   3L)]
  [13:38:16.023]             }
  [13:38:16.023]             function(cond) {
  [13:38:16.023]                 if (inherits(cond, "error")) {
  [13:38:16.023]                   ...future.conditions[[length(...future.conditions) + 
  [13:38:16.023]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:38:16.023]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:38:16.023]                   signalCondition(cond)
  [13:38:16.023]                 }
  [13:38:16.023]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:38:16.023]                 ))) {
  [13:38:16.023]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:38:16.023]                   ...future.conditions[[length(...future.conditions) + 
  [13:38:16.023]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:38:16.023]                   if (!signal) {
  [13:38:16.023]                     muffleCondition <- function (cond) 
  [13:38:16.023]                     {
  [13:38:16.023]                       inherits <- base::inherits
  [13:38:16.023]                       invokeRestart <- base::invokeRestart
  [13:38:16.023]                       muffled <- FALSE
  [13:38:16.023]                       if (inherits(cond, "message")) {
  [13:38:16.023]                         invokeRestart("muffleMessage")
  [13:38:16.023]                         muffled <- TRUE
  [13:38:16.023]                       }
  [13:38:16.023]                       else if (inherits(cond, "warning")) {
  [13:38:16.023]                         invokeRestart("muffleWarning")
  [13:38:16.023]                         muffled <- TRUE
  [13:38:16.023]                       }
  [13:38:16.023]                       else if (inherits(cond, "condition")) {
  [13:38:16.023]                         computeRestarts <- base::computeRestarts
  [13:38:16.023]                         grepl <- base::grepl
  [13:38:16.023]                         is.null <- base::is.null
  [13:38:16.023]                         restarts <- computeRestarts(cond)
  [13:38:16.023]                         for (restart in restarts) {
  [13:38:16.023]                           name <- restart$name
  [13:38:16.023]                           if (is.null(name)) 
  [13:38:16.023]                             next
  [13:38:16.023]                           if (!grepl("^muffle", name)) 
  [13:38:16.023]                             next
  [13:38:16.023]                           invokeRestart(restart)
  [13:38:16.023]                           muffled <- TRUE
  [13:38:16.023]                           break
  [13:38:16.023]                         }
  [13:38:16.023]                       }
  [13:38:16.023]                       invisible(muffled)
  [13:38:16.023]                     }
  [13:38:16.023]                     muffleCondition(cond)
  [13:38:16.023]                   }
  [13:38:16.023]                 }
  [13:38:16.023]             }
  [13:38:16.023]         }))
  [13:38:16.023]     }, error = function(ex) {
  [13:38:16.023]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:38:16.023]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:38:16.023]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:38:16.023]     }, finally = {
  [13:38:16.023]         {
  [13:38:16.023]             {
  [13:38:16.023]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:38:16.023]             }
  [13:38:16.023]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:38:16.023]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:38:16.023]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:38:16.023]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:38:16.023]                 ...) 
  [13:38:16.023]             {
  [13:38:16.023]                 if (substitute) 
  [13:38:16.023]                   expr <- substitute(expr)
  [13:38:16.023]                 if (is.function(workers)) 
  [13:38:16.023]                   workers <- workers()
  [13:38:16.023]                 workers <- as.integer(workers)
  [13:38:16.023]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:38:16.023]                   workers >= 1)
  [13:38:16.023]                 if (workers == 1L) {
  [13:38:16.023]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:38:16.023]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:38:16.023]                     local = TRUE, label = label, ...))
  [13:38:16.023]                 }
  [13:38:16.023]                 workers <- ClusterRegistry("start", workers = workers)
  [13:38:16.023]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:38:16.023]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:38:16.023]                   globals = globals, persistent = persistent, 
  [13:38:16.023]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:38:16.023]                   label = label, ...)
  [13:38:16.023]                 if (!future$lazy) 
  [13:38:16.023]                   future <- run(future)
  [13:38:16.023]                 invisible(future)
  [13:38:16.023]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:38:16.023]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:38:16.023]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [13:38:16.023]                 label = NULL, ...) 
  [13:38:16.023]             {
  [13:38:16.023]                 if (substitute) 
  [13:38:16.023]                   expr <- substitute(expr)
  [13:38:16.023]                 if (is.function(workers)) 
  [13:38:16.023]                   workers <- workers()
  [13:38:16.023]                 workers <- as.integer(workers)
  [13:38:16.023]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:38:16.023]                   workers >= 1)
  [13:38:16.023]                 if (workers == 1L) {
  [13:38:16.023]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:38:16.023]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:38:16.023]                     local = TRUE, label = label, ...))
  [13:38:16.023]                 }
  [13:38:16.023]                 workers <- ClusterRegistry("start", workers = workers)
  [13:38:16.023]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:38:16.023]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:38:16.023]                   globals = globals, persistent = persistent, 
  [13:38:16.023]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:38:16.023]                   label = label, ...)
  [13:38:16.023]                 if (!future$lazy) 
  [13:38:16.023]                   future <- run(future)
  [13:38:16.023]                 invisible(future)
  [13:38:16.023]             }), .cleanup = FALSE, .init = FALSE)
  [13:38:16.023]         }
  [13:38:16.023]         base::options(...future.oldOptions)
  [13:38:16.023]     })
  [13:38:16.023]     Sys.time
  [13:38:16.023]     if (base::is.na(TRUE)) {
  [13:38:16.023]     }
  [13:38:16.023]     else {
  [13:38:16.023]         base::sink(type = "output", split = FALSE)
  [13:38:16.023]         if (TRUE) {
  [13:38:16.023]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:38:16.023]         }
  [13:38:16.023]         else {
  [13:38:16.023]             ...future.result["stdout"] <- base::list(NULL)
  [13:38:16.023]         }
  [13:38:16.023]         base::close(...future.stdout)
  [13:38:16.023]         ...future.stdout <- NULL
  [13:38:16.023]     }
  [13:38:16.023]     ...future.result$conditions <- ...future.conditions
  [13:38:16.023]     ...future.result
  [13:38:16.023] }
  [13:38:16.044] MultisessionFuture started
  [13:38:16.045] result() for ClusterFuture ...
  [13:38:16.045] receiveMessageFromWorker() for ClusterFuture ...
  [13:38:16.046] - Validating connection of MultisessionFuture
  [13:38:16.336] - received message: FutureResult
  [13:38:16.336] - Received FutureResult
  [13:38:16.336] - Erased future from FutureRegistry
  [13:38:16.337] result() for ClusterFuture ...
  [13:38:16.337] - result already collected: FutureResult
  [13:38:16.337] result() for ClusterFuture ... done
  [13:38:16.338] receiveMessageFromWorker() for ClusterFuture ... done
  [13:38:16.338] result() for ClusterFuture ... done
  [13:38:16.338] result() for ClusterFuture ...
  [13:38:16.339] - result already collected: FutureResult
  [13:38:16.339] result() for ClusterFuture ... done
  [13:38:16.339] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE
  [13:38:16.340] plan(): nbrOfWorkers() = 2
  [13:38:16.341] doFuture() ...
  [13:38:16.345] - dummy globals (as locals): [2] 'a', 'b'
  [13:38:16.346] - R expression:
  [13:38:16.346] {
  [13:38:16.346]     doFuture::registerDoFuture()
  [13:38:16.346]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:38:16.346]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:38:16.346]         {
  [13:38:16.346]             a <- NULL
  [13:38:16.346]             b <- NULL
  [13:38:16.346]         }
  [13:38:16.346]         ...future.env <- environment()
  [13:38:16.346]         local({
  [13:38:16.346]             for (name in names(...future.x_jj)) {
  [13:38:16.346]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:38:16.346]                   inherits = FALSE)
  [13:38:16.346]             }
  [13:38:16.346]         })
  [13:38:16.346]         tryCatch({
  [13:38:16.346]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:38:16.346]                 plan = future::plan("next"))
  [13:38:16.346]         }, error = identity)
  [13:38:16.346]     })
  [13:38:16.346] }
  [13:38:16.347] - identifying globals and packages ...
  [13:38:16.348] getGlobalsAndPackages() ...
  [13:38:16.348] Searching for globals...
  [13:38:16.390] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [13:38:16.391] Searching for globals ... DONE
  [13:38:16.391] Resolving globals: FALSE
  [13:38:16.393] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:38:16.393] - globals: [1] '...future.x_ii'
  [13:38:16.393] 
  [13:38:16.394] getGlobalsAndPackages() ... DONE
  [13:38:16.394] List of 1
  [13:38:16.394]  $ ...future.x_ii: NULL
  [13:38:16.394]  - attr(*, "where")=List of 1
  [13:38:16.394]   ..$ ...future.x_ii:<environment: 0x5647c7848650> 
  [13:38:16.394]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:38:16.394]  - attr(*, "resolved")= logi FALSE
  [13:38:16.394]  - attr(*, "total_size")= num 0
  [13:38:16.417]   - R expression:
  [13:38:16.418] {
  [13:38:16.418]     doFuture::registerDoFuture()
  [13:38:16.418]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:38:16.418]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:38:16.418]         {
  [13:38:16.418]             a <- NULL
  [13:38:16.418]             b <- NULL
  [13:38:16.418]         }
  [13:38:16.418]         ...future.env <- environment()
  [13:38:16.418]         local({
  [13:38:16.418]             for (name in names(...future.x_jj)) {
  [13:38:16.418]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:38:16.418]                   inherits = FALSE)
  [13:38:16.418]             }
  [13:38:16.418]         })
  [13:38:16.418]         tryCatch({
  [13:38:16.418]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:38:16.418]                 plan = future::plan("next"))
  [13:38:16.418]         }, error = identity)
  [13:38:16.418]     })
  [13:38:16.418] }
  [13:38:16.419]   - globals: [1] '...future.x_ii'
  [13:38:16.419] List of 1
  [13:38:16.419]  $ ...future.x_ii: NULL
  [13:38:16.419]  - attr(*, "where")=List of 1
  [13:38:16.419]   ..$ ...future.x_ii:<environment: 0x5647c7848650> 
  [13:38:16.419]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:38:16.419]  - attr(*, "resolved")= logi FALSE
  [13:38:16.419]  - attr(*, "total_size")= num 0
  [13:38:16.426]   - packages: [1] 'doFuture'
  [13:38:16.443] - identifying globals and packages ... DONE
  [13:38:16.444] Number of chunks: 2
  [13:38:16.445] Number of futures (= number of chunks): 2
  [13:38:16.446] Launching 2 futures (chunks) ...
  [13:38:16.446] Chunk #1 of 2 ...
  [13:38:16.446]  - Finding globals in 'args_list' chunk #1 ...
  [13:38:16.447] getGlobalsAndPackages() ...
  [13:38:16.447] Searching for globals...
  [13:38:16.448] 
  [13:38:16.448] Searching for globals ... DONE
  [13:38:16.449] - globals: [0] <none>
  [13:38:16.449] getGlobalsAndPackages() ... DONE
  [13:38:16.449] 
  [13:38:16.450] 
  [13:38:16.450]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:38:16.476] getGlobalsAndPackages() ...
  [13:38:16.477] - globals passed as-is: [1] '...future.x_ii'
  [13:38:16.477] Resolving globals: FALSE
  [13:38:16.478] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:38:16.479] - globals: [1] '...future.x_ii'
  [13:38:16.479] 
  [13:38:16.480] getGlobalsAndPackages() ... DONE
  [13:38:16.484] Packages needed by the future expression (n = 1): 'doFuture'
  [13:38:16.485] Packages needed by future strategies (n = 1): 'future'
  [13:38:16.515] {
  [13:38:16.515]     {
  [13:38:16.515]         ...future.startTime <- base::Sys.time()
  [13:38:16.515]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:38:16.515]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:38:16.515]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:38:16.515]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:38:16.515]             future.resolve.recursive = NULL, width = 80L)
  [13:38:16.515]         {
  [13:38:16.515]             {
  [13:38:16.515]                 {
  [13:38:16.515]                   {
  [13:38:16.515]                     has_future <- base::requireNamespace("future", 
  [13:38:16.515]                       quietly = TRUE)
  [13:38:16.515]                     version <- if (has_future) 
  [13:38:16.515]                       utils::packageVersion("future")
  [13:38:16.515]                     else NULL
  [13:38:16.515]                     if (!has_future || version < "1.8.0") {
  [13:38:16.515]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:38:16.515]                         "", base::R.version$version.string), 
  [13:38:16.515]                         platform = base::sprintf("%s (%s-bit)", 
  [13:38:16.515]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:38:16.515]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:38:16.515]                           "release", "version")], collapse = " "), 
  [13:38:16.515]                         hostname = base::Sys.info()[["nodename"]])
  [13:38:16.515]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:38:16.515]                         info)
  [13:38:16.515]                       info <- base::paste(info, collapse = "; ")
  [13:38:16.515]                       if (!has_future) {
  [13:38:16.515]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:38:16.515]                           info)
  [13:38:16.515]                       }
  [13:38:16.515]                       else {
  [13:38:16.515]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:38:16.515]                           info, version)
  [13:38:16.515]                       }
  [13:38:16.515]                       base::stop(msg)
  [13:38:16.515]                     }
  [13:38:16.515]                   }
  [13:38:16.515]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:38:16.515]                   base::options(mc.cores = 1L)
  [13:38:16.515]                 }
  [13:38:16.515]                 base::local({
  [13:38:16.515]                   for (pkg in c("doFuture", "future")) {
  [13:38:16.515]                     base::loadNamespace(pkg)
  [13:38:16.515]                     base::library(pkg, character.only = TRUE)
  [13:38:16.515]                   }
  [13:38:16.515]                 })
  [13:38:16.515]             }
  [13:38:16.515]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:38:16.515]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:38:16.515]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:38:16.515]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:38:16.515]                 ...) 
  [13:38:16.515]             {
  [13:38:16.515]                 if (substitute) 
  [13:38:16.515]                   expr <- substitute(expr)
  [13:38:16.515]                 if (is.function(workers)) 
  [13:38:16.515]                   workers <- workers()
  [13:38:16.515]                 workers <- as.integer(workers)
  [13:38:16.515]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:38:16.515]                   workers >= 1)
  [13:38:16.515]                 if (workers == 1L) {
  [13:38:16.515]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:38:16.515]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:38:16.515]                     local = TRUE, label = label, ...))
  [13:38:16.515]                 }
  [13:38:16.515]                 workers <- ClusterRegistry("start", workers = workers)
  [13:38:16.515]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:38:16.515]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:38:16.515]                   globals = globals, persistent = persistent, 
  [13:38:16.515]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:38:16.515]                   label = label, ...)
  [13:38:16.515]                 if (!future$lazy) 
  [13:38:16.515]                   future <- run(future)
  [13:38:16.515]                 invisible(future)
  [13:38:16.515]             }), .cleanup = FALSE, .init = FALSE)
  [13:38:16.515]         }
  [13:38:16.515]     }
  [13:38:16.515]     if (base::is.na(TRUE)) {
  [13:38:16.515]     }
  [13:38:16.515]     else {
  [13:38:16.515]         if (TRUE) {
  [13:38:16.515]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:38:16.515]                 open = "w")
  [13:38:16.515]         }
  [13:38:16.515]         else {
  [13:38:16.515]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:38:16.515]                 windows = "NUL", "/dev/null"), open = "w")
  [13:38:16.515]         }
  [13:38:16.515]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:38:16.515]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:38:16.515]             base::sink(type = "output", split = FALSE)
  [13:38:16.515]             base::close(...future.stdout)
  [13:38:16.515]         }, add = TRUE)
  [13:38:16.515]     }
  [13:38:16.515]     ...future.frame <- base::sys.nframe()
  [13:38:16.515]     ...future.conditions <- base::list()
  [13:38:16.515]     ...future.rng <- base::globalenv()$.Random.seed
  [13:38:16.515]     ...future.result <- base::tryCatch({
  [13:38:16.515]         base::withCallingHandlers({
  [13:38:16.515]             ...future.value <- base::withVisible(base::local({
  [13:38:16.515]                 ...future.sendCondition <- local({
  [13:38:16.515]                   sendCondition <- NULL
  [13:38:16.515]                   function(frame = 1L) {
  [13:38:16.515]                     if (is.function(sendCondition)) 
  [13:38:16.515]                       return(sendCondition)
  [13:38:16.515]                     ns <- getNamespace("parallel")
  [13:38:16.515]                     if (exists("sendData", mode = "function", 
  [13:38:16.515]                       envir = ns)) {
  [13:38:16.515]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:38:16.515]                         envir = ns)
  [13:38:16.515]                       envir <- sys.frame(frame)
  [13:38:16.515]                       master <- NULL
  [13:38:16.515]                       while (!identical(envir, .GlobalEnv) && 
  [13:38:16.515]                         !identical(envir, emptyenv())) {
  [13:38:16.515]                         if (exists("master", mode = "list", envir = envir, 
  [13:38:16.515]                           inherits = FALSE)) {
  [13:38:16.515]                           master <- get("master", mode = "list", 
  [13:38:16.515]                             envir = envir, inherits = FALSE)
  [13:38:16.515]                           if (inherits(master, "SOCKnode")) {
  [13:38:16.515]                             sendCondition <<- function(cond) {
  [13:38:16.515]                               data <- list(type = "VALUE", value = cond, 
  [13:38:16.515]                                 success = TRUE)
  [13:38:16.515]                               parallel_sendData(master, data)
  [13:38:16.515]                             }
  [13:38:16.515]                             return(sendCondition)
  [13:38:16.515]                           }
  [13:38:16.515]                         }
  [13:38:16.515]                         frame <- frame + 1L
  [13:38:16.515]                         envir <- sys.frame(frame)
  [13:38:16.515]                       }
  [13:38:16.515]                     }
  [13:38:16.515]                     sendCondition <<- function(cond) NULL
  [13:38:16.515]                   }
  [13:38:16.515]                 })
  [13:38:16.515]                 withCallingHandlers({
  [13:38:16.515]                   {
  [13:38:16.515]                     doFuture::registerDoFuture()
  [13:38:16.515]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:38:16.515]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [13:38:16.515]                       {
  [13:38:16.515]                         a <- NULL
  [13:38:16.515]                         b <- NULL
  [13:38:16.515]                       }
  [13:38:16.515]                       ...future.env <- environment()
  [13:38:16.515]                       local({
  [13:38:16.515]                         for (name in names(...future.x_jj)) {
  [13:38:16.515]                           assign(name, ...future.x_jj[[name]], 
  [13:38:16.515]                             envir = ...future.env, inherits = FALSE)
  [13:38:16.515]                         }
  [13:38:16.515]                       })
  [13:38:16.515]                       tryCatch({
  [13:38:16.515]                         list(a = a, b = b, plan_b = future::plan("list"), 
  [13:38:16.515]                           plan = future::plan("next"))
  [13:38:16.515]                       }, error = identity)
  [13:38:16.515]                     })
  [13:38:16.515]                   }
  [13:38:16.515]                 }, immediateCondition = function(cond) {
  [13:38:16.515]                   sendCondition <- ...future.sendCondition()
  [13:38:16.515]                   sendCondition(cond)
  [13:38:16.515]                   muffleCondition <- function (cond) 
  [13:38:16.515]                   {
  [13:38:16.515]                     inherits <- base::inherits
  [13:38:16.515]                     invokeRestart <- base::invokeRestart
  [13:38:16.515]                     muffled <- FALSE
  [13:38:16.515]                     if (inherits(cond, "message")) {
  [13:38:16.515]                       invokeRestart("muffleMessage")
  [13:38:16.515]                       muffled <- TRUE
  [13:38:16.515]                     }
  [13:38:16.515]                     else if (inherits(cond, "warning")) {
  [13:38:16.515]                       invokeRestart("muffleWarning")
  [13:38:16.515]                       muffled <- TRUE
  [13:38:16.515]                     }
  [13:38:16.515]                     else if (inherits(cond, "condition")) {
  [13:38:16.515]                       computeRestarts <- base::computeRestarts
  [13:38:16.515]                       grepl <- base::grepl
  [13:38:16.515]                       is.null <- base::is.null
  [13:38:16.515]                       restarts <- computeRestarts(cond)
  [13:38:16.515]                       for (restart in restarts) {
  [13:38:16.515]                         name <- restart$name
  [13:38:16.515]                         if (is.null(name)) 
  [13:38:16.515]                           next
  [13:38:16.515]                         if (!grepl("^muffle", name)) 
  [13:38:16.515]                           next
  [13:38:16.515]                         invokeRestart(restart)
  [13:38:16.515]                         muffled <- TRUE
  [13:38:16.515]                         break
  [13:38:16.515]                       }
  [13:38:16.515]                     }
  [13:38:16.515]                     invisible(muffled)
  [13:38:16.515]                   }
  [13:38:16.515]                   muffleCondition(cond)
  [13:38:16.515]                 })
  [13:38:16.515]             }))
  [13:38:16.515]             future::FutureResult(value = ...future.value$value, 
  [13:38:16.515]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:38:16.515]                   ...future.rng), started = ...future.startTime, 
  [13:38:16.515]                 version = "1.8")
  [13:38:16.515]         }, condition = base::local({
  [13:38:16.515]             c <- base::c
  [13:38:16.515]             inherits <- base::inherits
  [13:38:16.515]             invokeRestart <- base::invokeRestart
  [13:38:16.515]             length <- base::length
  [13:38:16.515]             list <- base::list
  [13:38:16.515]             seq.int <- base::seq.int
  [13:38:16.515]             signalCondition <- base::signalCondition
  [13:38:16.515]             sys.calls <- base::sys.calls
  [13:38:16.515]             Sys.time <- base::Sys.time
  [13:38:16.515]             `[[` <- base::`[[`
  [13:38:16.515]             `+` <- base::`+`
  [13:38:16.515]             `<<-` <- base::`<<-`
  [13:38:16.515]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:38:16.515]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:38:16.515]                   3L)]
  [13:38:16.515]             }
  [13:38:16.515]             function(cond) {
  [13:38:16.515]                 if (inherits(cond, "error")) {
  [13:38:16.515]                   ...future.conditions[[length(...future.conditions) + 
  [13:38:16.515]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:38:16.515]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:38:16.515]                   signalCondition(cond)
  [13:38:16.515]                 }
  [13:38:16.515]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:38:16.515]                 ))) {
  [13:38:16.515]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:38:16.515]                   ...future.conditions[[length(...future.conditions) + 
  [13:38:16.515]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:38:16.515]                   if (!signal) {
  [13:38:16.515]                     muffleCondition <- function (cond) 
  [13:38:16.515]                     {
  [13:38:16.515]                       inherits <- base::inherits
  [13:38:16.515]                       invokeRestart <- base::invokeRestart
  [13:38:16.515]                       muffled <- FALSE
  [13:38:16.515]                       if (inherits(cond, "message")) {
  [13:38:16.515]                         invokeRestart("muffleMessage")
  [13:38:16.515]                         muffled <- TRUE
  [13:38:16.515]                       }
  [13:38:16.515]                       else if (inherits(cond, "warning")) {
  [13:38:16.515]                         invokeRestart("muffleWarning")
  [13:38:16.515]                         muffled <- TRUE
  [13:38:16.515]                       }
  [13:38:16.515]                       else if (inherits(cond, "condition")) {
  [13:38:16.515]                         computeRestarts <- base::computeRestarts
  [13:38:16.515]                         grepl <- base::grepl
  [13:38:16.515]                         is.null <- base::is.null
  [13:38:16.515]                         restarts <- computeRestarts(cond)
  [13:38:16.515]                         for (restart in restarts) {
  [13:38:16.515]                           name <- restart$name
  [13:38:16.515]                           if (is.null(name)) 
  [13:38:16.515]                             next
  [13:38:16.515]                           if (!grepl("^muffle", name)) 
  [13:38:16.515]                             next
  [13:38:16.515]                           invokeRestart(restart)
  [13:38:16.515]                           muffled <- TRUE
  [13:38:16.515]                           break
  [13:38:16.515]                         }
  [13:38:16.515]                       }
  [13:38:16.515]                       invisible(muffled)
  [13:38:16.515]                     }
  [13:38:16.515]                     muffleCondition(cond)
  [13:38:16.515]                   }
  [13:38:16.515]                 }
  [13:38:16.515]             }
  [13:38:16.515]         }))
  [13:38:16.515]     }, error = function(ex) {
  [13:38:16.515]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:38:16.515]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:38:16.515]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:38:16.515]     }, finally = {
  [13:38:16.515]         {
  [13:38:16.515]             {
  [13:38:16.515]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:38:16.515]             }
  [13:38:16.515]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:38:16.515]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:38:16.515]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:38:16.515]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:38:16.515]                 ...) 
  [13:38:16.515]             {
  [13:38:16.515]                 if (substitute) 
  [13:38:16.515]                   expr <- substitute(expr)
  [13:38:16.515]                 if (is.function(workers)) 
  [13:38:16.515]                   workers <- workers()
  [13:38:16.515]                 workers <- as.integer(workers)
  [13:38:16.515]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:38:16.515]                   workers >= 1)
  [13:38:16.515]                 if (workers == 1L) {
  [13:38:16.515]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:38:16.515]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:38:16.515]                     local = TRUE, label = label, ...))
  [13:38:16.515]                 }
  [13:38:16.515]                 workers <- ClusterRegistry("start", workers = workers)
  [13:38:16.515]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:38:16.515]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:38:16.515]                   globals = globals, persistent = persistent, 
  [13:38:16.515]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:38:16.515]                   label = label, ...)
  [13:38:16.515]                 if (!future$lazy) 
  [13:38:16.515]                   future <- run(future)
  [13:38:16.515]                 invisible(future)
  [13:38:16.515]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:38:16.515]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:38:16.515]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [13:38:16.515]                 label = NULL, ...) 
  [13:38:16.515]             {
  [13:38:16.515]                 if (substitute) 
  [13:38:16.515]                   expr <- substitute(expr)
  [13:38:16.515]                 if (is.function(workers)) 
  [13:38:16.515]                   workers <- workers()
  [13:38:16.515]                 workers <- as.integer(workers)
  [13:38:16.515]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:38:16.515]                   workers >= 1)
  [13:38:16.515]                 if (workers == 1L) {
  [13:38:16.515]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:38:16.515]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:38:16.515]                     local = TRUE, label = label, ...))
  [13:38:16.515]                 }
  [13:38:16.515]                 workers <- ClusterRegistry("start", workers = workers)
  [13:38:16.515]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:38:16.515]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:38:16.515]                   globals = globals, persistent = persistent, 
  [13:38:16.515]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:38:16.515]                   label = label, ...)
  [13:38:16.515]                 if (!future$lazy) 
  [13:38:16.515]                   future <- run(future)
  [13:38:16.515]                 invisible(future)
  [13:38:16.515]             }), .cleanup = FALSE, .init = FALSE)
  [13:38:16.515]         }
  [13:38:16.515]         base::options(...future.oldOptions)
  [13:38:16.515]     })
  [13:38:16.515]     Sys.time
  [13:38:16.515]     if (base::is.na(TRUE)) {
  [13:38:16.515]     }
  [13:38:16.515]     else {
  [13:38:16.515]         base::sink(type = "output", split = FALSE)
  [13:38:16.515]         if (TRUE) {
  [13:38:16.515]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:38:16.515]         }
  [13:38:16.515]         else {
  [13:38:16.515]             ...future.result["stdout"] <- base::list(NULL)
  [13:38:16.515]         }
  [13:38:16.515]         base::close(...future.stdout)
  [13:38:16.515]         ...future.stdout <- NULL
  [13:38:16.515]     }
  [13:38:16.515]     ...future.result$conditions <- ...future.conditions
  [13:38:16.515]     ...future.result
  [13:38:16.515] }
  [13:38:16.540] Exporting 1 global objects (336 bytes) to cluster node #1 ...
  [13:38:16.541] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ...
  [13:38:16.542] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ... DONE
  [13:38:16.542] Exporting 1 global objects (336 bytes) to cluster node #1 ... DONE
  [13:38:16.544] MultisessionFuture started
  [13:38:16.545] Chunk #1 of 2 ... DONE
  [13:38:16.545] Chunk #2 of 2 ...
  [13:38:16.545]  - Finding globals in 'args_list' chunk #2 ...
  [13:38:16.546] getGlobalsAndPackages() ...
  [13:38:16.546] Searching for globals...
  [13:38:16.547] 
  [13:38:16.548] Searching for globals ... DONE
  [13:38:16.548] - globals: [0] <none>
  [13:38:16.548] getGlobalsAndPackages() ... DONE
  [13:38:16.549] 
  [13:38:16.549] 
  [13:38:16.549]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:38:16.576] getGlobalsAndPackages() ...
  [13:38:16.576] - globals passed as-is: [1] '...future.x_ii'
  [13:38:16.577] Resolving globals: FALSE
  [13:38:16.577] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:38:16.578] - globals: [1] '...future.x_ii'
  [13:38:16.578] 
  [13:38:16.579] getGlobalsAndPackages() ... DONE
  [13:38:16.582] Packages needed by the future expression (n = 1): 'doFuture'
  [13:38:16.583] Packages needed by future strategies (n = 1): 'future'
  [13:38:16.589] {
  [13:38:16.589]     {
  [13:38:16.589]         ...future.startTime <- base::Sys.time()
  [13:38:16.589]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:38:16.589]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:38:16.589]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:38:16.589]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:38:16.589]             future.resolve.recursive = NULL, width = 80L)
  [13:38:16.589]         {
  [13:38:16.589]             {
  [13:38:16.589]                 {
  [13:38:16.589]                   {
  [13:38:16.589]                     has_future <- base::requireNamespace("future", 
  [13:38:16.589]                       quietly = TRUE)
  [13:38:16.589]                     version <- if (has_future) 
  [13:38:16.589]                       utils::packageVersion("future")
  [13:38:16.589]                     else NULL
  [13:38:16.589]                     if (!has_future || version < "1.8.0") {
  [13:38:16.589]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:38:16.589]                         "", base::R.version$version.string), 
  [13:38:16.589]                         platform = base::sprintf("%s (%s-bit)", 
  [13:38:16.589]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:38:16.589]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:38:16.589]                           "release", "version")], collapse = " "), 
  [13:38:16.589]                         hostname = base::Sys.info()[["nodename"]])
  [13:38:16.589]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:38:16.589]                         info)
  [13:38:16.589]                       info <- base::paste(info, collapse = "; ")
  [13:38:16.589]                       if (!has_future) {
  [13:38:16.589]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:38:16.589]                           info)
  [13:38:16.589]                       }
  [13:38:16.589]                       else {
  [13:38:16.589]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:38:16.589]                           info, version)
  [13:38:16.589]                       }
  [13:38:16.589]                       base::stop(msg)
  [13:38:16.589]                     }
  [13:38:16.589]                   }
  [13:38:16.589]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:38:16.589]                   base::options(mc.cores = 1L)
  [13:38:16.589]                 }
  [13:38:16.589]                 base::local({
  [13:38:16.589]                   for (pkg in c("doFuture", "future")) {
  [13:38:16.589]                     base::loadNamespace(pkg)
  [13:38:16.589]                     base::library(pkg, character.only = TRUE)
  [13:38:16.589]                   }
  [13:38:16.589]                 })
  [13:38:16.589]             }
  [13:38:16.589]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:38:16.589]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:38:16.589]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:38:16.589]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:38:16.589]                 ...) 
  [13:38:16.589]             {
  [13:38:16.589]                 if (substitute) 
  [13:38:16.589]                   expr <- substitute(expr)
  [13:38:16.589]                 if (is.function(workers)) 
  [13:38:16.589]                   workers <- workers()
  [13:38:16.589]                 workers <- as.integer(workers)
  [13:38:16.589]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:38:16.589]                   workers >= 1)
  [13:38:16.589]                 if (workers == 1L) {
  [13:38:16.589]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:38:16.589]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:38:16.589]                     local = TRUE, label = label, ...))
  [13:38:16.589]                 }
  [13:38:16.589]                 workers <- ClusterRegistry("start", workers = workers)
  [13:38:16.589]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:38:16.589]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:38:16.589]                   globals = globals, persistent = persistent, 
  [13:38:16.589]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:38:16.589]                   label = label, ...)
  [13:38:16.589]                 if (!future$lazy) 
  [13:38:16.589]                   future <- run(future)
  [13:38:16.589]                 invisible(future)
  [13:38:16.589]             }), .cleanup = FALSE, .init = FALSE)
  [13:38:16.589]         }
  [13:38:16.589]     }
  [13:38:16.589]     if (base::is.na(TRUE)) {
  [13:38:16.589]     }
  [13:38:16.589]     else {
  [13:38:16.589]         if (TRUE) {
  [13:38:16.589]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:38:16.589]                 open = "w")
  [13:38:16.589]         }
  [13:38:16.589]         else {
  [13:38:16.589]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:38:16.589]                 windows = "NUL", "/dev/null"), open = "w")
  [13:38:16.589]         }
  [13:38:16.589]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:38:16.589]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:38:16.589]             base::sink(type = "output", split = FALSE)
  [13:38:16.589]             base::close(...future.stdout)
  [13:38:16.589]         }, add = TRUE)
  [13:38:16.589]     }
  [13:38:16.589]     ...future.frame <- base::sys.nframe()
  [13:38:16.589]     ...future.conditions <- base::list()
  [13:38:16.589]     ...future.rng <- base::globalenv()$.Random.seed
  [13:38:16.589]     ...future.result <- base::tryCatch({
  [13:38:16.589]         base::withCallingHandlers({
  [13:38:16.589]             ...future.value <- base::withVisible(base::local({
  [13:38:16.589]                 ...future.sendCondition <- local({
  [13:38:16.589]                   sendCondition <- NULL
  [13:38:16.589]                   function(frame = 1L) {
  [13:38:16.589]                     if (is.function(sendCondition)) 
  [13:38:16.589]                       return(sendCondition)
  [13:38:16.589]                     ns <- getNamespace("parallel")
  [13:38:16.589]                     if (exists("sendData", mode = "function", 
  [13:38:16.589]                       envir = ns)) {
  [13:38:16.589]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:38:16.589]                         envir = ns)
  [13:38:16.589]                       envir <- sys.frame(frame)
  [13:38:16.589]                       master <- NULL
  [13:38:16.589]                       while (!identical(envir, .GlobalEnv) && 
  [13:38:16.589]                         !identical(envir, emptyenv())) {
  [13:38:16.589]                         if (exists("master", mode = "list", envir = envir, 
  [13:38:16.589]                           inherits = FALSE)) {
  [13:38:16.589]                           master <- get("master", mode = "list", 
  [13:38:16.589]                             envir = envir, inherits = FALSE)
  [13:38:16.589]                           if (inherits(master, "SOCKnode")) {
  [13:38:16.589]                             sendCondition <<- function(cond) {
  [13:38:16.589]                               data <- list(type = "VALUE", value = cond, 
  [13:38:16.589]                                 success = TRUE)
  [13:38:16.589]                               parallel_sendData(master, data)
  [13:38:16.589]                             }
  [13:38:16.589]                             return(sendCondition)
  [13:38:16.589]                           }
  [13:38:16.589]                         }
  [13:38:16.589]                         frame <- frame + 1L
  [13:38:16.589]                         envir <- sys.frame(frame)
  [13:38:16.589]                       }
  [13:38:16.589]                     }
  [13:38:16.589]                     sendCondition <<- function(cond) NULL
  [13:38:16.589]                   }
  [13:38:16.589]                 })
  [13:38:16.589]                 withCallingHandlers({
  [13:38:16.589]                   {
  [13:38:16.589]                     doFuture::registerDoFuture()
  [13:38:16.589]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:38:16.589]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [13:38:16.589]                       {
  [13:38:16.589]                         a <- NULL
  [13:38:16.589]                         b <- NULL
  [13:38:16.589]                       }
  [13:38:16.589]                       ...future.env <- environment()
  [13:38:16.589]                       local({
  [13:38:16.589]                         for (name in names(...future.x_jj)) {
  [13:38:16.589]                           assign(name, ...future.x_jj[[name]], 
  [13:38:16.589]                             envir = ...future.env, inherits = FALSE)
  [13:38:16.589]                         }
  [13:38:16.589]                       })
  [13:38:16.589]                       tryCatch({
  [13:38:16.589]                         list(a = a, b = b, plan_b = future::plan("list"), 
  [13:38:16.589]                           plan = future::plan("next"))
  [13:38:16.589]                       }, error = identity)
  [13:38:16.589]                     })
  [13:38:16.589]                   }
  [13:38:16.589]                 }, immediateCondition = function(cond) {
  [13:38:16.589]                   sendCondition <- ...future.sendCondition()
  [13:38:16.589]                   sendCondition(cond)
  [13:38:16.589]                   muffleCondition <- function (cond) 
  [13:38:16.589]                   {
  [13:38:16.589]                     inherits <- base::inherits
  [13:38:16.589]                     invokeRestart <- base::invokeRestart
  [13:38:16.589]                     muffled <- FALSE
  [13:38:16.589]                     if (inherits(cond, "message")) {
  [13:38:16.589]                       invokeRestart("muffleMessage")
  [13:38:16.589]                       muffled <- TRUE
  [13:38:16.589]                     }
  [13:38:16.589]                     else if (inherits(cond, "warning")) {
  [13:38:16.589]                       invokeRestart("muffleWarning")
  [13:38:16.589]                       muffled <- TRUE
  [13:38:16.589]                     }
  [13:38:16.589]                     else if (inherits(cond, "condition")) {
  [13:38:16.589]                       computeRestarts <- base::computeRestarts
  [13:38:16.589]                       grepl <- base::grepl
  [13:38:16.589]                       is.null <- base::is.null
  [13:38:16.589]                       restarts <- computeRestarts(cond)
  [13:38:16.589]                       for (restart in restarts) {
  [13:38:16.589]                         name <- restart$name
  [13:38:16.589]                         if (is.null(name)) 
  [13:38:16.589]                           next
  [13:38:16.589]                         if (!grepl("^muffle", name)) 
  [13:38:16.589]                           next
  [13:38:16.589]                         invokeRestart(restart)
  [13:38:16.589]                         muffled <- TRUE
  [13:38:16.589]                         break
  [13:38:16.589]                       }
  [13:38:16.589]                     }
  [13:38:16.589]                     invisible(muffled)
  [13:38:16.589]                   }
  [13:38:16.589]                   muffleCondition(cond)
  [13:38:16.589]                 })
  [13:38:16.589]             }))
  [13:38:16.589]             future::FutureResult(value = ...future.value$value, 
  [13:38:16.589]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:38:16.589]                   ...future.rng), started = ...future.startTime, 
  [13:38:16.589]                 version = "1.8")
  [13:38:16.589]         }, condition = base::local({
  [13:38:16.589]             c <- base::c
  [13:38:16.589]             inherits <- base::inherits
  [13:38:16.589]             invokeRestart <- base::invokeRestart
  [13:38:16.589]             length <- base::length
  [13:38:16.589]             list <- base::list
  [13:38:16.589]             seq.int <- base::seq.int
  [13:38:16.589]             signalCondition <- base::signalCondition
  [13:38:16.589]             sys.calls <- base::sys.calls
  [13:38:16.589]             Sys.time <- base::Sys.time
  [13:38:16.589]             `[[` <- base::`[[`
  [13:38:16.589]             `+` <- base::`+`
  [13:38:16.589]             `<<-` <- base::`<<-`
  [13:38:16.589]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:38:16.589]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:38:16.589]                   3L)]
  [13:38:16.589]             }
  [13:38:16.589]             function(cond) {
  [13:38:16.589]                 if (inherits(cond, "error")) {
  [13:38:16.589]                   ...future.conditions[[length(...future.conditions) + 
  [13:38:16.589]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:38:16.589]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:38:16.589]                   signalCondition(cond)
  [13:38:16.589]                 }
  [13:38:16.589]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:38:16.589]                 ))) {
  [13:38:16.589]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:38:16.589]                   ...future.conditions[[length(...future.conditions) + 
  [13:38:16.589]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:38:16.589]                   if (!signal) {
  [13:38:16.589]                     muffleCondition <- function (cond) 
  [13:38:16.589]                     {
  [13:38:16.589]                       inherits <- base::inherits
  [13:38:16.589]                       invokeRestart <- base::invokeRestart
  [13:38:16.589]                       muffled <- FALSE
  [13:38:16.589]                       if (inherits(cond, "message")) {
  [13:38:16.589]                         invokeRestart("muffleMessage")
  [13:38:16.589]                         muffled <- TRUE
  [13:38:16.589]                       }
  [13:38:16.589]                       else if (inherits(cond, "warning")) {
  [13:38:16.589]                         invokeRestart("muffleWarning")
  [13:38:16.589]                         muffled <- TRUE
  [13:38:16.589]                       }
  [13:38:16.589]                       else if (inherits(cond, "condition")) {
  [13:38:16.589]                         computeRestarts <- base::computeRestarts
  [13:38:16.589]                         grepl <- base::grepl
  [13:38:16.589]                         is.null <- base::is.null
  [13:38:16.589]                         restarts <- computeRestarts(cond)
  [13:38:16.589]                         for (restart in restarts) {
  [13:38:16.589]                           name <- restart$name
  [13:38:16.589]                           if (is.null(name)) 
  [13:38:16.589]                             next
  [13:38:16.589]                           if (!grepl("^muffle", name)) 
  [13:38:16.589]                             next
  [13:38:16.589]                           invokeRestart(restart)
  [13:38:16.589]                           muffled <- TRUE
  [13:38:16.589]                           break
  [13:38:16.589]                         }
  [13:38:16.589]                       }
  [13:38:16.589]                       invisible(muffled)
  [13:38:16.589]                     }
  [13:38:16.589]                     muffleCondition(cond)
  [13:38:16.589]                   }
  [13:38:16.589]                 }
  [13:38:16.589]             }
  [13:38:16.589]         }))
  [13:38:16.589]     }, error = function(ex) {
  [13:38:16.589]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:38:16.589]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:38:16.589]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:38:16.589]     }, finally = {
  [13:38:16.589]         {
  [13:38:16.589]             {
  [13:38:16.589]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:38:16.589]             }
  [13:38:16.589]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:38:16.589]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:38:16.589]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:38:16.589]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:38:16.589]                 ...) 
  [13:38:16.589]             {
  [13:38:16.589]                 if (substitute) 
  [13:38:16.589]                   expr <- substitute(expr)
  [13:38:16.589]                 if (is.function(workers)) 
  [13:38:16.589]                   workers <- workers()
  [13:38:16.589]                 workers <- as.integer(workers)
  [13:38:16.589]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:38:16.589]                   workers >= 1)
  [13:38:16.589]                 if (workers == 1L) {
  [13:38:16.589]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:38:16.589]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:38:16.589]                     local = TRUE, label = label, ...))
  [13:38:16.589]                 }
  [13:38:16.589]                 workers <- ClusterRegistry("start", workers = workers)
  [13:38:16.589]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:38:16.589]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:38:16.589]                   globals = globals, persistent = persistent, 
  [13:38:16.589]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:38:16.589]                   label = label, ...)
  [13:38:16.589]                 if (!future$lazy) 
  [13:38:16.589]                   future <- run(future)
  [13:38:16.589]                 invisible(future)
  [13:38:16.589]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:38:16.589]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:38:16.589]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [13:38:16.589]                 label = NULL, ...) 
  [13:38:16.589]             {
  [13:38:16.589]                 if (substitute) 
  [13:38:16.589]                   expr <- substitute(expr)
  [13:38:16.589]                 if (is.function(workers)) 
  [13:38:16.589]                   workers <- workers()
  [13:38:16.589]                 workers <- as.integer(workers)
  [13:38:16.589]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:38:16.589]                   workers >= 1)
  [13:38:16.589]                 if (workers == 1L) {
  [13:38:16.589]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:38:16.589]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:38:16.589]                     local = TRUE, label = label, ...))
  [13:38:16.589]                 }
  [13:38:16.589]                 workers <- ClusterRegistry("start", workers = workers)
  [13:38:16.589]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:38:16.589]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:38:16.589]                   globals = globals, persistent = persistent, 
  [13:38:16.589]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:38:16.589]                   label = label, ...)
  [13:38:16.589]                 if (!future$lazy) 
  [13:38:16.589]                   future <- run(future)
  [13:38:16.589]                 invisible(future)
  [13:38:16.589]             }), .cleanup = FALSE, .init = FALSE)
  [13:38:16.589]         }
  [13:38:16.589]         base::options(...future.oldOptions)
  [13:38:16.589]     })
  [13:38:16.589]     Sys.time
  [13:38:16.589]     if (base::is.na(TRUE)) {
  [13:38:16.589]     }
  [13:38:16.589]     else {
  [13:38:16.589]         base::sink(type = "output", split = FALSE)
  [13:38:16.589]         if (TRUE) {
  [13:38:16.589]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:38:16.589]         }
  [13:38:16.589]         else {
  [13:38:16.589]             ...future.result["stdout"] <- base::list(NULL)
  [13:38:16.589]         }
  [13:38:16.589]         base::close(...future.stdout)
  [13:38:16.589]         ...future.stdout <- NULL
  [13:38:16.589]     }
  [13:38:16.589]     ...future.result$conditions <- ...future.conditions
  [13:38:16.589]     ...future.result
  [13:38:16.589] }
  [13:38:16.647] Exporting 1 global objects (336 bytes) to cluster node #2 ...
  [13:38:16.647] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ...
  [13:38:16.649] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ... DONE
  [13:38:16.649] Exporting 1 global objects (336 bytes) to cluster node #2 ... DONE
  [13:38:16.651] MultisessionFuture started
  [13:38:16.651] Chunk #2 of 2 ... DONE
  [13:38:16.652] Launching 2 futures (chunks) ... DONE
  [13:38:16.652] - resolving futures
  [13:38:16.652]   - gathering results & relaying conditions (except errors)
  [13:38:16.652] resolve() on list ...
  [13:38:16.653]  recursive: 0
  [13:38:16.653]  length: 2
  [13:38:16.653] 
  [13:38:17.159] receiveMessageFromWorker() for ClusterFuture ...
  [13:38:17.160] - Validating connection of MultisessionFuture
  [13:38:17.161] - received message: FutureResult
  [13:38:17.162] - Received FutureResult
  [13:38:17.162] - Erased future from FutureRegistry
  [13:38:17.163] result() for ClusterFuture ...
  [13:38:17.163] - result already collected: FutureResult
  [13:38:17.163] result() for ClusterFuture ... done
  [13:38:17.164] receiveMessageFromWorker() for ClusterFuture ... done
  [13:38:17.164] Future #1
  [13:38:17.164] result() for ClusterFuture ...
  [13:38:17.165] - result already collected: FutureResult
  [13:38:17.165] result() for ClusterFuture ... done
  [13:38:17.165] result() for ClusterFuture ...
  [13:38:17.166] - result already collected: FutureResult
  [13:38:17.166] result() for ClusterFuture ... done
  [13:38:17.166] signalConditionsASAP(MultisessionFuture, pos=1) ...
  [13:38:17.167] - nx: 2
  [13:38:17.167] - relay: TRUE
  [13:38:17.167] - stdout: TRUE
  [13:38:17.168] - signal: TRUE
  [13:38:17.168] - resignal: FALSE
  [13:38:17.168] - force: FALSE
  [13:38:17.169] - relayed: [n=2] FALSE, FALSE
  [13:38:17.169] - queued futures: [n=2] FALSE, FALSE
  [13:38:17.169]  - until=1
  [13:38:17.170]  - relaying element #1
  [13:38:17.170] result() for ClusterFuture ...
  [13:38:17.170] - result already collected: FutureResult
  [13:38:17.174] result() for ClusterFuture ... done
  [13:38:17.174] result() for ClusterFuture ...
  [13:38:17.175] - result already collected: FutureResult
  [13:38:17.175] result() for ClusterFuture ... done
  [13:38:17.175] result() for ClusterFuture ...
  [13:38:17.176] - result already collected: FutureResult
  [13:38:17.176] result() for ClusterFuture ... done
  [13:38:17.177] result() for ClusterFuture ...
  [13:38:17.177] - result already collected: FutureResult
  [13:38:17.177] result() for ClusterFuture ... done
  [13:38:17.178] - relayed: [n=2] TRUE, FALSE
  [13:38:17.178] - queued futures: [n=2] TRUE, FALSE
  [13:38:17.178] signalConditionsASAP(MultisessionFuture, pos=1) ... done
  [13:38:17.179]  length: 1 (resolved future 1)
  [13:38:17.255] receiveMessageFromWorker() for ClusterFuture ...
  [13:38:17.255] - Validating connection of MultisessionFuture
  [13:38:17.300] - received message: FutureResult
  [13:38:17.300] - Received FutureResult
  [13:38:17.301] - Erased future from FutureRegistry
  [13:38:17.301] result() for ClusterFuture ...
  [13:38:17.301] - result already collected: FutureResult
  [13:38:17.302] result() for ClusterFuture ... done
  [13:38:17.302] receiveMessageFromWorker() for ClusterFuture ... done
  [13:38:17.302] Future #2
  [13:38:17.303] result() for ClusterFuture ...
  [13:38:17.303] - result already collected: FutureResult
  [13:38:17.303] result() for ClusterFuture ... done
  [13:38:17.304] result() for ClusterFuture ...
  [13:38:17.304] - result already collected: FutureResult
  [13:38:17.305] result() for ClusterFuture ... done
  [13:38:17.305] signalConditionsASAP(MultisessionFuture, pos=2) ...
  [13:38:17.305] - nx: 2
  [13:38:17.306] - relay: TRUE
  [13:38:17.306] - stdout: TRUE
  [13:38:17.306] - signal: TRUE
  [13:38:17.307] - resignal: FALSE
  [13:38:17.307] - force: FALSE
  [13:38:17.307] - relayed: [n=2] TRUE, FALSE
  [13:38:17.307] - queued futures: [n=2] TRUE, FALSE
  [13:38:17.308]  - until=2
  [13:38:17.308]  - relaying element #2
  [13:38:17.309] result() for ClusterFuture ...
  [13:38:17.309] - result already collected: FutureResult
  [13:38:17.309] result() for ClusterFuture ... done
  [13:38:17.310] result() for ClusterFuture ...
  [13:38:17.310] - result already collected: FutureResult
  [13:38:17.310] result() for ClusterFuture ... done
  [13:38:17.311] result() for ClusterFuture ...
  [13:38:17.311] - result already collected: FutureResult
  [13:38:17.312] result() for ClusterFuture ... done
  [13:38:17.312] result() for ClusterFuture ...
  [13:38:17.312] - result already collected: FutureResult
  [13:38:17.313] result() for ClusterFuture ... done
  [13:38:17.313] - relayed: [n=2] TRUE, TRUE
  [13:38:17.313] - queued futures: [n=2] TRUE, TRUE
  [13:38:17.314] signalConditionsASAP(MultisessionFuture, pos=2) ... done
  [13:38:17.314]  length: 0 (resolved future 2)
  [13:38:17.314] Relaying remaining futures
  [13:38:17.327] signalConditionsASAP(NULL, pos=0) ...
  [13:38:17.327] - nx: 2
  [13:38:17.328] - relay: TRUE
  [13:38:17.328] - stdout: TRUE
  [13:38:17.328] - signal: TRUE
  [13:38:17.328] - resignal: FALSE
  [13:38:17.329] - force: FALSE
  [13:38:17.329] - relayed: [n=2] TRUE, TRUE
  [13:38:17.329] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [13:38:17.330] - relayed: [n=2] TRUE, TRUE
  [13:38:17.330] - queued futures: [n=2] TRUE, TRUE
  [13:38:17.331] signalConditionsASAP(NULL, pos=0) ... done
  [13:38:17.331] resolve() on list ... DONE
  [13:38:17.331] - collecting values of futures
  [13:38:17.331] result() for ClusterFuture ...
  [13:38:17.332] - result already collected: FutureResult
  [13:38:17.332] result() for ClusterFuture ... done
  [13:38:17.332] result() for ClusterFuture ...
  [13:38:17.333] - result already collected: FutureResult
  [13:38:17.333] result() for ClusterFuture ... done
  [13:38:17.333] result() for ClusterFuture ...
  [13:38:17.334] - result already collected: FutureResult
  [13:38:17.334] result() for ClusterFuture ... done
  [13:38:17.334] result() for ClusterFuture ...
  [13:38:17.335] - result already collected: FutureResult
  [13:38:17.335] result() for ClusterFuture ... done
  [13:38:17.336] - accumulating results
  [13:38:17.338] - processing errors (handler = 'stop')
  [13:38:17.339] - extracting results
  [13:38:17.339] doFuture() ... DONE
  - plan(list('multisession', 'multisession')) ... DONE
  - plan(list('multisession', 'cluster')) ...
  [13:38:17.340] plan(): Setting new future strategy stack:
  [13:38:17.341] List of future strategies:
  [13:38:17.341] 1. multisession:
  [13:38:17.341]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:38:17.341]    - tweaked: FALSE
  [13:38:17.341]    - call: plan(list(a = strategy1, b = strategy2))
  [13:38:17.341] 2. cluster:
  [13:38:17.341]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:38:17.341]    - tweaked: FALSE
  [13:38:17.341]    - call: plan(list(a = strategy1, b = strategy2))
  [13:38:17.359] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
  [13:38:17.360] multisession:
  [13:38:17.360] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:38:17.360] - tweaked: FALSE
  [13:38:17.360] - call: plan(list(a = strategy1, b = strategy2))
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 26734
  [local output] Creating node 1 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp2MyXWz/future.parent=15871.3dff453a4dfb.pid")), silent = TRUE)' -e "file.exists('/tmp/Rtmp2MyXWz/future.parent=15871.3dff453a4dfb.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:15871:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp2MyXWz/future.parent=15871.3dff453a4dfb.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=26734 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [local output] Connection with worker #1 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 1 of 2 ... done
  [local output] Creating node 2 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp2MyXWz/future.parent=15871.3dff2ccf88f4.pid")), silent = TRUE)' -e "file.exists('/tmp/Rtmp2MyXWz/future.parent=15871.3dff2ccf88f4.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:15871:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp2MyXWz/future.parent=15871.3dff2ccf88f4.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=26734 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #2 on 'localhost' to connect back
  [local output] Connection with worker #2 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 2 of 2 ... done
  [13:38:33.421] getGlobalsAndPackages() ...
  [13:38:33.422] Not searching for globals
  [13:38:33.423] - globals: [0] <none>
  [13:38:33.423] getGlobalsAndPackages() ... DONE
  [13:38:33.444] Packages needed by the future expression (n = 0): <none>
  [13:38:33.444] Packages needed by future strategies (n = 1): 'future'
  [13:38:33.451] {
  [13:38:33.451]     {
  [13:38:33.451]         ...future.startTime <- base::Sys.time()
  [13:38:33.451]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:38:33.451]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:38:33.451]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:38:33.451]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:38:33.451]             future.resolve.recursive = NULL, width = 80L)
  [13:38:33.451]         {
  [13:38:33.451]             {
  [13:38:33.451]                 {
  [13:38:33.451]                   {
  [13:38:33.451]                     has_future <- base::requireNamespace("future", 
  [13:38:33.451]                       quietly = TRUE)
  [13:38:33.451]                     version <- if (has_future) 
  [13:38:33.451]                       utils::packageVersion("future")
  [13:38:33.451]                     else NULL
  [13:38:33.451]                     if (!has_future || version < "1.8.0") {
  [13:38:33.451]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:38:33.451]                         "", base::R.version$version.string), 
  [13:38:33.451]                         platform = base::sprintf("%s (%s-bit)", 
  [13:38:33.451]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:38:33.451]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:38:33.451]                           "release", "version")], collapse = " "), 
  [13:38:33.451]                         hostname = base::Sys.info()[["nodename"]])
  [13:38:33.451]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:38:33.451]                         info)
  [13:38:33.451]                       info <- base::paste(info, collapse = "; ")
  [13:38:33.451]                       if (!has_future) {
  [13:38:33.451]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:38:33.451]                           info)
  [13:38:33.451]                       }
  [13:38:33.451]                       else {
  [13:38:33.451]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:38:33.451]                           info, version)
  [13:38:33.451]                       }
  [13:38:33.451]                       base::stop(msg)
  [13:38:33.451]                     }
  [13:38:33.451]                   }
  [13:38:33.451]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:38:33.451]                   base::options(mc.cores = 1L)
  [13:38:33.451]                 }
  [13:38:33.451]                 base::local({
  [13:38:33.451]                   for (pkg in "future") {
  [13:38:33.451]                     base::loadNamespace(pkg)
  [13:38:33.451]                     base::library(pkg, character.only = TRUE)
  [13:38:33.451]                   }
  [13:38:33.451]                 })
  [13:38:33.451]             }
  [13:38:33.451]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:38:33.451]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:38:33.451]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:38:33.451]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:38:33.451]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:38:33.451]                 ...) 
  [13:38:33.451]             {
  [13:38:33.451]                 if (substitute) 
  [13:38:33.451]                   expr <- substitute(expr)
  [13:38:33.451]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:38:33.451]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:38:33.451]                   globals = globals, persistent = persistent, 
  [13:38:33.451]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:38:33.451]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:38:33.451]                   label = label, ...)
  [13:38:33.451]                 if (!future$lazy) 
  [13:38:33.451]                   future <- run(future)
  [13:38:33.451]                 invisible(future)
  [13:38:33.451]             }), .cleanup = FALSE, .init = FALSE)
  [13:38:33.451]         }
  [13:38:33.451]     }
  [13:38:33.451]     if (base::is.na(TRUE)) {
  [13:38:33.451]     }
  [13:38:33.451]     else {
  [13:38:33.451]         if (TRUE) {
  [13:38:33.451]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:38:33.451]                 open = "w")
  [13:38:33.451]         }
  [13:38:33.451]         else {
  [13:38:33.451]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:38:33.451]                 windows = "NUL", "/dev/null"), open = "w")
  [13:38:33.451]         }
  [13:38:33.451]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:38:33.451]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:38:33.451]             base::sink(type = "output", split = FALSE)
  [13:38:33.451]             base::close(...future.stdout)
  [13:38:33.451]         }, add = TRUE)
  [13:38:33.451]     }
  [13:38:33.451]     ...future.frame <- base::sys.nframe()
  [13:38:33.451]     ...future.conditions <- base::list()
  [13:38:33.451]     ...future.rng <- base::globalenv()$.Random.seed
  [13:38:33.451]     ...future.result <- base::tryCatch({
  [13:38:33.451]         base::withCallingHandlers({
  [13:38:33.451]             ...future.value <- base::withVisible(base::local({
  [13:38:33.451]                 ...future.sendCondition <- local({
  [13:38:33.451]                   sendCondition <- NULL
  [13:38:33.451]                   function(frame = 1L) {
  [13:38:33.451]                     if (is.function(sendCondition)) 
  [13:38:33.451]                       return(sendCondition)
  [13:38:33.451]                     ns <- getNamespace("parallel")
  [13:38:33.451]                     if (exists("sendData", mode = "function", 
  [13:38:33.451]                       envir = ns)) {
  [13:38:33.451]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:38:33.451]                         envir = ns)
  [13:38:33.451]                       envir <- sys.frame(frame)
  [13:38:33.451]                       master <- NULL
  [13:38:33.451]                       while (!identical(envir, .GlobalEnv) && 
  [13:38:33.451]                         !identical(envir, emptyenv())) {
  [13:38:33.451]                         if (exists("master", mode = "list", envir = envir, 
  [13:38:33.451]                           inherits = FALSE)) {
  [13:38:33.451]                           master <- get("master", mode = "list", 
  [13:38:33.451]                             envir = envir, inherits = FALSE)
  [13:38:33.451]                           if (inherits(master, "SOCKnode")) {
  [13:38:33.451]                             sendCondition <<- function(cond) {
  [13:38:33.451]                               data <- list(type = "VALUE", value = cond, 
  [13:38:33.451]                                 success = TRUE)
  [13:38:33.451]                               parallel_sendData(master, data)
  [13:38:33.451]                             }
  [13:38:33.451]                             return(sendCondition)
  [13:38:33.451]                           }
  [13:38:33.451]                         }
  [13:38:33.451]                         frame <- frame + 1L
  [13:38:33.451]                         envir <- sys.frame(frame)
  [13:38:33.451]                       }
  [13:38:33.451]                     }
  [13:38:33.451]                     sendCondition <<- function(cond) NULL
  [13:38:33.451]                   }
  [13:38:33.451]                 })
  [13:38:33.451]                 withCallingHandlers({
  [13:38:33.451]                   NA
  [13:38:33.451]                 }, immediateCondition = function(cond) {
  [13:38:33.451]                   sendCondition <- ...future.sendCondition()
  [13:38:33.451]                   sendCondition(cond)
  [13:38:33.451]                   muffleCondition <- function (cond) 
  [13:38:33.451]                   {
  [13:38:33.451]                     inherits <- base::inherits
  [13:38:33.451]                     invokeRestart <- base::invokeRestart
  [13:38:33.451]                     muffled <- FALSE
  [13:38:33.451]                     if (inherits(cond, "message")) {
  [13:38:33.451]                       invokeRestart("muffleMessage")
  [13:38:33.451]                       muffled <- TRUE
  [13:38:33.451]                     }
  [13:38:33.451]                     else if (inherits(cond, "warning")) {
  [13:38:33.451]                       invokeRestart("muffleWarning")
  [13:38:33.451]                       muffled <- TRUE
  [13:38:33.451]                     }
  [13:38:33.451]                     else if (inherits(cond, "condition")) {
  [13:38:33.451]                       computeRestarts <- base::computeRestarts
  [13:38:33.451]                       grepl <- base::grepl
  [13:38:33.451]                       is.null <- base::is.null
  [13:38:33.451]                       restarts <- computeRestarts(cond)
  [13:38:33.451]                       for (restart in restarts) {
  [13:38:33.451]                         name <- restart$name
  [13:38:33.451]                         if (is.null(name)) 
  [13:38:33.451]                           next
  [13:38:33.451]                         if (!grepl("^muffle", name)) 
  [13:38:33.451]                           next
  [13:38:33.451]                         invokeRestart(restart)
  [13:38:33.451]                         muffled <- TRUE
  [13:38:33.451]                         break
  [13:38:33.451]                       }
  [13:38:33.451]                     }
  [13:38:33.451]                     invisible(muffled)
  [13:38:33.451]                   }
  [13:38:33.451]                   muffleCondition(cond)
  [13:38:33.451]                 })
  [13:38:33.451]             }))
  [13:38:33.451]             future::FutureResult(value = ...future.value$value, 
  [13:38:33.451]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:38:33.451]                   ...future.rng), started = ...future.startTime, 
  [13:38:33.451]                 version = "1.8")
  [13:38:33.451]         }, condition = base::local({
  [13:38:33.451]             c <- base::c
  [13:38:33.451]             inherits <- base::inherits
  [13:38:33.451]             invokeRestart <- base::invokeRestart
  [13:38:33.451]             length <- base::length
  [13:38:33.451]             list <- base::list
  [13:38:33.451]             seq.int <- base::seq.int
  [13:38:33.451]             signalCondition <- base::signalCondition
  [13:38:33.451]             sys.calls <- base::sys.calls
  [13:38:33.451]             Sys.time <- base::Sys.time
  [13:38:33.451]             `[[` <- base::`[[`
  [13:38:33.451]             `+` <- base::`+`
  [13:38:33.451]             `<<-` <- base::`<<-`
  [13:38:33.451]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:38:33.451]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:38:33.451]                   3L)]
  [13:38:33.451]             }
  [13:38:33.451]             function(cond) {
  [13:38:33.451]                 if (inherits(cond, "error")) {
  [13:38:33.451]                   ...future.conditions[[length(...future.conditions) + 
  [13:38:33.451]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:38:33.451]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:38:33.451]                   signalCondition(cond)
  [13:38:33.451]                 }
  [13:38:33.451]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:38:33.451]                 ))) {
  [13:38:33.451]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:38:33.451]                   ...future.conditions[[length(...future.conditions) + 
  [13:38:33.451]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:38:33.451]                   if (!signal) {
  [13:38:33.451]                     muffleCondition <- function (cond) 
  [13:38:33.451]                     {
  [13:38:33.451]                       inherits <- base::inherits
  [13:38:33.451]                       invokeRestart <- base::invokeRestart
  [13:38:33.451]                       muffled <- FALSE
  [13:38:33.451]                       if (inherits(cond, "message")) {
  [13:38:33.451]                         invokeRestart("muffleMessage")
  [13:38:33.451]                         muffled <- TRUE
  [13:38:33.451]                       }
  [13:38:33.451]                       else if (inherits(cond, "warning")) {
  [13:38:33.451]                         invokeRestart("muffleWarning")
  [13:38:33.451]                         muffled <- TRUE
  [13:38:33.451]                       }
  [13:38:33.451]                       else if (inherits(cond, "condition")) {
  [13:38:33.451]                         computeRestarts <- base::computeRestarts
  [13:38:33.451]                         grepl <- base::grepl
  [13:38:33.451]                         is.null <- base::is.null
  [13:38:33.451]                         restarts <- computeRestarts(cond)
  [13:38:33.451]                         for (restart in restarts) {
  [13:38:33.451]                           name <- restart$name
  [13:38:33.451]                           if (is.null(name)) 
  [13:38:33.451]                             next
  [13:38:33.451]                           if (!grepl("^muffle", name)) 
  [13:38:33.451]                             next
  [13:38:33.451]                           invokeRestart(restart)
  [13:38:33.451]                           muffled <- TRUE
  [13:38:33.451]                           break
  [13:38:33.451]                         }
  [13:38:33.451]                       }
  [13:38:33.451]                       invisible(muffled)
  [13:38:33.451]                     }
  [13:38:33.451]                     muffleCondition(cond)
  [13:38:33.451]                   }
  [13:38:33.451]                 }
  [13:38:33.451]             }
  [13:38:33.451]         }))
  [13:38:33.451]     }, error = function(ex) {
  [13:38:33.451]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:38:33.451]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:38:33.451]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:38:33.451]     }, finally = {
  [13:38:33.451]         {
  [13:38:33.451]             {
  [13:38:33.451]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:38:33.451]             }
  [13:38:33.451]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:38:33.451]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:38:33.451]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:38:33.451]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:38:33.451]                 ...) 
  [13:38:33.451]             {
  [13:38:33.451]                 if (substitute) 
  [13:38:33.451]                   expr <- substitute(expr)
  [13:38:33.451]                 if (is.function(workers)) 
  [13:38:33.451]                   workers <- workers()
  [13:38:33.451]                 workers <- as.integer(workers)
  [13:38:33.451]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:38:33.451]                   workers >= 1)
  [13:38:33.451]                 if (workers == 1L) {
  [13:38:33.451]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:38:33.451]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:38:33.451]                     local = TRUE, label = label, ...))
  [13:38:33.451]                 }
  [13:38:33.451]                 workers <- ClusterRegistry("start", workers = workers)
  [13:38:33.451]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:38:33.451]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:38:33.451]                   globals = globals, persistent = persistent, 
  [13:38:33.451]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:38:33.451]                   label = label, ...)
  [13:38:33.451]                 if (!future$lazy) 
  [13:38:33.451]                   future <- run(future)
  [13:38:33.451]                 invisible(future)
  [13:38:33.451]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:38:33.451]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:38:33.451]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [13:38:33.451]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:38:33.451]                 label = NULL, ...) 
  [13:38:33.451]             {
  [13:38:33.451]                 if (substitute) 
  [13:38:33.451]                   expr <- substitute(expr)
  [13:38:33.451]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:38:33.451]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:38:33.451]                   globals = globals, persistent = persistent, 
  [13:38:33.451]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:38:33.451]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:38:33.451]                   label = label, ...)
  [13:38:33.451]                 if (!future$lazy) 
  [13:38:33.451]                   future <- run(future)
  [13:38:33.451]                 invisible(future)
  [13:38:33.451]             }), .cleanup = FALSE, .init = FALSE)
  [13:38:33.451]         }
  [13:38:33.451]         base::options(...future.oldOptions)
  [13:38:33.451]     })
  [13:38:33.451]     Sys.time
  [13:38:33.451]     if (base::is.na(TRUE)) {
  [13:38:33.451]     }
  [13:38:33.451]     else {
  [13:38:33.451]         base::sink(type = "output", split = FALSE)
  [13:38:33.451]         if (TRUE) {
  [13:38:33.451]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:38:33.451]         }
  [13:38:33.451]         else {
  [13:38:33.451]             ...future.result["stdout"] <- base::list(NULL)
  [13:38:33.451]         }
  [13:38:33.451]         base::close(...future.stdout)
  [13:38:33.451]         ...future.stdout <- NULL
  [13:38:33.451]     }
  [13:38:33.451]     ...future.result$conditions <- ...future.conditions
  [13:38:33.451]     ...future.result
  [13:38:33.451] }
  [13:38:33.476] MultisessionFuture started
  [13:38:33.477] result() for ClusterFuture ...
  [13:38:33.477] receiveMessageFromWorker() for ClusterFuture ...
  [13:38:33.478] - Validating connection of MultisessionFuture
  [13:38:33.767] - received message: FutureResult
  [13:38:33.768] - Received FutureResult
  [13:38:33.768] - Erased future from FutureRegistry
  [13:38:33.769] result() for ClusterFuture ...
  [13:38:33.769] - result already collected: FutureResult
  [13:38:33.770] result() for ClusterFuture ... done
  [13:38:33.770] receiveMessageFromWorker() for ClusterFuture ... done
  [13:38:33.771] result() for ClusterFuture ... done
  [13:38:33.771] result() for ClusterFuture ...
  [13:38:33.771] - result already collected: FutureResult
  [13:38:33.772] result() for ClusterFuture ... done
  [13:38:33.772] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE
  [13:38:33.773] plan(): nbrOfWorkers() = 2
  [13:38:33.774] doFuture() ...
  [13:38:33.779] - dummy globals (as locals): [2] 'a', 'b'
  [13:38:33.780] - R expression:
  [13:38:33.781] {
  [13:38:33.781]     doFuture::registerDoFuture()
  [13:38:33.781]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:38:33.781]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:38:33.781]         {
  [13:38:33.781]             a <- NULL
  [13:38:33.781]             b <- NULL
  [13:38:33.781]         }
  [13:38:33.781]         ...future.env <- environment()
  [13:38:33.781]         local({
  [13:38:33.781]             for (name in names(...future.x_jj)) {
  [13:38:33.781]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:38:33.781]                   inherits = FALSE)
  [13:38:33.781]             }
  [13:38:33.781]         })
  [13:38:33.781]         tryCatch({
  [13:38:33.781]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:38:33.781]                 plan = future::plan("next"))
  [13:38:33.781]         }, error = identity)
  [13:38:33.781]     })
  [13:38:33.781] }
  [13:38:33.782] - identifying globals and packages ...
  [13:38:33.782] getGlobalsAndPackages() ...
  [13:38:33.799] Searching for globals...
  [13:38:33.832] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [13:38:33.833] Searching for globals ... DONE
  [13:38:33.833] Resolving globals: FALSE
  [13:38:33.835] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:38:33.836] - globals: [1] '...future.x_ii'
  [13:38:33.836] 
  [13:38:33.836] getGlobalsAndPackages() ... DONE
  [13:38:33.837] List of 1
  [13:38:33.837]  $ ...future.x_ii: NULL
  [13:38:33.837]  - attr(*, "where")=List of 1
  [13:38:33.837]   ..$ ...future.x_ii:<environment: 0x5647c6143f30> 
  [13:38:33.837]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:38:33.837]  - attr(*, "resolved")= logi FALSE
  [13:38:33.837]  - attr(*, "total_size")= num 0
  [13:38:33.843]   - R expression:
  [13:38:33.844] {
  [13:38:33.844]     doFuture::registerDoFuture()
  [13:38:33.844]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:38:33.844]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:38:33.844]         {
  [13:38:33.844]             a <- NULL
  [13:38:33.844]             b <- NULL
  [13:38:33.844]         }
  [13:38:33.844]         ...future.env <- environment()
  [13:38:33.844]         local({
  [13:38:33.844]             for (name in names(...future.x_jj)) {
  [13:38:33.844]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:38:33.844]                   inherits = FALSE)
  [13:38:33.844]             }
  [13:38:33.844]         })
  [13:38:33.844]         tryCatch({
  [13:38:33.844]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:38:33.844]                 plan = future::plan("next"))
  [13:38:33.844]         }, error = identity)
  [13:38:33.844]     })
  [13:38:33.844] }
  [13:38:33.845]   - globals: [1] '...future.x_ii'
  [13:38:33.845] List of 1
  [13:38:33.845]  $ ...future.x_ii: NULL
  [13:38:33.845]  - attr(*, "where")=List of 1
  [13:38:33.845]   ..$ ...future.x_ii:<environment: 0x5647c6143f30> 
  [13:38:33.845]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:38:33.845]  - attr(*, "resolved")= logi FALSE
  [13:38:33.845]  - attr(*, "total_size")= num 0
  [13:38:33.868]   - packages: [1] 'doFuture'
  [13:38:33.874] - identifying globals and packages ... DONE
  [13:38:33.876] Number of chunks: 2
  [13:38:33.877] Number of futures (= number of chunks): 2
  [13:38:33.878] Launching 2 futures (chunks) ...
  [13:38:33.878] Chunk #1 of 2 ...
  [13:38:33.878]  - Finding globals in 'args_list' chunk #1 ...
  [13:38:33.895] getGlobalsAndPackages() ...
  [13:38:33.895] Searching for globals...
  [13:38:33.896] 
  [13:38:33.897] Searching for globals ... DONE
  [13:38:33.897] - globals: [0] <none>
  [13:38:33.897] getGlobalsAndPackages() ... DONE
  [13:38:33.898] 
  [13:38:33.898] 
  [13:38:33.898]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:38:33.907] getGlobalsAndPackages() ...
  [13:38:33.907] - globals passed as-is: [1] '...future.x_ii'
  [13:38:33.908] Resolving globals: FALSE
  [13:38:33.909] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:38:33.909] - globals: [1] '...future.x_ii'
  [13:38:33.910] 
  [13:38:33.910] getGlobalsAndPackages() ... DONE
  [13:38:33.914] Packages needed by the future expression (n = 1): 'doFuture'
  [13:38:33.915] Packages needed by future strategies (n = 1): 'future'
  [13:38:33.937] {
  [13:38:33.937]     {
  [13:38:33.937]         ...future.startTime <- base::Sys.time()
  [13:38:33.937]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:38:33.937]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:38:33.937]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:38:33.937]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:38:33.937]             future.resolve.recursive = NULL, width = 80L)
  [13:38:33.937]         {
  [13:38:33.937]             {
  [13:38:33.937]                 {
  [13:38:33.937]                   {
  [13:38:33.937]                     has_future <- base::requireNamespace("future", 
  [13:38:33.937]                       quietly = TRUE)
  [13:38:33.937]                     version <- if (has_future) 
  [13:38:33.937]                       utils::packageVersion("future")
  [13:38:33.937]                     else NULL
  [13:38:33.937]                     if (!has_future || version < "1.8.0") {
  [13:38:33.937]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:38:33.937]                         "", base::R.version$version.string), 
  [13:38:33.937]                         platform = base::sprintf("%s (%s-bit)", 
  [13:38:33.937]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:38:33.937]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:38:33.937]                           "release", "version")], collapse = " "), 
  [13:38:33.937]                         hostname = base::Sys.info()[["nodename"]])
  [13:38:33.937]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:38:33.937]                         info)
  [13:38:33.937]                       info <- base::paste(info, collapse = "; ")
  [13:38:33.937]                       if (!has_future) {
  [13:38:33.937]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:38:33.937]                           info)
  [13:38:33.937]                       }
  [13:38:33.937]                       else {
  [13:38:33.937]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:38:33.937]                           info, version)
  [13:38:33.937]                       }
  [13:38:33.937]                       base::stop(msg)
  [13:38:33.937]                     }
  [13:38:33.937]                   }
  [13:38:33.937]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:38:33.937]                   base::options(mc.cores = 1L)
  [13:38:33.937]                 }
  [13:38:33.937]                 base::local({
  [13:38:33.937]                   for (pkg in c("doFuture", "future")) {
  [13:38:33.937]                     base::loadNamespace(pkg)
  [13:38:33.937]                     base::library(pkg, character.only = TRUE)
  [13:38:33.937]                   }
  [13:38:33.937]                 })
  [13:38:33.937]             }
  [13:38:33.937]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:38:33.937]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:38:33.937]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:38:33.937]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:38:33.937]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:38:33.937]                 ...) 
  [13:38:33.937]             {
  [13:38:33.937]                 if (substitute) 
  [13:38:33.937]                   expr <- substitute(expr)
  [13:38:33.937]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:38:33.937]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:38:33.937]                   globals = globals, persistent = persistent, 
  [13:38:33.937]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:38:33.937]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:38:33.937]                   label = label, ...)
  [13:38:33.937]                 if (!future$lazy) 
  [13:38:33.937]                   future <- run(future)
  [13:38:33.937]                 invisible(future)
  [13:38:33.937]             }), .cleanup = FALSE, .init = FALSE)
  [13:38:33.937]         }
  [13:38:33.937]     }
  [13:38:33.937]     if (base::is.na(TRUE)) {
  [13:38:33.937]     }
  [13:38:33.937]     else {
  [13:38:33.937]         if (TRUE) {
  [13:38:33.937]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:38:33.937]                 open = "w")
  [13:38:33.937]         }
  [13:38:33.937]         else {
  [13:38:33.937]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:38:33.937]                 windows = "NUL", "/dev/null"), open = "w")
  [13:38:33.937]         }
  [13:38:33.937]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:38:33.937]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:38:33.937]             base::sink(type = "output", split = FALSE)
  [13:38:33.937]             base::close(...future.stdout)
  [13:38:33.937]         }, add = TRUE)
  [13:38:33.937]     }
  [13:38:33.937]     ...future.frame <- base::sys.nframe()
  [13:38:33.937]     ...future.conditions <- base::list()
  [13:38:33.937]     ...future.rng <- base::globalenv()$.Random.seed
  [13:38:33.937]     ...future.result <- base::tryCatch({
  [13:38:33.937]         base::withCallingHandlers({
  [13:38:33.937]             ...future.value <- base::withVisible(base::local({
  [13:38:33.937]                 ...future.sendCondition <- local({
  [13:38:33.937]                   sendCondition <- NULL
  [13:38:33.937]                   function(frame = 1L) {
  [13:38:33.937]                     if (is.function(sendCondition)) 
  [13:38:33.937]                       return(sendCondition)
  [13:38:33.937]                     ns <- getNamespace("parallel")
  [13:38:33.937]                     if (exists("sendData", mode = "function", 
  [13:38:33.937]                       envir = ns)) {
  [13:38:33.937]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:38:33.937]                         envir = ns)
  [13:38:33.937]                       envir <- sys.frame(frame)
  [13:38:33.937]                       master <- NULL
  [13:38:33.937]                       while (!identical(envir, .GlobalEnv) && 
  [13:38:33.937]                         !identical(envir, emptyenv())) {
  [13:38:33.937]                         if (exists("master", mode = "list", envir = envir, 
  [13:38:33.937]                           inherits = FALSE)) {
  [13:38:33.937]                           master <- get("master", mode = "list", 
  [13:38:33.937]                             envir = envir, inherits = FALSE)
  [13:38:33.937]                           if (inherits(master, "SOCKnode")) {
  [13:38:33.937]                             sendCondition <<- function(cond) {
  [13:38:33.937]                               data <- list(type = "VALUE", value = cond, 
  [13:38:33.937]                                 success = TRUE)
  [13:38:33.937]                               parallel_sendData(master, data)
  [13:38:33.937]                             }
  [13:38:33.937]                             return(sendCondition)
  [13:38:33.937]                           }
  [13:38:33.937]                         }
  [13:38:33.937]                         frame <- frame + 1L
  [13:38:33.937]                         envir <- sys.frame(frame)
  [13:38:33.937]                       }
  [13:38:33.937]                     }
  [13:38:33.937]                     sendCondition <<- function(cond) NULL
  [13:38:33.937]                   }
  [13:38:33.937]                 })
  [13:38:33.937]                 withCallingHandlers({
  [13:38:33.937]                   {
  [13:38:33.937]                     doFuture::registerDoFuture()
  [13:38:33.937]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:38:33.937]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [13:38:33.937]                       {
  [13:38:33.937]                         a <- NULL
  [13:38:33.937]                         b <- NULL
  [13:38:33.937]                       }
  [13:38:33.937]                       ...future.env <- environment()
  [13:38:33.937]                       local({
  [13:38:33.937]                         for (name in names(...future.x_jj)) {
  [13:38:33.937]                           assign(name, ...future.x_jj[[name]], 
  [13:38:33.937]                             envir = ...future.env, inherits = FALSE)
  [13:38:33.937]                         }
  [13:38:33.937]                       })
  [13:38:33.937]                       tryCatch({
  [13:38:33.937]                         list(a = a, b = b, plan_b = future::plan("list"), 
  [13:38:33.937]                           plan = future::plan("next"))
  [13:38:33.937]                       }, error = identity)
  [13:38:33.937]                     })
  [13:38:33.937]                   }
  [13:38:33.937]                 }, immediateCondition = function(cond) {
  [13:38:33.937]                   sendCondition <- ...future.sendCondition()
  [13:38:33.937]                   sendCondition(cond)
  [13:38:33.937]                   muffleCondition <- function (cond) 
  [13:38:33.937]                   {
  [13:38:33.937]                     inherits <- base::inherits
  [13:38:33.937]                     invokeRestart <- base::invokeRestart
  [13:38:33.937]                     muffled <- FALSE
  [13:38:33.937]                     if (inherits(cond, "message")) {
  [13:38:33.937]                       invokeRestart("muffleMessage")
  [13:38:33.937]                       muffled <- TRUE
  [13:38:33.937]                     }
  [13:38:33.937]                     else if (inherits(cond, "warning")) {
  [13:38:33.937]                       invokeRestart("muffleWarning")
  [13:38:33.937]                       muffled <- TRUE
  [13:38:33.937]                     }
  [13:38:33.937]                     else if (inherits(cond, "condition")) {
  [13:38:33.937]                       computeRestarts <- base::computeRestarts
  [13:38:33.937]                       grepl <- base::grepl
  [13:38:33.937]                       is.null <- base::is.null
  [13:38:33.937]                       restarts <- computeRestarts(cond)
  [13:38:33.937]                       for (restart in restarts) {
  [13:38:33.937]                         name <- restart$name
  [13:38:33.937]                         if (is.null(name)) 
  [13:38:33.937]                           next
  [13:38:33.937]                         if (!grepl("^muffle", name)) 
  [13:38:33.937]                           next
  [13:38:33.937]                         invokeRestart(restart)
  [13:38:33.937]                         muffled <- TRUE
  [13:38:33.937]                         break
  [13:38:33.937]                       }
  [13:38:33.937]                     }
  [13:38:33.937]                     invisible(muffled)
  [13:38:33.937]                   }
  [13:38:33.937]                   muffleCondition(cond)
  [13:38:33.937]                 })
  [13:38:33.937]             }))
  [13:38:33.937]             future::FutureResult(value = ...future.value$value, 
  [13:38:33.937]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:38:33.937]                   ...future.rng), started = ...future.startTime, 
  [13:38:33.937]                 version = "1.8")
  [13:38:33.937]         }, condition = base::local({
  [13:38:33.937]             c <- base::c
  [13:38:33.937]             inherits <- base::inherits
  [13:38:33.937]             invokeRestart <- base::invokeRestart
  [13:38:33.937]             length <- base::length
  [13:38:33.937]             list <- base::list
  [13:38:33.937]             seq.int <- base::seq.int
  [13:38:33.937]             signalCondition <- base::signalCondition
  [13:38:33.937]             sys.calls <- base::sys.calls
  [13:38:33.937]             Sys.time <- base::Sys.time
  [13:38:33.937]             `[[` <- base::`[[`
  [13:38:33.937]             `+` <- base::`+`
  [13:38:33.937]             `<<-` <- base::`<<-`
  [13:38:33.937]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:38:33.937]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:38:33.937]                   3L)]
  [13:38:33.937]             }
  [13:38:33.937]             function(cond) {
  [13:38:33.937]                 if (inherits(cond, "error")) {
  [13:38:33.937]                   ...future.conditions[[length(...future.conditions) + 
  [13:38:33.937]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:38:33.937]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:38:33.937]                   signalCondition(cond)
  [13:38:33.937]                 }
  [13:38:33.937]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:38:33.937]                 ))) {
  [13:38:33.937]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:38:33.937]                   ...future.conditions[[length(...future.conditions) + 
  [13:38:33.937]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:38:33.937]                   if (!signal) {
  [13:38:33.937]                     muffleCondition <- function (cond) 
  [13:38:33.937]                     {
  [13:38:33.937]                       inherits <- base::inherits
  [13:38:33.937]                       invokeRestart <- base::invokeRestart
  [13:38:33.937]                       muffled <- FALSE
  [13:38:33.937]                       if (inherits(cond, "message")) {
  [13:38:33.937]                         invokeRestart("muffleMessage")
  [13:38:33.937]                         muffled <- TRUE
  [13:38:33.937]                       }
  [13:38:33.937]                       else if (inherits(cond, "warning")) {
  [13:38:33.937]                         invokeRestart("muffleWarning")
  [13:38:33.937]                         muffled <- TRUE
  [13:38:33.937]                       }
  [13:38:33.937]                       else if (inherits(cond, "condition")) {
  [13:38:33.937]                         computeRestarts <- base::computeRestarts
  [13:38:33.937]                         grepl <- base::grepl
  [13:38:33.937]                         is.null <- base::is.null
  [13:38:33.937]                         restarts <- computeRestarts(cond)
  [13:38:33.937]                         for (restart in restarts) {
  [13:38:33.937]                           name <- restart$name
  [13:38:33.937]                           if (is.null(name)) 
  [13:38:33.937]                             next
  [13:38:33.937]                           if (!grepl("^muffle", name)) 
  [13:38:33.937]                             next
  [13:38:33.937]                           invokeRestart(restart)
  [13:38:33.937]                           muffled <- TRUE
  [13:38:33.937]                           break
  [13:38:33.937]                         }
  [13:38:33.937]                       }
  [13:38:33.937]                       invisible(muffled)
  [13:38:33.937]                     }
  [13:38:33.937]                     muffleCondition(cond)
  [13:38:33.937]                   }
  [13:38:33.937]                 }
  [13:38:33.937]             }
  [13:38:33.937]         }))
  [13:38:33.937]     }, error = function(ex) {
  [13:38:33.937]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:38:33.937]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:38:33.937]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:38:33.937]     }, finally = {
  [13:38:33.937]         {
  [13:38:33.937]             {
  [13:38:33.937]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:38:33.937]             }
  [13:38:33.937]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:38:33.937]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:38:33.937]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:38:33.937]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:38:33.937]                 ...) 
  [13:38:33.937]             {
  [13:38:33.937]                 if (substitute) 
  [13:38:33.937]                   expr <- substitute(expr)
  [13:38:33.937]                 if (is.function(workers)) 
  [13:38:33.937]                   workers <- workers()
  [13:38:33.937]                 workers <- as.integer(workers)
  [13:38:33.937]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:38:33.937]                   workers >= 1)
  [13:38:33.937]                 if (workers == 1L) {
  [13:38:33.937]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:38:33.937]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:38:33.937]                     local = TRUE, label = label, ...))
  [13:38:33.937]                 }
  [13:38:33.937]                 workers <- ClusterRegistry("start", workers = workers)
  [13:38:33.937]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:38:33.937]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:38:33.937]                   globals = globals, persistent = persistent, 
  [13:38:33.937]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:38:33.937]                   label = label, ...)
  [13:38:33.937]                 if (!future$lazy) 
  [13:38:33.937]                   future <- run(future)
  [13:38:33.937]                 invisible(future)
  [13:38:33.937]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:38:33.937]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:38:33.937]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [13:38:33.937]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:38:33.937]                 label = NULL, ...) 
  [13:38:33.937]             {
  [13:38:33.937]                 if (substitute) 
  [13:38:33.937]                   expr <- substitute(expr)
  [13:38:33.937]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:38:33.937]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:38:33.937]                   globals = globals, persistent = persistent, 
  [13:38:33.937]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:38:33.937]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:38:33.937]                   label = label, ...)
  [13:38:33.937]                 if (!future$lazy) 
  [13:38:33.937]                   future <- run(future)
  [13:38:33.937]                 invisible(future)
  [13:38:33.937]             }), .cleanup = FALSE, .init = FALSE)
  [13:38:33.937]         }
  [13:38:33.937]         base::options(...future.oldOptions)
  [13:38:33.937]     })
  [13:38:33.937]     Sys.time
  [13:38:33.937]     if (base::is.na(TRUE)) {
  [13:38:33.937]     }
  [13:38:33.937]     else {
  [13:38:33.937]         base::sink(type = "output", split = FALSE)
  [13:38:33.937]         if (TRUE) {
  [13:38:33.937]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:38:33.937]         }
  [13:38:33.937]         else {
  [13:38:33.937]             ...future.result["stdout"] <- base::list(NULL)
  [13:38:33.937]         }
  [13:38:33.937]         base::close(...future.stdout)
  [13:38:33.937]         ...future.stdout <- NULL
  [13:38:33.937]     }
  [13:38:33.937]     ...future.result$conditions <- ...future.conditions
  [13:38:33.937]     ...future.result
  [13:38:33.937] }
  [13:38:33.959] Exporting 1 global objects (336 bytes) to cluster node #1 ...
  [13:38:33.959] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ...
  [13:38:33.961] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ... DONE
  [13:38:33.961] Exporting 1 global objects (336 bytes) to cluster node #1 ... DONE
  [13:38:33.963] MultisessionFuture started
  [13:38:33.963] Chunk #1 of 2 ... DONE
  [13:38:33.963] Chunk #2 of 2 ...
  [13:38:33.964]  - Finding globals in 'args_list' chunk #2 ...
  [13:38:33.964] getGlobalsAndPackages() ...
  [13:38:33.964] Searching for globals...
  [13:38:33.965] 
  [13:38:33.965] Searching for globals ... DONE
  [13:38:33.966] - globals: [0] <none>
  [13:38:33.966] getGlobalsAndPackages() ... DONE
  [13:38:33.966] 
  [13:38:33.967] 
  [13:38:33.967]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:38:33.976] getGlobalsAndPackages() ...
  [13:38:33.977] - globals passed as-is: [1] '...future.x_ii'
  [13:38:33.977] Resolving globals: FALSE
  [13:38:33.978] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:38:33.979] - globals: [1] '...future.x_ii'
  [13:38:33.979] 
  [13:38:33.980] getGlobalsAndPackages() ... DONE
  [13:38:33.984] Packages needed by the future expression (n = 1): 'doFuture'
  [13:38:33.985] Packages needed by future strategies (n = 1): 'future'
  [13:38:33.991] {
  [13:38:33.991]     {
  [13:38:33.991]         ...future.startTime <- base::Sys.time()
  [13:38:33.991]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:38:33.991]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:38:33.991]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:38:33.991]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:38:33.991]             future.resolve.recursive = NULL, width = 80L)
  [13:38:33.991]         {
  [13:38:33.991]             {
  [13:38:33.991]                 {
  [13:38:33.991]                   {
  [13:38:33.991]                     has_future <- base::requireNamespace("future", 
  [13:38:33.991]                       quietly = TRUE)
  [13:38:33.991]                     version <- if (has_future) 
  [13:38:33.991]                       utils::packageVersion("future")
  [13:38:33.991]                     else NULL
  [13:38:33.991]                     if (!has_future || version < "1.8.0") {
  [13:38:33.991]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:38:33.991]                         "", base::R.version$version.string), 
  [13:38:33.991]                         platform = base::sprintf("%s (%s-bit)", 
  [13:38:33.991]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:38:33.991]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:38:33.991]                           "release", "version")], collapse = " "), 
  [13:38:33.991]                         hostname = base::Sys.info()[["nodename"]])
  [13:38:33.991]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:38:33.991]                         info)
  [13:38:33.991]                       info <- base::paste(info, collapse = "; ")
  [13:38:33.991]                       if (!has_future) {
  [13:38:33.991]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:38:33.991]                           info)
  [13:38:33.991]                       }
  [13:38:33.991]                       else {
  [13:38:33.991]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:38:33.991]                           info, version)
  [13:38:33.991]                       }
  [13:38:33.991]                       base::stop(msg)
  [13:38:33.991]                     }
  [13:38:33.991]                   }
  [13:38:33.991]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:38:33.991]                   base::options(mc.cores = 1L)
  [13:38:33.991]                 }
  [13:38:33.991]                 base::local({
  [13:38:33.991]                   for (pkg in c("doFuture", "future")) {
  [13:38:33.991]                     base::loadNamespace(pkg)
  [13:38:33.991]                     base::library(pkg, character.only = TRUE)
  [13:38:33.991]                   }
  [13:38:33.991]                 })
  [13:38:33.991]             }
  [13:38:33.991]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:38:33.991]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:38:33.991]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:38:33.991]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:38:33.991]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:38:33.991]                 ...) 
  [13:38:33.991]             {
  [13:38:33.991]                 if (substitute) 
  [13:38:33.991]                   expr <- substitute(expr)
  [13:38:33.991]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:38:33.991]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:38:33.991]                   globals = globals, persistent = persistent, 
  [13:38:33.991]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:38:33.991]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:38:33.991]                   label = label, ...)
  [13:38:33.991]                 if (!future$lazy) 
  [13:38:33.991]                   future <- run(future)
  [13:38:33.991]                 invisible(future)
  [13:38:33.991]             }), .cleanup = FALSE, .init = FALSE)
  [13:38:33.991]         }
  [13:38:33.991]     }
  [13:38:33.991]     if (base::is.na(TRUE)) {
  [13:38:33.991]     }
  [13:38:33.991]     else {
  [13:38:33.991]         if (TRUE) {
  [13:38:33.991]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:38:33.991]                 open = "w")
  [13:38:33.991]         }
  [13:38:33.991]         else {
  [13:38:33.991]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:38:33.991]                 windows = "NUL", "/dev/null"), open = "w")
  [13:38:33.991]         }
  [13:38:33.991]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:38:33.991]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:38:33.991]             base::sink(type = "output", split = FALSE)
  [13:38:33.991]             base::close(...future.stdout)
  [13:38:33.991]         }, add = TRUE)
  [13:38:33.991]     }
  [13:38:33.991]     ...future.frame <- base::sys.nframe()
  [13:38:33.991]     ...future.conditions <- base::list()
  [13:38:33.991]     ...future.rng <- base::globalenv()$.Random.seed
  [13:38:33.991]     ...future.result <- base::tryCatch({
  [13:38:33.991]         base::withCallingHandlers({
  [13:38:33.991]             ...future.value <- base::withVisible(base::local({
  [13:38:33.991]                 ...future.sendCondition <- local({
  [13:38:33.991]                   sendCondition <- NULL
  [13:38:33.991]                   function(frame = 1L) {
  [13:38:33.991]                     if (is.function(sendCondition)) 
  [13:38:33.991]                       return(sendCondition)
  [13:38:33.991]                     ns <- getNamespace("parallel")
  [13:38:33.991]                     if (exists("sendData", mode = "function", 
  [13:38:33.991]                       envir = ns)) {
  [13:38:33.991]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:38:33.991]                         envir = ns)
  [13:38:33.991]                       envir <- sys.frame(frame)
  [13:38:33.991]                       master <- NULL
  [13:38:33.991]                       while (!identical(envir, .GlobalEnv) && 
  [13:38:33.991]                         !identical(envir, emptyenv())) {
  [13:38:33.991]                         if (exists("master", mode = "list", envir = envir, 
  [13:38:33.991]                           inherits = FALSE)) {
  [13:38:33.991]                           master <- get("master", mode = "list", 
  [13:38:33.991]                             envir = envir, inherits = FALSE)
  [13:38:33.991]                           if (inherits(master, "SOCKnode")) {
  [13:38:33.991]                             sendCondition <<- function(cond) {
  [13:38:33.991]                               data <- list(type = "VALUE", value = cond, 
  [13:38:33.991]                                 success = TRUE)
  [13:38:33.991]                               parallel_sendData(master, data)
  [13:38:33.991]                             }
  [13:38:33.991]                             return(sendCondition)
  [13:38:33.991]                           }
  [13:38:33.991]                         }
  [13:38:33.991]                         frame <- frame + 1L
  [13:38:33.991]                         envir <- sys.frame(frame)
  [13:38:33.991]                       }
  [13:38:33.991]                     }
  [13:38:33.991]                     sendCondition <<- function(cond) NULL
  [13:38:33.991]                   }
  [13:38:33.991]                 })
  [13:38:33.991]                 withCallingHandlers({
  [13:38:33.991]                   {
  [13:38:33.991]                     doFuture::registerDoFuture()
  [13:38:33.991]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:38:33.991]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [13:38:33.991]                       {
  [13:38:33.991]                         a <- NULL
  [13:38:33.991]                         b <- NULL
  [13:38:33.991]                       }
  [13:38:33.991]                       ...future.env <- environment()
  [13:38:33.991]                       local({
  [13:38:33.991]                         for (name in names(...future.x_jj)) {
  [13:38:33.991]                           assign(name, ...future.x_jj[[name]], 
  [13:38:33.991]                             envir = ...future.env, inherits = FALSE)
  [13:38:33.991]                         }
  [13:38:33.991]                       })
  [13:38:33.991]                       tryCatch({
  [13:38:33.991]                         list(a = a, b = b, plan_b = future::plan("list"), 
  [13:38:33.991]                           plan = future::plan("next"))
  [13:38:33.991]                       }, error = identity)
  [13:38:33.991]                     })
  [13:38:33.991]                   }
  [13:38:33.991]                 }, immediateCondition = function(cond) {
  [13:38:33.991]                   sendCondition <- ...future.sendCondition()
  [13:38:33.991]                   sendCondition(cond)
  [13:38:33.991]                   muffleCondition <- function (cond) 
  [13:38:33.991]                   {
  [13:38:33.991]                     inherits <- base::inherits
  [13:38:33.991]                     invokeRestart <- base::invokeRestart
  [13:38:33.991]                     muffled <- FALSE
  [13:38:33.991]                     if (inherits(cond, "message")) {
  [13:38:33.991]                       invokeRestart("muffleMessage")
  [13:38:33.991]                       muffled <- TRUE
  [13:38:33.991]                     }
  [13:38:33.991]                     else if (inherits(cond, "warning")) {
  [13:38:33.991]                       invokeRestart("muffleWarning")
  [13:38:33.991]                       muffled <- TRUE
  [13:38:33.991]                     }
  [13:38:33.991]                     else if (inherits(cond, "condition")) {
  [13:38:33.991]                       computeRestarts <- base::computeRestarts
  [13:38:33.991]                       grepl <- base::grepl
  [13:38:33.991]                       is.null <- base::is.null
  [13:38:33.991]                       restarts <- computeRestarts(cond)
  [13:38:33.991]                       for (restart in restarts) {
  [13:38:33.991]                         name <- restart$name
  [13:38:33.991]                         if (is.null(name)) 
  [13:38:33.991]                           next
  [13:38:33.991]                         if (!grepl("^muffle", name)) 
  [13:38:33.991]                           next
  [13:38:33.991]                         invokeRestart(restart)
  [13:38:33.991]                         muffled <- TRUE
  [13:38:33.991]                         break
  [13:38:33.991]                       }
  [13:38:33.991]                     }
  [13:38:33.991]                     invisible(muffled)
  [13:38:33.991]                   }
  [13:38:33.991]                   muffleCondition(cond)
  [13:38:33.991]                 })
  [13:38:33.991]             }))
  [13:38:33.991]             future::FutureResult(value = ...future.value$value, 
  [13:38:33.991]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:38:33.991]                   ...future.rng), started = ...future.startTime, 
  [13:38:33.991]                 version = "1.8")
  [13:38:33.991]         }, condition = base::local({
  [13:38:33.991]             c <- base::c
  [13:38:33.991]             inherits <- base::inherits
  [13:38:33.991]             invokeRestart <- base::invokeRestart
  [13:38:33.991]             length <- base::length
  [13:38:33.991]             list <- base::list
  [13:38:33.991]             seq.int <- base::seq.int
  [13:38:33.991]             signalCondition <- base::signalCondition
  [13:38:33.991]             sys.calls <- base::sys.calls
  [13:38:33.991]             Sys.time <- base::Sys.time
  [13:38:33.991]             `[[` <- base::`[[`
  [13:38:33.991]             `+` <- base::`+`
  [13:38:33.991]             `<<-` <- base::`<<-`
  [13:38:33.991]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:38:33.991]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:38:33.991]                   3L)]
  [13:38:33.991]             }
  [13:38:33.991]             function(cond) {
  [13:38:33.991]                 if (inherits(cond, "error")) {
  [13:38:33.991]                   ...future.conditions[[length(...future.conditions) + 
  [13:38:33.991]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:38:33.991]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:38:33.991]                   signalCondition(cond)
  [13:38:33.991]                 }
  [13:38:33.991]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:38:33.991]                 ))) {
  [13:38:33.991]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:38:33.991]                   ...future.conditions[[length(...future.conditions) + 
  [13:38:33.991]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:38:33.991]                   if (!signal) {
  [13:38:33.991]                     muffleCondition <- function (cond) 
  [13:38:33.991]                     {
  [13:38:33.991]                       inherits <- base::inherits
  [13:38:33.991]                       invokeRestart <- base::invokeRestart
  [13:38:33.991]                       muffled <- FALSE
  [13:38:33.991]                       if (inherits(cond, "message")) {
  [13:38:33.991]                         invokeRestart("muffleMessage")
  [13:38:33.991]                         muffled <- TRUE
  [13:38:33.991]                       }
  [13:38:33.991]                       else if (inherits(cond, "warning")) {
  [13:38:33.991]                         invokeRestart("muffleWarning")
  [13:38:33.991]                         muffled <- TRUE
  [13:38:33.991]                       }
  [13:38:33.991]                       else if (inherits(cond, "condition")) {
  [13:38:33.991]                         computeRestarts <- base::computeRestarts
  [13:38:33.991]                         grepl <- base::grepl
  [13:38:33.991]                         is.null <- base::is.null
  [13:38:33.991]                         restarts <- computeRestarts(cond)
  [13:38:33.991]                         for (restart in restarts) {
  [13:38:33.991]                           name <- restart$name
  [13:38:33.991]                           if (is.null(name)) 
  [13:38:33.991]                             next
  [13:38:33.991]                           if (!grepl("^muffle", name)) 
  [13:38:33.991]                             next
  [13:38:33.991]                           invokeRestart(restart)
  [13:38:33.991]                           muffled <- TRUE
  [13:38:33.991]                           break
  [13:38:33.991]                         }
  [13:38:33.991]                       }
  [13:38:33.991]                       invisible(muffled)
  [13:38:33.991]                     }
  [13:38:33.991]                     muffleCondition(cond)
  [13:38:33.991]                   }
  [13:38:33.991]                 }
  [13:38:33.991]             }
  [13:38:33.991]         }))
  [13:38:33.991]     }, error = function(ex) {
  [13:38:33.991]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:38:33.991]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:38:33.991]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:38:33.991]     }, finally = {
  [13:38:33.991]         {
  [13:38:33.991]             {
  [13:38:33.991]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:38:33.991]             }
  [13:38:33.991]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:38:33.991]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:38:33.991]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:38:33.991]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:38:33.991]                 ...) 
  [13:38:33.991]             {
  [13:38:33.991]                 if (substitute) 
  [13:38:33.991]                   expr <- substitute(expr)
  [13:38:33.991]                 if (is.function(workers)) 
  [13:38:33.991]                   workers <- workers()
  [13:38:33.991]                 workers <- as.integer(workers)
  [13:38:33.991]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:38:33.991]                   workers >= 1)
  [13:38:33.991]                 if (workers == 1L) {
  [13:38:33.991]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:38:33.991]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:38:33.991]                     local = TRUE, label = label, ...))
  [13:38:33.991]                 }
  [13:38:33.991]                 workers <- ClusterRegistry("start", workers = workers)
  [13:38:33.991]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:38:33.991]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:38:33.991]                   globals = globals, persistent = persistent, 
  [13:38:33.991]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:38:33.991]                   label = label, ...)
  [13:38:33.991]                 if (!future$lazy) 
  [13:38:33.991]                   future <- run(future)
  [13:38:33.991]                 invisible(future)
  [13:38:33.991]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:38:33.991]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:38:33.991]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [13:38:33.991]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:38:33.991]                 label = NULL, ...) 
  [13:38:33.991]             {
  [13:38:33.991]                 if (substitute) 
  [13:38:33.991]                   expr <- substitute(expr)
  [13:38:33.991]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:38:33.991]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:38:33.991]                   globals = globals, persistent = persistent, 
  [13:38:33.991]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:38:33.991]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:38:33.991]                   label = label, ...)
  [13:38:33.991]                 if (!future$lazy) 
  [13:38:33.991]                   future <- run(future)
  [13:38:33.991]                 invisible(future)
  [13:38:33.991]             }), .cleanup = FALSE, .init = FALSE)
  [13:38:33.991]         }
  [13:38:33.991]         base::options(...future.oldOptions)
  [13:38:33.991]     })
  [13:38:33.991]     Sys.time
  [13:38:33.991]     if (base::is.na(TRUE)) {
  [13:38:33.991]     }
  [13:38:33.991]     else {
  [13:38:33.991]         base::sink(type = "output", split = FALSE)
  [13:38:33.991]         if (TRUE) {
  [13:38:33.991]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:38:33.991]         }
  [13:38:33.991]         else {
  [13:38:33.991]             ...future.result["stdout"] <- base::list(NULL)
  [13:38:33.991]         }
  [13:38:33.991]         base::close(...future.stdout)
  [13:38:33.991]         ...future.stdout <- NULL
  [13:38:33.991]     }
  [13:38:33.991]     ...future.result$conditions <- ...future.conditions
  [13:38:33.991]     ...future.result
  [13:38:33.991] }
  [13:38:33.999] Exporting 1 global objects (336 bytes) to cluster node #2 ...
  [13:38:33.999] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ...
  [13:38:34.001] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ... DONE
  [13:38:34.001] Exporting 1 global objects (336 bytes) to cluster node #2 ... DONE
  [13:38:34.019] MultisessionFuture started
  [13:38:34.020] Chunk #2 of 2 ... DONE
  [13:38:34.020] Launching 2 futures (chunks) ... DONE
  [13:38:34.021] - resolving futures
  [13:38:34.021]   - gathering results & relaying conditions (except errors)
  [13:38:34.028] resolve() on list ...
  [13:38:34.028]  recursive: 0
  [13:38:34.029]  length: 2
  [13:38:34.029] 
  [13:38:34.210] receiveMessageFromWorker() for ClusterFuture ...
  [13:38:34.211] - Validating connection of MultisessionFuture
  [13:38:34.251] - received message: FutureResult
  [13:38:34.252] - Received FutureResult
  [13:38:34.252] - Erased future from FutureRegistry
  [13:38:34.252] result() for ClusterFuture ...
  [13:38:34.253] - result already collected: FutureResult
  [13:38:34.253] result() for ClusterFuture ... done
  [13:38:34.254] receiveMessageFromWorker() for ClusterFuture ... done
  [13:38:34.254] Future #1
  [13:38:34.254] result() for ClusterFuture ...
  [13:38:34.255] - result already collected: FutureResult
  [13:38:34.255] result() for ClusterFuture ... done
  [13:38:34.255] result() for ClusterFuture ...
  [13:38:34.256] - result already collected: FutureResult
  [13:38:34.256] result() for ClusterFuture ... done
  [13:38:34.257] signalConditionsASAP(MultisessionFuture, pos=1) ...
  [13:38:34.257] - nx: 2
  [13:38:34.257] - relay: TRUE
  [13:38:34.258] - stdout: TRUE
  [13:38:34.258] - signal: TRUE
  [13:38:34.258] - resignal: FALSE
  [13:38:34.259] - force: FALSE
  [13:38:34.259] - relayed: [n=2] FALSE, FALSE
  [13:38:34.259] - queued futures: [n=2] FALSE, FALSE
  [13:38:34.260]  - until=1
  [13:38:34.260]  - relaying element #1
  [13:38:34.260] result() for ClusterFuture ...
  [13:38:34.261] - result already collected: FutureResult
  [13:38:34.261] result() for ClusterFuture ... done
  [13:38:34.261] result() for ClusterFuture ...
  [13:38:34.262] - result already collected: FutureResult
  [13:38:34.262] result() for ClusterFuture ... done
  [13:38:34.263] result() for ClusterFuture ...
  [13:38:34.263] - result already collected: FutureResult
  [13:38:34.263] result() for ClusterFuture ... done
  [13:38:34.264] result() for ClusterFuture ...
  [13:38:34.264] - result already collected: FutureResult
  [13:38:34.264] result() for ClusterFuture ... done
  [13:38:34.265] - relayed: [n=2] TRUE, FALSE
  [13:38:34.265] - queued futures: [n=2] TRUE, FALSE
  [13:38:34.265] signalConditionsASAP(MultisessionFuture, pos=1) ... done
  [13:38:34.266]  length: 1 (resolved future 1)
  [13:38:34.570] receiveMessageFromWorker() for ClusterFuture ...
  [13:38:34.570] - Validating connection of MultisessionFuture
  [13:38:34.572] - received message: FutureResult
  [13:38:34.572] - Received FutureResult
  [13:38:34.572] - Erased future from FutureRegistry
  [13:38:34.573] result() for ClusterFuture ...
  [13:38:34.573] - result already collected: FutureResult
  [13:38:34.573] result() for ClusterFuture ... done
  [13:38:34.574] receiveMessageFromWorker() for ClusterFuture ... done
  [13:38:34.574] Future #2
  [13:38:34.575] result() for ClusterFuture ...
  [13:38:34.575] - result already collected: FutureResult
  [13:38:34.575] result() for ClusterFuture ... done
  [13:38:34.576] result() for ClusterFuture ...
  [13:38:34.576] - result already collected: FutureResult
  [13:38:34.576] result() for ClusterFuture ... done
  [13:38:34.577] signalConditionsASAP(MultisessionFuture, pos=2) ...
  [13:38:34.577] - nx: 2
  [13:38:34.577] - relay: TRUE
  [13:38:34.578] - stdout: TRUE
  [13:38:34.578] - signal: TRUE
  [13:38:34.578] - resignal: FALSE
  [13:38:34.578] - force: FALSE
  [13:38:34.579] - relayed: [n=2] TRUE, FALSE
  [13:38:34.579] - queued futures: [n=2] TRUE, FALSE
  [13:38:34.579]  - until=2
  [13:38:34.580]  - relaying element #2
  [13:38:34.580] result() for ClusterFuture ...
  [13:38:34.580] - result already collected: FutureResult
  [13:38:34.581] result() for ClusterFuture ... done
  [13:38:34.581] result() for ClusterFuture ...
  [13:38:34.581] - result already collected: FutureResult
  [13:38:34.582] result() for ClusterFuture ... done
  [13:38:34.582] result() for ClusterFuture ...
  [13:38:34.599] - result already collected: FutureResult
  [13:38:34.599] result() for ClusterFuture ... done
  [13:38:34.600] result() for ClusterFuture ...
  [13:38:34.600] - result already collected: FutureResult
  [13:38:34.600] result() for ClusterFuture ... done
  [13:38:34.601] - relayed: [n=2] TRUE, TRUE
  [13:38:34.601] - queued futures: [n=2] TRUE, TRUE
  [13:38:34.601] signalConditionsASAP(MultisessionFuture, pos=2) ... done
  [13:38:34.602]  length: 0 (resolved future 2)
  [13:38:34.602] Relaying remaining futures
  [13:38:34.603] signalConditionsASAP(NULL, pos=0) ...
  [13:38:34.603] - nx: 2
  [13:38:34.603] - relay: TRUE
  [13:38:34.604] - stdout: TRUE
  [13:38:34.604] - signal: TRUE
  [13:38:34.604] - resignal: FALSE
  [13:38:34.604] - force: FALSE
  [13:38:34.605] - relayed: [n=2] TRUE, TRUE
  [13:38:34.605] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [13:38:34.606] - relayed: [n=2] TRUE, TRUE
  [13:38:34.606] - queued futures: [n=2] TRUE, TRUE
  [13:38:34.606] signalConditionsASAP(NULL, pos=0) ... done
  [13:38:34.607] resolve() on list ... DONE
  [13:38:34.607] - collecting values of futures
  [13:38:34.607] result() for ClusterFuture ...
  [13:38:34.608] - result already collected: FutureResult
  [13:38:34.608] result() for ClusterFuture ... done
  [13:38:34.608] result() for ClusterFuture ...
  [13:38:34.609] - result already collected: FutureResult
  [13:38:34.609] result() for ClusterFuture ... done
  [13:38:34.610] result() for ClusterFuture ...
  [13:38:34.610] - result already collected: FutureResult
  [13:38:34.610] result() for ClusterFuture ... done
  [13:38:34.611] result() for ClusterFuture ...
  [13:38:34.611] - result already collected: FutureResult
  [13:38:34.611] result() for ClusterFuture ... done
  [13:38:34.612] - accumulating results
  [13:38:34.631] - processing errors (handler = 'stop')
  [13:38:34.631] - extracting results
  [13:38:34.632] doFuture() ... DONE
  - plan(list('multisession', 'cluster')) ... DONE
  - plan(list('cluster', 'sequential')) ...
  [13:38:34.633] plan(): Setting new future strategy stack:
  [13:38:34.634] List of future strategies:
  [13:38:34.634] 1. cluster:
  [13:38:34.634]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:38:34.634]    - tweaked: FALSE
  [13:38:34.634]    - call: plan(list(a = strategy1, b = strategy2))
  [13:38:34.634] 2. sequential:
  [13:38:34.634]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:38:34.634]    - tweaked: FALSE
  [13:38:34.634]    - call: plan(list(a = strategy1, b = strategy2))
  [13:38:34.636] plan(): plan_init() of 'cluster', 'multiprocess', 'future', 'function' ...
  [13:38:34.637] cluster:
  [13:38:34.637] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:38:34.637] - tweaked: FALSE
  [13:38:34.637] - call: plan(list(a = strategy1, b = strategy2))
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 35780
  [local output] Creating node 1 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp2MyXWz/future.parent=15871.3dff160661f8.pid")), silent = TRUE)' -e "file.exists('/tmp/Rtmp2MyXWz/future.parent=15871.3dff160661f8.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:15871:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp2MyXWz/future.parent=15871.3dff160661f8.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=35780 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [local output] Connection with worker #1 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 1 of 2 ... done
  [local output] Creating node 2 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp2MyXWz/future.parent=15871.3dff31c8110e.pid")), silent = TRUE)' -e "file.exists('/tmp/Rtmp2MyXWz/future.parent=15871.3dff31c8110e.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:15871:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp2MyXWz/future.parent=15871.3dff31c8110e.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=35780 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #2 on 'localhost' to connect back
  [local output] Connection with worker #2 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 2 of 2 ... done
  [13:38:51.249] getGlobalsAndPackages() ...
  [13:38:51.249] Not searching for globals
  [13:38:51.249] - globals: [0] <none>
  [13:38:51.250] getGlobalsAndPackages() ... DONE
  [13:38:51.254] Packages needed by the future expression (n = 0): <none>
  [13:38:51.254] Packages needed by future strategies (n = 1): 'future'
  [13:38:51.264] {
  [13:38:51.264]     {
  [13:38:51.264]         ...future.startTime <- base::Sys.time()
  [13:38:51.264]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:38:51.264]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:38:51.264]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:38:51.264]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:38:51.264]             future.resolve.recursive = NULL, width = 80L)
  [13:38:51.264]         {
  [13:38:51.264]             {
  [13:38:51.264]                 {
  [13:38:51.264]                   has_future <- base::requireNamespace("future", 
  [13:38:51.264]                     quietly = TRUE)
  [13:38:51.264]                   version <- if (has_future) 
  [13:38:51.264]                     utils::packageVersion("future")
  [13:38:51.264]                   else NULL
  [13:38:51.264]                   if (!has_future || version < "1.8.0") {
  [13:38:51.264]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:38:51.264]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:38:51.264]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:38:51.264]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:38:51.264]                         "release", "version")], collapse = " "), 
  [13:38:51.264]                       hostname = base::Sys.info()[["nodename"]])
  [13:38:51.264]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:38:51.264]                       info)
  [13:38:51.264]                     info <- base::paste(info, collapse = "; ")
  [13:38:51.264]                     if (!has_future) {
  [13:38:51.264]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:38:51.264]                         info)
  [13:38:51.264]                     }
  [13:38:51.264]                     else {
  [13:38:51.264]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:38:51.264]                         info, version)
  [13:38:51.264]                     }
  [13:38:51.264]                     base::stop(msg)
  [13:38:51.264]                   }
  [13:38:51.264]                 }
  [13:38:51.264]                 base::local({
  [13:38:51.264]                   for (pkg in "future") {
  [13:38:51.264]                     base::loadNamespace(pkg)
  [13:38:51.264]                     base::library(pkg, character.only = TRUE)
  [13:38:51.264]                   }
  [13:38:51.264]                 })
  [13:38:51.264]             }
  [13:38:51.264]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:38:51.264]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:38:51.264]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:38:51.264]                 label = NULL, ...) 
  [13:38:51.264]             {
  [13:38:51.264]                 if (substitute) 
  [13:38:51.264]                   expr <- substitute(expr)
  [13:38:51.264]                 local <- as.logical(local)
  [13:38:51.264]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:38:51.264]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:38:51.264]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:38:51.264]                   label = label, ...)
  [13:38:51.264]                 if (!future$lazy) 
  [13:38:51.264]                   future <- run(future)
  [13:38:51.264]                 invisible(future)
  [13:38:51.264]             }), .cleanup = FALSE, .init = FALSE)
  [13:38:51.264]         }
  [13:38:51.264]     }
  [13:38:51.264]     if (base::is.na(TRUE)) {
  [13:38:51.264]     }
  [13:38:51.264]     else {
  [13:38:51.264]         if (TRUE) {
  [13:38:51.264]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:38:51.264]                 open = "w")
  [13:38:51.264]         }
  [13:38:51.264]         else {
  [13:38:51.264]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:38:51.264]                 windows = "NUL", "/dev/null"), open = "w")
  [13:38:51.264]         }
  [13:38:51.264]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:38:51.264]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:38:51.264]             base::sink(type = "output", split = FALSE)
  [13:38:51.264]             base::close(...future.stdout)
  [13:38:51.264]         }, add = TRUE)
  [13:38:51.264]     }
  [13:38:51.264]     ...future.frame <- base::sys.nframe()
  [13:38:51.264]     ...future.conditions <- base::list()
  [13:38:51.264]     ...future.rng <- base::globalenv()$.Random.seed
  [13:38:51.264]     ...future.result <- base::tryCatch({
  [13:38:51.264]         base::withCallingHandlers({
  [13:38:51.264]             ...future.value <- base::withVisible(base::local({
  [13:38:51.264]                 ...future.sendCondition <- local({
  [13:38:51.264]                   sendCondition <- NULL
  [13:38:51.264]                   function(frame = 1L) {
  [13:38:51.264]                     if (is.function(sendCondition)) 
  [13:38:51.264]                       return(sendCondition)
  [13:38:51.264]                     ns <- getNamespace("parallel")
  [13:38:51.264]                     if (exists("sendData", mode = "function", 
  [13:38:51.264]                       envir = ns)) {
  [13:38:51.264]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:38:51.264]                         envir = ns)
  [13:38:51.264]                       envir <- sys.frame(frame)
  [13:38:51.264]                       master <- NULL
  [13:38:51.264]                       while (!identical(envir, .GlobalEnv) && 
  [13:38:51.264]                         !identical(envir, emptyenv())) {
  [13:38:51.264]                         if (exists("master", mode = "list", envir = envir, 
  [13:38:51.264]                           inherits = FALSE)) {
  [13:38:51.264]                           master <- get("master", mode = "list", 
  [13:38:51.264]                             envir = envir, inherits = FALSE)
  [13:38:51.264]                           if (inherits(master, "SOCKnode")) {
  [13:38:51.264]                             sendCondition <<- function(cond) {
  [13:38:51.264]                               data <- list(type = "VALUE", value = cond, 
  [13:38:51.264]                                 success = TRUE)
  [13:38:51.264]                               parallel_sendData(master, data)
  [13:38:51.264]                             }
  [13:38:51.264]                             return(sendCondition)
  [13:38:51.264]                           }
  [13:38:51.264]                         }
  [13:38:51.264]                         frame <- frame + 1L
  [13:38:51.264]                         envir <- sys.frame(frame)
  [13:38:51.264]                       }
  [13:38:51.264]                     }
  [13:38:51.264]                     sendCondition <<- function(cond) NULL
  [13:38:51.264]                   }
  [13:38:51.264]                 })
  [13:38:51.264]                 withCallingHandlers({
  [13:38:51.264]                   NA
  [13:38:51.264]                 }, immediateCondition = function(cond) {
  [13:38:51.264]                   sendCondition <- ...future.sendCondition()
  [13:38:51.264]                   sendCondition(cond)
  [13:38:51.264]                   muffleCondition <- function (cond) 
  [13:38:51.264]                   {
  [13:38:51.264]                     inherits <- base::inherits
  [13:38:51.264]                     invokeRestart <- base::invokeRestart
  [13:38:51.264]                     muffled <- FALSE
  [13:38:51.264]                     if (inherits(cond, "message")) {
  [13:38:51.264]                       invokeRestart("muffleMessage")
  [13:38:51.264]                       muffled <- TRUE
  [13:38:51.264]                     }
  [13:38:51.264]                     else if (inherits(cond, "warning")) {
  [13:38:51.264]                       invokeRestart("muffleWarning")
  [13:38:51.264]                       muffled <- TRUE
  [13:38:51.264]                     }
  [13:38:51.264]                     else if (inherits(cond, "condition")) {
  [13:38:51.264]                       computeRestarts <- base::computeRestarts
  [13:38:51.264]                       grepl <- base::grepl
  [13:38:51.264]                       is.null <- base::is.null
  [13:38:51.264]                       restarts <- computeRestarts(cond)
  [13:38:51.264]                       for (restart in restarts) {
  [13:38:51.264]                         name <- restart$name
  [13:38:51.264]                         if (is.null(name)) 
  [13:38:51.264]                           next
  [13:38:51.264]                         if (!grepl("^muffle", name)) 
  [13:38:51.264]                           next
  [13:38:51.264]                         invokeRestart(restart)
  [13:38:51.264]                         muffled <- TRUE
  [13:38:51.264]                         break
  [13:38:51.264]                       }
  [13:38:51.264]                     }
  [13:38:51.264]                     invisible(muffled)
  [13:38:51.264]                   }
  [13:38:51.264]                   muffleCondition(cond)
  [13:38:51.264]                 })
  [13:38:51.264]             }))
  [13:38:51.264]             future::FutureResult(value = ...future.value$value, 
  [13:38:51.264]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:38:51.264]                   ...future.rng), started = ...future.startTime, 
  [13:38:51.264]                 version = "1.8")
  [13:38:51.264]         }, condition = base::local({
  [13:38:51.264]             c <- base::c
  [13:38:51.264]             inherits <- base::inherits
  [13:38:51.264]             invokeRestart <- base::invokeRestart
  [13:38:51.264]             length <- base::length
  [13:38:51.264]             list <- base::list
  [13:38:51.264]             seq.int <- base::seq.int
  [13:38:51.264]             signalCondition <- base::signalCondition
  [13:38:51.264]             sys.calls <- base::sys.calls
  [13:38:51.264]             Sys.time <- base::Sys.time
  [13:38:51.264]             `[[` <- base::`[[`
  [13:38:51.264]             `+` <- base::`+`
  [13:38:51.264]             `<<-` <- base::`<<-`
  [13:38:51.264]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:38:51.264]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:38:51.264]                   3L)]
  [13:38:51.264]             }
  [13:38:51.264]             function(cond) {
  [13:38:51.264]                 if (inherits(cond, "error")) {
  [13:38:51.264]                   ...future.conditions[[length(...future.conditions) + 
  [13:38:51.264]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:38:51.264]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:38:51.264]                   signalCondition(cond)
  [13:38:51.264]                 }
  [13:38:51.264]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:38:51.264]                 ))) {
  [13:38:51.264]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:38:51.264]                   ...future.conditions[[length(...future.conditions) + 
  [13:38:51.264]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:38:51.264]                   if (!signal) {
  [13:38:51.264]                     muffleCondition <- function (cond) 
  [13:38:51.264]                     {
  [13:38:51.264]                       inherits <- base::inherits
  [13:38:51.264]                       invokeRestart <- base::invokeRestart
  [13:38:51.264]                       muffled <- FALSE
  [13:38:51.264]                       if (inherits(cond, "message")) {
  [13:38:51.264]                         invokeRestart("muffleMessage")
  [13:38:51.264]                         muffled <- TRUE
  [13:38:51.264]                       }
  [13:38:51.264]                       else if (inherits(cond, "warning")) {
  [13:38:51.264]                         invokeRestart("muffleWarning")
  [13:38:51.264]                         muffled <- TRUE
  [13:38:51.264]                       }
  [13:38:51.264]                       else if (inherits(cond, "condition")) {
  [13:38:51.264]                         computeRestarts <- base::computeRestarts
  [13:38:51.264]                         grepl <- base::grepl
  [13:38:51.264]                         is.null <- base::is.null
  [13:38:51.264]                         restarts <- computeRestarts(cond)
  [13:38:51.264]                         for (restart in restarts) {
  [13:38:51.264]                           name <- restart$name
  [13:38:51.264]                           if (is.null(name)) 
  [13:38:51.264]                             next
  [13:38:51.264]                           if (!grepl("^muffle", name)) 
  [13:38:51.264]                             next
  [13:38:51.264]                           invokeRestart(restart)
  [13:38:51.264]                           muffled <- TRUE
  [13:38:51.264]                           break
  [13:38:51.264]                         }
  [13:38:51.264]                       }
  [13:38:51.264]                       invisible(muffled)
  [13:38:51.264]                     }
  [13:38:51.264]                     muffleCondition(cond)
  [13:38:51.264]                   }
  [13:38:51.264]                 }
  [13:38:51.264]             }
  [13:38:51.264]         }))
  [13:38:51.264]     }, error = function(ex) {
  [13:38:51.264]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:38:51.264]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:38:51.264]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:38:51.264]     }, finally = {
  [13:38:51.264]         {
  [13:38:51.264]             NULL
  [13:38:51.264]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:38:51.264]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:38:51.264]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:38:51.264]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:38:51.264]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:38:51.264]                 ...) 
  [13:38:51.264]             {
  [13:38:51.264]                 if (substitute) 
  [13:38:51.264]                   expr <- substitute(expr)
  [13:38:51.264]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:38:51.264]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:38:51.264]                   globals = globals, persistent = persistent, 
  [13:38:51.264]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:38:51.264]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:38:51.264]                   label = label, ...)
  [13:38:51.264]                 if (!future$lazy) 
  [13:38:51.264]                   future <- run(future)
  [13:38:51.264]                 invisible(future)
  [13:38:51.264]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:38:51.264]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [13:38:51.264]                 earlySignal = FALSE, label = NULL, ...) 
  [13:38:51.264]             {
  [13:38:51.264]                 if (substitute) 
  [13:38:51.264]                   expr <- substitute(expr)
  [13:38:51.264]                 local <- as.logical(local)
  [13:38:51.264]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:38:51.264]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:38:51.264]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:38:51.264]                   label = label, ...)
  [13:38:51.264]                 if (!future$lazy) 
  [13:38:51.264]                   future <- run(future)
  [13:38:51.264]                 invisible(future)
  [13:38:51.264]             }), .cleanup = FALSE, .init = FALSE)
  [13:38:51.264]         }
  [13:38:51.264]         base::options(...future.oldOptions)
  [13:38:51.264]     })
  [13:38:51.264]     Sys.time
  [13:38:51.264]     if (base::is.na(TRUE)) {
  [13:38:51.264]     }
  [13:38:51.264]     else {
  [13:38:51.264]         base::sink(type = "output", split = FALSE)
  [13:38:51.264]         if (TRUE) {
  [13:38:51.264]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:38:51.264]         }
  [13:38:51.264]         else {
  [13:38:51.264]             ...future.result["stdout"] <- base::list(NULL)
  [13:38:51.264]         }
  [13:38:51.264]         base::close(...future.stdout)
  [13:38:51.264]         ...future.stdout <- NULL
  [13:38:51.264]     }
  [13:38:51.264]     ...future.result$conditions <- ...future.conditions
  [13:38:51.264]     ...future.result
  [13:38:51.264] }
  [13:38:51.284] ClusterFuture started
  [13:38:51.284] result() for ClusterFuture ...
  [13:38:51.285] receiveMessageFromWorker() for ClusterFuture ...
  [13:38:51.285] - Validating connection of ClusterFuture
  [13:38:51.482] - received message: FutureResult
  [13:38:51.482] - Received FutureResult
  [13:38:51.483] - Erased future from FutureRegistry
  [13:38:51.483] result() for ClusterFuture ...
  [13:38:51.483] - result already collected: FutureResult
  [13:38:51.484] result() for ClusterFuture ... done
  [13:38:51.484] receiveMessageFromWorker() for ClusterFuture ... done
  [13:38:51.484] result() for ClusterFuture ... done
  [13:38:51.484] result() for ClusterFuture ...
  [13:38:51.485] - result already collected: FutureResult
  [13:38:51.485] result() for ClusterFuture ... done
  [13:38:51.485] plan(): plan_init() of 'cluster', 'multiprocess', 'future', 'function' ... DONE
  [13:38:51.487] plan(): nbrOfWorkers() = 2
  [13:38:51.488] doFuture() ...
  [13:38:51.492] - dummy globals (as locals): [2] 'a', 'b'
  [13:38:51.493] - R expression:
  [13:38:51.493] {
  [13:38:51.493]     doFuture::registerDoFuture()
  [13:38:51.493]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:38:51.493]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:38:51.493]         {
  [13:38:51.493]             a <- NULL
  [13:38:51.493]             b <- NULL
  [13:38:51.493]         }
  [13:38:51.493]         ...future.env <- environment()
  [13:38:51.493]         local({
  [13:38:51.493]             for (name in names(...future.x_jj)) {
  [13:38:51.493]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:38:51.493]                   inherits = FALSE)
  [13:38:51.493]             }
  [13:38:51.493]         })
  [13:38:51.493]         tryCatch({
  [13:38:51.493]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:38:51.493]                 plan = future::plan("next"))
  [13:38:51.493]         }, error = identity)
  [13:38:51.493]     })
  [13:38:51.493] }
  [13:38:51.494] - identifying globals and packages ...
  [13:38:51.500] getGlobalsAndPackages() ...
  [13:38:51.500] Searching for globals...
  [13:38:51.536] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [13:38:51.537] Searching for globals ... DONE
  [13:38:51.537] Resolving globals: FALSE
  [13:38:51.539] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:38:51.539] - globals: [1] '...future.x_ii'
  [13:38:51.540] 
  [13:38:51.540] getGlobalsAndPackages() ... DONE
  [13:38:51.540] List of 1
  [13:38:51.540]  $ ...future.x_ii: NULL
  [13:38:51.540]  - attr(*, "where")=List of 1
  [13:38:51.540]   ..$ ...future.x_ii:<environment: 0x5647c6e37b98> 
  [13:38:51.540]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:38:51.540]  - attr(*, "resolved")= logi FALSE
  [13:38:51.540]  - attr(*, "total_size")= num 0
  [13:38:51.563]   - R expression:
  [13:38:51.563] {
  [13:38:51.563]     doFuture::registerDoFuture()
  [13:38:51.563]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:38:51.563]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:38:51.563]         {
  [13:38:51.563]             a <- NULL
  [13:38:51.563]             b <- NULL
  [13:38:51.563]         }
  [13:38:51.563]         ...future.env <- environment()
  [13:38:51.563]         local({
  [13:38:51.563]             for (name in names(...future.x_jj)) {
  [13:38:51.563]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:38:51.563]                   inherits = FALSE)
  [13:38:51.563]             }
  [13:38:51.563]         })
  [13:38:51.563]         tryCatch({
  [13:38:51.563]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:38:51.563]                 plan = future::plan("next"))
  [13:38:51.563]         }, error = identity)
  [13:38:51.563]     })
  [13:38:51.563] }
  [13:38:51.564]   - globals: [1] '...future.x_ii'
  [13:38:51.564] List of 1
  [13:38:51.564]  $ ...future.x_ii: NULL
  [13:38:51.564]  - attr(*, "where")=List of 1
  [13:38:51.564]   ..$ ...future.x_ii:<environment: 0x5647c6e37b98> 
  [13:38:51.564]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:38:51.564]  - attr(*, "resolved")= logi FALSE
  [13:38:51.564]  - attr(*, "total_size")= num 0
  [13:38:51.570]   - packages: [1] 'doFuture'
  [13:38:51.570] - identifying globals and packages ... DONE
  [13:38:51.572] Number of chunks: 2
  [13:38:51.572] Number of futures (= number of chunks): 2
  [13:38:51.573] Launching 2 futures (chunks) ...
  [13:38:51.573] Chunk #1 of 2 ...
  [13:38:51.574]  - Finding globals in 'args_list' chunk #1 ...
  [13:38:51.574] getGlobalsAndPackages() ...
  [13:38:51.574] Searching for globals...
  [13:38:51.575] 
  [13:38:51.575] Searching for globals ... DONE
  [13:38:51.576] - globals: [0] <none>
  [13:38:51.576] getGlobalsAndPackages() ... DONE
  [13:38:51.576] 
  [13:38:51.577] 
  [13:38:51.577]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:38:51.602] getGlobalsAndPackages() ...
  [13:38:51.602] - globals passed as-is: [1] '...future.x_ii'
  [13:38:51.603] Resolving globals: FALSE
  [13:38:51.604] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:38:51.604] - globals: [1] '...future.x_ii'
  [13:38:51.604] 
  [13:38:51.605] getGlobalsAndPackages() ... DONE
  [13:38:51.609] Packages needed by the future expression (n = 1): 'doFuture'
  [13:38:51.609] Packages needed by future strategies (n = 1): 'future'
  [13:38:51.631] {
  [13:38:51.631]     {
  [13:38:51.631]         ...future.startTime <- base::Sys.time()
  [13:38:51.631]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:38:51.631]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:38:51.631]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:38:51.631]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:38:51.631]             future.resolve.recursive = NULL, width = 80L)
  [13:38:51.631]         {
  [13:38:51.631]             {
  [13:38:51.631]                 {
  [13:38:51.631]                   has_future <- base::requireNamespace("future", 
  [13:38:51.631]                     quietly = TRUE)
  [13:38:51.631]                   version <- if (has_future) 
  [13:38:51.631]                     utils::packageVersion("future")
  [13:38:51.631]                   else NULL
  [13:38:51.631]                   if (!has_future || version < "1.8.0") {
  [13:38:51.631]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:38:51.631]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:38:51.631]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:38:51.631]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:38:51.631]                         "release", "version")], collapse = " "), 
  [13:38:51.631]                       hostname = base::Sys.info()[["nodename"]])
  [13:38:51.631]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:38:51.631]                       info)
  [13:38:51.631]                     info <- base::paste(info, collapse = "; ")
  [13:38:51.631]                     if (!has_future) {
  [13:38:51.631]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:38:51.631]                         info)
  [13:38:51.631]                     }
  [13:38:51.631]                     else {
  [13:38:51.631]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:38:51.631]                         info, version)
  [13:38:51.631]                     }
  [13:38:51.631]                     base::stop(msg)
  [13:38:51.631]                   }
  [13:38:51.631]                 }
  [13:38:51.631]                 base::local({
  [13:38:51.631]                   for (pkg in c("doFuture", "future")) {
  [13:38:51.631]                     base::loadNamespace(pkg)
  [13:38:51.631]                     base::library(pkg, character.only = TRUE)
  [13:38:51.631]                   }
  [13:38:51.631]                 })
  [13:38:51.631]             }
  [13:38:51.631]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:38:51.631]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:38:51.631]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:38:51.631]                 label = NULL, ...) 
  [13:38:51.631]             {
  [13:38:51.631]                 if (substitute) 
  [13:38:51.631]                   expr <- substitute(expr)
  [13:38:51.631]                 local <- as.logical(local)
  [13:38:51.631]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:38:51.631]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:38:51.631]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:38:51.631]                   label = label, ...)
  [13:38:51.631]                 if (!future$lazy) 
  [13:38:51.631]                   future <- run(future)
  [13:38:51.631]                 invisible(future)
  [13:38:51.631]             }), .cleanup = FALSE, .init = FALSE)
  [13:38:51.631]         }
  [13:38:51.631]     }
  [13:38:51.631]     if (base::is.na(TRUE)) {
  [13:38:51.631]     }
  [13:38:51.631]     else {
  [13:38:51.631]         if (TRUE) {
  [13:38:51.631]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:38:51.631]                 open = "w")
  [13:38:51.631]         }
  [13:38:51.631]         else {
  [13:38:51.631]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:38:51.631]                 windows = "NUL", "/dev/null"), open = "w")
  [13:38:51.631]         }
  [13:38:51.631]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:38:51.631]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:38:51.631]             base::sink(type = "output", split = FALSE)
  [13:38:51.631]             base::close(...future.stdout)
  [13:38:51.631]         }, add = TRUE)
  [13:38:51.631]     }
  [13:38:51.631]     ...future.frame <- base::sys.nframe()
  [13:38:51.631]     ...future.conditions <- base::list()
  [13:38:51.631]     ...future.rng <- base::globalenv()$.Random.seed
  [13:38:51.631]     ...future.result <- base::tryCatch({
  [13:38:51.631]         base::withCallingHandlers({
  [13:38:51.631]             ...future.value <- base::withVisible(base::local({
  [13:38:51.631]                 ...future.sendCondition <- local({
  [13:38:51.631]                   sendCondition <- NULL
  [13:38:51.631]                   function(frame = 1L) {
  [13:38:51.631]                     if (is.function(sendCondition)) 
  [13:38:51.631]                       return(sendCondition)
  [13:38:51.631]                     ns <- getNamespace("parallel")
  [13:38:51.631]                     if (exists("sendData", mode = "function", 
  [13:38:51.631]                       envir = ns)) {
  [13:38:51.631]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:38:51.631]                         envir = ns)
  [13:38:51.631]                       envir <- sys.frame(frame)
  [13:38:51.631]                       master <- NULL
  [13:38:51.631]                       while (!identical(envir, .GlobalEnv) && 
  [13:38:51.631]                         !identical(envir, emptyenv())) {
  [13:38:51.631]                         if (exists("master", mode = "list", envir = envir, 
  [13:38:51.631]                           inherits = FALSE)) {
  [13:38:51.631]                           master <- get("master", mode = "list", 
  [13:38:51.631]                             envir = envir, inherits = FALSE)
  [13:38:51.631]                           if (inherits(master, "SOCKnode")) {
  [13:38:51.631]                             sendCondition <<- function(cond) {
  [13:38:51.631]                               data <- list(type = "VALUE", value = cond, 
  [13:38:51.631]                                 success = TRUE)
  [13:38:51.631]                               parallel_sendData(master, data)
  [13:38:51.631]                             }
  [13:38:51.631]                             return(sendCondition)
  [13:38:51.631]                           }
  [13:38:51.631]                         }
  [13:38:51.631]                         frame <- frame + 1L
  [13:38:51.631]                         envir <- sys.frame(frame)
  [13:38:51.631]                       }
  [13:38:51.631]                     }
  [13:38:51.631]                     sendCondition <<- function(cond) NULL
  [13:38:51.631]                   }
  [13:38:51.631]                 })
  [13:38:51.631]                 withCallingHandlers({
  [13:38:51.631]                   {
  [13:38:51.631]                     doFuture::registerDoFuture()
  [13:38:51.631]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:38:51.631]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [13:38:51.631]                       {
  [13:38:51.631]                         a <- NULL
  [13:38:51.631]                         b <- NULL
  [13:38:51.631]                       }
  [13:38:51.631]                       ...future.env <- environment()
  [13:38:51.631]                       local({
  [13:38:51.631]                         for (name in names(...future.x_jj)) {
  [13:38:51.631]                           assign(name, ...future.x_jj[[name]], 
  [13:38:51.631]                             envir = ...future.env, inherits = FALSE)
  [13:38:51.631]                         }
  [13:38:51.631]                       })
  [13:38:51.631]                       tryCatch({
  [13:38:51.631]                         list(a = a, b = b, plan_b = future::plan("list"), 
  [13:38:51.631]                           plan = future::plan("next"))
  [13:38:51.631]                       }, error = identity)
  [13:38:51.631]                     })
  [13:38:51.631]                   }
  [13:38:51.631]                 }, immediateCondition = function(cond) {
  [13:38:51.631]                   sendCondition <- ...future.sendCondition()
  [13:38:51.631]                   sendCondition(cond)
  [13:38:51.631]                   muffleCondition <- function (cond) 
  [13:38:51.631]                   {
  [13:38:51.631]                     inherits <- base::inherits
  [13:38:51.631]                     invokeRestart <- base::invokeRestart
  [13:38:51.631]                     muffled <- FALSE
  [13:38:51.631]                     if (inherits(cond, "message")) {
  [13:38:51.631]                       invokeRestart("muffleMessage")
  [13:38:51.631]                       muffled <- TRUE
  [13:38:51.631]                     }
  [13:38:51.631]                     else if (inherits(cond, "warning")) {
  [13:38:51.631]                       invokeRestart("muffleWarning")
  [13:38:51.631]                       muffled <- TRUE
  [13:38:51.631]                     }
  [13:38:51.631]                     else if (inherits(cond, "condition")) {
  [13:38:51.631]                       computeRestarts <- base::computeRestarts
  [13:38:51.631]                       grepl <- base::grepl
  [13:38:51.631]                       is.null <- base::is.null
  [13:38:51.631]                       restarts <- computeRestarts(cond)
  [13:38:51.631]                       for (restart in restarts) {
  [13:38:51.631]                         name <- restart$name
  [13:38:51.631]                         if (is.null(name)) 
  [13:38:51.631]                           next
  [13:38:51.631]                         if (!grepl("^muffle", name)) 
  [13:38:51.631]                           next
  [13:38:51.631]                         invokeRestart(restart)
  [13:38:51.631]                         muffled <- TRUE
  [13:38:51.631]                         break
  [13:38:51.631]                       }
  [13:38:51.631]                     }
  [13:38:51.631]                     invisible(muffled)
  [13:38:51.631]                   }
  [13:38:51.631]                   muffleCondition(cond)
  [13:38:51.631]                 })
  [13:38:51.631]             }))
  [13:38:51.631]             future::FutureResult(value = ...future.value$value, 
  [13:38:51.631]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:38:51.631]                   ...future.rng), started = ...future.startTime, 
  [13:38:51.631]                 version = "1.8")
  [13:38:51.631]         }, condition = base::local({
  [13:38:51.631]             c <- base::c
  [13:38:51.631]             inherits <- base::inherits
  [13:38:51.631]             invokeRestart <- base::invokeRestart
  [13:38:51.631]             length <- base::length
  [13:38:51.631]             list <- base::list
  [13:38:51.631]             seq.int <- base::seq.int
  [13:38:51.631]             signalCondition <- base::signalCondition
  [13:38:51.631]             sys.calls <- base::sys.calls
  [13:38:51.631]             Sys.time <- base::Sys.time
  [13:38:51.631]             `[[` <- base::`[[`
  [13:38:51.631]             `+` <- base::`+`
  [13:38:51.631]             `<<-` <- base::`<<-`
  [13:38:51.631]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:38:51.631]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:38:51.631]                   3L)]
  [13:38:51.631]             }
  [13:38:51.631]             function(cond) {
  [13:38:51.631]                 if (inherits(cond, "error")) {
  [13:38:51.631]                   ...future.conditions[[length(...future.conditions) + 
  [13:38:51.631]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:38:51.631]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:38:51.631]                   signalCondition(cond)
  [13:38:51.631]                 }
  [13:38:51.631]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:38:51.631]                 ))) {
  [13:38:51.631]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:38:51.631]                   ...future.conditions[[length(...future.conditions) + 
  [13:38:51.631]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:38:51.631]                   if (!signal) {
  [13:38:51.631]                     muffleCondition <- function (cond) 
  [13:38:51.631]                     {
  [13:38:51.631]                       inherits <- base::inherits
  [13:38:51.631]                       invokeRestart <- base::invokeRestart
  [13:38:51.631]                       muffled <- FALSE
  [13:38:51.631]                       if (inherits(cond, "message")) {
  [13:38:51.631]                         invokeRestart("muffleMessage")
  [13:38:51.631]                         muffled <- TRUE
  [13:38:51.631]                       }
  [13:38:51.631]                       else if (inherits(cond, "warning")) {
  [13:38:51.631]                         invokeRestart("muffleWarning")
  [13:38:51.631]                         muffled <- TRUE
  [13:38:51.631]                       }
  [13:38:51.631]                       else if (inherits(cond, "condition")) {
  [13:38:51.631]                         computeRestarts <- base::computeRestarts
  [13:38:51.631]                         grepl <- base::grepl
  [13:38:51.631]                         is.null <- base::is.null
  [13:38:51.631]                         restarts <- computeRestarts(cond)
  [13:38:51.631]                         for (restart in restarts) {
  [13:38:51.631]                           name <- restart$name
  [13:38:51.631]                           if (is.null(name)) 
  [13:38:51.631]                             next
  [13:38:51.631]                           if (!grepl("^muffle", name)) 
  [13:38:51.631]                             next
  [13:38:51.631]                           invokeRestart(restart)
  [13:38:51.631]                           muffled <- TRUE
  [13:38:51.631]                           break
  [13:38:51.631]                         }
  [13:38:51.631]                       }
  [13:38:51.631]                       invisible(muffled)
  [13:38:51.631]                     }
  [13:38:51.631]                     muffleCondition(cond)
  [13:38:51.631]                   }
  [13:38:51.631]                 }
  [13:38:51.631]             }
  [13:38:51.631]         }))
  [13:38:51.631]     }, error = function(ex) {
  [13:38:51.631]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:38:51.631]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:38:51.631]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:38:51.631]     }, finally = {
  [13:38:51.631]         {
  [13:38:51.631]             NULL
  [13:38:51.631]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:38:51.631]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:38:51.631]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:38:51.631]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:38:51.631]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:38:51.631]                 ...) 
  [13:38:51.631]             {
  [13:38:51.631]                 if (substitute) 
  [13:38:51.631]                   expr <- substitute(expr)
  [13:38:51.631]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:38:51.631]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:38:51.631]                   globals = globals, persistent = persistent, 
  [13:38:51.631]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:38:51.631]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:38:51.631]                   label = label, ...)
  [13:38:51.631]                 if (!future$lazy) 
  [13:38:51.631]                   future <- run(future)
  [13:38:51.631]                 invisible(future)
  [13:38:51.631]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:38:51.631]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [13:38:51.631]                 earlySignal = FALSE, label = NULL, ...) 
  [13:38:51.631]             {
  [13:38:51.631]                 if (substitute) 
  [13:38:51.631]                   expr <- substitute(expr)
  [13:38:51.631]                 local <- as.logical(local)
  [13:38:51.631]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:38:51.631]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:38:51.631]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:38:51.631]                   label = label, ...)
  [13:38:51.631]                 if (!future$lazy) 
  [13:38:51.631]                   future <- run(future)
  [13:38:51.631]                 invisible(future)
  [13:38:51.631]             }), .cleanup = FALSE, .init = FALSE)
  [13:38:51.631]         }
  [13:38:51.631]         base::options(...future.oldOptions)
  [13:38:51.631]     })
  [13:38:51.631]     Sys.time
  [13:38:51.631]     if (base::is.na(TRUE)) {
  [13:38:51.631]     }
  [13:38:51.631]     else {
  [13:38:51.631]         base::sink(type = "output", split = FALSE)
  [13:38:51.631]         if (TRUE) {
  [13:38:51.631]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:38:51.631]         }
  [13:38:51.631]         else {
  [13:38:51.631]             ...future.result["stdout"] <- base::list(NULL)
  [13:38:51.631]         }
  [13:38:51.631]         base::close(...future.stdout)
  [13:38:51.631]         ...future.stdout <- NULL
  [13:38:51.631]     }
  [13:38:51.631]     ...future.result$conditions <- ...future.conditions
  [13:38:51.631]     ...future.result
  [13:38:51.631] }
  [13:38:51.651] Exporting 1 global objects (336 bytes) to cluster node #1 ...
  [13:38:51.651] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ...
  [13:38:51.652] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ... DONE
  [13:38:51.653] Exporting 1 global objects (336 bytes) to cluster node #1 ... DONE
  [13:38:51.654] ClusterFuture started
  [13:38:51.655] Chunk #1 of 2 ... DONE
  [13:38:51.655] Chunk #2 of 2 ...
  [13:38:51.655]  - Finding globals in 'args_list' chunk #2 ...
  [13:38:51.656] getGlobalsAndPackages() ...
  [13:38:51.656] Searching for globals...
  [13:38:51.657] 
  [13:38:51.662] Searching for globals ... DONE
  [13:38:51.662] - globals: [0] <none>
  [13:38:51.663] getGlobalsAndPackages() ... DONE
  [13:38:51.663] 
  [13:38:51.663] 
  [13:38:51.664]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:38:51.689] getGlobalsAndPackages() ...
  [13:38:51.689] - globals passed as-is: [1] '...future.x_ii'
  [13:38:51.690] Resolving globals: FALSE
  [13:38:51.691] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:38:51.691] - globals: [1] '...future.x_ii'
  [13:38:51.692] 
  [13:38:51.692] getGlobalsAndPackages() ... DONE
  [13:38:51.720] Packages needed by the future expression (n = 1): 'doFuture'
  [13:38:51.721] Packages needed by future strategies (n = 1): 'future'
  [13:38:51.727] {
  [13:38:51.727]     {
  [13:38:51.727]         ...future.startTime <- base::Sys.time()
  [13:38:51.727]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:38:51.727]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:38:51.727]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:38:51.727]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:38:51.727]             future.resolve.recursive = NULL, width = 80L)
  [13:38:51.727]         {
  [13:38:51.727]             {
  [13:38:51.727]                 {
  [13:38:51.727]                   has_future <- base::requireNamespace("future", 
  [13:38:51.727]                     quietly = TRUE)
  [13:38:51.727]                   version <- if (has_future) 
  [13:38:51.727]                     utils::packageVersion("future")
  [13:38:51.727]                   else NULL
  [13:38:51.727]                   if (!has_future || version < "1.8.0") {
  [13:38:51.727]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:38:51.727]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:38:51.727]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:38:51.727]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:38:51.727]                         "release", "version")], collapse = " "), 
  [13:38:51.727]                       hostname = base::Sys.info()[["nodename"]])
  [13:38:51.727]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:38:51.727]                       info)
  [13:38:51.727]                     info <- base::paste(info, collapse = "; ")
  [13:38:51.727]                     if (!has_future) {
  [13:38:51.727]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:38:51.727]                         info)
  [13:38:51.727]                     }
  [13:38:51.727]                     else {
  [13:38:51.727]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:38:51.727]                         info, version)
  [13:38:51.727]                     }
  [13:38:51.727]                     base::stop(msg)
  [13:38:51.727]                   }
  [13:38:51.727]                 }
  [13:38:51.727]                 base::local({
  [13:38:51.727]                   for (pkg in c("doFuture", "future")) {
  [13:38:51.727]                     base::loadNamespace(pkg)
  [13:38:51.727]                     base::library(pkg, character.only = TRUE)
  [13:38:51.727]                   }
  [13:38:51.727]                 })
  [13:38:51.727]             }
  [13:38:51.727]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:38:51.727]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:38:51.727]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:38:51.727]                 label = NULL, ...) 
  [13:38:51.727]             {
  [13:38:51.727]                 if (substitute) 
  [13:38:51.727]                   expr <- substitute(expr)
  [13:38:51.727]                 local <- as.logical(local)
  [13:38:51.727]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:38:51.727]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:38:51.727]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:38:51.727]                   label = label, ...)
  [13:38:51.727]                 if (!future$lazy) 
  [13:38:51.727]                   future <- run(future)
  [13:38:51.727]                 invisible(future)
  [13:38:51.727]             }), .cleanup = FALSE, .init = FALSE)
  [13:38:51.727]         }
  [13:38:51.727]     }
  [13:38:51.727]     if (base::is.na(TRUE)) {
  [13:38:51.727]     }
  [13:38:51.727]     else {
  [13:38:51.727]         if (TRUE) {
  [13:38:51.727]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:38:51.727]                 open = "w")
  [13:38:51.727]         }
  [13:38:51.727]         else {
  [13:38:51.727]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:38:51.727]                 windows = "NUL", "/dev/null"), open = "w")
  [13:38:51.727]         }
  [13:38:51.727]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:38:51.727]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:38:51.727]             base::sink(type = "output", split = FALSE)
  [13:38:51.727]             base::close(...future.stdout)
  [13:38:51.727]         }, add = TRUE)
  [13:38:51.727]     }
  [13:38:51.727]     ...future.frame <- base::sys.nframe()
  [13:38:51.727]     ...future.conditions <- base::list()
  [13:38:51.727]     ...future.rng <- base::globalenv()$.Random.seed
  [13:38:51.727]     ...future.result <- base::tryCatch({
  [13:38:51.727]         base::withCallingHandlers({
  [13:38:51.727]             ...future.value <- base::withVisible(base::local({
  [13:38:51.727]                 ...future.sendCondition <- local({
  [13:38:51.727]                   sendCondition <- NULL
  [13:38:51.727]                   function(frame = 1L) {
  [13:38:51.727]                     if (is.function(sendCondition)) 
  [13:38:51.727]                       return(sendCondition)
  [13:38:51.727]                     ns <- getNamespace("parallel")
  [13:38:51.727]                     if (exists("sendData", mode = "function", 
  [13:38:51.727]                       envir = ns)) {
  [13:38:51.727]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:38:51.727]                         envir = ns)
  [13:38:51.727]                       envir <- sys.frame(frame)
  [13:38:51.727]                       master <- NULL
  [13:38:51.727]                       while (!identical(envir, .GlobalEnv) && 
  [13:38:51.727]                         !identical(envir, emptyenv())) {
  [13:38:51.727]                         if (exists("master", mode = "list", envir = envir, 
  [13:38:51.727]                           inherits = FALSE)) {
  [13:38:51.727]                           master <- get("master", mode = "list", 
  [13:38:51.727]                             envir = envir, inherits = FALSE)
  [13:38:51.727]                           if (inherits(master, "SOCKnode")) {
  [13:38:51.727]                             sendCondition <<- function(cond) {
  [13:38:51.727]                               data <- list(type = "VALUE", value = cond, 
  [13:38:51.727]                                 success = TRUE)
  [13:38:51.727]                               parallel_sendData(master, data)
  [13:38:51.727]                             }
  [13:38:51.727]                             return(sendCondition)
  [13:38:51.727]                           }
  [13:38:51.727]                         }
  [13:38:51.727]                         frame <- frame + 1L
  [13:38:51.727]                         envir <- sys.frame(frame)
  [13:38:51.727]                       }
  [13:38:51.727]                     }
  [13:38:51.727]                     sendCondition <<- function(cond) NULL
  [13:38:51.727]                   }
  [13:38:51.727]                 })
  [13:38:51.727]                 withCallingHandlers({
  [13:38:51.727]                   {
  [13:38:51.727]                     doFuture::registerDoFuture()
  [13:38:51.727]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:38:51.727]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [13:38:51.727]                       {
  [13:38:51.727]                         a <- NULL
  [13:38:51.727]                         b <- NULL
  [13:38:51.727]                       }
  [13:38:51.727]                       ...future.env <- environment()
  [13:38:51.727]                       local({
  [13:38:51.727]                         for (name in names(...future.x_jj)) {
  [13:38:51.727]                           assign(name, ...future.x_jj[[name]], 
  [13:38:51.727]                             envir = ...future.env, inherits = FALSE)
  [13:38:51.727]                         }
  [13:38:51.727]                       })
  [13:38:51.727]                       tryCatch({
  [13:38:51.727]                         list(a = a, b = b, plan_b = future::plan("list"), 
  [13:38:51.727]                           plan = future::plan("next"))
  [13:38:51.727]                       }, error = identity)
  [13:38:51.727]                     })
  [13:38:51.727]                   }
  [13:38:51.727]                 }, immediateCondition = function(cond) {
  [13:38:51.727]                   sendCondition <- ...future.sendCondition()
  [13:38:51.727]                   sendCondition(cond)
  [13:38:51.727]                   muffleCondition <- function (cond) 
  [13:38:51.727]                   {
  [13:38:51.727]                     inherits <- base::inherits
  [13:38:51.727]                     invokeRestart <- base::invokeRestart
  [13:38:51.727]                     muffled <- FALSE
  [13:38:51.727]                     if (inherits(cond, "message")) {
  [13:38:51.727]                       invokeRestart("muffleMessage")
  [13:38:51.727]                       muffled <- TRUE
  [13:38:51.727]                     }
  [13:38:51.727]                     else if (inherits(cond, "warning")) {
  [13:38:51.727]                       invokeRestart("muffleWarning")
  [13:38:51.727]                       muffled <- TRUE
  [13:38:51.727]                     }
  [13:38:51.727]                     else if (inherits(cond, "condition")) {
  [13:38:51.727]                       computeRestarts <- base::computeRestarts
  [13:38:51.727]                       grepl <- base::grepl
  [13:38:51.727]                       is.null <- base::is.null
  [13:38:51.727]                       restarts <- computeRestarts(cond)
  [13:38:51.727]                       for (restart in restarts) {
  [13:38:51.727]                         name <- restart$name
  [13:38:51.727]                         if (is.null(name)) 
  [13:38:51.727]                           next
  [13:38:51.727]                         if (!grepl("^muffle", name)) 
  [13:38:51.727]                           next
  [13:38:51.727]                         invokeRestart(restart)
  [13:38:51.727]                         muffled <- TRUE
  [13:38:51.727]                         break
  [13:38:51.727]                       }
  [13:38:51.727]                     }
  [13:38:51.727]                     invisible(muffled)
  [13:38:51.727]                   }
  [13:38:51.727]                   muffleCondition(cond)
  [13:38:51.727]                 })
  [13:38:51.727]             }))
  [13:38:51.727]             future::FutureResult(value = ...future.value$value, 
  [13:38:51.727]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:38:51.727]                   ...future.rng), started = ...future.startTime, 
  [13:38:51.727]                 version = "1.8")
  [13:38:51.727]         }, condition = base::local({
  [13:38:51.727]             c <- base::c
  [13:38:51.727]             inherits <- base::inherits
  [13:38:51.727]             invokeRestart <- base::invokeRestart
  [13:38:51.727]             length <- base::length
  [13:38:51.727]             list <- base::list
  [13:38:51.727]             seq.int <- base::seq.int
  [13:38:51.727]             signalCondition <- base::signalCondition
  [13:38:51.727]             sys.calls <- base::sys.calls
  [13:38:51.727]             Sys.time <- base::Sys.time
  [13:38:51.727]             `[[` <- base::`[[`
  [13:38:51.727]             `+` <- base::`+`
  [13:38:51.727]             `<<-` <- base::`<<-`
  [13:38:51.727]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:38:51.727]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:38:51.727]                   3L)]
  [13:38:51.727]             }
  [13:38:51.727]             function(cond) {
  [13:38:51.727]                 if (inherits(cond, "error")) {
  [13:38:51.727]                   ...future.conditions[[length(...future.conditions) + 
  [13:38:51.727]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:38:51.727]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:38:51.727]                   signalCondition(cond)
  [13:38:51.727]                 }
  [13:38:51.727]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:38:51.727]                 ))) {
  [13:38:51.727]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:38:51.727]                   ...future.conditions[[length(...future.conditions) + 
  [13:38:51.727]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:38:51.727]                   if (!signal) {
  [13:38:51.727]                     muffleCondition <- function (cond) 
  [13:38:51.727]                     {
  [13:38:51.727]                       inherits <- base::inherits
  [13:38:51.727]                       invokeRestart <- base::invokeRestart
  [13:38:51.727]                       muffled <- FALSE
  [13:38:51.727]                       if (inherits(cond, "message")) {
  [13:38:51.727]                         invokeRestart("muffleMessage")
  [13:38:51.727]                         muffled <- TRUE
  [13:38:51.727]                       }
  [13:38:51.727]                       else if (inherits(cond, "warning")) {
  [13:38:51.727]                         invokeRestart("muffleWarning")
  [13:38:51.727]                         muffled <- TRUE
  [13:38:51.727]                       }
  [13:38:51.727]                       else if (inherits(cond, "condition")) {
  [13:38:51.727]                         computeRestarts <- base::computeRestarts
  [13:38:51.727]                         grepl <- base::grepl
  [13:38:51.727]                         is.null <- base::is.null
  [13:38:51.727]                         restarts <- computeRestarts(cond)
  [13:38:51.727]                         for (restart in restarts) {
  [13:38:51.727]                           name <- restart$name
  [13:38:51.727]                           if (is.null(name)) 
  [13:38:51.727]                             next
  [13:38:51.727]                           if (!grepl("^muffle", name)) 
  [13:38:51.727]                             next
  [13:38:51.727]                           invokeRestart(restart)
  [13:38:51.727]                           muffled <- TRUE
  [13:38:51.727]                           break
  [13:38:51.727]                         }
  [13:38:51.727]                       }
  [13:38:51.727]                       invisible(muffled)
  [13:38:51.727]                     }
  [13:38:51.727]                     muffleCondition(cond)
  [13:38:51.727]                   }
  [13:38:51.727]                 }
  [13:38:51.727]             }
  [13:38:51.727]         }))
  [13:38:51.727]     }, error = function(ex) {
  [13:38:51.727]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:38:51.727]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:38:51.727]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:38:51.727]     }, finally = {
  [13:38:51.727]         {
  [13:38:51.727]             NULL
  [13:38:51.727]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:38:51.727]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:38:51.727]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:38:51.727]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:38:51.727]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:38:51.727]                 ...) 
  [13:38:51.727]             {
  [13:38:51.727]                 if (substitute) 
  [13:38:51.727]                   expr <- substitute(expr)
  [13:38:51.727]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:38:51.727]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:38:51.727]                   globals = globals, persistent = persistent, 
  [13:38:51.727]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:38:51.727]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:38:51.727]                   label = label, ...)
  [13:38:51.727]                 if (!future$lazy) 
  [13:38:51.727]                   future <- run(future)
  [13:38:51.727]                 invisible(future)
  [13:38:51.727]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:38:51.727]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [13:38:51.727]                 earlySignal = FALSE, label = NULL, ...) 
  [13:38:51.727]             {
  [13:38:51.727]                 if (substitute) 
  [13:38:51.727]                   expr <- substitute(expr)
  [13:38:51.727]                 local <- as.logical(local)
  [13:38:51.727]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:38:51.727]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:38:51.727]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:38:51.727]                   label = label, ...)
  [13:38:51.727]                 if (!future$lazy) 
  [13:38:51.727]                   future <- run(future)
  [13:38:51.727]                 invisible(future)
  [13:38:51.727]             }), .cleanup = FALSE, .init = FALSE)
  [13:38:51.727]         }
  [13:38:51.727]         base::options(...future.oldOptions)
  [13:38:51.727]     })
  [13:38:51.727]     Sys.time
  [13:38:51.727]     if (base::is.na(TRUE)) {
  [13:38:51.727]     }
  [13:38:51.727]     else {
  [13:38:51.727]         base::sink(type = "output", split = FALSE)
  [13:38:51.727]         if (TRUE) {
  [13:38:51.727]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:38:51.727]         }
  [13:38:51.727]         else {
  [13:38:51.727]             ...future.result["stdout"] <- base::list(NULL)
  [13:38:51.727]         }
  [13:38:51.727]         base::close(...future.stdout)
  [13:38:51.727]         ...future.stdout <- NULL
  [13:38:51.727]     }
  [13:38:51.727]     ...future.result$conditions <- ...future.conditions
  [13:38:51.727]     ...future.result
  [13:38:51.727] }
  [13:38:51.750] Exporting 1 global objects (336 bytes) to cluster node #2 ...
  [13:38:51.750] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ...
  [13:38:51.751] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ... DONE
  [13:38:51.752] Exporting 1 global objects (336 bytes) to cluster node #2 ... DONE
  [13:38:51.753] ClusterFuture started
  [13:38:51.754] Chunk #2 of 2 ... DONE
  [13:38:51.754] Launching 2 futures (chunks) ... DONE
  [13:38:51.754] - resolving futures
  [13:38:51.755]   - gathering results & relaying conditions (except errors)
  [13:38:51.755] resolve() on list ...
  [13:38:51.755]  recursive: 0
  [13:38:51.755]  length: 2
  [13:38:51.756] 
  [13:38:51.880] receiveMessageFromWorker() for ClusterFuture ...
  [13:38:51.881] - Validating connection of ClusterFuture
  [13:38:51.923] - received message: FutureResult
  [13:38:51.924] - Received FutureResult
  [13:38:51.924] - Erased future from FutureRegistry
  [13:38:51.924] result() for ClusterFuture ...
  [13:38:51.925] - result already collected: FutureResult
  [13:38:51.925] result() for ClusterFuture ... done
  [13:38:51.926] receiveMessageFromWorker() for ClusterFuture ... done
  [13:38:51.926] Future #1
  [13:38:51.926] result() for ClusterFuture ...
  [13:38:51.927] - result already collected: FutureResult
  [13:38:51.927] result() for ClusterFuture ... done
  [13:38:51.927] result() for ClusterFuture ...
  [13:38:51.928] - result already collected: FutureResult
  [13:38:51.928] result() for ClusterFuture ... done
  [13:38:51.929] signalConditionsASAP(ClusterFuture, pos=1) ...
  [13:38:51.929] - nx: 2
  [13:38:51.929] - relay: TRUE
  [13:38:51.930] - stdout: TRUE
  [13:38:51.930] - signal: TRUE
  [13:38:51.930] - resignal: FALSE
  [13:38:51.930] - force: FALSE
  [13:38:51.931] - relayed: [n=2] FALSE, FALSE
  [13:38:51.931] - queued futures: [n=2] FALSE, FALSE
  [13:38:51.932]  - until=1
  [13:38:51.932]  - relaying element #1
  [13:38:51.932] result() for ClusterFuture ...
  [13:38:51.933] - result already collected: FutureResult
  [13:38:51.933] result() for ClusterFuture ... done
  [13:38:51.933] result() for ClusterFuture ...
  [13:38:51.934] - result already collected: FutureResult
  [13:38:51.934] result() for ClusterFuture ... done
  [13:38:51.935] result() for ClusterFuture ...
  [13:38:51.935] - result already collected: FutureResult
  [13:38:51.935] result() for ClusterFuture ... done
  [13:38:51.936] result() for ClusterFuture ...
  [13:38:51.936] - result already collected: FutureResult
  [13:38:51.936] result() for ClusterFuture ... done
  [13:38:51.937] - relayed: [n=2] TRUE, FALSE
  [13:38:51.937] - queued futures: [n=2] TRUE, FALSE
  [13:38:51.937] signalConditionsASAP(ClusterFuture, pos=1) ... done
  [13:38:51.938]  length: 1 (resolved future 1)
  [13:38:52.258] receiveMessageFromWorker() for ClusterFuture ...
  [13:38:52.259] - Validating connection of ClusterFuture
  [13:38:52.260] - received message: FutureResult
  [13:38:52.260] - Received FutureResult
  [13:38:52.261] - Erased future from FutureRegistry
  [13:38:52.261] result() for ClusterFuture ...
  [13:38:52.261] - result already collected: FutureResult
  [13:38:52.262] result() for ClusterFuture ... done
  [13:38:52.262] receiveMessageFromWorker() for ClusterFuture ... done
  [13:38:52.263] Future #2
  [13:38:52.263] result() for ClusterFuture ...
  [13:38:52.263] - result already collected: FutureResult
  [13:38:52.264] result() for ClusterFuture ... done
  [13:38:52.264] result() for ClusterFuture ...
  [13:38:52.264] - result already collected: FutureResult
  [13:38:52.265] result() for ClusterFuture ... done
  [13:38:52.265] signalConditionsASAP(ClusterFuture, pos=2) ...
  [13:38:52.266] - nx: 2
  [13:38:52.266] - relay: TRUE
  [13:38:52.266] - stdout: TRUE
  [13:38:52.267] - signal: TRUE
  [13:38:52.267] - resignal: FALSE
  [13:38:52.267] - force: FALSE
  [13:38:52.268] - relayed: [n=2] TRUE, FALSE
  [13:38:52.268] - queued futures: [n=2] TRUE, FALSE
  [13:38:52.268]  - until=2
  [13:38:52.269]  - relaying element #2
  [13:38:52.269] result() for ClusterFuture ...
  [13:38:52.269] - result already collected: FutureResult
  [13:38:52.270] result() for ClusterFuture ... done
  [13:38:52.270] result() for ClusterFuture ...
  [13:38:52.287] - result already collected: FutureResult
  [13:38:52.287] result() for ClusterFuture ... done
  [13:38:52.295] result() for ClusterFuture ...
  [13:38:52.295] - result already collected: FutureResult
  [13:38:52.296] result() for ClusterFuture ... done
  [13:38:52.296] result() for ClusterFuture ...
  [13:38:52.296] - result already collected: FutureResult
  [13:38:52.297] result() for ClusterFuture ... done
  [13:38:52.297] - relayed: [n=2] TRUE, TRUE
  [13:38:52.298] - queued futures: [n=2] TRUE, TRUE
  [13:38:52.298] signalConditionsASAP(ClusterFuture, pos=2) ... done
  [13:38:52.298]  length: 0 (resolved future 2)
  [13:38:52.299] Relaying remaining futures
  [13:38:52.299] signalConditionsASAP(NULL, pos=0) ...
  [13:38:52.300] - nx: 2
  [13:38:52.300] - relay: TRUE
  [13:38:52.300] - stdout: TRUE
  [13:38:52.301] - signal: TRUE
  [13:38:52.301] - resignal: FALSE
  [13:38:52.301] - force: FALSE
  [13:38:52.302] - relayed: [n=2] TRUE, TRUE
  [13:38:52.302] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [13:38:52.319] - relayed: [n=2] TRUE, TRUE
  [13:38:52.319] - queued futures: [n=2] TRUE, TRUE
  [13:38:52.320] signalConditionsASAP(NULL, pos=0) ... done
  [13:38:52.320] resolve() on list ... DONE
  [13:38:52.320] - collecting values of futures
  [13:38:52.321] result() for ClusterFuture ...
  [13:38:52.321] - result already collected: FutureResult
  [13:38:52.322] result() for ClusterFuture ... done
  [13:38:52.322] result() for ClusterFuture ...
  [13:38:52.323] - result already collected: FutureResult
  [13:38:52.323] result() for ClusterFuture ... done
  [13:38:52.323] result() for ClusterFuture ...
  [13:38:52.324] - result already collected: FutureResult
  [13:38:52.324] result() for ClusterFuture ... done
  [13:38:52.324] result() for ClusterFuture ...
  [13:38:52.325] - result already collected: FutureResult
  [13:38:52.325] result() for ClusterFuture ... done
  [13:38:52.326] - accumulating results
  [13:38:52.329] - processing errors (handler = 'stop')
  [13:38:52.329] - extracting results
  [13:38:52.329] doFuture() ... DONE
  - plan(list('cluster', 'sequential')) ... DONE
  - plan(list('cluster', 'multicore')) ...
  [13:38:52.331] plan(): Setting new future strategy stack:
  [13:38:52.331] List of future strategies:
  [13:38:52.331] 1. cluster:
  [13:38:52.331]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:38:52.331]    - tweaked: FALSE
  [13:38:52.331]    - call: plan(list(a = strategy1, b = strategy2))
  [13:38:52.331] 2. multicore:
  [13:38:52.331]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:38:52.331]    - tweaked: FALSE
  [13:38:52.331]    - call: plan(list(a = strategy1, b = strategy2))
  [13:38:52.347] plan(): plan_init() of 'cluster', 'multiprocess', 'future', 'function' ...
  [13:38:52.347] cluster:
  [13:38:52.347] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:38:52.347] - tweaked: FALSE
  [13:38:52.347] - call: plan(list(a = strategy1, b = strategy2))
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 38421
  [local output] Creating node 1 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp2MyXWz/future.parent=15871.3dff1ae618af.pid")), silent = TRUE)' -e "file.exists('/tmp/Rtmp2MyXWz/future.parent=15871.3dff1ae618af.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:15871:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp2MyXWz/future.parent=15871.3dff1ae618af.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=38421 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 38421 cannot be opened'
  Warning in socketConnection("localhost", port = port, server = TRUE, blocking = TRUE,  :
    port 38421 cannot be opened
  Killing worker process (PID 15662) if still alive
  [13:38:54.604] Attempting to find a working pid_exists_*() function ...
  Call: tools::pskill(15871, signal = 0L)
  [1] TRUE
  Call: tools::pskill(15871, signal = 0L)
  [1] TRUE
  [13:38:54.605] - success
  [13:38:54.605] Attempting to find a working pid_exists_*() function ... done
  Worker (PID 15662) was successfully killed: TRUE
  Error in socketConnection("localhost", port = port, server = TRUE, blocking = TRUE,  : 
    Failed to launch and connect to R worker on local machine 'localhost' from local machine 'gimli'.
   * The error produced by socketConnection() was: 'cannot open the connection'
   * In addition, socketConnection() produced 1 warning(s):
     - Warning #1: 'port 38421 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 38421 using a communication timeout of 120 seconds and a connection timeout of 120 seconds.
   * Worker launch call: '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:15871:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp2MyXWz/future.parent=15871.3dff1ae618af.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=38421 OUT=/dev/null TIMEOUT=120 XDR=TRUE.
   * Worker (PID 15662) was successfully killed: TRUE
   * Troubleshooting suggestions:
     - Suggestion #1: Set 'outfile=NULL' to see output from worker.
  Calls: plan ... tryCatchList -> tryCatchOne -> <Anonymous> -> <Anonymous>
  Execution halted