Running ‘DEPRECATED.R’ [1s/1s]
  Running ‘cluster-missing-doFuture-pkg.R’ [1s/3s]
  Running ‘doRNG,dopar.R’ [3s/8s]
  Running ‘doRNG,dorng.R’ [7s/15s]
  Running ‘foreach,errors.R’ [8s/25s]
  Running ‘foreach,globals.R’ [9s/25s]
  Running ‘foreach,nested.R’ [5s/15s]
  Running ‘foreach,nested_dopar.R’ [19s/58s]
  Running ‘foreach.R’ [3s/9s]
  Running ‘future.BatchJobs.R’ [1s/1s]
  Running ‘future.batchtools.R’ [1s/1s]
  Running ‘options.R’ [3s/7s]
  Running ‘registerDoFuture.R’ [2s/7s]
  Running ‘times.R’ [3s/9s]
  Running ‘zzz_opt-in,NMF.R’ [0s/0s]
  Running ‘zzz_opt-in,TSP.R’ [0s/1s]
  Running ‘zzz_opt-in,caret.R’ [0s/1s]
  Running ‘zzz_opt-in,foreach.R’ [0s/1s]
  Running ‘zzz_opt-in,glmnet.R’ [0s/1s]
  Running ‘zzz_opt-in,plyr.R’ [0s/1s]
Running the tests in ‘tests/foreach,nested.R’ failed.
Complete output:
  > source("incl/start.R")
  Loading required package: globals
  Loading required package: future
  Loading required package: foreach
  Loading required package: iterators
  Loading required package: parallel
  [14:51:49.058] plan(): Setting new future strategy stack:
  [14:51:49.059] List of future strategies:
  [14:51:49.059] 1. sequential:
  [14:51:49.059]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:51:49.059]    - tweaked: FALSE
  [14:51:49.059]    - call: future::plan(future::sequential)
  [14:51:49.061] 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')) ...
  [14:51:49.137] plan(): Setting new future strategy stack:
  [14:51:49.137] List of future strategies:
  [14:51:49.137] 1. sequential:
  [14:51:49.137]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:51:49.137]    - tweaked: FALSE
  [14:51:49.137]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:49.137] 2. sequential:
  [14:51:49.137]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:51:49.137]    - tweaked: FALSE
  [14:51:49.137]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:49.171] plan(): nbrOfWorkers() = 1
  [14:51:49.172] doFuture() ...
  [14:51:49.179] - dummy globals (as locals): [2] 'a', 'b'
  [14:51:49.181] - R expression:
  [14:51:49.181] {
  [14:51:49.181]     doFuture::registerDoFuture()
  [14:51:49.181]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:49.181]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:49.181]         {
  [14:51:49.181]             a <- NULL
  [14:51:49.181]             b <- NULL
  [14:51:49.181]         }
  [14:51:49.181]         ...future.env <- environment()
  [14:51:49.181]         local({
  [14:51:49.181]             for (name in names(...future.x_jj)) {
  [14:51:49.181]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:49.181]                   inherits = FALSE)
  [14:51:49.181]             }
  [14:51:49.181]         })
  [14:51:49.181]         tryCatch({
  [14:51:49.181]             list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:49.181]                 plan = future::plan("next"))
  [14:51:49.181]         }, error = identity)
  [14:51:49.181]     })
  [14:51:49.181] }
  [14:51:49.182] - identifying globals and packages ...
  [14:51:49.185] getGlobalsAndPackages() ...
  [14:51:49.188] Searching for globals...
  [14:51:49.221] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [14:51:49.222] Searching for globals ... DONE
  [14:51:49.223] Resolving globals: FALSE
  [14:51:49.225] The total size of the 1 globals is 0 bytes (0 bytes)
  [14:51:49.226] - globals: [1] '...future.x_ii'
  [14:51:49.227] 
  [14:51:49.227] getGlobalsAndPackages() ... DONE
  [14:51:49.227] List of 1
  [14:51:49.227]  $ ...future.x_ii: NULL
  [14:51:49.227]  - attr(*, "where")=List of 1
  [14:51:49.227]   ..$ ...future.x_ii:<environment: 0x560015763a70> 
  [14:51:49.227]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:51:49.227]  - attr(*, "resolved")= logi FALSE
  [14:51:49.227]  - attr(*, "total_size")= num 0
  [14:51:49.241]   - R expression:
  [14:51:49.241] {
  [14:51:49.241]     doFuture::registerDoFuture()
  [14:51:49.241]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:49.241]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:49.241]         {
  [14:51:49.241]             a <- NULL
  [14:51:49.241]             b <- NULL
  [14:51:49.241]         }
  [14:51:49.241]         ...future.env <- environment()
  [14:51:49.241]         local({
  [14:51:49.241]             for (name in names(...future.x_jj)) {
  [14:51:49.241]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:49.241]                   inherits = FALSE)
  [14:51:49.241]             }
  [14:51:49.241]         })
  [14:51:49.241]         tryCatch({
  [14:51:49.241]             list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:49.241]                 plan = future::plan("next"))
  [14:51:49.241]         }, error = identity)
  [14:51:49.241]     })
  [14:51:49.241] }
  [14:51:49.242]   - globals: [1] '...future.x_ii'
  [14:51:49.243] List of 1
  [14:51:49.243]  $ ...future.x_ii: NULL
  [14:51:49.243]  - attr(*, "where")=List of 1
  [14:51:49.243]   ..$ ...future.x_ii:<environment: 0x560015763a70> 
  [14:51:49.243]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:51:49.243]  - attr(*, "resolved")= logi FALSE
  [14:51:49.243]  - attr(*, "total_size")= num 0
  [14:51:49.250]   - packages: [1] 'doFuture'
  [14:51:49.250] - identifying globals and packages ... DONE
  [14:51:49.251] Number of chunks: 1
  [14:51:49.252] Number of futures (= number of chunks): 1
  [14:51:49.253] Launching 1 futures (chunks) ...
  [14:51:49.254] Chunk #1 of 1 ...
  [14:51:49.254]  - Finding globals in 'args_list' chunk #1 ...
  [14:51:49.254] getGlobalsAndPackages() ...
  [14:51:49.255] Searching for globals...
  [14:51:49.256] 
  [14:51:49.257] Searching for globals ... DONE
  [14:51:49.257] - globals: [0] <none>
  [14:51:49.257] getGlobalsAndPackages() ... DONE
  [14:51:49.258] 
  [14:51:49.258] 
  [14:51:49.259]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:51:49.259] getGlobalsAndPackages() ...
  [14:51:49.260] - globals passed as-is: [1] '...future.x_ii'
  [14:51:49.260] Resolving globals: FALSE
  [14:51:49.262] The total size of the 1 globals is 672 bytes (672 bytes)
  [14:51:49.262] - globals: [1] '...future.x_ii'
  [14:51:49.263] 
  [14:51:49.263] getGlobalsAndPackages() ... DONE
  [14:51:49.266] Packages needed by the future expression (n = 1): 'doFuture'
  [14:51:49.267] Packages needed by future strategies (n = 1): 'future'
  [14:51:49.275] {
  [14:51:49.275]     {
  [14:51:49.275]         ...future.startTime <- base::Sys.time()
  [14:51:49.275]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:51:49.275]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:51:49.275]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:51:49.275]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:51:49.275]             future.resolve.recursive = NULL, width = 80L)
  [14:51:49.275]         {
  [14:51:49.275]             {
  [14:51:49.275]                 {
  [14:51:49.275]                   base::local({
  [14:51:49.275]                     has_future <- base::requireNamespace("future", 
  [14:51:49.275]                       quietly = TRUE)
  [14:51:49.275]                     version <- if (has_future) 
  [14:51:49.275]                       utils::packageVersion("future")
  [14:51:49.275]                     else NULL
  [14:51:49.275]                     if (!has_future || version < "1.8.0") {
  [14:51:49.275]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:51:49.275]                         "", base::R.version$version.string), 
  [14:51:49.275]                         platform = base::sprintf("%s (%s-bit)", 
  [14:51:49.275]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:51:49.275]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:51:49.275]                           "release", "version")], collapse = " "), 
  [14:51:49.275]                         hostname = base::Sys.info()[["nodename"]])
  [14:51:49.275]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:51:49.275]                         info)
  [14:51:49.275]                       info <- base::paste(info, collapse = "; ")
  [14:51:49.275]                       if (!has_future) {
  [14:51:49.275]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:51:49.275]                           info)
  [14:51:49.275]                       }
  [14:51:49.275]                       else {
  [14:51:49.275]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:51:49.275]                           info, version)
  [14:51:49.275]                       }
  [14:51:49.275]                       base::stop(msg)
  [14:51:49.275]                     }
  [14:51:49.275]                   })
  [14:51:49.275]                 }
  [14:51:49.275]                 base::local({
  [14:51:49.275]                   for (pkg in c("doFuture", "future")) {
  [14:51:49.275]                     base::loadNamespace(pkg)
  [14:51:49.275]                     base::library(pkg, character.only = TRUE)
  [14:51:49.275]                   }
  [14:51:49.275]                 })
  [14:51:49.275]             }
  [14:51:49.275]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:51:49.275]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:49.275]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:51:49.275]                 label = NULL, ...) 
  [14:51:49.275]             {
  [14:51:49.275]                 if (substitute) 
  [14:51:49.275]                   expr <- substitute(expr)
  [14:51:49.275]                 local <- as.logical(local)
  [14:51:49.275]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:51:49.275]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:49.275]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:51:49.275]                   label = label, ...)
  [14:51:49.275]                 if (!future$lazy) 
  [14:51:49.275]                   future <- run(future)
  [14:51:49.275]                 invisible(future)
  [14:51:49.275]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:49.275]         }
  [14:51:49.275]     }
  [14:51:49.275]     if (base::is.na(TRUE)) {
  [14:51:49.275]     }
  [14:51:49.275]     else {
  [14:51:49.275]         if (TRUE) {
  [14:51:49.275]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:51:49.275]                 open = "w")
  [14:51:49.275]         }
  [14:51:49.275]         else {
  [14:51:49.275]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:51:49.275]                 windows = "NUL", "/dev/null"), open = "w")
  [14:51:49.275]         }
  [14:51:49.275]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:51:49.275]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:51:49.275]             base::sink(type = "output", split = FALSE)
  [14:51:49.275]             base::close(...future.stdout)
  [14:51:49.275]         }, add = TRUE)
  [14:51:49.275]     }
  [14:51:49.275]     ...future.frame <- base::sys.nframe()
  [14:51:49.275]     ...future.conditions <- base::list()
  [14:51:49.275]     ...future.rng <- base::globalenv()$.Random.seed
  [14:51:49.275]     ...future.result <- base::tryCatch({
  [14:51:49.275]         base::withCallingHandlers({
  [14:51:49.275]             ...future.value <- base::withVisible(base::local({
  [14:51:49.275]                 doFuture::registerDoFuture()
  [14:51:49.275]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:49.275]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:49.275]                   {
  [14:51:49.275]                     a <- NULL
  [14:51:49.275]                     b <- NULL
  [14:51:49.275]                   }
  [14:51:49.275]                   ...future.env <- environment()
  [14:51:49.275]                   local({
  [14:51:49.275]                     for (name in names(...future.x_jj)) {
  [14:51:49.275]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:49.275]                         inherits = FALSE)
  [14:51:49.275]                     }
  [14:51:49.275]                   })
  [14:51:49.275]                   tryCatch({
  [14:51:49.275]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:49.275]                       plan = future::plan("next"))
  [14:51:49.275]                   }, error = identity)
  [14:51:49.275]                 })
  [14:51:49.275]             }))
  [14:51:49.275]             future::FutureResult(value = ...future.value$value, 
  [14:51:49.275]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:49.275]                   ...future.rng), started = ...future.startTime, 
  [14:51:49.275]                 version = "1.8")
  [14:51:49.275]         }, condition = base::local({
  [14:51:49.275]             c <- base::c
  [14:51:49.275]             inherits <- base::inherits
  [14:51:49.275]             invokeRestart <- base::invokeRestart
  [14:51:49.275]             length <- base::length
  [14:51:49.275]             list <- base::list
  [14:51:49.275]             seq.int <- base::seq.int
  [14:51:49.275]             signalCondition <- base::signalCondition
  [14:51:49.275]             sys.calls <- base::sys.calls
  [14:51:49.275]             Sys.time <- base::Sys.time
  [14:51:49.275]             `[[` <- base::`[[`
  [14:51:49.275]             `+` <- base::`+`
  [14:51:49.275]             `<<-` <- base::`<<-`
  [14:51:49.275]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:51:49.275]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:51:49.275]                   3L)]
  [14:51:49.275]             }
  [14:51:49.275]             function(cond) {
  [14:51:49.275]                 if (inherits(cond, "error")) {
  [14:51:49.275]                   sessionInformation <- function() {
  [14:51:49.275]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:51:49.275]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:51:49.275]                       search = base::search(), system = base::Sys.info())
  [14:51:49.275]                   }
  [14:51:49.275]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:49.275]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:51:49.275]                     cond$call), session = sessionInformation(), 
  [14:51:49.275]                     timestamp = Sys.time(), signaled = 0L)
  [14:51:49.275]                   signalCondition(cond)
  [14:51:49.275]                 }
  [14:51:49.275]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:51:49.275]                 ))) {
  [14:51:49.275]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:51:49.275]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:49.275]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:51:49.275]                   if (!signal) {
  [14:51:49.275]                     muffleCondition <- function (cond) 
  [14:51:49.275]                     {
  [14:51:49.275]                       inherits <- base::inherits
  [14:51:49.275]                       invokeRestart <- base::invokeRestart
  [14:51:49.275]                       muffled <- FALSE
  [14:51:49.275]                       if (inherits(cond, "message")) {
  [14:51:49.275]                         invokeRestart("muffleMessage")
  [14:51:49.275]                         muffled <- TRUE
  [14:51:49.275]                       }
  [14:51:49.275]                       else if (inherits(cond, "warning")) {
  [14:51:49.275]                         invokeRestart("muffleWarning")
  [14:51:49.275]                         muffled <- TRUE
  [14:51:49.275]                       }
  [14:51:49.275]                       else if (inherits(cond, "condition")) {
  [14:51:49.275]                         computeRestarts <- base::computeRestarts
  [14:51:49.275]                         grepl <- base::grepl
  [14:51:49.275]                         is.null <- base::is.null
  [14:51:49.275]                         restarts <- computeRestarts(cond)
  [14:51:49.275]                         for (restart in restarts) {
  [14:51:49.275]                           name <- restart$name
  [14:51:49.275]                           if (is.null(name)) 
  [14:51:49.275]                             next
  [14:51:49.275]                           if (!grepl("^muffle", name)) 
  [14:51:49.275]                             next
  [14:51:49.275]                           invokeRestart(restart)
  [14:51:49.275]                           muffled <- TRUE
  [14:51:49.275]                           break
  [14:51:49.275]                         }
  [14:51:49.275]                       }
  [14:51:49.275]                       invisible(muffled)
  [14:51:49.275]                     }
  [14:51:49.275]                     muffleCondition(cond)
  [14:51:49.275]                   }
  [14:51:49.275]                 }
  [14:51:49.275]             }
  [14:51:49.275]         }))
  [14:51:49.275]     }, error = function(ex) {
  [14:51:49.275]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:51:49.275]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:49.275]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:51:49.275]     }, finally = {
  [14:51:49.275]         {
  [14:51:49.275]             NULL
  [14:51:49.275]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:51:49.275]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:49.275]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:51:49.275]                 label = NULL, ...) 
  [14:51:49.275]             {
  [14:51:49.275]                 if (substitute) 
  [14:51:49.275]                   expr <- substitute(expr)
  [14:51:49.275]                 local <- as.logical(local)
  [14:51:49.275]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:51:49.275]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:49.275]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:51:49.275]                   label = label, ...)
  [14:51:49.275]                 if (!future$lazy) 
  [14:51:49.275]                   future <- run(future)
  [14:51:49.275]                 invisible(future)
  [14:51:49.275]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:51:49.275]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [14:51:49.275]                 earlySignal = FALSE, label = NULL, ...) 
  [14:51:49.275]             {
  [14:51:49.275]                 if (substitute) 
  [14:51:49.275]                   expr <- substitute(expr)
  [14:51:49.275]                 local <- as.logical(local)
  [14:51:49.275]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:51:49.275]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:49.275]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:51:49.275]                   label = label, ...)
  [14:51:49.275]                 if (!future$lazy) 
  [14:51:49.275]                   future <- run(future)
  [14:51:49.275]                 invisible(future)
  [14:51:49.275]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:49.275]         }
  [14:51:49.275]         base::options(...future.oldOptions)
  [14:51:49.275]     })
  [14:51:49.275]     Sys.time
  [14:51:49.275]     if (base::is.na(TRUE)) {
  [14:51:49.275]     }
  [14:51:49.275]     else {
  [14:51:49.275]         base::sink(type = "output", split = FALSE)
  [14:51:49.275]         if (TRUE) {
  [14:51:49.275]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:51:49.275]         }
  [14:51:49.275]         else {
  [14:51:49.275]             ...future.result["stdout"] <- base::list(NULL)
  [14:51:49.275]         }
  [14:51:49.275]         base::close(...future.stdout)
  [14:51:49.275]         ...future.stdout <- NULL
  [14:51:49.275]     }
  [14:51:49.275]     ...future.result$conditions <- ...future.conditions
  [14:51:49.275]     ...future.result
  [14:51:49.275] }
  [14:51:49.282] plan(): Setting new future strategy stack:
  [14:51:49.282] List of future strategies:
  [14:51:49.282] 1. sequential:
  [14:51:49.282]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:51:49.282]    - tweaked: FALSE
  [14:51:49.282]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:49.284] plan(): nbrOfWorkers() = 1
  [14:51:49.311] plan(): Setting new future strategy stack:
  [14:51:49.311] List of future strategies:
  [14:51:49.311] 1. sequential:
  [14:51:49.311]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:51:49.311]    - tweaked: FALSE
  [14:51:49.311]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:49.311] 2. sequential:
  [14:51:49.311]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:51:49.311]    - tweaked: FALSE
  [14:51:49.311]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:49.313] plan(): nbrOfWorkers() = 1
  [14:51:49.314] SequentialFuture started (and completed)
  [14:51:49.315] Chunk #1 of 1 ... DONE
  [14:51:49.315] Launching 1 futures (chunks) ... DONE
  [14:51:49.316] - resolving futures
  [14:51:49.316]   - gathering results & relaying conditions (except errors)
  [14:51:49.317] resolve() on list ...
  [14:51:49.317]  recursive: 0
  [14:51:49.318]  length: 1
  [14:51:49.318] 
  [14:51:49.319] Future #1
  [14:51:49.320] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:51:49.320] - nx: 1
  [14:51:49.320] - relay: TRUE
  [14:51:49.321] - stdout: TRUE
  [14:51:49.321] - signal: TRUE
  [14:51:49.321] - resignal: FALSE
  [14:51:49.322] - force: FALSE
  [14:51:49.322] - relayed: [n=1] FALSE
  [14:51:49.322] - queued futures: [n=1] FALSE
  [14:51:49.323]  - until=1
  [14:51:49.323]  - relaying element #1
  [14:51:49.324] - relayed: [n=1] TRUE
  [14:51:49.324] - queued futures: [n=1] TRUE
  [14:51:49.324] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:51:49.325]  length: 0 (resolved future 1)
  [14:51:49.325] Relaying remaining futures
  [14:51:49.326] signalConditionsASAP(NULL, pos=0) ...
  [14:51:49.326] - nx: 1
  [14:51:49.326] - relay: TRUE
  [14:51:49.326] - stdout: TRUE
  [14:51:49.327] - signal: TRUE
  [14:51:49.327] - resignal: FALSE
  [14:51:49.327] - force: FALSE
  [14:51:49.328] - relayed: [n=1] TRUE
  [14:51:49.328] - queued futures: [n=1] TRUE
   - flush all
  [14:51:49.329] - relayed: [n=1] TRUE
  [14:51:49.329] - queued futures: [n=1] TRUE
  [14:51:49.329] signalConditionsASAP(NULL, pos=0) ... done
  [14:51:49.330] resolve() on list ... DONE
  [14:51:49.330] - collecting values of futures
  [14:51:49.331] - accumulating results
  [14:51:49.335] - processing errors (handler = 'stop')
  [14:51:49.336] - extracting results
  [14:51:49.336] doFuture() ... DONE
  - plan(list('sequential', 'sequential')) ... DONE
  - plan(list('sequential', 'multicore')) ...
  [14:51:49.338] plan(): Setting new future strategy stack:
  [14:51:49.338] List of future strategies:
  [14:51:49.338] 1. sequential:
  [14:51:49.338]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:51:49.338]    - tweaked: FALSE
  [14:51:49.338]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:49.338] 2. multicore:
  [14:51:49.338]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:51:49.338]    - tweaked: FALSE
  [14:51:49.338]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:49.340] plan(): nbrOfWorkers() = 1
  [14:51:49.341] doFuture() ...
  [14:51:49.346] - dummy globals (as locals): [2] 'a', 'b'
  [14:51:49.347] - R expression:
  [14:51:49.347] {
  [14:51:49.347]     doFuture::registerDoFuture()
  [14:51:49.347]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:49.347]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:49.347]         {
  [14:51:49.347]             a <- NULL
  [14:51:49.347]             b <- NULL
  [14:51:49.347]         }
  [14:51:49.347]         ...future.env <- environment()
  [14:51:49.347]         local({
  [14:51:49.347]             for (name in names(...future.x_jj)) {
  [14:51:49.347]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:49.347]                   inherits = FALSE)
  [14:51:49.347]             }
  [14:51:49.347]         })
  [14:51:49.347]         tryCatch({
  [14:51:49.347]             list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:49.347]                 plan = future::plan("next"))
  [14:51:49.347]         }, error = identity)
  [14:51:49.347]     })
  [14:51:49.347] }
  [14:51:49.348] - identifying globals and packages ...
  [14:51:49.349] getGlobalsAndPackages() ...
  [14:51:49.349] Searching for globals...
  [14:51:49.371] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [14:51:49.372] Searching for globals ... DONE
  [14:51:49.372] Resolving globals: FALSE
  [14:51:49.374] The total size of the 1 globals is 0 bytes (0 bytes)
  [14:51:49.374] - globals: [1] '...future.x_ii'
  [14:51:49.375] 
  [14:51:49.375] getGlobalsAndPackages() ... DONE
  [14:51:49.375] List of 1
  [14:51:49.375]  $ ...future.x_ii: NULL
  [14:51:49.375]  - attr(*, "where")=List of 1
  [14:51:49.375]   ..$ ...future.x_ii:<environment: 0x560014f908c8> 
  [14:51:49.375]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:51:49.375]  - attr(*, "resolved")= logi FALSE
  [14:51:49.375]  - attr(*, "total_size")= num 0
  [14:51:49.383]   - R expression:
  [14:51:49.383] {
  [14:51:49.383]     doFuture::registerDoFuture()
  [14:51:49.383]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:49.383]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:49.383]         {
  [14:51:49.383]             a <- NULL
  [14:51:49.383]             b <- NULL
  [14:51:49.383]         }
  [14:51:49.383]         ...future.env <- environment()
  [14:51:49.383]         local({
  [14:51:49.383]             for (name in names(...future.x_jj)) {
  [14:51:49.383]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:49.383]                   inherits = FALSE)
  [14:51:49.383]             }
  [14:51:49.383]         })
  [14:51:49.383]         tryCatch({
  [14:51:49.383]             list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:49.383]                 plan = future::plan("next"))
  [14:51:49.383]         }, error = identity)
  [14:51:49.383]     })
  [14:51:49.383] }
  [14:51:49.384]   - globals: [1] '...future.x_ii'
  [14:51:49.385] List of 1
  [14:51:49.385]  $ ...future.x_ii: NULL
  [14:51:49.385]  - attr(*, "where")=List of 1
  [14:51:49.385]   ..$ ...future.x_ii:<environment: 0x560014f908c8> 
  [14:51:49.385]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:51:49.385]  - attr(*, "resolved")= logi FALSE
  [14:51:49.385]  - attr(*, "total_size")= num 0
  [14:51:49.392]   - packages: [1] 'doFuture'
  [14:51:49.393] - identifying globals and packages ... DONE
  [14:51:49.393] Number of chunks: 1
  [14:51:49.393] Number of futures (= number of chunks): 1
  [14:51:49.394] Launching 1 futures (chunks) ...
  [14:51:49.395] Chunk #1 of 1 ...
  [14:51:49.395]  - Finding globals in 'args_list' chunk #1 ...
  [14:51:49.395] getGlobalsAndPackages() ...
  [14:51:49.396] Searching for globals...
  [14:51:49.397] 
  [14:51:49.397] Searching for globals ... DONE
  [14:51:49.398] - globals: [0] <none>
  [14:51:49.398] getGlobalsAndPackages() ... DONE
  [14:51:49.398] 
  [14:51:49.399] 
  [14:51:49.399]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:51:49.399] getGlobalsAndPackages() ...
  [14:51:49.400] - globals passed as-is: [1] '...future.x_ii'
  [14:51:49.400] Resolving globals: FALSE
  [14:51:49.401] The total size of the 1 globals is 672 bytes (672 bytes)
  [14:51:49.402] - globals: [1] '...future.x_ii'
  [14:51:49.402] 
  [14:51:49.403] getGlobalsAndPackages() ... DONE
  [14:51:49.405] Packages needed by the future expression (n = 1): 'doFuture'
  [14:51:49.405] Packages needed by future strategies (n = 1): 'future'
  [14:51:49.412] {
  [14:51:49.412]     {
  [14:51:49.412]         ...future.startTime <- base::Sys.time()
  [14:51:49.412]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:51:49.412]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:51:49.412]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:51:49.412]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:51:49.412]             future.resolve.recursive = NULL, width = 80L)
  [14:51:49.412]         {
  [14:51:49.412]             {
  [14:51:49.412]                 {
  [14:51:49.412]                   base::local({
  [14:51:49.412]                     has_future <- base::requireNamespace("future", 
  [14:51:49.412]                       quietly = TRUE)
  [14:51:49.412]                     version <- if (has_future) 
  [14:51:49.412]                       utils::packageVersion("future")
  [14:51:49.412]                     else NULL
  [14:51:49.412]                     if (!has_future || version < "1.8.0") {
  [14:51:49.412]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:51:49.412]                         "", base::R.version$version.string), 
  [14:51:49.412]                         platform = base::sprintf("%s (%s-bit)", 
  [14:51:49.412]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:51:49.412]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:51:49.412]                           "release", "version")], collapse = " "), 
  [14:51:49.412]                         hostname = base::Sys.info()[["nodename"]])
  [14:51:49.412]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:51:49.412]                         info)
  [14:51:49.412]                       info <- base::paste(info, collapse = "; ")
  [14:51:49.412]                       if (!has_future) {
  [14:51:49.412]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:51:49.412]                           info)
  [14:51:49.412]                       }
  [14:51:49.412]                       else {
  [14:51:49.412]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:51:49.412]                           info, version)
  [14:51:49.412]                       }
  [14:51:49.412]                       base::stop(msg)
  [14:51:49.412]                     }
  [14:51:49.412]                   })
  [14:51:49.412]                 }
  [14:51:49.412]                 base::local({
  [14:51:49.412]                   for (pkg in c("doFuture", "future")) {
  [14:51:49.412]                     base::loadNamespace(pkg)
  [14:51:49.412]                     base::library(pkg, character.only = TRUE)
  [14:51:49.412]                   }
  [14:51:49.412]                 })
  [14:51:49.412]             }
  [14:51:49.412]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:51:49.412]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:49.412]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:51:49.412]                 earlySignal = FALSE, label = NULL, ...) 
  [14:51:49.412]             {
  [14:51:49.412]                 if (substitute) 
  [14:51:49.412]                   expr <- substitute(expr)
  [14:51:49.412]                 if (is.function(workers)) 
  [14:51:49.412]                   workers <- workers()
  [14:51:49.412]                 workers <- as.integer(workers)
  [14:51:49.412]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:51:49.412]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:51:49.412]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:49.412]                     lazy = lazy, seed = seed, globals = globals, 
  [14:51:49.412]                     local = TRUE, label = label, ...))
  [14:51:49.412]                 }
  [14:51:49.412]                 oopts <- options(mc.cores = workers)
  [14:51:49.412]                 on.exit(options(oopts))
  [14:51:49.412]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:51:49.412]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:49.412]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:51:49.412]                   label = label, ...)
  [14:51:49.412]                 if (!future$lazy) 
  [14:51:49.412]                   future <- run(future)
  [14:51:49.412]                 invisible(future)
  [14:51:49.412]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:49.412]         }
  [14:51:49.412]     }
  [14:51:49.412]     if (base::is.na(TRUE)) {
  [14:51:49.412]     }
  [14:51:49.412]     else {
  [14:51:49.412]         if (TRUE) {
  [14:51:49.412]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:51:49.412]                 open = "w")
  [14:51:49.412]         }
  [14:51:49.412]         else {
  [14:51:49.412]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:51:49.412]                 windows = "NUL", "/dev/null"), open = "w")
  [14:51:49.412]         }
  [14:51:49.412]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:51:49.412]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:51:49.412]             base::sink(type = "output", split = FALSE)
  [14:51:49.412]             base::close(...future.stdout)
  [14:51:49.412]         }, add = TRUE)
  [14:51:49.412]     }
  [14:51:49.412]     ...future.frame <- base::sys.nframe()
  [14:51:49.412]     ...future.conditions <- base::list()
  [14:51:49.412]     ...future.rng <- base::globalenv()$.Random.seed
  [14:51:49.412]     ...future.result <- base::tryCatch({
  [14:51:49.412]         base::withCallingHandlers({
  [14:51:49.412]             ...future.value <- base::withVisible(base::local({
  [14:51:49.412]                 doFuture::registerDoFuture()
  [14:51:49.412]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:49.412]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:49.412]                   {
  [14:51:49.412]                     a <- NULL
  [14:51:49.412]                     b <- NULL
  [14:51:49.412]                   }
  [14:51:49.412]                   ...future.env <- environment()
  [14:51:49.412]                   local({
  [14:51:49.412]                     for (name in names(...future.x_jj)) {
  [14:51:49.412]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:49.412]                         inherits = FALSE)
  [14:51:49.412]                     }
  [14:51:49.412]                   })
  [14:51:49.412]                   tryCatch({
  [14:51:49.412]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:49.412]                       plan = future::plan("next"))
  [14:51:49.412]                   }, error = identity)
  [14:51:49.412]                 })
  [14:51:49.412]             }))
  [14:51:49.412]             future::FutureResult(value = ...future.value$value, 
  [14:51:49.412]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:49.412]                   ...future.rng), started = ...future.startTime, 
  [14:51:49.412]                 version = "1.8")
  [14:51:49.412]         }, condition = base::local({
  [14:51:49.412]             c <- base::c
  [14:51:49.412]             inherits <- base::inherits
  [14:51:49.412]             invokeRestart <- base::invokeRestart
  [14:51:49.412]             length <- base::length
  [14:51:49.412]             list <- base::list
  [14:51:49.412]             seq.int <- base::seq.int
  [14:51:49.412]             signalCondition <- base::signalCondition
  [14:51:49.412]             sys.calls <- base::sys.calls
  [14:51:49.412]             Sys.time <- base::Sys.time
  [14:51:49.412]             `[[` <- base::`[[`
  [14:51:49.412]             `+` <- base::`+`
  [14:51:49.412]             `<<-` <- base::`<<-`
  [14:51:49.412]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:51:49.412]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:51:49.412]                   3L)]
  [14:51:49.412]             }
  [14:51:49.412]             function(cond) {
  [14:51:49.412]                 if (inherits(cond, "error")) {
  [14:51:49.412]                   sessionInformation <- function() {
  [14:51:49.412]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:51:49.412]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:51:49.412]                       search = base::search(), system = base::Sys.info())
  [14:51:49.412]                   }
  [14:51:49.412]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:49.412]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:51:49.412]                     cond$call), session = sessionInformation(), 
  [14:51:49.412]                     timestamp = Sys.time(), signaled = 0L)
  [14:51:49.412]                   signalCondition(cond)
  [14:51:49.412]                 }
  [14:51:49.412]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:51:49.412]                 ))) {
  [14:51:49.412]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:51:49.412]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:49.412]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:51:49.412]                   if (!signal) {
  [14:51:49.412]                     muffleCondition <- function (cond) 
  [14:51:49.412]                     {
  [14:51:49.412]                       inherits <- base::inherits
  [14:51:49.412]                       invokeRestart <- base::invokeRestart
  [14:51:49.412]                       muffled <- FALSE
  [14:51:49.412]                       if (inherits(cond, "message")) {
  [14:51:49.412]                         invokeRestart("muffleMessage")
  [14:51:49.412]                         muffled <- TRUE
  [14:51:49.412]                       }
  [14:51:49.412]                       else if (inherits(cond, "warning")) {
  [14:51:49.412]                         invokeRestart("muffleWarning")
  [14:51:49.412]                         muffled <- TRUE
  [14:51:49.412]                       }
  [14:51:49.412]                       else if (inherits(cond, "condition")) {
  [14:51:49.412]                         computeRestarts <- base::computeRestarts
  [14:51:49.412]                         grepl <- base::grepl
  [14:51:49.412]                         is.null <- base::is.null
  [14:51:49.412]                         restarts <- computeRestarts(cond)
  [14:51:49.412]                         for (restart in restarts) {
  [14:51:49.412]                           name <- restart$name
  [14:51:49.412]                           if (is.null(name)) 
  [14:51:49.412]                             next
  [14:51:49.412]                           if (!grepl("^muffle", name)) 
  [14:51:49.412]                             next
  [14:51:49.412]                           invokeRestart(restart)
  [14:51:49.412]                           muffled <- TRUE
  [14:51:49.412]                           break
  [14:51:49.412]                         }
  [14:51:49.412]                       }
  [14:51:49.412]                       invisible(muffled)
  [14:51:49.412]                     }
  [14:51:49.412]                     muffleCondition(cond)
  [14:51:49.412]                   }
  [14:51:49.412]                 }
  [14:51:49.412]             }
  [14:51:49.412]         }))
  [14:51:49.412]     }, error = function(ex) {
  [14:51:49.412]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:51:49.412]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:49.412]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:51:49.412]     }, finally = {
  [14:51:49.412]         {
  [14:51:49.412]             NULL
  [14:51:49.412]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:51:49.412]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:49.412]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:51:49.412]                 label = NULL, ...) 
  [14:51:49.412]             {
  [14:51:49.412]                 if (substitute) 
  [14:51:49.412]                   expr <- substitute(expr)
  [14:51:49.412]                 local <- as.logical(local)
  [14:51:49.412]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:51:49.412]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:49.412]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:51:49.412]                   label = label, ...)
  [14:51:49.412]                 if (!future$lazy) 
  [14:51:49.412]                   future <- run(future)
  [14:51:49.412]                 invisible(future)
  [14:51:49.412]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:51:49.412]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:51:49.412]                 earlySignal = FALSE, label = NULL, ...) 
  [14:51:49.412]             {
  [14:51:49.412]                 if (substitute) 
  [14:51:49.412]                   expr <- substitute(expr)
  [14:51:49.412]                 if (is.function(workers)) 
  [14:51:49.412]                   workers <- workers()
  [14:51:49.412]                 workers <- as.integer(workers)
  [14:51:49.412]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:51:49.412]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:51:49.412]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:49.412]                     lazy = lazy, seed = seed, globals = globals, 
  [14:51:49.412]                     local = TRUE, label = label, ...))
  [14:51:49.412]                 }
  [14:51:49.412]                 oopts <- options(mc.cores = workers)
  [14:51:49.412]                 on.exit(options(oopts))
  [14:51:49.412]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:51:49.412]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:49.412]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:51:49.412]                   label = label, ...)
  [14:51:49.412]                 if (!future$lazy) 
  [14:51:49.412]                   future <- run(future)
  [14:51:49.412]                 invisible(future)
  [14:51:49.412]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:49.412]         }
  [14:51:49.412]         base::options(...future.oldOptions)
  [14:51:49.412]     })
  [14:51:49.412]     Sys.time
  [14:51:49.412]     if (base::is.na(TRUE)) {
  [14:51:49.412]     }
  [14:51:49.412]     else {
  [14:51:49.412]         base::sink(type = "output", split = FALSE)
  [14:51:49.412]         if (TRUE) {
  [14:51:49.412]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:51:49.412]         }
  [14:51:49.412]         else {
  [14:51:49.412]             ...future.result["stdout"] <- base::list(NULL)
  [14:51:49.412]         }
  [14:51:49.412]         base::close(...future.stdout)
  [14:51:49.412]         ...future.stdout <- NULL
  [14:51:49.412]     }
  [14:51:49.412]     ...future.result$conditions <- ...future.conditions
  [14:51:49.412]     ...future.result
  [14:51:49.412] }
  [14:51:49.420] plan(): Setting new future strategy stack:
  [14:51:49.420] List of future strategies:
  [14:51:49.420] 1. multicore:
  [14:51:49.420]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:51:49.420]    - tweaked: FALSE
  [14:51:49.420]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:49.464] plan(): nbrOfWorkers() = 2
  [14:51:49.467] plan(): Setting new future strategy stack:
  [14:51:49.467] List of future strategies:
  [14:51:49.467] 1. sequential:
  [14:51:49.467]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:51:49.467]    - tweaked: FALSE
  [14:51:49.467]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:49.467] 2. multicore:
  [14:51:49.467]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:51:49.467]    - tweaked: FALSE
  [14:51:49.467]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:49.469] plan(): nbrOfWorkers() = 1
  [14:51:49.470] SequentialFuture started (and completed)
  [14:51:49.470] Chunk #1 of 1 ... DONE
  [14:51:49.471] Launching 1 futures (chunks) ... DONE
  [14:51:49.471] - resolving futures
  [14:51:49.471]   - gathering results & relaying conditions (except errors)
  [14:51:49.471] resolve() on list ...
  [14:51:49.472]  recursive: 0
  [14:51:49.472]  length: 1
  [14:51:49.472] 
  [14:51:49.473] Future #1
  [14:51:49.473] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:51:49.474] - nx: 1
  [14:51:49.474] - relay: TRUE
  [14:51:49.474] - stdout: TRUE
  [14:51:49.475] - signal: TRUE
  [14:51:49.475] - resignal: FALSE
  [14:51:49.475] - force: FALSE
  [14:51:49.476] - relayed: [n=1] FALSE
  [14:51:49.476] - queued futures: [n=1] FALSE
  [14:51:49.476]  - until=1
  [14:51:49.477]  - relaying element #1
  [14:51:49.477] - relayed: [n=1] TRUE
  [14:51:49.477] - queued futures: [n=1] TRUE
  [14:51:49.478] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:51:49.478]  length: 0 (resolved future 1)
  [14:51:49.495] Relaying remaining futures
  [14:51:49.495] signalConditionsASAP(NULL, pos=0) ...
  [14:51:49.495] - nx: 1
  [14:51:49.496] - relay: TRUE
  [14:51:49.496] - stdout: TRUE
  [14:51:49.496] - signal: TRUE
  [14:51:49.497] - resignal: FALSE
  [14:51:49.497] - force: FALSE
  [14:51:49.497] - relayed: [n=1] TRUE
  [14:51:49.498] - queued futures: [n=1] TRUE
   - flush all
  [14:51:49.498] - relayed: [n=1] TRUE
  [14:51:49.499] - queued futures: [n=1] TRUE
  [14:51:49.499] signalConditionsASAP(NULL, pos=0) ... done
  [14:51:49.499] resolve() on list ... DONE
  [14:51:49.500] - collecting values of futures
  [14:51:49.500] - accumulating results
  [14:51:49.503] - processing errors (handler = 'stop')
  [14:51:49.504] - extracting results
  [14:51:49.504] doFuture() ... DONE
  - plan(list('sequential', 'multicore')) ... DONE
  - plan(list('sequential', 'multisession')) ...
  [14:51:49.506] plan(): Setting new future strategy stack:
  [14:51:49.506] List of future strategies:
  [14:51:49.506] 1. sequential:
  [14:51:49.506]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:51:49.506]    - tweaked: FALSE
  [14:51:49.506]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:49.506] 2. multisession:
  [14:51:49.506]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:51:49.506]    - tweaked: FALSE
  [14:51:49.506]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:49.508] plan(): nbrOfWorkers() = 1
  [14:51:49.508] doFuture() ...
  [14:51:49.532] - dummy globals (as locals): [2] 'a', 'b'
  [14:51:49.534] - R expression:
  [14:51:49.534] {
  [14:51:49.534]     doFuture::registerDoFuture()
  [14:51:49.534]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:49.534]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:49.534]         {
  [14:51:49.534]             a <- NULL
  [14:51:49.534]             b <- NULL
  [14:51:49.534]         }
  [14:51:49.534]         ...future.env <- environment()
  [14:51:49.534]         local({
  [14:51:49.534]             for (name in names(...future.x_jj)) {
  [14:51:49.534]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:49.534]                   inherits = FALSE)
  [14:51:49.534]             }
  [14:51:49.534]         })
  [14:51:49.534]         tryCatch({
  [14:51:49.534]             list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:49.534]                 plan = future::plan("next"))
  [14:51:49.534]         }, error = identity)
  [14:51:49.534]     })
  [14:51:49.534] }
  [14:51:49.535] - identifying globals and packages ...
  [14:51:49.536] getGlobalsAndPackages() ...
  [14:51:49.536] Searching for globals...
  [14:51:49.556] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [14:51:49.556] Searching for globals ... DONE
  [14:51:49.557] Resolving globals: FALSE
  [14:51:49.558] The total size of the 1 globals is 0 bytes (0 bytes)
  [14:51:49.559] - globals: [1] '...future.x_ii'
  [14:51:49.559] 
  [14:51:49.560] getGlobalsAndPackages() ... DONE
  [14:51:49.560] List of 1
  [14:51:49.560]  $ ...future.x_ii: NULL
  [14:51:49.560]  - attr(*, "where")=List of 1
  [14:51:49.560]   ..$ ...future.x_ii:<environment: 0x560013af45d8> 
  [14:51:49.560]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:51:49.560]  - attr(*, "resolved")= logi FALSE
  [14:51:49.560]  - attr(*, "total_size")= num 0
  [14:51:49.584]   - R expression:
  [14:51:49.585] {
  [14:51:49.585]     doFuture::registerDoFuture()
  [14:51:49.585]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:49.585]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:49.585]         {
  [14:51:49.585]             a <- NULL
  [14:51:49.585]             b <- NULL
  [14:51:49.585]         }
  [14:51:49.585]         ...future.env <- environment()
  [14:51:49.585]         local({
  [14:51:49.585]             for (name in names(...future.x_jj)) {
  [14:51:49.585]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:49.585]                   inherits = FALSE)
  [14:51:49.585]             }
  [14:51:49.585]         })
  [14:51:49.585]         tryCatch({
  [14:51:49.585]             list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:49.585]                 plan = future::plan("next"))
  [14:51:49.585]         }, error = identity)
  [14:51:49.585]     })
  [14:51:49.585] }
  [14:51:49.586]   - globals: [1] '...future.x_ii'
  [14:51:49.586] List of 1
  [14:51:49.586]  $ ...future.x_ii: NULL
  [14:51:49.586]  - attr(*, "where")=List of 1
  [14:51:49.586]   ..$ ...future.x_ii:<environment: 0x560013af45d8> 
  [14:51:49.586]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:51:49.586]  - attr(*, "resolved")= logi FALSE
  [14:51:49.586]  - attr(*, "total_size")= num 0
  [14:51:49.593]   - packages: [1] 'doFuture'
  [14:51:49.594] - identifying globals and packages ... DONE
  [14:51:49.594] Number of chunks: 1
  [14:51:49.594] Number of futures (= number of chunks): 1
  [14:51:49.595] Launching 1 futures (chunks) ...
  [14:51:49.596] Chunk #1 of 1 ...
  [14:51:49.596]  - Finding globals in 'args_list' chunk #1 ...
  [14:51:49.596] getGlobalsAndPackages() ...
  [14:51:49.597] Searching for globals...
  [14:51:49.598] 
  [14:51:49.599] Searching for globals ... DONE
  [14:51:49.599] - globals: [0] <none>
  [14:51:49.599] getGlobalsAndPackages() ... DONE
  [14:51:49.599] 
  [14:51:49.600] 
  [14:51:49.600]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:51:49.601] getGlobalsAndPackages() ...
  [14:51:49.601] - globals passed as-is: [1] '...future.x_ii'
  [14:51:49.601] Resolving globals: FALSE
  [14:51:49.602] The total size of the 1 globals is 672 bytes (672 bytes)
  [14:51:49.603] - globals: [1] '...future.x_ii'
  [14:51:49.603] 
  [14:51:49.604] getGlobalsAndPackages() ... DONE
  [14:51:49.606] Packages needed by the future expression (n = 1): 'doFuture'
  [14:51:49.623] Packages needed by future strategies (n = 1): 'future'
  [14:51:49.630] {
  [14:51:49.630]     {
  [14:51:49.630]         ...future.startTime <- base::Sys.time()
  [14:51:49.630]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:51:49.630]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:51:49.630]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:51:49.630]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:51:49.630]             future.resolve.recursive = NULL, width = 80L)
  [14:51:49.630]         {
  [14:51:49.630]             {
  [14:51:49.630]                 {
  [14:51:49.630]                   base::local({
  [14:51:49.630]                     has_future <- base::requireNamespace("future", 
  [14:51:49.630]                       quietly = TRUE)
  [14:51:49.630]                     version <- if (has_future) 
  [14:51:49.630]                       utils::packageVersion("future")
  [14:51:49.630]                     else NULL
  [14:51:49.630]                     if (!has_future || version < "1.8.0") {
  [14:51:49.630]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:51:49.630]                         "", base::R.version$version.string), 
  [14:51:49.630]                         platform = base::sprintf("%s (%s-bit)", 
  [14:51:49.630]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:51:49.630]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:51:49.630]                           "release", "version")], collapse = " "), 
  [14:51:49.630]                         hostname = base::Sys.info()[["nodename"]])
  [14:51:49.630]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:51:49.630]                         info)
  [14:51:49.630]                       info <- base::paste(info, collapse = "; ")
  [14:51:49.630]                       if (!has_future) {
  [14:51:49.630]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:51:49.630]                           info)
  [14:51:49.630]                       }
  [14:51:49.630]                       else {
  [14:51:49.630]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:51:49.630]                           info, version)
  [14:51:49.630]                       }
  [14:51:49.630]                       base::stop(msg)
  [14:51:49.630]                     }
  [14:51:49.630]                   })
  [14:51:49.630]                 }
  [14:51:49.630]                 base::local({
  [14:51:49.630]                   for (pkg in c("doFuture", "future")) {
  [14:51:49.630]                     base::loadNamespace(pkg)
  [14:51:49.630]                     base::library(pkg, character.only = TRUE)
  [14:51:49.630]                   }
  [14:51:49.630]                 })
  [14:51:49.630]             }
  [14:51:49.630]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:51:49.630]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:49.630]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:51:49.630]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:51:49.630]                 ...) 
  [14:51:49.630]             {
  [14:51:49.630]                 if (substitute) 
  [14:51:49.630]                   expr <- substitute(expr)
  [14:51:49.630]                 if (is.function(workers)) 
  [14:51:49.630]                   workers <- workers()
  [14:51:49.630]                 workers <- as.integer(workers)
  [14:51:49.630]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:51:49.630]                   workers >= 1)
  [14:51:49.630]                 if (workers == 1L) {
  [14:51:49.630]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:49.630]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:51:49.630]                     local = TRUE, label = label, ...))
  [14:51:49.630]                 }
  [14:51:49.630]                 workers <- ClusterRegistry("start", workers = workers)
  [14:51:49.630]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:51:49.630]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:49.630]                   globals = globals, persistent = persistent, 
  [14:51:49.630]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:51:49.630]                   label = label, ...)
  [14:51:49.630]                 if (!future$lazy) 
  [14:51:49.630]                   future <- run(future)
  [14:51:49.630]                 invisible(future)
  [14:51:49.630]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:49.630]         }
  [14:51:49.630]     }
  [14:51:49.630]     if (base::is.na(TRUE)) {
  [14:51:49.630]     }
  [14:51:49.630]     else {
  [14:51:49.630]         if (TRUE) {
  [14:51:49.630]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:51:49.630]                 open = "w")
  [14:51:49.630]         }
  [14:51:49.630]         else {
  [14:51:49.630]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:51:49.630]                 windows = "NUL", "/dev/null"), open = "w")
  [14:51:49.630]         }
  [14:51:49.630]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:51:49.630]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:51:49.630]             base::sink(type = "output", split = FALSE)
  [14:51:49.630]             base::close(...future.stdout)
  [14:51:49.630]         }, add = TRUE)
  [14:51:49.630]     }
  [14:51:49.630]     ...future.frame <- base::sys.nframe()
  [14:51:49.630]     ...future.conditions <- base::list()
  [14:51:49.630]     ...future.rng <- base::globalenv()$.Random.seed
  [14:51:49.630]     ...future.result <- base::tryCatch({
  [14:51:49.630]         base::withCallingHandlers({
  [14:51:49.630]             ...future.value <- base::withVisible(base::local({
  [14:51:49.630]                 doFuture::registerDoFuture()
  [14:51:49.630]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:49.630]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:49.630]                   {
  [14:51:49.630]                     a <- NULL
  [14:51:49.630]                     b <- NULL
  [14:51:49.630]                   }
  [14:51:49.630]                   ...future.env <- environment()
  [14:51:49.630]                   local({
  [14:51:49.630]                     for (name in names(...future.x_jj)) {
  [14:51:49.630]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:49.630]                         inherits = FALSE)
  [14:51:49.630]                     }
  [14:51:49.630]                   })
  [14:51:49.630]                   tryCatch({
  [14:51:49.630]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:49.630]                       plan = future::plan("next"))
  [14:51:49.630]                   }, error = identity)
  [14:51:49.630]                 })
  [14:51:49.630]             }))
  [14:51:49.630]             future::FutureResult(value = ...future.value$value, 
  [14:51:49.630]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:49.630]                   ...future.rng), started = ...future.startTime, 
  [14:51:49.630]                 version = "1.8")
  [14:51:49.630]         }, condition = base::local({
  [14:51:49.630]             c <- base::c
  [14:51:49.630]             inherits <- base::inherits
  [14:51:49.630]             invokeRestart <- base::invokeRestart
  [14:51:49.630]             length <- base::length
  [14:51:49.630]             list <- base::list
  [14:51:49.630]             seq.int <- base::seq.int
  [14:51:49.630]             signalCondition <- base::signalCondition
  [14:51:49.630]             sys.calls <- base::sys.calls
  [14:51:49.630]             Sys.time <- base::Sys.time
  [14:51:49.630]             `[[` <- base::`[[`
  [14:51:49.630]             `+` <- base::`+`
  [14:51:49.630]             `<<-` <- base::`<<-`
  [14:51:49.630]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:51:49.630]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:51:49.630]                   3L)]
  [14:51:49.630]             }
  [14:51:49.630]             function(cond) {
  [14:51:49.630]                 if (inherits(cond, "error")) {
  [14:51:49.630]                   sessionInformation <- function() {
  [14:51:49.630]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:51:49.630]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:51:49.630]                       search = base::search(), system = base::Sys.info())
  [14:51:49.630]                   }
  [14:51:49.630]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:49.630]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:51:49.630]                     cond$call), session = sessionInformation(), 
  [14:51:49.630]                     timestamp = Sys.time(), signaled = 0L)
  [14:51:49.630]                   signalCondition(cond)
  [14:51:49.630]                 }
  [14:51:49.630]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:51:49.630]                 ))) {
  [14:51:49.630]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:51:49.630]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:49.630]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:51:49.630]                   if (!signal) {
  [14:51:49.630]                     muffleCondition <- function (cond) 
  [14:51:49.630]                     {
  [14:51:49.630]                       inherits <- base::inherits
  [14:51:49.630]                       invokeRestart <- base::invokeRestart
  [14:51:49.630]                       muffled <- FALSE
  [14:51:49.630]                       if (inherits(cond, "message")) {
  [14:51:49.630]                         invokeRestart("muffleMessage")
  [14:51:49.630]                         muffled <- TRUE
  [14:51:49.630]                       }
  [14:51:49.630]                       else if (inherits(cond, "warning")) {
  [14:51:49.630]                         invokeRestart("muffleWarning")
  [14:51:49.630]                         muffled <- TRUE
  [14:51:49.630]                       }
  [14:51:49.630]                       else if (inherits(cond, "condition")) {
  [14:51:49.630]                         computeRestarts <- base::computeRestarts
  [14:51:49.630]                         grepl <- base::grepl
  [14:51:49.630]                         is.null <- base::is.null
  [14:51:49.630]                         restarts <- computeRestarts(cond)
  [14:51:49.630]                         for (restart in restarts) {
  [14:51:49.630]                           name <- restart$name
  [14:51:49.630]                           if (is.null(name)) 
  [14:51:49.630]                             next
  [14:51:49.630]                           if (!grepl("^muffle", name)) 
  [14:51:49.630]                             next
  [14:51:49.630]                           invokeRestart(restart)
  [14:51:49.630]                           muffled <- TRUE
  [14:51:49.630]                           break
  [14:51:49.630]                         }
  [14:51:49.630]                       }
  [14:51:49.630]                       invisible(muffled)
  [14:51:49.630]                     }
  [14:51:49.630]                     muffleCondition(cond)
  [14:51:49.630]                   }
  [14:51:49.630]                 }
  [14:51:49.630]             }
  [14:51:49.630]         }))
  [14:51:49.630]     }, error = function(ex) {
  [14:51:49.630]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:51:49.630]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:49.630]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:51:49.630]     }, finally = {
  [14:51:49.630]         {
  [14:51:49.630]             NULL
  [14:51:49.630]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:51:49.630]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:49.630]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:51:49.630]                 label = NULL, ...) 
  [14:51:49.630]             {
  [14:51:49.630]                 if (substitute) 
  [14:51:49.630]                   expr <- substitute(expr)
  [14:51:49.630]                 local <- as.logical(local)
  [14:51:49.630]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:51:49.630]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:49.630]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:51:49.630]                   label = label, ...)
  [14:51:49.630]                 if (!future$lazy) 
  [14:51:49.630]                   future <- run(future)
  [14:51:49.630]                 invisible(future)
  [14:51:49.630]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:51:49.630]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [14:51:49.630]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [14:51:49.630]                 label = NULL, ...) 
  [14:51:49.630]             {
  [14:51:49.630]                 if (substitute) 
  [14:51:49.630]                   expr <- substitute(expr)
  [14:51:49.630]                 if (is.function(workers)) 
  [14:51:49.630]                   workers <- workers()
  [14:51:49.630]                 workers <- as.integer(workers)
  [14:51:49.630]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:51:49.630]                   workers >= 1)
  [14:51:49.630]                 if (workers == 1L) {
  [14:51:49.630]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:49.630]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:51:49.630]                     local = TRUE, label = label, ...))
  [14:51:49.630]                 }
  [14:51:49.630]                 workers <- ClusterRegistry("start", workers = workers)
  [14:51:49.630]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:51:49.630]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:49.630]                   globals = globals, persistent = persistent, 
  [14:51:49.630]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:51:49.630]                   label = label, ...)
  [14:51:49.630]                 if (!future$lazy) 
  [14:51:49.630]                   future <- run(future)
  [14:51:49.630]                 invisible(future)
  [14:51:49.630]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:49.630]         }
  [14:51:49.630]         base::options(...future.oldOptions)
  [14:51:49.630]     })
  [14:51:49.630]     Sys.time
  [14:51:49.630]     if (base::is.na(TRUE)) {
  [14:51:49.630]     }
  [14:51:49.630]     else {
  [14:51:49.630]         base::sink(type = "output", split = FALSE)
  [14:51:49.630]         if (TRUE) {
  [14:51:49.630]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:51:49.630]         }
  [14:51:49.630]         else {
  [14:51:49.630]             ...future.result["stdout"] <- base::list(NULL)
  [14:51:49.630]         }
  [14:51:49.630]         base::close(...future.stdout)
  [14:51:49.630]         ...future.stdout <- NULL
  [14:51:49.630]     }
  [14:51:49.630]     ...future.result$conditions <- ...future.conditions
  [14:51:49.630]     ...future.result
  [14:51:49.630] }
  [14:51:49.637] plan(): Setting new future strategy stack:
  [14:51:49.638] List of future strategies:
  [14:51:49.638] 1. multisession:
  [14:51:49.638]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:51:49.638]    - tweaked: FALSE
  [14:51:49.638]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:49.642] plan(): nbrOfWorkers() = 2
  [14:51:49.645] plan(): Setting new future strategy stack:
  [14:51:49.645] List of future strategies:
  [14:51:49.645] 1. sequential:
  [14:51:49.645]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:51:49.645]    - tweaked: FALSE
  [14:51:49.645]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:49.645] 2. multisession:
  [14:51:49.645]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:51:49.645]    - tweaked: FALSE
  [14:51:49.645]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:49.647] plan(): nbrOfWorkers() = 1
  [14:51:49.648] SequentialFuture started (and completed)
  [14:51:49.648] Chunk #1 of 1 ... DONE
  [14:51:49.649] Launching 1 futures (chunks) ... DONE
  [14:51:49.649] - resolving futures
  [14:51:49.649]   - gathering results & relaying conditions (except errors)
  [14:51:49.650] resolve() on list ...
  [14:51:49.650]  recursive: 0
  [14:51:49.650]  length: 1
  [14:51:49.651] 
  [14:51:49.651] Future #1
  [14:51:49.651] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:51:49.652] - nx: 1
  [14:51:49.652] - relay: TRUE
  [14:51:49.652] - stdout: TRUE
  [14:51:49.653] - signal: TRUE
  [14:51:49.653] - resignal: FALSE
  [14:51:49.653] - force: FALSE
  [14:51:49.653] - relayed: [n=1] FALSE
  [14:51:49.654] - queued futures: [n=1] FALSE
  [14:51:49.654]  - until=1
  [14:51:49.654]  - relaying element #1
  [14:51:49.655] - relayed: [n=1] TRUE
  [14:51:49.655] - queued futures: [n=1] TRUE
  [14:51:49.656] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:51:49.656]  length: 0 (resolved future 1)
  [14:51:49.657] Relaying remaining futures
  [14:51:49.657] signalConditionsASAP(NULL, pos=0) ...
  [14:51:49.657] - nx: 1
  [14:51:49.657] - relay: TRUE
  [14:51:49.658] - stdout: TRUE
  [14:51:49.658] - signal: TRUE
  [14:51:49.658] - resignal: FALSE
  [14:51:49.659] - force: FALSE
  [14:51:49.659] - relayed: [n=1] TRUE
  [14:51:49.659] - queued futures: [n=1] TRUE
   - flush all
  [14:51:49.660] - relayed: [n=1] TRUE
  [14:51:49.660] - queued futures: [n=1] TRUE
  [14:51:49.661] signalConditionsASAP(NULL, pos=0) ... done
  [14:51:49.661] resolve() on list ... DONE
  [14:51:49.661] - collecting values of futures
  [14:51:49.662] - accumulating results
  [14:51:49.665] - processing errors (handler = 'stop')
  [14:51:49.665] - extracting results
  [14:51:49.666] doFuture() ... DONE
  - plan(list('sequential', 'multisession')) ... DONE
  - plan(list('sequential', 'cluster')) ...
  [14:51:49.668] plan(): Setting new future strategy stack:
  [14:51:49.668] List of future strategies:
  [14:51:49.668] 1. sequential:
  [14:51:49.668]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:51:49.668]    - tweaked: FALSE
  [14:51:49.668]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:49.668] 2. cluster:
  [14:51:49.668]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:51:49.668]    - tweaked: FALSE
  [14:51:49.668]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:49.670] plan(): nbrOfWorkers() = 1
  [14:51:49.670] doFuture() ...
  [14:51:49.675] - dummy globals (as locals): [2] 'a', 'b'
  [14:51:49.677] - R expression:
  [14:51:49.677] {
  [14:51:49.677]     doFuture::registerDoFuture()
  [14:51:49.677]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:49.677]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:49.677]         {
  [14:51:49.677]             a <- NULL
  [14:51:49.677]             b <- NULL
  [14:51:49.677]         }
  [14:51:49.677]         ...future.env <- environment()
  [14:51:49.677]         local({
  [14:51:49.677]             for (name in names(...future.x_jj)) {
  [14:51:49.677]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:49.677]                   inherits = FALSE)
  [14:51:49.677]             }
  [14:51:49.677]         })
  [14:51:49.677]         tryCatch({
  [14:51:49.677]             list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:49.677]                 plan = future::plan("next"))
  [14:51:49.677]         }, error = identity)
  [14:51:49.677]     })
  [14:51:49.677] }
  [14:51:49.678] - identifying globals and packages ...
  [14:51:49.678] getGlobalsAndPackages() ...
  [14:51:49.679] Searching for globals...
  [14:51:49.698] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [14:51:49.698] Searching for globals ... DONE
  [14:51:49.699] Resolving globals: FALSE
  [14:51:49.701] The total size of the 1 globals is 0 bytes (0 bytes)
  [14:51:49.701] - globals: [1] '...future.x_ii'
  [14:51:49.701] 
  [14:51:49.702] getGlobalsAndPackages() ... DONE
  [14:51:49.702] List of 1
  [14:51:49.702]  $ ...future.x_ii: NULL
  [14:51:49.702]  - attr(*, "where")=List of 1
  [14:51:49.702]   ..$ ...future.x_ii:<environment: 0x560013246340> 
  [14:51:49.702]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:51:49.702]  - attr(*, "resolved")= logi FALSE
  [14:51:49.702]  - attr(*, "total_size")= num 0
  [14:51:49.711]   - R expression:
  [14:51:49.711] {
  [14:51:49.711]     doFuture::registerDoFuture()
  [14:51:49.711]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:49.711]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:49.711]         {
  [14:51:49.711]             a <- NULL
  [14:51:49.711]             b <- NULL
  [14:51:49.711]         }
  [14:51:49.711]         ...future.env <- environment()
  [14:51:49.711]         local({
  [14:51:49.711]             for (name in names(...future.x_jj)) {
  [14:51:49.711]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:49.711]                   inherits = FALSE)
  [14:51:49.711]             }
  [14:51:49.711]         })
  [14:51:49.711]         tryCatch({
  [14:51:49.711]             list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:49.711]                 plan = future::plan("next"))
  [14:51:49.711]         }, error = identity)
  [14:51:49.711]     })
  [14:51:49.711] }
  [14:51:49.712]   - globals: [1] '...future.x_ii'
  [14:51:49.712] List of 1
  [14:51:49.712]  $ ...future.x_ii: NULL
  [14:51:49.712]  - attr(*, "where")=List of 1
  [14:51:49.712]   ..$ ...future.x_ii:<environment: 0x560013246340> 
  [14:51:49.712]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:51:49.712]  - attr(*, "resolved")= logi FALSE
  [14:51:49.712]  - attr(*, "total_size")= num 0
  [14:51:49.724]   - packages: [1] 'doFuture'
  [14:51:49.725] - identifying globals and packages ... DONE
  [14:51:49.725] Number of chunks: 1
  [14:51:49.725] Number of futures (= number of chunks): 1
  [14:51:49.726] Launching 1 futures (chunks) ...
  [14:51:49.727] Chunk #1 of 1 ...
  [14:51:49.727]  - Finding globals in 'args_list' chunk #1 ...
  [14:51:49.727] getGlobalsAndPackages() ...
  [14:51:49.728] Searching for globals...
  [14:51:49.729] 
  [14:51:49.729] Searching for globals ... DONE
  [14:51:49.730] - globals: [0] <none>
  [14:51:49.730] getGlobalsAndPackages() ... DONE
  [14:51:49.730] 
  [14:51:49.731] 
  [14:51:49.731]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:51:49.732] getGlobalsAndPackages() ...
  [14:51:49.732] - globals passed as-is: [1] '...future.x_ii'
  [14:51:49.732] Resolving globals: FALSE
  [14:51:49.734] The total size of the 1 globals is 672 bytes (672 bytes)
  [14:51:49.734] - globals: [1] '...future.x_ii'
  [14:51:49.735] 
  [14:51:49.735] getGlobalsAndPackages() ... DONE
  [14:51:49.737] Packages needed by the future expression (n = 1): 'doFuture'
  [14:51:49.738] Packages needed by future strategies (n = 1): 'future'
  [14:51:49.745] {
  [14:51:49.745]     {
  [14:51:49.745]         ...future.startTime <- base::Sys.time()
  [14:51:49.745]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:51:49.745]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:51:49.745]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:51:49.745]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:51:49.745]             future.resolve.recursive = NULL, width = 80L)
  [14:51:49.745]         {
  [14:51:49.745]             {
  [14:51:49.745]                 {
  [14:51:49.745]                   base::local({
  [14:51:49.745]                     has_future <- base::requireNamespace("future", 
  [14:51:49.745]                       quietly = TRUE)
  [14:51:49.745]                     version <- if (has_future) 
  [14:51:49.745]                       utils::packageVersion("future")
  [14:51:49.745]                     else NULL
  [14:51:49.745]                     if (!has_future || version < "1.8.0") {
  [14:51:49.745]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:51:49.745]                         "", base::R.version$version.string), 
  [14:51:49.745]                         platform = base::sprintf("%s (%s-bit)", 
  [14:51:49.745]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:51:49.745]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:51:49.745]                           "release", "version")], collapse = " "), 
  [14:51:49.745]                         hostname = base::Sys.info()[["nodename"]])
  [14:51:49.745]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:51:49.745]                         info)
  [14:51:49.745]                       info <- base::paste(info, collapse = "; ")
  [14:51:49.745]                       if (!has_future) {
  [14:51:49.745]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:51:49.745]                           info)
  [14:51:49.745]                       }
  [14:51:49.745]                       else {
  [14:51:49.745]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:51:49.745]                           info, version)
  [14:51:49.745]                       }
  [14:51:49.745]                       base::stop(msg)
  [14:51:49.745]                     }
  [14:51:49.745]                   })
  [14:51:49.745]                 }
  [14:51:49.745]                 base::local({
  [14:51:49.745]                   for (pkg in c("doFuture", "future")) {
  [14:51:49.745]                     base::loadNamespace(pkg)
  [14:51:49.745]                     base::library(pkg, character.only = TRUE)
  [14:51:49.745]                   }
  [14:51:49.745]                 })
  [14:51:49.745]             }
  [14:51:49.745]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:51:49.745]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:49.745]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [14:51:49.745]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [14:51:49.745]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:51:49.745]                 ...) 
  [14:51:49.745]             {
  [14:51:49.745]                 if (substitute) 
  [14:51:49.745]                   expr <- substitute(expr)
  [14:51:49.745]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [14:51:49.745]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:49.745]                   globals = globals, persistent = persistent, 
  [14:51:49.745]                   workers = workers, user = user, revtunnel = revtunnel, 
  [14:51:49.745]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [14:51:49.745]                   label = label, ...)
  [14:51:49.745]                 if (!future$lazy) 
  [14:51:49.745]                   future <- run(future)
  [14:51:49.745]                 invisible(future)
  [14:51:49.745]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:49.745]         }
  [14:51:49.745]     }
  [14:51:49.745]     if (base::is.na(TRUE)) {
  [14:51:49.745]     }
  [14:51:49.745]     else {
  [14:51:49.745]         if (TRUE) {
  [14:51:49.745]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:51:49.745]                 open = "w")
  [14:51:49.745]         }
  [14:51:49.745]         else {
  [14:51:49.745]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:51:49.745]                 windows = "NUL", "/dev/null"), open = "w")
  [14:51:49.745]         }
  [14:51:49.745]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:51:49.745]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:51:49.745]             base::sink(type = "output", split = FALSE)
  [14:51:49.745]             base::close(...future.stdout)
  [14:51:49.745]         }, add = TRUE)
  [14:51:49.745]     }
  [14:51:49.745]     ...future.frame <- base::sys.nframe()
  [14:51:49.745]     ...future.conditions <- base::list()
  [14:51:49.745]     ...future.rng <- base::globalenv()$.Random.seed
  [14:51:49.745]     ...future.result <- base::tryCatch({
  [14:51:49.745]         base::withCallingHandlers({
  [14:51:49.745]             ...future.value <- base::withVisible(base::local({
  [14:51:49.745]                 doFuture::registerDoFuture()
  [14:51:49.745]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:49.745]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:49.745]                   {
  [14:51:49.745]                     a <- NULL
  [14:51:49.745]                     b <- NULL
  [14:51:49.745]                   }
  [14:51:49.745]                   ...future.env <- environment()
  [14:51:49.745]                   local({
  [14:51:49.745]                     for (name in names(...future.x_jj)) {
  [14:51:49.745]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:49.745]                         inherits = FALSE)
  [14:51:49.745]                     }
  [14:51:49.745]                   })
  [14:51:49.745]                   tryCatch({
  [14:51:49.745]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:49.745]                       plan = future::plan("next"))
  [14:51:49.745]                   }, error = identity)
  [14:51:49.745]                 })
  [14:51:49.745]             }))
  [14:51:49.745]             future::FutureResult(value = ...future.value$value, 
  [14:51:49.745]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:49.745]                   ...future.rng), started = ...future.startTime, 
  [14:51:49.745]                 version = "1.8")
  [14:51:49.745]         }, condition = base::local({
  [14:51:49.745]             c <- base::c
  [14:51:49.745]             inherits <- base::inherits
  [14:51:49.745]             invokeRestart <- base::invokeRestart
  [14:51:49.745]             length <- base::length
  [14:51:49.745]             list <- base::list
  [14:51:49.745]             seq.int <- base::seq.int
  [14:51:49.745]             signalCondition <- base::signalCondition
  [14:51:49.745]             sys.calls <- base::sys.calls
  [14:51:49.745]             Sys.time <- base::Sys.time
  [14:51:49.745]             `[[` <- base::`[[`
  [14:51:49.745]             `+` <- base::`+`
  [14:51:49.745]             `<<-` <- base::`<<-`
  [14:51:49.745]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:51:49.745]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:51:49.745]                   3L)]
  [14:51:49.745]             }
  [14:51:49.745]             function(cond) {
  [14:51:49.745]                 if (inherits(cond, "error")) {
  [14:51:49.745]                   sessionInformation <- function() {
  [14:51:49.745]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:51:49.745]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:51:49.745]                       search = base::search(), system = base::Sys.info())
  [14:51:49.745]                   }
  [14:51:49.745]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:49.745]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:51:49.745]                     cond$call), session = sessionInformation(), 
  [14:51:49.745]                     timestamp = Sys.time(), signaled = 0L)
  [14:51:49.745]                   signalCondition(cond)
  [14:51:49.745]                 }
  [14:51:49.745]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:51:49.745]                 ))) {
  [14:51:49.745]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:51:49.745]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:49.745]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:51:49.745]                   if (!signal) {
  [14:51:49.745]                     muffleCondition <- function (cond) 
  [14:51:49.745]                     {
  [14:51:49.745]                       inherits <- base::inherits
  [14:51:49.745]                       invokeRestart <- base::invokeRestart
  [14:51:49.745]                       muffled <- FALSE
  [14:51:49.745]                       if (inherits(cond, "message")) {
  [14:51:49.745]                         invokeRestart("muffleMessage")
  [14:51:49.745]                         muffled <- TRUE
  [14:51:49.745]                       }
  [14:51:49.745]                       else if (inherits(cond, "warning")) {
  [14:51:49.745]                         invokeRestart("muffleWarning")
  [14:51:49.745]                         muffled <- TRUE
  [14:51:49.745]                       }
  [14:51:49.745]                       else if (inherits(cond, "condition")) {
  [14:51:49.745]                         computeRestarts <- base::computeRestarts
  [14:51:49.745]                         grepl <- base::grepl
  [14:51:49.745]                         is.null <- base::is.null
  [14:51:49.745]                         restarts <- computeRestarts(cond)
  [14:51:49.745]                         for (restart in restarts) {
  [14:51:49.745]                           name <- restart$name
  [14:51:49.745]                           if (is.null(name)) 
  [14:51:49.745]                             next
  [14:51:49.745]                           if (!grepl("^muffle", name)) 
  [14:51:49.745]                             next
  [14:51:49.745]                           invokeRestart(restart)
  [14:51:49.745]                           muffled <- TRUE
  [14:51:49.745]                           break
  [14:51:49.745]                         }
  [14:51:49.745]                       }
  [14:51:49.745]                       invisible(muffled)
  [14:51:49.745]                     }
  [14:51:49.745]                     muffleCondition(cond)
  [14:51:49.745]                   }
  [14:51:49.745]                 }
  [14:51:49.745]             }
  [14:51:49.745]         }))
  [14:51:49.745]     }, error = function(ex) {
  [14:51:49.745]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:51:49.745]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:49.745]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:51:49.745]     }, finally = {
  [14:51:49.745]         {
  [14:51:49.745]             NULL
  [14:51:49.745]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:51:49.745]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:49.745]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:51:49.745]                 label = NULL, ...) 
  [14:51:49.745]             {
  [14:51:49.745]                 if (substitute) 
  [14:51:49.745]                   expr <- substitute(expr)
  [14:51:49.745]                 local <- as.logical(local)
  [14:51:49.745]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:51:49.745]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:49.745]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:51:49.745]                   label = label, ...)
  [14:51:49.745]                 if (!future$lazy) 
  [14:51:49.745]                   future <- run(future)
  [14:51:49.745]                 invisible(future)
  [14:51:49.745]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:51:49.745]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [14:51:49.745]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [14:51:49.745]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [14:51:49.745]                 label = NULL, ...) 
  [14:51:49.745]             {
  [14:51:49.745]                 if (substitute) 
  [14:51:49.745]                   expr <- substitute(expr)
  [14:51:49.745]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [14:51:49.745]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:49.745]                   globals = globals, persistent = persistent, 
  [14:51:49.745]                   workers = workers, user = user, revtunnel = revtunnel, 
  [14:51:49.745]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [14:51:49.745]                   label = label, ...)
  [14:51:49.745]                 if (!future$lazy) 
  [14:51:49.745]                   future <- run(future)
  [14:51:49.745]                 invisible(future)
  [14:51:49.745]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:49.745]         }
  [14:51:49.745]         base::options(...future.oldOptions)
  [14:51:49.745]     })
  [14:51:49.745]     Sys.time
  [14:51:49.745]     if (base::is.na(TRUE)) {
  [14:51:49.745]     }
  [14:51:49.745]     else {
  [14:51:49.745]         base::sink(type = "output", split = FALSE)
  [14:51:49.745]         if (TRUE) {
  [14:51:49.745]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:51:49.745]         }
  [14:51:49.745]         else {
  [14:51:49.745]             ...future.result["stdout"] <- base::list(NULL)
  [14:51:49.745]         }
  [14:51:49.745]         base::close(...future.stdout)
  [14:51:49.745]         ...future.stdout <- NULL
  [14:51:49.745]     }
  [14:51:49.745]     ...future.result$conditions <- ...future.conditions
  [14:51:49.745]     ...future.result
  [14:51:49.745] }
  [14:51:49.753] plan(): Setting new future strategy stack:
  [14:51:49.754] List of future strategies:
  [14:51:49.754] 1. cluster:
  [14:51:49.754]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:51:49.754]    - tweaked: FALSE
  [14:51:49.754]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:49.757] plan(): nbrOfWorkers() = 2
  [14:51:49.760] plan(): Setting new future strategy stack:
  [14:51:49.760] List of future strategies:
  [14:51:49.760] 1. sequential:
  [14:51:49.760]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:51:49.760]    - tweaked: FALSE
  [14:51:49.760]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:49.760] 2. cluster:
  [14:51:49.760]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:51:49.760]    - tweaked: FALSE
  [14:51:49.760]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:49.762] plan(): nbrOfWorkers() = 1
  [14:51:49.763] SequentialFuture started (and completed)
  [14:51:49.763] Chunk #1 of 1 ... DONE
  [14:51:49.764] Launching 1 futures (chunks) ... DONE
  [14:51:49.764] - resolving futures
  [14:51:49.764]   - gathering results & relaying conditions (except errors)
  [14:51:49.764] resolve() on list ...
  [14:51:49.765]  recursive: 0
  [14:51:49.765]  length: 1
  [14:51:49.766] 
  [14:51:49.766] Future #1
  [14:51:49.767] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:51:49.767] - nx: 1
  [14:51:49.767] - relay: TRUE
  [14:51:49.768] - stdout: TRUE
  [14:51:49.768] - signal: TRUE
  [14:51:49.768] - resignal: FALSE
  [14:51:49.768] - force: FALSE
  [14:51:49.769] - relayed: [n=1] FALSE
  [14:51:49.769] - queued futures: [n=1] FALSE
  [14:51:49.769]  - until=1
  [14:51:49.770]  - relaying element #1
  [14:51:49.770] - relayed: [n=1] TRUE
  [14:51:49.771] - queued futures: [n=1] TRUE
  [14:51:49.771] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:51:49.771]  length: 0 (resolved future 1)
  [14:51:49.772] Relaying remaining futures
  [14:51:49.772] signalConditionsASAP(NULL, pos=0) ...
  [14:51:49.772] - nx: 1
  [14:51:49.773] - relay: TRUE
  [14:51:49.773] - stdout: TRUE
  [14:51:49.773] - signal: TRUE
  [14:51:49.774] - resignal: FALSE
  [14:51:49.774] - force: FALSE
  [14:51:49.774] - relayed: [n=1] TRUE
  [14:51:49.775] - queued futures: [n=1] TRUE
   - flush all
  [14:51:49.775] - relayed: [n=1] TRUE
  [14:51:49.776] - queued futures: [n=1] TRUE
  [14:51:49.776] signalConditionsASAP(NULL, pos=0) ... done
  [14:51:49.776] resolve() on list ... DONE
  [14:51:49.777] - collecting values of futures
  [14:51:49.777] - accumulating results
  [14:51:49.780] - processing errors (handler = 'stop')
  [14:51:49.781] - extracting results
  [14:51:49.781] doFuture() ... DONE
  - plan(list('sequential', 'cluster')) ... DONE
  - plan(list('multicore', 'sequential')) ...
  [14:51:49.783] plan(): Setting new future strategy stack:
  [14:51:49.783] List of future strategies:
  [14:51:49.783] 1. multicore:
  [14:51:49.783]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:51:49.783]    - tweaked: FALSE
  [14:51:49.783]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:49.783] 2. sequential:
  [14:51:49.783]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:51:49.783]    - tweaked: FALSE
  [14:51:49.783]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:49.785] plan(): nbrOfWorkers() = 2
  [14:51:49.786] doFuture() ...
  [14:51:49.791] - dummy globals (as locals): [2] 'a', 'b'
  [14:51:49.792] - R expression:
  [14:51:49.793] {
  [14:51:49.793]     doFuture::registerDoFuture()
  [14:51:49.793]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:49.793]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:49.793]         {
  [14:51:49.793]             a <- NULL
  [14:51:49.793]             b <- NULL
  [14:51:49.793]         }
  [14:51:49.793]         ...future.env <- environment()
  [14:51:49.793]         local({
  [14:51:49.793]             for (name in names(...future.x_jj)) {
  [14:51:49.793]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:49.793]                   inherits = FALSE)
  [14:51:49.793]             }
  [14:51:49.793]         })
  [14:51:49.793]         tryCatch({
  [14:51:49.793]             list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:49.793]                 plan = future::plan("next"))
  [14:51:49.793]         }, error = identity)
  [14:51:49.793]     })
  [14:51:49.793] }
  [14:51:49.794] - identifying globals and packages ...
  [14:51:49.794] getGlobalsAndPackages() ...
  [14:51:49.794] Searching for globals...
  [14:51:49.816] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [14:51:49.817] Searching for globals ... DONE
  [14:51:49.817] Resolving globals: FALSE
  [14:51:49.819] The total size of the 1 globals is 0 bytes (0 bytes)
  [14:51:49.820] - globals: [1] '...future.x_ii'
  [14:51:49.820] 
  [14:51:49.820] getGlobalsAndPackages() ... DONE
  [14:51:49.821] List of 1
  [14:51:49.821]  $ ...future.x_ii: NULL
  [14:51:49.821]  - attr(*, "where")=List of 1
  [14:51:49.821]   ..$ ...future.x_ii:<environment: 0x56001514eff0> 
  [14:51:49.821]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:51:49.821]  - attr(*, "resolved")= logi FALSE
  [14:51:49.821]  - attr(*, "total_size")= num 0
  [14:51:49.829]   - R expression:
  [14:51:49.829] {
  [14:51:49.829]     doFuture::registerDoFuture()
  [14:51:49.829]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:49.829]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:49.829]         {
  [14:51:49.829]             a <- NULL
  [14:51:49.829]             b <- NULL
  [14:51:49.829]         }
  [14:51:49.829]         ...future.env <- environment()
  [14:51:49.829]         local({
  [14:51:49.829]             for (name in names(...future.x_jj)) {
  [14:51:49.829]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:49.829]                   inherits = FALSE)
  [14:51:49.829]             }
  [14:51:49.829]         })
  [14:51:49.829]         tryCatch({
  [14:51:49.829]             list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:49.829]                 plan = future::plan("next"))
  [14:51:49.829]         }, error = identity)
  [14:51:49.829]     })
  [14:51:49.829] }
  [14:51:49.830]   - globals: [1] '...future.x_ii'
  [14:51:49.831] List of 1
  [14:51:49.831]  $ ...future.x_ii: NULL
  [14:51:49.831]  - attr(*, "where")=List of 1
  [14:51:49.831]   ..$ ...future.x_ii:<environment: 0x56001514eff0> 
  [14:51:49.831]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:51:49.831]  - attr(*, "resolved")= logi FALSE
  [14:51:49.831]  - attr(*, "total_size")= num 0
  [14:51:49.839]   - packages: [1] 'doFuture'
  [14:51:49.839] - identifying globals and packages ... DONE
  [14:51:49.843] Number of chunks: 2
  [14:51:49.844] Number of futures (= number of chunks): 2
  [14:51:49.845] Launching 2 futures (chunks) ...
  [14:51:49.845] Chunk #1 of 2 ...
  [14:51:49.846]  - Finding globals in 'args_list' chunk #1 ...
  [14:51:49.846] getGlobalsAndPackages() ...
  [14:51:49.846] Searching for globals...
  [14:51:49.848] 
  [14:51:49.848] Searching for globals ... DONE
  [14:51:49.848] - globals: [0] <none>
  [14:51:49.849] getGlobalsAndPackages() ... DONE
  [14:51:49.849] 
  [14:51:49.849] 
  [14:51:49.850]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:51:49.851] getGlobalsAndPackages() ...
  [14:51:49.851] - globals passed as-is: [1] '...future.x_ii'
  [14:51:49.851] Resolving globals: FALSE
  [14:51:49.852] The total size of the 1 globals is 336 bytes (336 bytes)
  [14:51:49.853] - globals: [1] '...future.x_ii'
  [14:51:49.853] 
  [14:51:49.853] getGlobalsAndPackages() ... DONE
  [14:51:49.857] Packages needed by the future expression (n = 1): 'doFuture'
  [14:51:49.857] Packages needed by future strategies (n = 1): 'future'
  [14:51:49.864] {
  [14:51:49.864]     {
  [14:51:49.864]         ...future.startTime <- base::Sys.time()
  [14:51:49.864]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:51:49.864]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:51:49.864]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:51:49.864]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:51:49.864]             future.resolve.recursive = NULL, width = 80L)
  [14:51:49.864]         {
  [14:51:49.864]             {
  [14:51:49.864]                 {
  [14:51:49.864]                   {
  [14:51:49.864]                     base::local({
  [14:51:49.864]                       has_future <- base::requireNamespace("future", 
  [14:51:49.864]                         quietly = TRUE)
  [14:51:49.864]                       version <- if (has_future) 
  [14:51:49.864]                         utils::packageVersion("future")
  [14:51:49.864]                       else NULL
  [14:51:49.864]                       if (!has_future || version < "1.8.0") {
  [14:51:49.864]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:51:49.864]                           "", base::R.version$version.string), 
  [14:51:49.864]                           platform = base::sprintf("%s (%s-bit)", 
  [14:51:49.864]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:51:49.864]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:51:49.864]                             "release", "version")], collapse = " "), 
  [14:51:49.864]                           hostname = base::Sys.info()[["nodename"]])
  [14:51:49.864]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:51:49.864]                           info)
  [14:51:49.864]                         info <- base::paste(info, collapse = "; ")
  [14:51:49.864]                         if (!has_future) {
  [14:51:49.864]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:51:49.864]                             info)
  [14:51:49.864]                         }
  [14:51:49.864]                         else {
  [14:51:49.864]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:51:49.864]                             info, version)
  [14:51:49.864]                         }
  [14:51:49.864]                         base::stop(msg)
  [14:51:49.864]                       }
  [14:51:49.864]                     })
  [14:51:49.864]                   }
  [14:51:49.864]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:51:49.864]                   base::options(mc.cores = 1L)
  [14:51:49.864]                 }
  [14:51:49.864]                 base::local({
  [14:51:49.864]                   for (pkg in c("doFuture", "future")) {
  [14:51:49.864]                     base::loadNamespace(pkg)
  [14:51:49.864]                     base::library(pkg, character.only = TRUE)
  [14:51:49.864]                   }
  [14:51:49.864]                 })
  [14:51:49.864]             }
  [14:51:49.864]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:51:49.864]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:49.864]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:51:49.864]                 label = NULL, ...) 
  [14:51:49.864]             {
  [14:51:49.864]                 if (substitute) 
  [14:51:49.864]                   expr <- substitute(expr)
  [14:51:49.864]                 local <- as.logical(local)
  [14:51:49.864]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:51:49.864]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:49.864]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:51:49.864]                   label = label, ...)
  [14:51:49.864]                 if (!future$lazy) 
  [14:51:49.864]                   future <- run(future)
  [14:51:49.864]                 invisible(future)
  [14:51:49.864]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:49.864]         }
  [14:51:49.864]     }
  [14:51:49.864]     if (base::is.na(TRUE)) {
  [14:51:49.864]     }
  [14:51:49.864]     else {
  [14:51:49.864]         if (TRUE) {
  [14:51:49.864]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:51:49.864]                 open = "w")
  [14:51:49.864]         }
  [14:51:49.864]         else {
  [14:51:49.864]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:51:49.864]                 windows = "NUL", "/dev/null"), open = "w")
  [14:51:49.864]         }
  [14:51:49.864]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:51:49.864]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:51:49.864]             base::sink(type = "output", split = FALSE)
  [14:51:49.864]             base::close(...future.stdout)
  [14:51:49.864]         }, add = TRUE)
  [14:51:49.864]     }
  [14:51:49.864]     ...future.frame <- base::sys.nframe()
  [14:51:49.864]     ...future.conditions <- base::list()
  [14:51:49.864]     ...future.rng <- base::globalenv()$.Random.seed
  [14:51:49.864]     ...future.result <- base::tryCatch({
  [14:51:49.864]         base::withCallingHandlers({
  [14:51:49.864]             ...future.value <- base::withVisible(base::local({
  [14:51:49.864]                 doFuture::registerDoFuture()
  [14:51:49.864]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:49.864]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:49.864]                   {
  [14:51:49.864]                     a <- NULL
  [14:51:49.864]                     b <- NULL
  [14:51:49.864]                   }
  [14:51:49.864]                   ...future.env <- environment()
  [14:51:49.864]                   local({
  [14:51:49.864]                     for (name in names(...future.x_jj)) {
  [14:51:49.864]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:49.864]                         inherits = FALSE)
  [14:51:49.864]                     }
  [14:51:49.864]                   })
  [14:51:49.864]                   tryCatch({
  [14:51:49.864]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:49.864]                       plan = future::plan("next"))
  [14:51:49.864]                   }, error = identity)
  [14:51:49.864]                 })
  [14:51:49.864]             }))
  [14:51:49.864]             future::FutureResult(value = ...future.value$value, 
  [14:51:49.864]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:49.864]                   ...future.rng), started = ...future.startTime, 
  [14:51:49.864]                 version = "1.8")
  [14:51:49.864]         }, condition = base::local({
  [14:51:49.864]             c <- base::c
  [14:51:49.864]             inherits <- base::inherits
  [14:51:49.864]             invokeRestart <- base::invokeRestart
  [14:51:49.864]             length <- base::length
  [14:51:49.864]             list <- base::list
  [14:51:49.864]             seq.int <- base::seq.int
  [14:51:49.864]             signalCondition <- base::signalCondition
  [14:51:49.864]             sys.calls <- base::sys.calls
  [14:51:49.864]             Sys.time <- base::Sys.time
  [14:51:49.864]             `[[` <- base::`[[`
  [14:51:49.864]             `+` <- base::`+`
  [14:51:49.864]             `<<-` <- base::`<<-`
  [14:51:49.864]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:51:49.864]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:51:49.864]                   3L)]
  [14:51:49.864]             }
  [14:51:49.864]             function(cond) {
  [14:51:49.864]                 if (inherits(cond, "error")) {
  [14:51:49.864]                   sessionInformation <- function() {
  [14:51:49.864]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:51:49.864]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:51:49.864]                       search = base::search(), system = base::Sys.info())
  [14:51:49.864]                   }
  [14:51:49.864]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:49.864]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:51:49.864]                     cond$call), session = sessionInformation(), 
  [14:51:49.864]                     timestamp = Sys.time(), signaled = 0L)
  [14:51:49.864]                   signalCondition(cond)
  [14:51:49.864]                 }
  [14:51:49.864]                 else if (inherits(cond, "condition")) {
  [14:51:49.864]                   signal <- FALSE && inherits(cond, character(0))
  [14:51:49.864]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:49.864]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:51:49.864]                   if (!signal) {
  [14:51:49.864]                     muffleCondition <- function (cond) 
  [14:51:49.864]                     {
  [14:51:49.864]                       inherits <- base::inherits
  [14:51:49.864]                       invokeRestart <- base::invokeRestart
  [14:51:49.864]                       muffled <- FALSE
  [14:51:49.864]                       if (inherits(cond, "message")) {
  [14:51:49.864]                         invokeRestart("muffleMessage")
  [14:51:49.864]                         muffled <- TRUE
  [14:51:49.864]                       }
  [14:51:49.864]                       else if (inherits(cond, "warning")) {
  [14:51:49.864]                         invokeRestart("muffleWarning")
  [14:51:49.864]                         muffled <- TRUE
  [14:51:49.864]                       }
  [14:51:49.864]                       else if (inherits(cond, "condition")) {
  [14:51:49.864]                         computeRestarts <- base::computeRestarts
  [14:51:49.864]                         grepl <- base::grepl
  [14:51:49.864]                         is.null <- base::is.null
  [14:51:49.864]                         restarts <- computeRestarts(cond)
  [14:51:49.864]                         for (restart in restarts) {
  [14:51:49.864]                           name <- restart$name
  [14:51:49.864]                           if (is.null(name)) 
  [14:51:49.864]                             next
  [14:51:49.864]                           if (!grepl("^muffle", name)) 
  [14:51:49.864]                             next
  [14:51:49.864]                           invokeRestart(restart)
  [14:51:49.864]                           muffled <- TRUE
  [14:51:49.864]                           break
  [14:51:49.864]                         }
  [14:51:49.864]                       }
  [14:51:49.864]                       invisible(muffled)
  [14:51:49.864]                     }
  [14:51:49.864]                     muffleCondition(cond)
  [14:51:49.864]                   }
  [14:51:49.864]                 }
  [14:51:49.864]             }
  [14:51:49.864]         }))
  [14:51:49.864]     }, error = function(ex) {
  [14:51:49.864]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:51:49.864]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:49.864]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:51:49.864]     }, finally = {
  [14:51:49.864]         {
  [14:51:49.864]             {
  [14:51:49.864]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:51:49.864]             }
  [14:51:49.864]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:51:49.864]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:49.864]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:51:49.864]                 earlySignal = FALSE, label = NULL, ...) 
  [14:51:49.864]             {
  [14:51:49.864]                 if (substitute) 
  [14:51:49.864]                   expr <- substitute(expr)
  [14:51:49.864]                 if (is.function(workers)) 
  [14:51:49.864]                   workers <- workers()
  [14:51:49.864]                 workers <- as.integer(workers)
  [14:51:49.864]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:51:49.864]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:51:49.864]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:49.864]                     lazy = lazy, seed = seed, globals = globals, 
  [14:51:49.864]                     local = TRUE, label = label, ...))
  [14:51:49.864]                 }
  [14:51:49.864]                 oopts <- options(mc.cores = workers)
  [14:51:49.864]                 on.exit(options(oopts))
  [14:51:49.864]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:51:49.864]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:49.864]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:51:49.864]                   label = label, ...)
  [14:51:49.864]                 if (!future$lazy) 
  [14:51:49.864]                   future <- run(future)
  [14:51:49.864]                 invisible(future)
  [14:51:49.864]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:51:49.864]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [14:51:49.864]                 earlySignal = FALSE, label = NULL, ...) 
  [14:51:49.864]             {
  [14:51:49.864]                 if (substitute) 
  [14:51:49.864]                   expr <- substitute(expr)
  [14:51:49.864]                 local <- as.logical(local)
  [14:51:49.864]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:51:49.864]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:49.864]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:51:49.864]                   label = label, ...)
  [14:51:49.864]                 if (!future$lazy) 
  [14:51:49.864]                   future <- run(future)
  [14:51:49.864]                 invisible(future)
  [14:51:49.864]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:49.864]         }
  [14:51:49.864]         base::options(...future.oldOptions)
  [14:51:49.864]     })
  [14:51:49.864]     Sys.time
  [14:51:49.864]     if (base::is.na(TRUE)) {
  [14:51:49.864]     }
  [14:51:49.864]     else {
  [14:51:49.864]         base::sink(type = "output", split = FALSE)
  [14:51:49.864]         if (TRUE) {
  [14:51:49.864]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:51:49.864]         }
  [14:51:49.864]         else {
  [14:51:49.864]             ...future.result["stdout"] <- base::list(NULL)
  [14:51:49.864]         }
  [14:51:49.864]         base::close(...future.stdout)
  [14:51:49.864]         ...future.stdout <- NULL
  [14:51:49.864]     }
  [14:51:49.864]     ...future.result$conditions <- ...future.conditions
  [14:51:49.864]     ...future.result
  [14:51:49.864] }
  [14:51:49.869] requestCore(): workers = 2
  [14:51:49.874] MulticoreFuture started
  [14:51:49.876] Chunk #1 of 2 ... DONE
  [14:51:49.876] Chunk #2 of 2 ...
  [14:51:49.876]  - Finding globals in 'args_list' chunk #2 ...
  [14:51:49.877] getGlobalsAndPackages() ...
  [14:51:49.877] Searching for globals...
  [14:51:49.879] 
  [14:51:49.880] Searching for globals ... DONE
  [14:51:49.880] - globals: [0] <none>
  [14:51:49.880] getGlobalsAndPackages() ... DONE
  [14:51:49.881] 
  [14:51:49.881] 
  [14:51:49.882]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:51:49.884] getGlobalsAndPackages() ...
  [14:51:49.884] - globals passed as-is: [1] '...future.x_ii'
  [14:51:49.885] Resolving globals: FALSE
  [14:51:49.886] The total size of the 1 globals is 336 bytes (336 bytes)
  [14:51:49.887] - globals: [1] '...future.x_ii'
  [14:51:49.887] 
  [14:51:49.887] getGlobalsAndPackages() ... DONE
  [14:51:49.891] Packages needed by the future expression (n = 1): 'doFuture'
  [14:51:49.892] Packages needed by future strategies (n = 1): 'future'
  [14:51:49.896] plan(): Setting new future strategy stack:
  [14:51:49.897] List of future strategies:
  [14:51:49.897] 1. sequential:
  [14:51:49.897]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:51:49.897]    - tweaked: FALSE
  [14:51:49.897]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:49.899] plan(): nbrOfWorkers() = 1
  [14:51:49.901] plan(): Setting new future strategy stack:
  [14:51:49.902] List of future strategies:
  [14:51:49.902] 1. multicore:
  [14:51:49.902]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:51:49.902]    - tweaked: FALSE
  [14:51:49.902]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:49.902] 2. sequential:
  [14:51:49.902]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:51:49.902]    - tweaked: FALSE
  [14:51:49.902]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:49.905] plan(): nbrOfWorkers() = 2
  [14:51:49.909] {
  [14:51:49.909]     {
  [14:51:49.909]         ...future.startTime <- base::Sys.time()
  [14:51:49.909]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:51:49.909]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:51:49.909]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:51:49.909]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:51:49.909]             future.resolve.recursive = NULL, width = 80L)
  [14:51:49.909]         {
  [14:51:49.909]             {
  [14:51:49.909]                 {
  [14:51:49.909]                   {
  [14:51:49.909]                     base::local({
  [14:51:49.909]                       has_future <- base::requireNamespace("future", 
  [14:51:49.909]                         quietly = TRUE)
  [14:51:49.909]                       version <- if (has_future) 
  [14:51:49.909]                         utils::packageVersion("future")
  [14:51:49.909]                       else NULL
  [14:51:49.909]                       if (!has_future || version < "1.8.0") {
  [14:51:49.909]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:51:49.909]                           "", base::R.version$version.string), 
  [14:51:49.909]                           platform = base::sprintf("%s (%s-bit)", 
  [14:51:49.909]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:51:49.909]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:51:49.909]                             "release", "version")], collapse = " "), 
  [14:51:49.909]                           hostname = base::Sys.info()[["nodename"]])
  [14:51:49.909]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:51:49.909]                           info)
  [14:51:49.909]                         info <- base::paste(info, collapse = "; ")
  [14:51:49.909]                         if (!has_future) {
  [14:51:49.909]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:51:49.909]                             info)
  [14:51:49.909]                         }
  [14:51:49.909]                         else {
  [14:51:49.909]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:51:49.909]                             info, version)
  [14:51:49.909]                         }
  [14:51:49.909]                         base::stop(msg)
  [14:51:49.909]                       }
  [14:51:49.909]                     })
  [14:51:49.909]                   }
  [14:51:49.909]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:51:49.909]                   base::options(mc.cores = 1L)
  [14:51:49.909]                 }
  [14:51:49.909]                 base::local({
  [14:51:49.909]                   for (pkg in c("doFuture", "future")) {
  [14:51:49.909]                     base::loadNamespace(pkg)
  [14:51:49.909]                     base::library(pkg, character.only = TRUE)
  [14:51:49.909]                   }
  [14:51:49.909]                 })
  [14:51:49.909]             }
  [14:51:49.909]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:51:49.909]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:49.909]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:51:49.909]                 label = NULL, ...) 
  [14:51:49.909]             {
  [14:51:49.909]                 if (substitute) 
  [14:51:49.909]                   expr <- substitute(expr)
  [14:51:49.909]                 local <- as.logical(local)
  [14:51:49.909]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:51:49.909]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:49.909]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:51:49.909]                   label = label, ...)
  [14:51:49.909]                 if (!future$lazy) 
  [14:51:49.909]                   future <- run(future)
  [14:51:49.909]                 invisible(future)
  [14:51:49.909]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:49.909]         }
  [14:51:49.909]     }
  [14:51:49.909]     if (base::is.na(TRUE)) {
  [14:51:49.909]     }
  [14:51:49.909]     else {
  [14:51:49.909]         if (TRUE) {
  [14:51:49.909]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:51:49.909]                 open = "w")
  [14:51:49.909]         }
  [14:51:49.909]         else {
  [14:51:49.909]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:51:49.909]                 windows = "NUL", "/dev/null"), open = "w")
  [14:51:49.909]         }
  [14:51:49.909]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:51:49.909]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:51:49.909]             base::sink(type = "output", split = FALSE)
  [14:51:49.909]             base::close(...future.stdout)
  [14:51:49.909]         }, add = TRUE)
  [14:51:49.909]     }
  [14:51:49.909]     ...future.frame <- base::sys.nframe()
  [14:51:49.909]     ...future.conditions <- base::list()
  [14:51:49.909]     ...future.rng <- base::globalenv()$.Random.seed
  [14:51:49.909]     ...future.result <- base::tryCatch({
  [14:51:49.909]         base::withCallingHandlers({
  [14:51:49.909]             ...future.value <- base::withVisible(base::local({
  [14:51:49.909]                 doFuture::registerDoFuture()
  [14:51:49.909]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:49.909]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:49.909]                   {
  [14:51:49.909]                     a <- NULL
  [14:51:49.909]                     b <- NULL
  [14:51:49.909]                   }
  [14:51:49.909]                   ...future.env <- environment()
  [14:51:49.909]                   local({
  [14:51:49.909]                     for (name in names(...future.x_jj)) {
  [14:51:49.909]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:49.909]                         inherits = FALSE)
  [14:51:49.909]                     }
  [14:51:49.909]                   })
  [14:51:49.909]                   tryCatch({
  [14:51:49.909]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:49.909]                       plan = future::plan("next"))
  [14:51:49.909]                   }, error = identity)
  [14:51:49.909]                 })
  [14:51:49.909]             }))
  [14:51:49.909]             future::FutureResult(value = ...future.value$value, 
  [14:51:49.909]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:49.909]                   ...future.rng), started = ...future.startTime, 
  [14:51:49.909]                 version = "1.8")
  [14:51:49.909]         }, condition = base::local({
  [14:51:49.909]             c <- base::c
  [14:51:49.909]             inherits <- base::inherits
  [14:51:49.909]             invokeRestart <- base::invokeRestart
  [14:51:49.909]             length <- base::length
  [14:51:49.909]             list <- base::list
  [14:51:49.909]             seq.int <- base::seq.int
  [14:51:49.909]             signalCondition <- base::signalCondition
  [14:51:49.909]             sys.calls <- base::sys.calls
  [14:51:49.909]             Sys.time <- base::Sys.time
  [14:51:49.909]             `[[` <- base::`[[`
  [14:51:49.909]             `+` <- base::`+`
  [14:51:49.909]             `<<-` <- base::`<<-`
  [14:51:49.909]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:51:49.909]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:51:49.909]                   3L)]
  [14:51:49.909]             }
  [14:51:49.909]             function(cond) {
  [14:51:49.909]                 if (inherits(cond, "error")) {
  [14:51:49.909]                   sessionInformation <- function() {
  [14:51:49.909]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:51:49.909]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:51:49.909]                       search = base::search(), system = base::Sys.info())
  [14:51:49.909]                   }
  [14:51:49.909]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:49.909]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:51:49.909]                     cond$call), session = sessionInformation(), 
  [14:51:49.909]                     timestamp = Sys.time(), signaled = 0L)
  [14:51:49.909]                   signalCondition(cond)
  [14:51:49.909]                 }
  [14:51:49.909]                 else if (inherits(cond, "condition")) {
  [14:51:49.909]                   signal <- FALSE && inherits(cond, character(0))
  [14:51:49.909]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:49.909]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:51:49.909]                   if (!signal) {
  [14:51:49.909]                     muffleCondition <- function (cond) 
  [14:51:49.909]                     {
  [14:51:49.909]                       inherits <- base::inherits
  [14:51:49.909]                       invokeRestart <- base::invokeRestart
  [14:51:49.909]                       muffled <- FALSE
  [14:51:49.909]                       if (inherits(cond, "message")) {
  [14:51:49.909]                         invokeRestart("muffleMessage")
  [14:51:49.909]                         muffled <- TRUE
  [14:51:49.909]                       }
  [14:51:49.909]                       else if (inherits(cond, "warning")) {
  [14:51:49.909]                         invokeRestart("muffleWarning")
  [14:51:49.909]                         muffled <- TRUE
  [14:51:49.909]                       }
  [14:51:49.909]                       else if (inherits(cond, "condition")) {
  [14:51:49.909]                         computeRestarts <- base::computeRestarts
  [14:51:49.909]                         grepl <- base::grepl
  [14:51:49.909]                         is.null <- base::is.null
  [14:51:49.909]                         restarts <- computeRestarts(cond)
  [14:51:49.909]                         for (restart in restarts) {
  [14:51:49.909]                           name <- restart$name
  [14:51:49.909]                           if (is.null(name)) 
  [14:51:49.909]                             next
  [14:51:49.909]                           if (!grepl("^muffle", name)) 
  [14:51:49.909]                             next
  [14:51:49.909]                           invokeRestart(restart)
  [14:51:49.909]                           muffled <- TRUE
  [14:51:49.909]                           break
  [14:51:49.909]                         }
  [14:51:49.909]                       }
  [14:51:49.909]                       invisible(muffled)
  [14:51:49.909]                     }
  [14:51:49.909]                     muffleCondition(cond)
  [14:51:49.909]                   }
  [14:51:49.909]                 }
  [14:51:49.909]             }
  [14:51:49.909]         }))
  [14:51:49.909]     }, error = function(ex) {
  [14:51:49.909]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:51:49.909]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:49.909]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:51:49.909]     }, finally = {
  [14:51:49.909]         {
  [14:51:49.909]             {
  [14:51:49.909]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:51:49.909]             }
  [14:51:49.909]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:51:49.909]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:49.909]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:51:49.909]                 earlySignal = FALSE, label = NULL, ...) 
  [14:51:49.909]             {
  [14:51:49.909]                 if (substitute) 
  [14:51:49.909]                   expr <- substitute(expr)
  [14:51:49.909]                 if (is.function(workers)) 
  [14:51:49.909]                   workers <- workers()
  [14:51:49.909]                 workers <- as.integer(workers)
  [14:51:49.909]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:51:49.909]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:51:49.909]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:49.909]                     lazy = lazy, seed = seed, globals = globals, 
  [14:51:49.909]                     local = TRUE, label = label, ...))
  [14:51:49.909]                 }
  [14:51:49.909]                 oopts <- options(mc.cores = workers)
  [14:51:49.909]                 on.exit(options(oopts))
  [14:51:49.909]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:51:49.909]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:49.909]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:51:49.909]                   label = label, ...)
  [14:51:49.909]                 if (!future$lazy) 
  [14:51:49.909]                   future <- run(future)
  [14:51:49.909]                 invisible(future)
  [14:51:49.909]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:51:49.909]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [14:51:49.909]                 earlySignal = FALSE, label = NULL, ...) 
  [14:51:49.909]             {
  [14:51:49.909]                 if (substitute) 
  [14:51:49.909]                   expr <- substitute(expr)
  [14:51:49.909]                 local <- as.logical(local)
  [14:51:49.909]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:51:49.909]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:49.909]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:51:49.909]                   label = label, ...)
  [14:51:49.909]                 if (!future$lazy) 
  [14:51:49.909]                   future <- run(future)
  [14:51:49.909]                 invisible(future)
  [14:51:49.909]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:49.909]         }
  [14:51:49.909]         base::options(...future.oldOptions)
  [14:51:49.909]     })
  [14:51:49.909]     Sys.time
  [14:51:49.909]     if (base::is.na(TRUE)) {
  [14:51:49.909]     }
  [14:51:49.909]     else {
  [14:51:49.909]         base::sink(type = "output", split = FALSE)
  [14:51:49.909]         if (TRUE) {
  [14:51:49.909]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:51:49.909]         }
  [14:51:49.909]         else {
  [14:51:49.909]             ...future.result["stdout"] <- base::list(NULL)
  [14:51:49.909]         }
  [14:51:49.909]         base::close(...future.stdout)
  [14:51:49.909]         ...future.stdout <- NULL
  [14:51:49.909]     }
  [14:51:49.909]     ...future.result$conditions <- ...future.conditions
  [14:51:49.909]     ...future.result
  [14:51:49.909] }
  [14:51:49.915] requestCore(): workers = 2
  [14:51:49.928] MulticoreFuture started
  [14:51:49.930] Chunk #2 of 2 ... DONE
  [14:51:49.930] Launching 2 futures (chunks) ... DONE
  [14:51:49.931] - resolving futures
  [14:51:49.931]   - gathering results & relaying conditions (except errors)
  [14:51:49.932] resolve() on list ...
  [14:51:49.932]  recursive: 0
  [14:51:49.933]  length: 2
  [14:51:49.933] 
  [14:51:49.934] plan(): Setting new future strategy stack:
  [14:51:49.935] List of future strategies:
  [14:51:49.935] 1. sequential:
  [14:51:49.935]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:51:49.935]    - tweaked: FALSE
  [14:51:49.935]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:49.949] Future #1
  [14:51:49.955] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [14:51:49.956] - nx: 2
  [14:51:49.956] - relay: TRUE
  [14:51:49.957] - stdout: TRUE
  [14:51:49.957] - signal: TRUE
  [14:51:49.957] - resignal: FALSE
  [14:51:49.958] - force: FALSE
  [14:51:49.958] - relayed: [n=2] FALSE, FALSE
  [14:51:49.958] - queued futures: [n=2] FALSE, FALSE
  [14:51:49.959]  - until=1
  [14:51:49.959]  - relaying element #1
  [14:51:49.960] - relayed: [n=2] TRUE, FALSE
  [14:51:49.961] - queued futures: [n=2] TRUE, FALSE
  [14:51:49.961] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [14:51:49.962]  length: 1 (resolved future 1)
  [14:51:49.937] plan(): nbrOfWorkers() = 1
  [14:51:49.969] plan(): Setting new future strategy stack:
  [14:51:49.969] List of future strategies:
  [14:51:49.969] 1. multicore:
  [14:51:49.969]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:51:49.969]    - tweaked: FALSE
  [14:51:49.969]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:49.969] 2. sequential:
  [14:51:49.969]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:51:49.969]    - tweaked: FALSE
  [14:51:49.969]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:49.972] plan(): nbrOfWorkers() = 2
  [14:51:49.974] Future #2
  [14:51:49.976] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [14:51:49.977] - nx: 2
  [14:51:49.977] - relay: TRUE
  [14:51:49.977] - stdout: TRUE
  [14:51:49.978] - signal: TRUE
  [14:51:49.978] - resignal: FALSE
  [14:51:49.979] - force: FALSE
  [14:51:49.979] - relayed: [n=2] TRUE, FALSE
  [14:51:49.980] - queued futures: [n=2] TRUE, FALSE
  [14:51:49.980]  - until=2
  [14:51:49.980]  - relaying element #2
  [14:51:49.981] - relayed: [n=2] TRUE, TRUE
  [14:51:49.981] - queued futures: [n=2] TRUE, TRUE
  [14:51:49.982] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [14:51:49.982]  length: 0 (resolved future 2)
  [14:51:49.983] Relaying remaining futures
  [14:51:49.983] signalConditionsASAP(NULL, pos=0) ...
  [14:51:49.983] - nx: 2
  [14:51:49.984] - relay: TRUE
  [14:51:49.984] - stdout: TRUE
  [14:51:49.984] - signal: TRUE
  [14:51:49.985] - resignal: FALSE
  [14:51:49.985] - force: FALSE
  [14:51:49.985] - relayed: [n=2] TRUE, TRUE
  [14:51:49.986] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [14:51:50.002] - relayed: [n=2] TRUE, TRUE
  [14:51:50.003] - queued futures: [n=2] TRUE, TRUE
  [14:51:50.003] signalConditionsASAP(NULL, pos=0) ... done
  [14:51:50.004] resolve() on list ... DONE
  [14:51:50.004] - collecting values of futures
  [14:51:50.005] - accumulating results
  [14:51:50.008] - processing errors (handler = 'stop')
  [14:51:50.009] - extracting results
  [14:51:50.009] doFuture() ... DONE
  - plan(list('multicore', 'sequential')) ... DONE
  - plan(list('multicore', 'multicore')) ...
  [14:51:50.011] plan(): Setting new future strategy stack:
  [14:51:50.011] List of future strategies:
  [14:51:50.011] 1. multicore:
  [14:51:50.011]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:51:50.011]    - tweaked: FALSE
  [14:51:50.011]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:50.011] 2. multicore:
  [14:51:50.011]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:51:50.011]    - tweaked: FALSE
  [14:51:50.011]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:50.014] plan(): nbrOfWorkers() = 2
  [14:51:50.015] doFuture() ...
  [14:51:50.036] - dummy globals (as locals): [2] 'a', 'b'
  [14:51:50.037] - R expression:
  [14:51:50.038] {
  [14:51:50.038]     doFuture::registerDoFuture()
  [14:51:50.038]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:50.038]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:50.038]         {
  [14:51:50.038]             a <- NULL
  [14:51:50.038]             b <- NULL
  [14:51:50.038]         }
  [14:51:50.038]         ...future.env <- environment()
  [14:51:50.038]         local({
  [14:51:50.038]             for (name in names(...future.x_jj)) {
  [14:51:50.038]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:50.038]                   inherits = FALSE)
  [14:51:50.038]             }
  [14:51:50.038]         })
  [14:51:50.038]         tryCatch({
  [14:51:50.038]             list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:50.038]                 plan = future::plan("next"))
  [14:51:50.038]         }, error = identity)
  [14:51:50.038]     })
  [14:51:50.038] }
  [14:51:50.039] - identifying globals and packages ...
  [14:51:50.039] getGlobalsAndPackages() ...
  [14:51:50.040] Searching for globals...
  [14:51:50.079] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [14:51:50.080] Searching for globals ... DONE
  [14:51:50.080] Resolving globals: FALSE
  [14:51:50.098] The total size of the 1 globals is 0 bytes (0 bytes)
  [14:51:50.099] - globals: [1] '...future.x_ii'
  [14:51:50.099] 
  [14:51:50.100] getGlobalsAndPackages() ... DONE
  [14:51:50.100] List of 1
  [14:51:50.100]  $ ...future.x_ii: NULL
  [14:51:50.100]  - attr(*, "where")=List of 1
  [14:51:50.100]   ..$ ...future.x_ii:<environment: 0x560015054210> 
  [14:51:50.100]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:51:50.100]  - attr(*, "resolved")= logi FALSE
  [14:51:50.100]  - attr(*, "total_size")= num 0
  [14:51:50.108]   - R expression:
  [14:51:50.108] {
  [14:51:50.108]     doFuture::registerDoFuture()
  [14:51:50.108]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:50.108]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:50.108]         {
  [14:51:50.108]             a <- NULL
  [14:51:50.108]             b <- NULL
  [14:51:50.108]         }
  [14:51:50.108]         ...future.env <- environment()
  [14:51:50.108]         local({
  [14:51:50.108]             for (name in names(...future.x_jj)) {
  [14:51:50.108]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:50.108]                   inherits = FALSE)
  [14:51:50.108]             }
  [14:51:50.108]         })
  [14:51:50.108]         tryCatch({
  [14:51:50.108]             list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:50.108]                 plan = future::plan("next"))
  [14:51:50.108]         }, error = identity)
  [14:51:50.108]     })
  [14:51:50.108] }
  [14:51:50.109]   - globals: [1] '...future.x_ii'
  [14:51:50.110] List of 1
  [14:51:50.110]  $ ...future.x_ii: NULL
  [14:51:50.110]  - attr(*, "where")=List of 1
  [14:51:50.110]   ..$ ...future.x_ii:<environment: 0x560015054210> 
  [14:51:50.110]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:51:50.110]  - attr(*, "resolved")= logi FALSE
  [14:51:50.110]  - attr(*, "total_size")= num 0
  [14:51:50.117]   - packages: [1] 'doFuture'
  [14:51:50.118] - identifying globals and packages ... DONE
  [14:51:50.119] Number of chunks: 2
  [14:51:50.120] Number of futures (= number of chunks): 2
  [14:51:50.120] Launching 2 futures (chunks) ...
  [14:51:50.121] Chunk #1 of 2 ...
  [14:51:50.121]  - Finding globals in 'args_list' chunk #1 ...
  [14:51:50.121] getGlobalsAndPackages() ...
  [14:51:50.122] Searching for globals...
  [14:51:50.123] 
  [14:51:50.123] Searching for globals ... DONE
  [14:51:50.124] - globals: [0] <none>
  [14:51:50.124] getGlobalsAndPackages() ... DONE
  [14:51:50.124] 
  [14:51:50.125] 
  [14:51:50.125]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:51:50.126] getGlobalsAndPackages() ...
  [14:51:50.126] - globals passed as-is: [1] '...future.x_ii'
  [14:51:50.127] Resolving globals: FALSE
  [14:51:50.128] The total size of the 1 globals is 336 bytes (336 bytes)
  [14:51:50.128] - globals: [1] '...future.x_ii'
  [14:51:50.129] 
  [14:51:50.129] getGlobalsAndPackages() ... DONE
  [14:51:50.132] Packages needed by the future expression (n = 1): 'doFuture'
  [14:51:50.132] Packages needed by future strategies (n = 1): 'future'
  [14:51:50.139] {
  [14:51:50.139]     {
  [14:51:50.139]         ...future.startTime <- base::Sys.time()
  [14:51:50.139]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:51:50.139]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:51:50.139]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:51:50.139]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:51:50.139]             future.resolve.recursive = NULL, width = 80L)
  [14:51:50.139]         {
  [14:51:50.139]             {
  [14:51:50.139]                 {
  [14:51:50.139]                   {
  [14:51:50.139]                     base::local({
  [14:51:50.139]                       has_future <- base::requireNamespace("future", 
  [14:51:50.139]                         quietly = TRUE)
  [14:51:50.139]                       version <- if (has_future) 
  [14:51:50.139]                         utils::packageVersion("future")
  [14:51:50.139]                       else NULL
  [14:51:50.139]                       if (!has_future || version < "1.8.0") {
  [14:51:50.139]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:51:50.139]                           "", base::R.version$version.string), 
  [14:51:50.139]                           platform = base::sprintf("%s (%s-bit)", 
  [14:51:50.139]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:51:50.139]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:51:50.139]                             "release", "version")], collapse = " "), 
  [14:51:50.139]                           hostname = base::Sys.info()[["nodename"]])
  [14:51:50.139]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:51:50.139]                           info)
  [14:51:50.139]                         info <- base::paste(info, collapse = "; ")
  [14:51:50.139]                         if (!has_future) {
  [14:51:50.139]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:51:50.139]                             info)
  [14:51:50.139]                         }
  [14:51:50.139]                         else {
  [14:51:50.139]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:51:50.139]                             info, version)
  [14:51:50.139]                         }
  [14:51:50.139]                         base::stop(msg)
  [14:51:50.139]                       }
  [14:51:50.139]                     })
  [14:51:50.139]                   }
  [14:51:50.139]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:51:50.139]                   base::options(mc.cores = 1L)
  [14:51:50.139]                 }
  [14:51:50.139]                 base::local({
  [14:51:50.139]                   for (pkg in c("doFuture", "future")) {
  [14:51:50.139]                     base::loadNamespace(pkg)
  [14:51:50.139]                     base::library(pkg, character.only = TRUE)
  [14:51:50.139]                   }
  [14:51:50.139]                 })
  [14:51:50.139]             }
  [14:51:50.139]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:51:50.139]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:50.139]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:51:50.139]                 earlySignal = FALSE, label = NULL, ...) 
  [14:51:50.139]             {
  [14:51:50.139]                 if (substitute) 
  [14:51:50.139]                   expr <- substitute(expr)
  [14:51:50.139]                 if (is.function(workers)) 
  [14:51:50.139]                   workers <- workers()
  [14:51:50.139]                 workers <- as.integer(workers)
  [14:51:50.139]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:51:50.139]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:51:50.139]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:50.139]                     lazy = lazy, seed = seed, globals = globals, 
  [14:51:50.139]                     local = TRUE, label = label, ...))
  [14:51:50.139]                 }
  [14:51:50.139]                 oopts <- options(mc.cores = workers)
  [14:51:50.139]                 on.exit(options(oopts))
  [14:51:50.139]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:51:50.139]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:50.139]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:51:50.139]                   label = label, ...)
  [14:51:50.139]                 if (!future$lazy) 
  [14:51:50.139]                   future <- run(future)
  [14:51:50.139]                 invisible(future)
  [14:51:50.139]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:50.139]         }
  [14:51:50.139]     }
  [14:51:50.139]     if (base::is.na(TRUE)) {
  [14:51:50.139]     }
  [14:51:50.139]     else {
  [14:51:50.139]         if (TRUE) {
  [14:51:50.139]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:51:50.139]                 open = "w")
  [14:51:50.139]         }
  [14:51:50.139]         else {
  [14:51:50.139]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:51:50.139]                 windows = "NUL", "/dev/null"), open = "w")
  [14:51:50.139]         }
  [14:51:50.139]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:51:50.139]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:51:50.139]             base::sink(type = "output", split = FALSE)
  [14:51:50.139]             base::close(...future.stdout)
  [14:51:50.139]         }, add = TRUE)
  [14:51:50.139]     }
  [14:51:50.139]     ...future.frame <- base::sys.nframe()
  [14:51:50.139]     ...future.conditions <- base::list()
  [14:51:50.139]     ...future.rng <- base::globalenv()$.Random.seed
  [14:51:50.139]     ...future.result <- base::tryCatch({
  [14:51:50.139]         base::withCallingHandlers({
  [14:51:50.139]             ...future.value <- base::withVisible(base::local({
  [14:51:50.139]                 doFuture::registerDoFuture()
  [14:51:50.139]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:50.139]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:50.139]                   {
  [14:51:50.139]                     a <- NULL
  [14:51:50.139]                     b <- NULL
  [14:51:50.139]                   }
  [14:51:50.139]                   ...future.env <- environment()
  [14:51:50.139]                   local({
  [14:51:50.139]                     for (name in names(...future.x_jj)) {
  [14:51:50.139]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:50.139]                         inherits = FALSE)
  [14:51:50.139]                     }
  [14:51:50.139]                   })
  [14:51:50.139]                   tryCatch({
  [14:51:50.139]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:50.139]                       plan = future::plan("next"))
  [14:51:50.139]                   }, error = identity)
  [14:51:50.139]                 })
  [14:51:50.139]             }))
  [14:51:50.139]             future::FutureResult(value = ...future.value$value, 
  [14:51:50.139]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:50.139]                   ...future.rng), started = ...future.startTime, 
  [14:51:50.139]                 version = "1.8")
  [14:51:50.139]         }, condition = base::local({
  [14:51:50.139]             c <- base::c
  [14:51:50.139]             inherits <- base::inherits
  [14:51:50.139]             invokeRestart <- base::invokeRestart
  [14:51:50.139]             length <- base::length
  [14:51:50.139]             list <- base::list
  [14:51:50.139]             seq.int <- base::seq.int
  [14:51:50.139]             signalCondition <- base::signalCondition
  [14:51:50.139]             sys.calls <- base::sys.calls
  [14:51:50.139]             Sys.time <- base::Sys.time
  [14:51:50.139]             `[[` <- base::`[[`
  [14:51:50.139]             `+` <- base::`+`
  [14:51:50.139]             `<<-` <- base::`<<-`
  [14:51:50.139]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:51:50.139]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:51:50.139]                   3L)]
  [14:51:50.139]             }
  [14:51:50.139]             function(cond) {
  [14:51:50.139]                 if (inherits(cond, "error")) {
  [14:51:50.139]                   sessionInformation <- function() {
  [14:51:50.139]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:51:50.139]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:51:50.139]                       search = base::search(), system = base::Sys.info())
  [14:51:50.139]                   }
  [14:51:50.139]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:50.139]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:51:50.139]                     cond$call), session = sessionInformation(), 
  [14:51:50.139]                     timestamp = Sys.time(), signaled = 0L)
  [14:51:50.139]                   signalCondition(cond)
  [14:51:50.139]                 }
  [14:51:50.139]                 else if (inherits(cond, "condition")) {
  [14:51:50.139]                   signal <- FALSE && inherits(cond, character(0))
  [14:51:50.139]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:50.139]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:51:50.139]                   if (!signal) {
  [14:51:50.139]                     muffleCondition <- function (cond) 
  [14:51:50.139]                     {
  [14:51:50.139]                       inherits <- base::inherits
  [14:51:50.139]                       invokeRestart <- base::invokeRestart
  [14:51:50.139]                       muffled <- FALSE
  [14:51:50.139]                       if (inherits(cond, "message")) {
  [14:51:50.139]                         invokeRestart("muffleMessage")
  [14:51:50.139]                         muffled <- TRUE
  [14:51:50.139]                       }
  [14:51:50.139]                       else if (inherits(cond, "warning")) {
  [14:51:50.139]                         invokeRestart("muffleWarning")
  [14:51:50.139]                         muffled <- TRUE
  [14:51:50.139]                       }
  [14:51:50.139]                       else if (inherits(cond, "condition")) {
  [14:51:50.139]                         computeRestarts <- base::computeRestarts
  [14:51:50.139]                         grepl <- base::grepl
  [14:51:50.139]                         is.null <- base::is.null
  [14:51:50.139]                         restarts <- computeRestarts(cond)
  [14:51:50.139]                         for (restart in restarts) {
  [14:51:50.139]                           name <- restart$name
  [14:51:50.139]                           if (is.null(name)) 
  [14:51:50.139]                             next
  [14:51:50.139]                           if (!grepl("^muffle", name)) 
  [14:51:50.139]                             next
  [14:51:50.139]                           invokeRestart(restart)
  [14:51:50.139]                           muffled <- TRUE
  [14:51:50.139]                           break
  [14:51:50.139]                         }
  [14:51:50.139]                       }
  [14:51:50.139]                       invisible(muffled)
  [14:51:50.139]                     }
  [14:51:50.139]                     muffleCondition(cond)
  [14:51:50.139]                   }
  [14:51:50.139]                 }
  [14:51:50.139]             }
  [14:51:50.139]         }))
  [14:51:50.139]     }, error = function(ex) {
  [14:51:50.139]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:51:50.139]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:50.139]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:51:50.139]     }, finally = {
  [14:51:50.139]         {
  [14:51:50.139]             {
  [14:51:50.139]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:51:50.139]             }
  [14:51:50.139]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:51:50.139]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:50.139]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:51:50.139]                 earlySignal = FALSE, label = NULL, ...) 
  [14:51:50.139]             {
  [14:51:50.139]                 if (substitute) 
  [14:51:50.139]                   expr <- substitute(expr)
  [14:51:50.139]                 if (is.function(workers)) 
  [14:51:50.139]                   workers <- workers()
  [14:51:50.139]                 workers <- as.integer(workers)
  [14:51:50.139]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:51:50.139]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:51:50.139]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:50.139]                     lazy = lazy, seed = seed, globals = globals, 
  [14:51:50.139]                     local = TRUE, label = label, ...))
  [14:51:50.139]                 }
  [14:51:50.139]                 oopts <- options(mc.cores = workers)
  [14:51:50.139]                 on.exit(options(oopts))
  [14:51:50.139]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:51:50.139]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:50.139]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:51:50.139]                   label = label, ...)
  [14:51:50.139]                 if (!future$lazy) 
  [14:51:50.139]                   future <- run(future)
  [14:51:50.139]                 invisible(future)
  [14:51:50.139]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:51:50.139]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:51:50.139]                 earlySignal = FALSE, label = NULL, ...) 
  [14:51:50.139]             {
  [14:51:50.139]                 if (substitute) 
  [14:51:50.139]                   expr <- substitute(expr)
  [14:51:50.139]                 if (is.function(workers)) 
  [14:51:50.139]                   workers <- workers()
  [14:51:50.139]                 workers <- as.integer(workers)
  [14:51:50.139]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:51:50.139]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:51:50.139]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:50.139]                     lazy = lazy, seed = seed, globals = globals, 
  [14:51:50.139]                     local = TRUE, label = label, ...))
  [14:51:50.139]                 }
  [14:51:50.139]                 oopts <- options(mc.cores = workers)
  [14:51:50.139]                 on.exit(options(oopts))
  [14:51:50.139]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:51:50.139]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:50.139]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:51:50.139]                   label = label, ...)
  [14:51:50.139]                 if (!future$lazy) 
  [14:51:50.139]                   future <- run(future)
  [14:51:50.139]                 invisible(future)
  [14:51:50.139]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:50.139]         }
  [14:51:50.139]         base::options(...future.oldOptions)
  [14:51:50.139]     })
  [14:51:50.139]     Sys.time
  [14:51:50.139]     if (base::is.na(TRUE)) {
  [14:51:50.139]     }
  [14:51:50.139]     else {
  [14:51:50.139]         base::sink(type = "output", split = FALSE)
  [14:51:50.139]         if (TRUE) {
  [14:51:50.139]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:51:50.139]         }
  [14:51:50.139]         else {
  [14:51:50.139]             ...future.result["stdout"] <- base::list(NULL)
  [14:51:50.139]         }
  [14:51:50.139]         base::close(...future.stdout)
  [14:51:50.139]         ...future.stdout <- NULL
  [14:51:50.139]     }
  [14:51:50.139]     ...future.result$conditions <- ...future.conditions
  [14:51:50.139]     ...future.result
  [14:51:50.139] }
  [14:51:50.145] requestCore(): workers = 2
  [14:51:50.148] MulticoreFuture started
  [14:51:50.150] Chunk #1 of 2 ... DONE
  [14:51:50.150] Chunk #2 of 2 ...
  [14:51:50.150]  - Finding globals in 'args_list' chunk #2 ...
  [14:51:50.151] getGlobalsAndPackages() ...
  [14:51:50.151] Searching for globals...
  [14:51:50.153] 
  [14:51:50.154] Searching for globals ... DONE
  [14:51:50.154] - globals: [0] <none>
  [14:51:50.155] getGlobalsAndPackages() ... DONE
  [14:51:50.155] 
  [14:51:50.155] 
  [14:51:50.156]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:51:50.158] getGlobalsAndPackages() ...
  [14:51:50.159] - globals passed as-is: [1] '...future.x_ii'
  [14:51:50.159] Resolving globals: FALSE
  [14:51:50.161] The total size of the 1 globals is 336 bytes (336 bytes)
  [14:51:50.161] - globals: [1] '...future.x_ii'
  [14:51:50.162] 
  [14:51:50.162] getGlobalsAndPackages() ... DONE
  [14:51:50.164] plan(): Setting new future strategy stack:
  [14:51:50.166] Packages needed by the future expression (n = 1): 'doFuture'
  [14:51:50.165] List of future strategies:
  [14:51:50.165] 1. multicore:
  [14:51:50.165]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:51:50.165]    - tweaked: FALSE
  [14:51:50.165]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:50.166] Packages needed by future strategies (n = 1): 'future'
  [14:51:50.167] plan(): nbrOfWorkers() = 1
  [14:51:50.170] plan(): Setting new future strategy stack:
  [14:51:50.171] List of future strategies:
  [14:51:50.171] 1. multicore:
  [14:51:50.171]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:51:50.171]    - tweaked: FALSE
  [14:51:50.171]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:50.171] 2. multicore:
  [14:51:50.171]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:51:50.171]    - tweaked: FALSE
  [14:51:50.171]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:50.173] plan(): nbrOfWorkers() = 2
  [14:51:50.182] {
  [14:51:50.182]     {
  [14:51:50.182]         ...future.startTime <- base::Sys.time()
  [14:51:50.182]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:51:50.182]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:51:50.182]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:51:50.182]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:51:50.182]             future.resolve.recursive = NULL, width = 80L)
  [14:51:50.182]         {
  [14:51:50.182]             {
  [14:51:50.182]                 {
  [14:51:50.182]                   {
  [14:51:50.182]                     base::local({
  [14:51:50.182]                       has_future <- base::requireNamespace("future", 
  [14:51:50.182]                         quietly = TRUE)
  [14:51:50.182]                       version <- if (has_future) 
  [14:51:50.182]                         utils::packageVersion("future")
  [14:51:50.182]                       else NULL
  [14:51:50.182]                       if (!has_future || version < "1.8.0") {
  [14:51:50.182]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:51:50.182]                           "", base::R.version$version.string), 
  [14:51:50.182]                           platform = base::sprintf("%s (%s-bit)", 
  [14:51:50.182]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:51:50.182]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:51:50.182]                             "release", "version")], collapse = " "), 
  [14:51:50.182]                           hostname = base::Sys.info()[["nodename"]])
  [14:51:50.182]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:51:50.182]                           info)
  [14:51:50.182]                         info <- base::paste(info, collapse = "; ")
  [14:51:50.182]                         if (!has_future) {
  [14:51:50.182]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:51:50.182]                             info)
  [14:51:50.182]                         }
  [14:51:50.182]                         else {
  [14:51:50.182]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:51:50.182]                             info, version)
  [14:51:50.182]                         }
  [14:51:50.182]                         base::stop(msg)
  [14:51:50.182]                       }
  [14:51:50.182]                     })
  [14:51:50.182]                   }
  [14:51:50.182]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:51:50.182]                   base::options(mc.cores = 1L)
  [14:51:50.182]                 }
  [14:51:50.182]                 base::local({
  [14:51:50.182]                   for (pkg in c("doFuture", "future")) {
  [14:51:50.182]                     base::loadNamespace(pkg)
  [14:51:50.182]                     base::library(pkg, character.only = TRUE)
  [14:51:50.182]                   }
  [14:51:50.182]                 })
  [14:51:50.182]             }
  [14:51:50.182]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:51:50.182]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:50.182]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:51:50.182]                 earlySignal = FALSE, label = NULL, ...) 
  [14:51:50.182]             {
  [14:51:50.182]                 if (substitute) 
  [14:51:50.182]                   expr <- substitute(expr)
  [14:51:50.182]                 if (is.function(workers)) 
  [14:51:50.182]                   workers <- workers()
  [14:51:50.182]                 workers <- as.integer(workers)
  [14:51:50.182]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:51:50.182]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:51:50.182]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:50.182]                     lazy = lazy, seed = seed, globals = globals, 
  [14:51:50.182]                     local = TRUE, label = label, ...))
  [14:51:50.182]                 }
  [14:51:50.182]                 oopts <- options(mc.cores = workers)
  [14:51:50.182]                 on.exit(options(oopts))
  [14:51:50.182]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:51:50.182]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:50.182]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:51:50.182]                   label = label, ...)
  [14:51:50.182]                 if (!future$lazy) 
  [14:51:50.182]                   future <- run(future)
  [14:51:50.182]                 invisible(future)
  [14:51:50.182]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:50.182]         }
  [14:51:50.182]     }
  [14:51:50.182]     if (base::is.na(TRUE)) {
  [14:51:50.182]     }
  [14:51:50.182]     else {
  [14:51:50.182]         if (TRUE) {
  [14:51:50.182]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:51:50.182]                 open = "w")
  [14:51:50.182]         }
  [14:51:50.182]         else {
  [14:51:50.182]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:51:50.182]                 windows = "NUL", "/dev/null"), open = "w")
  [14:51:50.182]         }
  [14:51:50.182]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:51:50.182]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:51:50.182]             base::sink(type = "output", split = FALSE)
  [14:51:50.182]             base::close(...future.stdout)
  [14:51:50.182]         }, add = TRUE)
  [14:51:50.182]     }
  [14:51:50.182]     ...future.frame <- base::sys.nframe()
  [14:51:50.182]     ...future.conditions <- base::list()
  [14:51:50.182]     ...future.rng <- base::globalenv()$.Random.seed
  [14:51:50.182]     ...future.result <- base::tryCatch({
  [14:51:50.182]         base::withCallingHandlers({
  [14:51:50.182]             ...future.value <- base::withVisible(base::local({
  [14:51:50.182]                 doFuture::registerDoFuture()
  [14:51:50.182]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:50.182]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:50.182]                   {
  [14:51:50.182]                     a <- NULL
  [14:51:50.182]                     b <- NULL
  [14:51:50.182]                   }
  [14:51:50.182]                   ...future.env <- environment()
  [14:51:50.182]                   local({
  [14:51:50.182]                     for (name in names(...future.x_jj)) {
  [14:51:50.182]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:50.182]                         inherits = FALSE)
  [14:51:50.182]                     }
  [14:51:50.182]                   })
  [14:51:50.182]                   tryCatch({
  [14:51:50.182]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:50.182]                       plan = future::plan("next"))
  [14:51:50.182]                   }, error = identity)
  [14:51:50.182]                 })
  [14:51:50.182]             }))
  [14:51:50.182]             future::FutureResult(value = ...future.value$value, 
  [14:51:50.182]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:50.182]                   ...future.rng), started = ...future.startTime, 
  [14:51:50.182]                 version = "1.8")
  [14:51:50.182]         }, condition = base::local({
  [14:51:50.182]             c <- base::c
  [14:51:50.182]             inherits <- base::inherits
  [14:51:50.182]             invokeRestart <- base::invokeRestart
  [14:51:50.182]             length <- base::length
  [14:51:50.182]             list <- base::list
  [14:51:50.182]             seq.int <- base::seq.int
  [14:51:50.182]             signalCondition <- base::signalCondition
  [14:51:50.182]             sys.calls <- base::sys.calls
  [14:51:50.182]             Sys.time <- base::Sys.time
  [14:51:50.182]             `[[` <- base::`[[`
  [14:51:50.182]             `+` <- base::`+`
  [14:51:50.182]             `<<-` <- base::`<<-`
  [14:51:50.182]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:51:50.182]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:51:50.182]                   3L)]
  [14:51:50.182]             }
  [14:51:50.182]             function(cond) {
  [14:51:50.182]                 if (inherits(cond, "error")) {
  [14:51:50.182]                   sessionInformation <- function() {
  [14:51:50.182]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:51:50.182]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:51:50.182]                       search = base::search(), system = base::Sys.info())
  [14:51:50.182]                   }
  [14:51:50.182]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:50.182]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:51:50.182]                     cond$call), session = sessionInformation(), 
  [14:51:50.182]                     timestamp = Sys.time(), signaled = 0L)
  [14:51:50.182]                   signalCondition(cond)
  [14:51:50.182]                 }
  [14:51:50.182]                 else if (inherits(cond, "condition")) {
  [14:51:50.182]                   signal <- FALSE && inherits(cond, character(0))
  [14:51:50.182]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:50.182]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:51:50.182]                   if (!signal) {
  [14:51:50.182]                     muffleCondition <- function (cond) 
  [14:51:50.182]                     {
  [14:51:50.182]                       inherits <- base::inherits
  [14:51:50.182]                       invokeRestart <- base::invokeRestart
  [14:51:50.182]                       muffled <- FALSE
  [14:51:50.182]                       if (inherits(cond, "message")) {
  [14:51:50.182]                         invokeRestart("muffleMessage")
  [14:51:50.182]                         muffled <- TRUE
  [14:51:50.182]                       }
  [14:51:50.182]                       else if (inherits(cond, "warning")) {
  [14:51:50.182]                         invokeRestart("muffleWarning")
  [14:51:50.182]                         muffled <- TRUE
  [14:51:50.182]                       }
  [14:51:50.182]                       else if (inherits(cond, "condition")) {
  [14:51:50.182]                         computeRestarts <- base::computeRestarts
  [14:51:50.182]                         grepl <- base::grepl
  [14:51:50.182]                         is.null <- base::is.null
  [14:51:50.182]                         restarts <- computeRestarts(cond)
  [14:51:50.182]                         for (restart in restarts) {
  [14:51:50.182]                           name <- restart$name
  [14:51:50.182]                           if (is.null(name)) 
  [14:51:50.182]                             next
  [14:51:50.182]                           if (!grepl("^muffle", name)) 
  [14:51:50.182]                             next
  [14:51:50.182]                           invokeRestart(restart)
  [14:51:50.182]                           muffled <- TRUE
  [14:51:50.182]                           break
  [14:51:50.182]                         }
  [14:51:50.182]                       }
  [14:51:50.182]                       invisible(muffled)
  [14:51:50.182]                     }
  [14:51:50.182]                     muffleCondition(cond)
  [14:51:50.182]                   }
  [14:51:50.182]                 }
  [14:51:50.182]             }
  [14:51:50.182]         }))
  [14:51:50.182]     }, error = function(ex) {
  [14:51:50.182]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:51:50.182]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:50.182]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:51:50.182]     }, finally = {
  [14:51:50.182]         {
  [14:51:50.182]             {
  [14:51:50.182]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:51:50.182]             }
  [14:51:50.182]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:51:50.182]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:50.182]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:51:50.182]                 earlySignal = FALSE, label = NULL, ...) 
  [14:51:50.182]             {
  [14:51:50.182]                 if (substitute) 
  [14:51:50.182]                   expr <- substitute(expr)
  [14:51:50.182]                 if (is.function(workers)) 
  [14:51:50.182]                   workers <- workers()
  [14:51:50.182]                 workers <- as.integer(workers)
  [14:51:50.182]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:51:50.182]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:51:50.182]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:50.182]                     lazy = lazy, seed = seed, globals = globals, 
  [14:51:50.182]                     local = TRUE, label = label, ...))
  [14:51:50.182]                 }
  [14:51:50.182]                 oopts <- options(mc.cores = workers)
  [14:51:50.182]                 on.exit(options(oopts))
  [14:51:50.182]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:51:50.182]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:50.182]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:51:50.182]                   label = label, ...)
  [14:51:50.182]                 if (!future$lazy) 
  [14:51:50.182]                   future <- run(future)
  [14:51:50.182]                 invisible(future)
  [14:51:50.182]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:51:50.182]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:51:50.182]                 earlySignal = FALSE, label = NULL, ...) 
  [14:51:50.182]             {
  [14:51:50.182]                 if (substitute) 
  [14:51:50.182]                   expr <- substitute(expr)
  [14:51:50.182]                 if (is.function(workers)) 
  [14:51:50.182]                   workers <- workers()
  [14:51:50.182]                 workers <- as.integer(workers)
  [14:51:50.182]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:51:50.182]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:51:50.182]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:50.182]                     lazy = lazy, seed = seed, globals = globals, 
  [14:51:50.182]                     local = TRUE, label = label, ...))
  [14:51:50.182]                 }
  [14:51:50.182]                 oopts <- options(mc.cores = workers)
  [14:51:50.182]                 on.exit(options(oopts))
  [14:51:50.182]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:51:50.182]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:50.182]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:51:50.182]                   label = label, ...)
  [14:51:50.182]                 if (!future$lazy) 
  [14:51:50.182]                   future <- run(future)
  [14:51:50.182]                 invisible(future)
  [14:51:50.182]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:50.182]         }
  [14:51:50.182]         base::options(...future.oldOptions)
  [14:51:50.182]     })
  [14:51:50.182]     Sys.time
  [14:51:50.182]     if (base::is.na(TRUE)) {
  [14:51:50.182]     }
  [14:51:50.182]     else {
  [14:51:50.182]         base::sink(type = "output", split = FALSE)
  [14:51:50.182]         if (TRUE) {
  [14:51:50.182]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:51:50.182]         }
  [14:51:50.182]         else {
  [14:51:50.182]             ...future.result["stdout"] <- base::list(NULL)
  [14:51:50.182]         }
  [14:51:50.182]         base::close(...future.stdout)
  [14:51:50.182]         ...future.stdout <- NULL
  [14:51:50.182]     }
  [14:51:50.182]     ...future.result$conditions <- ...future.conditions
  [14:51:50.182]     ...future.result
  [14:51:50.182] }
  [14:51:50.188] requestCore(): workers = 2
  [14:51:50.192] MulticoreFuture started
  [14:51:50.193] Chunk #2 of 2 ... DONE
  [14:51:50.194] Launching 2 futures (chunks) ... DONE
  [14:51:50.195] - resolving futures
  [14:51:50.195]   - gathering results & relaying conditions (except errors)
  [14:51:50.196] resolve() on list ...
  [14:51:50.196]  recursive: 0
  [14:51:50.196]  length: 2
  [14:51:50.197] 
  [14:51:50.198] Future #1
  [14:51:50.202] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [14:51:50.202] - nx: 2
  [14:51:50.203] - relay: TRUE
  [14:51:50.203] - stdout: TRUE
  [14:51:50.204] - signal: TRUE
  [14:51:50.204] - resignal: FALSE
  [14:51:50.205] - force: FALSE
  [14:51:50.205] - relayed: [n=2] FALSE, FALSE
  [14:51:50.206] - queued futures: [n=2] FALSE, FALSE
  [14:51:50.206]  - until=1
  [14:51:50.207]  - relaying element #1
  [14:51:50.207] - relayed: [n=2] TRUE, FALSE
  [14:51:50.208] - queued futures: [n=2] TRUE, FALSE
  [14:51:50.208] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [14:51:50.209]  length: 1 (resolved future 1)
  [14:51:50.212] plan(): Setting new future strategy stack:
  [14:51:50.213] List of future strategies:
  [14:51:50.213] 1. multicore:
  [14:51:50.213]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:51:50.213]    - tweaked: FALSE
  [14:51:50.213]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:50.216] plan(): nbrOfWorkers() = 1
  [14:51:50.219] plan(): Setting new future strategy stack:
  [14:51:50.219] List of future strategies:
  [14:51:50.219] 1. multicore:
  [14:51:50.219]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:51:50.219]    - tweaked: FALSE
  [14:51:50.219]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:50.219] 2. multicore:
  [14:51:50.219]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:51:50.219]    - tweaked: FALSE
  [14:51:50.219]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:50.222] plan(): nbrOfWorkers() = 2
  [14:51:50.231] Future #2
  [14:51:50.235] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [14:51:50.235] - nx: 2
  [14:51:50.235] - relay: TRUE
  [14:51:50.236] - stdout: TRUE
  [14:51:50.236] - signal: TRUE
  [14:51:50.237] - resignal: FALSE
  [14:51:50.237] - force: FALSE
  [14:51:50.237] - relayed: [n=2] TRUE, FALSE
  [14:51:50.238] - queued futures: [n=2] TRUE, FALSE
  [14:51:50.238]  - until=2
  [14:51:50.239]  - relaying element #2
  [14:51:50.240] - relayed: [n=2] TRUE, TRUE
  [14:51:50.240] - queued futures: [n=2] TRUE, TRUE
  [14:51:50.240] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [14:51:50.241]  length: 0 (resolved future 2)
  [14:51:50.241] Relaying remaining futures
  [14:51:50.242] signalConditionsASAP(NULL, pos=0) ...
  [14:51:50.245] - nx: 2
  [14:51:50.245] - relay: TRUE
  [14:51:50.246] - stdout: TRUE
  [14:51:50.246] - signal: TRUE
  [14:51:50.246] - resignal: FALSE
  [14:51:50.247] - force: FALSE
  [14:51:50.247] - relayed: [n=2] TRUE, TRUE
  [14:51:50.248] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [14:51:50.248] - relayed: [n=2] TRUE, TRUE
  [14:51:50.249] - queued futures: [n=2] TRUE, TRUE
  [14:51:50.249] signalConditionsASAP(NULL, pos=0) ... done
  [14:51:50.250] resolve() on list ... DONE
  [14:51:50.259] - collecting values of futures
  [14:51:50.259] - accumulating results
  [14:51:50.262] - processing errors (handler = 'stop')
  [14:51:50.263] - extracting results
  [14:51:50.263] doFuture() ... DONE
  - plan(list('multicore', 'multicore')) ... DONE
  - plan(list('multicore', 'multisession')) ...
  [14:51:50.265] plan(): Setting new future strategy stack:
  [14:51:50.265] List of future strategies:
  [14:51:50.265] 1. multicore:
  [14:51:50.265]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:51:50.265]    - tweaked: FALSE
  [14:51:50.265]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:50.265] 2. multisession:
  [14:51:50.265]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:51:50.265]    - tweaked: FALSE
  [14:51:50.265]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:50.268] plan(): nbrOfWorkers() = 2
  [14:51:50.269] doFuture() ...
  [14:51:50.274] - dummy globals (as locals): [2] 'a', 'b'
  [14:51:50.276] - R expression:
  [14:51:50.276] {
  [14:51:50.276]     doFuture::registerDoFuture()
  [14:51:50.276]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:50.276]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:50.276]         {
  [14:51:50.276]             a <- NULL
  [14:51:50.276]             b <- NULL
  [14:51:50.276]         }
  [14:51:50.276]         ...future.env <- environment()
  [14:51:50.276]         local({
  [14:51:50.276]             for (name in names(...future.x_jj)) {
  [14:51:50.276]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:50.276]                   inherits = FALSE)
  [14:51:50.276]             }
  [14:51:50.276]         })
  [14:51:50.276]         tryCatch({
  [14:51:50.276]             list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:50.276]                 plan = future::plan("next"))
  [14:51:50.276]         }, error = identity)
  [14:51:50.276]     })
  [14:51:50.276] }
  [14:51:50.277] - identifying globals and packages ...
  [14:51:50.277] getGlobalsAndPackages() ...
  [14:51:50.278] Searching for globals...
  [14:51:50.303] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [14:51:50.303] Searching for globals ... DONE
  [14:51:50.304] Resolving globals: FALSE
  [14:51:50.306] The total size of the 1 globals is 0 bytes (0 bytes)
  [14:51:50.306] - globals: [1] '...future.x_ii'
  [14:51:50.306] 
  [14:51:50.307] getGlobalsAndPackages() ... DONE
  [14:51:50.307] List of 1
  [14:51:50.307]  $ ...future.x_ii: NULL
  [14:51:50.307]  - attr(*, "where")=List of 1
  [14:51:50.307]   ..$ ...future.x_ii:<environment: 0x560014eb06f0> 
  [14:51:50.307]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:51:50.307]  - attr(*, "resolved")= logi FALSE
  [14:51:50.307]  - attr(*, "total_size")= num 0
  [14:51:50.316]   - R expression:
  [14:51:50.316] {
  [14:51:50.316]     doFuture::registerDoFuture()
  [14:51:50.316]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:50.316]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:50.316]         {
  [14:51:50.316]             a <- NULL
  [14:51:50.316]             b <- NULL
  [14:51:50.316]         }
  [14:51:50.316]         ...future.env <- environment()
  [14:51:50.316]         local({
  [14:51:50.316]             for (name in names(...future.x_jj)) {
  [14:51:50.316]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:50.316]                   inherits = FALSE)
  [14:51:50.316]             }
  [14:51:50.316]         })
  [14:51:50.316]         tryCatch({
  [14:51:50.316]             list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:50.316]                 plan = future::plan("next"))
  [14:51:50.316]         }, error = identity)
  [14:51:50.316]     })
  [14:51:50.316] }
  [14:51:50.317]   - globals: [1] '...future.x_ii'
  [14:51:50.317] List of 1
  [14:51:50.317]  $ ...future.x_ii: NULL
  [14:51:50.317]  - attr(*, "where")=List of 1
  [14:51:50.317]   ..$ ...future.x_ii:<environment: 0x560014eb06f0> 
  [14:51:50.317]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:51:50.317]  - attr(*, "resolved")= logi FALSE
  [14:51:50.317]  - attr(*, "total_size")= num 0
  [14:51:50.325]   - packages: [1] 'doFuture'
  [14:51:50.326] - identifying globals and packages ... DONE
  [14:51:50.327] Number of chunks: 2
  [14:51:50.328] Number of futures (= number of chunks): 2
  [14:51:50.328] Launching 2 futures (chunks) ...
  [14:51:50.329] Chunk #1 of 2 ...
  [14:51:50.329]  - Finding globals in 'args_list' chunk #1 ...
  [14:51:50.329] getGlobalsAndPackages() ...
  [14:51:50.330] Searching for globals...
  [14:51:50.331] 
  [14:51:50.331] Searching for globals ... DONE
  [14:51:50.332] - globals: [0] <none>
  [14:51:50.332] getGlobalsAndPackages() ... DONE
  [14:51:50.332] 
  [14:51:50.333] 
  [14:51:50.333]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:51:50.334] getGlobalsAndPackages() ...
  [14:51:50.334] - globals passed as-is: [1] '...future.x_ii'
  [14:51:50.335] Resolving globals: FALSE
  [14:51:50.336] The total size of the 1 globals is 336 bytes (336 bytes)
  [14:51:50.336] - globals: [1] '...future.x_ii'
  [14:51:50.337] 
  [14:51:50.337] getGlobalsAndPackages() ... DONE
  [14:51:50.340] Packages needed by the future expression (n = 1): 'doFuture'
  [14:51:50.341] Packages needed by future strategies (n = 1): 'future'
  [14:51:50.347] {
  [14:51:50.347]     {
  [14:51:50.347]         ...future.startTime <- base::Sys.time()
  [14:51:50.347]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:51:50.347]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:51:50.347]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:51:50.347]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:51:50.347]             future.resolve.recursive = NULL, width = 80L)
  [14:51:50.347]         {
  [14:51:50.347]             {
  [14:51:50.347]                 {
  [14:51:50.347]                   {
  [14:51:50.347]                     base::local({
  [14:51:50.347]                       has_future <- base::requireNamespace("future", 
  [14:51:50.347]                         quietly = TRUE)
  [14:51:50.347]                       version <- if (has_future) 
  [14:51:50.347]                         utils::packageVersion("future")
  [14:51:50.347]                       else NULL
  [14:51:50.347]                       if (!has_future || version < "1.8.0") {
  [14:51:50.347]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:51:50.347]                           "", base::R.version$version.string), 
  [14:51:50.347]                           platform = base::sprintf("%s (%s-bit)", 
  [14:51:50.347]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:51:50.347]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:51:50.347]                             "release", "version")], collapse = " "), 
  [14:51:50.347]                           hostname = base::Sys.info()[["nodename"]])
  [14:51:50.347]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:51:50.347]                           info)
  [14:51:50.347]                         info <- base::paste(info, collapse = "; ")
  [14:51:50.347]                         if (!has_future) {
  [14:51:50.347]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:51:50.347]                             info)
  [14:51:50.347]                         }
  [14:51:50.347]                         else {
  [14:51:50.347]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:51:50.347]                             info, version)
  [14:51:50.347]                         }
  [14:51:50.347]                         base::stop(msg)
  [14:51:50.347]                       }
  [14:51:50.347]                     })
  [14:51:50.347]                   }
  [14:51:50.347]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:51:50.347]                   base::options(mc.cores = 1L)
  [14:51:50.347]                 }
  [14:51:50.347]                 base::local({
  [14:51:50.347]                   for (pkg in c("doFuture", "future")) {
  [14:51:50.347]                     base::loadNamespace(pkg)
  [14:51:50.347]                     base::library(pkg, character.only = TRUE)
  [14:51:50.347]                   }
  [14:51:50.347]                 })
  [14:51:50.347]             }
  [14:51:50.347]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:51:50.347]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:50.347]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:51:50.347]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:51:50.347]                 ...) 
  [14:51:50.347]             {
  [14:51:50.347]                 if (substitute) 
  [14:51:50.347]                   expr <- substitute(expr)
  [14:51:50.347]                 if (is.function(workers)) 
  [14:51:50.347]                   workers <- workers()
  [14:51:50.347]                 workers <- as.integer(workers)
  [14:51:50.347]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:51:50.347]                   workers >= 1)
  [14:51:50.347]                 if (workers == 1L) {
  [14:51:50.347]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:50.347]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:51:50.347]                     local = TRUE, label = label, ...))
  [14:51:50.347]                 }
  [14:51:50.347]                 workers <- ClusterRegistry("start", workers = workers)
  [14:51:50.347]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:51:50.347]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:50.347]                   globals = globals, persistent = persistent, 
  [14:51:50.347]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:51:50.347]                   label = label, ...)
  [14:51:50.347]                 if (!future$lazy) 
  [14:51:50.347]                   future <- run(future)
  [14:51:50.347]                 invisible(future)
  [14:51:50.347]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:50.347]         }
  [14:51:50.347]     }
  [14:51:50.347]     if (base::is.na(TRUE)) {
  [14:51:50.347]     }
  [14:51:50.347]     else {
  [14:51:50.347]         if (TRUE) {
  [14:51:50.347]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:51:50.347]                 open = "w")
  [14:51:50.347]         }
  [14:51:50.347]         else {
  [14:51:50.347]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:51:50.347]                 windows = "NUL", "/dev/null"), open = "w")
  [14:51:50.347]         }
  [14:51:50.347]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:51:50.347]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:51:50.347]             base::sink(type = "output", split = FALSE)
  [14:51:50.347]             base::close(...future.stdout)
  [14:51:50.347]         }, add = TRUE)
  [14:51:50.347]     }
  [14:51:50.347]     ...future.frame <- base::sys.nframe()
  [14:51:50.347]     ...future.conditions <- base::list()
  [14:51:50.347]     ...future.rng <- base::globalenv()$.Random.seed
  [14:51:50.347]     ...future.result <- base::tryCatch({
  [14:51:50.347]         base::withCallingHandlers({
  [14:51:50.347]             ...future.value <- base::withVisible(base::local({
  [14:51:50.347]                 doFuture::registerDoFuture()
  [14:51:50.347]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:50.347]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:50.347]                   {
  [14:51:50.347]                     a <- NULL
  [14:51:50.347]                     b <- NULL
  [14:51:50.347]                   }
  [14:51:50.347]                   ...future.env <- environment()
  [14:51:50.347]                   local({
  [14:51:50.347]                     for (name in names(...future.x_jj)) {
  [14:51:50.347]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:50.347]                         inherits = FALSE)
  [14:51:50.347]                     }
  [14:51:50.347]                   })
  [14:51:50.347]                   tryCatch({
  [14:51:50.347]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:50.347]                       plan = future::plan("next"))
  [14:51:50.347]                   }, error = identity)
  [14:51:50.347]                 })
  [14:51:50.347]             }))
  [14:51:50.347]             future::FutureResult(value = ...future.value$value, 
  [14:51:50.347]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:50.347]                   ...future.rng), started = ...future.startTime, 
  [14:51:50.347]                 version = "1.8")
  [14:51:50.347]         }, condition = base::local({
  [14:51:50.347]             c <- base::c
  [14:51:50.347]             inherits <- base::inherits
  [14:51:50.347]             invokeRestart <- base::invokeRestart
  [14:51:50.347]             length <- base::length
  [14:51:50.347]             list <- base::list
  [14:51:50.347]             seq.int <- base::seq.int
  [14:51:50.347]             signalCondition <- base::signalCondition
  [14:51:50.347]             sys.calls <- base::sys.calls
  [14:51:50.347]             Sys.time <- base::Sys.time
  [14:51:50.347]             `[[` <- base::`[[`
  [14:51:50.347]             `+` <- base::`+`
  [14:51:50.347]             `<<-` <- base::`<<-`
  [14:51:50.347]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:51:50.347]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:51:50.347]                   3L)]
  [14:51:50.347]             }
  [14:51:50.347]             function(cond) {
  [14:51:50.347]                 if (inherits(cond, "error")) {
  [14:51:50.347]                   sessionInformation <- function() {
  [14:51:50.347]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:51:50.347]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:51:50.347]                       search = base::search(), system = base::Sys.info())
  [14:51:50.347]                   }
  [14:51:50.347]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:50.347]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:51:50.347]                     cond$call), session = sessionInformation(), 
  [14:51:50.347]                     timestamp = Sys.time(), signaled = 0L)
  [14:51:50.347]                   signalCondition(cond)
  [14:51:50.347]                 }
  [14:51:50.347]                 else if (inherits(cond, "condition")) {
  [14:51:50.347]                   signal <- FALSE && inherits(cond, character(0))
  [14:51:50.347]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:50.347]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:51:50.347]                   if (!signal) {
  [14:51:50.347]                     muffleCondition <- function (cond) 
  [14:51:50.347]                     {
  [14:51:50.347]                       inherits <- base::inherits
  [14:51:50.347]                       invokeRestart <- base::invokeRestart
  [14:51:50.347]                       muffled <- FALSE
  [14:51:50.347]                       if (inherits(cond, "message")) {
  [14:51:50.347]                         invokeRestart("muffleMessage")
  [14:51:50.347]                         muffled <- TRUE
  [14:51:50.347]                       }
  [14:51:50.347]                       else if (inherits(cond, "warning")) {
  [14:51:50.347]                         invokeRestart("muffleWarning")
  [14:51:50.347]                         muffled <- TRUE
  [14:51:50.347]                       }
  [14:51:50.347]                       else if (inherits(cond, "condition")) {
  [14:51:50.347]                         computeRestarts <- base::computeRestarts
  [14:51:50.347]                         grepl <- base::grepl
  [14:51:50.347]                         is.null <- base::is.null
  [14:51:50.347]                         restarts <- computeRestarts(cond)
  [14:51:50.347]                         for (restart in restarts) {
  [14:51:50.347]                           name <- restart$name
  [14:51:50.347]                           if (is.null(name)) 
  [14:51:50.347]                             next
  [14:51:50.347]                           if (!grepl("^muffle", name)) 
  [14:51:50.347]                             next
  [14:51:50.347]                           invokeRestart(restart)
  [14:51:50.347]                           muffled <- TRUE
  [14:51:50.347]                           break
  [14:51:50.347]                         }
  [14:51:50.347]                       }
  [14:51:50.347]                       invisible(muffled)
  [14:51:50.347]                     }
  [14:51:50.347]                     muffleCondition(cond)
  [14:51:50.347]                   }
  [14:51:50.347]                 }
  [14:51:50.347]             }
  [14:51:50.347]         }))
  [14:51:50.347]     }, error = function(ex) {
  [14:51:50.347]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:51:50.347]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:50.347]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:51:50.347]     }, finally = {
  [14:51:50.347]         {
  [14:51:50.347]             {
  [14:51:50.347]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:51:50.347]             }
  [14:51:50.347]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:51:50.347]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:50.347]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:51:50.347]                 earlySignal = FALSE, label = NULL, ...) 
  [14:51:50.347]             {
  [14:51:50.347]                 if (substitute) 
  [14:51:50.347]                   expr <- substitute(expr)
  [14:51:50.347]                 if (is.function(workers)) 
  [14:51:50.347]                   workers <- workers()
  [14:51:50.347]                 workers <- as.integer(workers)
  [14:51:50.347]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:51:50.347]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:51:50.347]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:50.347]                     lazy = lazy, seed = seed, globals = globals, 
  [14:51:50.347]                     local = TRUE, label = label, ...))
  [14:51:50.347]                 }
  [14:51:50.347]                 oopts <- options(mc.cores = workers)
  [14:51:50.347]                 on.exit(options(oopts))
  [14:51:50.347]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:51:50.347]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:50.347]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:51:50.347]                   label = label, ...)
  [14:51:50.347]                 if (!future$lazy) 
  [14:51:50.347]                   future <- run(future)
  [14:51:50.347]                 invisible(future)
  [14:51:50.347]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:51:50.347]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [14:51:50.347]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [14:51:50.347]                 label = NULL, ...) 
  [14:51:50.347]             {
  [14:51:50.347]                 if (substitute) 
  [14:51:50.347]                   expr <- substitute(expr)
  [14:51:50.347]                 if (is.function(workers)) 
  [14:51:50.347]                   workers <- workers()
  [14:51:50.347]                 workers <- as.integer(workers)
  [14:51:50.347]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:51:50.347]                   workers >= 1)
  [14:51:50.347]                 if (workers == 1L) {
  [14:51:50.347]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:50.347]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:51:50.347]                     local = TRUE, label = label, ...))
  [14:51:50.347]                 }
  [14:51:50.347]                 workers <- ClusterRegistry("start", workers = workers)
  [14:51:50.347]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:51:50.347]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:50.347]                   globals = globals, persistent = persistent, 
  [14:51:50.347]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:51:50.347]                   label = label, ...)
  [14:51:50.347]                 if (!future$lazy) 
  [14:51:50.347]                   future <- run(future)
  [14:51:50.347]                 invisible(future)
  [14:51:50.347]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:50.347]         }
  [14:51:50.347]         base::options(...future.oldOptions)
  [14:51:50.347]     })
  [14:51:50.347]     Sys.time
  [14:51:50.347]     if (base::is.na(TRUE)) {
  [14:51:50.347]     }
  [14:51:50.347]     else {
  [14:51:50.347]         base::sink(type = "output", split = FALSE)
  [14:51:50.347]         if (TRUE) {
  [14:51:50.347]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:51:50.347]         }
  [14:51:50.347]         else {
  [14:51:50.347]             ...future.result["stdout"] <- base::list(NULL)
  [14:51:50.347]         }
  [14:51:50.347]         base::close(...future.stdout)
  [14:51:50.347]         ...future.stdout <- NULL
  [14:51:50.347]     }
  [14:51:50.347]     ...future.result$conditions <- ...future.conditions
  [14:51:50.347]     ...future.result
  [14:51:50.347] }
  [14:51:50.353] requestCore(): workers = 2
  [14:51:50.357] MulticoreFuture started
  [14:51:50.358] Chunk #1 of 2 ... DONE
  [14:51:50.359] Chunk #2 of 2 ...
  [14:51:50.359]  - Finding globals in 'args_list' chunk #2 ...
  [14:51:50.360] getGlobalsAndPackages() ...
  [14:51:50.360] Searching for globals...
  [14:51:50.362] 
  [14:51:50.362] Searching for globals ... DONE
  [14:51:50.363] - globals: [0] <none>
  [14:51:50.363] getGlobalsAndPackages() ... DONE
  [14:51:50.364] 
  [14:51:50.364] 
  [14:51:50.365]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:51:50.367] getGlobalsAndPackages() ...
  [14:51:50.367] - globals passed as-is: [1] '...future.x_ii'
  [14:51:50.368] Resolving globals: FALSE
  [14:51:50.369] The total size of the 1 globals is 336 bytes (336 bytes)
  [14:51:50.370] - globals: [1] '...future.x_ii'
  [14:51:50.370] 
  [14:51:50.371] getGlobalsAndPackages() ... DONE
  [14:51:50.375] Packages needed by the future expression (n = 1): 'doFuture'
  [14:51:50.376] Packages needed by future strategies (n = 1): 'future'
  [14:51:50.376] plan(): Setting new future strategy stack:
  [14:51:50.376] List of future strategies:
  [14:51:50.376] 1. multisession:
  [14:51:50.376]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:51:50.376]    - tweaked: FALSE
  [14:51:50.376]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:50.379] plan(): nbrOfWorkers() = 1
  [14:51:50.382] plan(): Setting new future strategy stack:
  [14:51:50.385] List of future strategies:
  [14:51:50.385] 1. multicore:
  [14:51:50.385]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:51:50.385]    - tweaked: FALSE
  [14:51:50.385]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:50.385] 2. multisession:
  [14:51:50.385]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:51:50.385]    - tweaked: FALSE
  [14:51:50.385]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:50.388] plan(): nbrOfWorkers() = 2
  [14:51:50.390] {
  [14:51:50.390]     {
  [14:51:50.390]         ...future.startTime <- base::Sys.time()
  [14:51:50.390]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:51:50.390]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:51:50.390]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:51:50.390]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:51:50.390]             future.resolve.recursive = NULL, width = 80L)
  [14:51:50.390]         {
  [14:51:50.390]             {
  [14:51:50.390]                 {
  [14:51:50.390]                   {
  [14:51:50.390]                     base::local({
  [14:51:50.390]                       has_future <- base::requireNamespace("future", 
  [14:51:50.390]                         quietly = TRUE)
  [14:51:50.390]                       version <- if (has_future) 
  [14:51:50.390]                         utils::packageVersion("future")
  [14:51:50.390]                       else NULL
  [14:51:50.390]                       if (!has_future || version < "1.8.0") {
  [14:51:50.390]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:51:50.390]                           "", base::R.version$version.string), 
  [14:51:50.390]                           platform = base::sprintf("%s (%s-bit)", 
  [14:51:50.390]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:51:50.390]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:51:50.390]                             "release", "version")], collapse = " "), 
  [14:51:50.390]                           hostname = base::Sys.info()[["nodename"]])
  [14:51:50.390]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:51:50.390]                           info)
  [14:51:50.390]                         info <- base::paste(info, collapse = "; ")
  [14:51:50.390]                         if (!has_future) {
  [14:51:50.390]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:51:50.390]                             info)
  [14:51:50.390]                         }
  [14:51:50.390]                         else {
  [14:51:50.390]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:51:50.390]                             info, version)
  [14:51:50.390]                         }
  [14:51:50.390]                         base::stop(msg)
  [14:51:50.390]                       }
  [14:51:50.390]                     })
  [14:51:50.390]                   }
  [14:51:50.390]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:51:50.390]                   base::options(mc.cores = 1L)
  [14:51:50.390]                 }
  [14:51:50.390]                 base::local({
  [14:51:50.390]                   for (pkg in c("doFuture", "future")) {
  [14:51:50.390]                     base::loadNamespace(pkg)
  [14:51:50.390]                     base::library(pkg, character.only = TRUE)
  [14:51:50.390]                   }
  [14:51:50.390]                 })
  [14:51:50.390]             }
  [14:51:50.390]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:51:50.390]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:50.390]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:51:50.390]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:51:50.390]                 ...) 
  [14:51:50.390]             {
  [14:51:50.390]                 if (substitute) 
  [14:51:50.390]                   expr <- substitute(expr)
  [14:51:50.390]                 if (is.function(workers)) 
  [14:51:50.390]                   workers <- workers()
  [14:51:50.390]                 workers <- as.integer(workers)
  [14:51:50.390]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:51:50.390]                   workers >= 1)
  [14:51:50.390]                 if (workers == 1L) {
  [14:51:50.390]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:50.390]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:51:50.390]                     local = TRUE, label = label, ...))
  [14:51:50.390]                 }
  [14:51:50.390]                 workers <- ClusterRegistry("start", workers = workers)
  [14:51:50.390]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:51:50.390]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:50.390]                   globals = globals, persistent = persistent, 
  [14:51:50.390]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:51:50.390]                   label = label, ...)
  [14:51:50.390]                 if (!future$lazy) 
  [14:51:50.390]                   future <- run(future)
  [14:51:50.390]                 invisible(future)
  [14:51:50.390]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:50.390]         }
  [14:51:50.390]     }
  [14:51:50.390]     if (base::is.na(TRUE)) {
  [14:51:50.390]     }
  [14:51:50.390]     else {
  [14:51:50.390]         if (TRUE) {
  [14:51:50.390]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:51:50.390]                 open = "w")
  [14:51:50.390]         }
  [14:51:50.390]         else {
  [14:51:50.390]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:51:50.390]                 windows = "NUL", "/dev/null"), open = "w")
  [14:51:50.390]         }
  [14:51:50.390]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:51:50.390]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:51:50.390]             base::sink(type = "output", split = FALSE)
  [14:51:50.390]             base::close(...future.stdout)
  [14:51:50.390]         }, add = TRUE)
  [14:51:50.390]     }
  [14:51:50.390]     ...future.frame <- base::sys.nframe()
  [14:51:50.390]     ...future.conditions <- base::list()
  [14:51:50.390]     ...future.rng <- base::globalenv()$.Random.seed
  [14:51:50.390]     ...future.result <- base::tryCatch({
  [14:51:50.390]         base::withCallingHandlers({
  [14:51:50.390]             ...future.value <- base::withVisible(base::local({
  [14:51:50.390]                 doFuture::registerDoFuture()
  [14:51:50.390]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:50.390]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:50.390]                   {
  [14:51:50.390]                     a <- NULL
  [14:51:50.390]                     b <- NULL
  [14:51:50.390]                   }
  [14:51:50.390]                   ...future.env <- environment()
  [14:51:50.390]                   local({
  [14:51:50.390]                     for (name in names(...future.x_jj)) {
  [14:51:50.390]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:50.390]                         inherits = FALSE)
  [14:51:50.390]                     }
  [14:51:50.390]                   })
  [14:51:50.390]                   tryCatch({
  [14:51:50.390]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:50.390]                       plan = future::plan("next"))
  [14:51:50.390]                   }, error = identity)
  [14:51:50.390]                 })
  [14:51:50.390]             }))
  [14:51:50.390]             future::FutureResult(value = ...future.value$value, 
  [14:51:50.390]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:50.390]                   ...future.rng), started = ...future.startTime, 
  [14:51:50.390]                 version = "1.8")
  [14:51:50.390]         }, condition = base::local({
  [14:51:50.390]             c <- base::c
  [14:51:50.390]             inherits <- base::inherits
  [14:51:50.390]             invokeRestart <- base::invokeRestart
  [14:51:50.390]             length <- base::length
  [14:51:50.390]             list <- base::list
  [14:51:50.390]             seq.int <- base::seq.int
  [14:51:50.390]             signalCondition <- base::signalCondition
  [14:51:50.390]             sys.calls <- base::sys.calls
  [14:51:50.390]             Sys.time <- base::Sys.time
  [14:51:50.390]             `[[` <- base::`[[`
  [14:51:50.390]             `+` <- base::`+`
  [14:51:50.390]             `<<-` <- base::`<<-`
  [14:51:50.390]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:51:50.390]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:51:50.390]                   3L)]
  [14:51:50.390]             }
  [14:51:50.390]             function(cond) {
  [14:51:50.390]                 if (inherits(cond, "error")) {
  [14:51:50.390]                   sessionInformation <- function() {
  [14:51:50.390]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:51:50.390]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:51:50.390]                       search = base::search(), system = base::Sys.info())
  [14:51:50.390]                   }
  [14:51:50.390]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:50.390]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:51:50.390]                     cond$call), session = sessionInformation(), 
  [14:51:50.390]                     timestamp = Sys.time(), signaled = 0L)
  [14:51:50.390]                   signalCondition(cond)
  [14:51:50.390]                 }
  [14:51:50.390]                 else if (inherits(cond, "condition")) {
  [14:51:50.390]                   signal <- FALSE && inherits(cond, character(0))
  [14:51:50.390]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:50.390]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:51:50.390]                   if (!signal) {
  [14:51:50.390]                     muffleCondition <- function (cond) 
  [14:51:50.390]                     {
  [14:51:50.390]                       inherits <- base::inherits
  [14:51:50.390]                       invokeRestart <- base::invokeRestart
  [14:51:50.390]                       muffled <- FALSE
  [14:51:50.390]                       if (inherits(cond, "message")) {
  [14:51:50.390]                         invokeRestart("muffleMessage")
  [14:51:50.390]                         muffled <- TRUE
  [14:51:50.390]                       }
  [14:51:50.390]                       else if (inherits(cond, "warning")) {
  [14:51:50.390]                         invokeRestart("muffleWarning")
  [14:51:50.390]                         muffled <- TRUE
  [14:51:50.390]                       }
  [14:51:50.390]                       else if (inherits(cond, "condition")) {
  [14:51:50.390]                         computeRestarts <- base::computeRestarts
  [14:51:50.390]                         grepl <- base::grepl
  [14:51:50.390]                         is.null <- base::is.null
  [14:51:50.390]                         restarts <- computeRestarts(cond)
  [14:51:50.390]                         for (restart in restarts) {
  [14:51:50.390]                           name <- restart$name
  [14:51:50.390]                           if (is.null(name)) 
  [14:51:50.390]                             next
  [14:51:50.390]                           if (!grepl("^muffle", name)) 
  [14:51:50.390]                             next
  [14:51:50.390]                           invokeRestart(restart)
  [14:51:50.390]                           muffled <- TRUE
  [14:51:50.390]                           break
  [14:51:50.390]                         }
  [14:51:50.390]                       }
  [14:51:50.390]                       invisible(muffled)
  [14:51:50.390]                     }
  [14:51:50.390]                     muffleCondition(cond)
  [14:51:50.390]                   }
  [14:51:50.390]                 }
  [14:51:50.390]             }
  [14:51:50.390]         }))
  [14:51:50.390]     }, error = function(ex) {
  [14:51:50.390]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:51:50.390]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:50.390]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:51:50.390]     }, finally = {
  [14:51:50.390]         {
  [14:51:50.390]             {
  [14:51:50.390]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:51:50.390]             }
  [14:51:50.390]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:51:50.390]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:50.390]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:51:50.390]                 earlySignal = FALSE, label = NULL, ...) 
  [14:51:50.390]             {
  [14:51:50.390]                 if (substitute) 
  [14:51:50.390]                   expr <- substitute(expr)
  [14:51:50.390]                 if (is.function(workers)) 
  [14:51:50.390]                   workers <- workers()
  [14:51:50.390]                 workers <- as.integer(workers)
  [14:51:50.390]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:51:50.390]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:51:50.390]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:50.390]                     lazy = lazy, seed = seed, globals = globals, 
  [14:51:50.390]                     local = TRUE, label = label, ...))
  [14:51:50.390]                 }
  [14:51:50.390]                 oopts <- options(mc.cores = workers)
  [14:51:50.390]                 on.exit(options(oopts))
  [14:51:50.390]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:51:50.390]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:50.390]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:51:50.390]                   label = label, ...)
  [14:51:50.390]                 if (!future$lazy) 
  [14:51:50.390]                   future <- run(future)
  [14:51:50.390]                 invisible(future)
  [14:51:50.390]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:51:50.390]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [14:51:50.390]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [14:51:50.390]                 label = NULL, ...) 
  [14:51:50.390]             {
  [14:51:50.390]                 if (substitute) 
  [14:51:50.390]                   expr <- substitute(expr)
  [14:51:50.390]                 if (is.function(workers)) 
  [14:51:50.390]                   workers <- workers()
  [14:51:50.390]                 workers <- as.integer(workers)
  [14:51:50.390]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:51:50.390]                   workers >= 1)
  [14:51:50.390]                 if (workers == 1L) {
  [14:51:50.390]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:50.390]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:51:50.390]                     local = TRUE, label = label, ...))
  [14:51:50.390]                 }
  [14:51:50.390]                 workers <- ClusterRegistry("start", workers = workers)
  [14:51:50.390]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:51:50.390]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:50.390]                   globals = globals, persistent = persistent, 
  [14:51:50.390]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:51:50.390]                   label = label, ...)
  [14:51:50.390]                 if (!future$lazy) 
  [14:51:50.390]                   future <- run(future)
  [14:51:50.390]                 invisible(future)
  [14:51:50.390]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:50.390]         }
  [14:51:50.390]         base::options(...future.oldOptions)
  [14:51:50.390]     })
  [14:51:50.390]     Sys.time
  [14:51:50.390]     if (base::is.na(TRUE)) {
  [14:51:50.390]     }
  [14:51:50.390]     else {
  [14:51:50.390]         base::sink(type = "output", split = FALSE)
  [14:51:50.390]         if (TRUE) {
  [14:51:50.390]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:51:50.390]         }
  [14:51:50.390]         else {
  [14:51:50.390]             ...future.result["stdout"] <- base::list(NULL)
  [14:51:50.390]         }
  [14:51:50.390]         base::close(...future.stdout)
  [14:51:50.390]         ...future.stdout <- NULL
  [14:51:50.390]     }
  [14:51:50.390]     ...future.result$conditions <- ...future.conditions
  [14:51:50.390]     ...future.result
  [14:51:50.390] }
  [14:51:50.397] requestCore(): workers = 2
  [14:51:50.401] MulticoreFuture started
  [14:51:50.402] Chunk #2 of 2 ... DONE
  [14:51:50.403] Launching 2 futures (chunks) ... DONE
  [14:51:50.404] - resolving futures
  [14:51:50.404]   - gathering results & relaying conditions (except errors)
  [14:51:50.405] resolve() on list ...
  [14:51:50.405]  recursive: 0
  [14:51:50.406]  length: 2
  [14:51:50.406] 
  [14:51:50.407] Future #1
  [14:51:50.411] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [14:51:50.412] - nx: 2
  [14:51:50.412] - relay: TRUE
  [14:51:50.413] - stdout: TRUE
  [14:51:50.413] - signal: TRUE
  [14:51:50.414] - resignal: FALSE
  [14:51:50.414] - force: FALSE
  [14:51:50.414] - relayed: [n=2] FALSE, FALSE
  [14:51:50.415] - queued futures: [n=2] FALSE, FALSE
  [14:51:50.416]  - until=1
  [14:51:50.416]  - relaying element #1
  [14:51:50.417] - relayed: [n=2] TRUE, FALSE
  [14:51:50.417] - queued futures: [n=2] TRUE, FALSE
  [14:51:50.418] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [14:51:50.418]  length: 1 (resolved future 1)
  [14:51:50.420] plan(): Setting new future strategy stack:
  [14:51:50.421] List of future strategies:
  [14:51:50.421] 1. multisession:
  [14:51:50.421]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:51:50.421]    - tweaked: FALSE
  [14:51:50.421]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:50.424] plan(): nbrOfWorkers() = 1
  [14:51:50.434] plan(): Setting new future strategy stack:
  [14:51:50.434] List of future strategies:
  [14:51:50.434] 1. multicore:
  [14:51:50.434]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:51:50.434]    - tweaked: FALSE
  [14:51:50.434]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:50.434] 2. multisession:
  [14:51:50.434]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:51:50.434]    - tweaked: FALSE
  [14:51:50.434]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:50.437] plan(): nbrOfWorkers() = 2
  [14:51:50.438] Future #2
  [14:51:50.443] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [14:51:50.444] - nx: 2
  [14:51:50.444] - relay: TRUE
  [14:51:50.444] - stdout: TRUE
  [14:51:50.445] - signal: TRUE
  [14:51:50.445] - resignal: FALSE
  [14:51:50.445] - force: FALSE
  [14:51:50.446] - relayed: [n=2] TRUE, FALSE
  [14:51:50.446] - queued futures: [n=2] TRUE, FALSE
  [14:51:50.446]  - until=2
  [14:51:50.447]  - relaying element #2
  [14:51:50.447] - relayed: [n=2] TRUE, TRUE
  [14:51:50.448] - queued futures: [n=2] TRUE, TRUE
  [14:51:50.448] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [14:51:50.448]  length: 0 (resolved future 2)
  [14:51:50.449] Relaying remaining futures
  [14:51:50.449] signalConditionsASAP(NULL, pos=0) ...
  [14:51:50.449] - nx: 2
  [14:51:50.449] - relay: TRUE
  [14:51:50.450] - stdout: TRUE
  [14:51:50.450] - signal: TRUE
  [14:51:50.450] - resignal: FALSE
  [14:51:50.451] - force: FALSE
  [14:51:50.451] - relayed: [n=2] TRUE, TRUE
  [14:51:50.451] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [14:51:50.452] - relayed: [n=2] TRUE, TRUE
  [14:51:50.452] - queued futures: [n=2] TRUE, TRUE
  [14:51:50.452] signalConditionsASAP(NULL, pos=0) ... done
  [14:51:50.453] resolve() on list ... DONE
  [14:51:50.453] - collecting values of futures
  [14:51:50.454] - accumulating results
  [14:51:50.457] - processing errors (handler = 'stop')
  [14:51:50.458] - extracting results
  [14:51:50.458] doFuture() ... DONE
  - plan(list('multicore', 'multisession')) ... DONE
  - plan(list('multicore', 'cluster')) ...
  [14:51:50.460] plan(): Setting new future strategy stack:
  [14:51:50.460] List of future strategies:
  [14:51:50.460] 1. multicore:
  [14:51:50.460]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:51:50.460]    - tweaked: FALSE
  [14:51:50.460]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:50.460] 2. cluster:
  [14:51:50.460]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:51:50.460]    - tweaked: FALSE
  [14:51:50.460]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:50.463] plan(): nbrOfWorkers() = 2
  [14:51:50.464] doFuture() ...
  [14:51:50.469] - dummy globals (as locals): [2] 'a', 'b'
  [14:51:50.470] - R expression:
  [14:51:50.470] {
  [14:51:50.470]     doFuture::registerDoFuture()
  [14:51:50.470]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:50.470]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:50.470]         {
  [14:51:50.470]             a <- NULL
  [14:51:50.470]             b <- NULL
  [14:51:50.470]         }
  [14:51:50.470]         ...future.env <- environment()
  [14:51:50.470]         local({
  [14:51:50.470]             for (name in names(...future.x_jj)) {
  [14:51:50.470]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:50.470]                   inherits = FALSE)
  [14:51:50.470]             }
  [14:51:50.470]         })
  [14:51:50.470]         tryCatch({
  [14:51:50.470]             list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:50.470]                 plan = future::plan("next"))
  [14:51:50.470]         }, error = identity)
  [14:51:50.470]     })
  [14:51:50.470] }
  [14:51:50.471] - identifying globals and packages ...
  [14:51:50.472] getGlobalsAndPackages() ...
  [14:51:50.472] Searching for globals...
  [14:51:50.491] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [14:51:50.491] Searching for globals ... DONE
  [14:51:50.496] Resolving globals: FALSE
  [14:51:50.498] The total size of the 1 globals is 0 bytes (0 bytes)
  [14:51:50.498] - globals: [1] '...future.x_ii'
  [14:51:50.498] 
  [14:51:50.499] getGlobalsAndPackages() ... DONE
  [14:51:50.499] List of 1
  [14:51:50.499]  $ ...future.x_ii: NULL
  [14:51:50.499]  - attr(*, "where")=List of 1
  [14:51:50.499]   ..$ ...future.x_ii:<environment: 0x560014de6c30> 
  [14:51:50.499]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:51:50.499]  - attr(*, "resolved")= logi FALSE
  [14:51:50.499]  - attr(*, "total_size")= num 0
  [14:51:50.506]   - R expression:
  [14:51:50.506] {
  [14:51:50.506]     doFuture::registerDoFuture()
  [14:51:50.506]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:50.506]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:50.506]         {
  [14:51:50.506]             a <- NULL
  [14:51:50.506]             b <- NULL
  [14:51:50.506]         }
  [14:51:50.506]         ...future.env <- environment()
  [14:51:50.506]         local({
  [14:51:50.506]             for (name in names(...future.x_jj)) {
  [14:51:50.506]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:50.506]                   inherits = FALSE)
  [14:51:50.506]             }
  [14:51:50.506]         })
  [14:51:50.506]         tryCatch({
  [14:51:50.506]             list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:50.506]                 plan = future::plan("next"))
  [14:51:50.506]         }, error = identity)
  [14:51:50.506]     })
  [14:51:50.506] }
  [14:51:50.507]   - globals: [1] '...future.x_ii'
  [14:51:50.507] List of 1
  [14:51:50.507]  $ ...future.x_ii: NULL
  [14:51:50.507]  - attr(*, "where")=List of 1
  [14:51:50.507]   ..$ ...future.x_ii:<environment: 0x560014de6c30> 
  [14:51:50.507]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:51:50.507]  - attr(*, "resolved")= logi FALSE
  [14:51:50.507]  - attr(*, "total_size")= num 0
  [14:51:50.514]   - packages: [1] 'doFuture'
  [14:51:50.514] - identifying globals and packages ... DONE
  [14:51:50.516] Number of chunks: 2
  [14:51:50.516] Number of futures (= number of chunks): 2
  [14:51:50.517] Launching 2 futures (chunks) ...
  [14:51:50.517] Chunk #1 of 2 ...
  [14:51:50.518]  - Finding globals in 'args_list' chunk #1 ...
  [14:51:50.518] getGlobalsAndPackages() ...
  [14:51:50.518] Searching for globals...
  [14:51:50.519] 
  [14:51:50.520] Searching for globals ... DONE
  [14:51:50.520] - globals: [0] <none>
  [14:51:50.520] getGlobalsAndPackages() ... DONE
  [14:51:50.520] 
  [14:51:50.521] 
  [14:51:50.521]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:51:50.522] getGlobalsAndPackages() ...
  [14:51:50.522] - globals passed as-is: [1] '...future.x_ii'
  [14:51:50.523] Resolving globals: FALSE
  [14:51:50.524] The total size of the 1 globals is 336 bytes (336 bytes)
  [14:51:50.524] - globals: [1] '...future.x_ii'
  [14:51:50.525] 
  [14:51:50.525] getGlobalsAndPackages() ... DONE
  [14:51:50.527] Packages needed by the future expression (n = 1): 'doFuture'
  [14:51:50.528] Packages needed by future strategies (n = 1): 'future'
  [14:51:50.533] {
  [14:51:50.533]     {
  [14:51:50.533]         ...future.startTime <- base::Sys.time()
  [14:51:50.533]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:51:50.533]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:51:50.533]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:51:50.533]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:51:50.533]             future.resolve.recursive = NULL, width = 80L)
  [14:51:50.533]         {
  [14:51:50.533]             {
  [14:51:50.533]                 {
  [14:51:50.533]                   {
  [14:51:50.533]                     base::local({
  [14:51:50.533]                       has_future <- base::requireNamespace("future", 
  [14:51:50.533]                         quietly = TRUE)
  [14:51:50.533]                       version <- if (has_future) 
  [14:51:50.533]                         utils::packageVersion("future")
  [14:51:50.533]                       else NULL
  [14:51:50.533]                       if (!has_future || version < "1.8.0") {
  [14:51:50.533]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:51:50.533]                           "", base::R.version$version.string), 
  [14:51:50.533]                           platform = base::sprintf("%s (%s-bit)", 
  [14:51:50.533]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:51:50.533]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:51:50.533]                             "release", "version")], collapse = " "), 
  [14:51:50.533]                           hostname = base::Sys.info()[["nodename"]])
  [14:51:50.533]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:51:50.533]                           info)
  [14:51:50.533]                         info <- base::paste(info, collapse = "; ")
  [14:51:50.533]                         if (!has_future) {
  [14:51:50.533]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:51:50.533]                             info)
  [14:51:50.533]                         }
  [14:51:50.533]                         else {
  [14:51:50.533]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:51:50.533]                             info, version)
  [14:51:50.533]                         }
  [14:51:50.533]                         base::stop(msg)
  [14:51:50.533]                       }
  [14:51:50.533]                     })
  [14:51:50.533]                   }
  [14:51:50.533]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:51:50.533]                   base::options(mc.cores = 1L)
  [14:51:50.533]                 }
  [14:51:50.533]                 base::local({
  [14:51:50.533]                   for (pkg in c("doFuture", "future")) {
  [14:51:50.533]                     base::loadNamespace(pkg)
  [14:51:50.533]                     base::library(pkg, character.only = TRUE)
  [14:51:50.533]                   }
  [14:51:50.533]                 })
  [14:51:50.533]             }
  [14:51:50.533]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:51:50.533]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:50.533]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [14:51:50.533]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [14:51:50.533]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:51:50.533]                 ...) 
  [14:51:50.533]             {
  [14:51:50.533]                 if (substitute) 
  [14:51:50.533]                   expr <- substitute(expr)
  [14:51:50.533]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [14:51:50.533]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:50.533]                   globals = globals, persistent = persistent, 
  [14:51:50.533]                   workers = workers, user = user, revtunnel = revtunnel, 
  [14:51:50.533]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [14:51:50.533]                   label = label, ...)
  [14:51:50.533]                 if (!future$lazy) 
  [14:51:50.533]                   future <- run(future)
  [14:51:50.533]                 invisible(future)
  [14:51:50.533]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:50.533]         }
  [14:51:50.533]     }
  [14:51:50.533]     if (base::is.na(TRUE)) {
  [14:51:50.533]     }
  [14:51:50.533]     else {
  [14:51:50.533]         if (TRUE) {
  [14:51:50.533]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:51:50.533]                 open = "w")
  [14:51:50.533]         }
  [14:51:50.533]         else {
  [14:51:50.533]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:51:50.533]                 windows = "NUL", "/dev/null"), open = "w")
  [14:51:50.533]         }
  [14:51:50.533]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:51:50.533]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:51:50.533]             base::sink(type = "output", split = FALSE)
  [14:51:50.533]             base::close(...future.stdout)
  [14:51:50.533]         }, add = TRUE)
  [14:51:50.533]     }
  [14:51:50.533]     ...future.frame <- base::sys.nframe()
  [14:51:50.533]     ...future.conditions <- base::list()
  [14:51:50.533]     ...future.rng <- base::globalenv()$.Random.seed
  [14:51:50.533]     ...future.result <- base::tryCatch({
  [14:51:50.533]         base::withCallingHandlers({
  [14:51:50.533]             ...future.value <- base::withVisible(base::local({
  [14:51:50.533]                 doFuture::registerDoFuture()
  [14:51:50.533]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:50.533]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:50.533]                   {
  [14:51:50.533]                     a <- NULL
  [14:51:50.533]                     b <- NULL
  [14:51:50.533]                   }
  [14:51:50.533]                   ...future.env <- environment()
  [14:51:50.533]                   local({
  [14:51:50.533]                     for (name in names(...future.x_jj)) {
  [14:51:50.533]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:50.533]                         inherits = FALSE)
  [14:51:50.533]                     }
  [14:51:50.533]                   })
  [14:51:50.533]                   tryCatch({
  [14:51:50.533]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:50.533]                       plan = future::plan("next"))
  [14:51:50.533]                   }, error = identity)
  [14:51:50.533]                 })
  [14:51:50.533]             }))
  [14:51:50.533]             future::FutureResult(value = ...future.value$value, 
  [14:51:50.533]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:50.533]                   ...future.rng), started = ...future.startTime, 
  [14:51:50.533]                 version = "1.8")
  [14:51:50.533]         }, condition = base::local({
  [14:51:50.533]             c <- base::c
  [14:51:50.533]             inherits <- base::inherits
  [14:51:50.533]             invokeRestart <- base::invokeRestart
  [14:51:50.533]             length <- base::length
  [14:51:50.533]             list <- base::list
  [14:51:50.533]             seq.int <- base::seq.int
  [14:51:50.533]             signalCondition <- base::signalCondition
  [14:51:50.533]             sys.calls <- base::sys.calls
  [14:51:50.533]             Sys.time <- base::Sys.time
  [14:51:50.533]             `[[` <- base::`[[`
  [14:51:50.533]             `+` <- base::`+`
  [14:51:50.533]             `<<-` <- base::`<<-`
  [14:51:50.533]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:51:50.533]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:51:50.533]                   3L)]
  [14:51:50.533]             }
  [14:51:50.533]             function(cond) {
  [14:51:50.533]                 if (inherits(cond, "error")) {
  [14:51:50.533]                   sessionInformation <- function() {
  [14:51:50.533]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:51:50.533]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:51:50.533]                       search = base::search(), system = base::Sys.info())
  [14:51:50.533]                   }
  [14:51:50.533]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:50.533]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:51:50.533]                     cond$call), session = sessionInformation(), 
  [14:51:50.533]                     timestamp = Sys.time(), signaled = 0L)
  [14:51:50.533]                   signalCondition(cond)
  [14:51:50.533]                 }
  [14:51:50.533]                 else if (inherits(cond, "condition")) {
  [14:51:50.533]                   signal <- FALSE && inherits(cond, character(0))
  [14:51:50.533]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:50.533]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:51:50.533]                   if (!signal) {
  [14:51:50.533]                     muffleCondition <- function (cond) 
  [14:51:50.533]                     {
  [14:51:50.533]                       inherits <- base::inherits
  [14:51:50.533]                       invokeRestart <- base::invokeRestart
  [14:51:50.533]                       muffled <- FALSE
  [14:51:50.533]                       if (inherits(cond, "message")) {
  [14:51:50.533]                         invokeRestart("muffleMessage")
  [14:51:50.533]                         muffled <- TRUE
  [14:51:50.533]                       }
  [14:51:50.533]                       else if (inherits(cond, "warning")) {
  [14:51:50.533]                         invokeRestart("muffleWarning")
  [14:51:50.533]                         muffled <- TRUE
  [14:51:50.533]                       }
  [14:51:50.533]                       else if (inherits(cond, "condition")) {
  [14:51:50.533]                         computeRestarts <- base::computeRestarts
  [14:51:50.533]                         grepl <- base::grepl
  [14:51:50.533]                         is.null <- base::is.null
  [14:51:50.533]                         restarts <- computeRestarts(cond)
  [14:51:50.533]                         for (restart in restarts) {
  [14:51:50.533]                           name <- restart$name
  [14:51:50.533]                           if (is.null(name)) 
  [14:51:50.533]                             next
  [14:51:50.533]                           if (!grepl("^muffle", name)) 
  [14:51:50.533]                             next
  [14:51:50.533]                           invokeRestart(restart)
  [14:51:50.533]                           muffled <- TRUE
  [14:51:50.533]                           break
  [14:51:50.533]                         }
  [14:51:50.533]                       }
  [14:51:50.533]                       invisible(muffled)
  [14:51:50.533]                     }
  [14:51:50.533]                     muffleCondition(cond)
  [14:51:50.533]                   }
  [14:51:50.533]                 }
  [14:51:50.533]             }
  [14:51:50.533]         }))
  [14:51:50.533]     }, error = function(ex) {
  [14:51:50.533]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:51:50.533]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:50.533]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:51:50.533]     }, finally = {
  [14:51:50.533]         {
  [14:51:50.533]             {
  [14:51:50.533]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:51:50.533]             }
  [14:51:50.533]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:51:50.533]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:50.533]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:51:50.533]                 earlySignal = FALSE, label = NULL, ...) 
  [14:51:50.533]             {
  [14:51:50.533]                 if (substitute) 
  [14:51:50.533]                   expr <- substitute(expr)
  [14:51:50.533]                 if (is.function(workers)) 
  [14:51:50.533]                   workers <- workers()
  [14:51:50.533]                 workers <- as.integer(workers)
  [14:51:50.533]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:51:50.533]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:51:50.533]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:50.533]                     lazy = lazy, seed = seed, globals = globals, 
  [14:51:50.533]                     local = TRUE, label = label, ...))
  [14:51:50.533]                 }
  [14:51:50.533]                 oopts <- options(mc.cores = workers)
  [14:51:50.533]                 on.exit(options(oopts))
  [14:51:50.533]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:51:50.533]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:50.533]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:51:50.533]                   label = label, ...)
  [14:51:50.533]                 if (!future$lazy) 
  [14:51:50.533]                   future <- run(future)
  [14:51:50.533]                 invisible(future)
  [14:51:50.533]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:51:50.533]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [14:51:50.533]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [14:51:50.533]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [14:51:50.533]                 label = NULL, ...) 
  [14:51:50.533]             {
  [14:51:50.533]                 if (substitute) 
  [14:51:50.533]                   expr <- substitute(expr)
  [14:51:50.533]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [14:51:50.533]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:50.533]                   globals = globals, persistent = persistent, 
  [14:51:50.533]                   workers = workers, user = user, revtunnel = revtunnel, 
  [14:51:50.533]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [14:51:50.533]                   label = label, ...)
  [14:51:50.533]                 if (!future$lazy) 
  [14:51:50.533]                   future <- run(future)
  [14:51:50.533]                 invisible(future)
  [14:51:50.533]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:50.533]         }
  [14:51:50.533]         base::options(...future.oldOptions)
  [14:51:50.533]     })
  [14:51:50.533]     Sys.time
  [14:51:50.533]     if (base::is.na(TRUE)) {
  [14:51:50.533]     }
  [14:51:50.533]     else {
  [14:51:50.533]         base::sink(type = "output", split = FALSE)
  [14:51:50.533]         if (TRUE) {
  [14:51:50.533]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:51:50.533]         }
  [14:51:50.533]         else {
  [14:51:50.533]             ...future.result["stdout"] <- base::list(NULL)
  [14:51:50.533]         }
  [14:51:50.533]         base::close(...future.stdout)
  [14:51:50.533]         ...future.stdout <- NULL
  [14:51:50.533]     }
  [14:51:50.533]     ...future.result$conditions <- ...future.conditions
  [14:51:50.533]     ...future.result
  [14:51:50.533] }
  [14:51:50.538] requestCore(): workers = 2
  [14:51:50.541] MulticoreFuture started
  [14:51:50.543] Chunk #1 of 2 ... DONE
  [14:51:50.543] Chunk #2 of 2 ...
  [14:51:50.543]  - Finding globals in 'args_list' chunk #2 ...
  [14:51:50.544] getGlobalsAndPackages() ...
  [14:51:50.544] Searching for globals...
  [14:51:50.546] 
  [14:51:50.547] Searching for globals ... DONE
  [14:51:50.547] - globals: [0] <none>
  [14:51:50.548] getGlobalsAndPackages() ... DONE
  [14:51:50.548] 
  [14:51:50.548] 
  [14:51:50.549]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:51:50.551] getGlobalsAndPackages() ...
  [14:51:50.551] - globals passed as-is: [1] '...future.x_ii'
  [14:51:50.552] Resolving globals: FALSE
  [14:51:50.553] The total size of the 1 globals is 336 bytes (336 bytes)
  [14:51:50.554] - globals: [1] '...future.x_ii'
  [14:51:50.556] 
  [14:51:50.557] getGlobalsAndPackages() ... DONE
  [14:51:50.560] plan(): Setting new future strategy stack:
  [14:51:50.561] Packages needed by the future expression (n = 1): 'doFuture'
  [14:51:50.561] Packages needed by future strategies (n = 1): 'future'
  [14:51:50.560] List of future strategies:
  [14:51:50.560] 1. cluster:
  [14:51:50.560]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:51:50.560]    - tweaked: FALSE
  [14:51:50.560]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:50.564] plan(): nbrOfWorkers() = 1
  [14:51:50.583] plan(): Setting new future strategy stack:
  [14:51:50.584] List of future strategies:
  [14:51:50.584] 1. multicore:
  [14:51:50.584]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:51:50.584]    - tweaked: FALSE
  [14:51:50.584]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:50.584] 2. cluster:
  [14:51:50.584]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:51:50.584]    - tweaked: FALSE
  [14:51:50.584]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:50.587] plan(): nbrOfWorkers() = 2
  [14:51:50.592] {
  [14:51:50.592]     {
  [14:51:50.592]         ...future.startTime <- base::Sys.time()
  [14:51:50.592]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:51:50.592]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:51:50.592]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:51:50.592]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:51:50.592]             future.resolve.recursive = NULL, width = 80L)
  [14:51:50.592]         {
  [14:51:50.592]             {
  [14:51:50.592]                 {
  [14:51:50.592]                   {
  [14:51:50.592]                     base::local({
  [14:51:50.592]                       has_future <- base::requireNamespace("future", 
  [14:51:50.592]                         quietly = TRUE)
  [14:51:50.592]                       version <- if (has_future) 
  [14:51:50.592]                         utils::packageVersion("future")
  [14:51:50.592]                       else NULL
  [14:51:50.592]                       if (!has_future || version < "1.8.0") {
  [14:51:50.592]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:51:50.592]                           "", base::R.version$version.string), 
  [14:51:50.592]                           platform = base::sprintf("%s (%s-bit)", 
  [14:51:50.592]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:51:50.592]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:51:50.592]                             "release", "version")], collapse = " "), 
  [14:51:50.592]                           hostname = base::Sys.info()[["nodename"]])
  [14:51:50.592]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:51:50.592]                           info)
  [14:51:50.592]                         info <- base::paste(info, collapse = "; ")
  [14:51:50.592]                         if (!has_future) {
  [14:51:50.592]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:51:50.592]                             info)
  [14:51:50.592]                         }
  [14:51:50.592]                         else {
  [14:51:50.592]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:51:50.592]                             info, version)
  [14:51:50.592]                         }
  [14:51:50.592]                         base::stop(msg)
  [14:51:50.592]                       }
  [14:51:50.592]                     })
  [14:51:50.592]                   }
  [14:51:50.592]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:51:50.592]                   base::options(mc.cores = 1L)
  [14:51:50.592]                 }
  [14:51:50.592]                 base::local({
  [14:51:50.592]                   for (pkg in c("doFuture", "future")) {
  [14:51:50.592]                     base::loadNamespace(pkg)
  [14:51:50.592]                     base::library(pkg, character.only = TRUE)
  [14:51:50.592]                   }
  [14:51:50.592]                 })
  [14:51:50.592]             }
  [14:51:50.592]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:51:50.592]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:50.592]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [14:51:50.592]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [14:51:50.592]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:51:50.592]                 ...) 
  [14:51:50.592]             {
  [14:51:50.592]                 if (substitute) 
  [14:51:50.592]                   expr <- substitute(expr)
  [14:51:50.592]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [14:51:50.592]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:50.592]                   globals = globals, persistent = persistent, 
  [14:51:50.592]                   workers = workers, user = user, revtunnel = revtunnel, 
  [14:51:50.592]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [14:51:50.592]                   label = label, ...)
  [14:51:50.592]                 if (!future$lazy) 
  [14:51:50.592]                   future <- run(future)
  [14:51:50.592]                 invisible(future)
  [14:51:50.592]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:50.592]         }
  [14:51:50.592]     }
  [14:51:50.592]     if (base::is.na(TRUE)) {
  [14:51:50.592]     }
  [14:51:50.592]     else {
  [14:51:50.592]         if (TRUE) {
  [14:51:50.592]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:51:50.592]                 open = "w")
  [14:51:50.592]         }
  [14:51:50.592]         else {
  [14:51:50.592]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:51:50.592]                 windows = "NUL", "/dev/null"), open = "w")
  [14:51:50.592]         }
  [14:51:50.592]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:51:50.592]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:51:50.592]             base::sink(type = "output", split = FALSE)
  [14:51:50.592]             base::close(...future.stdout)
  [14:51:50.592]         }, add = TRUE)
  [14:51:50.592]     }
  [14:51:50.592]     ...future.frame <- base::sys.nframe()
  [14:51:50.592]     ...future.conditions <- base::list()
  [14:51:50.592]     ...future.rng <- base::globalenv()$.Random.seed
  [14:51:50.592]     ...future.result <- base::tryCatch({
  [14:51:50.592]         base::withCallingHandlers({
  [14:51:50.592]             ...future.value <- base::withVisible(base::local({
  [14:51:50.592]                 doFuture::registerDoFuture()
  [14:51:50.592]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:50.592]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:50.592]                   {
  [14:51:50.592]                     a <- NULL
  [14:51:50.592]                     b <- NULL
  [14:51:50.592]                   }
  [14:51:50.592]                   ...future.env <- environment()
  [14:51:50.592]                   local({
  [14:51:50.592]                     for (name in names(...future.x_jj)) {
  [14:51:50.592]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:50.592]                         inherits = FALSE)
  [14:51:50.592]                     }
  [14:51:50.592]                   })
  [14:51:50.592]                   tryCatch({
  [14:51:50.592]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:50.592]                       plan = future::plan("next"))
  [14:51:50.592]                   }, error = identity)
  [14:51:50.592]                 })
  [14:51:50.592]             }))
  [14:51:50.592]             future::FutureResult(value = ...future.value$value, 
  [14:51:50.592]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:50.592]                   ...future.rng), started = ...future.startTime, 
  [14:51:50.592]                 version = "1.8")
  [14:51:50.592]         }, condition = base::local({
  [14:51:50.592]             c <- base::c
  [14:51:50.592]             inherits <- base::inherits
  [14:51:50.592]             invokeRestart <- base::invokeRestart
  [14:51:50.592]             length <- base::length
  [14:51:50.592]             list <- base::list
  [14:51:50.592]             seq.int <- base::seq.int
  [14:51:50.592]             signalCondition <- base::signalCondition
  [14:51:50.592]             sys.calls <- base::sys.calls
  [14:51:50.592]             Sys.time <- base::Sys.time
  [14:51:50.592]             `[[` <- base::`[[`
  [14:51:50.592]             `+` <- base::`+`
  [14:51:50.592]             `<<-` <- base::`<<-`
  [14:51:50.592]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:51:50.592]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:51:50.592]                   3L)]
  [14:51:50.592]             }
  [14:51:50.592]             function(cond) {
  [14:51:50.592]                 if (inherits(cond, "error")) {
  [14:51:50.592]                   sessionInformation <- function() {
  [14:51:50.592]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:51:50.592]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:51:50.592]                       search = base::search(), system = base::Sys.info())
  [14:51:50.592]                   }
  [14:51:50.592]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:50.592]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:51:50.592]                     cond$call), session = sessionInformation(), 
  [14:51:50.592]                     timestamp = Sys.time(), signaled = 0L)
  [14:51:50.592]                   signalCondition(cond)
  [14:51:50.592]                 }
  [14:51:50.592]                 else if (inherits(cond, "condition")) {
  [14:51:50.592]                   signal <- FALSE && inherits(cond, character(0))
  [14:51:50.592]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:50.592]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:51:50.592]                   if (!signal) {
  [14:51:50.592]                     muffleCondition <- function (cond) 
  [14:51:50.592]                     {
  [14:51:50.592]                       inherits <- base::inherits
  [14:51:50.592]                       invokeRestart <- base::invokeRestart
  [14:51:50.592]                       muffled <- FALSE
  [14:51:50.592]                       if (inherits(cond, "message")) {
  [14:51:50.592]                         invokeRestart("muffleMessage")
  [14:51:50.592]                         muffled <- TRUE
  [14:51:50.592]                       }
  [14:51:50.592]                       else if (inherits(cond, "warning")) {
  [14:51:50.592]                         invokeRestart("muffleWarning")
  [14:51:50.592]                         muffled <- TRUE
  [14:51:50.592]                       }
  [14:51:50.592]                       else if (inherits(cond, "condition")) {
  [14:51:50.592]                         computeRestarts <- base::computeRestarts
  [14:51:50.592]                         grepl <- base::grepl
  [14:51:50.592]                         is.null <- base::is.null
  [14:51:50.592]                         restarts <- computeRestarts(cond)
  [14:51:50.592]                         for (restart in restarts) {
  [14:51:50.592]                           name <- restart$name
  [14:51:50.592]                           if (is.null(name)) 
  [14:51:50.592]                             next
  [14:51:50.592]                           if (!grepl("^muffle", name)) 
  [14:51:50.592]                             next
  [14:51:50.592]                           invokeRestart(restart)
  [14:51:50.592]                           muffled <- TRUE
  [14:51:50.592]                           break
  [14:51:50.592]                         }
  [14:51:50.592]                       }
  [14:51:50.592]                       invisible(muffled)
  [14:51:50.592]                     }
  [14:51:50.592]                     muffleCondition(cond)
  [14:51:50.592]                   }
  [14:51:50.592]                 }
  [14:51:50.592]             }
  [14:51:50.592]         }))
  [14:51:50.592]     }, error = function(ex) {
  [14:51:50.592]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:51:50.592]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:50.592]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:51:50.592]     }, finally = {
  [14:51:50.592]         {
  [14:51:50.592]             {
  [14:51:50.592]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:51:50.592]             }
  [14:51:50.592]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:51:50.592]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:50.592]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:51:50.592]                 earlySignal = FALSE, label = NULL, ...) 
  [14:51:50.592]             {
  [14:51:50.592]                 if (substitute) 
  [14:51:50.592]                   expr <- substitute(expr)
  [14:51:50.592]                 if (is.function(workers)) 
  [14:51:50.592]                   workers <- workers()
  [14:51:50.592]                 workers <- as.integer(workers)
  [14:51:50.592]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:51:50.592]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:51:50.592]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:50.592]                     lazy = lazy, seed = seed, globals = globals, 
  [14:51:50.592]                     local = TRUE, label = label, ...))
  [14:51:50.592]                 }
  [14:51:50.592]                 oopts <- options(mc.cores = workers)
  [14:51:50.592]                 on.exit(options(oopts))
  [14:51:50.592]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:51:50.592]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:50.592]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:51:50.592]                   label = label, ...)
  [14:51:50.592]                 if (!future$lazy) 
  [14:51:50.592]                   future <- run(future)
  [14:51:50.592]                 invisible(future)
  [14:51:50.592]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:51:50.592]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [14:51:50.592]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [14:51:50.592]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [14:51:50.592]                 label = NULL, ...) 
  [14:51:50.592]             {
  [14:51:50.592]                 if (substitute) 
  [14:51:50.592]                   expr <- substitute(expr)
  [14:51:50.592]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [14:51:50.592]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:50.592]                   globals = globals, persistent = persistent, 
  [14:51:50.592]                   workers = workers, user = user, revtunnel = revtunnel, 
  [14:51:50.592]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [14:51:50.592]                   label = label, ...)
  [14:51:50.592]                 if (!future$lazy) 
  [14:51:50.592]                   future <- run(future)
  [14:51:50.592]                 invisible(future)
  [14:51:50.592]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:50.592]         }
  [14:51:50.592]         base::options(...future.oldOptions)
  [14:51:50.592]     })
  [14:51:50.592]     Sys.time
  [14:51:50.592]     if (base::is.na(TRUE)) {
  [14:51:50.592]     }
  [14:51:50.592]     else {
  [14:51:50.592]         base::sink(type = "output", split = FALSE)
  [14:51:50.592]         if (TRUE) {
  [14:51:50.592]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:51:50.592]         }
  [14:51:50.592]         else {
  [14:51:50.592]             ...future.result["stdout"] <- base::list(NULL)
  [14:51:50.592]         }
  [14:51:50.592]         base::close(...future.stdout)
  [14:51:50.592]         ...future.stdout <- NULL
  [14:51:50.592]     }
  [14:51:50.592]     ...future.result$conditions <- ...future.conditions
  [14:51:50.592]     ...future.result
  [14:51:50.592] }
  [14:51:50.599] requestCore(): workers = 2
  [14:51:50.603] MulticoreFuture started
  [14:51:50.604] Chunk #2 of 2 ... DONE
  [14:51:50.605] Launching 2 futures (chunks) ... DONE
  [14:51:50.605] - resolving futures
  [14:51:50.606]   - gathering results & relaying conditions (except errors)
  [14:51:50.606] resolve() on list ...
  [14:51:50.608]  recursive: 0
  [14:51:50.608]  length: 2
  [14:51:50.609] 
  [14:51:50.610] Future #1
  [14:51:50.614] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [14:51:50.615] - nx: 2
  [14:51:50.615] - relay: TRUE
  [14:51:50.616] - stdout: TRUE
  [14:51:50.616] - signal: TRUE
  [14:51:50.616] - resignal: FALSE
  [14:51:50.617] - force: FALSE
  [14:51:50.617] - relayed: [n=2] FALSE, FALSE
  [14:51:50.618] - queued futures: [n=2] FALSE, FALSE
  [14:51:50.618]  - until=1
  [14:51:50.619]  - relaying element #1
  [14:51:50.619] - relayed: [n=2] TRUE, FALSE
  [14:51:50.620] plan(): Setting new future strategy stack:
  [14:51:50.620] - queued futures: [n=2] TRUE, FALSE
  [14:51:50.621] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [14:51:50.621]  length: 1 (resolved future 1)
  [14:51:50.621] List of future strategies:
  [14:51:50.621] 1. cluster:
  [14:51:50.621]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:51:50.621]    - tweaked: FALSE
  [14:51:50.621]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:50.624] plan(): nbrOfWorkers() = 1
  [14:51:50.628] plan(): Setting new future strategy stack:
  [14:51:50.628] List of future strategies:
  [14:51:50.628] 1. multicore:
  [14:51:50.628]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:51:50.628]    - tweaked: FALSE
  [14:51:50.628]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:50.628] 2. cluster:
  [14:51:50.628]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:51:50.628]    - tweaked: FALSE
  [14:51:50.628]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:50.632] plan(): nbrOfWorkers() = 2
  [14:51:50.638] Future #2
  [14:51:50.642] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [14:51:50.642] - nx: 2
  [14:51:50.643] - relay: TRUE
  [14:51:50.643] - stdout: TRUE
  [14:51:50.643] - signal: TRUE
  [14:51:50.644] - resignal: FALSE
  [14:51:50.644] - force: FALSE
  [14:51:50.645] - relayed: [n=2] TRUE, FALSE
  [14:51:50.645] - queued futures: [n=2] TRUE, FALSE
  [14:51:50.646]  - until=2
  [14:51:50.646]  - relaying element #2
  [14:51:50.647] - relayed: [n=2] TRUE, TRUE
  [14:51:50.647] - queued futures: [n=2] TRUE, TRUE
  [14:51:50.648] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [14:51:50.649]  length: 0 (resolved future 2)
  [14:51:50.649] Relaying remaining futures
  [14:51:50.649] signalConditionsASAP(NULL, pos=0) ...
  [14:51:50.650] - nx: 2
  [14:51:50.650] - relay: TRUE
  [14:51:50.651] - stdout: TRUE
  [14:51:50.651] - signal: TRUE
  [14:51:50.651] - resignal: FALSE
  [14:51:50.652] - force: FALSE
  [14:51:50.652] - relayed: [n=2] TRUE, TRUE
  [14:51:50.653] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [14:51:50.653] - relayed: [n=2] TRUE, TRUE
  [14:51:50.654] - queued futures: [n=2] TRUE, TRUE
  [14:51:50.658] signalConditionsASAP(NULL, pos=0) ... done
  [14:51:50.659] resolve() on list ... DONE
  [14:51:50.659] - collecting values of futures
  [14:51:50.660] - accumulating results
  [14:51:50.663] - processing errors (handler = 'stop')
  [14:51:50.664] - extracting results
  [14:51:50.664] doFuture() ... DONE
  - plan(list('multicore', 'cluster')) ... DONE
  - plan(list('multisession', 'sequential')) ...
  [14:51:50.665] plan(): Setting new future strategy stack:
  [14:51:50.666] List of future strategies:
  [14:51:50.666] 1. multisession:
  [14:51:50.666]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:51:50.666]    - tweaked: FALSE
  [14:51:50.666]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:50.666] 2. sequential:
  [14:51:50.666]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:51:50.666]    - tweaked: FALSE
  [14:51:50.666]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:50.667] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
  [14:51:50.668] multisession:
  [14:51:50.668] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:51:50.668] - tweaked: FALSE
  [14:51:50.668] - call: plan(list(a = strategy1, b = strategy2))
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 38699
  [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/Rtmp731ey4/future.parent=32359.7e67407f17a9.pid")), silent = TRUE)' -e "file.exists('/tmp/Rtmp731ey4/future.parent=32359.7e67407f17a9.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:32359:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp731ey4/future.parent=32359.7e67407f17a9.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=38699 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/Rtmp731ey4/future.parent=32359.7e674f227ebe.pid")), silent = TRUE)' -e "file.exists('/tmp/Rtmp731ey4/future.parent=32359.7e674f227ebe.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:32359:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp731ey4/future.parent=32359.7e674f227ebe.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=38699 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
  [14:51:53.726] getGlobalsAndPackages() ...
  [14:51:53.726] Not searching for globals
  [14:51:53.727] - globals: [0] <none>
  [14:51:53.727] getGlobalsAndPackages() ... DONE
  [14:51:53.733] Packages needed by the future expression (n = 0): <none>
  [14:51:53.733] Packages needed by future strategies (n = 1): 'future'
  [14:51:53.757] {
  [14:51:53.757]     {
  [14:51:53.757]         ...future.startTime <- base::Sys.time()
  [14:51:53.757]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:51:53.757]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:51:53.757]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:51:53.757]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:51:53.757]             future.resolve.recursive = NULL, width = 80L)
  [14:51:53.757]         {
  [14:51:53.757]             {
  [14:51:53.757]                 {
  [14:51:53.757]                   {
  [14:51:53.757]                     base::local({
  [14:51:53.757]                       has_future <- base::requireNamespace("future", 
  [14:51:53.757]                         quietly = TRUE)
  [14:51:53.757]                       version <- if (has_future) 
  [14:51:53.757]                         utils::packageVersion("future")
  [14:51:53.757]                       else NULL
  [14:51:53.757]                       if (!has_future || version < "1.8.0") {
  [14:51:53.757]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:51:53.757]                           "", base::R.version$version.string), 
  [14:51:53.757]                           platform = base::sprintf("%s (%s-bit)", 
  [14:51:53.757]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:51:53.757]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:51:53.757]                             "release", "version")], collapse = " "), 
  [14:51:53.757]                           hostname = base::Sys.info()[["nodename"]])
  [14:51:53.757]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:51:53.757]                           info)
  [14:51:53.757]                         info <- base::paste(info, collapse = "; ")
  [14:51:53.757]                         if (!has_future) {
  [14:51:53.757]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:51:53.757]                             info)
  [14:51:53.757]                         }
  [14:51:53.757]                         else {
  [14:51:53.757]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:51:53.757]                             info, version)
  [14:51:53.757]                         }
  [14:51:53.757]                         base::stop(msg)
  [14:51:53.757]                       }
  [14:51:53.757]                     })
  [14:51:53.757]                   }
  [14:51:53.757]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:51:53.757]                   base::options(mc.cores = 1L)
  [14:51:53.757]                 }
  [14:51:53.757]                 base::local({
  [14:51:53.757]                   for (pkg in "future") {
  [14:51:53.757]                     base::loadNamespace(pkg)
  [14:51:53.757]                     base::library(pkg, character.only = TRUE)
  [14:51:53.757]                   }
  [14:51:53.757]                 })
  [14:51:53.757]             }
  [14:51:53.757]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:51:53.757]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:53.757]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:51:53.757]                 label = NULL, ...) 
  [14:51:53.757]             {
  [14:51:53.757]                 if (substitute) 
  [14:51:53.757]                   expr <- substitute(expr)
  [14:51:53.757]                 local <- as.logical(local)
  [14:51:53.757]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:51:53.757]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:53.757]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:51:53.757]                   label = label, ...)
  [14:51:53.757]                 if (!future$lazy) 
  [14:51:53.757]                   future <- run(future)
  [14:51:53.757]                 invisible(future)
  [14:51:53.757]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:53.757]         }
  [14:51:53.757]     }
  [14:51:53.757]     if (base::is.na(TRUE)) {
  [14:51:53.757]     }
  [14:51:53.757]     else {
  [14:51:53.757]         if (TRUE) {
  [14:51:53.757]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:51:53.757]                 open = "w")
  [14:51:53.757]         }
  [14:51:53.757]         else {
  [14:51:53.757]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:51:53.757]                 windows = "NUL", "/dev/null"), open = "w")
  [14:51:53.757]         }
  [14:51:53.757]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:51:53.757]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:51:53.757]             base::sink(type = "output", split = FALSE)
  [14:51:53.757]             base::close(...future.stdout)
  [14:51:53.757]         }, add = TRUE)
  [14:51:53.757]     }
  [14:51:53.757]     ...future.frame <- base::sys.nframe()
  [14:51:53.757]     ...future.conditions <- base::list()
  [14:51:53.757]     ...future.rng <- base::globalenv()$.Random.seed
  [14:51:53.757]     ...future.result <- base::tryCatch({
  [14:51:53.757]         base::withCallingHandlers({
  [14:51:53.757]             ...future.value <- base::withVisible(base::local({
  [14:51:53.757]                 ...future.sendCondition <- local({
  [14:51:53.757]                   sendCondition <- NULL
  [14:51:53.757]                   function(frame = 1L) {
  [14:51:53.757]                     if (is.function(sendCondition)) 
  [14:51:53.757]                       return(sendCondition)
  [14:51:53.757]                     ns <- getNamespace("parallel")
  [14:51:53.757]                     if (exists("sendData", mode = "function", 
  [14:51:53.757]                       envir = ns)) {
  [14:51:53.757]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:51:53.757]                         envir = ns)
  [14:51:53.757]                       envir <- sys.frame(frame)
  [14:51:53.757]                       master <- NULL
  [14:51:53.757]                       while (!identical(envir, .GlobalEnv) && 
  [14:51:53.757]                         !identical(envir, emptyenv())) {
  [14:51:53.757]                         if (exists("master", mode = "list", envir = envir, 
  [14:51:53.757]                           inherits = FALSE)) {
  [14:51:53.757]                           master <- get("master", mode = "list", 
  [14:51:53.757]                             envir = envir, inherits = FALSE)
  [14:51:53.757]                           if (inherits(master, "SOCKnode")) {
  [14:51:53.757]                             sendCondition <<- function(cond) {
  [14:51:53.757]                               data <- list(type = "VALUE", value = cond, 
  [14:51:53.757]                                 success = TRUE)
  [14:51:53.757]                               parallel_sendData(master, data)
  [14:51:53.757]                             }
  [14:51:53.757]                             return(sendCondition)
  [14:51:53.757]                           }
  [14:51:53.757]                         }
  [14:51:53.757]                         frame <- frame + 1L
  [14:51:53.757]                         envir <- sys.frame(frame)
  [14:51:53.757]                       }
  [14:51:53.757]                     }
  [14:51:53.757]                     sendCondition <<- function(cond) NULL
  [14:51:53.757]                   }
  [14:51:53.757]                 })
  [14:51:53.757]                 withCallingHandlers({
  [14:51:53.757]                   NA
  [14:51:53.757]                 }, immediateCondition = function(cond) {
  [14:51:53.757]                   sendCondition <- ...future.sendCondition()
  [14:51:53.757]                   sendCondition(cond)
  [14:51:53.757]                   muffleCondition <- function (cond) 
  [14:51:53.757]                   {
  [14:51:53.757]                     inherits <- base::inherits
  [14:51:53.757]                     invokeRestart <- base::invokeRestart
  [14:51:53.757]                     muffled <- FALSE
  [14:51:53.757]                     if (inherits(cond, "message")) {
  [14:51:53.757]                       invokeRestart("muffleMessage")
  [14:51:53.757]                       muffled <- TRUE
  [14:51:53.757]                     }
  [14:51:53.757]                     else if (inherits(cond, "warning")) {
  [14:51:53.757]                       invokeRestart("muffleWarning")
  [14:51:53.757]                       muffled <- TRUE
  [14:51:53.757]                     }
  [14:51:53.757]                     else if (inherits(cond, "condition")) {
  [14:51:53.757]                       computeRestarts <- base::computeRestarts
  [14:51:53.757]                       grepl <- base::grepl
  [14:51:53.757]                       is.null <- base::is.null
  [14:51:53.757]                       restarts <- computeRestarts(cond)
  [14:51:53.757]                       for (restart in restarts) {
  [14:51:53.757]                         name <- restart$name
  [14:51:53.757]                         if (is.null(name)) 
  [14:51:53.757]                           next
  [14:51:53.757]                         if (!grepl("^muffle", name)) 
  [14:51:53.757]                           next
  [14:51:53.757]                         invokeRestart(restart)
  [14:51:53.757]                         muffled <- TRUE
  [14:51:53.757]                         break
  [14:51:53.757]                       }
  [14:51:53.757]                     }
  [14:51:53.757]                     invisible(muffled)
  [14:51:53.757]                   }
  [14:51:53.757]                   muffleCondition(cond)
  [14:51:53.757]                 })
  [14:51:53.757]             }))
  [14:51:53.757]             future::FutureResult(value = ...future.value$value, 
  [14:51:53.757]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:53.757]                   ...future.rng), started = ...future.startTime, 
  [14:51:53.757]                 version = "1.8")
  [14:51:53.757]         }, condition = base::local({
  [14:51:53.757]             c <- base::c
  [14:51:53.757]             inherits <- base::inherits
  [14:51:53.757]             invokeRestart <- base::invokeRestart
  [14:51:53.757]             length <- base::length
  [14:51:53.757]             list <- base::list
  [14:51:53.757]             seq.int <- base::seq.int
  [14:51:53.757]             signalCondition <- base::signalCondition
  [14:51:53.757]             sys.calls <- base::sys.calls
  [14:51:53.757]             Sys.time <- base::Sys.time
  [14:51:53.757]             `[[` <- base::`[[`
  [14:51:53.757]             `+` <- base::`+`
  [14:51:53.757]             `<<-` <- base::`<<-`
  [14:51:53.757]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:51:53.757]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:51:53.757]                   3L)]
  [14:51:53.757]             }
  [14:51:53.757]             function(cond) {
  [14:51:53.757]                 if (inherits(cond, "error")) {
  [14:51:53.757]                   sessionInformation <- function() {
  [14:51:53.757]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:51:53.757]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:51:53.757]                       search = base::search(), system = base::Sys.info())
  [14:51:53.757]                   }
  [14:51:53.757]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:53.757]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:51:53.757]                     cond$call), session = sessionInformation(), 
  [14:51:53.757]                     timestamp = Sys.time(), signaled = 0L)
  [14:51:53.757]                   signalCondition(cond)
  [14:51:53.757]                 }
  [14:51:53.757]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:51:53.757]                 ))) {
  [14:51:53.757]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:51:53.757]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:53.757]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:51:53.757]                   if (!signal) {
  [14:51:53.757]                     muffleCondition <- function (cond) 
  [14:51:53.757]                     {
  [14:51:53.757]                       inherits <- base::inherits
  [14:51:53.757]                       invokeRestart <- base::invokeRestart
  [14:51:53.757]                       muffled <- FALSE
  [14:51:53.757]                       if (inherits(cond, "message")) {
  [14:51:53.757]                         invokeRestart("muffleMessage")
  [14:51:53.757]                         muffled <- TRUE
  [14:51:53.757]                       }
  [14:51:53.757]                       else if (inherits(cond, "warning")) {
  [14:51:53.757]                         invokeRestart("muffleWarning")
  [14:51:53.757]                         muffled <- TRUE
  [14:51:53.757]                       }
  [14:51:53.757]                       else if (inherits(cond, "condition")) {
  [14:51:53.757]                         computeRestarts <- base::computeRestarts
  [14:51:53.757]                         grepl <- base::grepl
  [14:51:53.757]                         is.null <- base::is.null
  [14:51:53.757]                         restarts <- computeRestarts(cond)
  [14:51:53.757]                         for (restart in restarts) {
  [14:51:53.757]                           name <- restart$name
  [14:51:53.757]                           if (is.null(name)) 
  [14:51:53.757]                             next
  [14:51:53.757]                           if (!grepl("^muffle", name)) 
  [14:51:53.757]                             next
  [14:51:53.757]                           invokeRestart(restart)
  [14:51:53.757]                           muffled <- TRUE
  [14:51:53.757]                           break
  [14:51:53.757]                         }
  [14:51:53.757]                       }
  [14:51:53.757]                       invisible(muffled)
  [14:51:53.757]                     }
  [14:51:53.757]                     muffleCondition(cond)
  [14:51:53.757]                   }
  [14:51:53.757]                 }
  [14:51:53.757]             }
  [14:51:53.757]         }))
  [14:51:53.757]     }, error = function(ex) {
  [14:51:53.757]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:51:53.757]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:53.757]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:51:53.757]     }, finally = {
  [14:51:53.757]         {
  [14:51:53.757]             {
  [14:51:53.757]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:51:53.757]             }
  [14:51:53.757]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:51:53.757]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:53.757]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:51:53.757]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:51:53.757]                 ...) 
  [14:51:53.757]             {
  [14:51:53.757]                 if (substitute) 
  [14:51:53.757]                   expr <- substitute(expr)
  [14:51:53.757]                 if (is.function(workers)) 
  [14:51:53.757]                   workers <- workers()
  [14:51:53.757]                 workers <- as.integer(workers)
  [14:51:53.757]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:51:53.757]                   workers >= 1)
  [14:51:53.757]                 if (workers == 1L) {
  [14:51:53.757]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:53.757]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:51:53.757]                     local = TRUE, label = label, ...))
  [14:51:53.757]                 }
  [14:51:53.757]                 workers <- ClusterRegistry("start", workers = workers)
  [14:51:53.757]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:51:53.757]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:53.757]                   globals = globals, persistent = persistent, 
  [14:51:53.757]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:51:53.757]                   label = label, ...)
  [14:51:53.757]                 if (!future$lazy) 
  [14:51:53.757]                   future <- run(future)
  [14:51:53.757]                 invisible(future)
  [14:51:53.757]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:51:53.757]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [14:51:53.757]                 earlySignal = FALSE, label = NULL, ...) 
  [14:51:53.757]             {
  [14:51:53.757]                 if (substitute) 
  [14:51:53.757]                   expr <- substitute(expr)
  [14:51:53.757]                 local <- as.logical(local)
  [14:51:53.757]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:51:53.757]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:53.757]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:51:53.757]                   label = label, ...)
  [14:51:53.757]                 if (!future$lazy) 
  [14:51:53.757]                   future <- run(future)
  [14:51:53.757]                 invisible(future)
  [14:51:53.757]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:53.757]         }
  [14:51:53.757]         base::options(...future.oldOptions)
  [14:51:53.757]     })
  [14:51:53.757]     Sys.time
  [14:51:53.757]     if (base::is.na(TRUE)) {
  [14:51:53.757]     }
  [14:51:53.757]     else {
  [14:51:53.757]         base::sink(type = "output", split = FALSE)
  [14:51:53.757]         if (TRUE) {
  [14:51:53.757]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:51:53.757]         }
  [14:51:53.757]         else {
  [14:51:53.757]             ...future.result["stdout"] <- base::list(NULL)
  [14:51:53.757]         }
  [14:51:53.757]         base::close(...future.stdout)
  [14:51:53.757]         ...future.stdout <- NULL
  [14:51:53.757]     }
  [14:51:53.757]     ...future.result$conditions <- ...future.conditions
  [14:51:53.757]     ...future.result
  [14:51:53.757] }
  [14:51:53.776] MultisessionFuture started
  [14:51:53.776] result() for ClusterFuture ...
  [14:51:53.778] receiveMessageFromWorker() for ClusterFuture ...
  [14:51:53.778] - Validating connection of MultisessionFuture
  [14:51:53.987] - received message: FutureResult
  [14:51:53.988] - Received FutureResult
  [14:51:53.988] - Erased future from FutureRegistry
  [14:51:53.988] result() for ClusterFuture ...
  [14:51:53.989] - result already collected: FutureResult
  [14:51:53.989] result() for ClusterFuture ... done
  [14:51:53.990] receiveMessageFromWorker() for ClusterFuture ... done
  [14:51:53.990] result() for ClusterFuture ... done
  [14:51:53.990] result() for ClusterFuture ...
  [14:51:53.991] - result already collected: FutureResult
  [14:51:53.991] result() for ClusterFuture ... done
  [14:51:53.991] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE
  [14:51:53.992] plan(): nbrOfWorkers() = 2
  [14:51:53.993] doFuture() ...
  [14:51:53.998] - dummy globals (as locals): [2] 'a', 'b'
  [14:51:53.999] - R expression:
  [14:51:54.000] {
  [14:51:54.000]     doFuture::registerDoFuture()
  [14:51:54.000]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:54.000]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:54.000]         {
  [14:51:54.000]             a <- NULL
  [14:51:54.000]             b <- NULL
  [14:51:54.000]         }
  [14:51:54.000]         ...future.env <- environment()
  [14:51:54.000]         local({
  [14:51:54.000]             for (name in names(...future.x_jj)) {
  [14:51:54.000]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:54.000]                   inherits = FALSE)
  [14:51:54.000]             }
  [14:51:54.000]         })
  [14:51:54.000]         tryCatch({
  [14:51:54.000]             list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:54.000]                 plan = future::plan("next"))
  [14:51:54.000]         }, error = identity)
  [14:51:54.000]     })
  [14:51:54.000] }
  [14:51:54.001] - identifying globals and packages ...
  [14:51:54.001] getGlobalsAndPackages() ...
  [14:51:54.002] Searching for globals...
  [14:51:54.039] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [14:51:54.040] Searching for globals ... DONE
  [14:51:54.040] Resolving globals: FALSE
  [14:51:54.042] The total size of the 1 globals is 0 bytes (0 bytes)
  [14:51:54.042] - globals: [1] '...future.x_ii'
  [14:51:54.043] 
  [14:51:54.043] getGlobalsAndPackages() ... DONE
  [14:51:54.044] List of 1
  [14:51:54.044]  $ ...future.x_ii: NULL
  [14:51:54.044]  - attr(*, "where")=List of 1
  [14:51:54.044]   ..$ ...future.x_ii:<environment: 0x560012f667a8> 
  [14:51:54.044]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:51:54.044]  - attr(*, "resolved")= logi FALSE
  [14:51:54.044]  - attr(*, "total_size")= num 0
  [14:51:54.052]   - R expression:
  [14:51:54.052] {
  [14:51:54.052]     doFuture::registerDoFuture()
  [14:51:54.052]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:54.052]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:54.052]         {
  [14:51:54.052]             a <- NULL
  [14:51:54.052]             b <- NULL
  [14:51:54.052]         }
  [14:51:54.052]         ...future.env <- environment()
  [14:51:54.052]         local({
  [14:51:54.052]             for (name in names(...future.x_jj)) {
  [14:51:54.052]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:54.052]                   inherits = FALSE)
  [14:51:54.052]             }
  [14:51:54.052]         })
  [14:51:54.052]         tryCatch({
  [14:51:54.052]             list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:54.052]                 plan = future::plan("next"))
  [14:51:54.052]         }, error = identity)
  [14:51:54.052]     })
  [14:51:54.052] }
  [14:51:54.053]   - globals: [1] '...future.x_ii'
  [14:51:54.053] List of 1
  [14:51:54.053]  $ ...future.x_ii: NULL
  [14:51:54.053]  - attr(*, "where")=List of 1
  [14:51:54.053]   ..$ ...future.x_ii:<environment: 0x560012f667a8> 
  [14:51:54.053]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:51:54.053]  - attr(*, "resolved")= logi FALSE
  [14:51:54.053]  - attr(*, "total_size")= num 0
  [14:51:54.080]   - packages: [1] 'doFuture'
  [14:51:54.081] - identifying globals and packages ... DONE
  [14:51:54.082] Number of chunks: 2
  [14:51:54.083] Number of futures (= number of chunks): 2
  [14:51:54.083] Launching 2 futures (chunks) ...
  [14:51:54.084] Chunk #1 of 2 ...
  [14:51:54.084]  - Finding globals in 'args_list' chunk #1 ...
  [14:51:54.084] getGlobalsAndPackages() ...
  [14:51:54.085] Searching for globals...
  [14:51:54.086] 
  [14:51:54.086] Searching for globals ... DONE
  [14:51:54.086] - globals: [0] <none>
  [14:51:54.087] getGlobalsAndPackages() ... DONE
  [14:51:54.087] 
  [14:51:54.087] 
  [14:51:54.088]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:51:54.089] getGlobalsAndPackages() ...
  [14:51:54.089] - globals passed as-is: [1] '...future.x_ii'
  [14:51:54.090] Resolving globals: FALSE
  [14:51:54.091] The total size of the 1 globals is 336 bytes (336 bytes)
  [14:51:54.091] - globals: [1] '...future.x_ii'
  [14:51:54.092] 
  [14:51:54.092] getGlobalsAndPackages() ... DONE
  [14:51:54.096] Packages needed by the future expression (n = 1): 'doFuture'
  [14:51:54.097] Packages needed by future strategies (n = 1): 'future'
  [14:51:54.103] {
  [14:51:54.103]     {
  [14:51:54.103]         ...future.startTime <- base::Sys.time()
  [14:51:54.103]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:51:54.103]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:51:54.103]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:51:54.103]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:51:54.103]             future.resolve.recursive = NULL, width = 80L)
  [14:51:54.103]         {
  [14:51:54.103]             {
  [14:51:54.103]                 {
  [14:51:54.103]                   {
  [14:51:54.103]                     base::local({
  [14:51:54.103]                       has_future <- base::requireNamespace("future", 
  [14:51:54.103]                         quietly = TRUE)
  [14:51:54.103]                       version <- if (has_future) 
  [14:51:54.103]                         utils::packageVersion("future")
  [14:51:54.103]                       else NULL
  [14:51:54.103]                       if (!has_future || version < "1.8.0") {
  [14:51:54.103]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:51:54.103]                           "", base::R.version$version.string), 
  [14:51:54.103]                           platform = base::sprintf("%s (%s-bit)", 
  [14:51:54.103]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:51:54.103]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:51:54.103]                             "release", "version")], collapse = " "), 
  [14:51:54.103]                           hostname = base::Sys.info()[["nodename"]])
  [14:51:54.103]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:51:54.103]                           info)
  [14:51:54.103]                         info <- base::paste(info, collapse = "; ")
  [14:51:54.103]                         if (!has_future) {
  [14:51:54.103]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:51:54.103]                             info)
  [14:51:54.103]                         }
  [14:51:54.103]                         else {
  [14:51:54.103]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:51:54.103]                             info, version)
  [14:51:54.103]                         }
  [14:51:54.103]                         base::stop(msg)
  [14:51:54.103]                       }
  [14:51:54.103]                     })
  [14:51:54.103]                   }
  [14:51:54.103]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:51:54.103]                   base::options(mc.cores = 1L)
  [14:51:54.103]                 }
  [14:51:54.103]                 base::local({
  [14:51:54.103]                   for (pkg in c("doFuture", "future")) {
  [14:51:54.103]                     base::loadNamespace(pkg)
  [14:51:54.103]                     base::library(pkg, character.only = TRUE)
  [14:51:54.103]                   }
  [14:51:54.103]                 })
  [14:51:54.103]             }
  [14:51:54.103]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:51:54.103]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:54.103]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:51:54.103]                 label = NULL, ...) 
  [14:51:54.103]             {
  [14:51:54.103]                 if (substitute) 
  [14:51:54.103]                   expr <- substitute(expr)
  [14:51:54.103]                 local <- as.logical(local)
  [14:51:54.103]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:51:54.103]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:54.103]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:51:54.103]                   label = label, ...)
  [14:51:54.103]                 if (!future$lazy) 
  [14:51:54.103]                   future <- run(future)
  [14:51:54.103]                 invisible(future)
  [14:51:54.103]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:54.103]         }
  [14:51:54.103]     }
  [14:51:54.103]     if (base::is.na(TRUE)) {
  [14:51:54.103]     }
  [14:51:54.103]     else {
  [14:51:54.103]         if (TRUE) {
  [14:51:54.103]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:51:54.103]                 open = "w")
  [14:51:54.103]         }
  [14:51:54.103]         else {
  [14:51:54.103]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:51:54.103]                 windows = "NUL", "/dev/null"), open = "w")
  [14:51:54.103]         }
  [14:51:54.103]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:51:54.103]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:51:54.103]             base::sink(type = "output", split = FALSE)
  [14:51:54.103]             base::close(...future.stdout)
  [14:51:54.103]         }, add = TRUE)
  [14:51:54.103]     }
  [14:51:54.103]     ...future.frame <- base::sys.nframe()
  [14:51:54.103]     ...future.conditions <- base::list()
  [14:51:54.103]     ...future.rng <- base::globalenv()$.Random.seed
  [14:51:54.103]     ...future.result <- base::tryCatch({
  [14:51:54.103]         base::withCallingHandlers({
  [14:51:54.103]             ...future.value <- base::withVisible(base::local({
  [14:51:54.103]                 ...future.sendCondition <- local({
  [14:51:54.103]                   sendCondition <- NULL
  [14:51:54.103]                   function(frame = 1L) {
  [14:51:54.103]                     if (is.function(sendCondition)) 
  [14:51:54.103]                       return(sendCondition)
  [14:51:54.103]                     ns <- getNamespace("parallel")
  [14:51:54.103]                     if (exists("sendData", mode = "function", 
  [14:51:54.103]                       envir = ns)) {
  [14:51:54.103]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:51:54.103]                         envir = ns)
  [14:51:54.103]                       envir <- sys.frame(frame)
  [14:51:54.103]                       master <- NULL
  [14:51:54.103]                       while (!identical(envir, .GlobalEnv) && 
  [14:51:54.103]                         !identical(envir, emptyenv())) {
  [14:51:54.103]                         if (exists("master", mode = "list", envir = envir, 
  [14:51:54.103]                           inherits = FALSE)) {
  [14:51:54.103]                           master <- get("master", mode = "list", 
  [14:51:54.103]                             envir = envir, inherits = FALSE)
  [14:51:54.103]                           if (inherits(master, "SOCKnode")) {
  [14:51:54.103]                             sendCondition <<- function(cond) {
  [14:51:54.103]                               data <- list(type = "VALUE", value = cond, 
  [14:51:54.103]                                 success = TRUE)
  [14:51:54.103]                               parallel_sendData(master, data)
  [14:51:54.103]                             }
  [14:51:54.103]                             return(sendCondition)
  [14:51:54.103]                           }
  [14:51:54.103]                         }
  [14:51:54.103]                         frame <- frame + 1L
  [14:51:54.103]                         envir <- sys.frame(frame)
  [14:51:54.103]                       }
  [14:51:54.103]                     }
  [14:51:54.103]                     sendCondition <<- function(cond) NULL
  [14:51:54.103]                   }
  [14:51:54.103]                 })
  [14:51:54.103]                 withCallingHandlers({
  [14:51:54.103]                   {
  [14:51:54.103]                     doFuture::registerDoFuture()
  [14:51:54.103]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:54.103]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:54.103]                       {
  [14:51:54.103]                         a <- NULL
  [14:51:54.103]                         b <- NULL
  [14:51:54.103]                       }
  [14:51:54.103]                       ...future.env <- environment()
  [14:51:54.103]                       local({
  [14:51:54.103]                         for (name in names(...future.x_jj)) {
  [14:51:54.103]                           assign(name, ...future.x_jj[[name]], 
  [14:51:54.103]                             envir = ...future.env, inherits = FALSE)
  [14:51:54.103]                         }
  [14:51:54.103]                       })
  [14:51:54.103]                       tryCatch({
  [14:51:54.103]                         list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:54.103]                           plan = future::plan("next"))
  [14:51:54.103]                       }, error = identity)
  [14:51:54.103]                     })
  [14:51:54.103]                   }
  [14:51:54.103]                 }, immediateCondition = function(cond) {
  [14:51:54.103]                   sendCondition <- ...future.sendCondition()
  [14:51:54.103]                   sendCondition(cond)
  [14:51:54.103]                   muffleCondition <- function (cond) 
  [14:51:54.103]                   {
  [14:51:54.103]                     inherits <- base::inherits
  [14:51:54.103]                     invokeRestart <- base::invokeRestart
  [14:51:54.103]                     muffled <- FALSE
  [14:51:54.103]                     if (inherits(cond, "message")) {
  [14:51:54.103]                       invokeRestart("muffleMessage")
  [14:51:54.103]                       muffled <- TRUE
  [14:51:54.103]                     }
  [14:51:54.103]                     else if (inherits(cond, "warning")) {
  [14:51:54.103]                       invokeRestart("muffleWarning")
  [14:51:54.103]                       muffled <- TRUE
  [14:51:54.103]                     }
  [14:51:54.103]                     else if (inherits(cond, "condition")) {
  [14:51:54.103]                       computeRestarts <- base::computeRestarts
  [14:51:54.103]                       grepl <- base::grepl
  [14:51:54.103]                       is.null <- base::is.null
  [14:51:54.103]                       restarts <- computeRestarts(cond)
  [14:51:54.103]                       for (restart in restarts) {
  [14:51:54.103]                         name <- restart$name
  [14:51:54.103]                         if (is.null(name)) 
  [14:51:54.103]                           next
  [14:51:54.103]                         if (!grepl("^muffle", name)) 
  [14:51:54.103]                           next
  [14:51:54.103]                         invokeRestart(restart)
  [14:51:54.103]                         muffled <- TRUE
  [14:51:54.103]                         break
  [14:51:54.103]                       }
  [14:51:54.103]                     }
  [14:51:54.103]                     invisible(muffled)
  [14:51:54.103]                   }
  [14:51:54.103]                   muffleCondition(cond)
  [14:51:54.103]                 })
  [14:51:54.103]             }))
  [14:51:54.103]             future::FutureResult(value = ...future.value$value, 
  [14:51:54.103]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:54.103]                   ...future.rng), started = ...future.startTime, 
  [14:51:54.103]                 version = "1.8")
  [14:51:54.103]         }, condition = base::local({
  [14:51:54.103]             c <- base::c
  [14:51:54.103]             inherits <- base::inherits
  [14:51:54.103]             invokeRestart <- base::invokeRestart
  [14:51:54.103]             length <- base::length
  [14:51:54.103]             list <- base::list
  [14:51:54.103]             seq.int <- base::seq.int
  [14:51:54.103]             signalCondition <- base::signalCondition
  [14:51:54.103]             sys.calls <- base::sys.calls
  [14:51:54.103]             Sys.time <- base::Sys.time
  [14:51:54.103]             `[[` <- base::`[[`
  [14:51:54.103]             `+` <- base::`+`
  [14:51:54.103]             `<<-` <- base::`<<-`
  [14:51:54.103]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:51:54.103]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:51:54.103]                   3L)]
  [14:51:54.103]             }
  [14:51:54.103]             function(cond) {
  [14:51:54.103]                 if (inherits(cond, "error")) {
  [14:51:54.103]                   sessionInformation <- function() {
  [14:51:54.103]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:51:54.103]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:51:54.103]                       search = base::search(), system = base::Sys.info())
  [14:51:54.103]                   }
  [14:51:54.103]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:54.103]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:51:54.103]                     cond$call), session = sessionInformation(), 
  [14:51:54.103]                     timestamp = Sys.time(), signaled = 0L)
  [14:51:54.103]                   signalCondition(cond)
  [14:51:54.103]                 }
  [14:51:54.103]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:51:54.103]                 ))) {
  [14:51:54.103]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:51:54.103]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:54.103]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:51:54.103]                   if (!signal) {
  [14:51:54.103]                     muffleCondition <- function (cond) 
  [14:51:54.103]                     {
  [14:51:54.103]                       inherits <- base::inherits
  [14:51:54.103]                       invokeRestart <- base::invokeRestart
  [14:51:54.103]                       muffled <- FALSE
  [14:51:54.103]                       if (inherits(cond, "message")) {
  [14:51:54.103]                         invokeRestart("muffleMessage")
  [14:51:54.103]                         muffled <- TRUE
  [14:51:54.103]                       }
  [14:51:54.103]                       else if (inherits(cond, "warning")) {
  [14:51:54.103]                         invokeRestart("muffleWarning")
  [14:51:54.103]                         muffled <- TRUE
  [14:51:54.103]                       }
  [14:51:54.103]                       else if (inherits(cond, "condition")) {
  [14:51:54.103]                         computeRestarts <- base::computeRestarts
  [14:51:54.103]                         grepl <- base::grepl
  [14:51:54.103]                         is.null <- base::is.null
  [14:51:54.103]                         restarts <- computeRestarts(cond)
  [14:51:54.103]                         for (restart in restarts) {
  [14:51:54.103]                           name <- restart$name
  [14:51:54.103]                           if (is.null(name)) 
  [14:51:54.103]                             next
  [14:51:54.103]                           if (!grepl("^muffle", name)) 
  [14:51:54.103]                             next
  [14:51:54.103]                           invokeRestart(restart)
  [14:51:54.103]                           muffled <- TRUE
  [14:51:54.103]                           break
  [14:51:54.103]                         }
  [14:51:54.103]                       }
  [14:51:54.103]                       invisible(muffled)
  [14:51:54.103]                     }
  [14:51:54.103]                     muffleCondition(cond)
  [14:51:54.103]                   }
  [14:51:54.103]                 }
  [14:51:54.103]             }
  [14:51:54.103]         }))
  [14:51:54.103]     }, error = function(ex) {
  [14:51:54.103]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:51:54.103]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:54.103]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:51:54.103]     }, finally = {
  [14:51:54.103]         {
  [14:51:54.103]             {
  [14:51:54.103]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:51:54.103]             }
  [14:51:54.103]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:51:54.103]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:54.103]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:51:54.103]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:51:54.103]                 ...) 
  [14:51:54.103]             {
  [14:51:54.103]                 if (substitute) 
  [14:51:54.103]                   expr <- substitute(expr)
  [14:51:54.103]                 if (is.function(workers)) 
  [14:51:54.103]                   workers <- workers()
  [14:51:54.103]                 workers <- as.integer(workers)
  [14:51:54.103]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:51:54.103]                   workers >= 1)
  [14:51:54.103]                 if (workers == 1L) {
  [14:51:54.103]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:54.103]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:51:54.103]                     local = TRUE, label = label, ...))
  [14:51:54.103]                 }
  [14:51:54.103]                 workers <- ClusterRegistry("start", workers = workers)
  [14:51:54.103]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:51:54.103]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:54.103]                   globals = globals, persistent = persistent, 
  [14:51:54.103]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:51:54.103]                   label = label, ...)
  [14:51:54.103]                 if (!future$lazy) 
  [14:51:54.103]                   future <- run(future)
  [14:51:54.103]                 invisible(future)
  [14:51:54.103]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:51:54.103]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [14:51:54.103]                 earlySignal = FALSE, label = NULL, ...) 
  [14:51:54.103]             {
  [14:51:54.103]                 if (substitute) 
  [14:51:54.103]                   expr <- substitute(expr)
  [14:51:54.103]                 local <- as.logical(local)
  [14:51:54.103]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:51:54.103]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:54.103]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:51:54.103]                   label = label, ...)
  [14:51:54.103]                 if (!future$lazy) 
  [14:51:54.103]                   future <- run(future)
  [14:51:54.103]                 invisible(future)
  [14:51:54.103]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:54.103]         }
  [14:51:54.103]         base::options(...future.oldOptions)
  [14:51:54.103]     })
  [14:51:54.103]     Sys.time
  [14:51:54.103]     if (base::is.na(TRUE)) {
  [14:51:54.103]     }
  [14:51:54.103]     else {
  [14:51:54.103]         base::sink(type = "output", split = FALSE)
  [14:51:54.103]         if (TRUE) {
  [14:51:54.103]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:51:54.103]         }
  [14:51:54.103]         else {
  [14:51:54.103]             ...future.result["stdout"] <- base::list(NULL)
  [14:51:54.103]         }
  [14:51:54.103]         base::close(...future.stdout)
  [14:51:54.103]         ...future.stdout <- NULL
  [14:51:54.103]     }
  [14:51:54.103]     ...future.result$conditions <- ...future.conditions
  [14:51:54.103]     ...future.result
  [14:51:54.103] }
  [14:51:54.110] Exporting 1 global objects (336 bytes) to cluster node #1 ...
  [14:51:54.111] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ...
  [14:51:54.112] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ... DONE
  [14:51:54.112] Exporting 1 global objects (336 bytes) to cluster node #1 ... DONE
  [14:51:54.114] MultisessionFuture started
  [14:51:54.114] Chunk #1 of 2 ... DONE
  [14:51:54.114] Chunk #2 of 2 ...
  [14:51:54.115]  - Finding globals in 'args_list' chunk #2 ...
  [14:51:54.115] getGlobalsAndPackages() ...
  [14:51:54.115] Searching for globals...
  [14:51:54.116] 
  [14:51:54.116] Searching for globals ... DONE
  [14:51:54.117] - globals: [0] <none>
  [14:51:54.117] getGlobalsAndPackages() ... DONE
  [14:51:54.117] 
  [14:51:54.118] 
  [14:51:54.118]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:51:54.119] getGlobalsAndPackages() ...
  [14:51:54.120] - globals passed as-is: [1] '...future.x_ii'
  [14:51:54.120] Resolving globals: FALSE
  [14:51:54.121] The total size of the 1 globals is 336 bytes (336 bytes)
  [14:51:54.121] - globals: [1] '...future.x_ii'
  [14:51:54.122] 
  [14:51:54.122] getGlobalsAndPackages() ... DONE
  [14:51:54.127] Packages needed by the future expression (n = 1): 'doFuture'
  [14:51:54.128] Packages needed by future strategies (n = 1): 'future'
  [14:51:54.137] {
  [14:51:54.137]     {
  [14:51:54.137]         ...future.startTime <- base::Sys.time()
  [14:51:54.137]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:51:54.137]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:51:54.137]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:51:54.137]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:51:54.137]             future.resolve.recursive = NULL, width = 80L)
  [14:51:54.137]         {
  [14:51:54.137]             {
  [14:51:54.137]                 {
  [14:51:54.137]                   {
  [14:51:54.137]                     base::local({
  [14:51:54.137]                       has_future <- base::requireNamespace("future", 
  [14:51:54.137]                         quietly = TRUE)
  [14:51:54.137]                       version <- if (has_future) 
  [14:51:54.137]                         utils::packageVersion("future")
  [14:51:54.137]                       else NULL
  [14:51:54.137]                       if (!has_future || version < "1.8.0") {
  [14:51:54.137]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:51:54.137]                           "", base::R.version$version.string), 
  [14:51:54.137]                           platform = base::sprintf("%s (%s-bit)", 
  [14:51:54.137]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:51:54.137]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:51:54.137]                             "release", "version")], collapse = " "), 
  [14:51:54.137]                           hostname = base::Sys.info()[["nodename"]])
  [14:51:54.137]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:51:54.137]                           info)
  [14:51:54.137]                         info <- base::paste(info, collapse = "; ")
  [14:51:54.137]                         if (!has_future) {
  [14:51:54.137]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:51:54.137]                             info)
  [14:51:54.137]                         }
  [14:51:54.137]                         else {
  [14:51:54.137]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:51:54.137]                             info, version)
  [14:51:54.137]                         }
  [14:51:54.137]                         base::stop(msg)
  [14:51:54.137]                       }
  [14:51:54.137]                     })
  [14:51:54.137]                   }
  [14:51:54.137]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:51:54.137]                   base::options(mc.cores = 1L)
  [14:51:54.137]                 }
  [14:51:54.137]                 base::local({
  [14:51:54.137]                   for (pkg in c("doFuture", "future")) {
  [14:51:54.137]                     base::loadNamespace(pkg)
  [14:51:54.137]                     base::library(pkg, character.only = TRUE)
  [14:51:54.137]                   }
  [14:51:54.137]                 })
  [14:51:54.137]             }
  [14:51:54.137]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:51:54.137]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:54.137]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:51:54.137]                 label = NULL, ...) 
  [14:51:54.137]             {
  [14:51:54.137]                 if (substitute) 
  [14:51:54.137]                   expr <- substitute(expr)
  [14:51:54.137]                 local <- as.logical(local)
  [14:51:54.137]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:51:54.137]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:54.137]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:51:54.137]                   label = label, ...)
  [14:51:54.137]                 if (!future$lazy) 
  [14:51:54.137]                   future <- run(future)
  [14:51:54.137]                 invisible(future)
  [14:51:54.137]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:54.137]         }
  [14:51:54.137]     }
  [14:51:54.137]     if (base::is.na(TRUE)) {
  [14:51:54.137]     }
  [14:51:54.137]     else {
  [14:51:54.137]         if (TRUE) {
  [14:51:54.137]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:51:54.137]                 open = "w")
  [14:51:54.137]         }
  [14:51:54.137]         else {
  [14:51:54.137]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:51:54.137]                 windows = "NUL", "/dev/null"), open = "w")
  [14:51:54.137]         }
  [14:51:54.137]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:51:54.137]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:51:54.137]             base::sink(type = "output", split = FALSE)
  [14:51:54.137]             base::close(...future.stdout)
  [14:51:54.137]         }, add = TRUE)
  [14:51:54.137]     }
  [14:51:54.137]     ...future.frame <- base::sys.nframe()
  [14:51:54.137]     ...future.conditions <- base::list()
  [14:51:54.137]     ...future.rng <- base::globalenv()$.Random.seed
  [14:51:54.137]     ...future.result <- base::tryCatch({
  [14:51:54.137]         base::withCallingHandlers({
  [14:51:54.137]             ...future.value <- base::withVisible(base::local({
  [14:51:54.137]                 ...future.sendCondition <- local({
  [14:51:54.137]                   sendCondition <- NULL
  [14:51:54.137]                   function(frame = 1L) {
  [14:51:54.137]                     if (is.function(sendCondition)) 
  [14:51:54.137]                       return(sendCondition)
  [14:51:54.137]                     ns <- getNamespace("parallel")
  [14:51:54.137]                     if (exists("sendData", mode = "function", 
  [14:51:54.137]                       envir = ns)) {
  [14:51:54.137]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:51:54.137]                         envir = ns)
  [14:51:54.137]                       envir <- sys.frame(frame)
  [14:51:54.137]                       master <- NULL
  [14:51:54.137]                       while (!identical(envir, .GlobalEnv) && 
  [14:51:54.137]                         !identical(envir, emptyenv())) {
  [14:51:54.137]                         if (exists("master", mode = "list", envir = envir, 
  [14:51:54.137]                           inherits = FALSE)) {
  [14:51:54.137]                           master <- get("master", mode = "list", 
  [14:51:54.137]                             envir = envir, inherits = FALSE)
  [14:51:54.137]                           if (inherits(master, "SOCKnode")) {
  [14:51:54.137]                             sendCondition <<- function(cond) {
  [14:51:54.137]                               data <- list(type = "VALUE", value = cond, 
  [14:51:54.137]                                 success = TRUE)
  [14:51:54.137]                               parallel_sendData(master, data)
  [14:51:54.137]                             }
  [14:51:54.137]                             return(sendCondition)
  [14:51:54.137]                           }
  [14:51:54.137]                         }
  [14:51:54.137]                         frame <- frame + 1L
  [14:51:54.137]                         envir <- sys.frame(frame)
  [14:51:54.137]                       }
  [14:51:54.137]                     }
  [14:51:54.137]                     sendCondition <<- function(cond) NULL
  [14:51:54.137]                   }
  [14:51:54.137]                 })
  [14:51:54.137]                 withCallingHandlers({
  [14:51:54.137]                   {
  [14:51:54.137]                     doFuture::registerDoFuture()
  [14:51:54.137]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:54.137]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:54.137]                       {
  [14:51:54.137]                         a <- NULL
  [14:51:54.137]                         b <- NULL
  [14:51:54.137]                       }
  [14:51:54.137]                       ...future.env <- environment()
  [14:51:54.137]                       local({
  [14:51:54.137]                         for (name in names(...future.x_jj)) {
  [14:51:54.137]                           assign(name, ...future.x_jj[[name]], 
  [14:51:54.137]                             envir = ...future.env, inherits = FALSE)
  [14:51:54.137]                         }
  [14:51:54.137]                       })
  [14:51:54.137]                       tryCatch({
  [14:51:54.137]                         list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:54.137]                           plan = future::plan("next"))
  [14:51:54.137]                       }, error = identity)
  [14:51:54.137]                     })
  [14:51:54.137]                   }
  [14:51:54.137]                 }, immediateCondition = function(cond) {
  [14:51:54.137]                   sendCondition <- ...future.sendCondition()
  [14:51:54.137]                   sendCondition(cond)
  [14:51:54.137]                   muffleCondition <- function (cond) 
  [14:51:54.137]                   {
  [14:51:54.137]                     inherits <- base::inherits
  [14:51:54.137]                     invokeRestart <- base::invokeRestart
  [14:51:54.137]                     muffled <- FALSE
  [14:51:54.137]                     if (inherits(cond, "message")) {
  [14:51:54.137]                       invokeRestart("muffleMessage")
  [14:51:54.137]                       muffled <- TRUE
  [14:51:54.137]                     }
  [14:51:54.137]                     else if (inherits(cond, "warning")) {
  [14:51:54.137]                       invokeRestart("muffleWarning")
  [14:51:54.137]                       muffled <- TRUE
  [14:51:54.137]                     }
  [14:51:54.137]                     else if (inherits(cond, "condition")) {
  [14:51:54.137]                       computeRestarts <- base::computeRestarts
  [14:51:54.137]                       grepl <- base::grepl
  [14:51:54.137]                       is.null <- base::is.null
  [14:51:54.137]                       restarts <- computeRestarts(cond)
  [14:51:54.137]                       for (restart in restarts) {
  [14:51:54.137]                         name <- restart$name
  [14:51:54.137]                         if (is.null(name)) 
  [14:51:54.137]                           next
  [14:51:54.137]                         if (!grepl("^muffle", name)) 
  [14:51:54.137]                           next
  [14:51:54.137]                         invokeRestart(restart)
  [14:51:54.137]                         muffled <- TRUE
  [14:51:54.137]                         break
  [14:51:54.137]                       }
  [14:51:54.137]                     }
  [14:51:54.137]                     invisible(muffled)
  [14:51:54.137]                   }
  [14:51:54.137]                   muffleCondition(cond)
  [14:51:54.137]                 })
  [14:51:54.137]             }))
  [14:51:54.137]             future::FutureResult(value = ...future.value$value, 
  [14:51:54.137]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:54.137]                   ...future.rng), started = ...future.startTime, 
  [14:51:54.137]                 version = "1.8")
  [14:51:54.137]         }, condition = base::local({
  [14:51:54.137]             c <- base::c
  [14:51:54.137]             inherits <- base::inherits
  [14:51:54.137]             invokeRestart <- base::invokeRestart
  [14:51:54.137]             length <- base::length
  [14:51:54.137]             list <- base::list
  [14:51:54.137]             seq.int <- base::seq.int
  [14:51:54.137]             signalCondition <- base::signalCondition
  [14:51:54.137]             sys.calls <- base::sys.calls
  [14:51:54.137]             Sys.time <- base::Sys.time
  [14:51:54.137]             `[[` <- base::`[[`
  [14:51:54.137]             `+` <- base::`+`
  [14:51:54.137]             `<<-` <- base::`<<-`
  [14:51:54.137]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:51:54.137]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:51:54.137]                   3L)]
  [14:51:54.137]             }
  [14:51:54.137]             function(cond) {
  [14:51:54.137]                 if (inherits(cond, "error")) {
  [14:51:54.137]                   sessionInformation <- function() {
  [14:51:54.137]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:51:54.137]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:51:54.137]                       search = base::search(), system = base::Sys.info())
  [14:51:54.137]                   }
  [14:51:54.137]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:54.137]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:51:54.137]                     cond$call), session = sessionInformation(), 
  [14:51:54.137]                     timestamp = Sys.time(), signaled = 0L)
  [14:51:54.137]                   signalCondition(cond)
  [14:51:54.137]                 }
  [14:51:54.137]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:51:54.137]                 ))) {
  [14:51:54.137]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:51:54.137]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:54.137]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:51:54.137]                   if (!signal) {
  [14:51:54.137]                     muffleCondition <- function (cond) 
  [14:51:54.137]                     {
  [14:51:54.137]                       inherits <- base::inherits
  [14:51:54.137]                       invokeRestart <- base::invokeRestart
  [14:51:54.137]                       muffled <- FALSE
  [14:51:54.137]                       if (inherits(cond, "message")) {
  [14:51:54.137]                         invokeRestart("muffleMessage")
  [14:51:54.137]                         muffled <- TRUE
  [14:51:54.137]                       }
  [14:51:54.137]                       else if (inherits(cond, "warning")) {
  [14:51:54.137]                         invokeRestart("muffleWarning")
  [14:51:54.137]                         muffled <- TRUE
  [14:51:54.137]                       }
  [14:51:54.137]                       else if (inherits(cond, "condition")) {
  [14:51:54.137]                         computeRestarts <- base::computeRestarts
  [14:51:54.137]                         grepl <- base::grepl
  [14:51:54.137]                         is.null <- base::is.null
  [14:51:54.137]                         restarts <- computeRestarts(cond)
  [14:51:54.137]                         for (restart in restarts) {
  [14:51:54.137]                           name <- restart$name
  [14:51:54.137]                           if (is.null(name)) 
  [14:51:54.137]                             next
  [14:51:54.137]                           if (!grepl("^muffle", name)) 
  [14:51:54.137]                             next
  [14:51:54.137]                           invokeRestart(restart)
  [14:51:54.137]                           muffled <- TRUE
  [14:51:54.137]                           break
  [14:51:54.137]                         }
  [14:51:54.137]                       }
  [14:51:54.137]                       invisible(muffled)
  [14:51:54.137]                     }
  [14:51:54.137]                     muffleCondition(cond)
  [14:51:54.137]                   }
  [14:51:54.137]                 }
  [14:51:54.137]             }
  [14:51:54.137]         }))
  [14:51:54.137]     }, error = function(ex) {
  [14:51:54.137]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:51:54.137]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:54.137]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:51:54.137]     }, finally = {
  [14:51:54.137]         {
  [14:51:54.137]             {
  [14:51:54.137]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:51:54.137]             }
  [14:51:54.137]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:51:54.137]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:54.137]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:51:54.137]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:51:54.137]                 ...) 
  [14:51:54.137]             {
  [14:51:54.137]                 if (substitute) 
  [14:51:54.137]                   expr <- substitute(expr)
  [14:51:54.137]                 if (is.function(workers)) 
  [14:51:54.137]                   workers <- workers()
  [14:51:54.137]                 workers <- as.integer(workers)
  [14:51:54.137]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:51:54.137]                   workers >= 1)
  [14:51:54.137]                 if (workers == 1L) {
  [14:51:54.137]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:54.137]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:51:54.137]                     local = TRUE, label = label, ...))
  [14:51:54.137]                 }
  [14:51:54.137]                 workers <- ClusterRegistry("start", workers = workers)
  [14:51:54.137]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:51:54.137]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:54.137]                   globals = globals, persistent = persistent, 
  [14:51:54.137]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:51:54.137]                   label = label, ...)
  [14:51:54.137]                 if (!future$lazy) 
  [14:51:54.137]                   future <- run(future)
  [14:51:54.137]                 invisible(future)
  [14:51:54.137]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:51:54.137]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [14:51:54.137]                 earlySignal = FALSE, label = NULL, ...) 
  [14:51:54.137]             {
  [14:51:54.137]                 if (substitute) 
  [14:51:54.137]                   expr <- substitute(expr)
  [14:51:54.137]                 local <- as.logical(local)
  [14:51:54.137]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:51:54.137]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:54.137]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:51:54.137]                   label = label, ...)
  [14:51:54.137]                 if (!future$lazy) 
  [14:51:54.137]                   future <- run(future)
  [14:51:54.137]                 invisible(future)
  [14:51:54.137]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:54.137]         }
  [14:51:54.137]         base::options(...future.oldOptions)
  [14:51:54.137]     })
  [14:51:54.137]     Sys.time
  [14:51:54.137]     if (base::is.na(TRUE)) {
  [14:51:54.137]     }
  [14:51:54.137]     else {
  [14:51:54.137]         base::sink(type = "output", split = FALSE)
  [14:51:54.137]         if (TRUE) {
  [14:51:54.137]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:51:54.137]         }
  [14:51:54.137]         else {
  [14:51:54.137]             ...future.result["stdout"] <- base::list(NULL)
  [14:51:54.137]         }
  [14:51:54.137]         base::close(...future.stdout)
  [14:51:54.137]         ...future.stdout <- NULL
  [14:51:54.137]     }
  [14:51:54.137]     ...future.result$conditions <- ...future.conditions
  [14:51:54.137]     ...future.result
  [14:51:54.137] }
  [14:51:54.145] Exporting 1 global objects (336 bytes) to cluster node #2 ...
  [14:51:54.145] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ...
  [14:51:54.146] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ... DONE
  [14:51:54.147] Exporting 1 global objects (336 bytes) to cluster node #2 ... DONE
  [14:51:54.149] MultisessionFuture started
  [14:51:54.149] Chunk #2 of 2 ... DONE
  [14:51:54.149] Launching 2 futures (chunks) ... DONE
  [14:51:54.150] - resolving futures
  [14:51:54.150]   - gathering results & relaying conditions (except errors)
  [14:51:54.152] resolve() on list ...
  [14:51:54.152]  recursive: 0
  [14:51:54.153]  length: 2
  [14:51:54.153] 
  [14:51:54.282] receiveMessageFromWorker() for ClusterFuture ...
  [14:51:54.282] - Validating connection of MultisessionFuture
  [14:51:54.323] - received message: FutureResult
  [14:51:54.323] - Received FutureResult
  [14:51:54.324] - Erased future from FutureRegistry
  [14:51:54.324] result() for ClusterFuture ...
  [14:51:54.324] - result already collected: FutureResult
  [14:51:54.325] result() for ClusterFuture ... done
  [14:51:54.325] receiveMessageFromWorker() for ClusterFuture ... done
  [14:51:54.325] Future #1
  [14:51:54.326] result() for ClusterFuture ...
  [14:51:54.326] - result already collected: FutureResult
  [14:51:54.326] result() for ClusterFuture ... done
  [14:51:54.327] result() for ClusterFuture ...
  [14:51:54.327] - result already collected: FutureResult
  [14:51:54.327] result() for ClusterFuture ... done
  [14:51:54.328] signalConditionsASAP(MultisessionFuture, pos=1) ...
  [14:51:54.328] - nx: 2
  [14:51:54.328] - relay: TRUE
  [14:51:54.329] - stdout: TRUE
  [14:51:54.329] - signal: TRUE
  [14:51:54.329] - resignal: FALSE
  [14:51:54.330] - force: FALSE
  [14:51:54.330] - relayed: [n=2] FALSE, FALSE
  [14:51:54.330] - queued futures: [n=2] FALSE, FALSE
  [14:51:54.331]  - until=1
  [14:51:54.331]  - relaying element #1
  [14:51:54.331] result() for ClusterFuture ...
  [14:51:54.332] - result already collected: FutureResult
  [14:51:54.332] result() for ClusterFuture ... done
  [14:51:54.333] result() for ClusterFuture ...
  [14:51:54.333] - result already collected: FutureResult
  [14:51:54.333] result() for ClusterFuture ... done
  [14:51:54.334] result() for ClusterFuture ...
  [14:51:54.334] - result already collected: FutureResult
  [14:51:54.334] result() for ClusterFuture ... done
  [14:51:54.335] result() for ClusterFuture ...
  [14:51:54.335] - result already collected: FutureResult
  [14:51:54.335] result() for ClusterFuture ... done
  [14:51:54.336] - relayed: [n=2] TRUE, FALSE
  [14:51:54.336] - queued futures: [n=2] TRUE, FALSE
  [14:51:54.336] signalConditionsASAP(MultisessionFuture, pos=1) ... done
  [14:51:54.337]  length: 1 (resolved future 1)
  [14:51:54.435] receiveMessageFromWorker() for ClusterFuture ...
  [14:51:54.436] - Validating connection of MultisessionFuture
  [14:51:54.479] - received message: FutureResult
  [14:51:54.479] - Received FutureResult
  [14:51:54.480] - Erased future from FutureRegistry
  [14:51:54.480] result() for ClusterFuture ...
  [14:51:54.481] - result already collected: FutureResult
  [14:51:54.481] result() for ClusterFuture ... done
  [14:51:54.481] receiveMessageFromWorker() for ClusterFuture ... done
  [14:51:54.482] Future #2
  [14:51:54.482] result() for ClusterFuture ...
  [14:51:54.482] - result already collected: FutureResult
  [14:51:54.483] result() for ClusterFuture ... done
  [14:51:54.483] result() for ClusterFuture ...
  [14:51:54.484] - result already collected: FutureResult
  [14:51:54.484] result() for ClusterFuture ... done
  [14:51:54.484] signalConditionsASAP(MultisessionFuture, pos=2) ...
  [14:51:54.485] - nx: 2
  [14:51:54.485] - relay: TRUE
  [14:51:54.485] - stdout: TRUE
  [14:51:54.486] - signal: TRUE
  [14:51:54.486] - resignal: FALSE
  [14:51:54.486] - force: FALSE
  [14:51:54.487] - relayed: [n=2] TRUE, FALSE
  [14:51:54.487] - queued futures: [n=2] TRUE, FALSE
  [14:51:54.487]  - until=2
  [14:51:54.488]  - relaying element #2
  [14:51:54.488] result() for ClusterFuture ...
  [14:51:54.488] - result already collected: FutureResult
  [14:51:54.489] result() for ClusterFuture ... done
  [14:51:54.489] result() for ClusterFuture ...
  [14:51:54.489] - result already collected: FutureResult
  [14:51:54.490] result() for ClusterFuture ... done
  [14:51:54.490] result() for ClusterFuture ...
  [14:51:54.490] - result already collected: FutureResult
  [14:51:54.491] result() for ClusterFuture ... done
  [14:51:54.491] result() for ClusterFuture ...
  [14:51:54.491] - result already collected: FutureResult
  [14:51:54.492] result() for ClusterFuture ... done
  [14:51:54.492] - relayed: [n=2] TRUE, TRUE
  [14:51:54.492] - queued futures: [n=2] TRUE, TRUE
  [14:51:54.493] signalConditionsASAP(MultisessionFuture, pos=2) ... done
  [14:51:54.493]  length: 0 (resolved future 2)
  [14:51:54.493] Relaying remaining futures
  [14:51:54.494] signalConditionsASAP(NULL, pos=0) ...
  [14:51:54.494] - nx: 2
  [14:51:54.494] - relay: TRUE
  [14:51:54.495] - stdout: TRUE
  [14:51:54.495] - signal: TRUE
  [14:51:54.495] - resignal: FALSE
  [14:51:54.496] - force: FALSE
  [14:51:54.496] - relayed: [n=2] TRUE, TRUE
  [14:51:54.496] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [14:51:54.497] - relayed: [n=2] TRUE, TRUE
  [14:51:54.497] - queued futures: [n=2] TRUE, TRUE
  [14:51:54.498] signalConditionsASAP(NULL, pos=0) ... done
  [14:51:54.498] resolve() on list ... DONE
  [14:51:54.498] - collecting values of futures
  [14:51:54.499] result() for ClusterFuture ...
  [14:51:54.499] - result already collected: FutureResult
  [14:51:54.499] result() for ClusterFuture ... done
  [14:51:54.500] result() for ClusterFuture ...
  [14:51:54.500] - result already collected: FutureResult
  [14:51:54.500] result() for ClusterFuture ... done
  [14:51:54.501] result() for ClusterFuture ...
  [14:51:54.501] - result already collected: FutureResult
  [14:51:54.501] result() for ClusterFuture ... done
  [14:51:54.502] result() for ClusterFuture ...
  [14:51:54.502] - result already collected: FutureResult
  [14:51:54.506] result() for ClusterFuture ... done
  [14:51:54.507] - accumulating results
  [14:51:54.509] - processing errors (handler = 'stop')
  [14:51:54.510] - extracting results
  [14:51:54.510] doFuture() ... DONE
  - plan(list('multisession', 'sequential')) ... DONE
  - plan(list('multisession', 'multicore')) ...
  [14:51:54.512] plan(): Setting new future strategy stack:
  [14:51:54.512] List of future strategies:
  [14:51:54.512] 1. multisession:
  [14:51:54.512]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:51:54.512]    - tweaked: FALSE
  [14:51:54.512]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:54.512] 2. multicore:
  [14:51:54.512]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:51:54.512]    - tweaked: FALSE
  [14:51:54.512]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:54.515] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
  [14:51:54.515] multisession:
  [14:51:54.515] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:51:54.515] - tweaked: FALSE
  [14:51:54.515] - call: plan(list(a = strategy1, b = strategy2))
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 30798
  [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/Rtmp731ey4/future.parent=32359.7e67295af000.pid")), silent = TRUE)' -e "file.exists('/tmp/Rtmp731ey4/future.parent=32359.7e67295af000.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:32359:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp731ey4/future.parent=32359.7e67295af000.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=30798 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/Rtmp731ey4/future.parent=32359.7e671ff3e3bd.pid")), silent = TRUE)' -e "file.exists('/tmp/Rtmp731ey4/future.parent=32359.7e671ff3e3bd.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:32359:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp731ey4/future.parent=32359.7e671ff3e3bd.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=30798 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
  [14:51:57.014] getGlobalsAndPackages() ...
  [14:51:57.015] Not searching for globals
  [14:51:57.015] - globals: [0] <none>
  [14:51:57.015] getGlobalsAndPackages() ... DONE
  [14:51:57.021] Packages needed by the future expression (n = 0): <none>
  [14:51:57.022] Packages needed by future strategies (n = 1): 'future'
  [14:51:57.030] {
  [14:51:57.030]     {
  [14:51:57.030]         ...future.startTime <- base::Sys.time()
  [14:51:57.030]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:51:57.030]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:51:57.030]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:51:57.030]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:51:57.030]             future.resolve.recursive = NULL, width = 80L)
  [14:51:57.030]         {
  [14:51:57.030]             {
  [14:51:57.030]                 {
  [14:51:57.030]                   {
  [14:51:57.030]                     base::local({
  [14:51:57.030]                       has_future <- base::requireNamespace("future", 
  [14:51:57.030]                         quietly = TRUE)
  [14:51:57.030]                       version <- if (has_future) 
  [14:51:57.030]                         utils::packageVersion("future")
  [14:51:57.030]                       else NULL
  [14:51:57.030]                       if (!has_future || version < "1.8.0") {
  [14:51:57.030]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:51:57.030]                           "", base::R.version$version.string), 
  [14:51:57.030]                           platform = base::sprintf("%s (%s-bit)", 
  [14:51:57.030]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:51:57.030]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:51:57.030]                             "release", "version")], collapse = " "), 
  [14:51:57.030]                           hostname = base::Sys.info()[["nodename"]])
  [14:51:57.030]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:51:57.030]                           info)
  [14:51:57.030]                         info <- base::paste(info, collapse = "; ")
  [14:51:57.030]                         if (!has_future) {
  [14:51:57.030]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:51:57.030]                             info)
  [14:51:57.030]                         }
  [14:51:57.030]                         else {
  [14:51:57.030]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:51:57.030]                             info, version)
  [14:51:57.030]                         }
  [14:51:57.030]                         base::stop(msg)
  [14:51:57.030]                       }
  [14:51:57.030]                     })
  [14:51:57.030]                   }
  [14:51:57.030]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:51:57.030]                   base::options(mc.cores = 1L)
  [14:51:57.030]                 }
  [14:51:57.030]                 base::local({
  [14:51:57.030]                   for (pkg in "future") {
  [14:51:57.030]                     base::loadNamespace(pkg)
  [14:51:57.030]                     base::library(pkg, character.only = TRUE)
  [14:51:57.030]                   }
  [14:51:57.030]                 })
  [14:51:57.030]             }
  [14:51:57.030]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:51:57.030]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:57.030]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:51:57.030]                 earlySignal = FALSE, label = NULL, ...) 
  [14:51:57.030]             {
  [14:51:57.030]                 if (substitute) 
  [14:51:57.030]                   expr <- substitute(expr)
  [14:51:57.030]                 if (is.function(workers)) 
  [14:51:57.030]                   workers <- workers()
  [14:51:57.030]                 workers <- as.integer(workers)
  [14:51:57.030]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:51:57.030]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:51:57.030]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:57.030]                     lazy = lazy, seed = seed, globals = globals, 
  [14:51:57.030]                     local = TRUE, label = label, ...))
  [14:51:57.030]                 }
  [14:51:57.030]                 oopts <- options(mc.cores = workers)
  [14:51:57.030]                 on.exit(options(oopts))
  [14:51:57.030]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:51:57.030]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:57.030]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:51:57.030]                   label = label, ...)
  [14:51:57.030]                 if (!future$lazy) 
  [14:51:57.030]                   future <- run(future)
  [14:51:57.030]                 invisible(future)
  [14:51:57.030]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:57.030]         }
  [14:51:57.030]     }
  [14:51:57.030]     if (base::is.na(TRUE)) {
  [14:51:57.030]     }
  [14:51:57.030]     else {
  [14:51:57.030]         if (TRUE) {
  [14:51:57.030]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:51:57.030]                 open = "w")
  [14:51:57.030]         }
  [14:51:57.030]         else {
  [14:51:57.030]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:51:57.030]                 windows = "NUL", "/dev/null"), open = "w")
  [14:51:57.030]         }
  [14:51:57.030]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:51:57.030]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:51:57.030]             base::sink(type = "output", split = FALSE)
  [14:51:57.030]             base::close(...future.stdout)
  [14:51:57.030]         }, add = TRUE)
  [14:51:57.030]     }
  [14:51:57.030]     ...future.frame <- base::sys.nframe()
  [14:51:57.030]     ...future.conditions <- base::list()
  [14:51:57.030]     ...future.rng <- base::globalenv()$.Random.seed
  [14:51:57.030]     ...future.result <- base::tryCatch({
  [14:51:57.030]         base::withCallingHandlers({
  [14:51:57.030]             ...future.value <- base::withVisible(base::local({
  [14:51:57.030]                 ...future.sendCondition <- local({
  [14:51:57.030]                   sendCondition <- NULL
  [14:51:57.030]                   function(frame = 1L) {
  [14:51:57.030]                     if (is.function(sendCondition)) 
  [14:51:57.030]                       return(sendCondition)
  [14:51:57.030]                     ns <- getNamespace("parallel")
  [14:51:57.030]                     if (exists("sendData", mode = "function", 
  [14:51:57.030]                       envir = ns)) {
  [14:51:57.030]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:51:57.030]                         envir = ns)
  [14:51:57.030]                       envir <- sys.frame(frame)
  [14:51:57.030]                       master <- NULL
  [14:51:57.030]                       while (!identical(envir, .GlobalEnv) && 
  [14:51:57.030]                         !identical(envir, emptyenv())) {
  [14:51:57.030]                         if (exists("master", mode = "list", envir = envir, 
  [14:51:57.030]                           inherits = FALSE)) {
  [14:51:57.030]                           master <- get("master", mode = "list", 
  [14:51:57.030]                             envir = envir, inherits = FALSE)
  [14:51:57.030]                           if (inherits(master, "SOCKnode")) {
  [14:51:57.030]                             sendCondition <<- function(cond) {
  [14:51:57.030]                               data <- list(type = "VALUE", value = cond, 
  [14:51:57.030]                                 success = TRUE)
  [14:51:57.030]                               parallel_sendData(master, data)
  [14:51:57.030]                             }
  [14:51:57.030]                             return(sendCondition)
  [14:51:57.030]                           }
  [14:51:57.030]                         }
  [14:51:57.030]                         frame <- frame + 1L
  [14:51:57.030]                         envir <- sys.frame(frame)
  [14:51:57.030]                       }
  [14:51:57.030]                     }
  [14:51:57.030]                     sendCondition <<- function(cond) NULL
  [14:51:57.030]                   }
  [14:51:57.030]                 })
  [14:51:57.030]                 withCallingHandlers({
  [14:51:57.030]                   NA
  [14:51:57.030]                 }, immediateCondition = function(cond) {
  [14:51:57.030]                   sendCondition <- ...future.sendCondition()
  [14:51:57.030]                   sendCondition(cond)
  [14:51:57.030]                   muffleCondition <- function (cond) 
  [14:51:57.030]                   {
  [14:51:57.030]                     inherits <- base::inherits
  [14:51:57.030]                     invokeRestart <- base::invokeRestart
  [14:51:57.030]                     muffled <- FALSE
  [14:51:57.030]                     if (inherits(cond, "message")) {
  [14:51:57.030]                       invokeRestart("muffleMessage")
  [14:51:57.030]                       muffled <- TRUE
  [14:51:57.030]                     }
  [14:51:57.030]                     else if (inherits(cond, "warning")) {
  [14:51:57.030]                       invokeRestart("muffleWarning")
  [14:51:57.030]                       muffled <- TRUE
  [14:51:57.030]                     }
  [14:51:57.030]                     else if (inherits(cond, "condition")) {
  [14:51:57.030]                       computeRestarts <- base::computeRestarts
  [14:51:57.030]                       grepl <- base::grepl
  [14:51:57.030]                       is.null <- base::is.null
  [14:51:57.030]                       restarts <- computeRestarts(cond)
  [14:51:57.030]                       for (restart in restarts) {
  [14:51:57.030]                         name <- restart$name
  [14:51:57.030]                         if (is.null(name)) 
  [14:51:57.030]                           next
  [14:51:57.030]                         if (!grepl("^muffle", name)) 
  [14:51:57.030]                           next
  [14:51:57.030]                         invokeRestart(restart)
  [14:51:57.030]                         muffled <- TRUE
  [14:51:57.030]                         break
  [14:51:57.030]                       }
  [14:51:57.030]                     }
  [14:51:57.030]                     invisible(muffled)
  [14:51:57.030]                   }
  [14:51:57.030]                   muffleCondition(cond)
  [14:51:57.030]                 })
  [14:51:57.030]             }))
  [14:51:57.030]             future::FutureResult(value = ...future.value$value, 
  [14:51:57.030]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:57.030]                   ...future.rng), started = ...future.startTime, 
  [14:51:57.030]                 version = "1.8")
  [14:51:57.030]         }, condition = base::local({
  [14:51:57.030]             c <- base::c
  [14:51:57.030]             inherits <- base::inherits
  [14:51:57.030]             invokeRestart <- base::invokeRestart
  [14:51:57.030]             length <- base::length
  [14:51:57.030]             list <- base::list
  [14:51:57.030]             seq.int <- base::seq.int
  [14:51:57.030]             signalCondition <- base::signalCondition
  [14:51:57.030]             sys.calls <- base::sys.calls
  [14:51:57.030]             Sys.time <- base::Sys.time
  [14:51:57.030]             `[[` <- base::`[[`
  [14:51:57.030]             `+` <- base::`+`
  [14:51:57.030]             `<<-` <- base::`<<-`
  [14:51:57.030]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:51:57.030]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:51:57.030]                   3L)]
  [14:51:57.030]             }
  [14:51:57.030]             function(cond) {
  [14:51:57.030]                 if (inherits(cond, "error")) {
  [14:51:57.030]                   sessionInformation <- function() {
  [14:51:57.030]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:51:57.030]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:51:57.030]                       search = base::search(), system = base::Sys.info())
  [14:51:57.030]                   }
  [14:51:57.030]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:57.030]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:51:57.030]                     cond$call), session = sessionInformation(), 
  [14:51:57.030]                     timestamp = Sys.time(), signaled = 0L)
  [14:51:57.030]                   signalCondition(cond)
  [14:51:57.030]                 }
  [14:51:57.030]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:51:57.030]                 ))) {
  [14:51:57.030]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:51:57.030]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:57.030]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:51:57.030]                   if (!signal) {
  [14:51:57.030]                     muffleCondition <- function (cond) 
  [14:51:57.030]                     {
  [14:51:57.030]                       inherits <- base::inherits
  [14:51:57.030]                       invokeRestart <- base::invokeRestart
  [14:51:57.030]                       muffled <- FALSE
  [14:51:57.030]                       if (inherits(cond, "message")) {
  [14:51:57.030]                         invokeRestart("muffleMessage")
  [14:51:57.030]                         muffled <- TRUE
  [14:51:57.030]                       }
  [14:51:57.030]                       else if (inherits(cond, "warning")) {
  [14:51:57.030]                         invokeRestart("muffleWarning")
  [14:51:57.030]                         muffled <- TRUE
  [14:51:57.030]                       }
  [14:51:57.030]                       else if (inherits(cond, "condition")) {
  [14:51:57.030]                         computeRestarts <- base::computeRestarts
  [14:51:57.030]                         grepl <- base::grepl
  [14:51:57.030]                         is.null <- base::is.null
  [14:51:57.030]                         restarts <- computeRestarts(cond)
  [14:51:57.030]                         for (restart in restarts) {
  [14:51:57.030]                           name <- restart$name
  [14:51:57.030]                           if (is.null(name)) 
  [14:51:57.030]                             next
  [14:51:57.030]                           if (!grepl("^muffle", name)) 
  [14:51:57.030]                             next
  [14:51:57.030]                           invokeRestart(restart)
  [14:51:57.030]                           muffled <- TRUE
  [14:51:57.030]                           break
  [14:51:57.030]                         }
  [14:51:57.030]                       }
  [14:51:57.030]                       invisible(muffled)
  [14:51:57.030]                     }
  [14:51:57.030]                     muffleCondition(cond)
  [14:51:57.030]                   }
  [14:51:57.030]                 }
  [14:51:57.030]             }
  [14:51:57.030]         }))
  [14:51:57.030]     }, error = function(ex) {
  [14:51:57.030]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:51:57.030]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:57.030]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:51:57.030]     }, finally = {
  [14:51:57.030]         {
  [14:51:57.030]             {
  [14:51:57.030]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:51:57.030]             }
  [14:51:57.030]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:51:57.030]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:57.030]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:51:57.030]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:51:57.030]                 ...) 
  [14:51:57.030]             {
  [14:51:57.030]                 if (substitute) 
  [14:51:57.030]                   expr <- substitute(expr)
  [14:51:57.030]                 if (is.function(workers)) 
  [14:51:57.030]                   workers <- workers()
  [14:51:57.030]                 workers <- as.integer(workers)
  [14:51:57.030]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:51:57.030]                   workers >= 1)
  [14:51:57.030]                 if (workers == 1L) {
  [14:51:57.030]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:57.030]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:51:57.030]                     local = TRUE, label = label, ...))
  [14:51:57.030]                 }
  [14:51:57.030]                 workers <- ClusterRegistry("start", workers = workers)
  [14:51:57.030]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:51:57.030]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:57.030]                   globals = globals, persistent = persistent, 
  [14:51:57.030]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:51:57.030]                   label = label, ...)
  [14:51:57.030]                 if (!future$lazy) 
  [14:51:57.030]                   future <- run(future)
  [14:51:57.030]                 invisible(future)
  [14:51:57.030]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:51:57.030]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:51:57.030]                 earlySignal = FALSE, label = NULL, ...) 
  [14:51:57.030]             {
  [14:51:57.030]                 if (substitute) 
  [14:51:57.030]                   expr <- substitute(expr)
  [14:51:57.030]                 if (is.function(workers)) 
  [14:51:57.030]                   workers <- workers()
  [14:51:57.030]                 workers <- as.integer(workers)
  [14:51:57.030]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:51:57.030]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:51:57.030]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:57.030]                     lazy = lazy, seed = seed, globals = globals, 
  [14:51:57.030]                     local = TRUE, label = label, ...))
  [14:51:57.030]                 }
  [14:51:57.030]                 oopts <- options(mc.cores = workers)
  [14:51:57.030]                 on.exit(options(oopts))
  [14:51:57.030]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:51:57.030]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:57.030]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:51:57.030]                   label = label, ...)
  [14:51:57.030]                 if (!future$lazy) 
  [14:51:57.030]                   future <- run(future)
  [14:51:57.030]                 invisible(future)
  [14:51:57.030]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:57.030]         }
  [14:51:57.030]         base::options(...future.oldOptions)
  [14:51:57.030]     })
  [14:51:57.030]     Sys.time
  [14:51:57.030]     if (base::is.na(TRUE)) {
  [14:51:57.030]     }
  [14:51:57.030]     else {
  [14:51:57.030]         base::sink(type = "output", split = FALSE)
  [14:51:57.030]         if (TRUE) {
  [14:51:57.030]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:51:57.030]         }
  [14:51:57.030]         else {
  [14:51:57.030]             ...future.result["stdout"] <- base::list(NULL)
  [14:51:57.030]         }
  [14:51:57.030]         base::close(...future.stdout)
  [14:51:57.030]         ...future.stdout <- NULL
  [14:51:57.030]     }
  [14:51:57.030]     ...future.result$conditions <- ...future.conditions
  [14:51:57.030]     ...future.result
  [14:51:57.030] }
  [14:51:57.039] MultisessionFuture started
  [14:51:57.040] result() for ClusterFuture ...
  [14:51:57.040] receiveMessageFromWorker() for ClusterFuture ...
  [14:51:57.041] - Validating connection of MultisessionFuture
  [14:51:57.212] - received message: FutureResult
  [14:51:57.212] - Received FutureResult
  [14:51:57.213] - Erased future from FutureRegistry
  [14:51:57.213] result() for ClusterFuture ...
  [14:51:57.214] - result already collected: FutureResult
  [14:51:57.214] result() for ClusterFuture ... done
  [14:51:57.215] receiveMessageFromWorker() for ClusterFuture ... done
  [14:51:57.215] result() for ClusterFuture ... done
  [14:51:57.215] result() for ClusterFuture ...
  [14:51:57.216] - result already collected: FutureResult
  [14:51:57.216] result() for ClusterFuture ... done
  [14:51:57.217] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE
  [14:51:57.218] plan(): nbrOfWorkers() = 2
  [14:51:57.219] doFuture() ...
  [14:51:57.225] - dummy globals (as locals): [2] 'a', 'b'
  [14:51:57.226] - R expression:
  [14:51:57.226] {
  [14:51:57.226]     doFuture::registerDoFuture()
  [14:51:57.226]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:57.226]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:57.226]         {
  [14:51:57.226]             a <- NULL
  [14:51:57.226]             b <- NULL
  [14:51:57.226]         }
  [14:51:57.226]         ...future.env <- environment()
  [14:51:57.226]         local({
  [14:51:57.226]             for (name in names(...future.x_jj)) {
  [14:51:57.226]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:57.226]                   inherits = FALSE)
  [14:51:57.226]             }
  [14:51:57.226]         })
  [14:51:57.226]         tryCatch({
  [14:51:57.226]             list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:57.226]                 plan = future::plan("next"))
  [14:51:57.226]         }, error = identity)
  [14:51:57.226]     })
  [14:51:57.226] }
  [14:51:57.228] - identifying globals and packages ...
  [14:51:57.228] getGlobalsAndPackages() ...
  [14:51:57.229] Searching for globals...
  [14:51:57.397] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [14:51:57.403] Searching for globals ... DONE
  [14:51:57.404] Resolving globals: FALSE
  [14:51:57.406] The total size of the 1 globals is 0 bytes (0 bytes)
  [14:51:57.406] - globals: [1] '...future.x_ii'
  [14:51:57.407] 
  [14:51:57.407] getGlobalsAndPackages() ... DONE
  [14:51:57.408] List of 1
  [14:51:57.408]  $ ...future.x_ii: NULL
  [14:51:57.408]  - attr(*, "where")=List of 1
  [14:51:57.408]   ..$ ...future.x_ii:<environment: 0x560014f87b30> 
  [14:51:57.408]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:51:57.408]  - attr(*, "resolved")= logi FALSE
  [14:51:57.408]  - attr(*, "total_size")= num 0
  [14:51:57.417]   - R expression:
  [14:51:57.417] {
  [14:51:57.417]     doFuture::registerDoFuture()
  [14:51:57.417]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:57.417]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:57.417]         {
  [14:51:57.417]             a <- NULL
  [14:51:57.417]             b <- NULL
  [14:51:57.417]         }
  [14:51:57.417]         ...future.env <- environment()
  [14:51:57.417]         local({
  [14:51:57.417]             for (name in names(...future.x_jj)) {
  [14:51:57.417]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:51:57.417]                   inherits = FALSE)
  [14:51:57.417]             }
  [14:51:57.417]         })
  [14:51:57.417]         tryCatch({
  [14:51:57.417]             list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:57.417]                 plan = future::plan("next"))
  [14:51:57.417]         }, error = identity)
  [14:51:57.417]     })
  [14:51:57.417] }
  [14:51:57.418]   - globals: [1] '...future.x_ii'
  [14:51:57.419] List of 1
  [14:51:57.419]  $ ...future.x_ii: NULL
  [14:51:57.419]  - attr(*, "where")=List of 1
  [14:51:57.419]   ..$ ...future.x_ii:<environment: 0x560014f87b30> 
  [14:51:57.419]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:51:57.419]  - attr(*, "resolved")= logi FALSE
  [14:51:57.419]  - attr(*, "total_size")= num 0
  [14:51:57.428]   - packages: [1] 'doFuture'
  [14:51:57.428] - identifying globals and packages ... DONE
  [14:51:57.430] Number of chunks: 2
  [14:51:57.430] Number of futures (= number of chunks): 2
  [14:51:57.431] Launching 2 futures (chunks) ...
  [14:51:57.432] Chunk #1 of 2 ...
  [14:51:57.432]  - Finding globals in 'args_list' chunk #1 ...
  [14:51:57.432] getGlobalsAndPackages() ...
  [14:51:57.433] Searching for globals...
  [14:51:57.434] 
  [14:51:57.434] Searching for globals ... DONE
  [14:51:57.435] - globals: [0] <none>
  [14:51:57.435] getGlobalsAndPackages() ... DONE
  [14:51:57.436] 
  [14:51:57.436] 
  [14:51:57.436]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:51:57.438] getGlobalsAndPackages() ...
  [14:51:57.438] - globals passed as-is: [1] '...future.x_ii'
  [14:51:57.439] Resolving globals: FALSE
  [14:51:57.440] The total size of the 1 globals is 336 bytes (336 bytes)
  [14:51:57.441] - globals: [1] '...future.x_ii'
  [14:51:57.441] 
  [14:51:57.441] getGlobalsAndPackages() ... DONE
  [14:51:57.449] Packages needed by the future expression (n = 1): 'doFuture'
  [14:51:57.450] Packages needed by future strategies (n = 1): 'future'
  [14:51:57.459] {
  [14:51:57.459]     {
  [14:51:57.459]         ...future.startTime <- base::Sys.time()
  [14:51:57.459]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:51:57.459]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:51:57.459]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:51:57.459]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:51:57.459]             future.resolve.recursive = NULL, width = 80L)
  [14:51:57.459]         {
  [14:51:57.459]             {
  [14:51:57.459]                 {
  [14:51:57.459]                   {
  [14:51:57.459]                     base::local({
  [14:51:57.459]                       has_future <- base::requireNamespace("future", 
  [14:51:57.459]                         quietly = TRUE)
  [14:51:57.459]                       version <- if (has_future) 
  [14:51:57.459]                         utils::packageVersion("future")
  [14:51:57.459]                       else NULL
  [14:51:57.459]                       if (!has_future || version < "1.8.0") {
  [14:51:57.459]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:51:57.459]                           "", base::R.version$version.string), 
  [14:51:57.459]                           platform = base::sprintf("%s (%s-bit)", 
  [14:51:57.459]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:51:57.459]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:51:57.459]                             "release", "version")], collapse = " "), 
  [14:51:57.459]                           hostname = base::Sys.info()[["nodename"]])
  [14:51:57.459]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:51:57.459]                           info)
  [14:51:57.459]                         info <- base::paste(info, collapse = "; ")
  [14:51:57.459]                         if (!has_future) {
  [14:51:57.459]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:51:57.459]                             info)
  [14:51:57.459]                         }
  [14:51:57.459]                         else {
  [14:51:57.459]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:51:57.459]                             info, version)
  [14:51:57.459]                         }
  [14:51:57.459]                         base::stop(msg)
  [14:51:57.459]                       }
  [14:51:57.459]                     })
  [14:51:57.459]                   }
  [14:51:57.459]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:51:57.459]                   base::options(mc.cores = 1L)
  [14:51:57.459]                 }
  [14:51:57.459]                 base::local({
  [14:51:57.459]                   for (pkg in c("doFuture", "future")) {
  [14:51:57.459]                     base::loadNamespace(pkg)
  [14:51:57.459]                     base::library(pkg, character.only = TRUE)
  [14:51:57.459]                   }
  [14:51:57.459]                 })
  [14:51:57.459]             }
  [14:51:57.459]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:51:57.459]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:57.459]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:51:57.459]                 earlySignal = FALSE, label = NULL, ...) 
  [14:51:57.459]             {
  [14:51:57.459]                 if (substitute) 
  [14:51:57.459]                   expr <- substitute(expr)
  [14:51:57.459]                 if (is.function(workers)) 
  [14:51:57.459]                   workers <- workers()
  [14:51:57.459]                 workers <- as.integer(workers)
  [14:51:57.459]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:51:57.459]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:51:57.459]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:57.459]                     lazy = lazy, seed = seed, globals = globals, 
  [14:51:57.459]                     local = TRUE, label = label, ...))
  [14:51:57.459]                 }
  [14:51:57.459]                 oopts <- options(mc.cores = workers)
  [14:51:57.459]                 on.exit(options(oopts))
  [14:51:57.459]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:51:57.459]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:57.459]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:51:57.459]                   label = label, ...)
  [14:51:57.459]                 if (!future$lazy) 
  [14:51:57.459]                   future <- run(future)
  [14:51:57.459]                 invisible(future)
  [14:51:57.459]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:57.459]         }
  [14:51:57.459]     }
  [14:51:57.459]     if (base::is.na(TRUE)) {
  [14:51:57.459]     }
  [14:51:57.459]     else {
  [14:51:57.459]         if (TRUE) {
  [14:51:57.459]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:51:57.459]                 open = "w")
  [14:51:57.459]         }
  [14:51:57.459]         else {
  [14:51:57.459]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:51:57.459]                 windows = "NUL", "/dev/null"), open = "w")
  [14:51:57.459]         }
  [14:51:57.459]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:51:57.459]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:51:57.459]             base::sink(type = "output", split = FALSE)
  [14:51:57.459]             base::close(...future.stdout)
  [14:51:57.459]         }, add = TRUE)
  [14:51:57.459]     }
  [14:51:57.459]     ...future.frame <- base::sys.nframe()
  [14:51:57.459]     ...future.conditions <- base::list()
  [14:51:57.459]     ...future.rng <- base::globalenv()$.Random.seed
  [14:51:57.459]     ...future.result <- base::tryCatch({
  [14:51:57.459]         base::withCallingHandlers({
  [14:51:57.459]             ...future.value <- base::withVisible(base::local({
  [14:51:57.459]                 ...future.sendCondition <- local({
  [14:51:57.459]                   sendCondition <- NULL
  [14:51:57.459]                   function(frame = 1L) {
  [14:51:57.459]                     if (is.function(sendCondition)) 
  [14:51:57.459]                       return(sendCondition)
  [14:51:57.459]                     ns <- getNamespace("parallel")
  [14:51:57.459]                     if (exists("sendData", mode = "function", 
  [14:51:57.459]                       envir = ns)) {
  [14:51:57.459]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:51:57.459]                         envir = ns)
  [14:51:57.459]                       envir <- sys.frame(frame)
  [14:51:57.459]                       master <- NULL
  [14:51:57.459]                       while (!identical(envir, .GlobalEnv) && 
  [14:51:57.459]                         !identical(envir, emptyenv())) {
  [14:51:57.459]                         if (exists("master", mode = "list", envir = envir, 
  [14:51:57.459]                           inherits = FALSE)) {
  [14:51:57.459]                           master <- get("master", mode = "list", 
  [14:51:57.459]                             envir = envir, inherits = FALSE)
  [14:51:57.459]                           if (inherits(master, "SOCKnode")) {
  [14:51:57.459]                             sendCondition <<- function(cond) {
  [14:51:57.459]                               data <- list(type = "VALUE", value = cond, 
  [14:51:57.459]                                 success = TRUE)
  [14:51:57.459]                               parallel_sendData(master, data)
  [14:51:57.459]                             }
  [14:51:57.459]                             return(sendCondition)
  [14:51:57.459]                           }
  [14:51:57.459]                         }
  [14:51:57.459]                         frame <- frame + 1L
  [14:51:57.459]                         envir <- sys.frame(frame)
  [14:51:57.459]                       }
  [14:51:57.459]                     }
  [14:51:57.459]                     sendCondition <<- function(cond) NULL
  [14:51:57.459]                   }
  [14:51:57.459]                 })
  [14:51:57.459]                 withCallingHandlers({
  [14:51:57.459]                   {
  [14:51:57.459]                     doFuture::registerDoFuture()
  [14:51:57.459]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:57.459]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:57.459]                       {
  [14:51:57.459]                         a <- NULL
  [14:51:57.459]                         b <- NULL
  [14:51:57.459]                       }
  [14:51:57.459]                       ...future.env <- environment()
  [14:51:57.459]                       local({
  [14:51:57.459]                         for (name in names(...future.x_jj)) {
  [14:51:57.459]                           assign(name, ...future.x_jj[[name]], 
  [14:51:57.459]                             envir = ...future.env, inherits = FALSE)
  [14:51:57.459]                         }
  [14:51:57.459]                       })
  [14:51:57.459]                       tryCatch({
  [14:51:57.459]                         list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:57.459]                           plan = future::plan("next"))
  [14:51:57.459]                       }, error = identity)
  [14:51:57.459]                     })
  [14:51:57.459]                   }
  [14:51:57.459]                 }, immediateCondition = function(cond) {
  [14:51:57.459]                   sendCondition <- ...future.sendCondition()
  [14:51:57.459]                   sendCondition(cond)
  [14:51:57.459]                   muffleCondition <- function (cond) 
  [14:51:57.459]                   {
  [14:51:57.459]                     inherits <- base::inherits
  [14:51:57.459]                     invokeRestart <- base::invokeRestart
  [14:51:57.459]                     muffled <- FALSE
  [14:51:57.459]                     if (inherits(cond, "message")) {
  [14:51:57.459]                       invokeRestart("muffleMessage")
  [14:51:57.459]                       muffled <- TRUE
  [14:51:57.459]                     }
  [14:51:57.459]                     else if (inherits(cond, "warning")) {
  [14:51:57.459]                       invokeRestart("muffleWarning")
  [14:51:57.459]                       muffled <- TRUE
  [14:51:57.459]                     }
  [14:51:57.459]                     else if (inherits(cond, "condition")) {
  [14:51:57.459]                       computeRestarts <- base::computeRestarts
  [14:51:57.459]                       grepl <- base::grepl
  [14:51:57.459]                       is.null <- base::is.null
  [14:51:57.459]                       restarts <- computeRestarts(cond)
  [14:51:57.459]                       for (restart in restarts) {
  [14:51:57.459]                         name <- restart$name
  [14:51:57.459]                         if (is.null(name)) 
  [14:51:57.459]                           next
  [14:51:57.459]                         if (!grepl("^muffle", name)) 
  [14:51:57.459]                           next
  [14:51:57.459]                         invokeRestart(restart)
  [14:51:57.459]                         muffled <- TRUE
  [14:51:57.459]                         break
  [14:51:57.459]                       }
  [14:51:57.459]                     }
  [14:51:57.459]                     invisible(muffled)
  [14:51:57.459]                   }
  [14:51:57.459]                   muffleCondition(cond)
  [14:51:57.459]                 })
  [14:51:57.459]             }))
  [14:51:57.459]             future::FutureResult(value = ...future.value$value, 
  [14:51:57.459]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:57.459]                   ...future.rng), started = ...future.startTime, 
  [14:51:57.459]                 version = "1.8")
  [14:51:57.459]         }, condition = base::local({
  [14:51:57.459]             c <- base::c
  [14:51:57.459]             inherits <- base::inherits
  [14:51:57.459]             invokeRestart <- base::invokeRestart
  [14:51:57.459]             length <- base::length
  [14:51:57.459]             list <- base::list
  [14:51:57.459]             seq.int <- base::seq.int
  [14:51:57.459]             signalCondition <- base::signalCondition
  [14:51:57.459]             sys.calls <- base::sys.calls
  [14:51:57.459]             Sys.time <- base::Sys.time
  [14:51:57.459]             `[[` <- base::`[[`
  [14:51:57.459]             `+` <- base::`+`
  [14:51:57.459]             `<<-` <- base::`<<-`
  [14:51:57.459]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:51:57.459]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:51:57.459]                   3L)]
  [14:51:57.459]             }
  [14:51:57.459]             function(cond) {
  [14:51:57.459]                 if (inherits(cond, "error")) {
  [14:51:57.459]                   sessionInformation <- function() {
  [14:51:57.459]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:51:57.459]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:51:57.459]                       search = base::search(), system = base::Sys.info())
  [14:51:57.459]                   }
  [14:51:57.459]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:57.459]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:51:57.459]                     cond$call), session = sessionInformation(), 
  [14:51:57.459]                     timestamp = Sys.time(), signaled = 0L)
  [14:51:57.459]                   signalCondition(cond)
  [14:51:57.459]                 }
  [14:51:57.459]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:51:57.459]                 ))) {
  [14:51:57.459]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:51:57.459]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:57.459]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:51:57.459]                   if (!signal) {
  [14:51:57.459]                     muffleCondition <- function (cond) 
  [14:51:57.459]                     {
  [14:51:57.459]                       inherits <- base::inherits
  [14:51:57.459]                       invokeRestart <- base::invokeRestart
  [14:51:57.459]                       muffled <- FALSE
  [14:51:57.459]                       if (inherits(cond, "message")) {
  [14:51:57.459]                         invokeRestart("muffleMessage")
  [14:51:57.459]                         muffled <- TRUE
  [14:51:57.459]                       }
  [14:51:57.459]                       else if (inherits(cond, "warning")) {
  [14:51:57.459]                         invokeRestart("muffleWarning")
  [14:51:57.459]                         muffled <- TRUE
  [14:51:57.459]                       }
  [14:51:57.459]                       else if (inherits(cond, "condition")) {
  [14:51:57.459]                         computeRestarts <- base::computeRestarts
  [14:51:57.459]                         grepl <- base::grepl
  [14:51:57.459]                         is.null <- base::is.null
  [14:51:57.459]                         restarts <- computeRestarts(cond)
  [14:51:57.459]                         for (restart in restarts) {
  [14:51:57.459]                           name <- restart$name
  [14:51:57.459]                           if (is.null(name)) 
  [14:51:57.459]                             next
  [14:51:57.459]                           if (!grepl("^muffle", name)) 
  [14:51:57.459]                             next
  [14:51:57.459]                           invokeRestart(restart)
  [14:51:57.459]                           muffled <- TRUE
  [14:51:57.459]                           break
  [14:51:57.459]                         }
  [14:51:57.459]                       }
  [14:51:57.459]                       invisible(muffled)
  [14:51:57.459]                     }
  [14:51:57.459]                     muffleCondition(cond)
  [14:51:57.459]                   }
  [14:51:57.459]                 }
  [14:51:57.459]             }
  [14:51:57.459]         }))
  [14:51:57.459]     }, error = function(ex) {
  [14:51:57.459]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:51:57.459]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:57.459]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:51:57.459]     }, finally = {
  [14:51:57.459]         {
  [14:51:57.459]             {
  [14:51:57.459]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:51:57.459]             }
  [14:51:57.459]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:51:57.459]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:57.459]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:51:57.459]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:51:57.459]                 ...) 
  [14:51:57.459]             {
  [14:51:57.459]                 if (substitute) 
  [14:51:57.459]                   expr <- substitute(expr)
  [14:51:57.459]                 if (is.function(workers)) 
  [14:51:57.459]                   workers <- workers()
  [14:51:57.459]                 workers <- as.integer(workers)
  [14:51:57.459]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:51:57.459]                   workers >= 1)
  [14:51:57.459]                 if (workers == 1L) {
  [14:51:57.459]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:57.459]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:51:57.459]                     local = TRUE, label = label, ...))
  [14:51:57.459]                 }
  [14:51:57.459]                 workers <- ClusterRegistry("start", workers = workers)
  [14:51:57.459]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:51:57.459]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:57.459]                   globals = globals, persistent = persistent, 
  [14:51:57.459]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:51:57.459]                   label = label, ...)
  [14:51:57.459]                 if (!future$lazy) 
  [14:51:57.459]                   future <- run(future)
  [14:51:57.459]                 invisible(future)
  [14:51:57.459]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:51:57.459]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:51:57.459]                 earlySignal = FALSE, label = NULL, ...) 
  [14:51:57.459]             {
  [14:51:57.459]                 if (substitute) 
  [14:51:57.459]                   expr <- substitute(expr)
  [14:51:57.459]                 if (is.function(workers)) 
  [14:51:57.459]                   workers <- workers()
  [14:51:57.459]                 workers <- as.integer(workers)
  [14:51:57.459]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:51:57.459]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:51:57.459]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:57.459]                     lazy = lazy, seed = seed, globals = globals, 
  [14:51:57.459]                     local = TRUE, label = label, ...))
  [14:51:57.459]                 }
  [14:51:57.459]                 oopts <- options(mc.cores = workers)
  [14:51:57.459]                 on.exit(options(oopts))
  [14:51:57.459]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:51:57.459]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:57.459]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:51:57.459]                   label = label, ...)
  [14:51:57.459]                 if (!future$lazy) 
  [14:51:57.459]                   future <- run(future)
  [14:51:57.459]                 invisible(future)
  [14:51:57.459]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:57.459]         }
  [14:51:57.459]         base::options(...future.oldOptions)
  [14:51:57.459]     })
  [14:51:57.459]     Sys.time
  [14:51:57.459]     if (base::is.na(TRUE)) {
  [14:51:57.459]     }
  [14:51:57.459]     else {
  [14:51:57.459]         base::sink(type = "output", split = FALSE)
  [14:51:57.459]         if (TRUE) {
  [14:51:57.459]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:51:57.459]         }
  [14:51:57.459]         else {
  [14:51:57.459]             ...future.result["stdout"] <- base::list(NULL)
  [14:51:57.459]         }
  [14:51:57.459]         base::close(...future.stdout)
  [14:51:57.459]         ...future.stdout <- NULL
  [14:51:57.459]     }
  [14:51:57.459]     ...future.result$conditions <- ...future.conditions
  [14:51:57.459]     ...future.result
  [14:51:57.459] }
  [14:51:57.469] Exporting 1 global objects (336 bytes) to cluster node #1 ...
  [14:51:57.470] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ...
  [14:51:57.471] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ... DONE
  [14:51:57.472] Exporting 1 global objects (336 bytes) to cluster node #1 ... DONE
  [14:51:57.474] MultisessionFuture started
  [14:51:57.474] Chunk #1 of 2 ... DONE
  [14:51:57.475] Chunk #2 of 2 ...
  [14:51:57.475]  - Finding globals in 'args_list' chunk #2 ...
  [14:51:57.475] getGlobalsAndPackages() ...
  [14:51:57.476] Searching for globals...
  [14:51:57.477] 
  [14:51:57.477] Searching for globals ... DONE
  [14:51:57.478] - globals: [0] <none>
  [14:51:57.478] getGlobalsAndPackages() ... DONE
  [14:51:57.481] 
  [14:51:57.481] 
  [14:51:57.482]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:51:57.488] getGlobalsAndPackages() ...
  [14:51:57.488] - globals passed as-is: [1] '...future.x_ii'
  [14:51:57.489] Resolving globals: FALSE
  [14:51:57.490] The total size of the 1 globals is 336 bytes (336 bytes)
  [14:51:57.491] - globals: [1] '...future.x_ii'
  [14:51:57.491] 
  [14:51:57.492] getGlobalsAndPackages() ... DONE
  [14:51:57.498] Packages needed by the future expression (n = 1): 'doFuture'
  [14:51:57.499] Packages needed by future strategies (n = 1): 'future'
  [14:51:57.508] {
  [14:51:57.508]     {
  [14:51:57.508]         ...future.startTime <- base::Sys.time()
  [14:51:57.508]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:51:57.508]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:51:57.508]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:51:57.508]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:51:57.508]             future.resolve.recursive = NULL, width = 80L)
  [14:51:57.508]         {
  [14:51:57.508]             {
  [14:51:57.508]                 {
  [14:51:57.508]                   {
  [14:51:57.508]                     base::local({
  [14:51:57.508]                       has_future <- base::requireNamespace("future", 
  [14:51:57.508]                         quietly = TRUE)
  [14:51:57.508]                       version <- if (has_future) 
  [14:51:57.508]                         utils::packageVersion("future")
  [14:51:57.508]                       else NULL
  [14:51:57.508]                       if (!has_future || version < "1.8.0") {
  [14:51:57.508]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:51:57.508]                           "", base::R.version$version.string), 
  [14:51:57.508]                           platform = base::sprintf("%s (%s-bit)", 
  [14:51:57.508]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:51:57.508]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:51:57.508]                             "release", "version")], collapse = " "), 
  [14:51:57.508]                           hostname = base::Sys.info()[["nodename"]])
  [14:51:57.508]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:51:57.508]                           info)
  [14:51:57.508]                         info <- base::paste(info, collapse = "; ")
  [14:51:57.508]                         if (!has_future) {
  [14:51:57.508]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:51:57.508]                             info)
  [14:51:57.508]                         }
  [14:51:57.508]                         else {
  [14:51:57.508]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:51:57.508]                             info, version)
  [14:51:57.508]                         }
  [14:51:57.508]                         base::stop(msg)
  [14:51:57.508]                       }
  [14:51:57.508]                     })
  [14:51:57.508]                   }
  [14:51:57.508]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:51:57.508]                   base::options(mc.cores = 1L)
  [14:51:57.508]                 }
  [14:51:57.508]                 base::local({
  [14:51:57.508]                   for (pkg in c("doFuture", "future")) {
  [14:51:57.508]                     base::loadNamespace(pkg)
  [14:51:57.508]                     base::library(pkg, character.only = TRUE)
  [14:51:57.508]                   }
  [14:51:57.508]                 })
  [14:51:57.508]             }
  [14:51:57.508]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:51:57.508]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:57.508]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:51:57.508]                 earlySignal = FALSE, label = NULL, ...) 
  [14:51:57.508]             {
  [14:51:57.508]                 if (substitute) 
  [14:51:57.508]                   expr <- substitute(expr)
  [14:51:57.508]                 if (is.function(workers)) 
  [14:51:57.508]                   workers <- workers()
  [14:51:57.508]                 workers <- as.integer(workers)
  [14:51:57.508]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:51:57.508]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:51:57.508]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:57.508]                     lazy = lazy, seed = seed, globals = globals, 
  [14:51:57.508]                     local = TRUE, label = label, ...))
  [14:51:57.508]                 }
  [14:51:57.508]                 oopts <- options(mc.cores = workers)
  [14:51:57.508]                 on.exit(options(oopts))
  [14:51:57.508]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:51:57.508]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:57.508]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:51:57.508]                   label = label, ...)
  [14:51:57.508]                 if (!future$lazy) 
  [14:51:57.508]                   future <- run(future)
  [14:51:57.508]                 invisible(future)
  [14:51:57.508]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:57.508]         }
  [14:51:57.508]     }
  [14:51:57.508]     if (base::is.na(TRUE)) {
  [14:51:57.508]     }
  [14:51:57.508]     else {
  [14:51:57.508]         if (TRUE) {
  [14:51:57.508]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:51:57.508]                 open = "w")
  [14:51:57.508]         }
  [14:51:57.508]         else {
  [14:51:57.508]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:51:57.508]                 windows = "NUL", "/dev/null"), open = "w")
  [14:51:57.508]         }
  [14:51:57.508]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:51:57.508]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:51:57.508]             base::sink(type = "output", split = FALSE)
  [14:51:57.508]             base::close(...future.stdout)
  [14:51:57.508]         }, add = TRUE)
  [14:51:57.508]     }
  [14:51:57.508]     ...future.frame <- base::sys.nframe()
  [14:51:57.508]     ...future.conditions <- base::list()
  [14:51:57.508]     ...future.rng <- base::globalenv()$.Random.seed
  [14:51:57.508]     ...future.result <- base::tryCatch({
  [14:51:57.508]         base::withCallingHandlers({
  [14:51:57.508]             ...future.value <- base::withVisible(base::local({
  [14:51:57.508]                 ...future.sendCondition <- local({
  [14:51:57.508]                   sendCondition <- NULL
  [14:51:57.508]                   function(frame = 1L) {
  [14:51:57.508]                     if (is.function(sendCondition)) 
  [14:51:57.508]                       return(sendCondition)
  [14:51:57.508]                     ns <- getNamespace("parallel")
  [14:51:57.508]                     if (exists("sendData", mode = "function", 
  [14:51:57.508]                       envir = ns)) {
  [14:51:57.508]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:51:57.508]                         envir = ns)
  [14:51:57.508]                       envir <- sys.frame(frame)
  [14:51:57.508]                       master <- NULL
  [14:51:57.508]                       while (!identical(envir, .GlobalEnv) && 
  [14:51:57.508]                         !identical(envir, emptyenv())) {
  [14:51:57.508]                         if (exists("master", mode = "list", envir = envir, 
  [14:51:57.508]                           inherits = FALSE)) {
  [14:51:57.508]                           master <- get("master", mode = "list", 
  [14:51:57.508]                             envir = envir, inherits = FALSE)
  [14:51:57.508]                           if (inherits(master, "SOCKnode")) {
  [14:51:57.508]                             sendCondition <<- function(cond) {
  [14:51:57.508]                               data <- list(type = "VALUE", value = cond, 
  [14:51:57.508]                                 success = TRUE)
  [14:51:57.508]                               parallel_sendData(master, data)
  [14:51:57.508]                             }
  [14:51:57.508]                             return(sendCondition)
  [14:51:57.508]                           }
  [14:51:57.508]                         }
  [14:51:57.508]                         frame <- frame + 1L
  [14:51:57.508]                         envir <- sys.frame(frame)
  [14:51:57.508]                       }
  [14:51:57.508]                     }
  [14:51:57.508]                     sendCondition <<- function(cond) NULL
  [14:51:57.508]                   }
  [14:51:57.508]                 })
  [14:51:57.508]                 withCallingHandlers({
  [14:51:57.508]                   {
  [14:51:57.508]                     doFuture::registerDoFuture()
  [14:51:57.508]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:51:57.508]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:51:57.508]                       {
  [14:51:57.508]                         a <- NULL
  [14:51:57.508]                         b <- NULL
  [14:51:57.508]                       }
  [14:51:57.508]                       ...future.env <- environment()
  [14:51:57.508]                       local({
  [14:51:57.508]                         for (name in names(...future.x_jj)) {
  [14:51:57.508]                           assign(name, ...future.x_jj[[name]], 
  [14:51:57.508]                             envir = ...future.env, inherits = FALSE)
  [14:51:57.508]                         }
  [14:51:57.508]                       })
  [14:51:57.508]                       tryCatch({
  [14:51:57.508]                         list(a = a, b = b, plan_b = future::plan("list"), 
  [14:51:57.508]                           plan = future::plan("next"))
  [14:51:57.508]                       }, error = identity)
  [14:51:57.508]                     })
  [14:51:57.508]                   }
  [14:51:57.508]                 }, immediateCondition = function(cond) {
  [14:51:57.508]                   sendCondition <- ...future.sendCondition()
  [14:51:57.508]                   sendCondition(cond)
  [14:51:57.508]                   muffleCondition <- function (cond) 
  [14:51:57.508]                   {
  [14:51:57.508]                     inherits <- base::inherits
  [14:51:57.508]                     invokeRestart <- base::invokeRestart
  [14:51:57.508]                     muffled <- FALSE
  [14:51:57.508]                     if (inherits(cond, "message")) {
  [14:51:57.508]                       invokeRestart("muffleMessage")
  [14:51:57.508]                       muffled <- TRUE
  [14:51:57.508]                     }
  [14:51:57.508]                     else if (inherits(cond, "warning")) {
  [14:51:57.508]                       invokeRestart("muffleWarning")
  [14:51:57.508]                       muffled <- TRUE
  [14:51:57.508]                     }
  [14:51:57.508]                     else if (inherits(cond, "condition")) {
  [14:51:57.508]                       computeRestarts <- base::computeRestarts
  [14:51:57.508]                       grepl <- base::grepl
  [14:51:57.508]                       is.null <- base::is.null
  [14:51:57.508]                       restarts <- computeRestarts(cond)
  [14:51:57.508]                       for (restart in restarts) {
  [14:51:57.508]                         name <- restart$name
  [14:51:57.508]                         if (is.null(name)) 
  [14:51:57.508]                           next
  [14:51:57.508]                         if (!grepl("^muffle", name)) 
  [14:51:57.508]                           next
  [14:51:57.508]                         invokeRestart(restart)
  [14:51:57.508]                         muffled <- TRUE
  [14:51:57.508]                         break
  [14:51:57.508]                       }
  [14:51:57.508]                     }
  [14:51:57.508]                     invisible(muffled)
  [14:51:57.508]                   }
  [14:51:57.508]                   muffleCondition(cond)
  [14:51:57.508]                 })
  [14:51:57.508]             }))
  [14:51:57.508]             future::FutureResult(value = ...future.value$value, 
  [14:51:57.508]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:57.508]                   ...future.rng), started = ...future.startTime, 
  [14:51:57.508]                 version = "1.8")
  [14:51:57.508]         }, condition = base::local({
  [14:51:57.508]             c <- base::c
  [14:51:57.508]             inherits <- base::inherits
  [14:51:57.508]             invokeRestart <- base::invokeRestart
  [14:51:57.508]             length <- base::length
  [14:51:57.508]             list <- base::list
  [14:51:57.508]             seq.int <- base::seq.int
  [14:51:57.508]             signalCondition <- base::signalCondition
  [14:51:57.508]             sys.calls <- base::sys.calls
  [14:51:57.508]             Sys.time <- base::Sys.time
  [14:51:57.508]             `[[` <- base::`[[`
  [14:51:57.508]             `+` <- base::`+`
  [14:51:57.508]             `<<-` <- base::`<<-`
  [14:51:57.508]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:51:57.508]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:51:57.508]                   3L)]
  [14:51:57.508]             }
  [14:51:57.508]             function(cond) {
  [14:51:57.508]                 if (inherits(cond, "error")) {
  [14:51:57.508]                   sessionInformation <- function() {
  [14:51:57.508]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:51:57.508]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:51:57.508]                       search = base::search(), system = base::Sys.info())
  [14:51:57.508]                   }
  [14:51:57.508]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:57.508]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:51:57.508]                     cond$call), session = sessionInformation(), 
  [14:51:57.508]                     timestamp = Sys.time(), signaled = 0L)
  [14:51:57.508]                   signalCondition(cond)
  [14:51:57.508]                 }
  [14:51:57.508]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:51:57.508]                 ))) {
  [14:51:57.508]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:51:57.508]                   ...future.conditions[[length(...future.conditions) + 
  [14:51:57.508]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:51:57.508]                   if (!signal) {
  [14:51:57.508]                     muffleCondition <- function (cond) 
  [14:51:57.508]                     {
  [14:51:57.508]                       inherits <- base::inherits
  [14:51:57.508]                       invokeRestart <- base::invokeRestart
  [14:51:57.508]                       muffled <- FALSE
  [14:51:57.508]                       if (inherits(cond, "message")) {
  [14:51:57.508]                         invokeRestart("muffleMessage")
  [14:51:57.508]                         muffled <- TRUE
  [14:51:57.508]                       }
  [14:51:57.508]                       else if (inherits(cond, "warning")) {
  [14:51:57.508]                         invokeRestart("muffleWarning")
  [14:51:57.508]                         muffled <- TRUE
  [14:51:57.508]                       }
  [14:51:57.508]                       else if (inherits(cond, "condition")) {
  [14:51:57.508]                         computeRestarts <- base::computeRestarts
  [14:51:57.508]                         grepl <- base::grepl
  [14:51:57.508]                         is.null <- base::is.null
  [14:51:57.508]                         restarts <- computeRestarts(cond)
  [14:51:57.508]                         for (restart in restarts) {
  [14:51:57.508]                           name <- restart$name
  [14:51:57.508]                           if (is.null(name)) 
  [14:51:57.508]                             next
  [14:51:57.508]                           if (!grepl("^muffle", name)) 
  [14:51:57.508]                             next
  [14:51:57.508]                           invokeRestart(restart)
  [14:51:57.508]                           muffled <- TRUE
  [14:51:57.508]                           break
  [14:51:57.508]                         }
  [14:51:57.508]                       }
  [14:51:57.508]                       invisible(muffled)
  [14:51:57.508]                     }
  [14:51:57.508]                     muffleCondition(cond)
  [14:51:57.508]                   }
  [14:51:57.508]                 }
  [14:51:57.508]             }
  [14:51:57.508]         }))
  [14:51:57.508]     }, error = function(ex) {
  [14:51:57.508]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:51:57.508]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:51:57.508]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:51:57.508]     }, finally = {
  [14:51:57.508]         {
  [14:51:57.508]             {
  [14:51:57.508]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:51:57.508]             }
  [14:51:57.508]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:51:57.508]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:51:57.508]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:51:57.508]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:51:57.508]                 ...) 
  [14:51:57.508]             {
  [14:51:57.508]                 if (substitute) 
  [14:51:57.508]                   expr <- substitute(expr)
  [14:51:57.508]                 if (is.function(workers)) 
  [14:51:57.508]                   workers <- workers()
  [14:51:57.508]                 workers <- as.integer(workers)
  [14:51:57.508]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:51:57.508]                   workers >= 1)
  [14:51:57.508]                 if (workers == 1L) {
  [14:51:57.508]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:57.508]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:51:57.508]                     local = TRUE, label = label, ...))
  [14:51:57.508]                 }
  [14:51:57.508]                 workers <- ClusterRegistry("start", workers = workers)
  [14:51:57.508]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:51:57.508]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:57.508]                   globals = globals, persistent = persistent, 
  [14:51:57.508]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:51:57.508]                   label = label, ...)
  [14:51:57.508]                 if (!future$lazy) 
  [14:51:57.508]                   future <- run(future)
  [14:51:57.508]                 invisible(future)
  [14:51:57.508]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:51:57.508]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:51:57.508]                 earlySignal = FALSE, label = NULL, ...) 
  [14:51:57.508]             {
  [14:51:57.508]                 if (substitute) 
  [14:51:57.508]                   expr <- substitute(expr)
  [14:51:57.508]                 if (is.function(workers)) 
  [14:51:57.508]                   workers <- workers()
  [14:51:57.508]                 workers <- as.integer(workers)
  [14:51:57.508]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:51:57.508]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:51:57.508]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:51:57.508]                     lazy = lazy, seed = seed, globals = globals, 
  [14:51:57.508]                     local = TRUE, label = label, ...))
  [14:51:57.508]                 }
  [14:51:57.508]                 oopts <- options(mc.cores = workers)
  [14:51:57.508]                 on.exit(options(oopts))
  [14:51:57.508]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:51:57.508]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:51:57.508]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:51:57.508]                   label = label, ...)
  [14:51:57.508]                 if (!future$lazy) 
  [14:51:57.508]                   future <- run(future)
  [14:51:57.508]                 invisible(future)
  [14:51:57.508]             }), .cleanup = FALSE, .init = FALSE)
  [14:51:57.508]         }
  [14:51:57.508]         base::options(...future.oldOptions)
  [14:51:57.508]     })
  [14:51:57.508]     Sys.time
  [14:51:57.508]     if (base::is.na(TRUE)) {
  [14:51:57.508]     }
  [14:51:57.508]     else {
  [14:51:57.508]         base::sink(type = "output", split = FALSE)
  [14:51:57.508]         if (TRUE) {
  [14:51:57.508]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:51:57.508]         }
  [14:51:57.508]         else {
  [14:51:57.508]             ...future.result["stdout"] <- base::list(NULL)
  [14:51:57.508]         }
  [14:51:57.508]         base::close(...future.stdout)
  [14:51:57.508]         ...future.stdout <- NULL
  [14:51:57.508]     }
  [14:51:57.508]     ...future.result$conditions <- ...future.conditions
  [14:51:57.508]     ...future.result
  [14:51:57.508] }
  [14:51:57.541] Exporting 1 global objects (336 bytes) to cluster node #2 ...
  [14:51:57.542] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ...
  [14:51:57.543] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ... DONE
  [14:51:57.544] Exporting 1 global objects (336 bytes) to cluster node #2 ... DONE
  [14:51:57.546] MultisessionFuture started
  [14:51:57.546] Chunk #2 of 2 ... DONE
  [14:51:57.546] Launching 2 futures (chunks) ... DONE
  [14:51:57.547] - resolving futures
  [14:51:57.547]   - gathering results & relaying conditions (except errors)
  [14:51:57.548] resolve() on list ...
  [14:51:57.548]  recursive: 0
  [14:51:57.548]  length: 2
  [14:51:57.549] 
  [14:51:57.712] receiveMessageFromWorker() for ClusterFuture ...
  [14:51:57.713] - Validating connection of MultisessionFuture
  [14:51:57.755] - received message: FutureResult
  [14:51:57.756] - Received FutureResult
  [14:51:57.756] - Erased future from FutureRegistry
  [14:51:57.757] result() for ClusterFuture ...
  [14:51:57.757] - result already collected: FutureResult
  [14:51:57.758] result() for ClusterFuture ... done
  [14:51:57.758] receiveMessageFromWorker() for ClusterFuture ... done
  [14:51:57.758] Future #1
  [14:51:57.759] result() for ClusterFuture ...
  [14:51:57.759] - result already collected: FutureResult
  [14:51:57.759] result() for ClusterFuture ... done
  [14:51:57.760] result() for ClusterFuture ...
  [14:51:57.760] - result already collected: FutureResult
  [14:51:57.760] result() for ClusterFuture ... done
  [14:51:57.761] signalConditionsASAP(MultisessionFuture, pos=1) ...
  [14:51:57.761] - nx: 2
  [14:51:57.762] - relay: TRUE
  [14:51:57.762] - stdout: TRUE
  [14:51:57.762] - signal: TRUE
  [14:51:57.762] - resignal: FALSE
  [14:51:57.763] - force: FALSE
  [14:51:57.763] - relayed: [n=2] FALSE, FALSE
  [14:51:57.763] - queued futures: [n=2] FALSE, FALSE
  [14:51:57.764]  - until=1
  [14:51:57.764]  - relaying element #1
  [14:51:57.765] result() for ClusterFuture ...
  [14:51:57.765] - result already collected: FutureResult
  [14:51:57.765] result() for ClusterFuture ... done
  [14:51:57.766] result() for ClusterFuture ...
  [14:51:57.766] - result already collected: FutureResult
  [14:51:57.766] result() for ClusterFuture ... done
  [14:51:57.767] result() for ClusterFuture ...
  [14:51:57.767] - result already collected: FutureResult
  [14:51:57.768] result() for ClusterFuture ... done
  [14:51:57.768] result() for ClusterFuture ...
  [14:51:57.769] - result already collected: FutureResult
  [14:51:57.769] result() for ClusterFuture ... done
  [14:51:57.769] - relayed: [n=2] TRUE, FALSE
  [14:51:57.770] - queued futures: [n=2] TRUE, FALSE
  [14:51:57.770] signalConditionsASAP(MultisessionFuture, pos=1) ... done
  [14:51:57.772]  length: 1 (resolved future 1)
  [14:51:57.797] receiveMessageFromWorker() for ClusterFuture ...
  [14:51:57.798] - Validating connection of MultisessionFuture
  [14:51:57.843] - received message: FutureResult
  [14:51:57.844] - Received FutureResult
  [14:51:57.844] - Erased future from FutureRegistry
  [14:51:57.845] result() for ClusterFuture ...
  [14:51:57.845] - result already collected: FutureResult
  [14:51:57.846] result() for ClusterFuture ... done
  [14:51:57.846] receiveMessageFromWorker() for ClusterFuture ... done
  [14:51:57.846] Future #2
  [14:51:57.847] result() for ClusterFuture ...
  [14:51:57.847] - result already collected: FutureResult
  [14:51:57.848] result() for ClusterFuture ... done
  [14:51:57.848] result() for ClusterFuture ...
  [14:51:57.848] - result already collected: FutureResult
  [14:51:57.849] result() for ClusterFuture ... done
  [14:51:57.849] signalConditionsASAP(MultisessionFuture, pos=2) ...
  [14:51:57.849] - nx: 2
  [14:51:57.850] - relay: TRUE
  [14:51:57.850] - stdout: TRUE
  [14:51:57.850] - signal: TRUE
  [14:51:57.851] - resignal: FALSE
  [14:51:57.851] - force: FALSE
  [14:51:57.851] - relayed: [n=2] TRUE, FALSE
  [14:51:57.852] - queued futures: [n=2] TRUE, FALSE
  [14:51:57.852]  - until=2
  [14:51:57.853]  - relaying element #2
  [14:51:57.853] result() for ClusterFuture ...
  [14:51:57.853] - result already collected: FutureResult
  [14:51:57.854] result() for ClusterFuture ... done
  [14:51:57.854] result() for ClusterFuture ...
  [14:51:57.871] - result already collected: FutureResult
  [14:51:57.871] result() for ClusterFuture ... done
  [14:51:57.872] result() for ClusterFuture ...
  [14:51:57.872] - result already collected: FutureResult
  [14:51:57.872] result() for ClusterFuture ... done
  [14:51:57.873] result() for ClusterFuture ...
  [14:51:57.873] - result already collected: FutureResult
  [14:51:57.874] result() for ClusterFuture ... done
  [14:51:57.874] - relayed: [n=2] TRUE, TRUE
  [14:51:57.874] - queued futures: [n=2] TRUE, TRUE
  [14:51:57.875] signalConditionsASAP(MultisessionFuture, pos=2) ... done
  [14:51:57.875]  length: 0 (resolved future 2)
  [14:51:57.875] Relaying remaining futures
  [14:51:57.876] signalConditionsASAP(NULL, pos=0) ...
  [14:51:57.876] - nx: 2
  [14:51:57.877] - relay: TRUE
  [14:51:57.877] - stdout: TRUE
  [14:51:57.877] - signal: TRUE
  [14:51:57.878] - resignal: FALSE
  [14:51:57.878] - force: FALSE
  [14:51:57.878] - relayed: [n=2] TRUE, TRUE
  [14:51:57.879] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [14:51:57.879] - relayed: [n=2] TRUE, TRUE
  [14:51:57.880] - queued futures: [n=2] TRUE, TRUE
  [14:51:57.880] signalConditionsASAP(NULL, pos=0) ... done
  [14:51:57.880] resolve() on list ... DONE
  [14:51:57.881] - collecting values of futures
  [14:51:57.881] result() for ClusterFuture ...
  [14:51:57.882] - result already collected: FutureResult
  [14:51:57.882] result() for ClusterFuture ... done
  [14:51:57.882] result() for ClusterFuture ...
  [14:51:57.883] - result already collected: FutureResult
  [14:51:57.883] result() for ClusterFuture ... done
  [14:51:57.884] result() for ClusterFuture ...
  [14:51:57.884] - result already collected: FutureResult
  [14:51:57.884] result() for ClusterFuture ... done
  [14:51:57.885] result() for ClusterFuture ...
  [14:51:57.885] - result already collected: FutureResult
  [14:51:57.886] result() for ClusterFuture ... done
  [14:51:57.886] - accumulating results
  [14:51:57.894] - processing errors (handler = 'stop')
  [14:51:57.895] - extracting results
  [14:51:57.895] doFuture() ... DONE
  - plan(list('multisession', 'multicore')) ... DONE
  - plan(list('multisession', 'multisession')) ...
  [14:51:57.901] plan(): Setting new future strategy stack:
  [14:51:57.901] List of future strategies:
  [14:51:57.901] 1. multisession:
  [14:51:57.901]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:51:57.901]    - tweaked: FALSE
  [14:51:57.901]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:57.901] 2. multisession:
  [14:51:57.901]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:51:57.901]    - tweaked: FALSE
  [14:51:57.901]    - call: plan(list(a = strategy1, b = strategy2))
  [14:51:57.905] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
  [14:51:57.905] multisession:
  [14:51:57.905] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:51:57.905] - tweaked: FALSE
  [14:51:57.905] - call: plan(list(a = strategy1, b = strategy2))
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 20460
  [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/Rtmp731ey4/future.parent=32359.7e67749d7ec7.pid")), silent = TRUE)' -e "file.exists('/tmp/Rtmp731ey4/future.parent=32359.7e67749d7ec7.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:32359:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp731ey4/future.parent=32359.7e67749d7ec7.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=20460 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/Rtmp731ey4/future.parent=32359.7e6735ae86e7.pid")), silent = TRUE)' -e "file.exists('/tmp/Rtmp731ey4/future.parent=32359.7e6735ae86e7.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:32359:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp731ey4/future.parent=32359.7e6735ae86e7.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=20460 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
  [14:52:00.366] getGlobalsAndPackages() ...
  [14:52:00.366] Not searching for globals
  [14:52:00.366] - globals: [0] <none>
  [14:52:00.367] getGlobalsAndPackages() ... DONE
  [14:52:00.372] Packages needed by the future expression (n = 0): <none>
  [14:52:00.372] Packages needed by future strategies (n = 1): 'future'
  [14:52:00.379] {
  [14:52:00.379]     {
  [14:52:00.379]         ...future.startTime <- base::Sys.time()
  [14:52:00.379]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:52:00.379]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:52:00.379]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:52:00.379]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:52:00.379]             future.resolve.recursive = NULL, width = 80L)
  [14:52:00.379]         {
  [14:52:00.379]             {
  [14:52:00.379]                 {
  [14:52:00.379]                   {
  [14:52:00.379]                     base::local({
  [14:52:00.379]                       has_future <- base::requireNamespace("future", 
  [14:52:00.379]                         quietly = TRUE)
  [14:52:00.379]                       version <- if (has_future) 
  [14:52:00.379]                         utils::packageVersion("future")
  [14:52:00.379]                       else NULL
  [14:52:00.379]                       if (!has_future || version < "1.8.0") {
  [14:52:00.379]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:52:00.379]                           "", base::R.version$version.string), 
  [14:52:00.379]                           platform = base::sprintf("%s (%s-bit)", 
  [14:52:00.379]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:52:00.379]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:52:00.379]                             "release", "version")], collapse = " "), 
  [14:52:00.379]                           hostname = base::Sys.info()[["nodename"]])
  [14:52:00.379]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:52:00.379]                           info)
  [14:52:00.379]                         info <- base::paste(info, collapse = "; ")
  [14:52:00.379]                         if (!has_future) {
  [14:52:00.379]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:52:00.379]                             info)
  [14:52:00.379]                         }
  [14:52:00.379]                         else {
  [14:52:00.379]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:52:00.379]                             info, version)
  [14:52:00.379]                         }
  [14:52:00.379]                         base::stop(msg)
  [14:52:00.379]                       }
  [14:52:00.379]                     })
  [14:52:00.379]                   }
  [14:52:00.379]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:52:00.379]                   base::options(mc.cores = 1L)
  [14:52:00.379]                 }
  [14:52:00.379]                 base::local({
  [14:52:00.379]                   for (pkg in "future") {
  [14:52:00.379]                     base::loadNamespace(pkg)
  [14:52:00.379]                     base::library(pkg, character.only = TRUE)
  [14:52:00.379]                   }
  [14:52:00.379]                 })
  [14:52:00.379]             }
  [14:52:00.379]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:52:00.379]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:52:00.379]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:52:00.379]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:52:00.379]                 ...) 
  [14:52:00.379]             {
  [14:52:00.379]                 if (substitute) 
  [14:52:00.379]                   expr <- substitute(expr)
  [14:52:00.379]                 if (is.function(workers)) 
  [14:52:00.379]                   workers <- workers()
  [14:52:00.379]                 workers <- as.integer(workers)
  [14:52:00.379]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:52:00.379]                   workers >= 1)
  [14:52:00.379]                 if (workers == 1L) {
  [14:52:00.379]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:52:00.379]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:52:00.379]                     local = TRUE, label = label, ...))
  [14:52:00.379]                 }
  [14:52:00.379]                 workers <- ClusterRegistry("start", workers = workers)
  [14:52:00.379]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:52:00.379]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:52:00.379]                   globals = globals, persistent = persistent, 
  [14:52:00.379]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:52:00.379]                   label = label, ...)
  [14:52:00.379]                 if (!future$lazy) 
  [14:52:00.379]                   future <- run(future)
  [14:52:00.379]                 invisible(future)
  [14:52:00.379]             }), .cleanup = FALSE, .init = FALSE)
  [14:52:00.379]         }
  [14:52:00.379]     }
  [14:52:00.379]     if (base::is.na(TRUE)) {
  [14:52:00.379]     }
  [14:52:00.379]     else {
  [14:52:00.379]         if (TRUE) {
  [14:52:00.379]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:52:00.379]                 open = "w")
  [14:52:00.379]         }
  [14:52:00.379]         else {
  [14:52:00.379]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:52:00.379]                 windows = "NUL", "/dev/null"), open = "w")
  [14:52:00.379]         }
  [14:52:00.379]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:52:00.379]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:52:00.379]             base::sink(type = "output", split = FALSE)
  [14:52:00.379]             base::close(...future.stdout)
  [14:52:00.379]         }, add = TRUE)
  [14:52:00.379]     }
  [14:52:00.379]     ...future.frame <- base::sys.nframe()
  [14:52:00.379]     ...future.conditions <- base::list()
  [14:52:00.379]     ...future.rng <- base::globalenv()$.Random.seed
  [14:52:00.379]     ...future.result <- base::tryCatch({
  [14:52:00.379]         base::withCallingHandlers({
  [14:52:00.379]             ...future.value <- base::withVisible(base::local({
  [14:52:00.379]                 ...future.sendCondition <- local({
  [14:52:00.379]                   sendCondition <- NULL
  [14:52:00.379]                   function(frame = 1L) {
  [14:52:00.379]                     if (is.function(sendCondition)) 
  [14:52:00.379]                       return(sendCondition)
  [14:52:00.379]                     ns <- getNamespace("parallel")
  [14:52:00.379]                     if (exists("sendData", mode = "function", 
  [14:52:00.379]                       envir = ns)) {
  [14:52:00.379]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:52:00.379]                         envir = ns)
  [14:52:00.379]                       envir <- sys.frame(frame)
  [14:52:00.379]                       master <- NULL
  [14:52:00.379]                       while (!identical(envir, .GlobalEnv) && 
  [14:52:00.379]                         !identical(envir, emptyenv())) {
  [14:52:00.379]                         if (exists("master", mode = "list", envir = envir, 
  [14:52:00.379]                           inherits = FALSE)) {
  [14:52:00.379]                           master <- get("master", mode = "list", 
  [14:52:00.379]                             envir = envir, inherits = FALSE)
  [14:52:00.379]                           if (inherits(master, "SOCKnode")) {
  [14:52:00.379]                             sendCondition <<- function(cond) {
  [14:52:00.379]                               data <- list(type = "VALUE", value = cond, 
  [14:52:00.379]                                 success = TRUE)
  [14:52:00.379]                               parallel_sendData(master, data)
  [14:52:00.379]                             }
  [14:52:00.379]                             return(sendCondition)
  [14:52:00.379]                           }
  [14:52:00.379]                         }
  [14:52:00.379]                         frame <- frame + 1L
  [14:52:00.379]                         envir <- sys.frame(frame)
  [14:52:00.379]                       }
  [14:52:00.379]                     }
  [14:52:00.379]                     sendCondition <<- function(cond) NULL
  [14:52:00.379]                   }
  [14:52:00.379]                 })
  [14:52:00.379]                 withCallingHandlers({
  [14:52:00.379]                   NA
  [14:52:00.379]                 }, immediateCondition = function(cond) {
  [14:52:00.379]                   sendCondition <- ...future.sendCondition()
  [14:52:00.379]                   sendCondition(cond)
  [14:52:00.379]                   muffleCondition <- function (cond) 
  [14:52:00.379]                   {
  [14:52:00.379]                     inherits <- base::inherits
  [14:52:00.379]                     invokeRestart <- base::invokeRestart
  [14:52:00.379]                     muffled <- FALSE
  [14:52:00.379]                     if (inherits(cond, "message")) {
  [14:52:00.379]                       invokeRestart("muffleMessage")
  [14:52:00.379]                       muffled <- TRUE
  [14:52:00.379]                     }
  [14:52:00.379]                     else if (inherits(cond, "warning")) {
  [14:52:00.379]                       invokeRestart("muffleWarning")
  [14:52:00.379]                       muffled <- TRUE
  [14:52:00.379]                     }
  [14:52:00.379]                     else if (inherits(cond, "condition")) {
  [14:52:00.379]                       computeRestarts <- base::computeRestarts
  [14:52:00.379]                       grepl <- base::grepl
  [14:52:00.379]                       is.null <- base::is.null
  [14:52:00.379]                       restarts <- computeRestarts(cond)
  [14:52:00.379]                       for (restart in restarts) {
  [14:52:00.379]                         name <- restart$name
  [14:52:00.379]                         if (is.null(name)) 
  [14:52:00.379]                           next
  [14:52:00.379]                         if (!grepl("^muffle", name)) 
  [14:52:00.379]                           next
  [14:52:00.379]                         invokeRestart(restart)
  [14:52:00.379]                         muffled <- TRUE
  [14:52:00.379]                         break
  [14:52:00.379]                       }
  [14:52:00.379]                     }
  [14:52:00.379]                     invisible(muffled)
  [14:52:00.379]                   }
  [14:52:00.379]                   muffleCondition(cond)
  [14:52:00.379]                 })
  [14:52:00.379]             }))
  [14:52:00.379]             future::FutureResult(value = ...future.value$value, 
  [14:52:00.379]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:52:00.379]                   ...future.rng), started = ...future.startTime, 
  [14:52:00.379]                 version = "1.8")
  [14:52:00.379]         }, condition = base::local({
  [14:52:00.379]             c <- base::c
  [14:52:00.379]             inherits <- base::inherits
  [14:52:00.379]             invokeRestart <- base::invokeRestart
  [14:52:00.379]             length <- base::length
  [14:52:00.379]             list <- base::list
  [14:52:00.379]             seq.int <- base::seq.int
  [14:52:00.379]             signalCondition <- base::signalCondition
  [14:52:00.379]             sys.calls <- base::sys.calls
  [14:52:00.379]             Sys.time <- base::Sys.time
  [14:52:00.379]             `[[` <- base::`[[`
  [14:52:00.379]             `+` <- base::`+`
  [14:52:00.379]             `<<-` <- base::`<<-`
  [14:52:00.379]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:52:00.379]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:52:00.379]                   3L)]
  [14:52:00.379]             }
  [14:52:00.379]             function(cond) {
  [14:52:00.379]                 if (inherits(cond, "error")) {
  [14:52:00.379]                   sessionInformation <- function() {
  [14:52:00.379]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:52:00.379]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:52:00.379]                       search = base::search(), system = base::Sys.info())
  [14:52:00.379]                   }
  [14:52:00.379]                   ...future.conditions[[length(...future.conditions) + 
  [14:52:00.379]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:52:00.379]                     cond$call), session = sessionInformation(), 
  [14:52:00.379]                     timestamp = Sys.time(), signaled = 0L)
  [14:52:00.379]                   signalCondition(cond)
  [14:52:00.379]                 }
  [14:52:00.379]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:52:00.379]                 ))) {
  [14:52:00.379]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:52:00.379]                   ...future.conditions[[length(...future.conditions) + 
  [14:52:00.379]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:52:00.379]                   if (!signal) {
  [14:52:00.379]                     muffleCondition <- function (cond) 
  [14:52:00.379]                     {
  [14:52:00.379]                       inherits <- base::inherits
  [14:52:00.379]                       invokeRestart <- base::invokeRestart
  [14:52:00.379]                       muffled <- FALSE
  [14:52:00.379]                       if (inherits(cond, "message")) {
  [14:52:00.379]                         invokeRestart("muffleMessage")
  [14:52:00.379]                         muffled <- TRUE
  [14:52:00.379]                       }
  [14:52:00.379]                       else if (inherits(cond, "warning")) {
  [14:52:00.379]                         invokeRestart("muffleWarning")
  [14:52:00.379]                         muffled <- TRUE
  [14:52:00.379]                       }
  [14:52:00.379]                       else if (inherits(cond, "condition")) {
  [14:52:00.379]                         computeRestarts <- base::computeRestarts
  [14:52:00.379]                         grepl <- base::grepl
  [14:52:00.379]                         is.null <- base::is.null
  [14:52:00.379]                         restarts <- computeRestarts(cond)
  [14:52:00.379]                         for (restart in restarts) {
  [14:52:00.379]                           name <- restart$name
  [14:52:00.379]                           if (is.null(name)) 
  [14:52:00.379]                             next
  [14:52:00.379]                           if (!grepl("^muffle", name)) 
  [14:52:00.379]                             next
  [14:52:00.379]                           invokeRestart(restart)
  [14:52:00.379]                           muffled <- TRUE
  [14:52:00.379]                           break
  [14:52:00.379]                         }
  [14:52:00.379]                       }
  [14:52:00.379]                       invisible(muffled)
  [14:52:00.379]                     }
  [14:52:00.379]                     muffleCondition(cond)
  [14:52:00.379]                   }
  [14:52:00.379]                 }
  [14:52:00.379]             }
  [14:52:00.379]         }))
  [14:52:00.379]     }, error = function(ex) {
  [14:52:00.379]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:52:00.379]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:52:00.379]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:52:00.379]     }, finally = {
  [14:52:00.379]         {
  [14:52:00.379]             {
  [14:52:00.379]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:52:00.379]             }
  [14:52:00.379]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:52:00.379]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:52:00.379]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:52:00.379]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:52:00.379]                 ...) 
  [14:52:00.379]             {
  [14:52:00.379]                 if (substitute) 
  [14:52:00.379]                   expr <- substitute(expr)
  [14:52:00.379]                 if (is.function(workers)) 
  [14:52:00.379]                   workers <- workers()
  [14:52:00.379]                 workers <- as.integer(workers)
  [14:52:00.379]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:52:00.379]                   workers >= 1)
  [14:52:00.379]                 if (workers == 1L) {
  [14:52:00.379]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:52:00.379]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:52:00.379]                     local = TRUE, label = label, ...))
  [14:52:00.379]                 }
  [14:52:00.379]                 workers <- ClusterRegistry("start", workers = workers)
  [14:52:00.379]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:52:00.379]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:52:00.379]                   globals = globals, persistent = persistent, 
  [14:52:00.379]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:52:00.379]                   label = label, ...)
  [14:52:00.379]                 if (!future$lazy) 
  [14:52:00.379]                   future <- run(future)
  [14:52:00.379]                 invisible(future)
  [14:52:00.379]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:52:00.379]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [14:52:00.379]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [14:52:00.379]                 label = NULL, ...) 
  [14:52:00.379]             {
  [14:52:00.379]                 if (substitute) 
  [14:52:00.379]                   expr <- substitute(expr)
  [14:52:00.379]                 if (is.function(workers)) 
  [14:52:00.379]                   workers <- workers()
  [14:52:00.379]                 workers <- as.integer(workers)
  [14:52:00.379]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:52:00.379]                   workers >= 1)
  [14:52:00.379]                 if (workers == 1L) {
  [14:52:00.379]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:52:00.379]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:52:00.379]                     local = TRUE, label = label, ...))
  [14:52:00.379]                 }
  [14:52:00.379]                 workers <- ClusterRegistry("start", workers = workers)
  [14:52:00.379]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:52:00.379]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:52:00.379]                   globals = globals, persistent = persistent, 
  [14:52:00.379]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:52:00.379]                   label = label, ...)
  [14:52:00.379]                 if (!future$lazy) 
  [14:52:00.379]                   future <- run(future)
  [14:52:00.379]                 invisible(future)
  [14:52:00.379]             }), .cleanup = FALSE, .init = FALSE)
  [14:52:00.379]         }
  [14:52:00.379]         base::options(...future.oldOptions)
  [14:52:00.379]     })
  [14:52:00.379]     Sys.time
  [14:52:00.379]     if (base::is.na(TRUE)) {
  [14:52:00.379]     }
  [14:52:00.379]     else {
  [14:52:00.379]         base::sink(type = "output", split = FALSE)
  [14:52:00.379]         if (TRUE) {
  [14:52:00.379]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:52:00.379]         }
  [14:52:00.379]         else {
  [14:52:00.379]             ...future.result["stdout"] <- base::list(NULL)
  [14:52:00.379]         }
  [14:52:00.379]         base::close(...future.stdout)
  [14:52:00.379]         ...future.stdout <- NULL
  [14:52:00.379]     }
  [14:52:00.379]     ...future.result$conditions <- ...future.conditions
  [14:52:00.379]     ...future.result
  [14:52:00.379] }
  [14:52:00.389] MultisessionFuture started
  [14:52:00.389] result() for ClusterFuture ...
  [14:52:00.390] receiveMessageFromWorker() for ClusterFuture ...
  [14:52:00.390] - Validating connection of MultisessionFuture
  [14:52:00.622] - received message: FutureResult
  [14:52:00.623] - Received FutureResult
  [14:52:00.623] - Erased future from FutureRegistry
  [14:52:00.623] result() for ClusterFuture ...
  [14:52:00.624] - result already collected: FutureResult
  [14:52:00.624] result() for ClusterFuture ... done
  [14:52:00.625] receiveMessageFromWorker() for ClusterFuture ... done
  [14:52:00.625] result() for ClusterFuture ... done
  [14:52:00.625] result() for ClusterFuture ...
  [14:52:00.626] - result already collected: FutureResult
  [14:52:00.626] result() for ClusterFuture ... done
  [14:52:00.627] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE
  [14:52:00.628] plan(): nbrOfWorkers() = 2
  [14:52:00.629] doFuture() ...
  [14:52:00.634] - dummy globals (as locals): [2] 'a', 'b'
  [14:52:00.647] - R expression:
  [14:52:00.647] {
  [14:52:00.647]     doFuture::registerDoFuture()
  [14:52:00.647]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:52:00.647]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:52:00.647]         {
  [14:52:00.647]             a <- NULL
  [14:52:00.647]             b <- NULL
  [14:52:00.647]         }
  [14:52:00.647]         ...future.env <- environment()
  [14:52:00.647]         local({
  [14:52:00.647]             for (name in names(...future.x_jj)) {
  [14:52:00.647]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:52:00.647]                   inherits = FALSE)
  [14:52:00.647]             }
  [14:52:00.647]         })
  [14:52:00.647]         tryCatch({
  [14:52:00.647]             list(a = a, b = b, plan_b = future::plan("list"), 
  [14:52:00.647]                 plan = future::plan("next"))
  [14:52:00.647]         }, error = identity)
  [14:52:00.647]     })
  [14:52:00.647] }
  [14:52:00.648] - identifying globals and packages ...
  [14:52:00.649] getGlobalsAndPackages() ...
  [14:52:00.649] Searching for globals...
  [14:52:00.674] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [14:52:00.675] Searching for globals ... DONE
  [14:52:00.675] Resolving globals: FALSE
  [14:52:00.677] The total size of the 1 globals is 0 bytes (0 bytes)
  [14:52:00.677] - globals: [1] '...future.x_ii'
  [14:52:00.678] 
  [14:52:00.678] getGlobalsAndPackages() ... DONE
  [14:52:00.686] List of 1
  [14:52:00.686]  $ ...future.x_ii: NULL
  [14:52:00.686]  - attr(*, "where")=List of 1
  [14:52:00.686]   ..$ ...future.x_ii:<environment: 0x560014dc2360> 
  [14:52:00.686]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:52:00.686]  - attr(*, "resolved")= logi FALSE
  [14:52:00.686]  - attr(*, "total_size")= num 0
  [14:52:00.694]   - R expression:
  [14:52:00.695] {
  [14:52:00.695]     doFuture::registerDoFuture()
  [14:52:00.695]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:52:00.695]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:52:00.695]         {
  [14:52:00.695]             a <- NULL
  [14:52:00.695]             b <- NULL
  [14:52:00.695]         }
  [14:52:00.695]         ...future.env <- environment()
  [14:52:00.695]         local({
  [14:52:00.695]             for (name in names(...future.x_jj)) {
  [14:52:00.695]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:52:00.695]                   inherits = FALSE)
  [14:52:00.695]             }
  [14:52:00.695]         })
  [14:52:00.695]         tryCatch({
  [14:52:00.695]             list(a = a, b = b, plan_b = future::plan("list"), 
  [14:52:00.695]                 plan = future::plan("next"))
  [14:52:00.695]         }, error = identity)
  [14:52:00.695]     })
  [14:52:00.695] }
  [14:52:00.696]   - globals: [1] '...future.x_ii'
  [14:52:00.696] List of 1
  [14:52:00.696]  $ ...future.x_ii: NULL
  [14:52:00.696]  - attr(*, "where")=List of 1
  [14:52:00.696]   ..$ ...future.x_ii:<environment: 0x560014dc2360> 
  [14:52:00.696]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:52:00.696]  - attr(*, "resolved")= logi FALSE
  [14:52:00.696]  - attr(*, "total_size")= num 0
  [14:52:00.704]   - packages: [1] 'doFuture'
  [14:52:00.704] - identifying globals and packages ... DONE
  [14:52:00.705] Number of chunks: 2
  [14:52:00.706] Number of futures (= number of chunks): 2
  [14:52:00.707] Launching 2 futures (chunks) ...
  [14:52:00.707] Chunk #1 of 2 ...
  [14:52:00.707]  - Finding globals in 'args_list' chunk #1 ...
  [14:52:00.708] getGlobalsAndPackages() ...
  [14:52:00.708] Searching for globals...
  [14:52:00.709] 
  [14:52:00.710] Searching for globals ... DONE
  [14:52:00.710] - globals: [0] <none>
  [14:52:00.710] getGlobalsAndPackages() ... DONE
  [14:52:00.711] 
  [14:52:00.711] 
  [14:52:00.711]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:52:00.713] getGlobalsAndPackages() ...
  [14:52:00.713] - globals passed as-is: [1] '...future.x_ii'
  [14:52:00.714] Resolving globals: FALSE
  [14:52:00.715] The total size of the 1 globals is 336 bytes (336 bytes)
  [14:52:00.715] - globals: [1] '...future.x_ii'
  [14:52:00.715] 
  [14:52:00.716] getGlobalsAndPackages() ... DONE
  [14:52:00.721] Packages needed by the future expression (n = 1): 'doFuture'
  [14:52:00.721] Packages needed by future strategies (n = 1): 'future'
  [14:52:00.729] {
  [14:52:00.729]     {
  [14:52:00.729]         ...future.startTime <- base::Sys.time()
  [14:52:00.729]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:52:00.729]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:52:00.729]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:52:00.729]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:52:00.729]             future.resolve.recursive = NULL, width = 80L)
  [14:52:00.729]         {
  [14:52:00.729]             {
  [14:52:00.729]                 {
  [14:52:00.729]                   {
  [14:52:00.729]                     base::local({
  [14:52:00.729]                       has_future <- base::requireNamespace("future", 
  [14:52:00.729]                         quietly = TRUE)
  [14:52:00.729]                       version <- if (has_future) 
  [14:52:00.729]                         utils::packageVersion("future")
  [14:52:00.729]                       else NULL
  [14:52:00.729]                       if (!has_future || version < "1.8.0") {
  [14:52:00.729]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:52:00.729]                           "", base::R.version$version.string), 
  [14:52:00.729]                           platform = base::sprintf("%s (%s-bit)", 
  [14:52:00.729]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:52:00.729]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:52:00.729]                             "release", "version")], collapse = " "), 
  [14:52:00.729]                           hostname = base::Sys.info()[["nodename"]])
  [14:52:00.729]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:52:00.729]                           info)
  [14:52:00.729]                         info <- base::paste(info, collapse = "; ")
  [14:52:00.729]                         if (!has_future) {
  [14:52:00.729]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:52:00.729]                             info)
  [14:52:00.729]                         }
  [14:52:00.729]                         else {
  [14:52:00.729]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:52:00.729]                             info, version)
  [14:52:00.729]                         }
  [14:52:00.729]                         base::stop(msg)
  [14:52:00.729]                       }
  [14:52:00.729]                     })
  [14:52:00.729]                   }
  [14:52:00.729]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:52:00.729]                   base::options(mc.cores = 1L)
  [14:52:00.729]                 }
  [14:52:00.729]                 base::local({
  [14:52:00.729]                   for (pkg in c("doFuture", "future")) {
  [14:52:00.729]                     base::loadNamespace(pkg)
  [14:52:00.729]                     base::library(pkg, character.only = TRUE)
  [14:52:00.729]                   }
  [14:52:00.729]                 })
  [14:52:00.729]             }
  [14:52:00.729]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:52:00.729]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:52:00.729]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:52:00.729]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:52:00.729]                 ...) 
  [14:52:00.729]             {
  [14:52:00.729]                 if (substitute) 
  [14:52:00.729]                   expr <- substitute(expr)
  [14:52:00.729]                 if (is.function(workers)) 
  [14:52:00.729]                   workers <- workers()
  [14:52:00.729]                 workers <- as.integer(workers)
  [14:52:00.729]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:52:00.729]                   workers >= 1)
  [14:52:00.729]                 if (workers == 1L) {
  [14:52:00.729]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:52:00.729]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:52:00.729]                     local = TRUE, label = label, ...))
  [14:52:00.729]                 }
  [14:52:00.729]                 workers <- ClusterRegistry("start", workers = workers)
  [14:52:00.729]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:52:00.729]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:52:00.729]                   globals = globals, persistent = persistent, 
  [14:52:00.729]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:52:00.729]                   label = label, ...)
  [14:52:00.729]                 if (!future$lazy) 
  [14:52:00.729]                   future <- run(future)
  [14:52:00.729]                 invisible(future)
  [14:52:00.729]             }), .cleanup = FALSE, .init = FALSE)
  [14:52:00.729]         }
  [14:52:00.729]     }
  [14:52:00.729]     if (base::is.na(TRUE)) {
  [14:52:00.729]     }
  [14:52:00.729]     else {
  [14:52:00.729]         if (TRUE) {
  [14:52:00.729]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:52:00.729]                 open = "w")
  [14:52:00.729]         }
  [14:52:00.729]         else {
  [14:52:00.729]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:52:00.729]                 windows = "NUL", "/dev/null"), open = "w")
  [14:52:00.729]         }
  [14:52:00.729]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:52:00.729]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:52:00.729]             base::sink(type = "output", split = FALSE)
  [14:52:00.729]             base::close(...future.stdout)
  [14:52:00.729]         }, add = TRUE)
  [14:52:00.729]     }
  [14:52:00.729]     ...future.frame <- base::sys.nframe()
  [14:52:00.729]     ...future.conditions <- base::list()
  [14:52:00.729]     ...future.rng <- base::globalenv()$.Random.seed
  [14:52:00.729]     ...future.result <- base::tryCatch({
  [14:52:00.729]         base::withCallingHandlers({
  [14:52:00.729]             ...future.value <- base::withVisible(base::local({
  [14:52:00.729]                 ...future.sendCondition <- local({
  [14:52:00.729]                   sendCondition <- NULL
  [14:52:00.729]                   function(frame = 1L) {
  [14:52:00.729]                     if (is.function(sendCondition)) 
  [14:52:00.729]                       return(sendCondition)
  [14:52:00.729]                     ns <- getNamespace("parallel")
  [14:52:00.729]                     if (exists("sendData", mode = "function", 
  [14:52:00.729]                       envir = ns)) {
  [14:52:00.729]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:52:00.729]                         envir = ns)
  [14:52:00.729]                       envir <- sys.frame(frame)
  [14:52:00.729]                       master <- NULL
  [14:52:00.729]                       while (!identical(envir, .GlobalEnv) && 
  [14:52:00.729]                         !identical(envir, emptyenv())) {
  [14:52:00.729]                         if (exists("master", mode = "list", envir = envir, 
  [14:52:00.729]                           inherits = FALSE)) {
  [14:52:00.729]                           master <- get("master", mode = "list", 
  [14:52:00.729]                             envir = envir, inherits = FALSE)
  [14:52:00.729]                           if (inherits(master, "SOCKnode")) {
  [14:52:00.729]                             sendCondition <<- function(cond) {
  [14:52:00.729]                               data <- list(type = "VALUE", value = cond, 
  [14:52:00.729]                                 success = TRUE)
  [14:52:00.729]                               parallel_sendData(master, data)
  [14:52:00.729]                             }
  [14:52:00.729]                             return(sendCondition)
  [14:52:00.729]                           }
  [14:52:00.729]                         }
  [14:52:00.729]                         frame <- frame + 1L
  [14:52:00.729]                         envir <- sys.frame(frame)
  [14:52:00.729]                       }
  [14:52:00.729]                     }
  [14:52:00.729]                     sendCondition <<- function(cond) NULL
  [14:52:00.729]                   }
  [14:52:00.729]                 })
  [14:52:00.729]                 withCallingHandlers({
  [14:52:00.729]                   {
  [14:52:00.729]                     doFuture::registerDoFuture()
  [14:52:00.729]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:52:00.729]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:52:00.729]                       {
  [14:52:00.729]                         a <- NULL
  [14:52:00.729]                         b <- NULL
  [14:52:00.729]                       }
  [14:52:00.729]                       ...future.env <- environment()
  [14:52:00.729]                       local({
  [14:52:00.729]                         for (name in names(...future.x_jj)) {
  [14:52:00.729]                           assign(name, ...future.x_jj[[name]], 
  [14:52:00.729]                             envir = ...future.env, inherits = FALSE)
  [14:52:00.729]                         }
  [14:52:00.729]                       })
  [14:52:00.729]                       tryCatch({
  [14:52:00.729]                         list(a = a, b = b, plan_b = future::plan("list"), 
  [14:52:00.729]                           plan = future::plan("next"))
  [14:52:00.729]                       }, error = identity)
  [14:52:00.729]                     })
  [14:52:00.729]                   }
  [14:52:00.729]                 }, immediateCondition = function(cond) {
  [14:52:00.729]                   sendCondition <- ...future.sendCondition()
  [14:52:00.729]                   sendCondition(cond)
  [14:52:00.729]                   muffleCondition <- function (cond) 
  [14:52:00.729]                   {
  [14:52:00.729]                     inherits <- base::inherits
  [14:52:00.729]                     invokeRestart <- base::invokeRestart
  [14:52:00.729]                     muffled <- FALSE
  [14:52:00.729]                     if (inherits(cond, "message")) {
  [14:52:00.729]                       invokeRestart("muffleMessage")
  [14:52:00.729]                       muffled <- TRUE
  [14:52:00.729]                     }
  [14:52:00.729]                     else if (inherits(cond, "warning")) {
  [14:52:00.729]                       invokeRestart("muffleWarning")
  [14:52:00.729]                       muffled <- TRUE
  [14:52:00.729]                     }
  [14:52:00.729]                     else if (inherits(cond, "condition")) {
  [14:52:00.729]                       computeRestarts <- base::computeRestarts
  [14:52:00.729]                       grepl <- base::grepl
  [14:52:00.729]                       is.null <- base::is.null
  [14:52:00.729]                       restarts <- computeRestarts(cond)
  [14:52:00.729]                       for (restart in restarts) {
  [14:52:00.729]                         name <- restart$name
  [14:52:00.729]                         if (is.null(name)) 
  [14:52:00.729]                           next
  [14:52:00.729]                         if (!grepl("^muffle", name)) 
  [14:52:00.729]                           next
  [14:52:00.729]                         invokeRestart(restart)
  [14:52:00.729]                         muffled <- TRUE
  [14:52:00.729]                         break
  [14:52:00.729]                       }
  [14:52:00.729]                     }
  [14:52:00.729]                     invisible(muffled)
  [14:52:00.729]                   }
  [14:52:00.729]                   muffleCondition(cond)
  [14:52:00.729]                 })
  [14:52:00.729]             }))
  [14:52:00.729]             future::FutureResult(value = ...future.value$value, 
  [14:52:00.729]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:52:00.729]                   ...future.rng), started = ...future.startTime, 
  [14:52:00.729]                 version = "1.8")
  [14:52:00.729]         }, condition = base::local({
  [14:52:00.729]             c <- base::c
  [14:52:00.729]             inherits <- base::inherits
  [14:52:00.729]             invokeRestart <- base::invokeRestart
  [14:52:00.729]             length <- base::length
  [14:52:00.729]             list <- base::list
  [14:52:00.729]             seq.int <- base::seq.int
  [14:52:00.729]             signalCondition <- base::signalCondition
  [14:52:00.729]             sys.calls <- base::sys.calls
  [14:52:00.729]             Sys.time <- base::Sys.time
  [14:52:00.729]             `[[` <- base::`[[`
  [14:52:00.729]             `+` <- base::`+`
  [14:52:00.729]             `<<-` <- base::`<<-`
  [14:52:00.729]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:52:00.729]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:52:00.729]                   3L)]
  [14:52:00.729]             }
  [14:52:00.729]             function(cond) {
  [14:52:00.729]                 if (inherits(cond, "error")) {
  [14:52:00.729]                   sessionInformation <- function() {
  [14:52:00.729]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:52:00.729]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:52:00.729]                       search = base::search(), system = base::Sys.info())
  [14:52:00.729]                   }
  [14:52:00.729]                   ...future.conditions[[length(...future.conditions) + 
  [14:52:00.729]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:52:00.729]                     cond$call), session = sessionInformation(), 
  [14:52:00.729]                     timestamp = Sys.time(), signaled = 0L)
  [14:52:00.729]                   signalCondition(cond)
  [14:52:00.729]                 }
  [14:52:00.729]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:52:00.729]                 ))) {
  [14:52:00.729]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:52:00.729]                   ...future.conditions[[length(...future.conditions) + 
  [14:52:00.729]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:52:00.729]                   if (!signal) {
  [14:52:00.729]                     muffleCondition <- function (cond) 
  [14:52:00.729]                     {
  [14:52:00.729]                       inherits <- base::inherits
  [14:52:00.729]                       invokeRestart <- base::invokeRestart
  [14:52:00.729]                       muffled <- FALSE
  [14:52:00.729]                       if (inherits(cond, "message")) {
  [14:52:00.729]                         invokeRestart("muffleMessage")
  [14:52:00.729]                         muffled <- TRUE
  [14:52:00.729]                       }
  [14:52:00.729]                       else if (inherits(cond, "warning")) {
  [14:52:00.729]                         invokeRestart("muffleWarning")
  [14:52:00.729]                         muffled <- TRUE
  [14:52:00.729]                       }
  [14:52:00.729]                       else if (inherits(cond, "condition")) {
  [14:52:00.729]                         computeRestarts <- base::computeRestarts
  [14:52:00.729]                         grepl <- base::grepl
  [14:52:00.729]                         is.null <- base::is.null
  [14:52:00.729]                         restarts <- computeRestarts(cond)
  [14:52:00.729]                         for (restart in restarts) {
  [14:52:00.729]                           name <- restart$name
  [14:52:00.729]                           if (is.null(name)) 
  [14:52:00.729]                             next
  [14:52:00.729]                           if (!grepl("^muffle", name)) 
  [14:52:00.729]                             next
  [14:52:00.729]                           invokeRestart(restart)
  [14:52:00.729]                           muffled <- TRUE
  [14:52:00.729]                           break
  [14:52:00.729]                         }
  [14:52:00.729]                       }
  [14:52:00.729]                       invisible(muffled)
  [14:52:00.729]                     }
  [14:52:00.729]                     muffleCondition(cond)
  [14:52:00.729]                   }
  [14:52:00.729]                 }
  [14:52:00.729]             }
  [14:52:00.729]         }))
  [14:52:00.729]     }, error = function(ex) {
  [14:52:00.729]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:52:00.729]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:52:00.729]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:52:00.729]     }, finally = {
  [14:52:00.729]         {
  [14:52:00.729]             {
  [14:52:00.729]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:52:00.729]             }
  [14:52:00.729]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:52:00.729]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:52:00.729]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:52:00.729]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:52:00.729]                 ...) 
  [14:52:00.729]             {
  [14:52:00.729]                 if (substitute) 
  [14:52:00.729]                   expr <- substitute(expr)
  [14:52:00.729]                 if (is.function(workers)) 
  [14:52:00.729]                   workers <- workers()
  [14:52:00.729]                 workers <- as.integer(workers)
  [14:52:00.729]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:52:00.729]                   workers >= 1)
  [14:52:00.729]                 if (workers == 1L) {
  [14:52:00.729]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:52:00.729]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:52:00.729]                     local = TRUE, label = label, ...))
  [14:52:00.729]                 }
  [14:52:00.729]                 workers <- ClusterRegistry("start", workers = workers)
  [14:52:00.729]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:52:00.729]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:52:00.729]                   globals = globals, persistent = persistent, 
  [14:52:00.729]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:52:00.729]                   label = label, ...)
  [14:52:00.729]                 if (!future$lazy) 
  [14:52:00.729]                   future <- run(future)
  [14:52:00.729]                 invisible(future)
  [14:52:00.729]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:52:00.729]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [14:52:00.729]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [14:52:00.729]                 label = NULL, ...) 
  [14:52:00.729]             {
  [14:52:00.729]                 if (substitute) 
  [14:52:00.729]                   expr <- substitute(expr)
  [14:52:00.729]                 if (is.function(workers)) 
  [14:52:00.729]                   workers <- workers()
  [14:52:00.729]                 workers <- as.integer(workers)
  [14:52:00.729]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:52:00.729]                   workers >= 1)
  [14:52:00.729]                 if (workers == 1L) {
  [14:52:00.729]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:52:00.729]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:52:00.729]                     local = TRUE, label = label, ...))
  [14:52:00.729]                 }
  [14:52:00.729]                 workers <- ClusterRegistry("start", workers = workers)
  [14:52:00.729]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:52:00.729]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:52:00.729]                   globals = globals, persistent = persistent, 
  [14:52:00.729]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:52:00.729]                   label = label, ...)
  [14:52:00.729]                 if (!future$lazy) 
  [14:52:00.729]                   future <- run(future)
  [14:52:00.729]                 invisible(future)
  [14:52:00.729]             }), .cleanup = FALSE, .init = FALSE)
  [14:52:00.729]         }
  [14:52:00.729]         base::options(...future.oldOptions)
  [14:52:00.729]     })
  [14:52:00.729]     Sys.time
  [14:52:00.729]     if (base::is.na(TRUE)) {
  [14:52:00.729]     }
  [14:52:00.729]     else {
  [14:52:00.729]         base::sink(type = "output", split = FALSE)
  [14:52:00.729]         if (TRUE) {
  [14:52:00.729]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:52:00.729]         }
  [14:52:00.729]         else {
  [14:52:00.729]             ...future.result["stdout"] <- base::list(NULL)
  [14:52:00.729]         }
  [14:52:00.729]         base::close(...future.stdout)
  [14:52:00.729]         ...future.stdout <- NULL
  [14:52:00.729]     }
  [14:52:00.729]     ...future.result$conditions <- ...future.conditions
  [14:52:00.729]     ...future.result
  [14:52:00.729] }
  [14:52:00.738] Exporting 1 global objects (336 bytes) to cluster node #1 ...
  [14:52:00.739] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ...
  [14:52:00.740] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ... DONE
  [14:52:00.740] Exporting 1 global objects (336 bytes) to cluster node #1 ... DONE
  [14:52:00.742] MultisessionFuture started
  [14:52:00.742] Chunk #1 of 2 ... DONE
  [14:52:00.743] Chunk #2 of 2 ...
  [14:52:00.743]  - Finding globals in 'args_list' chunk #2 ...
  [14:52:00.743] getGlobalsAndPackages() ...
  [14:52:00.744] Searching for globals...
  [14:52:00.745] 
  [14:52:00.745] Searching for globals ... DONE
  [14:52:00.746] - globals: [0] <none>
  [14:52:00.746] getGlobalsAndPackages() ... DONE
  [14:52:00.746] 
  [14:52:00.746] 
  [14:52:00.747]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:52:00.748] getGlobalsAndPackages() ...
  [14:52:00.749] - globals passed as-is: [1] '...future.x_ii'
  [14:52:00.749] Resolving globals: FALSE
  [14:52:00.750] The total size of the 1 globals is 336 bytes (336 bytes)
  [14:52:00.750] - globals: [1] '...future.x_ii'
  [14:52:00.751] 
  [14:52:00.751] getGlobalsAndPackages() ... DONE
  [14:52:00.760] Packages needed by the future expression (n = 1): 'doFuture'
  [14:52:00.760] Packages needed by future strategies (n = 1): 'future'
  [14:52:00.768] {
  [14:52:00.768]     {
  [14:52:00.768]         ...future.startTime <- base::Sys.time()
  [14:52:00.768]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:52:00.768]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:52:00.768]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:52:00.768]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:52:00.768]             future.resolve.recursive = NULL, width = 80L)
  [14:52:00.768]         {
  [14:52:00.768]             {
  [14:52:00.768]                 {
  [14:52:00.768]                   {
  [14:52:00.768]                     base::local({
  [14:52:00.768]                       has_future <- base::requireNamespace("future", 
  [14:52:00.768]                         quietly = TRUE)
  [14:52:00.768]                       version <- if (has_future) 
  [14:52:00.768]                         utils::packageVersion("future")
  [14:52:00.768]                       else NULL
  [14:52:00.768]                       if (!has_future || version < "1.8.0") {
  [14:52:00.768]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:52:00.768]                           "", base::R.version$version.string), 
  [14:52:00.768]                           platform = base::sprintf("%s (%s-bit)", 
  [14:52:00.768]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:52:00.768]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:52:00.768]                             "release", "version")], collapse = " "), 
  [14:52:00.768]                           hostname = base::Sys.info()[["nodename"]])
  [14:52:00.768]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:52:00.768]                           info)
  [14:52:00.768]                         info <- base::paste(info, collapse = "; ")
  [14:52:00.768]                         if (!has_future) {
  [14:52:00.768]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:52:00.768]                             info)
  [14:52:00.768]                         }
  [14:52:00.768]                         else {
  [14:52:00.768]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:52:00.768]                             info, version)
  [14:52:00.768]                         }
  [14:52:00.768]                         base::stop(msg)
  [14:52:00.768]                       }
  [14:52:00.768]                     })
  [14:52:00.768]                   }
  [14:52:00.768]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:52:00.768]                   base::options(mc.cores = 1L)
  [14:52:00.768]                 }
  [14:52:00.768]                 base::local({
  [14:52:00.768]                   for (pkg in c("doFuture", "future")) {
  [14:52:00.768]                     base::loadNamespace(pkg)
  [14:52:00.768]                     base::library(pkg, character.only = TRUE)
  [14:52:00.768]                   }
  [14:52:00.768]                 })
  [14:52:00.768]             }
  [14:52:00.768]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:52:00.768]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:52:00.768]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:52:00.768]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:52:00.768]                 ...) 
  [14:52:00.768]             {
  [14:52:00.768]                 if (substitute) 
  [14:52:00.768]                   expr <- substitute(expr)
  [14:52:00.768]                 if (is.function(workers)) 
  [14:52:00.768]                   workers <- workers()
  [14:52:00.768]                 workers <- as.integer(workers)
  [14:52:00.768]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:52:00.768]                   workers >= 1)
  [14:52:00.768]                 if (workers == 1L) {
  [14:52:00.768]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:52:00.768]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:52:00.768]                     local = TRUE, label = label, ...))
  [14:52:00.768]                 }
  [14:52:00.768]                 workers <- ClusterRegistry("start", workers = workers)
  [14:52:00.768]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:52:00.768]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:52:00.768]                   globals = globals, persistent = persistent, 
  [14:52:00.768]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:52:00.768]                   label = label, ...)
  [14:52:00.768]                 if (!future$lazy) 
  [14:52:00.768]                   future <- run(future)
  [14:52:00.768]                 invisible(future)
  [14:52:00.768]             }), .cleanup = FALSE, .init = FALSE)
  [14:52:00.768]         }
  [14:52:00.768]     }
  [14:52:00.768]     if (base::is.na(TRUE)) {
  [14:52:00.768]     }
  [14:52:00.768]     else {
  [14:52:00.768]         if (TRUE) {
  [14:52:00.768]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:52:00.768]                 open = "w")
  [14:52:00.768]         }
  [14:52:00.768]         else {
  [14:52:00.768]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:52:00.768]                 windows = "NUL", "/dev/null"), open = "w")
  [14:52:00.768]         }
  [14:52:00.768]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:52:00.768]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:52:00.768]             base::sink(type = "output", split = FALSE)
  [14:52:00.768]             base::close(...future.stdout)
  [14:52:00.768]         }, add = TRUE)
  [14:52:00.768]     }
  [14:52:00.768]     ...future.frame <- base::sys.nframe()
  [14:52:00.768]     ...future.conditions <- base::list()
  [14:52:00.768]     ...future.rng <- base::globalenv()$.Random.seed
  [14:52:00.768]     ...future.result <- base::tryCatch({
  [14:52:00.768]         base::withCallingHandlers({
  [14:52:00.768]             ...future.value <- base::withVisible(base::local({
  [14:52:00.768]                 ...future.sendCondition <- local({
  [14:52:00.768]                   sendCondition <- NULL
  [14:52:00.768]                   function(frame = 1L) {
  [14:52:00.768]                     if (is.function(sendCondition)) 
  [14:52:00.768]                       return(sendCondition)
  [14:52:00.768]                     ns <- getNamespace("parallel")
  [14:52:00.768]                     if (exists("sendData", mode = "function", 
  [14:52:00.768]                       envir = ns)) {
  [14:52:00.768]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:52:00.768]                         envir = ns)
  [14:52:00.768]                       envir <- sys.frame(frame)
  [14:52:00.768]                       master <- NULL
  [14:52:00.768]                       while (!identical(envir, .GlobalEnv) && 
  [14:52:00.768]                         !identical(envir, emptyenv())) {
  [14:52:00.768]                         if (exists("master", mode = "list", envir = envir, 
  [14:52:00.768]                           inherits = FALSE)) {
  [14:52:00.768]                           master <- get("master", mode = "list", 
  [14:52:00.768]                             envir = envir, inherits = FALSE)
  [14:52:00.768]                           if (inherits(master, "SOCKnode")) {
  [14:52:00.768]                             sendCondition <<- function(cond) {
  [14:52:00.768]                               data <- list(type = "VALUE", value = cond, 
  [14:52:00.768]                                 success = TRUE)
  [14:52:00.768]                               parallel_sendData(master, data)
  [14:52:00.768]                             }
  [14:52:00.768]                             return(sendCondition)
  [14:52:00.768]                           }
  [14:52:00.768]                         }
  [14:52:00.768]                         frame <- frame + 1L
  [14:52:00.768]                         envir <- sys.frame(frame)
  [14:52:00.768]                       }
  [14:52:00.768]                     }
  [14:52:00.768]                     sendCondition <<- function(cond) NULL
  [14:52:00.768]                   }
  [14:52:00.768]                 })
  [14:52:00.768]                 withCallingHandlers({
  [14:52:00.768]                   {
  [14:52:00.768]                     doFuture::registerDoFuture()
  [14:52:00.768]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:52:00.768]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:52:00.768]                       {
  [14:52:00.768]                         a <- NULL
  [14:52:00.768]                         b <- NULL
  [14:52:00.768]                       }
  [14:52:00.768]                       ...future.env <- environment()
  [14:52:00.768]                       local({
  [14:52:00.768]                         for (name in names(...future.x_jj)) {
  [14:52:00.768]                           assign(name, ...future.x_jj[[name]], 
  [14:52:00.768]                             envir = ...future.env, inherits = FALSE)
  [14:52:00.768]                         }
  [14:52:00.768]                       })
  [14:52:00.768]                       tryCatch({
  [14:52:00.768]                         list(a = a, b = b, plan_b = future::plan("list"), 
  [14:52:00.768]                           plan = future::plan("next"))
  [14:52:00.768]                       }, error = identity)
  [14:52:00.768]                     })
  [14:52:00.768]                   }
  [14:52:00.768]                 }, immediateCondition = function(cond) {
  [14:52:00.768]                   sendCondition <- ...future.sendCondition()
  [14:52:00.768]                   sendCondition(cond)
  [14:52:00.768]                   muffleCondition <- function (cond) 
  [14:52:00.768]                   {
  [14:52:00.768]                     inherits <- base::inherits
  [14:52:00.768]                     invokeRestart <- base::invokeRestart
  [14:52:00.768]                     muffled <- FALSE
  [14:52:00.768]                     if (inherits(cond, "message")) {
  [14:52:00.768]                       invokeRestart("muffleMessage")
  [14:52:00.768]                       muffled <- TRUE
  [14:52:00.768]                     }
  [14:52:00.768]                     else if (inherits(cond, "warning")) {
  [14:52:00.768]                       invokeRestart("muffleWarning")
  [14:52:00.768]                       muffled <- TRUE
  [14:52:00.768]                     }
  [14:52:00.768]                     else if (inherits(cond, "condition")) {
  [14:52:00.768]                       computeRestarts <- base::computeRestarts
  [14:52:00.768]                       grepl <- base::grepl
  [14:52:00.768]                       is.null <- base::is.null
  [14:52:00.768]                       restarts <- computeRestarts(cond)
  [14:52:00.768]                       for (restart in restarts) {
  [14:52:00.768]                         name <- restart$name
  [14:52:00.768]                         if (is.null(name)) 
  [14:52:00.768]                           next
  [14:52:00.768]                         if (!grepl("^muffle", name)) 
  [14:52:00.768]                           next
  [14:52:00.768]                         invokeRestart(restart)
  [14:52:00.768]                         muffled <- TRUE
  [14:52:00.768]                         break
  [14:52:00.768]                       }
  [14:52:00.768]                     }
  [14:52:00.768]                     invisible(muffled)
  [14:52:00.768]                   }
  [14:52:00.768]                   muffleCondition(cond)
  [14:52:00.768]                 })
  [14:52:00.768]             }))
  [14:52:00.768]             future::FutureResult(value = ...future.value$value, 
  [14:52:00.768]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:52:00.768]                   ...future.rng), started = ...future.startTime, 
  [14:52:00.768]                 version = "1.8")
  [14:52:00.768]         }, condition = base::local({
  [14:52:00.768]             c <- base::c
  [14:52:00.768]             inherits <- base::inherits
  [14:52:00.768]             invokeRestart <- base::invokeRestart
  [14:52:00.768]             length <- base::length
  [14:52:00.768]             list <- base::list
  [14:52:00.768]             seq.int <- base::seq.int
  [14:52:00.768]             signalCondition <- base::signalCondition
  [14:52:00.768]             sys.calls <- base::sys.calls
  [14:52:00.768]             Sys.time <- base::Sys.time
  [14:52:00.768]             `[[` <- base::`[[`
  [14:52:00.768]             `+` <- base::`+`
  [14:52:00.768]             `<<-` <- base::`<<-`
  [14:52:00.768]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:52:00.768]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:52:00.768]                   3L)]
  [14:52:00.768]             }
  [14:52:00.768]             function(cond) {
  [14:52:00.768]                 if (inherits(cond, "error")) {
  [14:52:00.768]                   sessionInformation <- function() {
  [14:52:00.768]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:52:00.768]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:52:00.768]                       search = base::search(), system = base::Sys.info())
  [14:52:00.768]                   }
  [14:52:00.768]                   ...future.conditions[[length(...future.conditions) + 
  [14:52:00.768]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:52:00.768]                     cond$call), session = sessionInformation(), 
  [14:52:00.768]                     timestamp = Sys.time(), signaled = 0L)
  [14:52:00.768]                   signalCondition(cond)
  [14:52:00.768]                 }
  [14:52:00.768]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:52:00.768]                 ))) {
  [14:52:00.768]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:52:00.768]                   ...future.conditions[[length(...future.conditions) + 
  [14:52:00.768]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:52:00.768]                   if (!signal) {
  [14:52:00.768]                     muffleCondition <- function (cond) 
  [14:52:00.768]                     {
  [14:52:00.768]                       inherits <- base::inherits
  [14:52:00.768]                       invokeRestart <- base::invokeRestart
  [14:52:00.768]                       muffled <- FALSE
  [14:52:00.768]                       if (inherits(cond, "message")) {
  [14:52:00.768]                         invokeRestart("muffleMessage")
  [14:52:00.768]                         muffled <- TRUE
  [14:52:00.768]                       }
  [14:52:00.768]                       else if (inherits(cond, "warning")) {
  [14:52:00.768]                         invokeRestart("muffleWarning")
  [14:52:00.768]                         muffled <- TRUE
  [14:52:00.768]                       }
  [14:52:00.768]                       else if (inherits(cond, "condition")) {
  [14:52:00.768]                         computeRestarts <- base::computeRestarts
  [14:52:00.768]                         grepl <- base::grepl
  [14:52:00.768]                         is.null <- base::is.null
  [14:52:00.768]                         restarts <- computeRestarts(cond)
  [14:52:00.768]                         for (restart in restarts) {
  [14:52:00.768]                           name <- restart$name
  [14:52:00.768]                           if (is.null(name)) 
  [14:52:00.768]                             next
  [14:52:00.768]                           if (!grepl("^muffle", name)) 
  [14:52:00.768]                             next
  [14:52:00.768]                           invokeRestart(restart)
  [14:52:00.768]                           muffled <- TRUE
  [14:52:00.768]                           break
  [14:52:00.768]                         }
  [14:52:00.768]                       }
  [14:52:00.768]                       invisible(muffled)
  [14:52:00.768]                     }
  [14:52:00.768]                     muffleCondition(cond)
  [14:52:00.768]                   }
  [14:52:00.768]                 }
  [14:52:00.768]             }
  [14:52:00.768]         }))
  [14:52:00.768]     }, error = function(ex) {
  [14:52:00.768]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:52:00.768]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:52:00.768]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:52:00.768]     }, finally = {
  [14:52:00.768]         {
  [14:52:00.768]             {
  [14:52:00.768]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:52:00.768]             }
  [14:52:00.768]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:52:00.768]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:52:00.768]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:52:00.768]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:52:00.768]                 ...) 
  [14:52:00.768]             {
  [14:52:00.768]                 if (substitute) 
  [14:52:00.768]                   expr <- substitute(expr)
  [14:52:00.768]                 if (is.function(workers)) 
  [14:52:00.768]                   workers <- workers()
  [14:52:00.768]                 workers <- as.integer(workers)
  [14:52:00.768]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:52:00.768]                   workers >= 1)
  [14:52:00.768]                 if (workers == 1L) {
  [14:52:00.768]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:52:00.768]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:52:00.768]                     local = TRUE, label = label, ...))
  [14:52:00.768]                 }
  [14:52:00.768]                 workers <- ClusterRegistry("start", workers = workers)
  [14:52:00.768]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:52:00.768]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:52:00.768]                   globals = globals, persistent = persistent, 
  [14:52:00.768]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:52:00.768]                   label = label, ...)
  [14:52:00.768]                 if (!future$lazy) 
  [14:52:00.768]                   future <- run(future)
  [14:52:00.768]                 invisible(future)
  [14:52:00.768]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:52:00.768]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [14:52:00.768]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [14:52:00.768]                 label = NULL, ...) 
  [14:52:00.768]             {
  [14:52:00.768]                 if (substitute) 
  [14:52:00.768]                   expr <- substitute(expr)
  [14:52:00.768]                 if (is.function(workers)) 
  [14:52:00.768]                   workers <- workers()
  [14:52:00.768]                 workers <- as.integer(workers)
  [14:52:00.768]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:52:00.768]                   workers >= 1)
  [14:52:00.768]                 if (workers == 1L) {
  [14:52:00.768]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:52:00.768]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:52:00.768]                     local = TRUE, label = label, ...))
  [14:52:00.768]                 }
  [14:52:00.768]                 workers <- ClusterRegistry("start", workers = workers)
  [14:52:00.768]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:52:00.768]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:52:00.768]                   globals = globals, persistent = persistent, 
  [14:52:00.768]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:52:00.768]                   label = label, ...)
  [14:52:00.768]                 if (!future$lazy) 
  [14:52:00.768]                   future <- run(future)
  [14:52:00.768]                 invisible(future)
  [14:52:00.768]             }), .cleanup = FALSE, .init = FALSE)
  [14:52:00.768]         }
  [14:52:00.768]         base::options(...future.oldOptions)
  [14:52:00.768]     })
  [14:52:00.768]     Sys.time
  [14:52:00.768]     if (base::is.na(TRUE)) {
  [14:52:00.768]     }
  [14:52:00.768]     else {
  [14:52:00.768]         base::sink(type = "output", split = FALSE)
  [14:52:00.768]         if (TRUE) {
  [14:52:00.768]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:52:00.768]         }
  [14:52:00.768]         else {
  [14:52:00.768]             ...future.result["stdout"] <- base::list(NULL)
  [14:52:00.768]         }
  [14:52:00.768]         base::close(...future.stdout)
  [14:52:00.768]         ...future.stdout <- NULL
  [14:52:00.768]     }
  [14:52:00.768]     ...future.result$conditions <- ...future.conditions
  [14:52:00.768]     ...future.result
  [14:52:00.768] }
  [14:52:00.776] Exporting 1 global objects (336 bytes) to cluster node #2 ...
  [14:52:00.777] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ...
  [14:52:00.778] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ... DONE
  [14:52:00.778] Exporting 1 global objects (336 bytes) to cluster node #2 ... DONE
  [14:52:00.780] MultisessionFuture started
  [14:52:00.781] Chunk #2 of 2 ... DONE
  [14:52:00.781] Launching 2 futures (chunks) ... DONE
  [14:52:00.781] - resolving futures
  [14:52:00.782]   - gathering results & relaying conditions (except errors)
  [14:52:00.782] resolve() on list ...
  [14:52:00.782]  recursive: 0
  [14:52:00.799]  length: 2
  [14:52:00.799] 
  [14:52:00.970] receiveMessageFromWorker() for ClusterFuture ...
  [14:52:00.970] - Validating connection of MultisessionFuture
  [14:52:01.011] - received message: FutureResult
  [14:52:01.012] - Received FutureResult
  [14:52:01.012] - Erased future from FutureRegistry
  [14:52:01.013] result() for ClusterFuture ...
  [14:52:01.013] - result already collected: FutureResult
  [14:52:01.013] result() for ClusterFuture ... done
  [14:52:01.014] receiveMessageFromWorker() for ClusterFuture ... done
  [14:52:01.014] Future #1
  [14:52:01.014] result() for ClusterFuture ...
  [14:52:01.015] - result already collected: FutureResult
  [14:52:01.015] result() for ClusterFuture ... done
  [14:52:01.016] result() for ClusterFuture ...
  [14:52:01.016] - result already collected: FutureResult
  [14:52:01.016] result() for ClusterFuture ... done
  [14:52:01.017] signalConditionsASAP(MultisessionFuture, pos=1) ...
  [14:52:01.017] - nx: 2
  [14:52:01.017] - relay: TRUE
  [14:52:01.018] - stdout: TRUE
  [14:52:01.018] - signal: TRUE
  [14:52:01.018] - resignal: FALSE
  [14:52:01.019] - force: FALSE
  [14:52:01.019] - relayed: [n=2] FALSE, FALSE
  [14:52:01.019] - queued futures: [n=2] FALSE, FALSE
  [14:52:01.020]  - until=1
  [14:52:01.020]  - relaying element #1
  [14:52:01.020] result() for ClusterFuture ...
  [14:52:01.021] - result already collected: FutureResult
  [14:52:01.021] result() for ClusterFuture ... done
  [14:52:01.021] result() for ClusterFuture ...
  [14:52:01.022] - result already collected: FutureResult
  [14:52:01.022] result() for ClusterFuture ... done
  [14:52:01.023] result() for ClusterFuture ...
  [14:52:01.023] - result already collected: FutureResult
  [14:52:01.023] result() for ClusterFuture ... done
  [14:52:01.024] result() for ClusterFuture ...
  [14:52:01.024] - result already collected: FutureResult
  [14:52:01.024] result() for ClusterFuture ... done
  [14:52:01.025] - relayed: [n=2] TRUE, FALSE
  [14:52:01.025] - queued futures: [n=2] TRUE, FALSE
  [14:52:01.025] signalConditionsASAP(MultisessionFuture, pos=1) ... done
  [14:52:01.026]  length: 1 (resolved future 1)
  [14:52:01.164] receiveMessageFromWorker() for ClusterFuture ...
  [14:52:01.165] - Validating connection of MultisessionFuture
  [14:52:01.207] - received message: FutureResult
  [14:52:01.208] - Received FutureResult
  [14:52:01.208] - Erased future from FutureRegistry
  [14:52:01.209] result() for ClusterFuture ...
  [14:52:01.209] - result already collected: FutureResult
  [14:52:01.209] result() for ClusterFuture ... done
  [14:52:01.210] receiveMessageFromWorker() for ClusterFuture ... done
  [14:52:01.210] Future #2
  [14:52:01.211] result() for ClusterFuture ...
  [14:52:01.211] - result already collected: FutureResult
  [14:52:01.211] result() for ClusterFuture ... done
  [14:52:01.212] result() for ClusterFuture ...
  [14:52:01.212] - result already collected: FutureResult
  [14:52:01.212] result() for ClusterFuture ... done
  [14:52:01.213] signalConditionsASAP(MultisessionFuture, pos=2) ...
  [14:52:01.213] - nx: 2
  [14:52:01.213] - relay: TRUE
  [14:52:01.214] - stdout: TRUE
  [14:52:01.214] - signal: TRUE
  [14:52:01.214] - resignal: FALSE
  [14:52:01.215] - force: FALSE
  [14:52:01.215] - relayed: [n=2] TRUE, FALSE
  [14:52:01.215] - queued futures: [n=2] TRUE, FALSE
  [14:52:01.216]  - until=2
  [14:52:01.216]  - relaying element #2
  [14:52:01.216] result() for ClusterFuture ...
  [14:52:01.217] - result already collected: FutureResult
  [14:52:01.217] result() for ClusterFuture ... done
  [14:52:01.217] result() for ClusterFuture ...
  [14:52:01.218] - result already collected: FutureResult
  [14:52:01.218] result() for ClusterFuture ... done
  [14:52:01.219] result() for ClusterFuture ...
  [14:52:01.219] - result already collected: FutureResult
  [14:52:01.219] result() for ClusterFuture ... done
  [14:52:01.220] result() for ClusterFuture ...
  [14:52:01.220] - result already collected: FutureResult
  [14:52:01.220] result() for ClusterFuture ... done
  [14:52:01.221] - relayed: [n=2] TRUE, TRUE
  [14:52:01.221] - queued futures: [n=2] TRUE, TRUE
  [14:52:01.221] signalConditionsASAP(MultisessionFuture, pos=2) ... done
  [14:52:01.222]  length: 0 (resolved future 2)
  [14:52:01.222] Relaying remaining futures
  [14:52:01.239] signalConditionsASAP(NULL, pos=0) ...
  [14:52:01.239] - nx: 2
  [14:52:01.239] - relay: TRUE
  [14:52:01.240] - stdout: TRUE
  [14:52:01.240] - signal: TRUE
  [14:52:01.240] - resignal: FALSE
  [14:52:01.241] - force: FALSE
  [14:52:01.241] - relayed: [n=2] TRUE, TRUE
  [14:52:01.241] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [14:52:01.242] - relayed: [n=2] TRUE, TRUE
  [14:52:01.242] - queued futures: [n=2] TRUE, TRUE
  [14:52:01.243] signalConditionsASAP(NULL, pos=0) ... done
  [14:52:01.243] resolve() on list ... DONE
  [14:52:01.243] - collecting values of futures
  [14:52:01.244] result() for ClusterFuture ...
  [14:52:01.244] - result already collected: FutureResult
  [14:52:01.244] result() for ClusterFuture ... done
  [14:52:01.245] result() for ClusterFuture ...
  [14:52:01.245] - result already collected: FutureResult
  [14:52:01.245] result() for ClusterFuture ... done
  [14:52:01.246] result() for ClusterFuture ...
  [14:52:01.246] - result already collected: FutureResult
  [14:52:01.246] result() for ClusterFuture ... done
  [14:52:01.247] result() for ClusterFuture ...
  [14:52:01.247] - result already collected: FutureResult
  [14:52:01.247] result() for ClusterFuture ... done
  [14:52:01.248] - accumulating results
  [14:52:01.251] - processing errors (handler = 'stop')
  [14:52:01.251] - extracting results
  [14:52:01.252] doFuture() ... DONE
  - plan(list('multisession', 'multisession')) ... DONE
  - plan(list('multisession', 'cluster')) ...
  [14:52:01.253] plan(): Setting new future strategy stack:
  [14:52:01.253] List of future strategies:
  [14:52:01.253] 1. multisession:
  [14:52:01.253]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:52:01.253]    - tweaked: FALSE
  [14:52:01.253]    - call: plan(list(a = strategy1, b = strategy2))
  [14:52:01.253] 2. cluster:
  [14:52:01.253]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:52:01.253]    - tweaked: FALSE
  [14:52:01.253]    - call: plan(list(a = strategy1, b = strategy2))
  [14:52:01.272] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
  [14:52:01.273] multisession:
  [14:52:01.273] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:52:01.273] - tweaked: FALSE
  [14:52:01.273] - call: plan(list(a = strategy1, b = strategy2))
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 36648
  [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/Rtmp731ey4/future.parent=32359.7e677bf03f52.pid")), silent = TRUE)' -e "file.exists('/tmp/Rtmp731ey4/future.parent=32359.7e677bf03f52.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:32359:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp731ey4/future.parent=32359.7e677bf03f52.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=36648 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 36648 cannot be opened'
  Warning in socketConnection("localhost", port = port, server = TRUE, blocking = TRUE,  :
    port 36648 cannot be opened
  Killing worker process (PID 6225) if still alive
  [14:52:03.293] Attempting to find a working pid_exists_*() function ...
  Call: tools::pskill(32359, signal = 0L)
  [1] TRUE
  Call: tools::pskill(32359, signal = 0L)
  [1] TRUE
  [14:52:03.294] - success
  [14:52:03.294] Attempting to find a working pid_exists_*() function ... done
  Worker (PID 6225) 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 36648 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 36648 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:32359:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/Rtmp731ey4/future.parent=32359.7e677bf03f52.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=36648 OUT=/dev/null TIMEOUT=120 XDR=TRUE.
   * Worker (PID 6225) was successfully killed: TRUE
   * Troubleshooting suggestions:
     - Suggestion #1: Set 'outfile=NULL' to see output from worker.
  Calls: plan ... tryCatchList -> tryCatchOne -> <Anonymous> -> <Anonymous>
  Execution halted