CRAN Package Check Results for Package doFuture

Last updated on 2020-09-21 00:48:04 CEST.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.9.0 3.08 95.26 98.34 OK
r-devel-linux-x86_64-debian-gcc 0.9.0 2.19 75.59 77.78 OK
r-devel-linux-x86_64-fedora-clang 0.9.0 127.87 OK
r-devel-linux-x86_64-fedora-gcc 0.9.0 210.07 ERROR
r-devel-windows-ix86+x86_64 0.9.0 7.00 140.00 147.00 OK
r-patched-linux-x86_64 0.9.0 2.53 95.97 98.50 OK
r-patched-solaris-x86 0.9.0 58.20 OK --no-tests
r-release-linux-x86_64 0.9.0 2.73 96.10 98.83 OK
r-release-macos-x86_64 0.9.0 OK
r-release-windows-ix86+x86_64 0.9.0 6.00 139.00 145.00 OK
r-oldrel-macos-x86_64 0.9.0 OK
r-oldrel-windows-ix86+x86_64 0.9.0 3.00 133.00 136.00 OK

Check Details

Version: 0.9.0
Check: tests
Result: ERROR
     Running ‘DEPRECATED.R’
     Running ‘cluster-missing-doFuture-pkg.R’
     Running ‘doRNG,dopar.R’ [4s/41s]
     Running ‘doRNG,dorng.R’ [9s/46s]
     Running ‘foreach,errors.R’ [10s/122s]
     Running ‘foreach,globals.R’ [12s/123s]
     Running ‘foreach,nested.R’ [12s/162s]
     Running ‘foreach,nested_dopar.R’ [19s/121s]
     Running ‘foreach.R’ [16s/58s]
     Running ‘future.BatchJobs.R’ [39s/39s]
     Running ‘future.batchtools.R’ [38s/38s]
     Running ‘options.R’ [4s/24s]
     Running ‘registerDoFuture.R’ [3s/39s]
     Running ‘times.R’ [4s/41s]
     Running ‘zzz_opt-in,NMF.R’
     Running ‘zzz_opt-in,TSP.R’
     Running ‘zzz_opt-in,caret.R’
     Running ‘zzz_opt-in,foreach.R’
     Running ‘zzz_opt-in,glmnet.R’
     Running ‘zzz_opt-in,plyr.R’
    Running the tests in ‘tests/foreach,nested_dopar.R’ failed.
    Complete output:
     > source("incl/start.R")
     Loading required package: globals
     Loading required package: future
     Loading required package: foreach
     Loading required package: iterators
     Loading required package: parallel
     [14:16:44.982] plan(): Setting new future strategy stack:
     [14:16:44.983] List of future strategies:
     [14:16:44.983] 1. sequential:
     [14:16:44.983] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
     [14:16:44.983] - tweaked: FALSE
     [14:16:44.983] - call: future::plan(future::sequential)
     [14:16:44.986] plan(): nbrOfWorkers() = 1
     >
     > strategies <- future:::supportedStrategies()
     > strategies <- setdiff(strategies, "multiprocess")
     >
     > message("*** doFuture - nested %dopar% ...")
     *** doFuture - nested %dopar% ...
     >
     > registerDoFuture()
     >
     > message("*** doFuture - nested %dopar% and tricky globals ...")
     *** doFuture - nested %dopar% and tricky globals ...
     >
     > ## This works ...
     > x <- foreach(j = 1) %dopar% { j }
     [14:16:44.993] doFuture() ...
     [14:16:44.998] - dummy globals (as locals): [1] 'j'
     [14:16:45.000] - R expression:
     [14:16:45.001] {
     [14:16:45.001] doFuture::registerDoFuture()
     [14:16:45.001] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:45.001] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:45.001] j <- NULL
     [14:16:45.001] ...future.env <- environment()
     [14:16:45.001] local({
     [14:16:45.001] for (name in names(...future.x_jj)) {
     [14:16:45.001] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:45.001] inherits = FALSE)
     [14:16:45.001] }
     [14:16:45.001] })
     [14:16:45.001] tryCatch({
     [14:16:45.001] j
     [14:16:45.001] }, error = identity)
     [14:16:45.001] })
     [14:16:45.001] }
     [14:16:45.002] - identifying globals and packages ...
     [14:16:45.005] getGlobalsAndPackages() ...
     [14:16:45.006] Searching for globals...
     [14:16:45.055] - globals found: [14] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'identity'
     [14:16:45.056] Searching for globals ... DONE
     [14:16:45.057] Resolving globals: FALSE
     [14:16:45.060] The total size of the 1 globals is 0 bytes (0 bytes)
     [14:16:45.061] - globals: [1] '...future.x_ii'
     [14:16:45.062]
     [14:16:45.062] getGlobalsAndPackages() ... DONE
     [14:16:45.063] List of 1
     [14:16:45.063] $ ...future.x_ii: NULL
     [14:16:45.063] - attr(*, "where")=List of 1
     [14:16:45.063] ..$ ...future.x_ii:<environment: 0x36d0920>
     [14:16:45.063] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
     [14:16:45.063] - attr(*, "resolved")= logi FALSE
     [14:16:45.063] - attr(*, "total_size")= num 0
     [14:16:45.080] - R expression:
     [14:16:45.080] {
     [14:16:45.080] doFuture::registerDoFuture()
     [14:16:45.080] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:45.080] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:45.080] j <- NULL
     [14:16:45.080] ...future.env <- environment()
     [14:16:45.080] local({
     [14:16:45.080] for (name in names(...future.x_jj)) {
     [14:16:45.080] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:45.080] inherits = FALSE)
     [14:16:45.080] }
     [14:16:45.080] })
     [14:16:45.080] tryCatch({
     [14:16:45.080] j
     [14:16:45.080] }, error = identity)
     [14:16:45.080] })
     [14:16:45.080] }
     [14:16:45.082] - globals: [1] '...future.x_ii'
     [14:16:45.082] List of 1
     [14:16:45.082] $ ...future.x_ii: NULL
     [14:16:45.082] - attr(*, "where")=List of 1
     [14:16:45.082] ..$ ...future.x_ii:<environment: 0x36d0920>
     [14:16:45.082] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
     [14:16:45.082] - attr(*, "resolved")= logi FALSE
     [14:16:45.082] - attr(*, "total_size")= num 0
     [14:16:45.091] - packages: [1] 'doFuture'
     [14:16:45.092] - identifying globals and packages ... DONE
     [14:16:45.093] Number of chunks: 1
     [14:16:45.094] Number of futures (= number of chunks): 1
     [14:16:45.096] Launching 1 futures (chunks) ...
     [14:16:45.096] Chunk #1 of 1 ...
     [14:16:45.096] - Finding globals in 'args_list' chunk #1 ...
     [14:16:45.097] getGlobalsAndPackages() ...
     [14:16:45.097] Searching for globals...
     [14:16:45.099]
     [14:16:45.099] Searching for globals ... DONE
     [14:16:45.099] - globals: [0] <none>
     [14:16:45.100] getGlobalsAndPackages() ... DONE
     [14:16:45.100]
     [14:16:45.101]
     [14:16:45.101] - Finding globals in 'args_list' for chunk #1 ... DONE
     [14:16:45.102] getGlobalsAndPackages() ...
     [14:16:45.103] - globals passed as-is: [1] '...future.x_ii'
     [14:16:45.103] Resolving globals: FALSE
     [14:16:45.105] The total size of the 1 globals is 56 bytes (56 bytes)
     [14:16:45.105] - globals: [1] '...future.x_ii'
     [14:16:45.106]
     [14:16:45.106] getGlobalsAndPackages() ... DONE
     [14:16:45.111] Packages needed by the future expression (n = 1): 'doFuture'
     [14:16:45.112] Packages needed by future strategies (n = 0): <none>
     [14:16:45.121] {
     [14:16:45.121] {
     [14:16:45.121] ...future.startTime <- base::Sys.time()
     [14:16:45.121] ...future.oldOptions <- base::options(future.startup.script = FALSE,
     [14:16:45.121] future.globals.onMissing = NULL, future.globals.maxSize = NULL,
     [14:16:45.121] future.globals.method = NULL, future.globals.onMissing = NULL,
     [14:16:45.121] future.globals.onReference = NULL, future.globals.resolve = NULL,
     [14:16:45.121] future.resolve.recursive = NULL, width = 80L)
     [14:16:45.121] {
     [14:16:45.121] {
     [14:16:45.121] {
     [14:16:45.121] base::local({
     [14:16:45.121] has_future <- base::requireNamespace("future",
     [14:16:45.121] quietly = TRUE)
     [14:16:45.121] version <- if (has_future)
     [14:16:45.121] utils::packageVersion("future")
     [14:16:45.121] else NULL
     [14:16:45.121] if (!has_future || version < "1.8.0") {
     [14:16:45.121] info <- base::c(r_version = base::gsub("R version ",
     [14:16:45.121] "", base::R.version$version.string),
     [14:16:45.121] platform = base::sprintf("%s (%s-bit)",
     [14:16:45.121] base::R.version$platform, 8 * base::.Machine$sizeof.pointer),
     [14:16:45.121] os = base::paste(base::Sys.info()[base::c("sysname",
     [14:16:45.121] "release", "version")], collapse = " "),
     [14:16:45.121] hostname = base::Sys.info()[["nodename"]])
     [14:16:45.121] info <- base::sprintf("%s: %s", base::names(info),
     [14:16:45.121] info)
     [14:16:45.121] info <- base::paste(info, collapse = "; ")
     [14:16:45.121] if (!has_future) {
     [14:16:45.121] msg <- base::sprintf("Package 'future' is not installed on worker (%s)",
     [14:16:45.121] info)
     [14:16:45.121] }
     [14:16:45.121] else {
     [14:16:45.121] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s",
     [14:16:45.121] info, version)
     [14:16:45.121] }
     [14:16:45.121] base::stop(msg)
     [14:16:45.121] }
     [14:16:45.121] })
     [14:16:45.121] }
     [14:16:45.121] base::local({
     [14:16:45.121] for (pkg in "doFuture") {
     [14:16:45.121] base::loadNamespace(pkg)
     [14:16:45.121] base::library(pkg, character.only = TRUE)
     [14:16:45.121] }
     [14:16:45.121] })
     [14:16:45.121] }
     [14:16:45.121] future::plan("default", .cleanup = FALSE, .init = FALSE)
     [14:16:45.121] }
     [14:16:45.121] }
     [14:16:45.121] if (base::is.na(TRUE)) {
     [14:16:45.121] }
     [14:16:45.121] else {
     [14:16:45.121] if (TRUE) {
     [14:16:45.121] ...future.stdout <- base::rawConnection(base::raw(0L),
     [14:16:45.121] open = "w")
     [14:16:45.121] }
     [14:16:45.121] else {
     [14:16:45.121] ...future.stdout <- base::file(base::switch(.Platform$OS.type,
     [14:16:45.121] windows = "NUL", "/dev/null"), open = "w")
     [14:16:45.121] }
     [14:16:45.121] base::sink(...future.stdout, type = "output", split = FALSE)
     [14:16:45.121] base::on.exit(if (!base::is.null(...future.stdout)) {
     [14:16:45.121] base::sink(type = "output", split = FALSE)
     [14:16:45.121] base::close(...future.stdout)
     [14:16:45.121] }, add = TRUE)
     [14:16:45.121] }
     [14:16:45.121] ...future.frame <- base::sys.nframe()
     [14:16:45.121] ...future.conditions <- base::list()
     [14:16:45.121] ...future.rng <- base::globalenv()$.Random.seed
     [14:16:45.121] ...future.result <- base::tryCatch({
     [14:16:45.121] base::withCallingHandlers({
     [14:16:45.121] ...future.value <- base::withVisible(base::local({
     [14:16:45.121] doFuture::registerDoFuture()
     [14:16:45.121] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:45.121] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:45.121] j <- NULL
     [14:16:45.121] ...future.env <- environment()
     [14:16:45.121] local({
     [14:16:45.121] for (name in names(...future.x_jj)) {
     [14:16:45.121] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:45.121] inherits = FALSE)
     [14:16:45.121] }
     [14:16:45.121] })
     [14:16:45.121] tryCatch({
     [14:16:45.121] j
     [14:16:45.121] }, error = identity)
     [14:16:45.121] })
     [14:16:45.121] }))
     [14:16:45.121] future::FutureResult(value = ...future.value$value,
     [14:16:45.121] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed,
     [14:16:45.121] ...future.rng), started = ...future.startTime,
     [14:16:45.121] version = "1.8")
     [14:16:45.121] }, condition = base::local({
     [14:16:45.121] c <- base::c
     [14:16:45.121] inherits <- base::inherits
     [14:16:45.121] invokeRestart <- base::invokeRestart
     [14:16:45.121] length <- base::length
     [14:16:45.121] list <- base::list
     [14:16:45.121] seq.int <- base::seq.int
     [14:16:45.121] signalCondition <- base::signalCondition
     [14:16:45.121] sys.calls <- base::sys.calls
     [14:16:45.121] Sys.time <- base::Sys.time
     [14:16:45.121] `[[` <- base::`[[`
     [14:16:45.121] `+` <- base::`+`
     [14:16:45.121] `<<-` <- base::`<<-`
     [14:16:45.121] sysCalls <- function(calls = sys.calls(), from = 1L) {
     [14:16:45.121] calls[seq.int(from = from + 12L, to = length(calls) -
     [14:16:45.121] 3L)]
     [14:16:45.121] }
     [14:16:45.121] function(cond) {
     [14:16:45.121] if (inherits(cond, "error")) {
     [14:16:45.121] sessionInformation <- function() {
     [14:16:45.121] list(r = base::R.Version(), locale = base::Sys.getlocale(),
     [14:16:45.121] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(),
     [14:16:45.121] search = base::search(), system = base::Sys.info())
     [14:16:45.121] }
     [14:16:45.121] ...future.conditions[[length(...future.conditions) +
     [14:16:45.121] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame),
     [14:16:45.121] cond$call), session = sessionInformation(),
     [14:16:45.121] timestamp = Sys.time(), signaled = 0L)
     [14:16:45.121] signalCondition(cond)
     [14:16:45.121] }
     [14:16:45.121] else if (inherits(cond, c("condition", "immediateCondition"
     [14:16:45.121] ))) {
     [14:16:45.121] signal <- TRUE && inherits(cond, "immediateCondition")
     [14:16:45.121] ...future.conditions[[length(...future.conditions) +
     [14:16:45.121] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
     [14:16:45.121] if (!signal) {
     [14:16:45.121] muffleCondition <- function (cond)
     [14:16:45.121] {
     [14:16:45.121] inherits <- base::inherits
     [14:16:45.121] invokeRestart <- base::invokeRestart
     [14:16:45.121] muffled <- FALSE
     [14:16:45.121] if (inherits(cond, "message")) {
     [14:16:45.121] invokeRestart("muffleMessage")
     [14:16:45.121] muffled <- TRUE
     [14:16:45.121] }
     [14:16:45.121] else if (inherits(cond, "warning")) {
     [14:16:45.121] invokeRestart("muffleWarning")
     [14:16:45.121] muffled <- TRUE
     [14:16:45.121] }
     [14:16:45.121] else if (inherits(cond, "condition")) {
     [14:16:45.121] computeRestarts <- base::computeRestarts
     [14:16:45.121] grepl <- base::grepl
     [14:16:45.121] is.null <- base::is.null
     [14:16:45.121] restarts <- computeRestarts(cond)
     [14:16:45.121] for (restart in restarts) {
     [14:16:45.121] name <- restart$name
     [14:16:45.121] if (is.null(name))
     [14:16:45.121] next
     [14:16:45.121] if (!grepl("^muffle", name))
     [14:16:45.121] next
     [14:16:45.121] invokeRestart(restart)
     [14:16:45.121] muffled <- TRUE
     [14:16:45.121] break
     [14:16:45.121] }
     [14:16:45.121] }
     [14:16:45.121] invisible(muffled)
     [14:16:45.121] }
     [14:16:45.121] muffleCondition(cond)
     [14:16:45.121] }
     [14:16:45.121] }
     [14:16:45.121] }
     [14:16:45.121] }))
     [14:16:45.121] }, error = function(ex) {
     [14:16:45.121] base::structure(base::list(value = NULL, visible = NULL,
     [14:16:45.121] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed,
     [14:16:45.121] ...future.rng), version = "1.8"), class = "FutureResult")
     [14:16:45.121] }, finally = {
     [14:16:45.121] {
     [14:16:45.121] NULL
     [14:16:45.121] future::plan(list(function (expr, envir = parent.frame(),
     [14:16:45.121] substitute = TRUE, lazy = FALSE, seed = NULL,
     [14:16:45.121] globals = TRUE, local = TRUE, earlySignal = FALSE,
     [14:16:45.121] label = NULL, ...)
     [14:16:45.121] {
     [14:16:45.121] if (substitute)
     [14:16:45.121] expr <- substitute(expr)
     [14:16:45.121] local <- as.logical(local)
     [14:16:45.121] future <- SequentialFuture(expr = expr, envir = envir,
     [14:16:45.121] substitute = FALSE, lazy = lazy, seed = seed,
     [14:16:45.121] globals = globals, local = local, earlySignal = earlySignal,
     [14:16:45.121] label = label, ...)
     [14:16:45.121] if (!future$lazy)
     [14:16:45.121] future <- run(future)
     [14:16:45.121] invisible(future)
     [14:16:45.121] }), .cleanup = FALSE, .init = FALSE)
     [14:16:45.121] }
     [14:16:45.121] base::options(...future.oldOptions)
     [14:16:45.121] })
     [14:16:45.121] Sys.time
     [14:16:45.121] if (base::is.na(TRUE)) {
     [14:16:45.121] }
     [14:16:45.121] else {
     [14:16:45.121] base::sink(type = "output", split = FALSE)
     [14:16:45.121] if (TRUE) {
     [14:16:45.121] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
     [14:16:45.121] }
     [14:16:45.121] else {
     [14:16:45.121] ...future.result["stdout"] <- base::list(NULL)
     [14:16:45.121] }
     [14:16:45.121] base::close(...future.stdout)
     [14:16:45.121] ...future.stdout <- NULL
     [14:16:45.121] }
     [14:16:45.121] ...future.result$conditions <- ...future.conditions
     [14:16:45.121] ...future.result
     [14:16:45.121] }
     [14:16:45.131] plan(): Setting new future strategy stack:
     [14:16:45.131] List of future strategies:
     [14:16:45.131] 1. sequential:
     [14:16:45.131] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
     [14:16:45.131] - tweaked: FALSE
     [14:16:45.131] - call: NULL
     [14:16:45.133] plan(): nbrOfWorkers() = 1
     [14:16:45.135] plan(): Setting new future strategy stack:
     [14:16:45.136] List of future strategies:
     [14:16:45.136] 1. sequential:
     [14:16:45.136] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
     [14:16:45.136] - tweaked: FALSE
     [14:16:45.136] - call: future::plan(future::sequential)
     [14:16:45.137] plan(): nbrOfWorkers() = 1
     [14:16:45.138] SequentialFuture started (and completed)
     [14:16:45.140] Chunk #1 of 1 ... DONE
     [14:16:45.140] Launching 1 futures (chunks) ... DONE
     [14:16:45.141] - resolving futures
     [14:16:45.141] - gathering results & relaying conditions (except errors)
     [14:16:45.142] resolve() on list ...
     [14:16:45.143] recursive: 0
     [14:16:45.144] length: 1
     [14:16:45.144]
     [14:16:45.145] Future #1
     [14:16:45.146] signalConditionsASAP(SequentialFuture, pos=1) ...
     [14:16:45.146] - nx: 1
     [14:16:45.147] - relay: TRUE
     [14:16:45.147] - stdout: TRUE
     [14:16:45.148] - signal: TRUE
     [14:16:45.148] - resignal: FALSE
     [14:16:45.149] - force: FALSE
     [14:16:45.149] - relayed: [n=1] FALSE
     [14:16:45.149] - queued futures: [n=1] FALSE
     [14:16:45.150] - until=1
     [14:16:45.150] - relaying element #1
     [14:16:45.151] - relayed: [n=1] TRUE
     [14:16:45.152] - queued futures: [n=1] TRUE
     [14:16:45.152] signalConditionsASAP(SequentialFuture, pos=1) ... done
     [14:16:45.153] length: 0 (resolved future 1)
     [14:16:45.153] Relaying remaining futures
     [14:16:45.154] signalConditionsASAP(NULL, pos=0) ...
     [14:16:45.154] - nx: 1
     [14:16:45.155] - relay: TRUE
     [14:16:45.155] - stdout: TRUE
     [14:16:45.155] - signal: TRUE
     [14:16:45.156] - resignal: FALSE
     [14:16:45.156] - force: FALSE
     [14:16:45.157] - relayed: [n=1] TRUE
     [14:16:45.157] - queued futures: [n=1] TRUE
     - flush all
     [14:16:45.158] - relayed: [n=1] TRUE
     [14:16:45.158] - queued futures: [n=1] TRUE
     [14:16:45.159] signalConditionsASAP(NULL, pos=0) ... done
     [14:16:45.159] resolve() on list ... DONE
     [14:16:45.159] - collecting values of futures
     [14:16:45.160] - accumulating results
     [14:16:45.163] - processing errors (handler = 'stop')
     [14:16:45.164] - extracting results
     [14:16:45.164] doFuture() ... DONE
     > str(x)
     List of 1
     $ : num 1
     > rm(list = "x")
     >
     > ## ... but this would give a "globals-not-found" error in
     > ## doFuture (<= 0.4.0) because 'j' was interpreted as global variable
     > x <- foreach(i = 1, .packages = "foreach") %dopar% {
     + foreach(j = 1) %dopar% { j }
     + }
     [14:16:45.168] doFuture() ...
     [14:16:45.169] - dummy globals (as locals): [1] 'i'
     [14:16:45.171] - R expression:
     [14:16:45.171] {
     [14:16:45.171] doFuture::registerDoFuture()
     [14:16:45.171] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:45.171] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:45.171] i <- NULL
     [14:16:45.171] ...future.env <- environment()
     [14:16:45.171] local({
     [14:16:45.171] for (name in names(...future.x_jj)) {
     [14:16:45.171] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:45.171] inherits = FALSE)
     [14:16:45.171] }
     [14:16:45.171] })
     [14:16:45.171] tryCatch({
     [14:16:45.171] foreach(j = 1) %dopar% {
     [14:16:45.171] j
     [14:16:45.171] }
     [14:16:45.171] }, error = identity)
     [14:16:45.171] })
     [14:16:45.171] }
     [14:16:45.172] - identifying globals and packages ...
     [14:16:45.173] getGlobalsAndPackages() ...
     [14:16:45.173] Searching for globals...
     [14:16:45.198] - globals found: [17] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', '%dopar%', 'foreach', 'j', 'identity'
     [14:16:45.199] Searching for globals ... DONE
     [14:16:45.199] Resolving globals: FALSE
     [14:16:45.202] The total size of the 1 globals is 0 bytes (0 bytes)
     [14:16:45.202] - globals: [1] '...future.x_ii'
     [14:16:45.203] - packages: [1] 'foreach'
     [14:16:45.203] getGlobalsAndPackages() ... DONE
     [14:16:45.204] List of 1
     [14:16:45.204] $ ...future.x_ii: NULL
     [14:16:45.204] - attr(*, "where")=List of 1
     [14:16:45.204] ..$ ...future.x_ii:<environment: 0x3c68b58>
     [14:16:45.204] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
     [14:16:45.204] - attr(*, "resolved")= logi FALSE
     [14:16:45.204] - attr(*, "total_size")= num 0
     [14:16:45.213] - R expression:
     [14:16:45.214] {
     [14:16:45.214] doFuture::registerDoFuture()
     [14:16:45.214] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:45.214] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:45.214] i <- NULL
     [14:16:45.214] ...future.env <- environment()
     [14:16:45.214] local({
     [14:16:45.214] for (name in names(...future.x_jj)) {
     [14:16:45.214] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:45.214] inherits = FALSE)
     [14:16:45.214] }
     [14:16:45.214] })
     [14:16:45.214] tryCatch({
     [14:16:45.214] foreach(j = 1) %dopar% {
     [14:16:45.214] j
     [14:16:45.214] }
     [14:16:45.214] }, error = identity)
     [14:16:45.214] })
     [14:16:45.214] }
     [14:16:45.215] - globals: [1] '...future.x_ii'
     [14:16:45.215] List of 1
     [14:16:45.215] $ ...future.x_ii: NULL
     [14:16:45.215] - attr(*, "where")=List of 1
     [14:16:45.215] ..$ ...future.x_ii:<environment: 0x3c68b58>
     [14:16:45.215] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
     [14:16:45.215] - attr(*, "resolved")= logi FALSE
     [14:16:45.215] - attr(*, "total_size")= num 0
     [14:16:45.225] - packages: [2] 'doFuture', 'foreach'
     [14:16:45.225] - identifying globals and packages ... DONE
     [14:16:45.226] Number of chunks: 1
     [14:16:45.226] Number of futures (= number of chunks): 1
     [14:16:45.227] Launching 1 futures (chunks) ...
     [14:16:45.228] Chunk #1 of 1 ...
     [14:16:45.228] - Finding globals in 'args_list' chunk #1 ...
     [14:16:45.228] getGlobalsAndPackages() ...
     [14:16:45.229] Searching for globals...
     [14:16:45.230]
     [14:16:45.231] Searching for globals ... DONE
     [14:16:45.231] - globals: [0] <none>
     [14:16:45.231] getGlobalsAndPackages() ... DONE
     [14:16:45.232]
     [14:16:45.232]
     [14:16:45.233] - Finding globals in 'args_list' for chunk #1 ... DONE
     [14:16:45.233] getGlobalsAndPackages() ...
     [14:16:45.234] - globals passed as-is: [1] '...future.x_ii'
     [14:16:45.234] Resolving globals: FALSE
     [14:16:45.235] The total size of the 1 globals is 56 bytes (56 bytes)
     [14:16:45.236] - globals: [1] '...future.x_ii'
     [14:16:45.237]
     [14:16:45.237] getGlobalsAndPackages() ... DONE
     [14:16:45.240] Packages needed by the future expression (n = 2): 'doFuture', 'foreach'
     [14:16:45.241] Packages needed by future strategies (n = 0): <none>
     [14:16:45.249] {
     [14:16:45.249] {
     [14:16:45.249] ...future.startTime <- base::Sys.time()
     [14:16:45.249] ...future.oldOptions <- base::options(future.startup.script = FALSE,
     [14:16:45.249] future.globals.onMissing = NULL, future.globals.maxSize = NULL,
     [14:16:45.249] future.globals.method = NULL, future.globals.onMissing = NULL,
     [14:16:45.249] future.globals.onReference = NULL, future.globals.resolve = NULL,
     [14:16:45.249] future.resolve.recursive = NULL, width = 80L)
     [14:16:45.249] {
     [14:16:45.249] {
     [14:16:45.249] {
     [14:16:45.249] base::local({
     [14:16:45.249] has_future <- base::requireNamespace("future",
     [14:16:45.249] quietly = TRUE)
     [14:16:45.249] version <- if (has_future)
     [14:16:45.249] utils::packageVersion("future")
     [14:16:45.249] else NULL
     [14:16:45.249] if (!has_future || version < "1.8.0") {
     [14:16:45.249] info <- base::c(r_version = base::gsub("R version ",
     [14:16:45.249] "", base::R.version$version.string),
     [14:16:45.249] platform = base::sprintf("%s (%s-bit)",
     [14:16:45.249] base::R.version$platform, 8 * base::.Machine$sizeof.pointer),
     [14:16:45.249] os = base::paste(base::Sys.info()[base::c("sysname",
     [14:16:45.249] "release", "version")], collapse = " "),
     [14:16:45.249] hostname = base::Sys.info()[["nodename"]])
     [14:16:45.249] info <- base::sprintf("%s: %s", base::names(info),
     [14:16:45.249] info)
     [14:16:45.249] info <- base::paste(info, collapse = "; ")
     [14:16:45.249] if (!has_future) {
     [14:16:45.249] msg <- base::sprintf("Package 'future' is not installed on worker (%s)",
     [14:16:45.249] info)
     [14:16:45.249] }
     [14:16:45.249] else {
     [14:16:45.249] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s",
     [14:16:45.249] info, version)
     [14:16:45.249] }
     [14:16:45.249] base::stop(msg)
     [14:16:45.249] }
     [14:16:45.249] })
     [14:16:45.249] }
     [14:16:45.249] base::local({
     [14:16:45.249] for (pkg in c("doFuture", "foreach")) {
     [14:16:45.249] base::loadNamespace(pkg)
     [14:16:45.249] base::library(pkg, character.only = TRUE)
     [14:16:45.249] }
     [14:16:45.249] })
     [14:16:45.249] }
     [14:16:45.249] future::plan("default", .cleanup = FALSE, .init = FALSE)
     [14:16:45.249] }
     [14:16:45.249] }
     [14:16:45.249] if (base::is.na(TRUE)) {
     [14:16:45.249] }
     [14:16:45.249] else {
     [14:16:45.249] if (TRUE) {
     [14:16:45.249] ...future.stdout <- base::rawConnection(base::raw(0L),
     [14:16:45.249] open = "w")
     [14:16:45.249] }
     [14:16:45.249] else {
     [14:16:45.249] ...future.stdout <- base::file(base::switch(.Platform$OS.type,
     [14:16:45.249] windows = "NUL", "/dev/null"), open = "w")
     [14:16:45.249] }
     [14:16:45.249] base::sink(...future.stdout, type = "output", split = FALSE)
     [14:16:45.249] base::on.exit(if (!base::is.null(...future.stdout)) {
     [14:16:45.249] base::sink(type = "output", split = FALSE)
     [14:16:45.249] base::close(...future.stdout)
     [14:16:45.249] }, add = TRUE)
     [14:16:45.249] }
     [14:16:45.249] ...future.frame <- base::sys.nframe()
     [14:16:45.249] ...future.conditions <- base::list()
     [14:16:45.249] ...future.rng <- base::globalenv()$.Random.seed
     [14:16:45.249] ...future.result <- base::tryCatch({
     [14:16:45.249] base::withCallingHandlers({
     [14:16:45.249] ...future.value <- base::withVisible(base::local({
     [14:16:45.249] doFuture::registerDoFuture()
     [14:16:45.249] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:45.249] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:45.249] i <- NULL
     [14:16:45.249] ...future.env <- environment()
     [14:16:45.249] local({
     [14:16:45.249] for (name in names(...future.x_jj)) {
     [14:16:45.249] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:45.249] inherits = FALSE)
     [14:16:45.249] }
     [14:16:45.249] })
     [14:16:45.249] tryCatch({
     [14:16:45.249] foreach(j = 1) %dopar% {
     [14:16:45.249] j
     [14:16:45.249] }
     [14:16:45.249] }, error = identity)
     [14:16:45.249] })
     [14:16:45.249] }))
     [14:16:45.249] future::FutureResult(value = ...future.value$value,
     [14:16:45.249] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed,
     [14:16:45.249] ...future.rng), started = ...future.startTime,
     [14:16:45.249] version = "1.8")
     [14:16:45.249] }, condition = base::local({
     [14:16:45.249] c <- base::c
     [14:16:45.249] inherits <- base::inherits
     [14:16:45.249] invokeRestart <- base::invokeRestart
     [14:16:45.249] length <- base::length
     [14:16:45.249] list <- base::list
     [14:16:45.249] seq.int <- base::seq.int
     [14:16:45.249] signalCondition <- base::signalCondition
     [14:16:45.249] sys.calls <- base::sys.calls
     [14:16:45.249] Sys.time <- base::Sys.time
     [14:16:45.249] `[[` <- base::`[[`
     [14:16:45.249] `+` <- base::`+`
     [14:16:45.249] `<<-` <- base::`<<-`
     [14:16:45.249] sysCalls <- function(calls = sys.calls(), from = 1L) {
     [14:16:45.249] calls[seq.int(from = from + 12L, to = length(calls) -
     [14:16:45.249] 3L)]
     [14:16:45.249] }
     [14:16:45.249] function(cond) {
     [14:16:45.249] if (inherits(cond, "error")) {
     [14:16:45.249] sessionInformation <- function() {
     [14:16:45.249] list(r = base::R.Version(), locale = base::Sys.getlocale(),
     [14:16:45.249] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(),
     [14:16:45.249] search = base::search(), system = base::Sys.info())
     [14:16:45.249] }
     [14:16:45.249] ...future.conditions[[length(...future.conditions) +
     [14:16:45.249] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame),
     [14:16:45.249] cond$call), session = sessionInformation(),
     [14:16:45.249] timestamp = Sys.time(), signaled = 0L)
     [14:16:45.249] signalCondition(cond)
     [14:16:45.249] }
     [14:16:45.249] else if (inherits(cond, c("condition", "immediateCondition"
     [14:16:45.249] ))) {
     [14:16:45.249] signal <- TRUE && inherits(cond, "immediateCondition")
     [14:16:45.249] ...future.conditions[[length(...future.conditions) +
     [14:16:45.249] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
     [14:16:45.249] if (!signal) {
     [14:16:45.249] muffleCondition <- function (cond)
     [14:16:45.249] {
     [14:16:45.249] inherits <- base::inherits
     [14:16:45.249] invokeRestart <- base::invokeRestart
     [14:16:45.249] muffled <- FALSE
     [14:16:45.249] if (inherits(cond, "message")) {
     [14:16:45.249] invokeRestart("muffleMessage")
     [14:16:45.249] muffled <- TRUE
     [14:16:45.249] }
     [14:16:45.249] else if (inherits(cond, "warning")) {
     [14:16:45.249] invokeRestart("muffleWarning")
     [14:16:45.249] muffled <- TRUE
     [14:16:45.249] }
     [14:16:45.249] else if (inherits(cond, "condition")) {
     [14:16:45.249] computeRestarts <- base::computeRestarts
     [14:16:45.249] grepl <- base::grepl
     [14:16:45.249] is.null <- base::is.null
     [14:16:45.249] restarts <- computeRestarts(cond)
     [14:16:45.249] for (restart in restarts) {
     [14:16:45.249] name <- restart$name
     [14:16:45.249] if (is.null(name))
     [14:16:45.249] next
     [14:16:45.249] if (!grepl("^muffle", name))
     [14:16:45.249] next
     [14:16:45.249] invokeRestart(restart)
     [14:16:45.249] muffled <- TRUE
     [14:16:45.249] break
     [14:16:45.249] }
     [14:16:45.249] }
     [14:16:45.249] invisible(muffled)
     [14:16:45.249] }
     [14:16:45.249] muffleCondition(cond)
     [14:16:45.249] }
     [14:16:45.249] }
     [14:16:45.249] }
     [14:16:45.249] }))
     [14:16:45.249] }, error = function(ex) {
     [14:16:45.249] base::structure(base::list(value = NULL, visible = NULL,
     [14:16:45.249] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed,
     [14:16:45.249] ...future.rng), version = "1.8"), class = "FutureResult")
     [14:16:45.249] }, finally = {
     [14:16:45.249] {
     [14:16:45.249] NULL
     [14:16:45.249] future::plan(list(function (expr, envir = parent.frame(),
     [14:16:45.249] substitute = TRUE, lazy = FALSE, seed = NULL,
     [14:16:45.249] globals = TRUE, local = TRUE, earlySignal = FALSE,
     [14:16:45.249] label = NULL, ...)
     [14:16:45.249] {
     [14:16:45.249] if (substitute)
     [14:16:45.249] expr <- substitute(expr)
     [14:16:45.249] local <- as.logical(local)
     [14:16:45.249] future <- SequentialFuture(expr = expr, envir = envir,
     [14:16:45.249] substitute = FALSE, lazy = lazy, seed = seed,
     [14:16:45.249] globals = globals, local = local, earlySignal = earlySignal,
     [14:16:45.249] label = label, ...)
     [14:16:45.249] if (!future$lazy)
     [14:16:45.249] future <- run(future)
     [14:16:45.249] invisible(future)
     [14:16:45.249] }), .cleanup = FALSE, .init = FALSE)
     [14:16:45.249] }
     [14:16:45.249] base::options(...future.oldOptions)
     [14:16:45.249] })
     [14:16:45.249] Sys.time
     [14:16:45.249] if (base::is.na(TRUE)) {
     [14:16:45.249] }
     [14:16:45.249] else {
     [14:16:45.249] base::sink(type = "output", split = FALSE)
     [14:16:45.249] if (TRUE) {
     [14:16:45.249] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
     [14:16:45.249] }
     [14:16:45.249] else {
     [14:16:45.249] ...future.result["stdout"] <- base::list(NULL)
     [14:16:45.249] }
     [14:16:45.249] base::close(...future.stdout)
     [14:16:45.249] ...future.stdout <- NULL
     [14:16:45.249] }
     [14:16:45.249] ...future.result$conditions <- ...future.conditions
     [14:16:45.249] ...future.result
     [14:16:45.249] }
     [14:16:45.259] plan(): Setting new future strategy stack:
     [14:16:45.260] List of future strategies:
     [14:16:45.260] 1. sequential:
     [14:16:45.260] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
     [14:16:45.260] - tweaked: FALSE
     [14:16:45.260] - call: NULL
     [14:16:45.261] plan(): nbrOfWorkers() = 1
     [14:16:45.410] plan(): Setting new future strategy stack:
     [14:16:45.411] List of future strategies:
     [14:16:45.411] 1. sequential:
     [14:16:45.411] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
     [14:16:45.411] - tweaked: FALSE
     [14:16:45.411] - call: future::plan(future::sequential)
     [14:16:45.413] plan(): nbrOfWorkers() = 1
     [14:16:45.414] SequentialFuture started (and completed)
     [14:16:45.414] signalConditions() ...
     [14:16:45.414] - include = 'immediateCondition'
     [14:16:45.415] - exclude =
     [14:16:45.415] - resignal = FALSE
     [14:16:45.416] - Number of conditions: 96
     [14:16:45.417] signalConditions() ... done
     [14:16:45.417] Chunk #1 of 1 ... DONE
     [14:16:45.418] Launching 1 futures (chunks) ... DONE
     [14:16:45.418] - resolving futures
     [14:16:45.419] - gathering results & relaying conditions (except errors)
     [14:16:45.419] resolve() on list ...
     [14:16:45.419] recursive: 0
     [14:16:45.420] length: 1
     [14:16:45.420]
     [14:16:45.421] Future #1
     [14:16:45.421] signalConditions() ...
     [14:16:45.422] - include = 'immediateCondition'
     [14:16:45.422] - exclude =
     [14:16:45.423] - resignal = FALSE
     [14:16:45.423] - Number of conditions: 96
     [14:16:45.424] signalConditions() ... done
     [14:16:45.424] signalConditionsASAP(SequentialFuture, pos=1) ...
     [14:16:45.425] - nx: 1
     [14:16:45.425] - relay: TRUE
     [14:16:45.426] - stdout: TRUE
     [14:16:45.426] - signal: TRUE
     [14:16:45.426] - resignal: FALSE
     [14:16:45.427] - force: FALSE
     [14:16:45.427] - relayed: [n=1] FALSE
     [14:16:45.428] - queued futures: [n=1] FALSE
     [14:16:45.428] - until=1
     [14:16:45.429] - relaying element #1
     [14:16:45.429] signalConditions() ...
     [14:16:45.430] - include = 'immediateCondition'
     [14:16:45.430] - exclude =
     [14:16:45.431] - resignal = FALSE
     [14:16:45.431] - Number of conditions: 96
     [14:16:45.432] signalConditions() ... done
     [14:16:45.432] signalConditions() ...
     [14:16:45.433] - include = 'immediateCondition'
     [14:16:45.433] - exclude =
     [14:16:45.434] - resignal = FALSE
     [14:16:45.434] - Number of conditions: 96
     [14:16:45.435] signalConditions() ... done
     [14:16:45.436] signalConditions() ...
     [14:16:45.436] - include = 'condition'
     [14:16:45.436] - exclude = 'immediateCondition'
     [14:16:45.437] - resignal = FALSE
     [14:16:45.437] - Number of conditions: 96
     [14:16:45.438] - Condition #1: 'simpleMessage', 'message', 'condition'
     [14:16:45.263] doFuture() ...
     [14:16:45.438] - Condition #2: 'simpleMessage', 'message', 'condition'
     [14:16:45.266] - dummy globals (as locals): [1] 'j'
     [14:16:45.439] - Condition #3: 'simpleMessage', 'message', 'condition'
     [14:16:45.267] - R expression:
     [14:16:45.440] - Condition #4: 'simpleMessage', 'message', 'condition'
     [14:16:45.268] {
     [14:16:45.268] doFuture::registerDoFuture()
     [14:16:45.268] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:45.268] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:45.268] j <- NULL
     [14:16:45.268] ...future.env <- environment()
     [14:16:45.268] local({
     [14:16:45.268] for (name in names(...future.x_jj)) {
     [14:16:45.268] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:45.268] inherits = FALSE)
     [14:16:45.268] }
     [14:16:45.268] })
     [14:16:45.268] tryCatch({
     [14:16:45.268] j
     [14:16:45.268] }, error = identity)
     [14:16:45.268] })
     [14:16:45.268] }
     [14:16:45.440] - Condition #5: 'simpleMessage', 'message', 'condition'
     [14:16:45.270] - identifying globals and packages ...
     [14:16:45.441] - Condition #6: 'simpleMessage', 'message', 'condition'
     [14:16:45.271] getGlobalsAndPackages() ...
     [14:16:45.442] - Condition #7: 'simpleMessage', 'message', 'condition'
     [14:16:45.272] Searching for globals...
     [14:16:45.442] - Condition #8: 'simpleMessage', 'message', 'condition'
     [14:16:45.293] - globals found: [14] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'identity'
     [14:16:45.443] - Condition #9: 'simpleMessage', 'message', 'condition'
     [14:16:45.294] Searching for globals ... DONE
     [14:16:45.443] - Condition #10: 'simpleMessage', 'message', 'condition'
     [14:16:45.294] Resolving globals: FALSE
     [14:16:45.444] - Condition #11: 'simpleMessage', 'message', 'condition'
     [14:16:45.297] The total size of the 1 globals is 0 bytes (0 bytes)
     [14:16:45.445] - Condition #12: 'simpleMessage', 'message', 'condition'
     [14:16:45.297] - globals: [1] '...future.x_ii'
     [14:16:45.445] - Condition #13: 'simpleMessage', 'message', 'condition'
     [14:16:45.298]
     [14:16:45.446] - Condition #14: 'simpleMessage', 'message', 'condition'
     [14:16:45.299] getGlobalsAndPackages() ... DONE
     [14:16:45.447] - Condition #15: 'simpleMessage', 'message', 'condition'
     [14:16:45.300] List of 1
     [14:16:45.300] $ ...future.x_ii: NULL
     [14:16:45.300] - attr(*, "where")=List of 1
     [14:16:45.300] ..$ ...future.x_ii:<environment: 0x37b78d8>
     [14:16:45.300] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
     [14:16:45.300] - attr(*, "resolved")= logi FALSE
     [14:16:45.300] - attr(*, "total_size")= num 0
     [14:16:45.447] - Condition #16: 'simpleMessage', 'message', 'condition'
     [14:16:45.310] - R expression:
     [14:16:45.448] - Condition #17: 'simpleMessage', 'message', 'condition'
     [14:16:45.310] {
     [14:16:45.310] doFuture::registerDoFuture()
     [14:16:45.310] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:45.310] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:45.310] j <- NULL
     [14:16:45.310] ...future.env <- environment()
     [14:16:45.310] local({
     [14:16:45.310] for (name in names(...future.x_jj)) {
     [14:16:45.310] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:45.310] inherits = FALSE)
     [14:16:45.310] }
     [14:16:45.310] })
     [14:16:45.310] tryCatch({
     [14:16:45.310] j
     [14:16:45.310] }, error = identity)
     [14:16:45.310] })
     [14:16:45.310] }
     [14:16:45.448] - Condition #18: 'simpleMessage', 'message', 'condition'
     [14:16:45.312] - globals: [1] '...future.x_ii'
     [14:16:45.449] - Condition #19: 'simpleMessage', 'message', 'condition'
     [14:16:45.312] List of 1
     [14:16:45.312] $ ...future.x_ii: NULL
     [14:16:45.312] - attr(*, "where")=List of 1
     [14:16:45.312] ..$ ...future.x_ii:<environment: 0x37b78d8>
     [14:16:45.312] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
     [14:16:45.312] - attr(*, "resolved")= logi FALSE
     [14:16:45.312] - attr(*, "total_size")= num 0
     [14:16:45.450] - Condition #20: 'simpleMessage', 'message', 'condition'
     [14:16:45.322] - packages: [1] 'doFuture'
     [14:16:45.450] - Condition #21: 'simpleMessage', 'message', 'condition'
     [14:16:45.323] - identifying globals and packages ... DONE
     [14:16:45.451] - Condition #22: 'simpleMessage', 'message', 'condition'
     [14:16:45.323] Number of chunks: 1
     [14:16:45.452] - Condition #23: 'simpleMessage', 'message', 'condition'
     [14:16:45.324] Number of futures (= number of chunks): 1
     [14:16:45.452] - Condition #24: 'simpleMessage', 'message', 'condition'
     [14:16:45.326] Launching 1 futures (chunks) ...
     [14:16:45.453] - Condition #25: 'simpleMessage', 'message', 'condition'
     [14:16:45.326] Chunk #1 of 1 ...
     [14:16:45.454] - Condition #26: 'simpleMessage', 'message', 'condition'
     [14:16:45.327] - Finding globals in 'args_list' chunk #1 ...
     [14:16:45.454] - Condition #27: 'simpleMessage', 'message', 'condition'
     [14:16:45.328] getGlobalsAndPackages() ...
     [14:16:45.455] - Condition #28: 'simpleMessage', 'message', 'condition'
     [14:16:45.328] Searching for globals...
     [14:16:45.455] - Condition #29: 'simpleMessage', 'message', 'condition'
     [14:16:45.330]
     [14:16:45.456] - Condition #30: 'simpleMessage', 'message', 'condition'
     [14:16:45.331] Searching for globals ... DONE
     [14:16:45.457] - Condition #31: 'simpleMessage', 'message', 'condition'
     [14:16:45.331] - globals: [0] <none>
     [14:16:45.457] - Condition #32: 'simpleMessage', 'message', 'condition'
     [14:16:45.332] getGlobalsAndPackages() ... DONE
     [14:16:45.458] - Condition #33: 'simpleMessage', 'message', 'condition'
     [14:16:45.333]
     [14:16:45.459] - Condition #34: 'simpleMessage', 'message', 'condition'
     [14:16:45.333]
     [14:16:45.459] - Condition #35: 'simpleMessage', 'message', 'condition'
     [14:16:45.334] - Finding globals in 'args_list' for chunk #1 ... DONE
     [14:16:45.460] - Condition #36: 'simpleMessage', 'message', 'condition'
     [14:16:45.335] getGlobalsAndPackages() ...
     [14:16:45.460] - Condition #37: 'simpleMessage', 'message', 'condition'
     [14:16:45.336] - globals passed as-is: [1] '...future.x_ii'
     [14:16:45.461] - Condition #38: 'simpleMessage', 'message', 'condition'
     [14:16:45.337] Resolving globals: FALSE
     [14:16:45.462] - Condition #39: 'simpleMessage', 'message', 'condition'
     [14:16:45.338] The total size of the 1 globals is 56 bytes (56 bytes)
     [14:16:45.462] - Condition #40: 'simpleMessage', 'message', 'condition'
     [14:16:45.339] - globals: [1] '...future.x_ii'
     [14:16:45.463] - Condition #41: 'simpleMessage', 'message', 'condition'
     [14:16:45.340]
     [14:16:45.464] - Condition #42: 'simpleMessage', 'message', 'condition'
     [14:16:45.341] getGlobalsAndPackages() ... DONE
     [14:16:45.464] - Condition #43: 'simpleMessage', 'message', 'condition'
     [14:16:45.344] Packages needed by the future expression (n = 1): 'doFuture'
     [14:16:45.465] - Condition #44: 'simpleMessage', 'message', 'condition'
     [14:16:45.345] Packages needed by future strategies (n = 0): <none>
     [14:16:45.466] - Condition #45: 'simpleMessage', 'message', 'condition'
     [14:16:45.354] {
     [14:16:45.354] {
     [14:16:45.354] ...future.startTime <- base::Sys.time()
     [14:16:45.354] ...future.oldOptions <- base::options(future.startup.script = FALSE,
     [14:16:45.354] future.globals.onMissing = NULL, future.globals.maxSize = NULL,
     [14:16:45.354] future.globals.method = NULL, future.globals.onMissing = NULL,
     [14:16:45.354] future.globals.onReference = NULL, future.globals.resolve = NULL,
     [14:16:45.354] future.resolve.recursive = NULL, width = 80L)
     [14:16:45.354] {
     [14:16:45.354] {
     [14:16:45.354] {
     [14:16:45.354] base::local({
     [14:16:45.354] has_future <- base::requireNamespace("future",
     [14:16:45.354] quietly = TRUE)
     [14:16:45.354] version <- if (has_future)
     [14:16:45.354] utils::packageVersion("future")
     [14:16:45.354] else NULL
     [14:16:45.354] if (!has_future || version < "1.8.0") {
     [14:16:45.354] info <- base::c(r_version = base::gsub("R version ",
     [14:16:45.354] "", base::R.version$version.string),
     [14:16:45.354] platform = base::sprintf("%s (%s-bit)",
     [14:16:45.354] base::R.version$platform, 8 * base::.Machine$sizeof.pointer),
     [14:16:45.354] os = base::paste(base::Sys.info()[base::c("sysname",
     [14:16:45.354] "release", "version")], collapse = " "),
     [14:16:45.354] hostname = base::Sys.info()[["nodename"]])
     [14:16:45.354] info <- base::sprintf("%s: %s", base::names(info),
     [14:16:45.354] info)
     [14:16:45.354] info <- base::paste(info, collapse = "; ")
     [14:16:45.354] if (!has_future) {
     [14:16:45.354] msg <- base::sprintf("Package 'future' is not installed on worker (%s)",
     [14:16:45.354] info)
     [14:16:45.354] }
     [14:16:45.354] else {
     [14:16:45.354] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s",
     [14:16:45.354] info, version)
     [14:16:45.354] }
     [14:16:45.354] base::stop(msg)
     [14:16:45.354] }
     [14:16:45.354] })
     [14:16:45.354] }
     [14:16:45.354] base::local({
     [14:16:45.354] for (pkg in "doFuture") {
     [14:16:45.354] base::loadNamespace(pkg)
     [14:16:45.354] base::library(pkg, character.only = TRUE)
     [14:16:45.354] }
     [14:16:45.354] })
     [14:16:45.354] }
     [14:16:45.354] future::plan("default", .cleanup = FALSE, .init = FALSE)
     [14:16:45.354] }
     [14:16:45.354] }
     [14:16:45.354] if (base::is.na(TRUE)) {
     [14:16:45.354] }
     [14:16:45.354] else {
     [14:16:45.354] if (TRUE) {
     [14:16:45.354] ...future.stdout <- base::rawConnection(base::raw(0L),
     [14:16:45.354] open = "w")
     [14:16:45.354] }
     [14:16:45.354] else {
     [14:16:45.354] ...future.stdout <- base::file(base::switch(.Platform$OS.type,
     [14:16:45.354] windows = "NUL", "/dev/null"), open = "w")
     [14:16:45.354] }
     [14:16:45.354] base::sink(...future.stdout, type = "output", split = FALSE)
     [14:16:45.354] base::on.exit(if (!base::is.null(...future.stdout)) {
     [14:16:45.354] base::sink(type = "output", split = FALSE)
     [14:16:45.354] base::close(...future.stdout)
     [14:16:45.354] }, add = TRUE)
     [14:16:45.354] }
     [14:16:45.354] ...future.frame <- base::sys.nframe()
     [14:16:45.354] ...future.conditions <- base::list()
     [14:16:45.354] ...future.rng <- base::globalenv()$.Random.seed
     [14:16:45.354] ...future.result <- base::tryCatch({
     [14:16:45.354] base::withCallingHandlers({
     [14:16:45.354] ...future.value <- base::withVisible(base::local({
     [14:16:45.354] doFuture::registerDoFuture()
     [14:16:45.354] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:45.354] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:45.354] j <- NULL
     [14:16:45.354] ...future.env <- environment()
     [14:16:45.354] local({
     [14:16:45.354] for (name in names(...future.x_jj)) {
     [14:16:45.354] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:45.354] inherits = FALSE)
     [14:16:45.354] }
     [14:16:45.354] })
     [14:16:45.354] tryCatch({
     [14:16:45.354] j
     [14:16:45.354] }, error = identity)
     [14:16:45.354] })
     [14:16:45.354] }))
     [14:16:45.354] future::FutureResult(value = ...future.value$value,
     [14:16:45.354] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed,
     [14:16:45.354] ...future.rng), started = ...future.startTime,
     [14:16:45.354] version = "1.8")
     [14:16:45.354] }, condition = base::local({
     [14:16:45.354] c <- base::c
     [14:16:45.354] inherits <- base::inherits
     [14:16:45.354] invokeRestart <- base::invokeRestart
     [14:16:45.354] length <- base::length
     [14:16:45.354] list <- base::list
     [14:16:45.354] seq.int <- base::seq.int
     [14:16:45.354] signalCondition <- base::signalCondition
     [14:16:45.354] sys.calls <- base::sys.calls
     [14:16:45.354] Sys.time <- base::Sys.time
     [14:16:45.354] `[[` <- base::`[[`
     [14:16:45.354] `+` <- base::`+`
     [14:16:45.354] `<<-` <- base::`<<-`
     [14:16:45.354] sysCalls <- function(calls = sys.calls(), from = 1L) {
     [14:16:45.354] calls[seq.int(from = from + 12L, to = length(calls) -
     [14:16:45.354] 3L)]
     [14:16:45.354] }
     [14:16:45.354] function(cond) {
     [14:16:45.354] if (inherits(cond, "error")) {
     [14:16:45.354] sessionInformation <- function() {
     [14:16:45.354] list(r = base::R.Version(), locale = base::Sys.getlocale(),
     [14:16:45.354] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(),
     [14:16:45.354] search = base::search(), system = base::Sys.info())
     [14:16:45.354] }
     [14:16:45.354] ...future.conditions[[length(...future.conditions) +
     [14:16:45.354] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame),
     [14:16:45.354] cond$call), session = sessionInformation(),
     [14:16:45.354] timestamp = Sys.time(), signaled = 0L)
     [14:16:45.354] signalCondition(cond)
     [14:16:45.354] }
     [14:16:45.354] else if (inherits(cond, c("condition", "immediateCondition"
     [14:16:45.354] ))) {
     [14:16:45.354] signal <- TRUE && inherits(cond, "immediateCondition")
     [14:16:45.354] ...future.conditions[[length(...future.conditions) +
     [14:16:45.354] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
     [14:16:45.354] if (!signal) {
     [14:16:45.354] muffleCondition <- function (cond)
     [14:16:45.354] {
     [14:16:45.354] inherits <- base::inherits
     [14:16:45.354] invokeRestart <- base::invokeRestart
     [14:16:45.354] muffled <- FALSE
     [14:16:45.354] if (inherits(cond, "message")) {
     [14:16:45.354] invokeRestart("muffleMessage")
     [14:16:45.354] muffled <- TRUE
     [14:16:45.354] }
     [14:16:45.354] else if (inherits(cond, "warning")) {
     [14:16:45.354] invokeRestart("muffleWarning")
     [14:16:45.354] muffled <- TRUE
     [14:16:45.354] }
     [14:16:45.354] else if (inherits(cond, "condition")) {
     [14:16:45.354] computeRestarts <- base::computeRestarts
     [14:16:45.354] grepl <- base::grepl
     [14:16:45.354] is.null <- base::is.null
     [14:16:45.354] restarts <- computeRestarts(cond)
     [14:16:45.354] for (restart in restarts) {
     [14:16:45.354] name <- restart$name
     [14:16:45.354] if (is.null(name))
     [14:16:45.354] next
     [14:16:45.354] if (!grepl("^muffle", name))
     [14:16:45.354] next
     [14:16:45.354] invokeRestart(restart)
     [14:16:45.354] muffled <- TRUE
     [14:16:45.354] break
     [14:16:45.354] }
     [14:16:45.354] }
     [14:16:45.354] invisible(muffled)
     [14:16:45.354] }
     [14:16:45.354] muffleCondition(cond)
     [14:16:45.354] }
     [14:16:45.354] }
     [14:16:45.354] }
     [14:16:45.354] }))
     [14:16:45.354] }, error = function(ex) {
     [14:16:45.354] base::structure(base::list(value = NULL, visible = NULL,
     [14:16:45.354] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed,
     [14:16:45.354] ...future.rng), version = "1.8"), class = "FutureResult")
     [14:16:45.354] }, finally = {
     [14:16:45.354] {
     [14:16:45.354] NULL
     [14:16:45.354] future::plan(list(function (expr, envir = parent.frame(),
     [14:16:45.354] substitute = TRUE, lazy = FALSE, seed = NULL,
     [14:16:45.354] globals = TRUE, local = TRUE, earlySignal = FALSE,
     [14:16:45.354] label = NULL, ...)
     [14:16:45.354] {
     [14:16:45.354] if (substitute)
     [14:16:45.354] expr <- substitute(expr)
     [14:16:45.354] local <- as.logical(local)
     [14:16:45.354] future <- SequentialFuture(expr = expr, envir = envir,
     [14:16:45.354] substitute = FALSE, lazy = lazy, seed = seed,
     [14:16:45.354] globals = globals, local = local, earlySignal = earlySignal,
     [14:16:45.354] label = label, ...)
     [14:16:45.354] if (!future$lazy)
     [14:16:45.354] future <- run(future)
     [14:16:45.354] invisible(future)
     [14:16:45.354] }), .cleanup = FALSE, .init = FALSE)
     [14:16:45.354] }
     [14:16:45.354] base::options(...future.oldOptions)
     [14:16:45.354] })
     [14:16:45.354] Sys.time
     [14:16:45.354] if (base::is.na(TRUE)) {
     [14:16:45.354] }
     [14:16:45.354] else {
     [14:16:45.354] base::sink(type = "output", split = FALSE)
     [14:16:45.354] if (TRUE) {
     [14:16:45.354] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
     [14:16:45.354] }
     [14:16:45.354] else {
     [14:16:45.354] ...future.result["stdout"] <- base::list(NULL)
     [14:16:45.354] }
     [14:16:45.354] base::close(...future.stdout)
     [14:16:45.354] ...future.stdout <- NULL
     [14:16:45.354] }
     [14:16:45.354] ...future.result$conditions <- ...future.conditions
     [14:16:45.354] ...future.result
     [14:16:45.354] }
     [14:16:45.466] - Condition #46: 'simpleMessage', 'message', 'condition'
     [14:16:45.363] plan(): Setting new future strategy stack:
     [14:16:45.467] - Condition #47: 'simpleMessage', 'message', 'condition'
     [14:16:45.364] List of future strategies:
     [14:16:45.364] 1. sequential:
     [14:16:45.364] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
     [14:16:45.364] - tweaked: FALSE
     [14:16:45.364] - call: NULL
     [14:16:45.467] - Condition #48: 'simpleMessage', 'message', 'condition'
     [14:16:45.366] plan(): nbrOfWorkers() = 1
     [14:16:45.468] - Condition #49: 'simpleMessage', 'message', 'condition'
     [14:16:45.368] plan(): Setting new future strategy stack:
     [14:16:45.469] - Condition #50: 'simpleMessage', 'message', 'condition'
     [14:16:45.369] List of future strategies:
     [14:16:45.369] 1. sequential:
     [14:16:45.369] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
     [14:16:45.369] - tweaked: FALSE
     [14:16:45.369] - call: NULL
     [14:16:45.469] - Condition #51: 'simpleMessage', 'message', 'condition'
     [14:16:45.371] plan(): nbrOfWorkers() = 1
     [14:16:45.470] - Condition #52: 'simpleMessage', 'message', 'condition'
     [14:16:45.372] SequentialFuture started (and completed)
     [14:16:45.470] - Condition #53: 'simpleMessage', 'message', 'condition'
     [14:16:45.373] Chunk #1 of 1 ... DONE
     [14:16:45.471] - Condition #54: 'simpleMessage', 'message', 'condition'
     [14:16:45.374] Launching 1 futures (chunks) ... DONE
     [14:16:45.472] - Condition #55: 'simpleMessage', 'message', 'condition'
     [14:16:45.374] - resolving futures
     [14:16:45.472] - Condition #56: 'simpleMessage', 'message', 'condition'
     [14:16:45.375] - gathering results & relaying conditions (except errors)
     [14:16:45.473] - Condition #57: 'simpleMessage', 'message', 'condition'
     [14:16:45.376] resolve() on list ...
     [14:16:45.474] - Condition #58: 'simpleMessage', 'message', 'condition'
     [14:16:45.376] recursive: 0
     [14:16:45.474] - Condition #59: 'simpleMessage', 'message', 'condition'
     [14:16:45.377] length: 1
     [14:16:45.475] - Condition #60: 'simpleMessage', 'message', 'condition'
     [14:16:45.378]
     [14:16:45.475] - Condition #61: 'simpleMessage', 'message', 'condition'
     [14:16:45.379] Future #1
     [14:16:45.476] - Condition #62: 'simpleMessage', 'message', 'condition'
     [14:16:45.380] signalConditionsASAP(SequentialFuture, pos=1) ...
     [14:16:45.477] - Condition #63: 'simpleMessage', 'message', 'condition'
     [14:16:45.380] - nx: 1
     [14:16:45.477] - Condition #64: 'simpleMessage', 'message', 'condition'
     [14:16:45.381] - relay: TRUE
     [14:16:45.478] - Condition #65: 'simpleMessage', 'message', 'condition'
     [14:16:45.382] - stdout: TRUE
     [14:16:45.479] - Condition #66: 'simpleMessage', 'message', 'condition'
     [14:16:45.382] - signal: TRUE
     [14:16:45.479] - Condition #67: 'simpleMessage', 'message', 'condition'
     [14:16:45.383] - resignal: FALSE
     [14:16:45.480] - Condition #68: 'simpleMessage', 'message', 'condition'
     [14:16:45.384] - force: FALSE
     [14:16:45.480] - Condition #69: 'simpleMessage', 'message', 'condition'
     [14:16:45.385] - relayed: [n=1] FALSE
     [14:16:45.481] - Condition #70: 'simpleMessage', 'message', 'condition'
     [14:16:45.385] - queued futures: [n=1] FALSE
     [14:16:45.482] - Condition #71: 'simpleMessage', 'message', 'condition'
     [14:16:45.386] - until=1
     [14:16:45.482] - Condition #72: 'simpleMessage', 'message', 'condition'
     [14:16:45.387] - relaying element #1
     [14:16:45.483] - Condition #73: 'simpleMessage', 'message', 'condition'
     [14:16:45.388] - relayed: [n=1] TRUE
     [14:16:45.484] - Condition #74: 'simpleMessage', 'message', 'condition'
     [14:16:45.389] - queued futures: [n=1] TRUE
     [14:16:45.484] - Condition #75: 'simpleMessage', 'message', 'condition'
     [14:16:45.389] signalConditionsASAP(SequentialFuture, pos=1) ... done
     [14:16:45.485] - Condition #76: 'simpleMessage', 'message', 'condition'
     [14:16:45.390] length: 0 (resolved future 1)
     [14:16:45.485] - Condition #77: 'simpleMessage', 'message', 'condition'
     [14:16:45.391] Relaying remaining futures
     [14:16:45.486] - Condition #78: 'simpleMessage', 'message', 'condition'
     [14:16:45.392] signalConditionsASAP(NULL, pos=0) ...
     [14:16:45.487] - Condition #79: 'simpleMessage', 'message', 'condition'
     [14:16:45.392] - nx: 1
     [14:16:45.487] - Condition #80: 'simpleMessage', 'message', 'condition'
     [14:16:45.393] - relay: TRUE
     [14:16:45.488] - Condition #81: 'simpleMessage', 'message', 'condition'
     [14:16:45.394] - stdout: TRUE
     [14:16:45.489] - Condition #82: 'simpleMessage', 'message', 'condition'
     [14:16:45.394] - signal: TRUE
     [14:16:45.489] - Condition #83: 'simpleMessage', 'message', 'condition'
     [14:16:45.395] - resignal: FALSE
     [14:16:45.490] - Condition #84: 'simpleMessage', 'message', 'condition'
     [14:16:45.396] - force: FALSE
     [14:16:45.490] - Condition #85: 'simpleMessage', 'message', 'condition'
     [14:16:45.396] - relayed: [n=1] TRUE
     [14:16:45.491] - Condition #86: 'simpleMessage', 'message', 'condition'
     [14:16:45.397] - queued futures: [n=1] TRUE
     [14:16:45.492] - Condition #87: 'simpleMessage', 'message', 'condition'
     - flush all
     [14:16:45.492] - Condition #88: 'simpleMessage', 'message', 'condition'
     [14:16:45.399] - relayed: [n=1] TRUE
     [14:16:45.493] - Condition #89: 'simpleMessage', 'message', 'condition'
     [14:16:45.399] - queued futures: [n=1] TRUE
     [14:16:45.494] - Condition #90: 'simpleMessage', 'message', 'condition'
     [14:16:45.400] signalConditionsASAP(NULL, pos=0) ... done
     [14:16:45.494] - Condition #91: 'simpleMessage', 'message', 'condition'
     [14:16:45.401] resolve() on list ... DONE
     [14:16:45.495] - Condition #92: 'simpleMessage', 'message', 'condition'
     [14:16:45.405] - collecting values of futures
     [14:16:45.495] - Condition #93: 'simpleMessage', 'message', 'condition'
     [14:16:45.406] - accumulating results
     [14:16:45.496] - Condition #94: 'simpleMessage', 'message', 'condition'
     [14:16:45.408] - processing errors (handler = 'stop')
     [14:16:45.497] - Condition #95: 'simpleMessage', 'message', 'condition'
     [14:16:45.409] - extracting results
     [14:16:45.497] - Condition #96: 'simpleMessage', 'message', 'condition'
     [14:16:45.409] doFuture() ... DONE
     [14:16:45.498] signalConditions() ... done
     [14:16:45.499] - relayed: [n=1] TRUE
     [14:16:45.499] - queued futures: [n=1] TRUE
     [14:16:45.499] signalConditionsASAP(SequentialFuture, pos=1) ... done
     [14:16:45.500] length: 0 (resolved future 1)
     [14:16:45.500] Relaying remaining futures
     [14:16:45.501] signalConditionsASAP(NULL, pos=0) ...
     [14:16:45.501] - nx: 1
     [14:16:45.502] - relay: TRUE
     [14:16:45.502] - stdout: TRUE
     [14:16:45.502] - signal: TRUE
     [14:16:45.503] - resignal: FALSE
     [14:16:45.503] - force: FALSE
     [14:16:45.504] - relayed: [n=1] TRUE
     [14:16:45.504] - queued futures: [n=1] TRUE
     - flush all
     [14:16:45.505] - relayed: [n=1] TRUE
     [14:16:45.505] - queued futures: [n=1] TRUE
     [14:16:45.506] signalConditionsASAP(NULL, pos=0) ... done
     [14:16:45.506] resolve() on list ... DONE
     [14:16:45.507] - collecting values of futures
     [14:16:45.507] signalConditions() ...
     [14:16:45.508] - include = 'immediateCondition'
     [14:16:45.508] - exclude =
     [14:16:45.508] - resignal = FALSE
     [14:16:45.509] - Number of conditions: 96
     [14:16:45.510] signalConditions() ... done
     [14:16:45.510] - accumulating results
     [14:16:45.512] - processing errors (handler = 'stop')
     [14:16:45.512] - extracting results
     [14:16:45.512] doFuture() ... DONE
     > str(x)
     List of 1
     $ :List of 1
     ..$ : num 1
     > rm(list = "x")
     >
     > message("*** doFuture - nested %dopar% and tricky globals ... DONE")
     *** doFuture - nested %dopar% and tricky globals ... DONE
     >
     >
     > for (strategy1 in strategies) {
     + for (strategy2 in strategies) {
     + message(sprintf("- plan(list('%s', '%s')) ...", strategy1, strategy2))
     + plan(list(a = strategy1, b = strategy2))
     + nested <- plan("list")
     +
     + as <- 1:2
     + bs <- 3:1
     +
     + stopifnot(!exists("a", inherits = FALSE), !exists("b", inherits = FALSE))
     +
     + message("foreach() - level 1 ...")
     + x <- foreach(a = as, .export = c("bs", "strategy2"),
     + .packages = "foreach") %dopar% {
     + plan_list <- future::plan("next")
     + stopifnot(inherits(plan_list, strategy2))
     + plan_a <- future::plan("list")
     + str(plan_a)
     + stopifnot(inherits(plan_a[[1]], strategy2))
     +
     + message("foreach() - level 2 ...")
     + y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% {
     + plan_list <- future::plan("next")
     + message(capture.output(print(plan_list)))
     +
     + stopifnot(inherits(plan_list, "future"))
     + ## future.plan can be either a string or a future function
     + default <- getOption("future.plan", "sequential")
     + if (is.function(default)) default <- class(default)
     + stopifnot(inherits(plan_list, default))
     +
     + plan_b <- future::plan("list")
     + str(plan_b)
     + stopifnot(
     + inherits(plan_b[[1]], "future"),
     + inherits(plan_b[[1]], default)
     + )
     +
     + list(a = a, plan_a = plan_a,
     + b = b, plan_b = plan_b)
     + }
     + message("foreach() - level 2 ... DONE")
     +
     + y
     + }
     + message("foreach() - level 1 ... DONE")
     +
     + local({
     + stopifnot(length(x) == length(as))
     + for (aa in seq_along(as)) {
     + x_aa <- x[[aa]]
     + stopifnot(length(x_aa) == length(bs))
     + a <- as[aa]
     + for (bb in seq_along(bs)) {
     + x_aa_bb <- x_aa[[bb]]
     + b <- bs[bb]
     + stopifnot(
     + length(x_aa_bb) == 4L,
     + all(names(x_aa_bb) == c("a", "plan_a", "b", "plan_b")),
     + x_aa_bb$a == a,
     + x_aa_bb$b == b,
     + inherits(x_aa_bb$plan_a[[1]], strategy2),
     + inherits(x_aa_bb$plan_b[[1]], "future"),
     + inherits(x_aa_bb$plan_b[[1]],
     + getOption("future.plan", "sequential"))
     + )
     + }
     + }
     + })
     +
     + ## Cleanup in order make sure none of these variables exist as
     + ## proxies for missing globals of the name names
     + rm(list = c("as", "bs", "x"))
     + message(sprintf("- plan(list('%s', '%s')) ... DONE", strategy1, strategy2))
     + }
     + }
     - plan(list('sequential', 'sequential')) ...
     [14:16:45.692] plan(): Setting new future strategy stack:
     [14:16:45.692] List of future strategies:
     [14:16:45.692] 1. sequential:
     [14:16:45.692] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
     [14:16:45.692] - tweaked: FALSE
     [14:16:45.692] - call: plan(list(a = strategy1, b = strategy2))
     [14:16:45.692] 2. sequential:
     [14:16:45.692] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
     [14:16:45.692] - tweaked: FALSE
     [14:16:45.692] - call: plan(list(a = strategy1, b = strategy2))
     [14:16:45.739] plan(): nbrOfWorkers() = 1
     foreach() - level 1 ...
     [14:16:45.741] doFuture() ...
     [14:16:45.743] - dummy globals (as locals): [1] 'a'
     [14:16:45.744] - R expression:
     [14:16:45.745] {
     [14:16:45.745] doFuture::registerDoFuture()
     [14:16:45.745] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:45.745] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:45.745] a <- NULL
     [14:16:45.745] ...future.env <- environment()
     [14:16:45.745] local({
     [14:16:45.745] for (name in names(...future.x_jj)) {
     [14:16:45.745] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:45.745] inherits = FALSE)
     [14:16:45.745] }
     [14:16:45.745] })
     [14:16:45.745] tryCatch({
     [14:16:45.745] plan_list <- future::plan("next")
     [14:16:45.745] stopifnot(inherits(plan_list, strategy2))
     [14:16:45.745] plan_a <- future::plan("list")
     [14:16:45.745] str(plan_a)
     [14:16:45.745] stopifnot(inherits(plan_a[[1]], strategy2))
     [14:16:45.745] message("foreach() - level 2 ...")
     [14:16:45.745] y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar%
     [14:16:45.745] {
     [14:16:45.745] plan_list <- future::plan("next")
     [14:16:45.745] message(capture.output(print(plan_list)))
     [14:16:45.745] stopifnot(inherits(plan_list, "future"))
     [14:16:45.745] default <- getOption("future.plan", "sequential")
     [14:16:45.745] if (is.function(default))
     [14:16:45.745] default <- class(default)
     [14:16:45.745] stopifnot(inherits(plan_list, default))
     [14:16:45.745] plan_b <- future::plan("list")
     [14:16:45.745] str(plan_b)
     [14:16:45.745] stopifnot(inherits(plan_b[[1]], "future"),
     [14:16:45.745] inherits(plan_b[[1]], default))
     [14:16:45.745] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:16:45.745] }
     [14:16:45.745] message("foreach() - level 2 ... DONE")
     [14:16:45.745] y
     [14:16:45.745] }, error = identity)
     [14:16:45.745] })
     [14:16:45.745] }
     [14:16:45.747] - identifying globals and packages ...
     [14:16:45.748] getGlobalsAndPackages() ...
     [14:16:45.749] Searching for globals...
     [14:16:45.796] - globals found: [31] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'stopifnot', 'inherits', 'strategy2', 'str', 'message', '%dopar%', 'foreach', 'bs', 'c', 'capture.output', 'print', 'getOption', 'if', 'is.function', 'class', 'list', 'b', 'identity'
     [14:16:45.797] Searching for globals ... DONE
     [14:16:45.798] Resolving globals: FALSE
     [14:16:45.802] The total size of the 3 globals is 184 bytes (184 bytes)
     [14:16:45.803] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
     [14:16:45.803] - packages: [2] 'utils', 'foreach'
     [14:16:45.804] getGlobalsAndPackages() ... DONE
     [14:16:45.804] List of 3
     [14:16:45.804] $ ...future.x_ii: NULL
     [14:16:45.804] $ strategy2 : chr "sequential"
     [14:16:45.804] $ bs : int [1:3] 3 2 1
     [14:16:45.804] - attr(*, "where")=List of 3
     [14:16:45.804] ..$ ...future.x_ii:<environment: 0x190c650>
     [14:16:45.804] ..$ strategy2 :<environment: R_GlobalEnv>
     [14:16:45.804] ..$ bs :<environment: R_GlobalEnv>
     [14:16:45.804] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
     [14:16:45.804] - attr(*, "resolved")= logi FALSE
     [14:16:45.804] - attr(*, "total_size")= num 184
     [14:16:45.823] - R expression:
     [14:16:45.823] {
     [14:16:45.823] doFuture::registerDoFuture()
     [14:16:45.823] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:45.823] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:45.823] a <- NULL
     [14:16:45.823] ...future.env <- environment()
     [14:16:45.823] local({
     [14:16:45.823] for (name in names(...future.x_jj)) {
     [14:16:45.823] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:45.823] inherits = FALSE)
     [14:16:45.823] }
     [14:16:45.823] })
     [14:16:45.823] tryCatch({
     [14:16:45.823] plan_list <- future::plan("next")
     [14:16:45.823] stopifnot(inherits(plan_list, strategy2))
     [14:16:45.823] plan_a <- future::plan("list")
     [14:16:45.823] str(plan_a)
     [14:16:45.823] stopifnot(inherits(plan_a[[1]], strategy2))
     [14:16:45.823] message("foreach() - level 2 ...")
     [14:16:45.823] y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar%
     [14:16:45.823] {
     [14:16:45.823] plan_list <- future::plan("next")
     [14:16:45.823] message(capture.output(print(plan_list)))
     [14:16:45.823] stopifnot(inherits(plan_list, "future"))
     [14:16:45.823] default <- getOption("future.plan", "sequential")
     [14:16:45.823] if (is.function(default))
     [14:16:45.823] default <- class(default)
     [14:16:45.823] stopifnot(inherits(plan_list, default))
     [14:16:45.823] plan_b <- future::plan("list")
     [14:16:45.823] str(plan_b)
     [14:16:45.823] stopifnot(inherits(plan_b[[1]], "future"),
     [14:16:45.823] inherits(plan_b[[1]], default))
     [14:16:45.823] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:16:45.823] }
     [14:16:45.823] message("foreach() - level 2 ... DONE")
     [14:16:45.823] y
     [14:16:45.823] }, error = identity)
     [14:16:45.823] })
     [14:16:45.823] }
     [14:16:45.825] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
     [14:16:45.826] List of 3
     [14:16:45.826] $ ...future.x_ii: NULL
     [14:16:45.826] $ strategy2 : chr "sequential"
     [14:16:45.826] $ bs : int [1:3] 3 2 1
     [14:16:45.826] - attr(*, "where")=List of 3
     [14:16:45.826] ..$ ...future.x_ii:<environment: 0x190c650>
     [14:16:45.826] ..$ strategy2 :<environment: R_GlobalEnv>
     [14:16:45.826] ..$ bs :<environment: R_GlobalEnv>
     [14:16:45.826] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
     [14:16:45.826] - attr(*, "resolved")= logi FALSE
     [14:16:45.826] - attr(*, "total_size")= num 184
     [14:16:45.841] - packages: [3] 'doFuture', 'utils', 'foreach'
     [14:16:45.841] - identifying globals and packages ... DONE
     [14:16:45.842] Number of chunks: 1
     [14:16:45.842] Number of futures (= number of chunks): 1
     [14:16:45.844] Launching 1 futures (chunks) ...
     [14:16:45.844] Chunk #1 of 1 ...
     [14:16:45.844] - Finding globals in 'args_list' chunk #1 ...
     [14:16:45.845] getGlobalsAndPackages() ...
     [14:16:45.845] Searching for globals...
     [14:16:45.847]
     [14:16:45.847] Searching for globals ... DONE
     [14:16:45.848] - globals: [0] <none>
     [14:16:45.848] getGlobalsAndPackages() ... DONE
     [14:16:45.849]
     [14:16:45.849]
     [14:16:45.850] - Finding globals in 'args_list' for chunk #1 ... DONE
     [14:16:45.850] getGlobalsAndPackages() ...
     [14:16:45.851] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
     [14:16:45.851] Resolving globals: FALSE
     [14:16:45.853] The total size of the 3 globals is 296 bytes (296 bytes)
     [14:16:45.854] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
     [14:16:45.854]
     [14:16:45.855] getGlobalsAndPackages() ... DONE
     [14:16:45.858] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
     [14:16:45.859] Packages needed by future strategies (n = 1): 'future'
     [14:16:45.869] {
     [14:16:45.869] {
     [14:16:45.869] ...future.startTime <- base::Sys.time()
     [14:16:45.869] ...future.oldOptions <- base::options(future.startup.script = FALSE,
     [14:16:45.869] future.globals.onMissing = NULL, future.globals.maxSize = NULL,
     [14:16:45.869] future.globals.method = NULL, future.globals.onMissing = NULL,
     [14:16:45.869] future.globals.onReference = NULL, future.globals.resolve = NULL,
     [14:16:45.869] future.resolve.recursive = NULL, width = 80L)
     [14:16:45.869] {
     [14:16:45.869] {
     [14:16:45.869] {
     [14:16:45.869] base::local({
     [14:16:45.869] has_future <- base::requireNamespace("future",
     [14:16:45.869] quietly = TRUE)
     [14:16:45.869] version <- if (has_future)
     [14:16:45.869] utils::packageVersion("future")
     [14:16:45.869] else NULL
     [14:16:45.869] if (!has_future || version < "1.8.0") {
     [14:16:45.869] info <- base::c(r_version = base::gsub("R version ",
     [14:16:45.869] "", base::R.version$version.string),
     [14:16:45.869] platform = base::sprintf("%s (%s-bit)",
     [14:16:45.869] base::R.version$platform, 8 * base::.Machine$sizeof.pointer),
     [14:16:45.869] os = base::paste(base::Sys.info()[base::c("sysname",
     [14:16:45.869] "release", "version")], collapse = " "),
     [14:16:45.869] hostname = base::Sys.info()[["nodename"]])
     [14:16:45.869] info <- base::sprintf("%s: %s", base::names(info),
     [14:16:45.869] info)
     [14:16:45.869] info <- base::paste(info, collapse = "; ")
     [14:16:45.869] if (!has_future) {
     [14:16:45.869] msg <- base::sprintf("Package 'future' is not installed on worker (%s)",
     [14:16:45.869] info)
     [14:16:45.869] }
     [14:16:45.869] else {
     [14:16:45.869] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s",
     [14:16:45.869] info, version)
     [14:16:45.869] }
     [14:16:45.869] base::stop(msg)
     [14:16:45.869] }
     [14:16:45.869] })
     [14:16:45.869] }
     [14:16:45.869] base::local({
     [14:16:45.869] for (pkg in c("doFuture", "utils", "foreach",
     [14:16:45.869] "future")) {
     [14:16:45.869] base::loadNamespace(pkg)
     [14:16:45.869] base::library(pkg, character.only = TRUE)
     [14:16:45.869] }
     [14:16:45.869] })
     [14:16:45.869] }
     [14:16:45.869] future::plan(list(b = function (expr, envir = parent.frame(),
     [14:16:45.869] substitute = TRUE, lazy = FALSE, seed = NULL,
     [14:16:45.869] globals = TRUE, local = TRUE, earlySignal = FALSE,
     [14:16:45.869] label = NULL, ...)
     [14:16:45.869] {
     [14:16:45.869] if (substitute)
     [14:16:45.869] expr <- substitute(expr)
     [14:16:45.869] local <- as.logical(local)
     [14:16:45.869] future <- SequentialFuture(expr = expr, envir = envir,
     [14:16:45.869] substitute = FALSE, lazy = lazy, seed = seed,
     [14:16:45.869] globals = globals, local = local, earlySignal = earlySignal,
     [14:16:45.869] label = label, ...)
     [14:16:45.869] if (!future$lazy)
     [14:16:45.869] future <- run(future)
     [14:16:45.869] invisible(future)
     [14:16:45.869] }), .cleanup = FALSE, .init = FALSE)
     [14:16:45.869] }
     [14:16:45.869] }
     [14:16:45.869] if (base::is.na(TRUE)) {
     [14:16:45.869] }
     [14:16:45.869] else {
     [14:16:45.869] if (TRUE) {
     [14:16:45.869] ...future.stdout <- base::rawConnection(base::raw(0L),
     [14:16:45.869] open = "w")
     [14:16:45.869] }
     [14:16:45.869] else {
     [14:16:45.869] ...future.stdout <- base::file(base::switch(.Platform$OS.type,
     [14:16:45.869] windows = "NUL", "/dev/null"), open = "w")
     [14:16:45.869] }
     [14:16:45.869] base::sink(...future.stdout, type = "output", split = FALSE)
     [14:16:45.869] base::on.exit(if (!base::is.null(...future.stdout)) {
     [14:16:45.869] base::sink(type = "output", split = FALSE)
     [14:16:45.869] base::close(...future.stdout)
     [14:16:45.869] }, add = TRUE)
     [14:16:45.869] }
     [14:16:45.869] ...future.frame <- base::sys.nframe()
     [14:16:45.869] ...future.conditions <- base::list()
     [14:16:45.869] ...future.rng <- base::globalenv()$.Random.seed
     [14:16:45.869] ...future.result <- base::tryCatch({
     [14:16:45.869] base::withCallingHandlers({
     [14:16:45.869] ...future.value <- base::withVisible(base::local({
     [14:16:45.869] doFuture::registerDoFuture()
     [14:16:45.869] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:45.869] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:45.869] a <- NULL
     [14:16:45.869] ...future.env <- environment()
     [14:16:45.869] local({
     [14:16:45.869] for (name in names(...future.x_jj)) {
     [14:16:45.869] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:45.869] inherits = FALSE)
     [14:16:45.869] }
     [14:16:45.869] })
     [14:16:45.869] tryCatch({
     [14:16:45.869] plan_list <- future::plan("next")
     [14:16:45.869] stopifnot(inherits(plan_list, strategy2))
     [14:16:45.869] plan_a <- future::plan("list")
     [14:16:45.869] str(plan_a)
     [14:16:45.869] stopifnot(inherits(plan_a[[1]], strategy2))
     [14:16:45.869] message("foreach() - level 2 ...")
     [14:16:45.869] y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar%
     [14:16:45.869] {
     [14:16:45.869] plan_list <- future::plan("next")
     [14:16:45.869] message(capture.output(print(plan_list)))
     [14:16:45.869] stopifnot(inherits(plan_list, "future"))
     [14:16:45.869] default <- getOption("future.plan", "sequential")
     [14:16:45.869] if (is.function(default))
     [14:16:45.869] default <- class(default)
     [14:16:45.869] stopifnot(inherits(plan_list, default))
     [14:16:45.869] plan_b <- future::plan("list")
     [14:16:45.869] str(plan_b)
     [14:16:45.869] stopifnot(inherits(plan_b[[1]], "future"),
     [14:16:45.869] inherits(plan_b[[1]], default))
     [14:16:45.869] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:16:45.869] }
     [14:16:45.869] message("foreach() - level 2 ... DONE")
     [14:16:45.869] y
     [14:16:45.869] }, error = identity)
     [14:16:45.869] })
     [14:16:45.869] }))
     [14:16:45.869] future::FutureResult(value = ...future.value$value,
     [14:16:45.869] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed,
     [14:16:45.869] ...future.rng), started = ...future.startTime,
     [14:16:45.869] version = "1.8")
     [14:16:45.869] }, condition = base::local({
     [14:16:45.869] c <- base::c
     [14:16:45.869] inherits <- base::inherits
     [14:16:45.869] invokeRestart <- base::invokeRestart
     [14:16:45.869] length <- base::length
     [14:16:45.869] list <- base::list
     [14:16:45.869] seq.int <- base::seq.int
     [14:16:45.869] signalCondition <- base::signalCondition
     [14:16:45.869] sys.calls <- base::sys.calls
     [14:16:45.869] Sys.time <- base::Sys.time
     [14:16:45.869] `[[` <- base::`[[`
     [14:16:45.869] `+` <- base::`+`
     [14:16:45.869] `<<-` <- base::`<<-`
     [14:16:45.869] sysCalls <- function(calls = sys.calls(), from = 1L) {
     [14:16:45.869] calls[seq.int(from = from + 12L, to = length(calls) -
     [14:16:45.869] 3L)]
     [14:16:45.869] }
     [14:16:45.869] function(cond) {
     [14:16:45.869] if (inherits(cond, "error")) {
     [14:16:45.869] sessionInformation <- function() {
     [14:16:45.869] list(r = base::R.Version(), locale = base::Sys.getlocale(),
     [14:16:45.869] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(),
     [14:16:45.869] search = base::search(), system = base::Sys.info())
     [14:16:45.869] }
     [14:16:45.869] ...future.conditions[[length(...future.conditions) +
     [14:16:45.869] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame),
     [14:16:45.869] cond$call), session = sessionInformation(),
     [14:16:45.869] timestamp = Sys.time(), signaled = 0L)
     [14:16:45.869] signalCondition(cond)
     [14:16:45.869] }
     [14:16:45.869] else if (inherits(cond, c("condition", "immediateCondition"
     [14:16:45.869] ))) {
     [14:16:45.869] signal <- TRUE && inherits(cond, "immediateCondition")
     [14:16:45.869] ...future.conditions[[length(...future.conditions) +
     [14:16:45.869] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
     [14:16:45.869] if (!signal) {
     [14:16:45.869] muffleCondition <- function (cond)
     [14:16:45.869] {
     [14:16:45.869] inherits <- base::inherits
     [14:16:45.869] invokeRestart <- base::invokeRestart
     [14:16:45.869] muffled <- FALSE
     [14:16:45.869] if (inherits(cond, "message")) {
     [14:16:45.869] invokeRestart("muffleMessage")
     [14:16:45.869] muffled <- TRUE
     [14:16:45.869] }
     [14:16:45.869] else if (inherits(cond, "warning")) {
     [14:16:45.869] invokeRestart("muffleWarning")
     [14:16:45.869] muffled <- TRUE
     [14:16:45.869] }
     [14:16:45.869] else if (inherits(cond, "condition")) {
     [14:16:45.869] computeRestarts <- base::computeRestarts
     [14:16:45.869] grepl <- base::grepl
     [14:16:45.869] is.null <- base::is.null
     [14:16:45.869] restarts <- computeRestarts(cond)
     [14:16:45.869] for (restart in restarts) {
     [14:16:45.869] name <- restart$name
     [14:16:45.869] if (is.null(name))
     [14:16:45.869] next
     [14:16:45.869] if (!grepl("^muffle", name))
     [14:16:45.869] next
     [14:16:45.869] invokeRestart(restart)
     [14:16:45.869] muffled <- TRUE
     [14:16:45.869] break
     [14:16:45.869] }
     [14:16:45.869] }
     [14:16:45.869] invisible(muffled)
     [14:16:45.869] }
     [14:16:45.869] muffleCondition(cond)
     [14:16:45.869] }
     [14:16:45.869] }
     [14:16:45.869] }
     [14:16:45.869] }))
     [14:16:45.869] }, error = function(ex) {
     [14:16:45.869] base::structure(base::list(value = NULL, visible = NULL,
     [14:16:45.869] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed,
     [14:16:45.869] ...future.rng), version = "1.8"), class = "FutureResult")
     [14:16:45.869] }, finally = {
     [14:16:45.869] {
     [14:16:45.869] NULL
     [14:16:45.869] future::plan(list(a = function (expr, envir = parent.frame(),
     [14:16:45.869] substitute = TRUE, lazy = FALSE, seed = NULL,
     [14:16:45.869] globals = TRUE, local = TRUE, earlySignal = FALSE,
     [14:16:45.869] label = NULL, ...)
     [14:16:45.869] {
     [14:16:45.869] if (substitute)
     [14:16:45.869] expr <- substitute(expr)
     [14:16:45.869] local <- as.logical(local)
     [14:16:45.869] future <- SequentialFuture(expr = expr, envir = envir,
     [14:16:45.869] substitute = FALSE, lazy = lazy, seed = seed,
     [14:16:45.869] globals = globals, local = local, earlySignal = earlySignal,
     [14:16:45.869] label = label, ...)
     [14:16:45.869] if (!future$lazy)
     [14:16:45.869] future <- run(future)
     [14:16:45.869] invisible(future)
     [14:16:45.869] }, b = function (expr, envir = parent.frame(), substitute = TRUE,
     [14:16:45.869] lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE,
     [14:16:45.869] earlySignal = FALSE, label = NULL, ...)
     [14:16:45.869] {
     [14:16:45.869] if (substitute)
     [14:16:45.869] expr <- substitute(expr)
     [14:16:45.869] local <- as.logical(local)
     [14:16:45.869] future <- SequentialFuture(expr = expr, envir = envir,
     [14:16:45.869] substitute = FALSE, lazy = lazy, seed = seed,
     [14:16:45.869] globals = globals, local = local, earlySignal = earlySignal,
     [14:16:45.869] label = label, ...)
     [14:16:45.869] if (!future$lazy)
     [14:16:45.869] future <- run(future)
     [14:16:45.869] invisible(future)
     [14:16:45.869] }), .cleanup = FALSE, .init = FALSE)
     [14:16:45.869] }
     [14:16:45.869] base::options(...future.oldOptions)
     [14:16:45.869] })
     [14:16:45.869] Sys.time
     [14:16:45.869] if (base::is.na(TRUE)) {
     [14:16:45.869] }
     [14:16:45.869] else {
     [14:16:45.869] base::sink(type = "output", split = FALSE)
     [14:16:45.869] if (TRUE) {
     [14:16:45.869] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
     [14:16:45.869] }
     [14:16:45.869] else {
     [14:16:45.869] ...future.result["stdout"] <- base::list(NULL)
     [14:16:45.869] }
     [14:16:45.869] base::close(...future.stdout)
     [14:16:45.869] ...future.stdout <- NULL
     [14:16:45.869] }
     [14:16:45.869] ...future.result$conditions <- ...future.conditions
     [14:16:45.869] ...future.result
     [14:16:45.869] }
     [14:16:45.882] plan(): Setting new future strategy stack:
     [14:16:45.883] List of future strategies:
     [14:16:45.883] 1. sequential:
     [14:16:45.883] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
     [14:16:45.883] - tweaked: FALSE
     [14:16:45.883] - call: plan(list(a = strategy1, b = strategy2))
     [14:16:45.884] plan(): nbrOfWorkers() = 1
     [14:16:46.546] plan(): Setting new future strategy stack:
     [14:16:46.546] List of future strategies:
     [14:16:46.546] 1. sequential:
     [14:16:46.546] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
     [14:16:46.546] - tweaked: FALSE
     [14:16:46.546] - call: plan(list(a = strategy1, b = strategy2))
     [14:16:46.546] 2. sequential:
     [14:16:46.546] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
     [14:16:46.546] - tweaked: FALSE
     [14:16:46.546] - call: plan(list(a = strategy1, b = strategy2))
     [14:16:46.548] plan(): nbrOfWorkers() = 1
     [14:16:46.549] SequentialFuture started (and completed)
     [14:16:46.550] signalConditions() ...
     [14:16:46.554] - include = 'immediateCondition'
     [14:16:46.555] - exclude =
     [14:16:46.555] - resignal = FALSE
     [14:16:46.556] - Number of conditions: 280
     [14:16:46.557] signalConditions() ... done
     [14:16:46.558] Chunk #1 of 1 ... DONE
     [14:16:46.558] Launching 1 futures (chunks) ... DONE
     [14:16:46.559] - resolving futures
     [14:16:46.559] - gathering results & relaying conditions (except errors)
     [14:16:46.560] resolve() on list ...
     [14:16:46.560] recursive: 0
     [14:16:46.560] length: 1
     [14:16:46.561]
     [14:16:46.561] Future #1
     [14:16:46.562] signalConditions() ...
     [14:16:46.562] - include = 'immediateCondition'
     [14:16:46.563] - exclude =
     [14:16:46.563] - resignal = FALSE
     [14:16:46.564] - Number of conditions: 280
     [14:16:46.565] signalConditions() ... done
     [14:16:46.566] signalConditionsASAP(SequentialFuture, pos=1) ...
     [14:16:46.566] - nx: 1
     [14:16:46.567] - relay: TRUE
     [14:16:46.567] - stdout: TRUE
     [14:16:46.568] - signal: TRUE
     [14:16:46.568] - resignal: FALSE
     [14:16:46.569] - force: FALSE
     [14:16:46.569] - relayed: [n=1] FALSE
     [14:16:46.569] - queued futures: [n=1] FALSE
     [14:16:46.570] - until=1
     [14:16:46.570] - relaying element #1
     [14:16:46.571] signalConditions() ...
     [14:16:46.571] - include = 'immediateCondition'
     [14:16:46.572] - exclude =
     [14:16:46.572] - resignal = FALSE
     [14:16:46.573] - Number of conditions: 280
     [14:16:46.575] signalConditions() ... done
     List of 1
     $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL,
     ...)
     ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
     ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     List of 1
     $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL,
     ...)
     ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     List of 1
     $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL,
     ...)
     ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     List of 1
     $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL,
     ...)
     ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     List of 1
     $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL,
     ...)
     ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
     ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     List of 1
     $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL,
     ...)
     ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     List of 1
     $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL,
     ...)
     ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     List of 1
     $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL,
     ...)
     ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     [14:16:46.575] signalConditions() ...
     [14:16:46.576] - include = 'immediateCondition'
     [14:16:46.576] - exclude =
     [14:16:46.577] - resignal = FALSE
     [14:16:46.577] - Number of conditions: 280
     [14:16:46.579] signalConditions() ... done
     [14:16:46.579] signalConditions() ...
     [14:16:46.580] - include = 'condition'
     [14:16:46.580] - exclude = 'immediateCondition'
     [14:16:46.581] - resignal = FALSE
     [14:16:46.581] - Number of conditions: 280
     [14:16:46.582] - Condition #1: 'simpleMessage', 'message', 'condition'
     foreach() - level 2 ...
     [14:16:46.582] - Condition #2: 'simpleMessage', 'message', 'condition'
     [14:16:45.894] doFuture() ...
     [14:16:46.583] - Condition #3: 'simpleMessage', 'message', 'condition'
     [14:16:45.897] - dummy globals (as locals): [1] 'b'
     [14:16:46.584] - Condition #4: 'simpleMessage', 'message', 'condition'
     [14:16:45.899] - R expression:
     [14:16:46.584] - Condition #5: 'simpleMessage', 'message', 'condition'
     [14:16:45.900] {
     [14:16:45.900] doFuture::registerDoFuture()
     [14:16:45.900] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:45.900] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:45.900] b <- NULL
     [14:16:45.900] ...future.env <- environment()
     [14:16:45.900] local({
     [14:16:45.900] for (name in names(...future.x_jj)) {
     [14:16:45.900] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:45.900] inherits = FALSE)
     [14:16:45.900] }
     [14:16:45.900] })
     [14:16:45.900] tryCatch({
     [14:16:45.900] plan_list <- future::plan("next")
     [14:16:45.900] message(capture.output(print(plan_list)))
     [14:16:45.900] stopifnot(inherits(plan_list, "future"))
     [14:16:45.900] default <- getOption("future.plan", "sequential")
     [14:16:45.900] if (is.function(default))
     [14:16:45.900] default <- class(default)
     [14:16:45.900] stopifnot(inherits(plan_list, default))
     [14:16:45.900] plan_b <- future::plan("list")
     [14:16:45.900] str(plan_b)
     [14:16:45.900] stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]],
     [14:16:45.900] default))
     [14:16:45.900] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:16:45.900] }, error = identity)
     [14:16:45.900] })
     [14:16:45.900] }
     [14:16:46.585] - Condition #6: 'simpleMessage', 'message', 'condition'
     [14:16:45.902] - identifying globals and packages ...
     [14:16:46.585] - Condition #7: 'simpleMessage', 'message', 'condition'
     [14:16:45.903] getGlobalsAndPackages() ...
     [14:16:46.586] - Condition #8: 'simpleMessage', 'message', 'condition'
     [14:16:45.903] Searching for globals...
     [14:16:46.587] - Condition #9: 'simpleMessage', 'message', 'condition'
     [14:16:45.943] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
     [14:16:46.587] - Condition #10: 'simpleMessage', 'message', 'condition'
     [14:16:45.945] Searching for globals ... DONE
     [14:16:46.588] - Condition #11: 'simpleMessage', 'message', 'condition'
     [14:16:45.945] Resolving globals: FALSE
     [14:16:46.588] - Condition #12: 'simpleMessage', 'message', 'condition'
     [14:16:45.950] The total size of the 3 globals is 39.67 KiB (40624 bytes)
     [14:16:46.589] - Condition #13: 'simpleMessage', 'message', 'condition'
     [14:16:45.952] - globals: [3] '...future.x_ii', 'a', 'plan_a'
     [14:16:46.589] - Condition #14: 'simpleMessage', 'message', 'condition'
     [14:16:45.953] - packages: [1] 'utils'
     [14:16:46.590] - Condition #15: 'simpleMessage', 'message', 'condition'
     [14:16:45.953] getGlobalsAndPackages() ... DONE
     [14:16:46.591] - Condition #16: 'simpleMessage', 'message', 'condition'
     [14:16:45.954] List of 3
     [14:16:45.954] $ ...future.x_ii: NULL
     [14:16:45.954] $ a : int 1
     [14:16:45.954] $ plan_a :List of 1
     [14:16:45.954] ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     [14:16:45.954] seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL,
     [14:16:45.954] ...)
     [14:16:45.954] .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
     [14:16:45.954] .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
     [14:16:45.954] ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     [14:16:45.954] - attr(*, "where")=List of 3
     [14:16:45.954] ..$ ...future.x_ii:<environment: 0x345a500>
     [14:16:45.954] ..$ a :<environment: 0x3244030>
     [14:16:45.954] ..$ plan_a :<environment: 0x3244030>
     [14:16:45.954] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
     [14:16:45.954] - attr(*, "resolved")= logi FALSE
     [14:16:45.954] - attr(*, "total_size")= num 40624
     [14:16:46.591] - Condition #17: 'simpleMessage', 'message', 'condition'
     [14:16:45.977] - R expression:
     [14:16:46.592] - Condition #18: 'simpleMessage', 'message', 'condition'
     [14:16:45.978] {
     [14:16:45.978] doFuture::registerDoFuture()
     [14:16:45.978] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:45.978] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:45.978] b <- NULL
     [14:16:45.978] ...future.env <- environment()
     [14:16:45.978] local({
     [14:16:45.978] for (name in names(...future.x_jj)) {
     [14:16:45.978] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:45.978] inherits = FALSE)
     [14:16:45.978] }
     [14:16:45.978] })
     [14:16:45.978] tryCatch({
     [14:16:45.978] plan_list <- future::plan("next")
     [14:16:45.978] message(capture.output(print(plan_list)))
     [14:16:45.978] stopifnot(inherits(plan_list, "future"))
     [14:16:45.978] default <- getOption("future.plan", "sequential")
     [14:16:45.978] if (is.function(default))
     [14:16:45.978] default <- class(default)
     [14:16:45.978] stopifnot(inherits(plan_list, default))
     [14:16:45.978] plan_b <- future::plan("list")
     [14:16:45.978] str(plan_b)
     [14:16:45.978] stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]],
     [14:16:45.978] default))
     [14:16:45.978] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:16:45.978] }, error = identity)
     [14:16:45.978] })
     [14:16:45.978] }
     [14:16:46.593] - Condition #19: 'simpleMessage', 'message', 'condition'
     [14:16:45.980] - globals: [3] '...future.x_ii', 'a', 'plan_a'
     [14:16:46.593] - Condition #20: 'simpleMessage', 'message', 'condition'
     [14:16:45.981] List of 3
     [14:16:45.981] $ ...future.x_ii: NULL
     [14:16:45.981] $ a : int 1
     [14:16:45.981] $ plan_a :List of 1
     [14:16:45.981] ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     [14:16:45.981] seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL,
     [14:16:45.981] ...)
     [14:16:45.981] .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
     [14:16:45.981] .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
     [14:16:45.981] ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     [14:16:45.981] - attr(*, "where")=List of 3
     [14:16:45.981] ..$ ...future.x_ii:<environment: 0x345a500>
     [14:16:45.981] ..$ a :<environment: 0x3244030>
     [14:16:45.981] ..$ plan_a :<environment: 0x3244030>
     [14:16:45.981] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
     [14:16:45.981] - attr(*, "resolved")= logi FALSE
     [14:16:45.981] - attr(*, "total_size")= num 40624
     [14:16:46.594] - Condition #21: 'simpleMessage', 'message', 'condition'
     [14:16:46.001] - packages: [2] 'doFuture', 'utils'
     [14:16:46.595] - Condition #22: 'simpleMessage', 'message', 'condition'
     [14:16:46.002] - identifying globals and packages ... DONE
     [14:16:46.595] - Condition #23: 'simpleMessage', 'message', 'condition'
     [14:16:46.003] Number of chunks: 1
     [14:16:46.596] - Condition #24: 'simpleMessage', 'message', 'condition'
     [14:16:46.004] Number of futures (= number of chunks): 1
     [14:16:46.596] - Condition #25: 'simpleMessage', 'message', 'condition'
     [14:16:46.006] Launching 1 futures (chunks) ...
     [14:16:46.597] - Condition #26: 'simpleMessage', 'message', 'condition'
     [14:16:46.007] Chunk #1 of 1 ...
     [14:16:46.598] - Condition #27: 'simpleMessage', 'message', 'condition'
     [14:16:46.007] - Finding globals in 'args_list' chunk #1 ...
     [14:16:46.598] - Condition #28: 'simpleMessage', 'message', 'condition'
     [14:16:46.008] getGlobalsAndPackages() ...
     [14:16:46.599] - Condition #29: 'simpleMessage', 'message', 'condition'
     [14:16:46.009] Searching for globals...
     [14:16:46.600] - Condition #30: 'simpleMessage', 'message', 'condition'
     [14:16:46.011]
     [14:16:46.600] - Condition #31: 'simpleMessage', 'message', 'condition'
     [14:16:46.013] Searching for globals ... DONE
     [14:16:46.601] - Condition #32: 'simpleMessage', 'message', 'condition'
     [14:16:46.014] - globals: [0] <none>
     [14:16:46.602] - Condition #33: 'simpleMessage', 'message', 'condition'
     [14:16:46.014] getGlobalsAndPackages() ... DONE
     [14:16:46.602] - Condition #34: 'simpleMessage', 'message', 'condition'
     [14:16:46.015]
     [14:16:46.603] - Condition #35: 'simpleMessage', 'message', 'condition'
     [14:16:46.016]
     [14:16:46.603] - Condition #36: 'simpleMessage', 'message', 'condition'
     [14:16:46.017] - Finding globals in 'args_list' for chunk #1 ... DONE
     [14:16:46.604] - Condition #37: 'simpleMessage', 'message', 'condition'
     [14:16:46.018] getGlobalsAndPackages() ...
     [14:16:46.605] - Condition #38: 'simpleMessage', 'message', 'condition'
     [14:16:46.019] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
     [14:16:46.605] - Condition #39: 'simpleMessage', 'message', 'condition'
     [14:16:46.020] Resolving globals: FALSE
     [14:16:46.606] - Condition #40: 'simpleMessage', 'message', 'condition'
     [14:16:46.023] The total size of the 3 globals is 39.84 KiB (40792 bytes)
     [14:16:46.607] - Condition #41: 'simpleMessage', 'message', 'condition'
     [14:16:46.024] - globals: [3] '...future.x_ii', 'a', 'plan_a'
     [14:16:46.607] - Condition #42: 'simpleMessage', 'message', 'condition'
     [14:16:46.025]
     [14:16:46.608] - Condition #43: 'simpleMessage', 'message', 'condition'
     [14:16:46.026] getGlobalsAndPackages() ... DONE
     [14:16:46.608] - Condition #44: 'simpleMessage', 'message', 'condition'
     [14:16:46.030] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
     [14:16:46.609] - Condition #45: 'simpleMessage', 'message', 'condition'
     [14:16:46.037] Packages needed by future strategies (n = 0): <none>
     [14:16:46.610] - Condition #46: 'simpleMessage', 'message', 'condition'
     [14:16:46.046] {
     [14:16:46.046] {
     [14:16:46.046] ...future.startTime <- base::Sys.time()
     [14:16:46.046] ...future.oldOptions <- base::options(future.startup.script = FALSE,
     [14:16:46.046] future.globals.onMissing = NULL, future.globals.maxSize = NULL,
     [14:16:46.046] future.globals.method = NULL, future.globals.onMissing = NULL,
     [14:16:46.046] future.globals.onReference = NULL, future.globals.resolve = NULL,
     [14:16:46.046] future.resolve.recursive = NULL, width = 80L)
     [14:16:46.046] {
     [14:16:46.046] {
     [14:16:46.046] {
     [14:16:46.046] base::local({
     [14:16:46.046] has_future <- base::requireNamespace("future",
     [14:16:46.046] quietly = TRUE)
     [14:16:46.046] version <- if (has_future)
     [14:16:46.046] utils::packageVersion("future")
     [14:16:46.046] else NULL
     [14:16:46.046] if (!has_future || version < "1.8.0") {
     [14:16:46.046] info <- base::c(r_version = base::gsub("R version ",
     [14:16:46.046] "", base::R.version$version.string),
     [14:16:46.046] platform = base::sprintf("%s (%s-bit)",
     [14:16:46.046] base::R.version$platform, 8 * base::.Machine$sizeof.pointer),
     [14:16:46.046] os = base::paste(base::Sys.info()[base::c("sysname",
     [14:16:46.046] "release", "version")], collapse = " "),
     [14:16:46.046] hostname = base::Sys.info()[["nodename"]])
     [14:16:46.046] info <- base::sprintf("%s: %s", base::names(info),
     [14:16:46.046] info)
     [14:16:46.046] info <- base::paste(info, collapse = "; ")
     [14:16:46.046] if (!has_future) {
     [14:16:46.046] msg <- base::sprintf("Package 'future' is not installed on worker (%s)",
     [14:16:46.046] info)
     [14:16:46.046] }
     [14:16:46.046] else {
     [14:16:46.046] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s",
     [14:16:46.046] info, version)
     [14:16:46.046] }
     [14:16:46.046] base::stop(msg)
     [14:16:46.046] }
     [14:16:46.046] })
     [14:16:46.046] }
     [14:16:46.046] base::local({
     [14:16:46.046] for (pkg in c("doFuture", "utils")) {
     [14:16:46.046] base::loadNamespace(pkg)
     [14:16:46.046] base::library(pkg, character.only = TRUE)
     [14:16:46.046] }
     [14:16:46.046] })
     [14:16:46.046] }
     [14:16:46.046] future::plan("default", .cleanup = FALSE, .init = FALSE)
     [14:16:46.046] }
     [14:16:46.046] }
     [14:16:46.046] if (base::is.na(TRUE)) {
     [14:16:46.046] }
     [14:16:46.046] else {
     [14:16:46.046] if (TRUE) {
     [14:16:46.046] ...future.stdout <- base::rawConnection(base::raw(0L),
     [14:16:46.046] open = "w")
     [14:16:46.046] }
     [14:16:46.046] else {
     [14:16:46.046] ...future.stdout <- base::file(base::switch(.Platform$OS.type,
     [14:16:46.046] windows = "NUL", "/dev/null"), open = "w")
     [14:16:46.046] }
     [14:16:46.046] base::sink(...future.stdout, type = "output", split = FALSE)
     [14:16:46.046] base::on.exit(if (!base::is.null(...future.stdout)) {
     [14:16:46.046] base::sink(type = "output", split = FALSE)
     [14:16:46.046] base::close(...future.stdout)
     [14:16:46.046] }, add = TRUE)
     [14:16:46.046] }
     [14:16:46.046] ...future.frame <- base::sys.nframe()
     [14:16:46.046] ...future.conditions <- base::list()
     [14:16:46.046] ...future.rng <- base::globalenv()$.Random.seed
     [14:16:46.046] ...future.result <- base::tryCatch({
     [14:16:46.046] base::withCallingHandlers({
     [14:16:46.046] ...future.value <- base::withVisible(base::local({
     [14:16:46.046] doFuture::registerDoFuture()
     [14:16:46.046] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:46.046] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:46.046] b <- NULL
     [14:16:46.046] ...future.env <- environment()
     [14:16:46.046] local({
     [14:16:46.046] for (name in names(...future.x_jj)) {
     [14:16:46.046] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:46.046] inherits = FALSE)
     [14:16:46.046] }
     [14:16:46.046] })
     [14:16:46.046] tryCatch({
     [14:16:46.046] plan_list <- future::plan("next")
     [14:16:46.046] message(capture.output(print(plan_list)))
     [14:16:46.046] stopifnot(inherits(plan_list, "future"))
     [14:16:46.046] default <- getOption("future.plan", "sequential")
     [14:16:46.046] if (is.function(default))
     [14:16:46.046] default <- class(default)
     [14:16:46.046] stopifnot(inherits(plan_list, default))
     [14:16:46.046] plan_b <- future::plan("list")
     [14:16:46.046] str(plan_b)
     [14:16:46.046] stopifnot(inherits(plan_b[[1]], "future"),
     [14:16:46.046] inherits(plan_b[[1]], default))
     [14:16:46.046] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:16:46.046] }, error = identity)
     [14:16:46.046] })
     [14:16:46.046] }))
     [14:16:46.046] future::FutureResult(value = ...future.value$value,
     [14:16:46.046] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed,
     [14:16:46.046] ...future.rng), started = ...future.startTime,
     [14:16:46.046] version = "1.8")
     [14:16:46.046] }, condition = base::local({
     [14:16:46.046] c <- base::c
     [14:16:46.046] inherits <- base::inherits
     [14:16:46.046] invokeRestart <- base::invokeRestart
     [14:16:46.046] length <- base::length
     [14:16:46.046] list <- base::list
     [14:16:46.046] seq.int <- base::seq.int
     [14:16:46.046] signalCondition <- base::signalCondition
     [14:16:46.046] sys.calls <- base::sys.calls
     [14:16:46.046] Sys.time <- base::Sys.time
     [14:16:46.046] `[[` <- base::`[[`
     [14:16:46.046] `+` <- base::`+`
     [14:16:46.046] `<<-` <- base::`<<-`
     [14:16:46.046] sysCalls <- function(calls = sys.calls(), from = 1L) {
     [14:16:46.046] calls[seq.int(from = from + 12L, to = length(calls) -
     [14:16:46.046] 3L)]
     [14:16:46.046] }
     [14:16:46.046] function(cond) {
     [14:16:46.046] if (inherits(cond, "error")) {
     [14:16:46.046] sessionInformation <- function() {
     [14:16:46.046] list(r = base::R.Version(), locale = base::Sys.getlocale(),
     [14:16:46.046] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(),
     [14:16:46.046] search = base::search(), system = base::Sys.info())
     [14:16:46.046] }
     [14:16:46.046] ...future.conditions[[length(...future.conditions) +
     [14:16:46.046] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame),
     [14:16:46.046] cond$call), session = sessionInformation(),
     [14:16:46.046] timestamp = Sys.time(), signaled = 0L)
     [14:16:46.046] signalCondition(cond)
     [14:16:46.046] }
     [14:16:46.046] else if (inherits(cond, c("condition", "immediateCondition"
     [14:16:46.046] ))) {
     [14:16:46.046] signal <- TRUE && inherits(cond, "immediateCondition")
     [14:16:46.046] ...future.conditions[[length(...future.conditions) +
     [14:16:46.046] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
     [14:16:46.046] if (!signal) {
     [14:16:46.046] muffleCondition <- function (cond)
     [14:16:46.046] {
     [14:16:46.046] inherits <- base::inherits
     [14:16:46.046] invokeRestart <- base::invokeRestart
     [14:16:46.046] muffled <- FALSE
     [14:16:46.046] if (inherits(cond, "message")) {
     [14:16:46.046] invokeRestart("muffleMessage")
     [14:16:46.046] muffled <- TRUE
     [14:16:46.046] }
     [14:16:46.046] else if (inherits(cond, "warning")) {
     [14:16:46.046] invokeRestart("muffleWarning")
     [14:16:46.046] muffled <- TRUE
     [14:16:46.046] }
     [14:16:46.046] else if (inherits(cond, "condition")) {
     [14:16:46.046] computeRestarts <- base::computeRestarts
     [14:16:46.046] grepl <- base::grepl
     [14:16:46.046] is.null <- base::is.null
     [14:16:46.046] restarts <- computeRestarts(cond)
     [14:16:46.046] for (restart in restarts) {
     [14:16:46.046] name <- restart$name
     [14:16:46.046] if (is.null(name))
     [14:16:46.046] next
     [14:16:46.046] if (!grepl("^muffle", name))
     [14:16:46.046] next
     [14:16:46.046] invokeRestart(restart)
     [14:16:46.046] muffled <- TRUE
     [14:16:46.046] break
     [14:16:46.046] }
     [14:16:46.046] }
     [14:16:46.046] invisible(muffled)
     [14:16:46.046] }
     [14:16:46.046] muffleCondition(cond)
     [14:16:46.046] }
     [14:16:46.046] }
     [14:16:46.046] }
     [14:16:46.046] }))
     [14:16:46.046] }, error = function(ex) {
     [14:16:46.046] base::structure(base::list(value = NULL, visible = NULL,
     [14:16:46.046] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed,
     [14:16:46.046] ...future.rng), version = "1.8"), class = "FutureResult")
     [14:16:46.046] }, finally = {
     [14:16:46.046] {
     [14:16:46.046] NULL
     [14:16:46.046] future::plan(list(b = function (expr, envir = parent.frame(),
     [14:16:46.046] substitute = TRUE, lazy = FALSE, seed = NULL,
     [14:16:46.046] globals = TRUE, local = TRUE, earlySignal = FALSE,
     [14:16:46.046] label = NULL, ...)
     [14:16:46.046] {
     [14:16:46.046] if (substitute)
     [14:16:46.046] expr <- substitute(expr)
     [14:16:46.046] local <- as.logical(local)
     [14:16:46.046] future <- SequentialFuture(expr = expr, envir = envir,
     [14:16:46.046] substitute = FALSE, lazy = lazy, seed = seed,
     [14:16:46.046] globals = globals, local = local, earlySignal = earlySignal,
     [14:16:46.046] label = label, ...)
     [14:16:46.046] if (!future$lazy)
     [14:16:46.046] future <- run(future)
     [14:16:46.046] invisible(future)
     [14:16:46.046] }), .cleanup = FALSE, .init = FALSE)
     [14:16:46.046] }
     [14:16:46.046] base::options(...future.oldOptions)
     [14:16:46.046] })
     [14:16:46.046] Sys.time
     [14:16:46.046] if (base::is.na(TRUE)) {
     [14:16:46.046] }
     [14:16:46.046] else {
     [14:16:46.046] base::sink(type = "output", split = FALSE)
     [14:16:46.046] if (TRUE) {
     [14:16:46.046] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
     [14:16:46.046] }
     [14:16:46.046] else {
     [14:16:46.046] ...future.result["stdout"] <- base::list(NULL)
     [14:16:46.046] }
     [14:16:46.046] base::close(...future.stdout)
     [14:16:46.046] ...future.stdout <- NULL
     [14:16:46.046] }
     [14:16:46.046] ...future.result$conditions <- ...future.conditions
     [14:16:46.046] ...future.result
     [14:16:46.046] }
     [14:16:46.610] - Condition #47: 'simpleMessage', 'message', 'condition'
     [14:16:46.058] plan(): Setting new future strategy stack:
     [14:16:46.611] - Condition #48: 'simpleMessage', 'message', 'condition'
     [14:16:46.059] List of future strategies:
     [14:16:46.059] 1. sequential:
     [14:16:46.059] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
     [14:16:46.059] - tweaked: FALSE
     [14:16:46.059] - call: NULL
     [14:16:46.611] - Condition #49: 'simpleMessage', 'message', 'condition'
     [14:16:46.061] plan(): nbrOfWorkers() = 1
     [14:16:46.612] - Condition #50: 'simpleMessage', 'message', 'condition'
     [14:16:46.133] plan(): Setting new future strategy stack:
     [14:16:46.613] - Condition #51: 'simpleMessage', 'message', 'condition'
     [14:16:46.134] List of future strategies:
     [14:16:46.134] 1. sequential:
     [14:16:46.134] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
     [14:16:46.134] - tweaked: FALSE
     [14:16:46.134] - call: plan(list(a = strategy1, b = strategy2))
     [14:16:46.613] - Condition #52: 'simpleMessage', 'message', 'condition'
     [14:16:46.136] plan(): nbrOfWorkers() = 1
     [14:16:46.614] - Condition #53: 'simpleMessage', 'message', 'condition'
     [14:16:46.137] SequentialFuture started (and completed)
     [14:16:46.615] - Condition #54: 'simpleMessage', 'message', 'condition'
     [14:16:46.138] signalConditions() ...
     [14:16:46.615] - Condition #55: 'simpleMessage', 'message', 'condition'
     [14:16:46.139] - include = 'immediateCondition'
     [14:16:46.616] - Condition #56: 'simpleMessage', 'message', 'condition'
     [14:16:46.140] - exclude =
     [14:16:46.616] - Condition #57: 'simpleMessage', 'message', 'condition'
     [14:16:46.140] - resignal = FALSE
     [14:16:46.617] - Condition #58: 'simpleMessage', 'message', 'condition'
     [14:16:46.141] - Number of conditions: 3
     [14:16:46.618] - Condition #59: 'simpleMessage', 'message', 'condition'
     [14:16:46.142] signalConditions() ... done
     [14:16:46.618] - Condition #60: 'simpleMessage', 'message', 'condition'
     [14:16:46.143] Chunk #1 of 1 ... DONE
     [14:16:46.619] - Condition #61: 'simpleMessage', 'message', 'condition'
     [14:16:46.143] Launching 1 futures (chunks) ... DONE
     [14:16:46.619] - Condition #62: 'simpleMessage', 'message', 'condition'
     [14:16:46.144] - resolving futures
     [14:16:46.620] - Condition #63: 'simpleMessage', 'message', 'condition'
     [14:16:46.145] - gathering results & relaying conditions (except errors)
     [14:16:46.621] - Condition #64: 'simpleMessage', 'message', 'condition'
     [14:16:46.146] resolve() on list ...
     [14:16:46.621] - Condition #65: 'simpleMessage', 'message', 'condition'
     [14:16:46.146] recursive: 0
     [14:16:46.622] - Condition #66: 'simpleMessage', 'message', 'condition'
     [14:16:46.147] length: 1
     [14:16:46.623] - Condition #67: 'simpleMessage', 'message', 'condition'
     [14:16:46.148]
     [14:16:46.623] - Condition #68: 'simpleMessage', 'message', 'condition'
     [14:16:46.149] Future #1
     [14:16:46.624] - Condition #69: 'simpleMessage', 'message', 'condition'
     [14:16:46.149] signalConditions() ...
     [14:16:46.624] - Condition #70: 'simpleMessage', 'message', 'condition'
     [14:16:46.150] - include = 'immediateCondition'
     [14:16:46.625] - Condition #71: 'simpleMessage', 'message', 'condition'
     [14:16:46.151] - exclude =
     [14:16:46.626] - Condition #72: 'simpleMessage', 'message', 'condition'
     [14:16:46.152] - resignal = FALSE
     [14:16:46.626] - Condition #73: 'simpleMessage', 'message', 'condition'
     [14:16:46.152] - Number of conditions: 3
     [14:16:46.627] - Condition #74: 'simpleMessage', 'message', 'condition'
     [14:16:46.153] signalConditions() ... done
     [14:16:46.628] - Condition #75: 'simpleMessage', 'message', 'condition'
     [14:16:46.154] signalConditionsASAP(SequentialFuture, pos=1) ...
     [14:16:46.628] - Condition #76: 'simpleMessage', 'message', 'condition'
     [14:16:46.155] - nx: 1
     [14:16:46.629] - Condition #77: 'simpleMessage', 'message', 'condition'
     [14:16:46.155] - relay: TRUE
     [14:16:46.629] - Condition #78: 'simpleMessage', 'message', 'condition'
     [14:16:46.156] - stdout: TRUE
     [14:16:46.630] - Condition #79: 'simpleMessage', 'message', 'condition'
     [14:16:46.157] - signal: TRUE
     [14:16:46.631] - Condition #80: 'simpleMessage', 'message', 'condition'
     [14:16:46.158] - resignal: FALSE
     [14:16:46.631] - Condition #81: 'simpleMessage', 'message', 'condition'
     [14:16:46.158] - force: FALSE
     [14:16:46.632] - Condition #82: 'simpleMessage', 'message', 'condition'
     [14:16:46.159] - relayed: [n=1] FALSE
     [14:16:46.633] - Condition #83: 'simpleMessage', 'message', 'condition'
     [14:16:46.160] - queued futures: [n=1] FALSE
     [14:16:46.633] - Condition #84: 'simpleMessage', 'message', 'condition'
     [14:16:46.161] - until=1
     [14:16:46.634] - Condition #85: 'simpleMessage', 'message', 'condition'
     [14:16:46.162] - relaying element #1
     [14:16:46.634] - Condition #86: 'simpleMessage', 'message', 'condition'
     [14:16:46.162] signalConditions() ...
     [14:16:46.635] - Condition #87: 'simpleMessage', 'message', 'condition'
     [14:16:46.163] - include = 'immediateCondition'
     [14:16:46.636] - Condition #88: 'simpleMessage', 'message', 'condition'
     [14:16:46.164] - exclude =
     [14:16:46.636] - Condition #89: 'simpleMessage', 'message', 'condition'
     [14:16:46.165] - resignal = FALSE
     [14:16:46.637] - Condition #90: 'simpleMessage', 'message', 'condition'
     [14:16:46.166] - Number of conditions: 3
     [14:16:46.637] - Condition #91: 'simpleMessage', 'message', 'condition'
     [14:16:46.166] signalConditions() ... done
     [14:16:46.638] - Condition #92: 'simpleMessage', 'message', 'condition'
     [14:16:46.167] signalConditions() ...
     [14:16:46.638] - Condition #93: 'simpleMessage', 'message', 'condition'
     [14:16:46.168] - include = 'immediateCondition'
     [14:16:46.639] - Condition #94: 'simpleMessage', 'message', 'condition'
     [14:16:46.169] - exclude =
     [14:16:46.640] - Condition #95: 'simpleMessage', 'message', 'condition'
     [14:16:46.170] - resignal = FALSE
     [14:16:46.640] - Condition #96: 'simpleMessage', 'message', 'condition'
     [14:16:46.171] - Number of conditions: 3
     [14:16:46.641] - Condition #97: 'simpleMessage', 'message', 'condition'
     [14:16:46.171] signalConditions() ... done
     [14:16:46.641] - Condition #98: 'simpleMessage', 'message', 'condition'
     [14:16:46.172] signalConditions() ...
     [14:16:46.642] - Condition #99: 'simpleMessage', 'message', 'condition'
     [14:16:46.173] - include = 'condition'
     [14:16:46.643] - Condition #100: 'simpleMessage', 'message', 'condition'
     [14:16:46.174] - exclude = 'immediateCondition'
     [14:16:46.643] - Condition #101: 'simpleMessage', 'message', 'condition'
     [14:16:46.175] - resignal = FALSE
     [14:16:46.644] - Condition #102: 'simpleMessage', 'message', 'condition'
     [14:16:46.175] - Number of conditions: 3
     [14:16:46.645] - Condition #103: 'simpleMessage', 'message', 'condition'
     [14:16:46.176] - Condition #1: 'simpleMessage', 'message', 'condition'
     [14:16:46.645] - Condition #104: 'simpleMessage', 'message', 'condition'
     sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
     [14:16:46.646] - Condition #105: 'simpleMessage', 'message', 'condition'
     [14:16:46.177] - Condition #2: 'simpleMessage', 'message', 'condition'
     [14:16:46.646] - Condition #106: 'simpleMessage', 'message', 'condition'
     sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
     [14:16:46.647] - Condition #107: 'simpleMessage', 'message', 'condition'
     [14:16:46.178] - Condition #3: 'simpleMessage', 'message', 'condition'
     [14:16:46.648] - Condition #108: 'simpleMessage', 'message', 'condition'
     sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
     [14:16:46.648] - Condition #109: 'simpleMessage', 'message', 'condition'
     [14:16:46.179] signalConditions() ... done
     [14:16:46.649] - Condition #110: 'simpleMessage', 'message', 'condition'
     [14:16:46.180] - relayed: [n=1] TRUE
     [14:16:46.650] - Condition #111: 'simpleMessage', 'message', 'condition'
     [14:16:46.181] - queued futures: [n=1] TRUE
     [14:16:46.650] - Condition #112: 'simpleMessage', 'message', 'condition'
     [14:16:46.182] signalConditionsASAP(SequentialFuture, pos=1) ... done
     [14:16:46.651] - Condition #113: 'simpleMessage', 'message', 'condition'
     [14:16:46.182] length: 0 (resolved future 1)
     [14:16:46.652] - Condition #114: 'simpleMessage', 'message', 'condition'
     [14:16:46.183] Relaying remaining futures
     [14:16:46.652] - Condition #115: 'simpleMessage', 'message', 'condition'
     [14:16:46.184] signalConditionsASAP(NULL, pos=0) ...
     [14:16:46.653] - Condition #116: 'simpleMessage', 'message', 'condition'
     [14:16:46.185] - nx: 1
     [14:16:46.653] - Condition #117: 'simpleMessage', 'message', 'condition'
     [14:16:46.185] - relay: TRUE
     [14:16:46.654] - Condition #118: 'simpleMessage', 'message', 'condition'
     [14:16:46.186] - stdout: TRUE
     [14:16:46.655] - Condition #119: 'simpleMessage', 'message', 'condition'
     [14:16:46.187] - signal: TRUE
     [14:16:46.655] - Condition #120: 'simpleMessage', 'message', 'condition'
     [14:16:46.187] - resignal: FALSE
     [14:16:46.659] - Condition #121: 'simpleMessage', 'message', 'condition'
     [14:16:46.188] - force: FALSE
     [14:16:46.660] - Condition #122: 'simpleMessage', 'message', 'condition'
     [14:16:46.189] - relayed: [n=1] TRUE
     [14:16:46.661] - Condition #123: 'simpleMessage', 'message', 'condition'
     [14:16:46.190] - queued futures: [n=1] TRUE
     [14:16:46.662] - Condition #124: 'simpleMessage', 'message', 'condition'
     - flush all
     [14:16:46.662] - Condition #125: 'simpleMessage', 'message', 'condition'
     [14:16:46.191] - relayed: [n=1] TRUE
     [14:16:46.663] - Condition #126: 'simpleMessage', 'message', 'condition'
     [14:16:46.192] - queued futures: [n=1] TRUE
     [14:16:46.663] - Condition #127: 'simpleMessage', 'message', 'condition'
     [14:16:46.193] signalConditionsASAP(NULL, pos=0) ... done
     [14:16:46.664] - Condition #128: 'simpleMessage', 'message', 'condition'
     [14:16:46.193] resolve() on list ... DONE
     [14:16:46.665] - Condition #129: 'simpleMessage', 'message', 'condition'
     [14:16:46.194] - collecting values of futures
     [14:16:46.665] - Condition #130: 'simpleMessage', 'message', 'condition'
     [14:16:46.195] signalConditions() ...
     [14:16:46.666] - Condition #131: 'simpleMessage', 'message', 'condition'
     [14:16:46.196] - include = 'immediateCondition'
     [14:16:46.667] - Condition #132: 'simpleMessage', 'message', 'condition'
     [14:16:46.196] - exclude =
     [14:16:46.667] - Condition #133: 'simpleMessage', 'message', 'condition'
     [14:16:46.197] - resignal = FALSE
     [14:16:46.668] - Condition #134: 'simpleMessage', 'message', 'condition'
     [14:16:46.198] - Number of conditions: 3
     [14:16:46.668] - Condition #135: 'simpleMessage', 'message', 'condition'
     [14:16:46.199] signalConditions() ... done
     [14:16:46.669] - Condition #136: 'simpleMessage', 'message', 'condition'
     [14:16:46.200] - accumulating results
     [14:16:46.670] - Condition #137: 'simpleMessage', 'message', 'condition'
     [14:16:46.202] - processing errors (handler = 'stop')
     [14:16:46.670] - Condition #138: 'simpleMessage', 'message', 'condition'
     [14:16:46.203] - extracting results
     [14:16:46.671] - Condition #139: 'simpleMessage', 'message', 'condition'
     [14:16:46.203] doFuture() ... DONE
     [14:16:46.671] - Condition #140: 'simpleMessage', 'message', 'condition'
     foreach() - level 2 ... DONE
     [14:16:46.672] - Condition #141: 'simpleMessage', 'message', 'condition'
     foreach() - level 2 ...
     [14:16:46.673] - Condition #142: 'simpleMessage', 'message', 'condition'
     [14:16:46.283] doFuture() ...
     [14:16:46.673] - Condition #143: 'simpleMessage', 'message', 'condition'
     [14:16:46.286] - dummy globals (as locals): [1] 'b'
     [14:16:46.674] - Condition #144: 'simpleMessage', 'message', 'condition'
     [14:16:46.288] - R expression:
     [14:16:46.675] - Condition #145: 'simpleMessage', 'message', 'condition'
     [14:16:46.289] {
     [14:16:46.289] doFuture::registerDoFuture()
     [14:16:46.289] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:46.289] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:46.289] b <- NULL
     [14:16:46.289] ...future.env <- environment()
     [14:16:46.289] local({
     [14:16:46.289] for (name in names(...future.x_jj)) {
     [14:16:46.289] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:46.289] inherits = FALSE)
     [14:16:46.289] }
     [14:16:46.289] })
     [14:16:46.289] tryCatch({
     [14:16:46.289] plan_list <- future::plan("next")
     [14:16:46.289] message(capture.output(print(plan_list)))
     [14:16:46.289] stopifnot(inherits(plan_list, "future"))
     [14:16:46.289] default <- getOption("future.plan", "sequential")
     [14:16:46.289] if (is.function(default))
     [14:16:46.289] default <- class(default)
     [14:16:46.289] stopifnot(inherits(plan_list, default))
     [14:16:46.289] plan_b <- future::plan("list")
     [14:16:46.289] str(plan_b)
     [14:16:46.289] stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]],
     [14:16:46.289] default))
     [14:16:46.289] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:16:46.289] }, error = identity)
     [14:16:46.289] })
     [14:16:46.289] }
     [14:16:46.675] - Condition #146: 'simpleMessage', 'message', 'condition'
     [14:16:46.292] - identifying globals and packages ...
     [14:16:46.676] - Condition #147: 'simpleMessage', 'message', 'condition'
     [14:16:46.293] getGlobalsAndPackages() ...
     [14:16:46.676] - Condition #148: 'simpleMessage', 'message', 'condition'
     [14:16:46.294] Searching for globals...
     [14:16:46.677] - Condition #149: 'simpleMessage', 'message', 'condition'
     [14:16:46.338] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
     [14:16:46.678] - Condition #150: 'simpleMessage', 'message', 'condition'
     [14:16:46.339] Searching for globals ... DONE
     [14:16:46.678] - Condition #151: 'simpleMessage', 'message', 'condition'
     [14:16:46.340] Resolving globals: FALSE
     [14:16:46.679] - Condition #152: 'simpleMessage', 'message', 'condition'
     [14:16:46.345] The total size of the 3 globals is 39.67 KiB (40624 bytes)
     [14:16:46.680] - Condition #153: 'simpleMessage', 'message', 'condition'
     [14:16:46.346] - globals: [3] '...future.x_ii', 'a', 'plan_a'
     [14:16:46.680] - Condition #154: 'simpleMessage', 'message', 'condition'
     [14:16:46.347] - packages: [1] 'utils'
     [14:16:46.681] - Condition #155: 'simpleMessage', 'message', 'condition'
     [14:16:46.348] getGlobalsAndPackages() ... DONE
     [14:16:46.681] - Condition #156: 'simpleMessage', 'message', 'condition'
     [14:16:46.349] List of 3
     [14:16:46.349] $ ...future.x_ii: NULL
     [14:16:46.349] $ a : int 2
     [14:16:46.349] $ plan_a :List of 1
     [14:16:46.349] ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     [14:16:46.349] seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL,
     [14:16:46.349] ...)
     [14:16:46.349] .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
     [14:16:46.349] .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
     [14:16:46.349] ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     [14:16:46.349] - attr(*, "where")=List of 3
     [14:16:46.349] ..$ ...future.x_ii:<environment: 0x3377438>
     [14:16:46.349] ..$ a :<environment: 0x3306560>
     [14:16:46.349] ..$ plan_a :<environment: 0x3306560>
     [14:16:46.349] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
     [14:16:46.349] - attr(*, "resolved")= logi FALSE
     [14:16:46.349] - attr(*, "total_size")= num 40624
     [14:16:46.682] - Condition #157: 'simpleMessage', 'message', 'condition'
     [14:16:46.373] - R expression:
     [14:16:46.683] - Condition #158: 'simpleMessage', 'message', 'condition'
     [14:16:46.374] {
     [14:16:46.374] doFuture::registerDoFuture()
     [14:16:46.374] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:46.374] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:46.374] b <- NULL
     [14:16:46.374] ...future.env <- environment()
     [14:16:46.374] local({
     [14:16:46.374] for (name in names(...future.x_jj)) {
     [14:16:46.374] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:46.374] inherits = FALSE)
     [14:16:46.374] }
     [14:16:46.374] })
     [14:16:46.374] tryCatch({
     [14:16:46.374] plan_list <- future::plan("next")
     [14:16:46.374] message(capture.output(print(plan_list)))
     [14:16:46.374] stopifnot(inherits(plan_list, "future"))
     [14:16:46.374] default <- getOption("future.plan", "sequential")
     [14:16:46.374] if (is.function(default))
     [14:16:46.374] default <- class(default)
     [14:16:46.374] stopifnot(inherits(plan_list, default))
     [14:16:46.374] plan_b <- future::plan("list")
     [14:16:46.374] str(plan_b)
     [14:16:46.374] stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]],
     [14:16:46.374] default))
     [14:16:46.374] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:16:46.374] }, error = identity)
     [14:16:46.374] })
     [14:16:46.374] }
     [14:16:46.683] - Condition #159: 'simpleMessage', 'message', 'condition'
     [14:16:46.376] - globals: [3] '...future.x_ii', 'a', 'plan_a'
     [14:16:46.684] - Condition #160: 'simpleMessage', 'message', 'condition'
     [14:16:46.376] List of 3
     [14:16:46.376] $ ...future.x_ii: NULL
     [14:16:46.376] $ a : int 2
     [14:16:46.376] $ plan_a :List of 1
     [14:16:46.376] ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     [14:16:46.376] seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL,
     [14:16:46.376] ...)
     [14:16:46.376] .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
     [14:16:46.376] .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
     [14:16:46.376] ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     [14:16:46.376] - attr(*, "where")=List of 3
     [14:16:46.376] ..$ ...future.x_ii:<environment: 0x3377438>
     [14:16:46.376] ..$ a :<environment: 0x3306560>
     [14:16:46.376] ..$ plan_a :<environment: 0x3306560>
     [14:16:46.376] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
     [14:16:46.376] - attr(*, "resolved")= logi FALSE
     [14:16:46.376] - attr(*, "total_size")= num 40624
     [14:16:46.685] - Condition #161: 'simpleMessage', 'message', 'condition'
     [14:16:46.397] - packages: [2] 'doFuture', 'utils'
     [14:16:46.685] - Condition #162: 'simpleMessage', 'message', 'condition'
     [14:16:46.398] - identifying globals and packages ... DONE
     [14:16:46.686] - Condition #163: 'simpleMessage', 'message', 'condition'
     [14:16:46.399] Number of chunks: 1
     [14:16:46.686] - Condition #164: 'simpleMessage', 'message', 'condition'
     [14:16:46.399] Number of futures (= number of chunks): 1
     [14:16:46.687] - Condition #165: 'simpleMessage', 'message', 'condition'
     [14:16:46.401] Launching 1 futures (chunks) ...
     [14:16:46.688] - Condition #166: 'simpleMessage', 'message', 'condition'
     [14:16:46.402] Chunk #1 of 1 ...
     [14:16:46.688] - Condition #167: 'simpleMessage', 'message', 'condition'
     [14:16:46.402] - Finding globals in 'args_list' chunk #1 ...
     [14:16:46.689] - Condition #168: 'simpleMessage', 'message', 'condition'
     [14:16:46.403] getGlobalsAndPackages() ...
     [14:16:46.689] - Condition #169: 'simpleMessage', 'message', 'condition'
     [14:16:46.404] Searching for globals...
     [14:16:46.690] - Condition #170: 'simpleMessage', 'message', 'condition'
     [14:16:46.406]
     [14:16:46.691] - Condition #171: 'simpleMessage', 'message', 'condition'
     [14:16:46.407] Searching for globals ... DONE
     [14:16:46.691] - Condition #172: 'simpleMessage', 'message', 'condition'
     [14:16:46.407] - globals: [0] <none>
     [14:16:46.692] - Condition #173: 'simpleMessage', 'message', 'condition'
     [14:16:46.408] getGlobalsAndPackages() ... DONE
     [14:16:46.692] - Condition #174: 'simpleMessage', 'message', 'condition'
     [14:16:46.409]
     [14:16:46.693] - Condition #175: 'simpleMessage', 'message', 'condition'
     [14:16:46.410]
     [14:16:46.693] - Condition #176: 'simpleMessage', 'message', 'condition'
     [14:16:46.410] - Finding globals in 'args_list' for chunk #1 ... DONE
     [14:16:46.694] - Condition #177: 'simpleMessage', 'message', 'condition'
     [14:16:46.411] getGlobalsAndPackages() ...
     [14:16:46.695] - Condition #178: 'simpleMessage', 'message', 'condition'
     [14:16:46.412] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
     [14:16:46.695] - Condition #179: 'simpleMessage', 'message', 'condition'
     [14:16:46.413] Resolving globals: FALSE
     [14:16:46.696] - Condition #180: 'simpleMessage', 'message', 'condition'
     [14:16:46.415] The total size of the 3 globals is 39.84 KiB (40792 bytes)
     [14:16:46.696] - Condition #181: 'simpleMessage', 'message', 'condition'
     [14:16:46.416] - globals: [3] '...future.x_ii', 'a', 'plan_a'
     [14:16:46.697] - Condition #182: 'simpleMessage', 'message', 'condition'
     [14:16:46.417]
     [14:16:46.697] - Condition #183: 'simpleMessage', 'message', 'condition'
     [14:16:46.418] getGlobalsAndPackages() ... DONE
     [14:16:46.698] - Condition #184: 'simpleMessage', 'message', 'condition'
     [14:16:46.422] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
     [14:16:46.698] - Condition #185: 'simpleMessage', 'message', 'condition'
     [14:16:46.423] Packages needed by future strategies (n = 0): <none>
     [14:16:46.699] - Condition #186: 'simpleMessage', 'message', 'condition'
     [14:16:46.436] {
     [14:16:46.436] {
     [14:16:46.436] ...future.startTime <- base::Sys.time()
     [14:16:46.436] ...future.oldOptions <- base::options(future.startup.script = FALSE,
     [14:16:46.436] future.globals.onMissing = NULL, future.globals.maxSize = NULL,
     [14:16:46.436] future.globals.method = NULL, future.globals.onMissing = NULL,
     [14:16:46.436] future.globals.onReference = NULL, future.globals.resolve = NULL,
     [14:16:46.436] future.resolve.recursive = NULL, width = 80L)
     [14:16:46.436] {
     [14:16:46.436] {
     [14:16:46.436] {
     [14:16:46.436] base::local({
     [14:16:46.436] has_future <- base::requireNamespace("future",
     [14:16:46.436] quietly = TRUE)
     [14:16:46.436] version <- if (has_future)
     [14:16:46.436] utils::packageVersion("future")
     [14:16:46.436] else NULL
     [14:16:46.436] if (!has_future || version < "1.8.0") {
     [14:16:46.436] info <- base::c(r_version = base::gsub("R version ",
     [14:16:46.436] "", base::R.version$version.string),
     [14:16:46.436] platform = base::sprintf("%s (%s-bit)",
     [14:16:46.436] base::R.version$platform, 8 * base::.Machine$sizeof.pointer),
     [14:16:46.436] os = base::paste(base::Sys.info()[base::c("sysname",
     [14:16:46.436] "release", "version")], collapse = " "),
     [14:16:46.436] hostname = base::Sys.info()[["nodename"]])
     [14:16:46.436] info <- base::sprintf("%s: %s", base::names(info),
     [14:16:46.436] info)
     [14:16:46.436] info <- base::paste(info, collapse = "; ")
     [14:16:46.436] if (!has_future) {
     [14:16:46.436] msg <- base::sprintf("Package 'future' is not installed on worker (%s)",
     [14:16:46.436] info)
     [14:16:46.436] }
     [14:16:46.436] else {
     [14:16:46.436] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s",
     [14:16:46.436] info, version)
     [14:16:46.436] }
     [14:16:46.436] base::stop(msg)
     [14:16:46.436] }
     [14:16:46.436] })
     [14:16:46.436] }
     [14:16:46.436] base::local({
     [14:16:46.436] for (pkg in c("doFuture", "utils")) {
     [14:16:46.436] base::loadNamespace(pkg)
     [14:16:46.436] base::library(pkg, character.only = TRUE)
     [14:16:46.436] }
     [14:16:46.436] })
     [14:16:46.436] }
     [14:16:46.436] future::plan("default", .cleanup = FALSE, .init = FALSE)
     [14:16:46.436] }
     [14:16:46.436] }
     [14:16:46.436] if (base::is.na(TRUE)) {
     [14:16:46.436] }
     [14:16:46.436] else {
     [14:16:46.436] if (TRUE) {
     [14:16:46.436] ...future.stdout <- base::rawConnection(base::raw(0L),
     [14:16:46.436] open = "w")
     [14:16:46.436] }
     [14:16:46.436] else {
     [14:16:46.436] ...future.stdout <- base::file(base::switch(.Platform$OS.type,
     [14:16:46.436] windows = "NUL", "/dev/null"), open = "w")
     [14:16:46.436] }
     [14:16:46.436] base::sink(...future.stdout, type = "output", split = FALSE)
     [14:16:46.436] base::on.exit(if (!base::is.null(...future.stdout)) {
     [14:16:46.436] base::sink(type = "output", split = FALSE)
     [14:16:46.436] base::close(...future.stdout)
     [14:16:46.436] }, add = TRUE)
     [14:16:46.436] }
     [14:16:46.436] ...future.frame <- base::sys.nframe()
     [14:16:46.436] ...future.conditions <- base::list()
     [14:16:46.436] ...future.rng <- base::globalenv()$.Random.seed
     [14:16:46.436] ...future.result <- base::tryCatch({
     [14:16:46.436] base::withCallingHandlers({
     [14:16:46.436] ...future.value <- base::withVisible(base::local({
     [14:16:46.436] doFuture::registerDoFuture()
     [14:16:46.436] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:46.436] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:46.436] b <- NULL
     [14:16:46.436] ...future.env <- environment()
     [14:16:46.436] local({
     [14:16:46.436] for (name in names(...future.x_jj)) {
     [14:16:46.436] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:46.436] inherits = FALSE)
     [14:16:46.436] }
     [14:16:46.436] })
     [14:16:46.436] tryCatch({
     [14:16:46.436] plan_list <- future::plan("next")
     [14:16:46.436] message(capture.output(print(plan_list)))
     [14:16:46.436] stopifnot(inherits(plan_list, "future"))
     [14:16:46.436] default <- getOption("future.plan", "sequential")
     [14:16:46.436] if (is.function(default))
     [14:16:46.436] default <- class(default)
     [14:16:46.436] stopifnot(inherits(plan_list, default))
     [14:16:46.436] plan_b <- future::plan("list")
     [14:16:46.436] str(plan_b)
     [14:16:46.436] stopifnot(inherits(plan_b[[1]], "future"),
     [14:16:46.436] inherits(plan_b[[1]], default))
     [14:16:46.436] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:16:46.436] }, error = identity)
     [14:16:46.436] })
     [14:16:46.436] }))
     [14:16:46.436] future::FutureResult(value = ...future.value$value,
     [14:16:46.436] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed,
     [14:16:46.436] ...future.rng), started = ...future.startTime,
     [14:16:46.436] version = "1.8")
     [14:16:46.436] }, condition = base::local({
     [14:16:46.436] c <- base::c
     [14:16:46.436] inherits <- base::inherits
     [14:16:46.436] invokeRestart <- base::invokeRestart
     [14:16:46.436] length <- base::length
     [14:16:46.436] list <- base::list
     [14:16:46.436] seq.int <- base::seq.int
     [14:16:46.436] signalCondition <- base::signalCondition
     [14:16:46.436] sys.calls <- base::sys.calls
     [14:16:46.436] Sys.time <- base::Sys.time
     [14:16:46.436] `[[` <- base::`[[`
     [14:16:46.436] `+` <- base::`+`
     [14:16:46.436] `<<-` <- base::`<<-`
     [14:16:46.436] sysCalls <- function(calls = sys.calls(), from = 1L) {
     [14:16:46.436] calls[seq.int(from = from + 12L, to = length(calls) -
     [14:16:46.436] 3L)]
     [14:16:46.436] }
     [14:16:46.436] function(cond) {
     [14:16:46.436] if (inherits(cond, "error")) {
     [14:16:46.436] sessionInformation <- function() {
     [14:16:46.436] list(r = base::R.Version(), locale = base::Sys.getlocale(),
     [14:16:46.436] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(),
     [14:16:46.436] search = base::search(), system = base::Sys.info())
     [14:16:46.436] }
     [14:16:46.436] ...future.conditions[[length(...future.conditions) +
     [14:16:46.436] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame),
     [14:16:46.436] cond$call), session = sessionInformation(),
     [14:16:46.436] timestamp = Sys.time(), signaled = 0L)
     [14:16:46.436] signalCondition(cond)
     [14:16:46.436] }
     [14:16:46.436] else if (inherits(cond, c("condition", "immediateCondition"
     [14:16:46.436] ))) {
     [14:16:46.436] signal <- TRUE && inherits(cond, "immediateCondition")
     [14:16:46.436] ...future.conditions[[length(...future.conditions) +
     [14:16:46.436] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
     [14:16:46.436] if (!signal) {
     [14:16:46.436] muffleCondition <- function (cond)
     [14:16:46.436] {
     [14:16:46.436] inherits <- base::inherits
     [14:16:46.436] invokeRestart <- base::invokeRestart
     [14:16:46.436] muffled <- FALSE
     [14:16:46.436] if (inherits(cond, "message")) {
     [14:16:46.436] invokeRestart("muffleMessage")
     [14:16:46.436] muffled <- TRUE
     [14:16:46.436] }
     [14:16:46.436] else if (inherits(cond, "warning")) {
     [14:16:46.436] invokeRestart("muffleWarning")
     [14:16:46.436] muffled <- TRUE
     [14:16:46.436] }
     [14:16:46.436] else if (inherits(cond, "condition")) {
     [14:16:46.436] computeRestarts <- base::computeRestarts
     [14:16:46.436] grepl <- base::grepl
     [14:16:46.436] is.null <- base::is.null
     [14:16:46.436] restarts <- computeRestarts(cond)
     [14:16:46.436] for (restart in restarts) {
     [14:16:46.436] name <- restart$name
     [14:16:46.436] if (is.null(name))
     [14:16:46.436] next
     [14:16:46.436] if (!grepl("^muffle", name))
     [14:16:46.436] next
     [14:16:46.436] invokeRestart(restart)
     [14:16:46.436] muffled <- TRUE
     [14:16:46.436] break
     [14:16:46.436] }
     [14:16:46.436] }
     [14:16:46.436] invisible(muffled)
     [14:16:46.436] }
     [14:16:46.436] muffleCondition(cond)
     [14:16:46.436] }
     [14:16:46.436] }
     [14:16:46.436] }
     [14:16:46.436] }))
     [14:16:46.436] }, error = function(ex) {
     [14:16:46.436] base::structure(base::list(value = NULL, visible = NULL,
     [14:16:46.436] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed,
     [14:16:46.436] ...future.rng), version = "1.8"), class = "FutureResult")
     [14:16:46.436] }, finally = {
     [14:16:46.436] {
     [14:16:46.436] NULL
     [14:16:46.436] future::plan(list(b = function (expr, envir = parent.frame(),
     [14:16:46.436] substitute = TRUE, lazy = FALSE, seed = NULL,
     [14:16:46.436] globals = TRUE, local = TRUE, earlySignal = FALSE,
     [14:16:46.436] label = NULL, ...)
     [14:16:46.436] {
     [14:16:46.436] if (substitute)
     [14:16:46.436] expr <- substitute(expr)
     [14:16:46.436] local <- as.logical(local)
     [14:16:46.436] future <- SequentialFuture(expr = expr, envir = envir,
     [14:16:46.436] substitute = FALSE, lazy = lazy, seed = seed,
     [14:16:46.436] globals = globals, local = local, earlySignal = earlySignal,
     [14:16:46.436] label = label, ...)
     [14:16:46.436] if (!future$lazy)
     [14:16:46.436] future <- run(future)
     [14:16:46.436] invisible(future)
     [14:16:46.436] }), .cleanup = FALSE, .init = FALSE)
     [14:16:46.436] }
     [14:16:46.436] base::options(...future.oldOptions)
     [14:16:46.436] })
     [14:16:46.436] Sys.time
     [14:16:46.436] if (base::is.na(TRUE)) {
     [14:16:46.436] }
     [14:16:46.436] else {
     [14:16:46.436] base::sink(type = "output", split = FALSE)
     [14:16:46.436] if (TRUE) {
     [14:16:46.436] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
     [14:16:46.436] }
     [14:16:46.436] else {
     [14:16:46.436] ...future.result["stdout"] <- base::list(NULL)
     [14:16:46.436] }
     [14:16:46.436] base::close(...future.stdout)
     [14:16:46.436] ...future.stdout <- NULL
     [14:16:46.436] }
     [14:16:46.436] ...future.result$conditions <- ...future.conditions
     [14:16:46.436] ...future.result
     [14:16:46.436] }
     [14:16:46.700] - Condition #187: 'simpleMessage', 'message', 'condition'
     [14:16:46.448] plan(): Setting new future strategy stack:
     [14:16:46.700] - Condition #188: 'simpleMessage', 'message', 'condition'
     [14:16:46.449] List of future strategies:
     [14:16:46.449] 1. sequential:
     [14:16:46.449] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
     [14:16:46.449] - tweaked: FALSE
     [14:16:46.449] - call: NULL
     [14:16:46.701] - Condition #189: 'simpleMessage', 'message', 'condition'
     [14:16:46.451] plan(): nbrOfWorkers() = 1
     [14:16:46.701] - Condition #190: 'simpleMessage', 'message', 'condition'
     [14:16:46.473] plan(): Setting new future strategy stack:
     [14:16:46.702] - Condition #191: 'simpleMessage', 'message', 'condition'
     [14:16:46.474] List of future strategies:
     [14:16:46.474] 1. sequential:
     [14:16:46.474] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
     [14:16:46.474] - tweaked: FALSE
     [14:16:46.474] - call: plan(list(a = strategy1, b = strategy2))
     [14:16:46.702] - Condition #192: 'simpleMessage', 'message', 'condition'
     [14:16:46.475] plan(): nbrOfWorkers() = 1
     [14:16:46.703] - Condition #193: 'simpleMessage', 'message', 'condition'
     [14:16:46.476] SequentialFuture started (and completed)
     [14:16:46.704] - Condition #194: 'simpleMessage', 'message', 'condition'
     [14:16:46.477] signalConditions() ...
     [14:16:46.704] - Condition #195: 'simpleMessage', 'message', 'condition'
     [14:16:46.478] - include = 'immediateCondition'
     [14:16:46.705] - Condition #196: 'simpleMessage', 'message', 'condition'
     [14:16:46.479] - exclude =
     [14:16:46.705] - Condition #197: 'simpleMessage', 'message', 'condition'
     [14:16:46.480] - resignal = FALSE
     [14:16:46.706] - Condition #198: 'simpleMessage', 'message', 'condition'
     [14:16:46.480] - Number of conditions: 3
     [14:16:46.706] - Condition #199: 'simpleMessage', 'message', 'condition'
     [14:16:46.481] signalConditions() ... done
     [14:16:46.707] - Condition #200: 'simpleMessage', 'message', 'condition'
     [14:16:46.482] Chunk #1 of 1 ... DONE
     [14:16:46.708] - Condition #201: 'simpleMessage', 'message', 'condition'
     [14:16:46.483] Launching 1 futures (chunks) ... DONE
     [14:16:46.708] - Condition #202: 'simpleMessage', 'message', 'condition'
     [14:16:46.484] - resolving futures
     [14:16:46.709] - Condition #203: 'simpleMessage', 'message', 'condition'
     [14:16:46.484] - gathering results & relaying conditions (except errors)
     [14:16:46.710] - Condition #204: 'simpleMessage', 'message', 'condition'
     [14:16:46.485] resolve() on list ...
     [14:16:46.710] - Condition #205: 'simpleMessage', 'message', 'condition'
     [14:16:46.486] recursive: 0
     [14:16:46.711] - Condition #206: 'simpleMessage', 'message', 'condition'
     [14:16:46.487] length: 1
     [14:16:46.711] - Condition #207: 'simpleMessage', 'message', 'condition'
     [14:16:46.487]
     [14:16:46.712] - Condition #208: 'simpleMessage', 'message', 'condition'
     [14:16:46.488] Future #1
     [14:16:46.713] - Condition #209: 'simpleMessage', 'message', 'condition'
     [14:16:46.489] signalConditions() ...
     [14:16:46.713] - Condition #210: 'simpleMessage', 'message', 'condition'
     [14:16:46.490] - include = 'immediateCondition'
     [14:16:46.714] - Condition #211: 'simpleMessage', 'message', 'condition'
     [14:16:46.491] - exclude =
     [14:16:46.715] - Condition #212: 'simpleMessage', 'message', 'condition'
     [14:16:46.492] - resignal = FALSE
     [14:16:46.715] - Condition #213: 'simpleMessage', 'message', 'condition'
     [14:16:46.492] - Number of conditions: 3
     [14:16:46.716] - Condition #214: 'simpleMessage', 'message', 'condition'
     [14:16:46.493] signalConditions() ... done
     [14:16:46.716] - Condition #215: 'simpleMessage', 'message', 'condition'
     [14:16:46.494] signalConditionsASAP(SequentialFuture, pos=1) ...
     [14:16:46.717] - Condition #216: 'simpleMessage', 'message', 'condition'
     [14:16:46.495] - nx: 1
     [14:16:46.718] - Condition #217: 'simpleMessage', 'message', 'condition'
     [14:16:46.496] - relay: TRUE
     [14:16:46.718] - Condition #218: 'simpleMessage', 'message', 'condition'
     [14:16:46.496] - stdout: TRUE
     [14:16:46.719] - Condition #219: 'simpleMessage', 'message', 'condition'
     [14:16:46.497] - signal: TRUE
     [14:16:46.720] - Condition #220: 'simpleMessage', 'message', 'condition'
     [14:16:46.498] - resignal: FALSE
     [14:16:46.720] - Condition #221: 'simpleMessage', 'message', 'condition'
     [14:16:46.499] - force: FALSE
     [14:16:46.721] - Condition #222: 'simpleMessage', 'message', 'condition'
     [14:16:46.499] - relayed: [n=1] FALSE
     [14:16:46.721] - Condition #223: 'simpleMessage', 'message', 'condition'
     [14:16:46.500] - queued futures: [n=1] FALSE
     [14:16:46.722] - Condition #224: 'simpleMessage', 'message', 'condition'
     [14:16:46.501] - until=1
     [14:16:46.723] - Condition #225: 'simpleMessage', 'message', 'condition'
     [14:16:46.502] - relaying element #1
     [14:16:46.723] - Condition #226: 'simpleMessage', 'message', 'condition'
     [14:16:46.503] signalConditions() ...
     [14:16:46.724] - Condition #227: 'simpleMessage', 'message', 'condition'
     [14:16:46.503] - include = 'immediateCondition'
     [14:16:46.725] - Condition #228: 'simpleMessage', 'message', 'condition'
     [14:16:46.504] - exclude =
     [14:16:46.725] - Condition #229: 'simpleMessage', 'message', 'condition'
     [14:16:46.505] - resignal = FALSE
     [14:16:46.726] - Condition #230: 'simpleMessage', 'message', 'condition'
     [14:16:46.506] - Number of conditions: 3
     [14:16:46.727] - Condition #231: 'simpleMessage', 'message', 'condition'
     [14:16:46.507] signalConditions() ... done
     [14:16:46.727] - Condition #232: 'simpleMessage', 'message', 'condition'
     [14:16:46.508] signalConditions() ...
     [14:16:46.728] - Condition #233: 'simpleMessage', 'message', 'condition'
     [14:16:46.509] - include = 'immediateCondition'
     [14:16:46.728] - Condition #234: 'simpleMessage', 'message', 'condition'
     [14:16:46.509] - exclude =
     [14:16:46.729] - Condition #235: 'simpleMessage', 'message', 'condition'
     [14:16:46.510] - resignal = FALSE
     [14:16:46.730] - Condition #236: 'simpleMessage', 'message', 'condition'
     [14:16:46.511] - Number of conditions: 3
     [14:16:46.730] - Condition #237: 'simpleMessage', 'message', 'condition'
     [14:16:46.512] signalConditions() ... done
     [14:16:46.731] - Condition #238: 'simpleMessage', 'message', 'condition'
     [14:16:46.513] signalConditions() ...
     [14:16:46.731] - Condition #239: 'simpleMessage', 'message', 'condition'
     [14:16:46.514] - include = 'condition'
     [14:16:46.732] - Condition #240: 'simpleMessage', 'message', 'condition'
     [14:16:46.514] - exclude = 'immediateCondition'
     [14:16:46.733] - Condition #241: 'simpleMessage', 'message', 'condition'
     [14:16:46.515] - resignal = FALSE
     [14:16:46.733] - Condition #242: 'simpleMessage', 'message', 'condition'
     [14:16:46.516] - Number of conditions: 3
     [14:16:46.734] - Condition #243: 'simpleMessage', 'message', 'condition'
     [14:16:46.517] - Condition #1: 'simpleMessage', 'message', 'condition'
     [14:16:46.735] - Condition #244: 'simpleMessage', 'message', 'condition'
     sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
     [14:16:46.735] - Condition #245: 'simpleMessage', 'message', 'condition'
     [14:16:46.518] - Condition #2: 'simpleMessage', 'message', 'condition'
     [14:16:46.736] - Condition #246: 'simpleMessage', 'message', 'condition'
     sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
     [14:16:46.736] - Condition #247: 'simpleMessage', 'message', 'condition'
     [14:16:46.519] - Condition #3: 'simpleMessage', 'message', 'condition'
     [14:16:46.737] - Condition #248: 'simpleMessage', 'message', 'condition'
     sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
     [14:16:46.738] - Condition #249: 'simpleMessage', 'message', 'condition'
     [14:16:46.520] signalConditions() ... done
     [14:16:46.738] - Condition #250: 'simpleMessage', 'message', 'condition'
     [14:16:46.521] - relayed: [n=1] TRUE
     [14:16:46.739] - Condition #251: 'simpleMessage', 'message', 'condition'
     [14:16:46.522] - queued futures: [n=1] TRUE
     [14:16:46.739] - Condition #252: 'simpleMessage', 'message', 'condition'
     [14:16:46.523] signalConditionsASAP(SequentialFuture, pos=1) ... done
     [14:16:46.740] - Condition #253: 'simpleMessage', 'message', 'condition'
     [14:16:46.524] length: 0 (resolved future 1)
     [14:16:46.740] - Condition #254: 'simpleMessage', 'message', 'condition'
     [14:16:46.525] Relaying remaining futures
     [14:16:46.741] - Condition #255: 'simpleMessage', 'message', 'condition'
     [14:16:46.525] signalConditionsASAP(NULL, pos=0) ...
     [14:16:46.742] - Condition #256: 'simpleMessage', 'message', 'condition'
     [14:16:46.526] - nx: 1
     [14:16:46.742] - Condition #257: 'simpleMessage', 'message', 'condition'
     [14:16:46.527] - relay: TRUE
     [14:16:46.743] - Condition #258: 'simpleMessage', 'message', 'condition'
     [14:16:46.528] - stdout: TRUE
     [14:16:46.743] - Condition #259: 'simpleMessage', 'message', 'condition'
     [14:16:46.528] - signal: TRUE
     [14:16:46.744] - Condition #260: 'simpleMessage', 'message', 'condition'
     [14:16:46.529] - resignal: FALSE
     [14:16:46.744] - Condition #261: 'simpleMessage', 'message', 'condition'
     [14:16:46.530] - force: FALSE
     [14:16:46.745] - Condition #262: 'simpleMessage', 'message', 'condition'
     [14:16:46.531] - relayed: [n=1] TRUE
     [14:16:46.746] - Condition #263: 'simpleMessage', 'message', 'condition'
     [14:16:46.531] - queued futures: [n=1] TRUE
     [14:16:46.746] - Condition #264: 'simpleMessage', 'message', 'condition'
     - flush all
     [14:16:46.747] - Condition #265: 'simpleMessage', 'message', 'condition'
     [14:16:46.533] - relayed: [n=1] TRUE
     [14:16:46.747] - Condition #266: 'simpleMessage', 'message', 'condition'
     [14:16:46.534] - queued futures: [n=1] TRUE
     [14:16:46.748] - Condition #267: 'simpleMessage', 'message', 'condition'
     [14:16:46.535] signalConditionsASAP(NULL, pos=0) ... done
     [14:16:46.748] - Condition #268: 'simpleMessage', 'message', 'condition'
     [14:16:46.535] resolve() on list ... DONE
     [14:16:46.749] - Condition #269: 'simpleMessage', 'message', 'condition'
     [14:16:46.536] - collecting values of futures
     [14:16:46.750] - Condition #270: 'simpleMessage', 'message', 'condition'
     [14:16:46.537] signalConditions() ...
     [14:16:46.750] - Condition #271: 'simpleMessage', 'message', 'condition'
     [14:16:46.538] - include = 'immediateCondition'
     [14:16:46.751] - Condition #272: 'simpleMessage', 'message', 'condition'
     [14:16:46.538] - exclude =
     [14:16:46.752] - Condition #273: 'simpleMessage', 'message', 'condition'
     [14:16:46.539] - resignal = FALSE
     [14:16:46.752] - Condition #274: 'simpleMessage', 'message', 'condition'
     [14:16:46.540] - Number of conditions: 3
     [14:16:46.753] - Condition #275: 'simpleMessage', 'message', 'condition'
     [14:16:46.541] signalConditions() ... done
     [14:16:46.753] - Condition #276: 'simpleMessage', 'message', 'condition'
     [14:16:46.542] - accumulating results
     [14:16:46.754] - Condition #277: 'simpleMessage', 'message', 'condition'
     [14:16:46.543] - processing errors (handler = 'stop')
     [14:16:46.755] - Condition #278: 'simpleMessage', 'message', 'condition'
     [14:16:46.544] - extracting results
     [14:16:46.755] - Condition #279: 'simpleMessage', 'message', 'condition'
     [14:16:46.545] doFuture() ... DONE
     [14:16:46.756] - Condition #280: 'simpleMessage', 'message', 'condition'
     foreach() - level 2 ... DONE
     [14:16:46.757] signalConditions() ... done
     [14:16:46.757] - relayed: [n=1] TRUE
     [14:16:46.762] - queued futures: [n=1] TRUE
     [14:16:46.762] signalConditionsASAP(SequentialFuture, pos=1) ... done
     [14:16:46.762] length: 0 (resolved future 1)
     [14:16:46.763] Relaying remaining futures
     [14:16:46.763] signalConditionsASAP(NULL, pos=0) ...
     [14:16:46.764] - nx: 1
     [14:16:46.764] - relay: TRUE
     [14:16:46.764] - stdout: TRUE
     [14:16:46.765] - signal: TRUE
     [14:16:46.765] - resignal: FALSE
     [14:16:46.766] - force: FALSE
     [14:16:46.766] - relayed: [n=1] TRUE
     [14:16:46.767] - queued futures: [n=1] TRUE
     - flush all
     [14:16:46.767] - relayed: [n=1] TRUE
     [14:16:46.768] - queued futures: [n=1] TRUE
     [14:16:46.768] signalConditionsASAP(NULL, pos=0) ... done
     [14:16:46.769] resolve() on list ... DONE
     [14:16:46.769] - collecting values of futures
     [14:16:46.770] signalConditions() ...
     [14:16:46.770] - include = 'immediateCondition'
     [14:16:46.771] - exclude =
     [14:16:46.771] - resignal = FALSE
     [14:16:46.771] - Number of conditions: 280
     [14:16:46.772] signalConditions() ... done
     [14:16:46.773] - accumulating results
     [14:16:46.774] - processing errors (handler = 'stop')
     [14:16:46.775] - extracting results
     [14:16:46.775] doFuture() ... DONE
     foreach() - level 1 ... DONE
     - plan(list('sequential', 'sequential')) ... DONE
     - plan(list('sequential', 'multicore')) ...
     [14:16:46.777] plan(): Setting new future strategy stack:
     [14:16:46.778] List of future strategies:
     [14:16:46.778] 1. sequential:
     [14:16:46.778] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
     [14:16:46.778] - tweaked: FALSE
     [14:16:46.778] - call: plan(list(a = strategy1, b = strategy2))
     [14:16:46.778] 2. multicore:
     [14:16:46.778] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
     [14:16:46.778] - tweaked: FALSE
     [14:16:46.778] - call: plan(list(a = strategy1, b = strategy2))
     [14:16:46.780] plan(): nbrOfWorkers() = 1
     foreach() - level 1 ...
     [14:16:46.781] doFuture() ...
     [14:16:46.783] - dummy globals (as locals): [1] 'a'
     [14:16:46.784] - R expression:
     [14:16:46.784] {
     [14:16:46.784] doFuture::registerDoFuture()
     [14:16:46.784] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:46.784] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:46.784] a <- NULL
     [14:16:46.784] ...future.env <- environment()
     [14:16:46.784] local({
     [14:16:46.784] for (name in names(...future.x_jj)) {
     [14:16:46.784] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:46.784] inherits = FALSE)
     [14:16:46.784] }
     [14:16:46.784] })
     [14:16:46.784] tryCatch({
     [14:16:46.784] plan_list <- future::plan("next")
     [14:16:46.784] stopifnot(inherits(plan_list, strategy2))
     [14:16:46.784] plan_a <- future::plan("list")
     [14:16:46.784] str(plan_a)
     [14:16:46.784] stopifnot(inherits(plan_a[[1]], strategy2))
     [14:16:46.784] message("foreach() - level 2 ...")
     [14:16:46.784] y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar%
     [14:16:46.784] {
     [14:16:46.784] plan_list <- future::plan("next")
     [14:16:46.784] message(capture.output(print(plan_list)))
     [14:16:46.784] stopifnot(inherits(plan_list, "future"))
     [14:16:46.784] default <- getOption("future.plan", "sequential")
     [14:16:46.784] if (is.function(default))
     [14:16:46.784] default <- class(default)
     [14:16:46.784] stopifnot(inherits(plan_list, default))
     [14:16:46.784] plan_b <- future::plan("list")
     [14:16:46.784] str(plan_b)
     [14:16:46.784] stopifnot(inherits(plan_b[[1]], "future"),
     [14:16:46.784] inherits(plan_b[[1]], default))
     [14:16:46.784] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:16:46.784] }
     [14:16:46.784] message("foreach() - level 2 ... DONE")
     [14:16:46.784] y
     [14:16:46.784] }, error = identity)
     [14:16:46.784] })
     [14:16:46.784] }
     [14:16:46.787] - identifying globals and packages ...
     [14:16:46.787] getGlobalsAndPackages() ...
     [14:16:46.788] Searching for globals...
     [14:16:46.832] - globals found: [31] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'stopifnot', 'inherits', 'strategy2', 'str', 'message', '%dopar%', 'foreach', 'bs', 'c', 'capture.output', 'print', 'getOption', 'if', 'is.function', 'class', 'list', 'b', 'identity'
     [14:16:46.833] Searching for globals ... DONE
     [14:16:46.833] Resolving globals: FALSE
     [14:16:46.837] The total size of the 3 globals is 184 bytes (184 bytes)
     [14:16:46.838] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
     [14:16:46.838] - packages: [2] 'utils', 'foreach'
     [14:16:46.839] getGlobalsAndPackages() ... DONE
     [14:16:46.839] List of 3
     [14:16:46.839] $ ...future.x_ii: NULL
     [14:16:46.839] $ strategy2 : chr "multicore"
     [14:16:46.839] $ bs : int [1:3] 3 2 1
     [14:16:46.839] - attr(*, "where")=List of 3
     [14:16:46.839] ..$ ...future.x_ii:<environment: 0x13e3fa8>
     [14:16:46.839] ..$ strategy2 :<environment: R_GlobalEnv>
     [14:16:46.839] ..$ bs :<environment: R_GlobalEnv>
     [14:16:46.839] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
     [14:16:46.839] - attr(*, "resolved")= logi FALSE
     [14:16:46.839] - attr(*, "total_size")= num 184
     [14:16:46.858] - R expression:
     [14:16:46.858] {
     [14:16:46.858] doFuture::registerDoFuture()
     [14:16:46.858] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:46.858] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:46.858] a <- NULL
     [14:16:46.858] ...future.env <- environment()
     [14:16:46.858] local({
     [14:16:46.858] for (name in names(...future.x_jj)) {
     [14:16:46.858] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:46.858] inherits = FALSE)
     [14:16:46.858] }
     [14:16:46.858] })
     [14:16:46.858] tryCatch({
     [14:16:46.858] plan_list <- future::plan("next")
     [14:16:46.858] stopifnot(inherits(plan_list, strategy2))
     [14:16:46.858] plan_a <- future::plan("list")
     [14:16:46.858] str(plan_a)
     [14:16:46.858] stopifnot(inherits(plan_a[[1]], strategy2))
     [14:16:46.858] message("foreach() - level 2 ...")
     [14:16:46.858] y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar%
     [14:16:46.858] {
     [14:16:46.858] plan_list <- future::plan("next")
     [14:16:46.858] message(capture.output(print(plan_list)))
     [14:16:46.858] stopifnot(inherits(plan_list, "future"))
     [14:16:46.858] default <- getOption("future.plan", "sequential")
     [14:16:46.858] if (is.function(default))
     [14:16:46.858] default <- class(default)
     [14:16:46.858] stopifnot(inherits(plan_list, default))
     [14:16:46.858] plan_b <- future::plan("list")
     [14:16:46.858] str(plan_b)
     [14:16:46.858] stopifnot(inherits(plan_b[[1]], "future"),
     [14:16:46.858] inherits(plan_b[[1]], default))
     [14:16:46.858] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:16:46.858] }
     [14:16:46.858] message("foreach() - level 2 ... DONE")
     [14:16:46.858] y
     [14:16:46.858] }, error = identity)
     [14:16:46.858] })
     [14:16:46.858] }
     [14:16:46.860] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
     [14:16:46.861] List of 3
     [14:16:46.861] $ ...future.x_ii: NULL
     [14:16:46.861] $ strategy2 : chr "multicore"
     [14:16:46.861] $ bs : int [1:3] 3 2 1
     [14:16:46.861] - attr(*, "where")=List of 3
     [14:16:46.861] ..$ ...future.x_ii:<environment: 0x13e3fa8>
     [14:16:46.861] ..$ strategy2 :<environment: R_GlobalEnv>
     [14:16:46.861] ..$ bs :<environment: R_GlobalEnv>
     [14:16:46.861] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
     [14:16:46.861] - attr(*, "resolved")= logi FALSE
     [14:16:46.861] - attr(*, "total_size")= num 184
     [14:16:46.875] - packages: [3] 'doFuture', 'utils', 'foreach'
     [14:16:46.876] - identifying globals and packages ... DONE
     [14:16:46.876] Number of chunks: 1
     [14:16:46.877] Number of futures (= number of chunks): 1
     [14:16:46.878] Launching 1 futures (chunks) ...
     [14:16:46.878] Chunk #1 of 1 ...
     [14:16:46.879] - Finding globals in 'args_list' chunk #1 ...
     [14:16:46.879] getGlobalsAndPackages() ...
     [14:16:46.880] Searching for globals...
     [14:16:46.881]
     [14:16:46.881] Searching for globals ... DONE
     [14:16:46.882] - globals: [0] <none>
     [14:16:46.882] getGlobalsAndPackages() ... DONE
     [14:16:46.883]
     [14:16:46.883]
     [14:16:46.883] - Finding globals in 'args_list' for chunk #1 ... DONE
     [14:16:46.884] getGlobalsAndPackages() ...
     [14:16:46.885] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
     [14:16:46.885] Resolving globals: FALSE
     [14:16:46.887] The total size of the 3 globals is 296 bytes (296 bytes)
     [14:16:46.887] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
     [14:16:46.888]
     [14:16:46.888] getGlobalsAndPackages() ... DONE
     [14:16:46.891] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
     [14:16:46.892] Packages needed by future strategies (n = 1): 'future'
     [14:16:46.901] {
     [14:16:46.901] {
     [14:16:46.901] ...future.startTime <- base::Sys.time()
     [14:16:46.901] ...future.oldOptions <- base::options(future.startup.script = FALSE,
     [14:16:46.901] future.globals.onMissing = NULL, future.globals.maxSize = NULL,
     [14:16:46.901] future.globals.method = NULL, future.globals.onMissing = NULL,
     [14:16:46.901] future.globals.onReference = NULL, future.globals.resolve = NULL,
     [14:16:46.901] future.resolve.recursive = NULL, width = 80L)
     [14:16:46.901] {
     [14:16:46.901] {
     [14:16:46.901] {
     [14:16:46.901] base::local({
     [14:16:46.901] has_future <- base::requireNamespace("future",
     [14:16:46.901] quietly = TRUE)
     [14:16:46.901] version <- if (has_future)
     [14:16:46.901] utils::packageVersion("future")
     [14:16:46.901] else NULL
     [14:16:46.901] if (!has_future || version < "1.8.0") {
     [14:16:46.901] info <- base::c(r_version = base::gsub("R version ",
     [14:16:46.901] "", base::R.version$version.string),
     [14:16:46.901] platform = base::sprintf("%s (%s-bit)",
     [14:16:46.901] base::R.version$platform, 8 * base::.Machine$sizeof.pointer),
     [14:16:46.901] os = base::paste(base::Sys.info()[base::c("sysname",
     [14:16:46.901] "release", "version")], collapse = " "),
     [14:16:46.901] hostname = base::Sys.info()[["nodename"]])
     [14:16:46.901] info <- base::sprintf("%s: %s", base::names(info),
     [14:16:46.901] info)
     [14:16:46.901] info <- base::paste(info, collapse = "; ")
     [14:16:46.901] if (!has_future) {
     [14:16:46.901] msg <- base::sprintf("Package 'future' is not installed on worker (%s)",
     [14:16:46.901] info)
     [14:16:46.901] }
     [14:16:46.901] else {
     [14:16:46.901] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s",
     [14:16:46.901] info, version)
     [14:16:46.901] }
     [14:16:46.901] base::stop(msg)
     [14:16:46.901] }
     [14:16:46.901] })
     [14:16:46.901] }
     [14:16:46.901] base::local({
     [14:16:46.901] for (pkg in c("doFuture", "utils", "foreach",
     [14:16:46.901] "future")) {
     [14:16:46.901] base::loadNamespace(pkg)
     [14:16:46.901] base::library(pkg, character.only = TRUE)
     [14:16:46.901] }
     [14:16:46.901] })
     [14:16:46.901] }
     [14:16:46.901] future::plan(list(b = function (expr, envir = parent.frame(),
     [14:16:46.901] substitute = TRUE, lazy = FALSE, seed = NULL,
     [14:16:46.901] globals = TRUE, workers = availableCores(constraints = "multicore"),
     [14:16:46.901] earlySignal = FALSE, label = NULL, ...)
     [14:16:46.901] {
     [14:16:46.901] if (substitute)
     [14:16:46.901] expr <- substitute(expr)
     [14:16:46.901] if (is.function(workers))
     [14:16:46.901] workers <- workers()
     [14:16:46.901] workers <- as.integer(workers)
     [14:16:46.901] stop_if_not(is.finite(workers), workers >= 1L)
     [14:16:46.901] if (workers == 1L || !supportsMulticore(warn = TRUE)) {
     [14:16:46.901] return(sequential(expr, envir = envir, substitute = FALSE,
     [14:16:46.901] lazy = lazy, seed = seed, globals = globals,
     [14:16:46.901] local = TRUE, label = label, ...))
     [14:16:46.901] }
     [14:16:46.901] oopts <- options(mc.cores = workers)
     [14:16:46.901] on.exit(options(oopts))
     [14:16:46.901] future <- MulticoreFuture(expr = expr, envir = envir,
     [14:16:46.901] substitute = FALSE, lazy = lazy, seed = seed,
     [14:16:46.901] globals = globals, workers = workers, earlySignal = earlySignal,
     [14:16:46.901] label = label, ...)
     [14:16:46.901] if (!future$lazy)
     [14:16:46.901] future <- run(future)
     [14:16:46.901] invisible(future)
     [14:16:46.901] }), .cleanup = FALSE, .init = FALSE)
     [14:16:46.901] }
     [14:16:46.901] }
     [14:16:46.901] if (base::is.na(TRUE)) {
     [14:16:46.901] }
     [14:16:46.901] else {
     [14:16:46.901] if (TRUE) {
     [14:16:46.901] ...future.stdout <- base::rawConnection(base::raw(0L),
     [14:16:46.901] open = "w")
     [14:16:46.901] }
     [14:16:46.901] else {
     [14:16:46.901] ...future.stdout <- base::file(base::switch(.Platform$OS.type,
     [14:16:46.901] windows = "NUL", "/dev/null"), open = "w")
     [14:16:46.901] }
     [14:16:46.901] base::sink(...future.stdout, type = "output", split = FALSE)
     [14:16:46.901] base::on.exit(if (!base::is.null(...future.stdout)) {
     [14:16:46.901] base::sink(type = "output", split = FALSE)
     [14:16:46.901] base::close(...future.stdout)
     [14:16:46.901] }, add = TRUE)
     [14:16:46.901] }
     [14:16:46.901] ...future.frame <- base::sys.nframe()
     [14:16:46.901] ...future.conditions <- base::list()
     [14:16:46.901] ...future.rng <- base::globalenv()$.Random.seed
     [14:16:46.901] ...future.result <- base::tryCatch({
     [14:16:46.901] base::withCallingHandlers({
     [14:16:46.901] ...future.value <- base::withVisible(base::local({
     [14:16:46.901] doFuture::registerDoFuture()
     [14:16:46.901] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:46.901] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:46.901] a <- NULL
     [14:16:46.901] ...future.env <- environment()
     [14:16:46.901] local({
     [14:16:46.901] for (name in names(...future.x_jj)) {
     [14:16:46.901] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:46.901] inherits = FALSE)
     [14:16:46.901] }
     [14:16:46.901] })
     [14:16:46.901] tryCatch({
     [14:16:46.901] plan_list <- future::plan("next")
     [14:16:46.901] stopifnot(inherits(plan_list, strategy2))
     [14:16:46.901] plan_a <- future::plan("list")
     [14:16:46.901] str(plan_a)
     [14:16:46.901] stopifnot(inherits(plan_a[[1]], strategy2))
     [14:16:46.901] message("foreach() - level 2 ...")
     [14:16:46.901] y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar%
     [14:16:46.901] {
     [14:16:46.901] plan_list <- future::plan("next")
     [14:16:46.901] message(capture.output(print(plan_list)))
     [14:16:46.901] stopifnot(inherits(plan_list, "future"))
     [14:16:46.901] default <- getOption("future.plan", "sequential")
     [14:16:46.901] if (is.function(default))
     [14:16:46.901] default <- class(default)
     [14:16:46.901] stopifnot(inherits(plan_list, default))
     [14:16:46.901] plan_b <- future::plan("list")
     [14:16:46.901] str(plan_b)
     [14:16:46.901] stopifnot(inherits(plan_b[[1]], "future"),
     [14:16:46.901] inherits(plan_b[[1]], default))
     [14:16:46.901] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:16:46.901] }
     [14:16:46.901] message("foreach() - level 2 ... DONE")
     [14:16:46.901] y
     [14:16:46.901] }, error = identity)
     [14:16:46.901] })
     [14:16:46.901] }))
     [14:16:46.901] future::FutureResult(value = ...future.value$value,
     [14:16:46.901] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed,
     [14:16:46.901] ...future.rng), started = ...future.startTime,
     [14:16:46.901] version = "1.8")
     [14:16:46.901] }, condition = base::local({
     [14:16:46.901] c <- base::c
     [14:16:46.901] inherits <- base::inherits
     [14:16:46.901] invokeRestart <- base::invokeRestart
     [14:16:46.901] length <- base::length
     [14:16:46.901] list <- base::list
     [14:16:46.901] seq.int <- base::seq.int
     [14:16:46.901] signalCondition <- base::signalCondition
     [14:16:46.901] sys.calls <- base::sys.calls
     [14:16:46.901] Sys.time <- base::Sys.time
     [14:16:46.901] `[[` <- base::`[[`
     [14:16:46.901] `+` <- base::`+`
     [14:16:46.901] `<<-` <- base::`<<-`
     [14:16:46.901] sysCalls <- function(calls = sys.calls(), from = 1L) {
     [14:16:46.901] calls[seq.int(from = from + 12L, to = length(calls) -
     [14:16:46.901] 3L)]
     [14:16:46.901] }
     [14:16:46.901] function(cond) {
     [14:16:46.901] if (inherits(cond, "error")) {
     [14:16:46.901] sessionInformation <- function() {
     [14:16:46.901] list(r = base::R.Version(), locale = base::Sys.getlocale(),
     [14:16:46.901] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(),
     [14:16:46.901] search = base::search(), system = base::Sys.info())
     [14:16:46.901] }
     [14:16:46.901] ...future.conditions[[length(...future.conditions) +
     [14:16:46.901] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame),
     [14:16:46.901] cond$call), session = sessionInformation(),
     [14:16:46.901] timestamp = Sys.time(), signaled = 0L)
     [14:16:46.901] signalCondition(cond)
     [14:16:46.901] }
     [14:16:46.901] else if (inherits(cond, c("condition", "immediateCondition"
     [14:16:46.901] ))) {
     [14:16:46.901] signal <- TRUE && inherits(cond, "immediateCondition")
     [14:16:46.901] ...future.conditions[[length(...future.conditions) +
     [14:16:46.901] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
     [14:16:46.901] if (!signal) {
     [14:16:46.901] muffleCondition <- function (cond)
     [14:16:46.901] {
     [14:16:46.901] inherits <- base::inherits
     [14:16:46.901] invokeRestart <- base::invokeRestart
     [14:16:46.901] muffled <- FALSE
     [14:16:46.901] if (inherits(cond, "message")) {
     [14:16:46.901] invokeRestart("muffleMessage")
     [14:16:46.901] muffled <- TRUE
     [14:16:46.901] }
     [14:16:46.901] else if (inherits(cond, "warning")) {
     [14:16:46.901] invokeRestart("muffleWarning")
     [14:16:46.901] muffled <- TRUE
     [14:16:46.901] }
     [14:16:46.901] else if (inherits(cond, "condition")) {
     [14:16:46.901] computeRestarts <- base::computeRestarts
     [14:16:46.901] grepl <- base::grepl
     [14:16:46.901] is.null <- base::is.null
     [14:16:46.901] restarts <- computeRestarts(cond)
     [14:16:46.901] for (restart in restarts) {
     [14:16:46.901] name <- restart$name
     [14:16:46.901] if (is.null(name))
     [14:16:46.901] next
     [14:16:46.901] if (!grepl("^muffle", name))
     [14:16:46.901] next
     [14:16:46.901] invokeRestart(restart)
     [14:16:46.901] muffled <- TRUE
     [14:16:46.901] break
     [14:16:46.901] }
     [14:16:46.901] }
     [14:16:46.901] invisible(muffled)
     [14:16:46.901] }
     [14:16:46.901] muffleCondition(cond)
     [14:16:46.901] }
     [14:16:46.901] }
     [14:16:46.901] }
     [14:16:46.901] }))
     [14:16:46.901] }, error = function(ex) {
     [14:16:46.901] base::structure(base::list(value = NULL, visible = NULL,
     [14:16:46.901] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed,
     [14:16:46.901] ...future.rng), version = "1.8"), class = "FutureResult")
     [14:16:46.901] }, finally = {
     [14:16:46.901] {
     [14:16:46.901] NULL
     [14:16:46.901] future::plan(list(a = function (expr, envir = parent.frame(),
     [14:16:46.901] substitute = TRUE, lazy = FALSE, seed = NULL,
     [14:16:46.901] globals = TRUE, local = TRUE, earlySignal = FALSE,
     [14:16:46.901] label = NULL, ...)
     [14:16:46.901] {
     [14:16:46.901] if (substitute)
     [14:16:46.901] expr <- substitute(expr)
     [14:16:46.901] local <- as.logical(local)
     [14:16:46.901] future <- SequentialFuture(expr = expr, envir = envir,
     [14:16:46.901] substitute = FALSE, lazy = lazy, seed = seed,
     [14:16:46.901] globals = globals, local = local, earlySignal = earlySignal,
     [14:16:46.901] label = label, ...)
     [14:16:46.901] if (!future$lazy)
     [14:16:46.901] future <- run(future)
     [14:16:46.901] invisible(future)
     [14:16:46.901] }, b = function (expr, envir = parent.frame(), substitute = TRUE,
     [14:16:46.901] lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"),
     [14:16:46.901] earlySignal = FALSE, label = NULL, ...)
     [14:16:46.901] {
     [14:16:46.901] if (substitute)
     [14:16:46.901] expr <- substitute(expr)
     [14:16:46.901] if (is.function(workers))
     [14:16:46.901] workers <- workers()
     [14:16:46.901] workers <- as.integer(workers)
     [14:16:46.901] stop_if_not(is.finite(workers), workers >= 1L)
     [14:16:46.901] if (workers == 1L || !supportsMulticore(warn = TRUE)) {
     [14:16:46.901] return(sequential(expr, envir = envir, substitute = FALSE,
     [14:16:46.901] lazy = lazy, seed = seed, globals = globals,
     [14:16:46.901] local = TRUE, label = label, ...))
     [14:16:46.901] }
     [14:16:46.901] oopts <- options(mc.cores = workers)
     [14:16:46.901] on.exit(options(oopts))
     [14:16:46.901] future <- MulticoreFuture(expr = expr, envir = envir,
     [14:16:46.901] substitute = FALSE, lazy = lazy, seed = seed,
     [14:16:46.901] globals = globals, workers = workers, earlySignal = earlySignal,
     [14:16:46.901] label = label, ...)
     [14:16:46.901] if (!future$lazy)
     [14:16:46.901] future <- run(future)
     [14:16:46.901] invisible(future)
     [14:16:46.901] }), .cleanup = FALSE, .init = FALSE)
     [14:16:46.901] }
     [14:16:46.901] base::options(...future.oldOptions)
     [14:16:46.901] })
     [14:16:46.901] Sys.time
     [14:16:46.901] if (base::is.na(TRUE)) {
     [14:16:46.901] }
     [14:16:46.901] else {
     [14:16:46.901] base::sink(type = "output", split = FALSE)
     [14:16:46.901] if (TRUE) {
     [14:16:46.901] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
     [14:16:46.901] }
     [14:16:46.901] else {
     [14:16:46.901] ...future.result["stdout"] <- base::list(NULL)
     [14:16:46.901] }
     [14:16:46.901] base::close(...future.stdout)
     [14:16:46.901] ...future.stdout <- NULL
     [14:16:46.901] }
     [14:16:46.901] ...future.result$conditions <- ...future.conditions
     [14:16:46.901] ...future.result
     [14:16:46.901] }
     [14:16:46.914] plan(): Setting new future strategy stack:
     [14:16:46.915] List of future strategies:
     [14:16:46.915] 1. multicore:
     [14:16:46.915] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
     [14:16:46.915] - tweaked: FALSE
     [14:16:46.915] - call: plan(list(a = strategy1, b = strategy2))
     [14:16:46.937] plan(): nbrOfWorkers() = 2
     [14:16:47.747] plan(): Setting new future strategy stack:
     [14:16:47.748] List of future strategies:
     [14:16:47.748] 1. sequential:
     [14:16:47.748] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
     [14:16:47.748] - tweaked: FALSE
     [14:16:47.748] - call: plan(list(a = strategy1, b = strategy2))
     [14:16:47.748] 2. multicore:
     [14:16:47.748] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
     [14:16:47.748] - tweaked: FALSE
     [14:16:47.748] - call: plan(list(a = strategy1, b = strategy2))
     [14:16:47.750] plan(): nbrOfWorkers() = 1
     [14:16:47.751] SequentialFuture started (and completed)
     [14:16:47.752] signalConditions() ...
     [14:16:47.753] - include = 'immediateCondition'
     [14:16:47.753] - exclude =
     [14:16:47.754] - resignal = FALSE
     [14:16:47.754] - Number of conditions: 422
     [14:16:47.757] signalConditions() ... done
     [14:16:47.757] Chunk #1 of 1 ... DONE
     [14:16:47.758] Launching 1 futures (chunks) ... DONE
     [14:16:47.758] - resolving futures
     [14:16:47.759] - gathering results & relaying conditions (except errors)
     [14:16:47.759] resolve() on list ...
     [14:16:47.759] recursive: 0
     [14:16:47.760] length: 1
     [14:16:47.760]
     [14:16:47.761] Future #1
     [14:16:47.762] signalConditions() ...
     [14:16:47.762] - include = 'immediateCondition'
     [14:16:47.763] - exclude =
     [14:16:47.763] - resignal = FALSE
     [14:16:47.764] - Number of conditions: 422
     [14:16:47.766] signalConditions() ... done
     [14:16:47.767] signalConditionsASAP(SequentialFuture, pos=1) ...
     [14:16:47.767] - nx: 1
     [14:16:47.767] - relay: TRUE
     [14:16:47.768] - stdout: TRUE
     [14:16:47.768] - signal: TRUE
     [14:16:47.769] - resignal: FALSE
     [14:16:47.769] - force: FALSE
     [14:16:47.770] - relayed: [n=1] FALSE
     [14:16:47.770] - queued futures: [n=1] FALSE
     [14:16:47.771] - until=1
     [14:16:47.771] - relaying element #1
     [14:16:47.772] signalConditions() ...
     [14:16:47.772] - include = 'immediateCondition'
     [14:16:47.773] - exclude =
     [14:16:47.773] - resignal = FALSE
     [14:16:47.774] - Number of conditions: 422
     [14:16:47.776] signalConditions() ... done
     List of 1
     $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"),
     earlySignal = FALSE, label = NULL, ...)
     ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
     ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     List of 1
     $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL,
     ...)
     ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     List of 1
     $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL,
     ...)
     ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     List of 1
     $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL,
     ...)
     ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     List of 1
     $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"),
     earlySignal = FALSE, label = NULL, ...)
     ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
     ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     List of 1
     $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL,
     ...)
     ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     List of 1
     $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL,
     ...)
     ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     List of 1
     $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL,
     ...)
     ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     [14:16:47.777] signalConditions() ...
     [14:16:47.777] - include = 'immediateCondition'
     [14:16:47.778] - exclude =
     [14:16:47.778] - resignal = FALSE
     [14:16:47.779] - Number of conditions: 422
     [14:16:47.781] signalConditions() ... done
     [14:16:47.785] signalConditions() ...
     [14:16:47.786] - include = 'condition'
     [14:16:47.786] - exclude = 'immediateCondition'
     [14:16:47.787] - resignal = FALSE
     [14:16:47.787] - Number of conditions: 422
     [14:16:47.787] - Condition #1: 'simpleMessage', 'message', 'condition'
     foreach() - level 2 ...
     [14:16:47.788] - Condition #2: 'simpleMessage', 'message', 'condition'
     [14:16:46.945] doFuture() ...
     [14:16:47.789] - Condition #3: 'simpleMessage', 'message', 'condition'
     [14:16:46.947] - dummy globals (as locals): [1] 'b'
     [14:16:47.789] - Condition #4: 'simpleMessage', 'message', 'condition'
     [14:16:46.950] - R expression:
     [14:16:47.790] - Condition #5: 'simpleMessage', 'message', 'condition'
     [14:16:46.950] {
     [14:16:46.950] doFuture::registerDoFuture()
     [14:16:46.950] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:46.950] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:46.950] b <- NULL
     [14:16:46.950] ...future.env <- environment()
     [14:16:46.950] local({
     [14:16:46.950] for (name in names(...future.x_jj)) {
     [14:16:46.950] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:46.950] inherits = FALSE)
     [14:16:46.950] }
     [14:16:46.950] })
     [14:16:46.950] tryCatch({
     [14:16:46.950] plan_list <- future::plan("next")
     [14:16:46.950] message(capture.output(print(plan_list)))
     [14:16:46.950] stopifnot(inherits(plan_list, "future"))
     [14:16:46.950] default <- getOption("future.plan", "sequential")
     [14:16:46.950] if (is.function(default))
     [14:16:46.950] default <- class(default)
     [14:16:46.950] stopifnot(inherits(plan_list, default))
     [14:16:46.950] plan_b <- future::plan("list")
     [14:16:46.950] str(plan_b)
     [14:16:46.950] stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]],
     [14:16:46.950] default))
     [14:16:46.950] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:16:46.950] }, error = identity)
     [14:16:46.950] })
     [14:16:46.950] }
     [14:16:47.791] - Condition #6: 'simpleMessage', 'message', 'condition'
     [14:16:46.952] - identifying globals and packages ...
     [14:16:47.791] - Condition #7: 'simpleMessage', 'message', 'condition'
     [14:16:46.953] getGlobalsAndPackages() ...
     [14:16:47.792] - Condition #8: 'simpleMessage', 'message', 'condition'
     [14:16:46.954] Searching for globals...
     [14:16:47.792] - Condition #9: 'simpleMessage', 'message', 'condition'
     [14:16:46.988] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
     [14:16:47.793] - Condition #10: 'simpleMessage', 'message', 'condition'
     [14:16:46.989] Searching for globals ... DONE
     [14:16:47.794] - Condition #11: 'simpleMessage', 'message', 'condition'
     [14:16:46.990] Resolving globals: FALSE
     [14:16:47.794] - Condition #12: 'simpleMessage', 'message', 'condition'
     [14:16:46.993] The total size of the 3 globals is 75.02 KiB (76816 bytes)
     [14:16:47.795] - Condition #13: 'simpleMessage', 'message', 'condition'
     [14:16:46.994] - globals: [3] '...future.x_ii', 'a', 'plan_a'
     [14:16:47.795] - Condition #14: 'simpleMessage', 'message', 'condition'
     [14:16:46.995] - packages: [1] 'utils'
     [14:16:47.796] - Condition #15: 'simpleMessage', 'message', 'condition'
     [14:16:46.996] getGlobalsAndPackages() ... DONE
     [14:16:47.796] - Condition #16: 'simpleMessage', 'message', 'condition'
     [14:16:46.997] List of 3
     [14:16:46.997] $ ...future.x_ii: NULL
     [14:16:46.997] $ a : int 1
     [14:16:46.997] $ plan_a :List of 1
     [14:16:46.997] ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     [14:16:46.997] seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"),
     [14:16:46.997] earlySignal = FALSE, label = NULL, ...)
     [14:16:46.997] .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
     [14:16:46.997] .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
     [14:16:46.997] ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     [14:16:46.997] - attr(*, "where")=List of 3
     [14:16:46.997] ..$ ...future.x_ii:<environment: 0x3837158>
     [14:16:46.997] ..$ a :<environment: 0x3509dc0>
     [14:16:46.997] ..$ plan_a :<environment: 0x3509dc0>
     [14:16:46.997] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
     [14:16:46.997] - attr(*, "resolved")= logi FALSE
     [14:16:46.997] - attr(*, "total_size")= num 76816
     [14:16:47.797] - Condition #17: 'simpleMessage', 'message', 'condition'
     [14:16:47.017] - R expression:
     [14:16:47.798] - Condition #18: 'simpleMessage', 'message', 'condition'
     [14:16:47.018] {
     [14:16:47.018] doFuture::registerDoFuture()
     [14:16:47.018] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:47.018] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:47.018] b <- NULL
     [14:16:47.018] ...future.env <- environment()
     [14:16:47.018] local({
     [14:16:47.018] for (name in names(...future.x_jj)) {
     [14:16:47.018] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:47.018] inherits = FALSE)
     [14:16:47.018] }
     [14:16:47.018] })
     [14:16:47.018] tryCatch({
     [14:16:47.018] plan_list <- future::plan("next")
     [14:16:47.018] message(capture.output(print(plan_list)))
     [14:16:47.018] stopifnot(inherits(plan_list, "future"))
     [14:16:47.018] default <- getOption("future.plan", "sequential")
     [14:16:47.018] if (is.function(default))
     [14:16:47.018] default <- class(default)
     [14:16:47.018] stopifnot(inherits(plan_list, default))
     [14:16:47.018] plan_b <- future::plan("list")
     [14:16:47.018] str(plan_b)
     [14:16:47.018] stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]],
     [14:16:47.018] default))
     [14:16:47.018] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:16:47.018] }, error = identity)
     [14:16:47.018] })
     [14:16:47.018] }
     [14:16:47.798] - Condition #19: 'simpleMessage', 'message', 'condition'
     [14:16:47.020] - globals: [3] '...future.x_ii', 'a', 'plan_a'
     [14:16:47.799] - Condition #20: 'simpleMessage', 'message', 'condition'
     [14:16:47.020] List of 3
     [14:16:47.020] $ ...future.x_ii: NULL
     [14:16:47.020] $ a : int 1
     [14:16:47.020] $ plan_a :List of 1
     [14:16:47.020] ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     [14:16:47.020] seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"),
     [14:16:47.020] earlySignal = FALSE, label = NULL, ...)
     [14:16:47.020] .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
     [14:16:47.020] .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
     [14:16:47.020] ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     [14:16:47.020] - attr(*, "where")=List of 3
     [14:16:47.020] ..$ ...future.x_ii:<environment: 0x3837158>
     [14:16:47.020] ..$ a :<environment: 0x3509dc0>
     [14:16:47.020] ..$ plan_a :<environment: 0x3509dc0>
     [14:16:47.020] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
     [14:16:47.020] - attr(*, "resolved")= logi FALSE
     [14:16:47.020] - attr(*, "total_size")= num 76816
     [14:16:47.800] - Condition #21: 'simpleMessage', 'message', 'condition'
     [14:16:47.091] - packages: [2] 'doFuture', 'utils'
     [14:16:47.800] - Condition #22: 'simpleMessage', 'message', 'condition'
     [14:16:47.092] - identifying globals and packages ... DONE
     [14:16:47.801] - Condition #23: 'simpleMessage', 'message', 'condition'
     [14:16:47.097] Number of chunks: 2
     [14:16:47.802] - Condition #24: 'simpleMessage', 'message', 'condition'
     [14:16:47.098] Number of futures (= number of chunks): 2
     [14:16:47.802] - Condition #25: 'simpleMessage', 'message', 'condition'
     [14:16:47.100] Launching 2 futures (chunks) ...
     [14:16:47.803] - Condition #26: 'simpleMessage', 'message', 'condition'
     [14:16:47.101] Chunk #1 of 2 ...
     [14:16:47.803] - Condition #27: 'simpleMessage', 'message', 'condition'
     [14:16:47.101] - Finding globals in 'args_list' chunk #1 ...
     [14:16:47.804] - Condition #28: 'simpleMessage', 'message', 'condition'
     [14:16:47.102] getGlobalsAndPackages() ...
     [14:16:47.805] - Condition #29: 'simpleMessage', 'message', 'condition'
     [14:16:47.103] Searching for globals...
     [14:16:47.805] - Condition #30: 'simpleMessage', 'message', 'condition'
     [14:16:47.105]
     [14:16:47.806] - Condition #31: 'simpleMessage', 'message', 'condition'
     [14:16:47.105] Searching for globals ... DONE
     [14:16:47.807] - Condition #32: 'simpleMessage', 'message', 'condition'
     [14:16:47.106] - globals: [0] <none>
     [14:16:47.807] - Condition #33: 'simpleMessage', 'message', 'condition'
     [14:16:47.107] getGlobalsAndPackages() ... DONE
     [14:16:47.808] - Condition #34: 'simpleMessage', 'message', 'condition'
     [14:16:47.108]
     [14:16:47.809] - Condition #35: 'simpleMessage', 'message', 'condition'
     [14:16:47.108]
     [14:16:47.809] - Condition #36: 'simpleMessage', 'message', 'condition'
     [14:16:47.109] - Finding globals in 'args_list' for chunk #1 ... DONE
     [14:16:47.810] - Condition #37: 'simpleMessage', 'message', 'condition'
     [14:16:47.111] getGlobalsAndPackages() ...
     [14:16:47.811] - Condition #38: 'simpleMessage', 'message', 'condition'
     [14:16:47.112] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
     [14:16:47.811] - Condition #39: 'simpleMessage', 'message', 'condition'
     [14:16:47.113] Resolving globals: FALSE
     [14:16:47.812] - Condition #40: 'simpleMessage', 'message', 'condition'
     [14:16:47.116] The total size of the 3 globals is 75.07 KiB (76872 bytes)
     [14:16:47.812] - Condition #41: 'simpleMessage', 'message', 'condition'
     [14:16:47.117] - globals: [3] '...future.x_ii', 'a', 'plan_a'
     [14:16:47.813] - Condition #42: 'simpleMessage', 'message', 'condition'
     [14:16:47.118]
     [14:16:47.814] - Condition #43: 'simpleMessage', 'message', 'condition'
     [14:16:47.118] getGlobalsAndPackages() ... DONE
     [14:16:47.814] - Condition #44: 'simpleMessage', 'message', 'condition'
     [14:16:47.124] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
     [14:16:47.815] - Condition #45: 'simpleMessage', 'message', 'condition'
     [14:16:47.125] Packages needed by future strategies (n = 0): <none>
     [14:16:47.816] - Condition #46: 'simpleMessage', 'message', 'condition'
     [14:16:47.135] {
     [14:16:47.135] {
     [14:16:47.135] ...future.startTime <- base::Sys.time()
     [14:16:47.135] ...future.oldOptions <- base::options(future.startup.script = FALSE,
     [14:16:47.135] future.globals.onMissing = NULL, future.globals.maxSize = NULL,
     [14:16:47.135] future.globals.method = NULL, future.globals.onMissing = NULL,
     [14:16:47.135] future.globals.onReference = NULL, future.globals.resolve = NULL,
     [14:16:47.135] future.resolve.recursive = NULL, width = 80L)
     [14:16:47.135] {
     [14:16:47.135] {
     [14:16:47.135] {
     [14:16:47.135] {
     [14:16:47.135] base::local({
     [14:16:47.135] has_future <- base::requireNamespace("future",
     [14:16:47.135] quietly = TRUE)
     [14:16:47.135] version <- if (has_future)
     [14:16:47.135] utils::packageVersion("future")
     [14:16:47.135] else NULL
     [14:16:47.135] if (!has_future || version < "1.8.0") {
     [14:16:47.135] info <- base::c(r_version = base::gsub("R version ",
     [14:16:47.135] "", base::R.version$version.string),
     [14:16:47.135] platform = base::sprintf("%s (%s-bit)",
     [14:16:47.135] base::R.version$platform, 8 * base::.Machine$sizeof.pointer),
     [14:16:47.135] os = base::paste(base::Sys.info()[base::c("sysname",
     [14:16:47.135] "release", "version")], collapse = " "),
     [14:16:47.135] hostname = base::Sys.info()[["nodename"]])
     [14:16:47.135] info <- base::sprintf("%s: %s", base::names(info),
     [14:16:47.135] info)
     [14:16:47.135] info <- base::paste(info, collapse = "; ")
     [14:16:47.135] if (!has_future) {
     [14:16:47.135] msg <- base::sprintf("Package 'future' is not installed on worker (%s)",
     [14:16:47.135] info)
     [14:16:47.135] }
     [14:16:47.135] else {
     [14:16:47.135] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s",
     [14:16:47.135] info, version)
     [14:16:47.135] }
     [14:16:47.135] base::stop(msg)
     [14:16:47.135] }
     [14:16:47.135] })
     [14:16:47.135] }
     [14:16:47.135] ...future.mc.cores.old <- base::getOption("mc.cores")
     [14:16:47.135] base::options(mc.cores = 1L)
     [14:16:47.135] }
     [14:16:47.135] base::local({
     [14:16:47.135] for (pkg in c("doFuture", "utils")) {
     [14:16:47.135] base::loadNamespace(pkg)
     [14:16:47.135] base::library(pkg, character.only = TRUE)
     [14:16:47.135] }
     [14:16:47.135] })
     [14:16:47.135] }
     [14:16:47.135] future::plan("default", .cleanup = FALSE, .init = FALSE)
     [14:16:47.135] }
     [14:16:47.135] }
     [14:16:47.135] if (base::is.na(TRUE)) {
     [14:16:47.135] }
     [14:16:47.135] else {
     [14:16:47.135] if (TRUE) {
     [14:16:47.135] ...future.stdout <- base::rawConnection(base::raw(0L),
     [14:16:47.135] open = "w")
     [14:16:47.135] }
     [14:16:47.135] else {
     [14:16:47.135] ...future.stdout <- base::file(base::switch(.Platform$OS.type,
     [14:16:47.135] windows = "NUL", "/dev/null"), open = "w")
     [14:16:47.135] }
     [14:16:47.135] base::sink(...future.stdout, type = "output", split = FALSE)
     [14:16:47.135] base::on.exit(if (!base::is.null(...future.stdout)) {
     [14:16:47.135] base::sink(type = "output", split = FALSE)
     [14:16:47.135] base::close(...future.stdout)
     [14:16:47.135] }, add = TRUE)
     [14:16:47.135] }
     [14:16:47.135] ...future.frame <- base::sys.nframe()
     [14:16:47.135] ...future.conditions <- base::list()
     [14:16:47.135] ...future.rng <- base::globalenv()$.Random.seed
     [14:16:47.135] ...future.result <- base::tryCatch({
     [14:16:47.135] base::withCallingHandlers({
     [14:16:47.135] ...future.value <- base::withVisible(base::local({
     [14:16:47.135] doFuture::registerDoFuture()
     [14:16:47.135] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:47.135] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:47.135] b <- NULL
     [14:16:47.135] ...future.env <- environment()
     [14:16:47.135] local({
     [14:16:47.135] for (name in names(...future.x_jj)) {
     [14:16:47.135] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:47.135] inherits = FALSE)
     [14:16:47.135] }
     [14:16:47.135] })
     [14:16:47.135] tryCatch({
     [14:16:47.135] plan_list <- future::plan("next")
     [14:16:47.135] message(capture.output(print(plan_list)))
     [14:16:47.135] stopifnot(inherits(plan_list, "future"))
     [14:16:47.135] default <- getOption("future.plan", "sequential")
     [14:16:47.135] if (is.function(default))
     [14:16:47.135] default <- class(default)
     [14:16:47.135] stopifnot(inherits(plan_list, default))
     [14:16:47.135] plan_b <- future::plan("list")
     [14:16:47.135] str(plan_b)
     [14:16:47.135] stopifnot(inherits(plan_b[[1]], "future"),
     [14:16:47.135] inherits(plan_b[[1]], default))
     [14:16:47.135] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:16:47.135] }, error = identity)
     [14:16:47.135] })
     [14:16:47.135] }))
     [14:16:47.135] future::FutureResult(value = ...future.value$value,
     [14:16:47.135] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed,
     [14:16:47.135] ...future.rng), started = ...future.startTime,
     [14:16:47.135] version = "1.8")
     [14:16:47.135] }, condition = base::local({
     [14:16:47.135] c <- base::c
     [14:16:47.135] inherits <- base::inherits
     [14:16:47.135] invokeRestart <- base::invokeRestart
     [14:16:47.135] length <- base::length
     [14:16:47.135] list <- base::list
     [14:16:47.135] seq.int <- base::seq.int
     [14:16:47.135] signalCondition <- base::signalCondition
     [14:16:47.135] sys.calls <- base::sys.calls
     [14:16:47.135] Sys.time <- base::Sys.time
     [14:16:47.135] `[[` <- base::`[[`
     [14:16:47.135] `+` <- base::`+`
     [14:16:47.135] `<<-` <- base::`<<-`
     [14:16:47.135] sysCalls <- function(calls = sys.calls(), from = 1L) {
     [14:16:47.135] calls[seq.int(from = from + 12L, to = length(calls) -
     [14:16:47.135] 3L)]
     [14:16:47.135] }
     [14:16:47.135] function(cond) {
     [14:16:47.135] if (inherits(cond, "error")) {
     [14:16:47.135] sessionInformation <- function() {
     [14:16:47.135] list(r = base::R.Version(), locale = base::Sys.getlocale(),
     [14:16:47.135] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(),
     [14:16:47.135] search = base::search(), system = base::Sys.info())
     [14:16:47.135] }
     [14:16:47.135] ...future.conditions[[length(...future.conditions) +
     [14:16:47.135] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame),
     [14:16:47.135] cond$call), session = sessionInformation(),
     [14:16:47.135] timestamp = Sys.time(), signaled = 0L)
     [14:16:47.135] signalCondition(cond)
     [14:16:47.135] }
     [14:16:47.135] else if (inherits(cond, "condition")) {
     [14:16:47.135] signal <- FALSE && inherits(cond, character(0))
     [14:16:47.135] ...future.conditions[[length(...future.conditions) +
     [14:16:47.135] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
     [14:16:47.135] if (!signal) {
     [14:16:47.135] muffleCondition <- function (cond)
     [14:16:47.135] {
     [14:16:47.135] inherits <- base::inherits
     [14:16:47.135] invokeRestart <- base::invokeRestart
     [14:16:47.135] muffled <- FALSE
     [14:16:47.135] if (inherits(cond, "message")) {
     [14:16:47.135] invokeRestart("muffleMessage")
     [14:16:47.135] muffled <- TRUE
     [14:16:47.135] }
     [14:16:47.135] else if (inherits(cond, "warning")) {
     [14:16:47.135] invokeRestart("muffleWarning")
     [14:16:47.135] muffled <- TRUE
     [14:16:47.135] }
     [14:16:47.135] else if (inherits(cond, "condition")) {
     [14:16:47.135] computeRestarts <- base::computeRestarts
     [14:16:47.135] grepl <- base::grepl
     [14:16:47.135] is.null <- base::is.null
     [14:16:47.135] restarts <- computeRestarts(cond)
     [14:16:47.135] for (restart in restarts) {
     [14:16:47.135] name <- restart$name
     [14:16:47.135] if (is.null(name))
     [14:16:47.135] next
     [14:16:47.135] if (!grepl("^muffle", name))
     [14:16:47.135] next
     [14:16:47.135] invokeRestart(restart)
     [14:16:47.135] muffled <- TRUE
     [14:16:47.135] break
     [14:16:47.135] }
     [14:16:47.135] }
     [14:16:47.135] invisible(muffled)
     [14:16:47.135] }
     [14:16:47.135] muffleCondition(cond)
     [14:16:47.135] }
     [14:16:47.135] }
     [14:16:47.135] }
     [14:16:47.135] }))
     [14:16:47.135] }, error = function(ex) {
     [14:16:47.135] base::structure(base::list(value = NULL, visible = NULL,
     [14:16:47.135] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed,
     [14:16:47.135] ...future.rng), version = "1.8"), class = "FutureResult")
     [14:16:47.135] }, finally = {
     [14:16:47.135] {
     [14:16:47.135] {
     [14:16:47.135] base::options(mc.cores = ...future.mc.cores.old)
     [14:16:47.135] }
     [14:16:47.135] future::plan(list(b = function (expr, envir = parent.frame(),
     [14:16:47.135] substitute = TRUE, lazy = FALSE, seed = NULL,
     [14:16:47.135] globals = TRUE, workers = availableCores(constraints = "multicore"),
     [14:16:47.135] earlySignal = FALSE, label = NULL, ...)
     [14:16:47.135] {
     [14:16:47.135] if (substitute)
     [14:16:47.135] expr <- substitute(expr)
     [14:16:47.135] if (is.function(workers))
     [14:16:47.135] workers <- workers()
     [14:16:47.135] workers <- as.integer(workers)
     [14:16:47.135] stop_if_not(is.finite(workers), workers >= 1L)
     [14:16:47.135] if (workers == 1L || !supportsMulticore(warn = TRUE)) {
     [14:16:47.135] return(sequential(expr, envir = envir, substitute = FALSE,
     [14:16:47.135] lazy = lazy, seed = seed, globals = globals,
     [14:16:47.135] local = TRUE, label = label, ...))
     [14:16:47.135] }
     [14:16:47.135] oopts <- options(mc.cores = workers)
     [14:16:47.135] on.exit(options(oopts))
     [14:16:47.135] future <- MulticoreFuture(expr = expr, envir = envir,
     [14:16:47.135] substitute = FALSE, lazy = lazy, seed = seed,
     [14:16:47.135] globals = globals, workers = workers, earlySignal = earlySignal,
     [14:16:47.135] label = label, ...)
     [14:16:47.135] if (!future$lazy)
     [14:16:47.135] future <- run(future)
     [14:16:47.135] invisible(future)
     [14:16:47.135] }), .cleanup = FALSE, .init = FALSE)
     [14:16:47.135] }
     [14:16:47.135] base::options(...future.oldOptions)
     [14:16:47.135] })
     [14:16:47.135] Sys.time
     [14:16:47.135] if (base::is.na(TRUE)) {
     [14:16:47.135] }
     [14:16:47.135] else {
     [14:16:47.135] base::sink(type = "output", split = FALSE)
     [14:16:47.135] if (TRUE) {
     [14:16:47.135] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
     [14:16:47.135] }
     [14:16:47.135] else {
     [14:16:47.135] ...future.result["stdout"] <- base::list(NULL)
     [14:16:47.135] }
     [14:16:47.135] base::close(...future.stdout)
     [14:16:47.135] ...future.stdout <- NULL
     [14:16:47.135] }
     [14:16:47.135] ...future.result$conditions <- ...future.conditions
     [14:16:47.135] ...future.result
     [14:16:47.135] }
     [14:16:47.816] - Condition #47: 'simpleMessage', 'message', 'condition'
     [14:16:47.145] requestCore(): workers = 2
     [14:16:47.817] - Condition #48: 'simpleMessage', 'message', 'condition'
     [14:16:47.153] MulticoreFuture started
     [14:16:47.818] - Condition #49: 'simpleMessage', 'message', 'condition'
     [14:16:47.156] Chunk #1 of 2 ... DONE
     [14:16:47.818] - Condition #50: 'simpleMessage', 'message', 'condition'
     [14:16:47.157] Chunk #2 of 2 ...
     [14:16:47.819] - Condition #51: 'simpleMessage', 'message', 'condition'
     [14:16:47.158] - Finding globals in 'args_list' chunk #2 ...
     [14:16:47.819] - Condition #52: 'simpleMessage', 'message', 'condition'
     [14:16:47.159] getGlobalsAndPackages() ...
     [14:16:47.820] - Condition #53: 'simpleMessage', 'message', 'condition'
     [14:16:47.160] Searching for globals...
     [14:16:47.821] - Condition #54: 'simpleMessage', 'message', 'condition'
     [14:16:47.163]
     [14:16:47.821] - Condition #55: 'simpleMessage', 'message', 'condition'
     [14:16:47.165] Searching for globals ... DONE
     [14:16:47.822] - Condition #56: 'simpleMessage', 'message', 'condition'
     [14:16:47.166] - globals: [0] <none>
     [14:16:47.822] - Condition #57: 'simpleMessage', 'message', 'condition'
     [14:16:47.167] getGlobalsAndPackages() ... DONE
     [14:16:47.823] - Condition #58: 'simpleMessage', 'message', 'condition'
     [14:16:47.168]
     [14:16:47.824] - Condition #59: 'simpleMessage', 'message', 'condition'
     [14:16:47.168]
     [14:16:47.824] - Condition #60: 'simpleMessage', 'message', 'condition'
     [14:16:47.169] - Finding globals in 'args_list' for chunk #2 ... DONE
     [14:16:47.825] - Condition #61: 'simpleMessage', 'message', 'condition'
     [14:16:47.172] getGlobalsAndPackages() ...
     [14:16:47.825] - Condition #62: 'simpleMessage', 'message', 'condition'
     [14:16:47.173] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
     [14:16:47.826] - Condition #63: 'simpleMessage', 'message', 'condition'
     [14:16:47.174] Resolving globals: FALSE
     [14:16:47.827] - Condition #64: 'simpleMessage', 'message', 'condition'
     [14:16:47.178] The total size of the 3 globals is 75.12 KiB (76928 bytes)
     [14:16:47.827] - Condition #65: 'simpleMessage', 'message', 'condition'
     [14:16:47.179] - globals: [3] '...future.x_ii', 'a', 'plan_a'
     [14:16:47.828] - Condition #66: 'simpleMessage', 'message', 'condition'
     [14:16:47.180]
     [14:16:47.828] - Condition #67: 'simpleMessage', 'message', 'condition'
     [14:16:47.181] getGlobalsAndPackages() ... DONE
     [14:16:47.829] - Condition #68: 'simpleMessage', 'message', 'condition'
     [14:16:47.186] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
     [14:16:47.830] - Condition #69: 'simpleMessage', 'message', 'condition'
     [14:16:47.187] Packages needed by future strategies (n = 0): <none>
     [14:16:47.830] - Condition #70: 'simpleMessage', 'message', 'condition'
     [14:16:47.201] {
     [14:16:47.201] {
     [14:16:47.201] ...future.startTime <- base::Sys.time()
     [14:16:47.201] ...future.oldOptions <- base::options(future.startup.script = FALSE,
     [14:16:47.201] future.globals.onMissing = NULL, future.globals.maxSize = NULL,
     [14:16:47.201] future.globals.method = NULL, future.globals.onMissing = NULL,
     [14:16:47.201] future.globals.onReference = NULL, future.globals.resolve = NULL,
     [14:16:47.201] future.resolve.recursive = NULL, width = 80L)
     [14:16:47.201] {
     [14:16:47.201] {
     [14:16:47.201] {
     [14:16:47.201] {
     [14:16:47.201] base::local({
     [14:16:47.201] has_future <- base::requireNamespace("future",
     [14:16:47.201] quietly = TRUE)
     [14:16:47.201] version <- if (has_future)
     [14:16:47.201] utils::packageVersion("future")
     [14:16:47.201] else NULL
     [14:16:47.201] if (!has_future || version < "1.8.0") {
     [14:16:47.201] info <- base::c(r_version = base::gsub("R version ",
     [14:16:47.201] "", base::R.version$version.string),
     [14:16:47.201] platform = base::sprintf("%s (%s-bit)",
     [14:16:47.201] base::R.version$platform, 8 * base::.Machine$sizeof.pointer),
     [14:16:47.201] os = base::paste(base::Sys.info()[base::c("sysname",
     [14:16:47.201] "release", "version")], collapse = " "),
     [14:16:47.201] hostname = base::Sys.info()[["nodename"]])
     [14:16:47.201] info <- base::sprintf("%s: %s", base::names(info),
     [14:16:47.201] info)
     [14:16:47.201] info <- base::paste(info, collapse = "; ")
     [14:16:47.201] if (!has_future) {
     [14:16:47.201] msg <- base::sprintf("Package 'future' is not installed on worker (%s)",
     [14:16:47.201] info)
     [14:16:47.201] }
     [14:16:47.201] else {
     [14:16:47.201] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s",
     [14:16:47.201] info, version)
     [14:16:47.201] }
     [14:16:47.201] base::stop(msg)
     [14:16:47.201] }
     [14:16:47.201] })
     [14:16:47.201] }
     [14:16:47.201] ...future.mc.cores.old <- base::getOption("mc.cores")
     [14:16:47.201] base::options(mc.cores = 1L)
     [14:16:47.201] }
     [14:16:47.201] base::local({
     [14:16:47.201] for (pkg in c("doFuture", "utils")) {
     [14:16:47.201] base::loadNamespace(pkg)
     [14:16:47.201] base::library(pkg, character.only = TRUE)
     [14:16:47.201] }
     [14:16:47.201] })
     [14:16:47.201] }
     [14:16:47.201] future::plan("default", .cleanup = FALSE, .init = FALSE)
     [14:16:47.201] }
     [14:16:47.201] }
     [14:16:47.201] if (base::is.na(TRUE)) {
     [14:16:47.201] }
     [14:16:47.201] else {
     [14:16:47.201] if (TRUE) {
     [14:16:47.201] ...future.stdout <- base::rawConnection(base::raw(0L),
     [14:16:47.201] open = "w")
     [14:16:47.201] }
     [14:16:47.201] else {
     [14:16:47.201] ...future.stdout <- base::file(base::switch(.Platform$OS.type,
     [14:16:47.201] windows = "NUL", "/dev/null"), open = "w")
     [14:16:47.201] }
     [14:16:47.201] base::sink(...future.stdout, type = "output", split = FALSE)
     [14:16:47.201] base::on.exit(if (!base::is.null(...future.stdout)) {
     [14:16:47.201] base::sink(type = "output", split = FALSE)
     [14:16:47.201] base::close(...future.stdout)
     [14:16:47.201] }, add = TRUE)
     [14:16:47.201] }
     [14:16:47.201] ...future.frame <- base::sys.nframe()
     [14:16:47.201] ...future.conditions <- base::list()
     [14:16:47.201] ...future.rng <- base::globalenv()$.Random.seed
     [14:16:47.201] ...future.result <- base::tryCatch({
     [14:16:47.201] base::withCallingHandlers({
     [14:16:47.201] ...future.value <- base::withVisible(base::local({
     [14:16:47.201] doFuture::registerDoFuture()
     [14:16:47.201] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:47.201] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:47.201] b <- NULL
     [14:16:47.201] ...future.env <- environment()
     [14:16:47.201] local({
     [14:16:47.201] for (name in names(...future.x_jj)) {
     [14:16:47.201] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:47.201] inherits = FALSE)
     [14:16:47.201] }
     [14:16:47.201] })
     [14:16:47.201] tryCatch({
     [14:16:47.201] plan_list <- future::plan("next")
     [14:16:47.201] message(capture.output(print(plan_list)))
     [14:16:47.201] stopifnot(inherits(plan_list, "future"))
     [14:16:47.201] default <- getOption("future.plan", "sequential")
     [14:16:47.201] if (is.function(default))
     [14:16:47.201] default <- class(default)
     [14:16:47.201] stopifnot(inherits(plan_list, default))
     [14:16:47.201] plan_b <- future::plan("list")
     [14:16:47.201] str(plan_b)
     [14:16:47.201] stopifnot(inherits(plan_b[[1]], "future"),
     [14:16:47.201] inherits(plan_b[[1]], default))
     [14:16:47.201] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:16:47.201] }, error = identity)
     [14:16:47.201] })
     [14:16:47.201] }))
     [14:16:47.201] future::FutureResult(value = ...future.value$value,
     [14:16:47.201] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed,
     [14:16:47.201] ...future.rng), started = ...future.startTime,
     [14:16:47.201] version = "1.8")
     [14:16:47.201] }, condition = base::local({
     [14:16:47.201] c <- base::c
     [14:16:47.201] inherits <- base::inherits
     [14:16:47.201] invokeRestart <- base::invokeRestart
     [14:16:47.201] length <- base::length
     [14:16:47.201] list <- base::list
     [14:16:47.201] seq.int <- base::seq.int
     [14:16:47.201] signalCondition <- base::signalCondition
     [14:16:47.201] sys.calls <- base::sys.calls
     [14:16:47.201] Sys.time <- base::Sys.time
     [14:16:47.201] `[[` <- base::`[[`
     [14:16:47.201] `+` <- base::`+`
     [14:16:47.201] `<<-` <- base::`<<-`
     [14:16:47.201] sysCalls <- function(calls = sys.calls(), from = 1L) {
     [14:16:47.201] calls[seq.int(from = from + 12L, to = length(calls) -
     [14:16:47.201] 3L)]
     [14:16:47.201] }
     [14:16:47.201] function(cond) {
     [14:16:47.201] if (inherits(cond, "error")) {
     [14:16:47.201] sessionInformation <- function() {
     [14:16:47.201] list(r = base::R.Version(), locale = base::Sys.getlocale(),
     [14:16:47.201] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(),
     [14:16:47.201] search = base::search(), system = base::Sys.info())
     [14:16:47.201] }
     [14:16:47.201] ...future.conditions[[length(...future.conditions) +
     [14:16:47.201] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame),
     [14:16:47.201] cond$call), session = sessionInformation(),
     [14:16:47.201] timestamp = Sys.time(), signaled = 0L)
     [14:16:47.201] signalCondition(cond)
     [14:16:47.201] }
     [14:16:47.201] else if (inherits(cond, "condition")) {
     [14:16:47.201] signal <- FALSE && inherits(cond, character(0))
     [14:16:47.201] ...future.conditions[[length(...future.conditions) +
     [14:16:47.201] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
     [14:16:47.201] if (!signal) {
     [14:16:47.201] muffleCondition <- function (cond)
     [14:16:47.201] {
     [14:16:47.201] inherits <- base::inherits
     [14:16:47.201] invokeRestart <- base::invokeRestart
     [14:16:47.201] muffled <- FALSE
     [14:16:47.201] if (inherits(cond, "message")) {
     [14:16:47.201] invokeRestart("muffleMessage")
     [14:16:47.201] muffled <- TRUE
     [14:16:47.201] }
     [14:16:47.201] else if (inherits(cond, "warning")) {
     [14:16:47.201] invokeRestart("muffleWarning")
     [14:16:47.201] muffled <- TRUE
     [14:16:47.201] }
     [14:16:47.201] else if (inherits(cond, "condition")) {
     [14:16:47.201] computeRestarts <- base::computeRestarts
     [14:16:47.201] grepl <- base::grepl
     [14:16:47.201] is.null <- base::is.null
     [14:16:47.201] restarts <- computeRestarts(cond)
     [14:16:47.201] for (restart in restarts) {
     [14:16:47.201] name <- restart$name
     [14:16:47.201] if (is.null(name))
     [14:16:47.201] next
     [14:16:47.201] if (!grepl("^muffle", name))
     [14:16:47.201] next
     [14:16:47.201] invokeRestart(restart)
     [14:16:47.201] muffled <- TRUE
     [14:16:47.201] break
     [14:16:47.201] }
     [14:16:47.201] }
     [14:16:47.201] invisible(muffled)
     [14:16:47.201] }
     [14:16:47.201] muffleCondition(cond)
     [14:16:47.201] }
     [14:16:47.201] }
     [14:16:47.201] }
     [14:16:47.201] }))
     [14:16:47.201] }, error = function(ex) {
     [14:16:47.201] base::structure(base::list(value = NULL, visible = NULL,
     [14:16:47.201] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed,
     [14:16:47.201] ...future.rng), version = "1.8"), class = "FutureResult")
     [14:16:47.201] }, finally = {
     [14:16:47.201] {
     [14:16:47.201] {
     [14:16:47.201] base::options(mc.cores = ...future.mc.cores.old)
     [14:16:47.201] }
     [14:16:47.201] future::plan(list(b = function (expr, envir = parent.frame(),
     [14:16:47.201] substitute = TRUE, lazy = FALSE, seed = NULL,
     [14:16:47.201] globals = TRUE, workers = availableCores(constraints = "multicore"),
     [14:16:47.201] earlySignal = FALSE, label = NULL, ...)
     [14:16:47.201] {
     [14:16:47.201] if (substitute)
     [14:16:47.201] expr <- substitute(expr)
     [14:16:47.201] if (is.function(workers))
     [14:16:47.201] workers <- workers()
     [14:16:47.201] workers <- as.integer(workers)
     [14:16:47.201] stop_if_not(is.finite(workers), workers >= 1L)
     [14:16:47.201] if (workers == 1L || !supportsMulticore(warn = TRUE)) {
     [14:16:47.201] return(sequential(expr, envir = envir, substitute = FALSE,
     [14:16:47.201] lazy = lazy, seed = seed, globals = globals,
     [14:16:47.201] local = TRUE, label = label, ...))
     [14:16:47.201] }
     [14:16:47.201] oopts <- options(mc.cores = workers)
     [14:16:47.201] on.exit(options(oopts))
     [14:16:47.201] future <- MulticoreFuture(expr = expr, envir = envir,
     [14:16:47.201] substitute = FALSE, lazy = lazy, seed = seed,
     [14:16:47.201] globals = globals, workers = workers, earlySignal = earlySignal,
     [14:16:47.201] label = label, ...)
     [14:16:47.201] if (!future$lazy)
     [14:16:47.201] future <- run(future)
     [14:16:47.201] invisible(future)
     [14:16:47.201] }), .cleanup = FALSE, .init = FALSE)
     [14:16:47.201] }
     [14:16:47.201] base::options(...future.oldOptions)
     [14:16:47.201] })
     [14:16:47.201] Sys.time
     [14:16:47.201] if (base::is.na(TRUE)) {
     [14:16:47.201] }
     [14:16:47.201] else {
     [14:16:47.201] base::sink(type = "output", split = FALSE)
     [14:16:47.201] if (TRUE) {
     [14:16:47.201] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
     [14:16:47.201] }
     [14:16:47.201] else {
     [14:16:47.201] ...future.result["stdout"] <- base::list(NULL)
     [14:16:47.201] }
     [14:16:47.201] base::close(...future.stdout)
     [14:16:47.201] ...future.stdout <- NULL
     [14:16:47.201] }
     [14:16:47.201] ...future.result$conditions <- ...future.conditions
     [14:16:47.201] ...future.result
     [14:16:47.201] }
     [14:16:47.831] - Condition #71: 'simpleMessage', 'message', 'condition'
     [14:16:47.213] requestCore(): workers = 2
     [14:16:47.831] - Condition #72: 'simpleMessage', 'message', 'condition'
     [14:16:47.231] MulticoreFuture started
     [14:16:47.832] - Condition #73: 'simpleMessage', 'message', 'condition'
     [14:16:47.233] Chunk #2 of 2 ... DONE
     [14:16:47.832] - Condition #74: 'simpleMessage', 'message', 'condition'
     [14:16:47.235] Launching 2 futures (chunks) ... DONE
     [14:16:47.833] - Condition #75: 'simpleMessage', 'message', 'condition'
     [14:16:47.236] - resolving futures
     [14:16:47.833] - Condition #76: 'simpleMessage', 'message', 'condition'
     [14:16:47.237] - gathering results & relaying conditions (except errors)
     [14:16:47.834] - Condition #77: 'simpleMessage', 'message', 'condition'
     [14:16:47.238] resolve() on list ...
     [14:16:47.835] - Condition #78: 'simpleMessage', 'message', 'condition'
     [14:16:47.239] recursive: 0
     [14:16:47.835] - Condition #79: 'simpleMessage', 'message', 'condition'
     [14:16:47.240] length: 2
     [14:16:47.836] - Condition #80: 'simpleMessage', 'message', 'condition'
     [14:16:47.241]
     [14:16:47.836] - Condition #81: 'simpleMessage', 'message', 'condition'
     [14:16:47.246] Future #1
     [14:16:47.837] - Condition #82: 'simpleMessage', 'message', 'condition'
     [14:16:47.269] signalConditions() ...
     [14:16:47.838] - Condition #83: 'simpleMessage', 'message', 'condition'
     [14:16:47.271] - include = 'immediateCondition'
     [14:16:47.838] - Condition #84: 'simpleMessage', 'message', 'condition'
     [14:16:47.272] - exclude =
     [14:16:47.839] - Condition #85: 'simpleMessage', 'message', 'condition'
     [14:16:47.273] - resignal = FALSE
     [14:16:47.840] - Condition #86: 'simpleMessage', 'message', 'condition'
     [14:16:47.274] - Number of conditions: 1
     [14:16:47.840] - Condition #87: 'simpleMessage', 'message', 'condition'
     [14:16:47.275] signalConditions() ... done
     [14:16:47.841] - Condition #88: 'simpleMessage', 'message', 'condition'
     [14:16:47.276] signalConditions() ...
     [14:16:47.841] - Condition #89: 'simpleMessage', 'message', 'condition'
     [14:16:47.277] - include = 'immediateCondition'
     [14:16:47.842] - Condition #90: 'simpleMessage', 'message', 'condition'
     [14:16:47.279] - exclude =
     [14:16:47.843] - Condition #91: 'simpleMessage', 'message', 'condition'
     [14:16:47.280] - resignal = FALSE
     [14:16:47.843] - Condition #92: 'simpleMessage', 'message', 'condition'
     [14:16:47.281] - Number of conditions: 1
     [14:16:47.844] - Condition #93: 'simpleMessage', 'message', 'condition'
     [14:16:47.282] signalConditions() ... done
     [14:16:47.845] - Condition #94: 'simpleMessage', 'message', 'condition'
     [14:16:47.283] signalConditionsASAP(MulticoreFuture, pos=1) ...
     [14:16:47.845] - Condition #95: 'simpleMessage', 'message', 'condition'
     [14:16:47.283] - nx: 2
     [14:16:47.846] - Condition #96: 'simpleMessage', 'message', 'condition'
     [14:16:47.284] - relay: TRUE
     [14:16:47.846] - Condition #97: 'simpleMessage', 'message', 'condition'
     [14:16:47.285] - stdout: TRUE
     [14:16:47.847] - Condition #98: 'simpleMessage', 'message', 'condition'
     [14:16:47.286] - signal: TRUE
     [14:16:47.848] - Condition #99: 'simpleMessage', 'message', 'condition'
     [14:16:47.287] - resignal: FALSE
     [14:16:47.848] - Condition #100: 'simpleMessage', 'message', 'condition'
     [14:16:47.287] - force: FALSE
     [14:16:47.849] - Condition #101: 'simpleMessage', 'message', 'condition'
     [14:16:47.288] - relayed: [n=2] FALSE, FALSE
     [14:16:47.850] - Condition #102: 'simpleMessage', 'message', 'condition'
     [14:16:47.289] - queued futures: [n=2] FALSE, FALSE
     [14:16:47.850] - Condition #103: 'simpleMessage', 'message', 'condition'
     [14:16:47.290] - until=1
     [14:16:47.851] - Condition #104: 'simpleMessage', 'message', 'condition'
     [14:16:47.290] - relaying element #1
     [14:16:47.851] - Condition #105: 'simpleMessage', 'message', 'condition'
     [14:16:47.291] signalConditions() ...
     [14:16:47.852] - Condition #106: 'simpleMessage', 'message', 'condition'
     [14:16:47.292] - include = 'immediateCondition'
     [14:16:47.853] - Condition #107: 'simpleMessage', 'message', 'condition'
     [14:16:47.293] - exclude =
     [14:16:47.853] - Condition #108: 'simpleMessage', 'message', 'condition'
     [14:16:47.294] - resignal = FALSE
     [14:16:47.854] - Condition #109: 'simpleMessage', 'message', 'condition'
     [14:16:47.295] - Number of conditions: 1
     [14:16:47.855] - Condition #110: 'simpleMessage', 'message', 'condition'
     [14:16:47.296] signalConditions() ... done
     [14:16:47.855] - Condition #111: 'simpleMessage', 'message', 'condition'
     [14:16:47.297] signalConditions() ...
     [14:16:47.856] - Condition #112: 'simpleMessage', 'message', 'condition'
     [14:16:47.297] - include = 'immediateCondition'
     [14:16:47.857] - Condition #113: 'simpleMessage', 'message', 'condition'
     [14:16:47.298] - exclude =
     [14:16:47.857] - Condition #114: 'simpleMessage', 'message', 'condition'
     [14:16:47.299] - resignal = FALSE
     [14:16:47.858] - Condition #115: 'simpleMessage', 'message', 'condition'
     [14:16:47.300] - Number of conditions: 1
     [14:16:47.858] - Condition #116: 'simpleMessage', 'message', 'condition'
     [14:16:47.301] signalConditions() ... done
     [14:16:47.859] - Condition #117: 'simpleMessage', 'message', 'condition'
     [14:16:47.302] signalConditions() ...
     [14:16:47.859] - Condition #118: 'simpleMessage', 'message', 'condition'
     [14:16:47.302] - include = 'condition'
     [14:16:47.860] - Condition #119: 'simpleMessage', 'message', 'condition'
     [14:16:47.303] - exclude = 'immediateCondition'
     [14:16:47.861] - Condition #120: 'simpleMessage', 'message', 'condition'
     [14:16:47.304] - resignal = FALSE
     [14:16:47.861] - Condition #121: 'simpleMessage', 'message', 'condition'
     [14:16:47.305] - Number of conditions: 1
     [14:16:47.862] - Condition #122: 'simpleMessage', 'message', 'condition'
     [14:16:47.305] - Condition #1: 'simpleMessage', 'message', 'condition'
     [14:16:47.863] - Condition #123: 'simpleMessage', 'message', 'condition'
     sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
     [14:16:47.863] - Condition #124: 'simpleMessage', 'message', 'condition'
     [14:16:47.306] signalConditions() ... done
     [14:16:47.864] - Condition #125: 'simpleMessage', 'message', 'condition'
     [14:16:47.307] - relayed: [n=2] TRUE, FALSE
     [14:16:47.865] - Condition #126: 'simpleMessage', 'message', 'condition'
     [14:16:47.308] - queued futures: [n=2] TRUE, FALSE
     [14:16:47.865] - Condition #127: 'simpleMessage', 'message', 'condition'
     [14:16:47.308] signalConditionsASAP(MulticoreFuture, pos=1) ... done
     [14:16:47.866] - Condition #128: 'simpleMessage', 'message', 'condition'
     [14:16:47.309] length: 1 (resolved future 1)
     [14:16:47.867] - Condition #129: 'simpleMessage', 'message', 'condition'
     [14:16:47.311] Future #2
     [14:16:47.867] - Condition #130: 'simpleMessage', 'message', 'condition'
     [14:16:47.314] signalConditions() ...
     [14:16:47.868] - Condition #131: 'simpleMessage', 'message', 'condition'
     [14:16:47.315] - include = 'immediateCondition'
     [14:16:47.869] - Condition #132: 'simpleMessage', 'message', 'condition'
     [14:16:47.315] - exclude =
     [14:16:47.869] - Condition #133: 'simpleMessage', 'message', 'condition'
     [14:16:47.316] - resignal = FALSE
     [14:16:47.870] - Condition #134: 'simpleMessage', 'message', 'condition'
     [14:16:47.316] - Number of conditions: 2
     [14:16:47.870] - Condition #135: 'simpleMessage', 'message', 'condition'
     [14:16:47.317] signalConditions() ... done
     [14:16:47.871] - Condition #136: 'simpleMessage', 'message', 'condition'
     [14:16:47.317] signalConditions() ...
     [14:16:47.872] - Condition #137: 'simpleMessage', 'message', 'condition'
     [14:16:47.318] - include = 'immediateCondition'
     [14:16:47.872] - Condition #138: 'simpleMessage', 'message', 'condition'
     [14:16:47.318] - exclude =
     [14:16:47.873] - Condition #139: 'simpleMessage', 'message', 'condition'
     [14:16:47.319] - resignal = FALSE
     [14:16:47.874] - Condition #140: 'simpleMessage', 'message', 'condition'
     [14:16:47.319] - Number of conditions: 2
     [14:16:47.874] - Condition #141: 'simpleMessage', 'message', 'condition'
     [14:16:47.320] signalConditions() ... done
     [14:16:47.875] - Condition #142: 'simpleMessage', 'message', 'condition'
     [14:16:47.320] signalConditionsASAP(MulticoreFuture, pos=2) ...
     [14:16:47.876] - Condition #143: 'simpleMessage', 'message', 'condition'
     [14:16:47.321] - nx: 2
     [14:16:47.876] - Condition #144: 'simpleMessage', 'message', 'condition'
     [14:16:47.321] - relay: TRUE
     [14:16:47.877] - Condition #145: 'simpleMessage', 'message', 'condition'
     [14:16:47.322] - stdout: TRUE
     [14:16:47.878] - Condition #146: 'simpleMessage', 'message', 'condition'
     [14:16:47.322] - signal: TRUE
     [14:16:47.878] - Condition #147: 'simpleMessage', 'message', 'condition'
     [14:16:47.323] - resignal: FALSE
     [14:16:47.879] - Condition #148: 'simpleMessage', 'message', 'condition'
     [14:16:47.323] - force: FALSE
     [14:16:47.879] - Condition #149: 'simpleMessage', 'message', 'condition'
     [14:16:47.324] - relayed: [n=2] TRUE, FALSE
     [14:16:47.880] - Condition #150: 'simpleMessage', 'message', 'condition'
     [14:16:47.325] - queued futures: [n=2] TRUE, FALSE
     [14:16:47.881] - Condition #151: 'simpleMessage', 'message', 'condition'
     [14:16:47.326] - until=2
     [14:16:47.881] - Condition #152: 'simpleMessage', 'message', 'condition'
     [14:16:47.326] - relaying element #2
     [14:16:47.882] - Condition #153: 'simpleMessage', 'message', 'condition'
     [14:16:47.327] signalConditions() ...
     [14:16:47.882] - Condition #154: 'simpleMessage', 'message', 'condition'
     [14:16:47.328] - include = 'immediateCondition'
     [14:16:47.883] - Condition #155: 'simpleMessage', 'message', 'condition'
     [14:16:47.329] - exclude =
     [14:16:47.883] - Condition #156: 'simpleMessage', 'message', 'condition'
     [14:16:47.330] - resignal = FALSE
     [14:16:47.884] - Condition #157: 'simpleMessage', 'message', 'condition'
     [14:16:47.331] - Number of conditions: 2
     [14:16:47.888] - Condition #158: 'simpleMessage', 'message', 'condition'
     [14:16:47.331] signalConditions() ... done
     [14:16:47.889] - Condition #159: 'simpleMessage', 'message', 'condition'
     [14:16:47.332] signalConditions() ...
     [14:16:47.890] - Condition #160: 'simpleMessage', 'message', 'condition'
     [14:16:47.333] - include = 'immediateCondition'
     [14:16:47.890] - Condition #161: 'simpleMessage', 'message', 'condition'
     [14:16:47.334] - exclude =
     [14:16:47.891] - Condition #162: 'simpleMessage', 'message', 'condition'
     [14:16:47.335] - resignal = FALSE
     [14:16:47.892] - Condition #163: 'simpleMessage', 'message', 'condition'
     [14:16:47.335] - Number of conditions: 2
     [14:16:47.892] - Condition #164: 'simpleMessage', 'message', 'condition'
     [14:16:47.336] signalConditions() ... done
     [14:16:47.893] - Condition #165: 'simpleMessage', 'message', 'condition'
     [14:16:47.337] signalConditions() ...
     [14:16:47.893] - Condition #166: 'simpleMessage', 'message', 'condition'
     [14:16:47.338] - include = 'condition'
     [14:16:47.894] - Condition #167: 'simpleMessage', 'message', 'condition'
     [14:16:47.338] - exclude = 'immediateCondition'
     [14:16:47.895] - Condition #168: 'simpleMessage', 'message', 'condition'
     [14:16:47.339] - resignal = FALSE
     [14:16:47.895] - Condition #169: 'simpleMessage', 'message', 'condition'
     [14:16:47.340] - Number of conditions: 2
     [14:16:47.896] - Condition #170: 'simpleMessage', 'message', 'condition'
     [14:16:47.340] - Condition #1: 'simpleMessage', 'message', 'condition'
     [14:16:47.897] - Condition #171: 'simpleMessage', 'message', 'condition'
     sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
     [14:16:47.897] - Condition #172: 'simpleMessage', 'message', 'condition'
     [14:16:47.341] - Condition #2: 'simpleMessage', 'message', 'condition'
     [14:16:47.898] - Condition #173: 'simpleMessage', 'message', 'condition'
     sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
     [14:16:47.898] - Condition #174: 'simpleMessage', 'message', 'condition'
     [14:16:47.342] signalConditions() ... done
     [14:16:47.899] - Condition #175: 'simpleMessage', 'message', 'condition'
     [14:16:47.343] - relayed: [n=2] TRUE, TRUE
     [14:16:47.900] - Condition #176: 'simpleMessage', 'message', 'condition'
     [14:16:47.344] - queued futures: [n=2] TRUE, TRUE
     [14:16:47.900] - Condition #177: 'simpleMessage', 'message', 'condition'
     [14:16:47.344] signalConditionsASAP(MulticoreFuture, pos=2) ... done
     [14:16:47.901] - Condition #178: 'simpleMessage', 'message', 'condition'
     [14:16:47.345] length: 0 (resolved future 2)
     [14:16:47.901] - Condition #179: 'simpleMessage', 'message', 'condition'
     [14:16:47.346] Relaying remaining futures
     [14:16:47.902] - Condition #180: 'simpleMessage', 'message', 'condition'
     [14:16:47.346] signalConditionsASAP(NULL, pos=0) ...
     [14:16:47.902] - Condition #181: 'simpleMessage', 'message', 'condition'
     [14:16:47.346] - nx: 2
     [14:16:47.903] - Condition #182: 'simpleMessage', 'message', 'condition'
     [14:16:47.347] - relay: TRUE
     [14:16:47.904] - Condition #183: 'simpleMessage', 'message', 'condition'
     [14:16:47.347] - stdout: TRUE
     [14:16:47.904] - Condition #184: 'simpleMessage', 'message', 'condition'
     [14:16:47.348] - signal: TRUE
     [14:16:47.905] - Condition #185: 'simpleMessage', 'message', 'condition'
     [14:16:47.349] - resignal: FALSE
     [14:16:47.906] - Condition #186: 'simpleMessage', 'message', 'condition'
     [14:16:47.350] - force: FALSE
     [14:16:47.906] - Condition #187: 'simpleMessage', 'message', 'condition'
     [14:16:47.350] - relayed: [n=2] TRUE, TRUE
     [14:16:47.907] - Condition #188: 'simpleMessage', 'message', 'condition'
     [14:16:47.351] - queued futures: [n=2] TRUE, TRUE
     [14:16:47.908] - Condition #189: 'simpleMessage', 'message', 'condition'
     - flush all
     [14:16:47.908] - Condition #190: 'simpleMessage', 'message', 'condition'
     [14:16:47.352] - relayed: [n=2] TRUE, TRUE
     [14:16:47.909] - Condition #191: 'simpleMessage', 'message', 'condition'
     [14:16:47.353] - queued futures: [n=2] TRUE, TRUE
     [14:16:47.910] - Condition #192: 'simpleMessage', 'message', 'condition'
     [14:16:47.354] signalConditionsASAP(NULL, pos=0) ... done
     [14:16:47.910] - Condition #193: 'simpleMessage', 'message', 'condition'
     [14:16:47.355] resolve() on list ... DONE
     [14:16:47.911] - Condition #194: 'simpleMessage', 'message', 'condition'
     [14:16:47.355] - collecting values of futures
     [14:16:47.912] - Condition #195: 'simpleMessage', 'message', 'condition'
     [14:16:47.356] signalConditions() ...
     [14:16:47.912] - Condition #196: 'simpleMessage', 'message', 'condition'
     [14:16:47.357] - include = 'immediateCondition'
     [14:16:47.913] - Condition #197: 'simpleMessage', 'message', 'condition'
     [14:16:47.358] - exclude =
     [14:16:47.913] - Condition #198: 'simpleMessage', 'message', 'condition'
     [14:16:47.359] - resignal = FALSE
     [14:16:47.914] - Condition #199: 'simpleMessage', 'message', 'condition'
     [14:16:47.359] - Number of conditions: 1
     [14:16:47.915] - Condition #200: 'simpleMessage', 'message', 'condition'
     [14:16:47.360] signalConditions() ... done
     [14:16:47.915] - Condition #201: 'simpleMessage', 'message', 'condition'
     [14:16:47.361] signalConditions() ...
     [14:16:47.916] - Condition #202: 'simpleMessage', 'message', 'condition'
     [14:16:47.362] - include = 'immediateCondition'
     [14:16:47.917] - Condition #203: 'simpleMessage', 'message', 'condition'
     [14:16:47.362] - exclude =
     [14:16:47.917] - Condition #204: 'simpleMessage', 'message', 'condition'
     [14:16:47.363] - resignal = FALSE
     [14:16:47.918] - Condition #205: 'simpleMessage', 'message', 'condition'
     [14:16:47.364] - Number of conditions: 2
     [14:16:47.919] - Condition #206: 'simpleMessage', 'message', 'condition'
     [14:16:47.365] signalConditions() ... done
     [14:16:47.919] - Condition #207: 'simpleMessage', 'message', 'condition'
     [14:16:47.366] - accumulating results
     [14:16:47.920] - Condition #208: 'simpleMessage', 'message', 'condition'
     [14:16:47.367] - processing errors (handler = 'stop')
     [14:16:47.921] - Condition #209: 'simpleMessage', 'message', 'condition'
     [14:16:47.368] - extracting results
     [14:16:47.921] - Condition #210: 'simpleMessage', 'message', 'condition'
     [14:16:47.369] doFuture() ... DONE
     [14:16:47.922] - Condition #211: 'simpleMessage', 'message', 'condition'
     foreach() - level 2 ... DONE
     [14:16:47.923] - Condition #212: 'simpleMessage', 'message', 'condition'
     foreach() - level 2 ...
     [14:16:47.923] - Condition #213: 'simpleMessage', 'message', 'condition'
     [14:16:47.378] doFuture() ...
     [14:16:47.924] - Condition #214: 'simpleMessage', 'message', 'condition'
     [14:16:47.381] - dummy globals (as locals): [1] 'b'
     [14:16:47.925] - Condition #215: 'simpleMessage', 'message', 'condition'
     [14:16:47.383] - R expression:
     [14:16:47.925] - Condition #216: 'simpleMessage', 'message', 'condition'
     [14:16:47.384] {
     [14:16:47.384] doFuture::registerDoFuture()
     [14:16:47.384] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:47.384] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:47.384] b <- NULL
     [14:16:47.384] ...future.env <- environment()
     [14:16:47.384] local({
     [14:16:47.384] for (name in names(...future.x_jj)) {
     [14:16:47.384] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:47.384] inherits = FALSE)
     [14:16:47.384] }
     [14:16:47.384] })
     [14:16:47.384] tryCatch({
     [14:16:47.384] plan_list <- future::plan("next")
     [14:16:47.384] message(capture.output(print(plan_list)))
     [14:16:47.384] stopifnot(inherits(plan_list, "future"))
     [14:16:47.384] default <- getOption("future.plan", "sequential")
     [14:16:47.384] if (is.function(default))
     [14:16:47.384] default <- class(default)
     [14:16:47.384] stopifnot(inherits(plan_list, default))
     [14:16:47.384] plan_b <- future::plan("list")
     [14:16:47.384] str(plan_b)
     [14:16:47.384] stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]],
     [14:16:47.384] default))
     [14:16:47.384] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:16:47.384] }, error = identity)
     [14:16:47.384] })
     [14:16:47.384] }
     [14:16:47.926] - Condition #217: 'simpleMessage', 'message', 'condition'
     [14:16:47.386] - identifying globals and packages ...
     [14:16:47.927] - Condition #218: 'simpleMessage', 'message', 'condition'
     [14:16:47.387] getGlobalsAndPackages() ...
     [14:16:47.927] - Condition #219: 'simpleMessage', 'message', 'condition'
     [14:16:47.387] Searching for globals...
     [14:16:47.928] - Condition #220: 'simpleMessage', 'message', 'condition'
     [14:16:47.430] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
     [14:16:47.928] - Condition #221: 'simpleMessage', 'message', 'condition'
     [14:16:47.431] Searching for globals ... DONE
     [14:16:47.929] - Condition #222: 'simpleMessage', 'message', 'condition'
     [14:16:47.432] Resolving globals: FALSE
     [14:16:47.930] - Condition #223: 'simpleMessage', 'message', 'condition'
     [14:16:47.436] The total size of the 3 globals is 75.02 KiB (76816 bytes)
     [14:16:47.930] - Condition #224: 'simpleMessage', 'message', 'condition'
     [14:16:47.437] - globals: [3] '...future.x_ii', 'a', 'plan_a'
     [14:16:47.931] - Condition #225: 'simpleMessage', 'message', 'condition'
     [14:16:47.438] - packages: [1] 'utils'
     [14:16:47.932] - Condition #226: 'simpleMessage', 'message', 'condition'
     [14:16:47.438] getGlobalsAndPackages() ... DONE
     [14:16:47.932] - Condition #227: 'simpleMessage', 'message', 'condition'
     [14:16:47.439] List of 3
     [14:16:47.439] $ ...future.x_ii: NULL
     [14:16:47.439] $ a : int 2
     [14:16:47.439] $ plan_a :List of 1
     [14:16:47.439] ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     [14:16:47.439] seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"),
     [14:16:47.439] earlySignal = FALSE, label = NULL, ...)
     [14:16:47.439] .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
     [14:16:47.439] .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
     [14:16:47.439] ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     [14:16:47.439] - attr(*, "where")=List of 3
     [14:16:47.439] ..$ ...future.x_ii:<environment: 0x393ced0>
     [14:16:47.439] ..$ a :<environment: 0x35b0188>
     [14:16:47.439] ..$ plan_a :<environment: 0x35b0188>
     [14:16:47.439] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
     [14:16:47.439] - attr(*, "resolved")= logi FALSE
     [14:16:47.439] - attr(*, "total_size")= num 76816
     [14:16:47.933] - Condition #228: 'simpleMessage', 'message', 'condition'
     [14:16:47.458] - R expression:
     [14:16:47.934] - Condition #229: 'simpleMessage', 'message', 'condition'
     [14:16:47.459] {
     [14:16:47.459] doFuture::registerDoFuture()
     [14:16:47.459] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:47.459] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:47.459] b <- NULL
     [14:16:47.459] ...future.env <- environment()
     [14:16:47.459] local({
     [14:16:47.459] for (name in names(...future.x_jj)) {
     [14:16:47.459] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:47.459] inherits = FALSE)
     [14:16:47.459] }
     [14:16:47.459] })
     [14:16:47.459] tryCatch({
     [14:16:47.459] plan_list <- future::plan("next")
     [14:16:47.459] message(capture.output(print(plan_list)))
     [14:16:47.459] stopifnot(inherits(plan_list, "future"))
     [14:16:47.459] default <- getOption("future.plan", "sequential")
     [14:16:47.459] if (is.function(default))
     [14:16:47.459] default <- class(default)
     [14:16:47.459] stopifnot(inherits(plan_list, default))
     [14:16:47.459] plan_b <- future::plan("list")
     [14:16:47.459] str(plan_b)
     [14:16:47.459] stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]],
     [14:16:47.459] default))
     [14:16:47.459] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:16:47.459] }, error = identity)
     [14:16:47.459] })
     [14:16:47.459] }
     [14:16:47.934] - Condition #230: 'simpleMessage', 'message', 'condition'
     [14:16:47.461] - globals: [3] '...future.x_ii', 'a', 'plan_a'
     [14:16:47.935] - Condition #231: 'simpleMessage', 'message', 'condition'
     [14:16:47.461] List of 3
     [14:16:47.461] $ ...future.x_ii: NULL
     [14:16:47.461] $ a : int 2
     [14:16:47.461] $ plan_a :List of 1
     [14:16:47.461] ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     [14:16:47.461] seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"),
     [14:16:47.461] earlySignal = FALSE, label = NULL, ...)
     [14:16:47.461] .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
     [14:16:47.461] .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
     [14:16:47.461] ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     [14:16:47.461] - attr(*, "where")=List of 3
     [14:16:47.461] ..$ ...future.x_ii:<environment: 0x393ced0>
     [14:16:47.461] ..$ a :<environment: 0x35b0188>
     [14:16:47.461] ..$ plan_a :<environment: 0x35b0188>
     [14:16:47.461] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
     [14:16:47.461] - attr(*, "resolved")= logi FALSE
     [14:16:47.461] - attr(*, "total_size")= num 76816
     [14:16:47.936] - Condition #232: 'simpleMessage', 'message', 'condition'
     [14:16:47.486] - packages: [2] 'doFuture', 'utils'
     [14:16:47.936] - Condition #233: 'simpleMessage', 'message', 'condition'
     [14:16:47.487] - identifying globals and packages ... DONE
     [14:16:47.937] - Condition #234: 'simpleMessage', 'message', 'condition'
     [14:16:47.489] Number of chunks: 2
     [14:16:47.937] - Condition #235: 'simpleMessage', 'message', 'condition'
     [14:16:47.490] Number of futures (= number of chunks): 2
     [14:16:47.938] - Condition #236: 'simpleMessage', 'message', 'condition'
     [14:16:47.491] Launching 2 futures (chunks) ...
     [14:16:47.939] - Condition #237: 'simpleMessage', 'message', 'condition'
     [14:16:47.492] Chunk #1 of 2 ...
     [14:16:47.939] - Condition #238: 'simpleMessage', 'message', 'condition'
     [14:16:47.493] - Finding globals in 'args_list' chunk #1 ...
     [14:16:47.940] - Condition #239: 'simpleMessage', 'message', 'condition'
     [14:16:47.493] getGlobalsAndPackages() ...
     [14:16:47.941] - Condition #240: 'simpleMessage', 'message', 'condition'
     [14:16:47.494] Searching for globals...
     [14:16:47.941] - Condition #241: 'simpleMessage', 'message', 'condition'
     [14:16:47.496]
     [14:16:47.942] - Condition #242: 'simpleMessage', 'message', 'condition'
     [14:16:47.496] Searching for globals ... DONE
     [14:16:47.943] - Condition #243: 'simpleMessage', 'message', 'condition'
     [14:16:47.497] - globals: [0] <none>
     [14:16:47.943] - Condition #244: 'simpleMessage', 'message', 'condition'
     [14:16:47.498] getGlobalsAndPackages() ... DONE
     [14:16:47.944] - Condition #245: 'simpleMessage', 'message', 'condition'
     [14:16:47.498]
     [14:16:47.945] - Condition #246: 'simpleMessage', 'message', 'condition'
     [14:16:47.499]
     [14:16:47.945] - Condition #247: 'simpleMessage', 'message', 'condition'
     [14:16:47.500] - Finding globals in 'args_list' for chunk #1 ... DONE
     [14:16:47.946] - Condition #248: 'simpleMessage', 'message', 'condition'
     [14:16:47.502] getGlobalsAndPackages() ...
     [14:16:47.947] - Condition #249: 'simpleMessage', 'message', 'condition'
     [14:16:47.502] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
     [14:16:47.947] - Condition #250: 'simpleMessage', 'message', 'condition'
     [14:16:47.503] Resolving globals: FALSE
     [14:16:47.948] - Condition #251: 'simpleMessage', 'message', 'condition'
     [14:16:47.506] The total size of the 3 globals is 75.07 KiB (76872 bytes)
     [14:16:47.949] - Condition #252: 'simpleMessage', 'message', 'condition'
     [14:16:47.506] - globals: [3] '...future.x_ii', 'a', 'plan_a'
     [14:16:47.949] - Condition #253: 'simpleMessage', 'message', 'condition'
     [14:16:47.507]
     [14:16:47.950] - Condition #254: 'simpleMessage', 'message', 'condition'
     [14:16:47.508] getGlobalsAndPackages() ... DONE
     [14:16:47.951] - Condition #255: 'simpleMessage', 'message', 'condition'
     [14:16:47.512] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
     [14:16:47.951] - Condition #256: 'simpleMessage', 'message', 'condition'
     [14:16:47.513] Packages needed by future strategies (n = 0): <none>
     [14:16:47.952] - Condition #257: 'simpleMessage', 'message', 'condition'
     [14:16:47.521] {
     [14:16:47.521] {
     [14:16:47.521] ...future.startTime <- base::Sys.time()
     [14:16:47.521] ...future.oldOptions <- base::options(future.startup.script = FALSE,
     [14:16:47.521] future.globals.onMissing = NULL, future.globals.maxSize = NULL,
     [14:16:47.521] future.globals.method = NULL, future.globals.onMissing = NULL,
     [14:16:47.521] future.globals.onReference = NULL, future.globals.resolve = NULL,
     [14:16:47.521] future.resolve.recursive = NULL, width = 80L)
     [14:16:47.521] {
     [14:16:47.521] {
     [14:16:47.521] {
     [14:16:47.521] {
     [14:16:47.521] base::local({
     [14:16:47.521] has_future <- base::requireNamespace("future",
     [14:16:47.521] quietly = TRUE)
     [14:16:47.521] version <- if (has_future)
     [14:16:47.521] utils::packageVersion("future")
     [14:16:47.521] else NULL
     [14:16:47.521] if (!has_future || version < "1.8.0") {
     [14:16:47.521] info <- base::c(r_version = base::gsub("R version ",
     [14:16:47.521] "", base::R.version$version.string),
     [14:16:47.521] platform = base::sprintf("%s (%s-bit)",
     [14:16:47.521] base::R.version$platform, 8 * base::.Machine$sizeof.pointer),
     [14:16:47.521] os = base::paste(base::Sys.info()[base::c("sysname",
     [14:16:47.521] "release", "version")], collapse = " "),
     [14:16:47.521] hostname = base::Sys.info()[["nodename"]])
     [14:16:47.521] info <- base::sprintf("%s: %s", base::names(info),
     [14:16:47.521] info)
     [14:16:47.521] info <- base::paste(info, collapse = "; ")
     [14:16:47.521] if (!has_future) {
     [14:16:47.521] msg <- base::sprintf("Package 'future' is not installed on worker (%s)",
     [14:16:47.521] info)
     [14:16:47.521] }
     [14:16:47.521] else {
     [14:16:47.521] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s",
     [14:16:47.521] info, version)
     [14:16:47.521] }
     [14:16:47.521] base::stop(msg)
     [14:16:47.521] }
     [14:16:47.521] })
     [14:16:47.521] }
     [14:16:47.521] ...future.mc.cores.old <- base::getOption("mc.cores")
     [14:16:47.521] base::options(mc.cores = 1L)
     [14:16:47.521] }
     [14:16:47.521] base::local({
     [14:16:47.521] for (pkg in c("doFuture", "utils")) {
     [14:16:47.521] base::loadNamespace(pkg)
     [14:16:47.521] base::library(pkg, character.only = TRUE)
     [14:16:47.521] }
     [14:16:47.521] })
     [14:16:47.521] }
     [14:16:47.521] future::plan("default", .cleanup = FALSE, .init = FALSE)
     [14:16:47.521] }
     [14:16:47.521] }
     [14:16:47.521] if (base::is.na(TRUE)) {
     [14:16:47.521] }
     [14:16:47.521] else {
     [14:16:47.521] if (TRUE) {
     [14:16:47.521] ...future.stdout <- base::rawConnection(base::raw(0L),
     [14:16:47.521] open = "w")
     [14:16:47.521] }
     [14:16:47.521] else {
     [14:16:47.521] ...future.stdout <- base::file(base::switch(.Platform$OS.type,
     [14:16:47.521] windows = "NUL", "/dev/null"), open = "w")
     [14:16:47.521] }
     [14:16:47.521] base::sink(...future.stdout, type = "output", split = FALSE)
     [14:16:47.521] base::on.exit(if (!base::is.null(...future.stdout)) {
     [14:16:47.521] base::sink(type = "output", split = FALSE)
     [14:16:47.521] base::close(...future.stdout)
     [14:16:47.521] }, add = TRUE)
     [14:16:47.521] }
     [14:16:47.521] ...future.frame <- base::sys.nframe()
     [14:16:47.521] ...future.conditions <- base::list()
     [14:16:47.521] ...future.rng <- base::globalenv()$.Random.seed
     [14:16:47.521] ...future.result <- base::tryCatch({
     [14:16:47.521] base::withCallingHandlers({
     [14:16:47.521] ...future.value <- base::withVisible(base::local({
     [14:16:47.521] doFuture::registerDoFuture()
     [14:16:47.521] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:47.521] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:47.521] b <- NULL
     [14:16:47.521] ...future.env <- environment()
     [14:16:47.521] local({
     [14:16:47.521] for (name in names(...future.x_jj)) {
     [14:16:47.521] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:47.521] inherits = FALSE)
     [14:16:47.521] }
     [14:16:47.521] })
     [14:16:47.521] tryCatch({
     [14:16:47.521] plan_list <- future::plan("next")
     [14:16:47.521] message(capture.output(print(plan_list)))
     [14:16:47.521] stopifnot(inherits(plan_list, "future"))
     [14:16:47.521] default <- getOption("future.plan", "sequential")
     [14:16:47.521] if (is.function(default))
     [14:16:47.521] default <- class(default)
     [14:16:47.521] stopifnot(inherits(plan_list, default))
     [14:16:47.521] plan_b <- future::plan("list")
     [14:16:47.521] str(plan_b)
     [14:16:47.521] stopifnot(inherits(plan_b[[1]], "future"),
     [14:16:47.521] inherits(plan_b[[1]], default))
     [14:16:47.521] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:16:47.521] }, error = identity)
     [14:16:47.521] })
     [14:16:47.521] }))
     [14:16:47.521] future::FutureResult(value = ...future.value$value,
     [14:16:47.521] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed,
     [14:16:47.521] ...future.rng), started = ...future.startTime,
     [14:16:47.521] version = "1.8")
     [14:16:47.521] }, condition = base::local({
     [14:16:47.521] c <- base::c
     [14:16:47.521] inherits <- base::inherits
     [14:16:47.521] invokeRestart <- base::invokeRestart
     [14:16:47.521] length <- base::length
     [14:16:47.521] list <- base::list
     [14:16:47.521] seq.int <- base::seq.int
     [14:16:47.521] signalCondition <- base::signalCondition
     [14:16:47.521] sys.calls <- base::sys.calls
     [14:16:47.521] Sys.time <- base::Sys.time
     [14:16:47.521] `[[` <- base::`[[`
     [14:16:47.521] `+` <- base::`+`
     [14:16:47.521] `<<-` <- base::`<<-`
     [14:16:47.521] sysCalls <- function(calls = sys.calls(), from = 1L) {
     [14:16:47.521] calls[seq.int(from = from + 12L, to = length(calls) -
     [14:16:47.521] 3L)]
     [14:16:47.521] }
     [14:16:47.521] function(cond) {
     [14:16:47.521] if (inherits(cond, "error")) {
     [14:16:47.521] sessionInformation <- function() {
     [14:16:47.521] list(r = base::R.Version(), locale = base::Sys.getlocale(),
     [14:16:47.521] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(),
     [14:16:47.521] search = base::search(), system = base::Sys.info())
     [14:16:47.521] }
     [14:16:47.521] ...future.conditions[[length(...future.conditions) +
     [14:16:47.521] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame),
     [14:16:47.521] cond$call), session = sessionInformation(),
     [14:16:47.521] timestamp = Sys.time(), signaled = 0L)
     [14:16:47.521] signalCondition(cond)
     [14:16:47.521] }
     [14:16:47.521] else if (inherits(cond, "condition")) {
     [14:16:47.521] signal <- FALSE && inherits(cond, character(0))
     [14:16:47.521] ...future.conditions[[length(...future.conditions) +
     [14:16:47.521] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
     [14:16:47.521] if (!signal) {
     [14:16:47.521] muffleCondition <- function (cond)
     [14:16:47.521] {
     [14:16:47.521] inherits <- base::inherits
     [14:16:47.521] invokeRestart <- base::invokeRestart
     [14:16:47.521] muffled <- FALSE
     [14:16:47.521] if (inherits(cond, "message")) {
     [14:16:47.521] invokeRestart("muffleMessage")
     [14:16:47.521] muffled <- TRUE
     [14:16:47.521] }
     [14:16:47.521] else if (inherits(cond, "warning")) {
     [14:16:47.521] invokeRestart("muffleWarning")
     [14:16:47.521] muffled <- TRUE
     [14:16:47.521] }
     [14:16:47.521] else if (inherits(cond, "condition")) {
     [14:16:47.521] computeRestarts <- base::computeRestarts
     [14:16:47.521] grepl <- base::grepl
     [14:16:47.521] is.null <- base::is.null
     [14:16:47.521] restarts <- computeRestarts(cond)
     [14:16:47.521] for (restart in restarts) {
     [14:16:47.521] name <- restart$name
     [14:16:47.521] if (is.null(name))
     [14:16:47.521] next
     [14:16:47.521] if (!grepl("^muffle", name))
     [14:16:47.521] next
     [14:16:47.521] invokeRestart(restart)
     [14:16:47.521] muffled <- TRUE
     [14:16:47.521] break
     [14:16:47.521] }
     [14:16:47.521] }
     [14:16:47.521] invisible(muffled)
     [14:16:47.521] }
     [14:16:47.521] muffleCondition(cond)
     [14:16:47.521] }
     [14:16:47.521] }
     [14:16:47.521] }
     [14:16:47.521] }))
     [14:16:47.521] }, error = function(ex) {
     [14:16:47.521] base::structure(base::list(value = NULL, visible = NULL,
     [14:16:47.521] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed,
     [14:16:47.521] ...future.rng), version = "1.8"), class = "FutureResult")
     [14:16:47.521] }, finally = {
     [14:16:47.521] {
     [14:16:47.521] {
     [14:16:47.521] base::options(mc.cores = ...future.mc.cores.old)
     [14:16:47.521] }
     [14:16:47.521] future::plan(list(b = function (expr, envir = parent.frame(),
     [14:16:47.521] substitute = TRUE, lazy = FALSE, seed = NULL,
     [14:16:47.521] globals = TRUE, workers = availableCores(constraints = "multicore"),
     [14:16:47.521] earlySignal = FALSE, label = NULL, ...)
     [14:16:47.521] {
     [14:16:47.521] if (substitute)
     [14:16:47.521] expr <- substitute(expr)
     [14:16:47.521] if (is.function(workers))
     [14:16:47.521] workers <- workers()
     [14:16:47.521] workers <- as.integer(workers)
     [14:16:47.521] stop_if_not(is.finite(workers), workers >= 1L)
     [14:16:47.521] if (workers == 1L || !supportsMulticore(warn = TRUE)) {
     [14:16:47.521] return(sequential(expr, envir = envir, substitute = FALSE,
     [14:16:47.521] lazy = lazy, seed = seed, globals = globals,
     [14:16:47.521] local = TRUE, label = label, ...))
     [14:16:47.521] }
     [14:16:47.521] oopts <- options(mc.cores = workers)
     [14:16:47.521] on.exit(options(oopts))
     [14:16:47.521] future <- MulticoreFuture(expr = expr, envir = envir,
     [14:16:47.521] substitute = FALSE, lazy = lazy, seed = seed,
     [14:16:47.521] globals = globals, workers = workers, earlySignal = earlySignal,
     [14:16:47.521] label = label, ...)
     [14:16:47.521] if (!future$lazy)
     [14:16:47.521] future <- run(future)
     [14:16:47.521] invisible(future)
     [14:16:47.521] }), .cleanup = FALSE, .init = FALSE)
     [14:16:47.521] }
     [14:16:47.521] base::options(...future.oldOptions)
     [14:16:47.521] })
     [14:16:47.521] Sys.time
     [14:16:47.521] if (base::is.na(TRUE)) {
     [14:16:47.521] }
     [14:16:47.521] else {
     [14:16:47.521] base::sink(type = "output", split = FALSE)
     [14:16:47.521] if (TRUE) {
     [14:16:47.521] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
     [14:16:47.521] }
     [14:16:47.521] else {
     [14:16:47.521] ...future.result["stdout"] <- base::list(NULL)
     [14:16:47.521] }
     [14:16:47.521] base::close(...future.stdout)
     [14:16:47.521] ...future.stdout <- NULL
     [14:16:47.521] }
     [14:16:47.521] ...future.result$conditions <- ...future.conditions
     [14:16:47.521] ...future.result
     [14:16:47.521] }
     [14:16:47.952] - Condition #258: 'simpleMessage', 'message', 'condition'
     [14:16:47.531] requestCore(): workers = 2
     [14:16:47.953] - Condition #259: 'simpleMessage', 'message', 'condition'
     [14:16:47.536] MulticoreFuture started
     [14:16:47.954] - Condition #260: 'simpleMessage', 'message', 'condition'
     [14:16:47.539] Chunk #1 of 2 ... DONE
     [14:16:47.954] - Condition #261: 'simpleMessage', 'message', 'condition'
     [14:16:47.540] Chunk #2 of 2 ...
     [14:16:47.955] - Condition #262: 'simpleMessage', 'message', 'condition'
     [14:16:47.541] - Finding globals in 'args_list' chunk #2 ...
     [14:16:47.955] - Condition #263: 'simpleMessage', 'message', 'condition'
     [14:16:47.542] getGlobalsAndPackages() ...
     [14:16:47.956] - Condition #264: 'simpleMessage', 'message', 'condition'
     [14:16:47.543] Searching for globals...
     [14:16:47.956] - Condition #265: 'simpleMessage', 'message', 'condition'
     [14:16:47.546]
     [14:16:47.957] - Condition #266: 'simpleMessage', 'message', 'condition'
     [14:16:47.547] Searching for globals ... DONE
     [14:16:47.958] - Condition #267: 'simpleMessage', 'message', 'condition'
     [14:16:47.548] - globals: [0] <none>
     [14:16:47.958] - Condition #268: 'simpleMessage', 'message', 'condition'
     [14:16:47.549] getGlobalsAndPackages() ... DONE
     [14:16:47.959] - Condition #269: 'simpleMessage', 'message', 'condition'
     [14:16:47.551]
     [14:16:47.959] - Condition #270: 'simpleMessage', 'message', 'condition'
     [14:16:47.551]
     [14:16:47.960] - Condition #271: 'simpleMessage', 'message', 'condition'
     [14:16:47.552] - Finding globals in 'args_list' for chunk #2 ... DONE
     [14:16:47.960] - Condition #272: 'simpleMessage', 'message', 'condition'
     [14:16:47.555] getGlobalsAndPackages() ...
     [14:16:47.961] - Condition #273: 'simpleMessage', 'message', 'condition'
     [14:16:47.556] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
     [14:16:47.962] - Condition #274: 'simpleMessage', 'message', 'condition'
     [14:16:47.557] Resolving globals: FALSE
     [14:16:47.962] - Condition #275: 'simpleMessage', 'message', 'condition'
     [14:16:47.561] The total size of the 3 globals is 75.12 KiB (76928 bytes)
     [14:16:47.963] - Condition #276: 'simpleMessage', 'message', 'condition'
     [14:16:47.562] - globals: [3] '...future.x_ii', 'a', 'plan_a'
     [14:16:47.963] - Condition #277: 'simpleMessage', 'message', 'condition'
     [14:16:47.563]
     [14:16:47.964] - Condition #278: 'simpleMessage', 'message', 'condition'
     [14:16:47.564] getGlobalsAndPackages() ... DONE
     [14:16:47.964] - Condition #279: 'simpleMessage', 'message', 'condition'
     [14:16:47.569] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
     [14:16:47.965] - Condition #280: 'simpleMessage', 'message', 'condition'
     [14:16:47.571] Packages needed by future strategies (n = 0): <none>
     [14:16:47.966] - Condition #281: 'simpleMessage', 'message', 'condition'
     [14:16:47.583] {
     [14:16:47.583] {
     [14:16:47.583] ...future.startTime <- base::Sys.time()
     [14:16:47.583] ...future.oldOptions <- base::options(future.startup.script = FALSE,
     [14:16:47.583] future.globals.onMissing = NULL, future.globals.maxSize = NULL,
     [14:16:47.583] future.globals.method = NULL, future.globals.onMissing = NULL,
     [14:16:47.583] future.globals.onReference = NULL, future.globals.resolve = NULL,
     [14:16:47.583] future.resolve.recursive = NULL, width = 80L)
     [14:16:47.583] {
     [14:16:47.583] {
     [14:16:47.583] {
     [14:16:47.583] {
     [14:16:47.583] base::local({
     [14:16:47.583] has_future <- base::requireNamespace("future",
     [14:16:47.583] quietly = TRUE)
     [14:16:47.583] version <- if (has_future)
     [14:16:47.583] utils::packageVersion("future")
     [14:16:47.583] else NULL
     [14:16:47.583] if (!has_future || version < "1.8.0") {
     [14:16:47.583] info <- base::c(r_version = base::gsub("R version ",
     [14:16:47.583] "", base::R.version$version.string),
     [14:16:47.583] platform = base::sprintf("%s (%s-bit)",
     [14:16:47.583] base::R.version$platform, 8 * base::.Machine$sizeof.pointer),
     [14:16:47.583] os = base::paste(base::Sys.info()[base::c("sysname",
     [14:16:47.583] "release", "version")], collapse = " "),
     [14:16:47.583] hostname = base::Sys.info()[["nodename"]])
     [14:16:47.583] info <- base::sprintf("%s: %s", base::names(info),
     [14:16:47.583] info)
     [14:16:47.583] info <- base::paste(info, collapse = "; ")
     [14:16:47.583] if (!has_future) {
     [14:16:47.583] msg <- base::sprintf("Package 'future' is not installed on worker (%s)",
     [14:16:47.583] info)
     [14:16:47.583] }
     [14:16:47.583] else {
     [14:16:47.583] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s",
     [14:16:47.583] info, version)
     [14:16:47.583] }
     [14:16:47.583] base::stop(msg)
     [14:16:47.583] }
     [14:16:47.583] })
     [14:16:47.583] }
     [14:16:47.583] ...future.mc.cores.old <- base::getOption("mc.cores")
     [14:16:47.583] base::options(mc.cores = 1L)
     [14:16:47.583] }
     [14:16:47.583] base::local({
     [14:16:47.583] for (pkg in c("doFuture", "utils")) {
     [14:16:47.583] base::loadNamespace(pkg)
     [14:16:47.583] base::library(pkg, character.only = TRUE)
     [14:16:47.583] }
     [14:16:47.583] })
     [14:16:47.583] }
     [14:16:47.583] future::plan("default", .cleanup = FALSE, .init = FALSE)
     [14:16:47.583] }
     [14:16:47.583] }
     [14:16:47.583] if (base::is.na(TRUE)) {
     [14:16:47.583] }
     [14:16:47.583] else {
     [14:16:47.583] if (TRUE) {
     [14:16:47.583] ...future.stdout <- base::rawConnection(base::raw(0L),
     [14:16:47.583] open = "w")
     [14:16:47.583] }
     [14:16:47.583] else {
     [14:16:47.583] ...future.stdout <- base::file(base::switch(.Platform$OS.type,
     [14:16:47.583] windows = "NUL", "/dev/null"), open = "w")
     [14:16:47.583] }
     [14:16:47.583] base::sink(...future.stdout, type = "output", split = FALSE)
     [14:16:47.583] base::on.exit(if (!base::is.null(...future.stdout)) {
     [14:16:47.583] base::sink(type = "output", split = FALSE)
     [14:16:47.583] base::close(...future.stdout)
     [14:16:47.583] }, add = TRUE)
     [14:16:47.583] }
     [14:16:47.583] ...future.frame <- base::sys.nframe()
     [14:16:47.583] ...future.conditions <- base::list()
     [14:16:47.583] ...future.rng <- base::globalenv()$.Random.seed
     [14:16:47.583] ...future.result <- base::tryCatch({
     [14:16:47.583] base::withCallingHandlers({
     [14:16:47.583] ...future.value <- base::withVisible(base::local({
     [14:16:47.583] doFuture::registerDoFuture()
     [14:16:47.583] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:47.583] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:47.583] b <- NULL
     [14:16:47.583] ...future.env <- environment()
     [14:16:47.583] local({
     [14:16:47.583] for (name in names(...future.x_jj)) {
     [14:16:47.583] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:47.583] inherits = FALSE)
     [14:16:47.583] }
     [14:16:47.583] })
     [14:16:47.583] tryCatch({
     [14:16:47.583] plan_list <- future::plan("next")
     [14:16:47.583] message(capture.output(print(plan_list)))
     [14:16:47.583] stopifnot(inherits(plan_list, "future"))
     [14:16:47.583] default <- getOption("future.plan", "sequential")
     [14:16:47.583] if (is.function(default))
     [14:16:47.583] default <- class(default)
     [14:16:47.583] stopifnot(inherits(plan_list, default))
     [14:16:47.583] plan_b <- future::plan("list")
     [14:16:47.583] str(plan_b)
     [14:16:47.583] stopifnot(inherits(plan_b[[1]], "future"),
     [14:16:47.583] inherits(plan_b[[1]], default))
     [14:16:47.583] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:16:47.583] }, error = identity)
     [14:16:47.583] })
     [14:16:47.583] }))
     [14:16:47.583] future::FutureResult(value = ...future.value$value,
     [14:16:47.583] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed,
     [14:16:47.583] ...future.rng), started = ...future.startTime,
     [14:16:47.583] version = "1.8")
     [14:16:47.583] }, condition = base::local({
     [14:16:47.583] c <- base::c
     [14:16:47.583] inherits <- base::inherits
     [14:16:47.583] invokeRestart <- base::invokeRestart
     [14:16:47.583] length <- base::length
     [14:16:47.583] list <- base::list
     [14:16:47.583] seq.int <- base::seq.int
     [14:16:47.583] signalCondition <- base::signalCondition
     [14:16:47.583] sys.calls <- base::sys.calls
     [14:16:47.583] Sys.time <- base::Sys.time
     [14:16:47.583] `[[` <- base::`[[`
     [14:16:47.583] `+` <- base::`+`
     [14:16:47.583] `<<-` <- base::`<<-`
     [14:16:47.583] sysCalls <- function(calls = sys.calls(), from = 1L) {
     [14:16:47.583] calls[seq.int(from = from + 12L, to = length(calls) -
     [14:16:47.583] 3L)]
     [14:16:47.583] }
     [14:16:47.583] function(cond) {
     [14:16:47.583] if (inherits(cond, "error")) {
     [14:16:47.583] sessionInformation <- function() {
     [14:16:47.583] list(r = base::R.Version(), locale = base::Sys.getlocale(),
     [14:16:47.583] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(),
     [14:16:47.583] search = base::search(), system = base::Sys.info())
     [14:16:47.583] }
     [14:16:47.583] ...future.conditions[[length(...future.conditions) +
     [14:16:47.583] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame),
     [14:16:47.583] cond$call), session = sessionInformation(),
     [14:16:47.583] timestamp = Sys.time(), signaled = 0L)
     [14:16:47.583] signalCondition(cond)
     [14:16:47.583] }
     [14:16:47.583] else if (inherits(cond, "condition")) {
     [14:16:47.583] signal <- FALSE && inherits(cond, character(0))
     [14:16:47.583] ...future.conditions[[length(...future.conditions) +
     [14:16:47.583] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
     [14:16:47.583] if (!signal) {
     [14:16:47.583] muffleCondition <- function (cond)
     [14:16:47.583] {
     [14:16:47.583] inherits <- base::inherits
     [14:16:47.583] invokeRestart <- base::invokeRestart
     [14:16:47.583] muffled <- FALSE
     [14:16:47.583] if (inherits(cond, "message")) {
     [14:16:47.583] invokeRestart("muffleMessage")
     [14:16:47.583] muffled <- TRUE
     [14:16:47.583] }
     [14:16:47.583] else if (inherits(cond, "warning")) {
     [14:16:47.583] invokeRestart("muffleWarning")
     [14:16:47.583] muffled <- TRUE
     [14:16:47.583] }
     [14:16:47.583] else if (inherits(cond, "condition")) {
     [14:16:47.583] computeRestarts <- base::computeRestarts
     [14:16:47.583] grepl <- base::grepl
     [14:16:47.583] is.null <- base::is.null
     [14:16:47.583] restarts <- computeRestarts(cond)
     [14:16:47.583] for (restart in restarts) {
     [14:16:47.583] name <- restart$name
     [14:16:47.583] if (is.null(name))
     [14:16:47.583] next
     [14:16:47.583] if (!grepl("^muffle", name))
     [14:16:47.583] next
     [14:16:47.583] invokeRestart(restart)
     [14:16:47.583] muffled <- TRUE
     [14:16:47.583] break
     [14:16:47.583] }
     [14:16:47.583] }
     [14:16:47.583] invisible(muffled)
     [14:16:47.583] }
     [14:16:47.583] muffleCondition(cond)
     [14:16:47.583] }
     [14:16:47.583] }
     [14:16:47.583] }
     [14:16:47.583] }))
     [14:16:47.583] }, error = function(ex) {
     [14:16:47.583] base::structure(base::list(value = NULL, visible = NULL,
     [14:16:47.583] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed,
     [14:16:47.583] ...future.rng), version = "1.8"), class = "FutureResult")
     [14:16:47.583] }, finally = {
     [14:16:47.583] {
     [14:16:47.583] {
     [14:16:47.583] base::options(mc.cores = ...future.mc.cores.old)
     [14:16:47.583] }
     [14:16:47.583] future::plan(list(b = function (expr, envir = parent.frame(),
     [14:16:47.583] substitute = TRUE, lazy = FALSE, seed = NULL,
     [14:16:47.583] globals = TRUE, workers = availableCores(constraints = "multicore"),
     [14:16:47.583] earlySignal = FALSE, label = NULL, ...)
     [14:16:47.583] {
     [14:16:47.583] if (substitute)
     [14:16:47.583] expr <- substitute(expr)
     [14:16:47.583] if (is.function(workers))
     [14:16:47.583] workers <- workers()
     [14:16:47.583] workers <- as.integer(workers)
     [14:16:47.583] stop_if_not(is.finite(workers), workers >= 1L)
     [14:16:47.583] if (workers == 1L || !supportsMulticore(warn = TRUE)) {
     [14:16:47.583] return(sequential(expr, envir = envir, substitute = FALSE,
     [14:16:47.583] lazy = lazy, seed = seed, globals = globals,
     [14:16:47.583] local = TRUE, label = label, ...))
     [14:16:47.583] }
     [14:16:47.583] oopts <- options(mc.cores = workers)
     [14:16:47.583] on.exit(options(oopts))
     [14:16:47.583] future <- MulticoreFuture(expr = expr, envir = envir,
     [14:16:47.583] substitute = FALSE, lazy = lazy, seed = seed,
     [14:16:47.583] globals = globals, workers = workers, earlySignal = earlySignal,
     [14:16:47.583] label = label, ...)
     [14:16:47.583] if (!future$lazy)
     [14:16:47.583] future <- run(future)
     [14:16:47.583] invisible(future)
     [14:16:47.583] }), .cleanup = FALSE, .init = FALSE)
     [14:16:47.583] }
     [14:16:47.583] base::options(...future.oldOptions)
     [14:16:47.583] })
     [14:16:47.583] Sys.time
     [14:16:47.583] if (base::is.na(TRUE)) {
     [14:16:47.583] }
     [14:16:47.583] else {
     [14:16:47.583] base::sink(type = "output", split = FALSE)
     [14:16:47.583] if (TRUE) {
     [14:16:47.583] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
     [14:16:47.583] }
     [14:16:47.583] else {
     [14:16:47.583] ...future.result["stdout"] <- base::list(NULL)
     [14:16:47.583] }
     [14:16:47.583] base::close(...future.stdout)
     [14:16:47.583] ...future.stdout <- NULL
     [14:16:47.583] }
     [14:16:47.583] ...future.result$conditions <- ...future.conditions
     [14:16:47.583] ...future.result
     [14:16:47.583] }
     [14:16:47.966] - Condition #282: 'simpleMessage', 'message', 'condition'
     [14:16:47.596] requestCore(): workers = 2
     [14:16:47.967] - Condition #283: 'simpleMessage', 'message', 'condition'
     [14:16:47.601] MulticoreFuture started
     [14:16:47.967] - Condition #284: 'simpleMessage', 'message', 'condition'
     [14:16:47.603] Chunk #2 of 2 ... DONE
     [14:16:47.968] - Condition #285: 'simpleMessage', 'message', 'condition'
     [14:16:47.605] Launching 2 futures (chunks) ... DONE
     [14:16:47.968] - Condition #286: 'simpleMessage', 'message', 'condition'
     [14:16:47.605] - resolving futures
     [14:16:47.969] - Condition #287: 'simpleMessage', 'message', 'condition'
     [14:16:47.607] - gathering results & relaying conditions (except errors)
     [14:16:47.970] - Condition #288: 'simpleMessage', 'message', 'condition'
     [14:16:47.608] resolve() on list ...
     [14:16:47.970] - Condition #289: 'simpleMessage', 'message', 'condition'
     [14:16:47.609] recursive: 0
     [14:16:47.971] - Condition #290: 'simpleMessage', 'message', 'condition'
     [14:16:47.610] length: 2
     [14:16:47.971] - Condition #291: 'simpleMessage', 'message', 'condition'
     [14:16:47.611]
     [14:16:47.972] - Condition #292: 'simpleMessage', 'message', 'condition'
     [14:16:47.613] Future #1
     [14:16:47.972] - Condition #293: 'simpleMessage', 'message', 'condition'
     [14:16:47.617] signalConditions() ...
     [14:16:47.973] - Condition #294: 'simpleMessage', 'message', 'condition'
     [14:16:47.618] - include = 'immediateCondition'
     [14:16:47.974] - Condition #295: 'simpleMessage', 'message', 'condition'
     [14:16:47.619] - exclude =
     [14:16:47.974] - Condition #296: 'simpleMessage', 'message', 'condition'
     [14:16:47.620] - resignal = FALSE
     [14:16:47.975] - Condition #297: 'simpleMessage', 'message', 'condition'
     [14:16:47.621] - Number of conditions: 1
     [14:16:47.975] - Condition #298: 'simpleMessage', 'message', 'condition'
     [14:16:47.622] signalConditions() ... done
     [14:16:47.976] - Condition #299: 'simpleMessage', 'message', 'condition'
     [14:16:47.623] signalConditions() ...
     [14:16:47.976] - Condition #300: 'simpleMessage', 'message', 'condition'
     [14:16:47.624] - include = 'immediateCondition'
     [14:16:47.977] - Condition #301: 'simpleMessage', 'message', 'condition'
     [14:16:47.625] - exclude =
     [14:16:47.978] - Condition #302: 'simpleMessage', 'message', 'condition'
     [14:16:47.626] - resignal = FALSE
     [14:16:47.978] - Condition #303: 'simpleMessage', 'message', 'condition'
     [14:16:47.627] - Number of conditions: 1
     [14:16:47.979] - Condition #304: 'simpleMessage', 'message', 'condition'
     [14:16:47.628] signalConditions() ... done
     [14:16:47.979] - Condition #305: 'simpleMessage', 'message', 'condition'
     [14:16:47.629] signalConditionsASAP(MulticoreFuture, pos=1) ...
     [14:16:47.980] - Condition #306: 'simpleMessage', 'message', 'condition'
     [14:16:47.630] - nx: 2
     [14:16:47.980] - Condition #307: 'simpleMessage', 'message', 'condition'
     [14:16:47.631] - relay: TRUE
     [14:16:47.981] - Condition #308: 'simpleMessage', 'message', 'condition'
     [14:16:47.632] - stdout: TRUE
     [14:16:47.981] - Condition #309: 'simpleMessage', 'message', 'condition'
     [14:16:47.632] - signal: TRUE
     [14:16:47.982] - Condition #310: 'simpleMessage', 'message', 'condition'
     [14:16:47.633] - resignal: FALSE
     [14:16:47.982] - Condition #311: 'simpleMessage', 'message', 'condition'
     [14:16:47.643] - force: FALSE
     [14:16:47.983] - Condition #312: 'simpleMessage', 'message', 'condition'
     [14:16:47.644] - relayed: [n=2] FALSE, FALSE
     [14:16:47.983] - Condition #313: 'simpleMessage', 'message', 'condition'
     [14:16:47.645] - queued futures: [n=2] FALSE, FALSE
     [14:16:47.984] - Condition #314: 'simpleMessage', 'message', 'condition'
     [14:16:47.647] - until=1
     [14:16:47.985] - Condition #315: 'simpleMessage', 'message', 'condition'
     [14:16:47.648] - relaying element #1
     [14:16:47.985] - Condition #316: 'simpleMessage', 'message', 'condition'
     [14:16:47.650] signalConditions() ...
     [14:16:47.989] - Condition #317: 'simpleMessage', 'message', 'condition'
     [14:16:47.651] - include = 'immediateCondition'
     [14:16:47.990] - Condition #318: 'simpleMessage', 'message', 'condition'
     [14:16:47.653] - exclude =
     [14:16:47.991] - Condition #319: 'simpleMessage', 'message', 'condition'
     [14:16:47.654] - resignal = FALSE
     [14:16:47.992] - Condition #320: 'simpleMessage', 'message', 'condition'
     [14:16:47.655] - Number of conditions: 1
     [14:16:47.992] - Condition #321: 'simpleMessage', 'message', 'condition'
     [14:16:47.656] signalConditions() ... done
     [14:16:47.993] - Condition #322: 'simpleMessage', 'message', 'condition'
     [14:16:47.658] signalConditions() ...
     [14:16:47.994] - Condition #323: 'simpleMessage', 'message', 'condition'
     [14:16:47.659] - include = 'immediateCondition'
     [14:16:47.995] - Condition #324: 'simpleMessage', 'message', 'condition'
     [14:16:47.660] - exclude =
     [14:16:47.995] - Condition #325: 'simpleMessage', 'message', 'condition'
     [14:16:47.661] - resignal = FALSE
     [14:16:47.996] - Condition #326: 'simpleMessage', 'message', 'condition'
     [14:16:47.662] - Number of conditions: 1
     [14:16:47.997] - Condition #327: 'simpleMessage', 'message', 'condition'
     [14:16:47.663] signalConditions() ... done
     [14:16:47.997] - Condition #328: 'simpleMessage', 'message', 'condition'
     [14:16:47.664] signalConditions() ...
     [14:16:47.998] - Condition #329: 'simpleMessage', 'message', 'condition'
     [14:16:47.665] - include = 'condition'
     [14:16:47.999] - Condition #330: 'simpleMessage', 'message', 'condition'
     [14:16:47.666] - exclude = 'immediateCondition'
     [14:16:48.000] - Condition #331: 'simpleMessage', 'message', 'condition'
     [14:16:47.667] - resignal = FALSE
     [14:16:48.000] - Condition #332: 'simpleMessage', 'message', 'condition'
     [14:16:47.668] - Number of conditions: 1
     [14:16:48.001] - Condition #333: 'simpleMessage', 'message', 'condition'
     [14:16:47.668] - Condition #1: 'simpleMessage', 'message', 'condition'
     [14:16:48.002] - Condition #334: 'simpleMessage', 'message', 'condition'
     sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
     [14:16:48.002] - Condition #335: 'simpleMessage', 'message', 'condition'
     [14:16:47.670] signalConditions() ... done
     [14:16:48.003] - Condition #336: 'simpleMessage', 'message', 'condition'
     [14:16:47.671] - relayed: [n=2] TRUE, FALSE
     [14:16:48.004] - Condition #337: 'simpleMessage', 'message', 'condition'
     [14:16:47.671] - queued futures: [n=2] TRUE, FALSE
     [14:16:48.004] - Condition #338: 'simpleMessage', 'message', 'condition'
     [14:16:47.672] signalConditionsASAP(MulticoreFuture, pos=1) ... done
     [14:16:48.005] - Condition #339: 'simpleMessage', 'message', 'condition'
     [14:16:47.673] length: 1 (resolved future 1)
     [14:16:48.006] - Condition #340: 'simpleMessage', 'message', 'condition'
     [14:16:47.675] Future #2
     [14:16:48.006] - Condition #341: 'simpleMessage', 'message', 'condition'
     [14:16:47.678] signalConditions() ...
     [14:16:48.007] - Condition #342: 'simpleMessage', 'message', 'condition'
     [14:16:47.679] - include = 'immediateCondition'
     [14:16:48.007] - Condition #343: 'simpleMessage', 'message', 'condition'
     [14:16:47.680] - exclude =
     [14:16:48.008] - Condition #344: 'simpleMessage', 'message', 'condition'
     [14:16:47.681] - resignal = FALSE
     [14:16:48.009] - Condition #345: 'simpleMessage', 'message', 'condition'
     [14:16:47.682] - Number of conditions: 2
     [14:16:48.009] - Condition #346: 'simpleMessage', 'message', 'condition'
     [14:16:47.683] signalConditions() ... done
     [14:16:48.010] - Condition #347: 'simpleMessage', 'message', 'condition'
     [14:16:47.684] signalConditions() ...
     [14:16:48.011] - Condition #348: 'simpleMessage', 'message', 'condition'
     [14:16:47.684] - include = 'immediateCondition'
     [14:16:48.011] - Condition #349: 'simpleMessage', 'message', 'condition'
     [14:16:47.685] - exclude =
     [14:16:48.012] - Condition #350: 'simpleMessage', 'message', 'condition'
     [14:16:47.686] - resignal = FALSE
     [14:16:48.013] - Condition #351: 'simpleMessage', 'message', 'condition'
     [14:16:47.687] - Number of conditions: 2
     [14:16:48.013] - Condition #352: 'simpleMessage', 'message', 'condition'
     [14:16:47.688] signalConditions() ... done
     [14:16:48.014] - Condition #353: 'simpleMessage', 'message', 'condition'
     [14:16:47.689] signalConditionsASAP(MulticoreFuture, pos=2) ...
     [14:16:48.015] - Condition #354: 'simpleMessage', 'message', 'condition'
     [14:16:47.690] - nx: 2
     [14:16:48.015] - Condition #355: 'simpleMessage', 'message', 'condition'
     [14:16:47.690] - relay: TRUE
     [14:16:48.016] - Condition #356: 'simpleMessage', 'message', 'condition'
     [14:16:47.691] - stdout: TRUE
     [14:16:48.016] - Condition #357: 'simpleMessage', 'message', 'condition'
     [14:16:47.692] - signal: TRUE
     [14:16:48.017] - Condition #358: 'simpleMessage', 'message', 'condition'
     [14:16:47.693] - resignal: FALSE
     [14:16:48.017] - Condition #359: 'simpleMessage', 'message', 'condition'
     [14:16:47.694] - force: FALSE
     [14:16:48.018] - Condition #360: 'simpleMessage', 'message', 'condition'
     [14:16:47.694] - relayed: [n=2] TRUE, FALSE
     [14:16:48.018] - Condition #361: 'simpleMessage', 'message', 'condition'
     [14:16:47.695] - queued futures: [n=2] TRUE, FALSE
     [14:16:48.019] - Condition #362: 'simpleMessage', 'message', 'condition'
     [14:16:47.696] - until=2
     [14:16:48.020] - Condition #363: 'simpleMessage', 'message', 'condition'
     [14:16:47.697] - relaying element #2
     [14:16:48.020] - Condition #364: 'simpleMessage', 'message', 'condition'
     [14:16:47.698] signalConditions() ...
     [14:16:48.021] - Condition #365: 'simpleMessage', 'message', 'condition'
     [14:16:47.699] - include = 'immediateCondition'
     [14:16:48.021] - Condition #366: 'simpleMessage', 'message', 'condition'
     [14:16:47.700] - exclude =
     [14:16:48.022] - Condition #367: 'simpleMessage', 'message', 'condition'
     [14:16:47.700] - resignal = FALSE
     [14:16:48.022] - Condition #368: 'simpleMessage', 'message', 'condition'
     [14:16:47.701] - Number of conditions: 2
     [14:16:48.023] - Condition #369: 'simpleMessage', 'message', 'condition'
     [14:16:47.702] signalConditions() ... done
     [14:16:48.024] - Condition #370: 'simpleMessage', 'message', 'condition'
     [14:16:47.703] signalConditions() ...
     [14:16:48.024] - Condition #371: 'simpleMessage', 'message', 'condition'
     [14:16:47.704] - include = 'immediateCondition'
     [14:16:48.025] - Condition #372: 'simpleMessage', 'message', 'condition'
     [14:16:47.705] - exclude =
     [14:16:48.025] - Condition #373: 'simpleMessage', 'message', 'condition'
     [14:16:47.705] - resignal = FALSE
     [14:16:48.026] - Condition #374: 'simpleMessage', 'message', 'condition'
     [14:16:47.706] - Number of conditions: 2
     [14:16:48.026] - Condition #375: 'simpleMessage', 'message', 'condition'
     [14:16:47.707] signalConditions() ... done
     [14:16:48.027] - Condition #376: 'simpleMessage', 'message', 'condition'
     [14:16:47.708] signalConditions() ...
     [14:16:48.027] - Condition #377: 'simpleMessage', 'message', 'condition'
     [14:16:47.709] - include = 'condition'
     [14:16:48.028] - Condition #378: 'simpleMessage', 'message', 'condition'
     [14:16:47.709] - exclude = 'immediateCondition'
     [14:16:48.028] - Condition #379: 'simpleMessage', 'message', 'condition'
     [14:16:47.710] - resignal = FALSE
     [14:16:48.029] - Condition #380: 'simpleMessage', 'message', 'condition'
     [14:16:47.711] - Number of conditions: 2
     [14:16:48.030] - Condition #381: 'simpleMessage', 'message', 'condition'
     [14:16:47.712] - Condition #1: 'simpleMessage', 'message', 'condition'
     [14:16:48.030] - Condition #382: 'simpleMessage', 'message', 'condition'
     sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
     [14:16:48.031] - Condition #383: 'simpleMessage', 'message', 'condition'
     [14:16:47.713] - Condition #2: 'simpleMessage', 'message', 'condition'
     [14:16:48.031] - Condition #384: 'simpleMessage', 'message', 'condition'
     sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
     [14:16:48.032] - Condition #385: 'simpleMessage', 'message', 'condition'
     [14:16:47.714] signalConditions() ... done
     [14:16:48.032] - Condition #386: 'simpleMessage', 'message', 'condition'
     [14:16:47.715] - relayed: [n=2] TRUE, TRUE
     [14:16:48.033] - Condition #387: 'simpleMessage', 'message', 'condition'
     [14:16:47.716] - queued futures: [n=2] TRUE, TRUE
     [14:16:48.033] - Condition #388: 'simpleMessage', 'message', 'condition'
     [14:16:47.717] signalConditionsASAP(MulticoreFuture, pos=2) ... done
     [14:16:48.034] - Condition #389: 'simpleMessage', 'message', 'condition'
     [14:16:47.718] length: 0 (resolved future 2)
     [14:16:48.034] - Condition #390: 'simpleMessage', 'message', 'condition'
     [14:16:47.718] Relaying remaining futures
     [14:16:48.035] - Condition #391: 'simpleMessage', 'message', 'condition'
     [14:16:47.719] signalConditionsASAP(NULL, pos=0) ...
     [14:16:48.036] - Condition #392: 'simpleMessage', 'message', 'condition'
     [14:16:47.720] - nx: 2
     [14:16:48.036] - Condition #393: 'simpleMessage', 'message', 'condition'
     [14:16:47.721] - relay: TRUE
     [14:16:48.037] - Condition #394: 'simpleMessage', 'message', 'condition'
     [14:16:47.722] - stdout: TRUE
     [14:16:48.037] - Condition #395: 'simpleMessage', 'message', 'condition'
     [14:16:47.722] - signal: TRUE
     [14:16:48.038] - Condition #396: 'simpleMessage', 'message', 'condition'
     [14:16:47.723] - resignal: FALSE
     [14:16:48.038] - Condition #397: 'simpleMessage', 'message', 'condition'
     [14:16:47.724] - force: FALSE
     [14:16:48.039] - Condition #398: 'simpleMessage', 'message', 'condition'
     [14:16:47.725] - relayed: [n=2] TRUE, TRUE
     [14:16:48.039] - Condition #399: 'simpleMessage', 'message', 'condition'
     [14:16:47.725] - queued futures: [n=2] TRUE, TRUE
     [14:16:48.040] - Condition #400: 'simpleMessage', 'message', 'condition'
     - flush all
     [14:16:48.040] - Condition #401: 'simpleMessage', 'message', 'condition'
     [14:16:47.727] - relayed: [n=2] TRUE, TRUE
     [14:16:48.041] - Condition #402: 'simpleMessage', 'message', 'condition'
     [14:16:47.728] - queued futures: [n=2] TRUE, TRUE
     [14:16:48.042] - Condition #403: 'simpleMessage', 'message', 'condition'
     [14:16:47.729] signalConditionsASAP(NULL, pos=0) ... done
     [14:16:48.042] - Condition #404: 'simpleMessage', 'message', 'condition'
     [14:16:47.729] resolve() on list ... DONE
     [14:16:48.043] - Condition #405: 'simpleMessage', 'message', 'condition'
     [14:16:47.730] - collecting values of futures
     [14:16:48.043] - Condition #406: 'simpleMessage', 'message', 'condition'
     [14:16:47.731] signalConditions() ...
     [14:16:48.044] - Condition #407: 'simpleMessage', 'message', 'condition'
     [14:16:47.732] - include = 'immediateCondition'
     [14:16:48.044] - Condition #408: 'simpleMessage', 'message', 'condition'
     [14:16:47.733] - exclude =
     [14:16:48.045] - Condition #409: 'simpleMessage', 'message', 'condition'
     [14:16:47.734] - resignal = FALSE
     [14:16:48.046] - Condition #410: 'simpleMessage', 'message', 'condition'
     [14:16:47.734] - Number of conditions: 1
     [14:16:48.046] - Condition #411: 'simpleMessage', 'message', 'condition'
     [14:16:47.735] signalConditions() ... done
     [14:16:48.047] - Condition #412: 'simpleMessage', 'message', 'condition'
     [14:16:47.736] signalConditions() ...
     [14:16:48.047] - Condition #413: 'simpleMessage', 'message', 'condition'
     [14:16:47.737] - include = 'immediateCondition'
     [14:16:48.048] - Condition #414: 'simpleMessage', 'message', 'condition'
     [14:16:47.738] - exclude =
     [14:16:48.049] - Condition #415: 'simpleMessage', 'message', 'condition'
     [14:16:47.739] - resignal = FALSE
     [14:16:48.049] - Condition #416: 'simpleMessage', 'message', 'condition'
     [14:16:47.740] - Number of conditions: 2
     [14:16:48.050] - Condition #417: 'simpleMessage', 'message', 'condition'
     [14:16:47.740] signalConditions() ... done
     [14:16:48.051] - Condition #418: 'simpleMessage', 'message', 'condition'
     [14:16:47.741] - accumulating results
     [14:16:48.051] - Condition #419: 'simpleMessage', 'message', 'condition'
     [14:16:47.744] - processing errors (handler = 'stop')
     [14:16:48.052] - Condition #420: 'simpleMessage', 'message', 'condition'
     [14:16:47.745] - extracting results
     [14:16:48.052] - Condition #421: 'simpleMessage', 'message', 'condition'
     [14:16:47.745] doFuture() ... DONE
     [14:16:48.053] - Condition #422: 'simpleMessage', 'message', 'condition'
     foreach() - level 2 ... DONE
     [14:16:48.054] signalConditions() ... done
     [14:16:48.055] - relayed: [n=1] TRUE
     [14:16:48.055] - queued futures: [n=1] TRUE
     [14:16:48.056] signalConditionsASAP(SequentialFuture, pos=1) ... done
     [14:16:48.056] length: 0 (resolved future 1)
     [14:16:48.057] Relaying remaining futures
     [14:16:48.057] signalConditionsASAP(NULL, pos=0) ...
     [14:16:48.058] - nx: 1
     [14:16:48.058] - relay: TRUE
     [14:16:48.058] - stdout: TRUE
     [14:16:48.059] - signal: TRUE
     [14:16:48.059] - resignal: FALSE
     [14:16:48.060] - force: FALSE
     [14:16:48.060] - relayed: [n=1] TRUE
     [14:16:48.061] - queued futures: [n=1] TRUE
     - flush all
     [14:16:48.061] - relayed: [n=1] TRUE
     [14:16:48.062] - queued futures: [n=1] TRUE
     [14:16:48.062] signalConditionsASAP(NULL, pos=0) ... done
     [14:16:48.063] resolve() on list ... DONE
     [14:16:48.063] - collecting values of futures
     [14:16:48.064] signalConditions() ...
     [14:16:48.064] - include = 'immediateCondition'
     [14:16:48.065] - exclude =
     [14:16:48.065] - resignal = FALSE
     [14:16:48.065] - Number of conditions: 422
     [14:16:48.067] signalConditions() ... done
     [14:16:48.067] - accumulating results
     [14:16:48.069] - processing errors (handler = 'stop')
     [14:16:48.069] - extracting results
     [14:16:48.070] doFuture() ... DONE
     foreach() - level 1 ... DONE
     - plan(list('sequential', 'multicore')) ... DONE
     - plan(list('sequential', 'multisession')) ...
     [14:16:48.072] plan(): Setting new future strategy stack:
     [14:16:48.072] List of future strategies:
     [14:16:48.072] 1. sequential:
     [14:16:48.072] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
     [14:16:48.072] - tweaked: FALSE
     [14:16:48.072] - call: plan(list(a = strategy1, b = strategy2))
     [14:16:48.072] 2. multisession:
     [14:16:48.072] - 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:16:48.072] - tweaked: FALSE
     [14:16:48.072] - call: plan(list(a = strategy1, b = strategy2))
     [14:16:48.074] plan(): nbrOfWorkers() = 1
     foreach() - level 1 ...
     [14:16:48.075] doFuture() ...
     [14:16:48.077] - dummy globals (as locals): [1] 'a'
     [14:16:48.079] - R expression:
     [14:16:48.079] {
     [14:16:48.079] doFuture::registerDoFuture()
     [14:16:48.079] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:48.079] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:48.079] a <- NULL
     [14:16:48.079] ...future.env <- environment()
     [14:16:48.079] local({
     [14:16:48.079] for (name in names(...future.x_jj)) {
     [14:16:48.079] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:48.079] inherits = FALSE)
     [14:16:48.079] }
     [14:16:48.079] })
     [14:16:48.079] tryCatch({
     [14:16:48.079] plan_list <- future::plan("next")
     [14:16:48.079] stopifnot(inherits(plan_list, strategy2))
     [14:16:48.079] plan_a <- future::plan("list")
     [14:16:48.079] str(plan_a)
     [14:16:48.079] stopifnot(inherits(plan_a[[1]], strategy2))
     [14:16:48.079] message("foreach() - level 2 ...")
     [14:16:48.079] y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar%
     [14:16:48.079] {
     [14:16:48.079] plan_list <- future::plan("next")
     [14:16:48.079] message(capture.output(print(plan_list)))
     [14:16:48.079] stopifnot(inherits(plan_list, "future"))
     [14:16:48.079] default <- getOption("future.plan", "sequential")
     [14:16:48.079] if (is.function(default))
     [14:16:48.079] default <- class(default)
     [14:16:48.079] stopifnot(inherits(plan_list, default))
     [14:16:48.079] plan_b <- future::plan("list")
     [14:16:48.079] str(plan_b)
     [14:16:48.079] stopifnot(inherits(plan_b[[1]], "future"),
     [14:16:48.079] inherits(plan_b[[1]], default))
     [14:16:48.079] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:16:48.079] }
     [14:16:48.079] message("foreach() - level 2 ... DONE")
     [14:16:48.079] y
     [14:16:48.079] }, error = identity)
     [14:16:48.079] })
     [14:16:48.079] }
     [14:16:48.081] - identifying globals and packages ...
     [14:16:48.082] getGlobalsAndPackages() ...
     [14:16:48.082] Searching for globals...
     [14:16:48.133] - globals found: [31] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'stopifnot', 'inherits', 'strategy2', 'str', 'message', '%dopar%', 'foreach', 'bs', 'c', 'capture.output', 'print', 'getOption', 'if', 'is.function', 'class', 'list', 'b', 'identity'
     [14:16:48.133] Searching for globals ... DONE
     [14:16:48.134] Resolving globals: FALSE
     [14:16:48.138] The total size of the 3 globals is 184 bytes (184 bytes)
     [14:16:48.139] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
     [14:16:48.139] - packages: [2] 'utils', 'foreach'
     [14:16:48.140] getGlobalsAndPackages() ... DONE
     [14:16:48.140] List of 3
     [14:16:48.140] $ ...future.x_ii: NULL
     [14:16:48.140] $ strategy2 : chr "multisession"
     [14:16:48.140] $ bs : int [1:3] 3 2 1
     [14:16:48.140] - attr(*, "where")=List of 3
     [14:16:48.140] ..$ ...future.x_ii:<environment: 0x374c328>
     [14:16:48.140] ..$ strategy2 :<environment: R_GlobalEnv>
     [14:16:48.140] ..$ bs :<environment: R_GlobalEnv>
     [14:16:48.140] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
     [14:16:48.140] - attr(*, "resolved")= logi FALSE
     [14:16:48.140] - attr(*, "total_size")= num 184
     [14:16:48.156] - R expression:
     [14:16:48.157] {
     [14:16:48.157] doFuture::registerDoFuture()
     [14:16:48.157] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:48.157] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:48.157] a <- NULL
     [14:16:48.157] ...future.env <- environment()
     [14:16:48.157] local({
     [14:16:48.157] for (name in names(...future.x_jj)) {
     [14:16:48.157] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:48.157] inherits = FALSE)
     [14:16:48.157] }
     [14:16:48.157] })
     [14:16:48.157] tryCatch({
     [14:16:48.157] plan_list <- future::plan("next")
     [14:16:48.157] stopifnot(inherits(plan_list, strategy2))
     [14:16:48.157] plan_a <- future::plan("list")
     [14:16:48.157] str(plan_a)
     [14:16:48.157] stopifnot(inherits(plan_a[[1]], strategy2))
     [14:16:48.157] message("foreach() - level 2 ...")
     [14:16:48.157] y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar%
     [14:16:48.157] {
     [14:16:48.157] plan_list <- future::plan("next")
     [14:16:48.157] message(capture.output(print(plan_list)))
     [14:16:48.157] stopifnot(inherits(plan_list, "future"))
     [14:16:48.157] default <- getOption("future.plan", "sequential")
     [14:16:48.157] if (is.function(default))
     [14:16:48.157] default <- class(default)
     [14:16:48.157] stopifnot(inherits(plan_list, default))
     [14:16:48.157] plan_b <- future::plan("list")
     [14:16:48.157] str(plan_b)
     [14:16:48.157] stopifnot(inherits(plan_b[[1]], "future"),
     [14:16:48.157] inherits(plan_b[[1]], default))
     [14:16:48.157] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:16:48.157] }
     [14:16:48.157] message("foreach() - level 2 ... DONE")
     [14:16:48.157] y
     [14:16:48.157] }, error = identity)
     [14:16:48.157] })
     [14:16:48.157] }
     [14:16:48.159] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
     [14:16:48.159] List of 3
     [14:16:48.159] $ ...future.x_ii: NULL
     [14:16:48.159] $ strategy2 : chr "multisession"
     [14:16:48.159] $ bs : int [1:3] 3 2 1
     [14:16:48.159] - attr(*, "where")=List of 3
     [14:16:48.159] ..$ ...future.x_ii:<environment: 0x374c328>
     [14:16:48.159] ..$ strategy2 :<environment: R_GlobalEnv>
     [14:16:48.159] ..$ bs :<environment: R_GlobalEnv>
     [14:16:48.159] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
     [14:16:48.159] - attr(*, "resolved")= logi FALSE
     [14:16:48.159] - attr(*, "total_size")= num 184
     [14:16:48.179] - packages: [3] 'doFuture', 'utils', 'foreach'
     [14:16:48.180] - identifying globals and packages ... DONE
     [14:16:48.180] Number of chunks: 1
     [14:16:48.181] Number of futures (= number of chunks): 1
     [14:16:48.182] Launching 1 futures (chunks) ...
     [14:16:48.183] Chunk #1 of 1 ...
     [14:16:48.183] - Finding globals in 'args_list' chunk #1 ...
     [14:16:48.184] getGlobalsAndPackages() ...
     [14:16:48.184] Searching for globals...
     [14:16:48.185]
     [14:16:48.186] Searching for globals ... DONE
     [14:16:48.186] - globals: [0] <none>
     [14:16:48.187] getGlobalsAndPackages() ... DONE
     [14:16:48.187]
     [14:16:48.187]
     [14:16:48.188] - Finding globals in 'args_list' for chunk #1 ... DONE
     [14:16:48.189] getGlobalsAndPackages() ...
     [14:16:48.189] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
     [14:16:48.190] Resolving globals: FALSE
     [14:16:48.191] The total size of the 3 globals is 296 bytes (296 bytes)
     [14:16:48.192] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
     [14:16:48.192]
     [14:16:48.193] getGlobalsAndPackages() ... DONE
     [14:16:48.196] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
     [14:16:48.197] Packages needed by future strategies (n = 1): 'future'
     [14:16:48.206] {
     [14:16:48.206] {
     [14:16:48.206] ...future.startTime <- base::Sys.time()
     [14:16:48.206] ...future.oldOptions <- base::options(future.startup.script = FALSE,
     [14:16:48.206] future.globals.onMissing = NULL, future.globals.maxSize = NULL,
     [14:16:48.206] future.globals.method = NULL, future.globals.onMissing = NULL,
     [14:16:48.206] future.globals.onReference = NULL, future.globals.resolve = NULL,
     [14:16:48.206] future.resolve.recursive = NULL, width = 80L)
     [14:16:48.206] {
     [14:16:48.206] {
     [14:16:48.206] {
     [14:16:48.206] base::local({
     [14:16:48.206] has_future <- base::requireNamespace("future",
     [14:16:48.206] quietly = TRUE)
     [14:16:48.206] version <- if (has_future)
     [14:16:48.206] utils::packageVersion("future")
     [14:16:48.206] else NULL
     [14:16:48.206] if (!has_future || version < "1.8.0") {
     [14:16:48.206] info <- base::c(r_version = base::gsub("R version ",
     [14:16:48.206] "", base::R.version$version.string),
     [14:16:48.206] platform = base::sprintf("%s (%s-bit)",
     [14:16:48.206] base::R.version$platform, 8 * base::.Machine$sizeof.pointer),
     [14:16:48.206] os = base::paste(base::Sys.info()[base::c("sysname",
     [14:16:48.206] "release", "version")], collapse = " "),
     [14:16:48.206] hostname = base::Sys.info()[["nodename"]])
     [14:16:48.206] info <- base::sprintf("%s: %s", base::names(info),
     [14:16:48.206] info)
     [14:16:48.206] info <- base::paste(info, collapse = "; ")
     [14:16:48.206] if (!has_future) {
     [14:16:48.206] msg <- base::sprintf("Package 'future' is not installed on worker (%s)",
     [14:16:48.206] info)
     [14:16:48.206] }
     [14:16:48.206] else {
     [14:16:48.206] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s",
     [14:16:48.206] info, version)
     [14:16:48.206] }
     [14:16:48.206] base::stop(msg)
     [14:16:48.206] }
     [14:16:48.206] })
     [14:16:48.206] }
     [14:16:48.206] base::local({
     [14:16:48.206] for (pkg in c("doFuture", "utils", "foreach",
     [14:16:48.206] "future")) {
     [14:16:48.206] base::loadNamespace(pkg)
     [14:16:48.206] base::library(pkg, character.only = TRUE)
     [14:16:48.206] }
     [14:16:48.206] })
     [14:16:48.206] }
     [14:16:48.206] future::plan(list(b = function (expr, envir = parent.frame(),
     [14:16:48.206] substitute = TRUE, lazy = FALSE, seed = NULL,
     [14:16:48.206] globals = TRUE, persistent = FALSE, workers = availableCores(),
     [14:16:48.206] gc = FALSE, earlySignal = FALSE, label = NULL,
     [14:16:48.206] ...)
     [14:16:48.206] {
     [14:16:48.206] if (substitute)
     [14:16:48.206] expr <- substitute(expr)
     [14:16:48.206] if (is.function(workers))
     [14:16:48.206] workers <- workers()
     [14:16:48.206] workers <- as.integer(workers)
     [14:16:48.206] stop_if_not(length(workers) == 1, is.finite(workers),
     [14:16:48.206] workers >= 1)
     [14:16:48.206] if (workers == 1L) {
     [14:16:48.206] return(sequential(expr, envir = envir, substitute = FALSE,
     [14:16:48.206] lazy = TRUE, seed = seed, globals = globals,
     [14:16:48.206] local = TRUE, label = label, ...))
     [14:16:48.206] }
     [14:16:48.206] workers <- ClusterRegistry("start", workers = workers)
     [14:16:48.206] future <- MultisessionFuture(expr = expr, envir = envir,
     [14:16:48.206] substitute = FALSE, lazy = lazy, seed = seed,
     [14:16:48.206] globals = globals, persistent = persistent,
     [14:16:48.206] workers = workers, gc = gc, earlySignal = earlySignal,
     [14:16:48.206] label = label, ...)
     [14:16:48.206] if (!future$lazy)
     [14:16:48.206] future <- run(future)
     [14:16:48.206] invisible(future)
     [14:16:48.206] }), .cleanup = FALSE, .init = FALSE)
     [14:16:48.206] }
     [14:16:48.206] }
     [14:16:48.206] if (base::is.na(TRUE)) {
     [14:16:48.206] }
     [14:16:48.206] else {
     [14:16:48.206] if (TRUE) {
     [14:16:48.206] ...future.stdout <- base::rawConnection(base::raw(0L),
     [14:16:48.206] open = "w")
     [14:16:48.206] }
     [14:16:48.206] else {
     [14:16:48.206] ...future.stdout <- base::file(base::switch(.Platform$OS.type,
     [14:16:48.206] windows = "NUL", "/dev/null"), open = "w")
     [14:16:48.206] }
     [14:16:48.206] base::sink(...future.stdout, type = "output", split = FALSE)
     [14:16:48.206] base::on.exit(if (!base::is.null(...future.stdout)) {
     [14:16:48.206] base::sink(type = "output", split = FALSE)
     [14:16:48.206] base::close(...future.stdout)
     [14:16:48.206] }, add = TRUE)
     [14:16:48.206] }
     [14:16:48.206] ...future.frame <- base::sys.nframe()
     [14:16:48.206] ...future.conditions <- base::list()
     [14:16:48.206] ...future.rng <- base::globalenv()$.Random.seed
     [14:16:48.206] ...future.result <- base::tryCatch({
     [14:16:48.206] base::withCallingHandlers({
     [14:16:48.206] ...future.value <- base::withVisible(base::local({
     [14:16:48.206] doFuture::registerDoFuture()
     [14:16:48.206] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:48.206] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:48.206] a <- NULL
     [14:16:48.206] ...future.env <- environment()
     [14:16:48.206] local({
     [14:16:48.206] for (name in names(...future.x_jj)) {
     [14:16:48.206] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:48.206] inherits = FALSE)
     [14:16:48.206] }
     [14:16:48.206] })
     [14:16:48.206] tryCatch({
     [14:16:48.206] plan_list <- future::plan("next")
     [14:16:48.206] stopifnot(inherits(plan_list, strategy2))
     [14:16:48.206] plan_a <- future::plan("list")
     [14:16:48.206] str(plan_a)
     [14:16:48.206] stopifnot(inherits(plan_a[[1]], strategy2))
     [14:16:48.206] message("foreach() - level 2 ...")
     [14:16:48.206] y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar%
     [14:16:48.206] {
     [14:16:48.206] plan_list <- future::plan("next")
     [14:16:48.206] message(capture.output(print(plan_list)))
     [14:16:48.206] stopifnot(inherits(plan_list, "future"))
     [14:16:48.206] default <- getOption("future.plan", "sequential")
     [14:16:48.206] if (is.function(default))
     [14:16:48.206] default <- class(default)
     [14:16:48.206] stopifnot(inherits(plan_list, default))
     [14:16:48.206] plan_b <- future::plan("list")
     [14:16:48.206] str(plan_b)
     [14:16:48.206] stopifnot(inherits(plan_b[[1]], "future"),
     [14:16:48.206] inherits(plan_b[[1]], default))
     [14:16:48.206] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:16:48.206] }
     [14:16:48.206] message("foreach() - level 2 ... DONE")
     [14:16:48.206] y
     [14:16:48.206] }, error = identity)
     [14:16:48.206] })
     [14:16:48.206] }))
     [14:16:48.206] future::FutureResult(value = ...future.value$value,
     [14:16:48.206] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed,
     [14:16:48.206] ...future.rng), started = ...future.startTime,
     [14:16:48.206] version = "1.8")
     [14:16:48.206] }, condition = base::local({
     [14:16:48.206] c <- base::c
     [14:16:48.206] inherits <- base::inherits
     [14:16:48.206] invokeRestart <- base::invokeRestart
     [14:16:48.206] length <- base::length
     [14:16:48.206] list <- base::list
     [14:16:48.206] seq.int <- base::seq.int
     [14:16:48.206] signalCondition <- base::signalCondition
     [14:16:48.206] sys.calls <- base::sys.calls
     [14:16:48.206] Sys.time <- base::Sys.time
     [14:16:48.206] `[[` <- base::`[[`
     [14:16:48.206] `+` <- base::`+`
     [14:16:48.206] `<<-` <- base::`<<-`
     [14:16:48.206] sysCalls <- function(calls = sys.calls(), from = 1L) {
     [14:16:48.206] calls[seq.int(from = from + 12L, to = length(calls) -
     [14:16:48.206] 3L)]
     [14:16:48.206] }
     [14:16:48.206] function(cond) {
     [14:16:48.206] if (inherits(cond, "error")) {
     [14:16:48.206] sessionInformation <- function() {
     [14:16:48.206] list(r = base::R.Version(), locale = base::Sys.getlocale(),
     [14:16:48.206] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(),
     [14:16:48.206] search = base::search(), system = base::Sys.info())
     [14:16:48.206] }
     [14:16:48.206] ...future.conditions[[length(...future.conditions) +
     [14:16:48.206] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame),
     [14:16:48.206] cond$call), session = sessionInformation(),
     [14:16:48.206] timestamp = Sys.time(), signaled = 0L)
     [14:16:48.206] signalCondition(cond)
     [14:16:48.206] }
     [14:16:48.206] else if (inherits(cond, c("condition", "immediateCondition"
     [14:16:48.206] ))) {
     [14:16:48.206] signal <- TRUE && inherits(cond, "immediateCondition")
     [14:16:48.206] ...future.conditions[[length(...future.conditions) +
     [14:16:48.206] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
     [14:16:48.206] if (!signal) {
     [14:16:48.206] muffleCondition <- function (cond)
     [14:16:48.206] {
     [14:16:48.206] inherits <- base::inherits
     [14:16:48.206] invokeRestart <- base::invokeRestart
     [14:16:48.206] muffled <- FALSE
     [14:16:48.206] if (inherits(cond, "message")) {
     [14:16:48.206] invokeRestart("muffleMessage")
     [14:16:48.206] muffled <- TRUE
     [14:16:48.206] }
     [14:16:48.206] else if (inherits(cond, "warning")) {
     [14:16:48.206] invokeRestart("muffleWarning")
     [14:16:48.206] muffled <- TRUE
     [14:16:48.206] }
     [14:16:48.206] else if (inherits(cond, "condition")) {
     [14:16:48.206] computeRestarts <- base::computeRestarts
     [14:16:48.206] grepl <- base::grepl
     [14:16:48.206] is.null <- base::is.null
     [14:16:48.206] restarts <- computeRestarts(cond)
     [14:16:48.206] for (restart in restarts) {
     [14:16:48.206] name <- restart$name
     [14:16:48.206] if (is.null(name))
     [14:16:48.206] next
     [14:16:48.206] if (!grepl("^muffle", name))
     [14:16:48.206] next
     [14:16:48.206] invokeRestart(restart)
     [14:16:48.206] muffled <- TRUE
     [14:16:48.206] break
     [14:16:48.206] }
     [14:16:48.206] }
     [14:16:48.206] invisible(muffled)
     [14:16:48.206] }
     [14:16:48.206] muffleCondition(cond)
     [14:16:48.206] }
     [14:16:48.206] }
     [14:16:48.206] }
     [14:16:48.206] }))
     [14:16:48.206] }, error = function(ex) {
     [14:16:48.206] base::structure(base::list(value = NULL, visible = NULL,
     [14:16:48.206] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed,
     [14:16:48.206] ...future.rng), version = "1.8"), class = "FutureResult")
     [14:16:48.206] }, finally = {
     [14:16:48.206] {
     [14:16:48.206] NULL
     [14:16:48.206] future::plan(list(a = function (expr, envir = parent.frame(),
     [14:16:48.206] substitute = TRUE, lazy = FALSE, seed = NULL,
     [14:16:48.206] globals = TRUE, local = TRUE, earlySignal = FALSE,
     [14:16:48.206] label = NULL, ...)
     [14:16:48.206] {
     [14:16:48.206] if (substitute)
     [14:16:48.206] expr <- substitute(expr)
     [14:16:48.206] local <- as.logical(local)
     [14:16:48.206] future <- SequentialFuture(expr = expr, envir = envir,
     [14:16:48.206] substitute = FALSE, lazy = lazy, seed = seed,
     [14:16:48.206] globals = globals, local = local, earlySignal = earlySignal,
     [14:16:48.206] label = label, ...)
     [14:16:48.206] if (!future$lazy)
     [14:16:48.206] future <- run(future)
     [14:16:48.206] invisible(future)
     [14:16:48.206] }, b = function (expr, envir = parent.frame(), substitute = TRUE,
     [14:16:48.206] lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE,
     [14:16:48.206] workers = availableCores(), gc = FALSE, earlySignal = FALSE,
     [14:16:48.206] label = NULL, ...)
     [14:16:48.206] {
     [14:16:48.206] if (substitute)
     [14:16:48.206] expr <- substitute(expr)
     [14:16:48.206] if (is.function(workers))
     [14:16:48.206] workers <- workers()
     [14:16:48.206] workers <- as.integer(workers)
     [14:16:48.206] stop_if_not(length(workers) == 1, is.finite(workers),
     [14:16:48.206] workers >= 1)
     [14:16:48.206] if (workers == 1L) {
     [14:16:48.206] return(sequential(expr, envir = envir, substitute = FALSE,
     [14:16:48.206] lazy = TRUE, seed = seed, globals = globals,
     [14:16:48.206] local = TRUE, label = label, ...))
     [14:16:48.206] }
     [14:16:48.206] workers <- ClusterRegistry("start", workers = workers)
     [14:16:48.206] future <- MultisessionFuture(expr = expr, envir = envir,
     [14:16:48.206] substitute = FALSE, lazy = lazy, seed = seed,
     [14:16:48.206] globals = globals, persistent = persistent,
     [14:16:48.206] workers = workers, gc = gc, earlySignal = earlySignal,
     [14:16:48.206] label = label, ...)
     [14:16:48.206] if (!future$lazy)
     [14:16:48.206] future <- run(future)
     [14:16:48.206] invisible(future)
     [14:16:48.206] }), .cleanup = FALSE, .init = FALSE)
     [14:16:48.206] }
     [14:16:48.206] base::options(...future.oldOptions)
     [14:16:48.206] })
     [14:16:48.206] Sys.time
     [14:16:48.206] if (base::is.na(TRUE)) {
     [14:16:48.206] }
     [14:16:48.206] else {
     [14:16:48.206] base::sink(type = "output", split = FALSE)
     [14:16:48.206] if (TRUE) {
     [14:16:48.206] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
     [14:16:48.206] }
     [14:16:48.206] else {
     [14:16:48.206] ...future.result["stdout"] <- base::list(NULL)
     [14:16:48.206] }
     [14:16:48.206] base::close(...future.stdout)
     [14:16:48.206] ...future.stdout <- NULL
     [14:16:48.206] }
     [14:16:48.206] ...future.result$conditions <- ...future.conditions
     [14:16:48.206] ...future.result
     [14:16:48.206] }
     [14:16:48.221] plan(): Setting new future strategy stack:
     [14:16:48.221] List of future strategies:
     [14:16:48.221] 1. multisession:
     [14:16:48.221] - 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:16:48.221] - tweaked: FALSE
     [14:16:48.221] - call: plan(list(a = strategy1, b = strategy2))
     [14:16:48.224] plan(): nbrOfWorkers() = 2
     [14:17:08.345] plan(): Setting new future strategy stack:
     [14:17:08.346] List of future strategies:
     [14:17:08.346] 1. sequential:
     [14:17:08.346] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
     [14:17:08.346] - tweaked: FALSE
     [14:17:08.346] - call: plan(list(a = strategy1, b = strategy2))
     [14:17:08.346] 2. multisession:
     [14:17:08.346] - 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:17:08.346] - tweaked: FALSE
     [14:17:08.346] - call: plan(list(a = strategy1, b = strategy2))
     [14:17:08.348] plan(): nbrOfWorkers() = 1
     [14:17:08.350] SequentialFuture started (and completed)
     [14:17:08.351] signalConditions() ...
     [14:17:08.351] - include = 'immediateCondition'
     [14:17:08.358] - exclude =
     [14:17:08.359] - resignal = FALSE
     [14:17:08.359] - Number of conditions: 604
     [14:17:08.362] signalConditions() ... done
     [14:17:08.363] Chunk #1 of 1 ... DONE
     [14:17:08.363] Launching 1 futures (chunks) ... DONE
     [14:17:08.364] - resolving futures
     [14:17:08.364] - gathering results & relaying conditions (except errors)
     [14:17:08.365] resolve() on list ...
     [14:17:08.365] recursive: 0
     [14:17:08.365] length: 1
     [14:17:08.366]
     [14:17:08.366] Future #1
     [14:17:08.367] signalConditions() ...
     [14:17:08.367] - include = 'immediateCondition'
     [14:17:08.368] - exclude =
     [14:17:08.368] - resignal = FALSE
     [14:17:08.369] - Number of conditions: 604
     [14:17:08.372] signalConditions() ... done
     [14:17:08.373] signalConditionsASAP(SequentialFuture, pos=1) ...
     [14:17:08.373] - nx: 1
     [14:17:08.374] - relay: TRUE
     [14:17:08.374] - stdout: TRUE
     [14:17:08.375] - signal: TRUE
     [14:17:08.375] - resignal: FALSE
     [14:17:08.375] - force: FALSE
     [14:17:08.376] - relayed: [n=1] FALSE
     [14:17:08.376] - queued futures: [n=1] FALSE
     [14:17:08.377] - until=1
     [14:17:08.377] - relaying element #1
     [14:17:08.378] signalConditions() ...
     [14:17:08.378] - include = 'immediateCondition'
     [14:17:08.379] - exclude =
     [14:17:08.379] - resignal = FALSE
     [14:17:08.380] - Number of conditions: 604
     [14:17:08.383] signalConditions() ... done
     List of 1
     $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(),
     gc = FALSE, earlySignal = FALSE, label = NULL, ...)
     ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
     ..- attr(*, "init")= logi TRUE
     ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     List of 1
     $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL,
     ...)
     ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     List of 1
     $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL,
     ...)
     ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     List of 1
     $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL,
     ...)
     ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     List of 1
     $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(),
     gc = FALSE, earlySignal = FALSE, label = NULL, ...)
     ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
     ..- attr(*, "init")= logi TRUE
     ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     List of 1
     $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL,
     ...)
     ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     List of 1
     $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL,
     ...)
     ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     List of 1
     $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL,
     ...)
     ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     [14:17:08.384] signalConditions() ...
     [14:17:08.384] - include = 'immediateCondition'
     [14:17:08.385] - exclude =
     [14:17:08.385] - resignal = FALSE
     [14:17:08.385] - Number of conditions: 604
     [14:17:08.388] signalConditions() ... done
     [14:17:08.389] signalConditions() ...
     [14:17:08.389] - include = 'condition'
     [14:17:08.390] - exclude = 'immediateCondition'
     [14:17:08.390] - resignal = FALSE
     [14:17:08.391] - Number of conditions: 604
     [14:17:08.391] - Condition #1: 'simpleMessage', 'message', 'condition'
     foreach() - level 2 ...
     [14:17:08.392] - Condition #2: 'simpleMessage', 'message', 'condition'
     [14:16:48.235] doFuture() ...
     [14:17:08.393] - Condition #3: 'simpleMessage', 'message', 'condition'
     [14:16:48.238] - dummy globals (as locals): [1] 'b'
     [14:17:08.393] - Condition #4: 'simpleMessage', 'message', 'condition'
     [14:16:48.239] - R expression:
     [14:17:08.394] - Condition #5: 'simpleMessage', 'message', 'condition'
     [14:16:48.240] {
     [14:16:48.240] doFuture::registerDoFuture()
     [14:16:48.240] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:48.240] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:48.240] b <- NULL
     [14:16:48.240] ...future.env <- environment()
     [14:16:48.240] local({
     [14:16:48.240] for (name in names(...future.x_jj)) {
     [14:16:48.240] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:48.240] inherits = FALSE)
     [14:16:48.240] }
     [14:16:48.240] })
     [14:16:48.240] tryCatch({
     [14:16:48.240] plan_list <- future::plan("next")
     [14:16:48.240] message(capture.output(print(plan_list)))
     [14:16:48.240] stopifnot(inherits(plan_list, "future"))
     [14:16:48.240] default <- getOption("future.plan", "sequential")
     [14:16:48.240] if (is.function(default))
     [14:16:48.240] default <- class(default)
     [14:16:48.240] stopifnot(inherits(plan_list, default))
     [14:16:48.240] plan_b <- future::plan("list")
     [14:16:48.240] str(plan_b)
     [14:16:48.240] stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]],
     [14:16:48.240] default))
     [14:16:48.240] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:16:48.240] }, error = identity)
     [14:16:48.240] })
     [14:16:48.240] }
     [14:17:08.395] - Condition #6: 'simpleMessage', 'message', 'condition'
     [14:16:48.242] - identifying globals and packages ...
     [14:17:08.395] - Condition #7: 'simpleMessage', 'message', 'condition'
     [14:16:48.243] getGlobalsAndPackages() ...
     [14:17:08.396] - Condition #8: 'simpleMessage', 'message', 'condition'
     [14:16:48.243] Searching for globals...
     [14:17:08.397] - Condition #9: 'simpleMessage', 'message', 'condition'
     [14:16:48.286] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
     [14:17:08.397] - Condition #10: 'simpleMessage', 'message', 'condition'
     [14:16:48.287] Searching for globals ... DONE
     [14:17:08.398] - Condition #11: 'simpleMessage', 'message', 'condition'
     [14:16:48.288] Resolving globals: FALSE
     [14:17:08.399] - Condition #12: 'simpleMessage', 'message', 'condition'
     [14:16:48.292] The total size of the 3 globals is 81.59 KiB (83544 bytes)
     [14:17:08.399] - Condition #13: 'simpleMessage', 'message', 'condition'
     [14:16:48.293] - globals: [3] '...future.x_ii', 'a', 'plan_a'
     [14:17:08.400] - Condition #14: 'simpleMessage', 'message', 'condition'
     [14:16:48.294] - packages: [1] 'utils'
     [14:17:08.401] - Condition #15: 'simpleMessage', 'message', 'condition'
     [14:16:48.295] getGlobalsAndPackages() ... DONE
     [14:17:08.401] - Condition #16: 'simpleMessage', 'message', 'condition'
     [14:16:48.296] List of 3
     [14:16:48.296] $ ...future.x_ii: NULL
     [14:16:48.296] $ a : int 1
     [14:16:48.296] $ plan_a :List of 1
     [14:16:48.296] ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     [14:16:48.296] seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(),
     [14:16:48.296] gc = FALSE, earlySignal = FALSE, label = NULL, ...)
     [14:16:48.296] .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
     [14:16:48.296] .. ..- attr(*, "init")= logi TRUE
     [14:16:48.296] .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
     [14:16:48.296] ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     [14:16:48.296] - attr(*, "where")=List of 3
     [14:16:48.296] ..$ ...future.x_ii:<environment: 0x32674d0>
     [14:16:48.296] ..$ a :<environment: 0x24f6808>
     [14:16:48.296] ..$ plan_a :<environment: 0x24f6808>
     [14:16:48.296] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
     [14:16:48.296] - attr(*, "resolved")= logi FALSE
     [14:16:48.296] - attr(*, "total_size")= num 83544
     [14:17:08.402] - Condition #17: 'simpleMessage', 'message', 'condition'
     [14:16:48.318] - R expression:
     [14:17:08.403] - Condition #18: 'simpleMessage', 'message', 'condition'
     [14:16:48.318] {
     [14:16:48.318] doFuture::registerDoFuture()
     [14:16:48.318] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:16:48.318] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:16:48.318] b <- NULL
     [14:16:48.318] ...future.env <- environment()
     [14:16:48.318] local({
     [14:16:48.318] for (name in names(...future.x_jj)) {
     [14:16:48.318] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:16:48.318] inherits = FALSE)
     [14:16:48.318] }
     [14:16:48.318] })
     [14:16:48.318] tryCatch({
     [14:16:48.318] plan_list <- future::plan("next")
     [14:16:48.318] message(capture.output(print(plan_list)))
     [14:16:48.318] stopifnot(inherits(plan_list, "future"))
     [14:16:48.318] default <- getOption("future.plan", "sequential")
     [14:16:48.318] if (is.function(default))
     [14:16:48.318] default <- class(default)
     [14:16:48.318] stopifnot(inherits(plan_list, default))
     [14:16:48.318] plan_b <- future::plan("list")
     [14:16:48.318] str(plan_b)
     [14:16:48.318] stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]],
     [14:16:48.318] default))
     [14:16:48.318] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:16:48.318] }, error = identity)
     [14:16:48.318] })
     [14:16:48.318] }
     [14:17:08.403] - Condition #19: 'simpleMessage', 'message', 'condition'
     [14:16:48.321] - globals: [3] '...future.x_ii', 'a', 'plan_a'
     [14:17:08.404] - Condition #20: 'simpleMessage', 'message', 'condition'
     [14:16:48.322] List of 3
     [14:16:48.322] $ ...future.x_ii: NULL
     [14:16:48.322] $ a : int 1
     [14:16:48.322] $ plan_a :List of 1
     [14:16:48.322] ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     [14:16:48.322] seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(),
     [14:16:48.322] gc = FALSE, earlySignal = FALSE, label = NULL, ...)
     [14:16:48.322] .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
     [14:16:48.322] .. ..- attr(*, "init")= logi TRUE
     [14:16:48.322] .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
     [14:16:48.322] ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     [14:16:48.322] - attr(*, "where")=List of 3
     [14:16:48.322] ..$ ...future.x_ii:<environment: 0x32674d0>
     [14:16:48.322] ..$ a :<environment: 0x24f6808>
     [14:16:48.322] ..$ plan_a :<environment: 0x24f6808>
     [14:16:48.322] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
     [14:16:48.322] - attr(*, "resolved")= logi FALSE
     [14:16:48.322] - attr(*, "total_size")= num 83544
     [14:17:08.405] - Condition #21: 'simpleMessage', 'message', 'condition'
     [14:16:48.341] - packages: [2] 'doFuture', 'utils'
     [14:17:08.405] - Condition #22: 'simpleMessage', 'message', 'condition'
     [14:16:48.341] - identifying globals and packages ... DONE
     [14:17:08.406] - Condition #23: 'simpleMessage', 'message', 'condition'
     [14:16:48.344] Number of chunks: 2
     [14:17:08.407] - Condition #24: 'simpleMessage', 'message', 'condition'
     [14:16:48.345] Number of futures (= number of chunks): 2
     [14:17:08.407] - Condition #25: 'simpleMessage', 'message', 'condition'
     [14:16:48.346] Launching 2 futures (chunks) ...
     [14:17:08.408] - Condition #26: 'simpleMessage', 'message', 'condition'
     [14:16:48.347] Chunk #1 of 2 ...
     [14:17:08.408] - Condition #27: 'simpleMessage', 'message', 'condition'
     [14:16:48.347] - Finding globals in 'args_list' chunk #1 ...
     [14:17:08.409] - Condition #28: 'simpleMessage', 'message', 'condition'
     [14:16:48.348] getGlobalsAndPackages() ...
     [14:17:08.410] - Condition #29: 'simpleMessage', 'message', 'condition'
     [14:16:48.349] Searching for globals...
     [14:17:08.410] - Condition #30: 'simpleMessage', 'message', 'condition'
     [14:16:48.351]
     [14:17:08.411] - Condition #31: 'simpleMessage', 'message', 'condition'
     [14:16:48.351] Searching for globals ... DONE
     [14:17:08.412] - Condition #32: 'simpleMessage', 'message', 'condition'
     [14:16:48.352] - globals: [0] <none>
     [14:17:08.412] - Condition #33: 'simpleMessage', 'message', 'condition'
     [14:16:48.353] getGlobalsAndPackages() ... DONE
     [14:17:08.413] - Condition #34: 'simpleMessage', 'message', 'condition'
     [14:16:48.357]
     [14:17:08.414] - Condition #35: 'simpleMessage', 'message', 'condition'
     [14:16:48.358]
     [14:17:08.414] - Condition #36: 'simpleMessage', 'message', 'condition'
     [14:16:48.359] - Finding globals in 'args_list' for chunk #1 ... DONE
     [14:17:08.415] - Condition #37: 'simpleMessage', 'message', 'condition'
     [local output] Workers: [n = 2] 'localhost', 'localhost'
     [14:17:08.416] - Condition #38: 'simpleMessage', 'message', 'condition'
     [local output] Base port: 23594
     [14:17:08.416] - Condition #39: 'simpleMessage', 'message', 'condition'
     [local output] Creating node 1 of 2 ...
     [14:17:08.417] - Condition #40: 'simpleMessage', 'message', 'condition'
     [local output] - setting up node
     [14:17:08.418] - Condition #41: 'simpleMessage', 'message', 'condition'
     Testing if worker's PID can be inferred: ''/data/gannet/ripley/R/R-devel/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpbwHFwL/working_dir/Rtmp7SSAWH/future.parent=687619.a7e034aacb7.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpbwHFwL/working_dir/Rtmp7SSAWH/future.parent=687619.a7e034aacb7.pid')"'
     [14:17:08.418] - Condition #42: 'simpleMessage', 'message', 'condition'
     - Possible to infer worker's PID: TRUE
     [14:17:08.419] - Condition #43: 'simpleMessage', 'message', 'condition'
     [local output] Starting worker #1 on 'localhost': '/data/gannet/ripley/R/R-devel/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:687619:gannet.stats.ox.ac.uk:ripley' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpbwHFwL/working_dir/Rtmp7SSAWH/future.parent=687619.a7e034aacb7.pid")), silent = TRUE)' -e 'workRSOCK <- tryCatch(parallel:::.slaveRSOCK, error=function(e) parallel:::.workRSOCK); workRSOCK()' MASTER=localhost PORT=23594 OUT=/dev/null TIMEOUT=120 XDR=TRUE
     [14:17:08.419] - Condition #44: 'simpleMessage', 'message', 'condition'
     [local output] - Exit code of system() call: 0
     [14:17:08.420] - Condition #45: 'simpleMessage', 'message', 'condition'
     [local output] Waiting for worker #1 on 'localhost' to connect back
     [14:17:08.420] - Condition #46: 'simpleMessage', 'message', 'condition'
     [local output] Connection with worker #1 on 'localhost' established
     [14:17:08.421] - Condition #47: 'simpleMessage', 'message', 'condition'
     [local output] - collecting session information
     [14:17:08.421] - Condition #48: 'simpleMessage', 'message', 'condition'
     [local output] Creating node 1 of 2 ... done
     [14:17:08.422] - Condition #49: 'simpleMessage', 'message', 'condition'
     [local output] Creating node 2 of 2 ...
     [14:17:08.423] - Condition #50: 'simpleMessage', 'message', 'condition'
     [local output] - setting up node
     [14:17:08.423] - Condition #51: 'simpleMessage', 'message', 'condition'
     Testing if worker's PID can be inferred: ''/data/gannet/ripley/R/R-devel/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpbwHFwL/working_dir/Rtmp7SSAWH/future.parent=687619.a7e03412f881.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpbwHFwL/working_dir/Rtmp7SSAWH/future.parent=687619.a7e03412f881.pid')"'
     [14:17:08.424] - Condition #52: 'simpleMessage', 'message', 'condition'
     - Possible to infer worker's PID: TRUE
     [14:17:08.424] - Condition #53: 'simpleMessage', 'message', 'condition'
     [local output] Starting worker #2 on 'localhost': '/data/gannet/ripley/R/R-devel/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:687619:gannet.stats.ox.ac.uk:ripley' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpbwHFwL/working_dir/Rtmp7SSAWH/future.parent=687619.a7e03412f881.pid")), silent = TRUE)' -e 'workRSOCK <- tryCatch(parallel:::.slaveRSOCK, error=function(e) parallel:::.workRSOCK); workRSOCK()' MASTER=localhost PORT=23594 OUT=/dev/null TIMEOUT=120 XDR=TRUE
     [14:17:08.425] - Condition #54: 'simpleMessage', 'message', 'condition'
     [local output] - Exit code of system() call: 0
     [14:17:08.425] - Condition #55: 'simpleMessage', 'message', 'condition'
     [local output] Waiting for worker #2 on 'localhost' to connect back
     [14:17:08.426] - Condition #56: 'simpleMessage', 'message', 'condition'
     [local output] Connection with worker #2 on 'localhost' established
     [14:17:08.426] - Condition #57: 'simpleMessage', 'message', 'condition'
     [local output] - collecting session information
     [14:17:08.427] - Condition #58: 'simpleMessage', 'message', 'condition'
     [local output] Creating node 2 of 2 ... done
     [14:17:08.428] - Condition #59: 'simpleMessage', 'message', 'condition'
     [14:17:07.015] getGlobalsAndPackages() ...
     [14:17:08.433] - Condition #60: 'simpleMessage', 'message', 'condition'
     [14:17:07.016] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
     [14:17:08.434] - Condition #61: 'simpleMessage', 'message', 'condition'
     [14:17:07.017] Resolving globals: FALSE
     [14:17:08.435] - Condition #62: 'simpleMessage', 'message', 'condition'
     [14:17:07.019] The total size of the 3 globals is 81.64 KiB (83600 bytes)
     [14:17:08.436] - Condition #63: 'simpleMessage', 'message', 'condition'
     [14:17:07.020] - globals: [3] '...future.x_ii', 'a', 'plan_a'
     [14:17:08.436] - Condition #64: 'simpleMessage', 'message', 'condition'
     [14:17:07.021]
     [14:17:08.437] - Condition #65: 'simpleMessage', 'message', 'condition'
     [14:17:07.022] getGlobalsAndPackages() ... DONE
     [14:17:08.438] - Condition #66: 'simpleMessage', 'message', 'condition'
     [14:17:07.044] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
     [14:17:08.439] - Condition #67: 'simpleMessage', 'message', 'condition'
     [14:17:07.045] Packages needed by future strategies (n = 0): <none>
     [14:17:08.439] - Condition #68: 'simpleMessage', 'message', 'condition'
     [14:17:07.055] {
     [14:17:07.055] {
     [14:17:07.055] ...future.startTime <- base::Sys.time()
     [14:17:07.055] ...future.oldOptions <- base::options(future.startup.script = FALSE,
     [14:17:07.055] future.globals.onMissing = NULL, future.globals.maxSize = NULL,
     [14:17:07.055] future.globals.method = NULL, future.globals.onMissing = NULL,
     [14:17:07.055] future.globals.onReference = NULL, future.globals.resolve = NULL,
     [14:17:07.055] future.resolve.recursive = NULL, width = 80L)
     [14:17:07.055] {
     [14:17:07.055] {
     [14:17:07.055] {
     [14:17:07.055] {
     [14:17:07.055] base::local({
     [14:17:07.055] has_future <- base::requireNamespace("future",
     [14:17:07.055] quietly = TRUE)
     [14:17:07.055] version <- if (has_future)
     [14:17:07.055] utils::packageVersion("future")
     [14:17:07.055] else NULL
     [14:17:07.055] if (!has_future || version < "1.8.0") {
     [14:17:07.055] info <- base::c(r_version = base::gsub("R version ",
     [14:17:07.055] "", base::R.version$version.string),
     [14:17:07.055] platform = base::sprintf("%s (%s-bit)",
     [14:17:07.055] base::R.version$platform, 8 * base::.Machine$sizeof.pointer),
     [14:17:07.055] os = base::paste(base::Sys.info()[base::c("sysname",
     [14:17:07.055] "release", "version")], collapse = " "),
     [14:17:07.055] hostname = base::Sys.info()[["nodename"]])
     [14:17:07.055] info <- base::sprintf("%s: %s", base::names(info),
     [14:17:07.055] info)
     [14:17:07.055] info <- base::paste(info, collapse = "; ")
     [14:17:07.055] if (!has_future) {
     [14:17:07.055] msg <- base::sprintf("Package 'future' is not installed on worker (%s)",
     [14:17:07.055] info)
     [14:17:07.055] }
     [14:17:07.055] else {
     [14:17:07.055] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s",
     [14:17:07.055] info, version)
     [14:17:07.055] }
     [14:17:07.055] base::stop(msg)
     [14:17:07.055] }
     [14:17:07.055] })
     [14:17:07.055] }
     [14:17:07.055] ...future.mc.cores.old <- base::getOption("mc.cores")
     [14:17:07.055] base::options(mc.cores = 1L)
     [14:17:07.055] }
     [14:17:07.055] base::local({
     [14:17:07.055] for (pkg in c("doFuture", "utils")) {
     [14:17:07.055] base::loadNamespace(pkg)
     [14:17:07.055] base::library(pkg, character.only = TRUE)
     [14:17:07.055] }
     [14:17:07.055] })
     [14:17:07.055] }
     [14:17:07.055] future::plan("default", .cleanup = FALSE, .init = FALSE)
     [14:17:07.055] }
     [14:17:07.055] }
     [14:17:07.055] if (base::is.na(TRUE)) {
     [14:17:07.055] }
     [14:17:07.055] else {
     [14:17:07.055] if (TRUE) {
     [14:17:07.055] ...future.stdout <- base::rawConnection(base::raw(0L),
     [14:17:07.055] open = "w")
     [14:17:07.055] }
     [14:17:07.055] else {
     [14:17:07.055] ...future.stdout <- base::file(base::switch(.Platform$OS.type,
     [14:17:07.055] windows = "NUL", "/dev/null"), open = "w")
     [14:17:07.055] }
     [14:17:07.055] base::sink(...future.stdout, type = "output", split = FALSE)
     [14:17:07.055] base::on.exit(if (!base::is.null(...future.stdout)) {
     [14:17:07.055] base::sink(type = "output", split = FALSE)
     [14:17:07.055] base::close(...future.stdout)
     [14:17:07.055] }, add = TRUE)
     [14:17:07.055] }
     [14:17:07.055] ...future.frame <- base::sys.nframe()
     [14:17:07.055] ...future.conditions <- base::list()
     [14:17:07.055] ...future.rng <- base::globalenv()$.Random.seed
     [14:17:07.055] ...future.result <- base::tryCatch({
     [14:17:07.055] base::withCallingHandlers({
     [14:17:07.055] ...future.value <- base::withVisible(base::local({
     [14:17:07.055] ...future.sendCondition <- local({
     [14:17:07.055] sendCondition <- NULL
     [14:17:07.055] function(frame = 1L) {
     [14:17:07.055] if (is.function(sendCondition))
     [14:17:07.055] return(sendCondition)
     [14:17:07.055] ns <- getNamespace("parallel")
     [14:17:07.055] if (exists("sendData", mode = "function",
     [14:17:07.055] envir = ns)) {
     [14:17:07.055] parallel_sendData <- get("sendData", mode = "function",
     [14:17:07.055] envir = ns)
     [14:17:07.055] envir <- sys.frame(frame)
     [14:17:07.055] master <- NULL
     [14:17:07.055] while (!identical(envir, .GlobalEnv) &&
     [14:17:07.055] !identical(envir, emptyenv())) {
     [14:17:07.055] if (exists("master", mode = "list", envir = envir,
     [14:17:07.055] inherits = FALSE)) {
     [14:17:07.055] master <- get("master", mode = "list",
     [14:17:07.055] envir = envir, inherits = FALSE)
     [14:17:07.055] if (inherits(master, "SOCKnode")) {
     [14:17:07.055] sendCondition <<- function(cond) {
     [14:17:07.055] data <- list(type = "VALUE", value = cond,
     [14:17:07.055] success = TRUE)
     [14:17:07.055] parallel_sendData(master, data)
     [14:17:07.055] }
     [14:17:07.055] return(sendCondition)
     [14:17:07.055] }
     [14:17:07.055] }
     [14:17:07.055] frame <- frame + 1L
     [14:17:07.055] envir <- sys.frame(frame)
     [14:17:07.055] }
     [14:17:07.055] }
     [14:17:07.055] sendCondition <<- function(cond) NULL
     [14:17:07.055] }
     [14:17:07.055] })
     [14:17:07.055] withCallingHandlers({
     [14:17:07.055] {
     [14:17:07.055] doFuture::registerDoFuture()
     [14:17:07.055] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:17:07.055] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:17:07.055] b <- NULL
     [14:17:07.055] ...future.env <- environment()
     [14:17:07.055] local({
     [14:17:07.055] for (name in names(...future.x_jj)) {
     [14:17:07.055] assign(name, ...future.x_jj[[name]],
     [14:17:07.055] envir = ...future.env, inherits = FALSE)
     [14:17:07.055] }
     [14:17:07.055] })
     [14:17:07.055] tryCatch({
     [14:17:07.055] plan_list <- future::plan("next")
     [14:17:07.055] message(capture.output(print(plan_list)))
     [14:17:07.055] stopifnot(inherits(plan_list, "future"))
     [14:17:07.055] default <- getOption("future.plan", "sequential")
     [14:17:07.055] if (is.function(default))
     [14:17:07.055] default <- class(default)
     [14:17:07.055] stopifnot(inherits(plan_list, default))
     [14:17:07.055] plan_b <- future::plan("list")
     [14:17:07.055] str(plan_b)
     [14:17:07.055] stopifnot(inherits(plan_b[[1]], "future"),
     [14:17:07.055] inherits(plan_b[[1]], default))
     [14:17:07.055] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:17:07.055] }, error = identity)
     [14:17:07.055] })
     [14:17:07.055] }
     [14:17:07.055] }, immediateCondition = function(cond) {
     [14:17:07.055] sendCondition <- ...future.sendCondition()
     [14:17:07.055] sendCondition(cond)
     [14:17:07.055] muffleCondition <- function (cond)
     [14:17:07.055] {
     [14:17:07.055] inherits <- base::inherits
     [14:17:07.055] invokeRestart <- base::invokeRestart
     [14:17:07.055] muffled <- FALSE
     [14:17:07.055] if (inherits(cond, "message")) {
     [14:17:07.055] invokeRestart("muffleMessage")
     [14:17:07.055] muffled <- TRUE
     [14:17:07.055] }
     [14:17:07.055] else if (inherits(cond, "warning")) {
     [14:17:07.055] invokeRestart("muffleWarning")
     [14:17:07.055] muffled <- TRUE
     [14:17:07.055] }
     [14:17:07.055] else if (inherits(cond, "condition")) {
     [14:17:07.055] computeRestarts <- base::computeRestarts
     [14:17:07.055] grepl <- base::grepl
     [14:17:07.055] is.null <- base::is.null
     [14:17:07.055] restarts <- computeRestarts(cond)
     [14:17:07.055] for (restart in restarts) {
     [14:17:07.055] name <- restart$name
     [14:17:07.055] if (is.null(name))
     [14:17:07.055] next
     [14:17:07.055] if (!grepl("^muffle", name))
     [14:17:07.055] next
     [14:17:07.055] invokeRestart(restart)
     [14:17:07.055] muffled <- TRUE
     [14:17:07.055] break
     [14:17:07.055] }
     [14:17:07.055] }
     [14:17:07.055] invisible(muffled)
     [14:17:07.055] }
     [14:17:07.055] muffleCondition(cond)
     [14:17:07.055] })
     [14:17:07.055] }))
     [14:17:07.055] future::FutureResult(value = ...future.value$value,
     [14:17:07.055] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed,
     [14:17:07.055] ...future.rng), started = ...future.startTime,
     [14:17:07.055] version = "1.8")
     [14:17:07.055] }, condition = base::local({
     [14:17:07.055] c <- base::c
     [14:17:07.055] inherits <- base::inherits
     [14:17:07.055] invokeRestart <- base::invokeRestart
     [14:17:07.055] length <- base::length
     [14:17:07.055] list <- base::list
     [14:17:07.055] seq.int <- base::seq.int
     [14:17:07.055] signalCondition <- base::signalCondition
     [14:17:07.055] sys.calls <- base::sys.calls
     [14:17:07.055] Sys.time <- base::Sys.time
     [14:17:07.055] `[[` <- base::`[[`
     [14:17:07.055] `+` <- base::`+`
     [14:17:07.055] `<<-` <- base::`<<-`
     [14:17:07.055] sysCalls <- function(calls = sys.calls(), from = 1L) {
     [14:17:07.055] calls[seq.int(from = from + 12L, to = length(calls) -
     [14:17:07.055] 3L)]
     [14:17:07.055] }
     [14:17:07.055] function(cond) {
     [14:17:07.055] if (inherits(cond, "error")) {
     [14:17:07.055] sessionInformation <- function() {
     [14:17:07.055] list(r = base::R.Version(), locale = base::Sys.getlocale(),
     [14:17:07.055] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(),
     [14:17:07.055] search = base::search(), system = base::Sys.info())
     [14:17:07.055] }
     [14:17:07.055] ...future.conditions[[length(...future.conditions) +
     [14:17:07.055] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame),
     [14:17:07.055] cond$call), session = sessionInformation(),
     [14:17:07.055] timestamp = Sys.time(), signaled = 0L)
     [14:17:07.055] signalCondition(cond)
     [14:17:07.055] }
     [14:17:07.055] else if (inherits(cond, c("condition", "immediateCondition"
     [14:17:07.055] ))) {
     [14:17:07.055] signal <- TRUE && inherits(cond, "immediateCondition")
     [14:17:07.055] ...future.conditions[[length(...future.conditions) +
     [14:17:07.055] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
     [14:17:07.055] if (!signal) {
     [14:17:07.055] muffleCondition <- function (cond)
     [14:17:07.055] {
     [14:17:07.055] inherits <- base::inherits
     [14:17:07.055] invokeRestart <- base::invokeRestart
     [14:17:07.055] muffled <- FALSE
     [14:17:07.055] if (inherits(cond, "message")) {
     [14:17:07.055] invokeRestart("muffleMessage")
     [14:17:07.055] muffled <- TRUE
     [14:17:07.055] }
     [14:17:07.055] else if (inherits(cond, "warning")) {
     [14:17:07.055] invokeRestart("muffleWarning")
     [14:17:07.055] muffled <- TRUE
     [14:17:07.055] }
     [14:17:07.055] else if (inherits(cond, "condition")) {
     [14:17:07.055] computeRestarts <- base::computeRestarts
     [14:17:07.055] grepl <- base::grepl
     [14:17:07.055] is.null <- base::is.null
     [14:17:07.055] restarts <- computeRestarts(cond)
     [14:17:07.055] for (restart in restarts) {
     [14:17:07.055] name <- restart$name
     [14:17:07.055] if (is.null(name))
     [14:17:07.055] next
     [14:17:07.055] if (!grepl("^muffle", name))
     [14:17:07.055] next
     [14:17:07.055] invokeRestart(restart)
     [14:17:07.055] muffled <- TRUE
     [14:17:07.055] break
     [14:17:07.055] }
     [14:17:07.055] }
     [14:17:07.055] invisible(muffled)
     [14:17:07.055] }
     [14:17:07.055] muffleCondition(cond)
     [14:17:07.055] }
     [14:17:07.055] }
     [14:17:07.055] }
     [14:17:07.055] }))
     [14:17:07.055] }, error = function(ex) {
     [14:17:07.055] base::structure(base::list(value = NULL, visible = NULL,
     [14:17:07.055] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed,
     [14:17:07.055] ...future.rng), version = "1.8"), class = "FutureResult")
     [14:17:07.055] }, finally = {
     [14:17:07.055] {
     [14:17:07.055] {
     [14:17:07.055] base::options(mc.cores = ...future.mc.cores.old)
     [14:17:07.055] }
     [14:17:07.055] future::plan(list(b = function (expr, envir = parent.frame(),
     [14:17:07.055] substitute = TRUE, lazy = FALSE, seed = NULL,
     [14:17:07.055] globals = TRUE, persistent = FALSE, workers = availableCores(),
     [14:17:07.055] gc = FALSE, earlySignal = FALSE, label = NULL,
     [14:17:07.055] ...)
     [14:17:07.055] {
     [14:17:07.055] if (substitute)
     [14:17:07.055] expr <- substitute(expr)
     [14:17:07.055] if (is.function(workers))
     [14:17:07.055] workers <- workers()
     [14:17:07.055] workers <- as.integer(workers)
     [14:17:07.055] stop_if_not(length(workers) == 1, is.finite(workers),
     [14:17:07.055] workers >= 1)
     [14:17:07.055] if (workers == 1L) {
     [14:17:07.055] return(sequential(expr, envir = envir, substitute = FALSE,
     [14:17:07.055] lazy = TRUE, seed = seed, globals = globals,
     [14:17:07.055] local = TRUE, label = label, ...))
     [14:17:07.055] }
     [14:17:07.055] workers <- ClusterRegistry("start", workers = workers)
     [14:17:07.055] future <- MultisessionFuture(expr = expr, envir = envir,
     [14:17:07.055] substitute = FALSE, lazy = lazy, seed = seed,
     [14:17:07.055] globals = globals, persistent = persistent,
     [14:17:07.055] workers = workers, gc = gc, earlySignal = earlySignal,
     [14:17:07.055] label = label, ...)
     [14:17:07.055] if (!future$lazy)
     [14:17:07.055] future <- run(future)
     [14:17:07.055] invisible(future)
     [14:17:07.055] }), .cleanup = FALSE, .init = FALSE)
     [14:17:07.055] }
     [14:17:07.055] base::options(...future.oldOptions)
     [14:17:07.055] })
     [14:17:07.055] Sys.time
     [14:17:07.055] if (base::is.na(TRUE)) {
     [14:17:07.055] }
     [14:17:07.055] else {
     [14:17:07.055] base::sink(type = "output", split = FALSE)
     [14:17:07.055] if (TRUE) {
     [14:17:07.055] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
     [14:17:07.055] }
     [14:17:07.055] else {
     [14:17:07.055] ...future.result["stdout"] <- base::list(NULL)
     [14:17:07.055] }
     [14:17:07.055] base::close(...future.stdout)
     [14:17:07.055] ...future.stdout <- NULL
     [14:17:07.055] }
     [14:17:07.055] ...future.result$conditions <- ...future.conditions
     [14:17:07.055] ...future.result
     [14:17:07.055] }
     [14:17:08.440] - Condition #69: 'simpleMessage', 'message', 'condition'
     [14:17:07.069] Exporting 3 global objects (81.64 KiB) to cluster node #1 ...
     [14:17:08.441] - Condition #70: 'simpleMessage', 'message', 'condition'
     [14:17:07.070] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
     [14:17:08.441] - Condition #71: 'simpleMessage', 'message', 'condition'
     [14:17:07.072] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
     [14:17:08.442] - Condition #72: 'simpleMessage', 'message', 'condition'
     [14:17:07.073] Exporting 'a' (56 bytes) to cluster node #1 ...
     [14:17:08.443] - Condition #73: 'simpleMessage', 'message', 'condition'
     [14:17:07.074] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
     [14:17:08.443] - Condition #74: 'simpleMessage', 'message', 'condition'
     [14:17:07.076] Exporting 'plan_a' (81.53 KiB) to cluster node #1 ...
     [14:17:08.444] - Condition #75: 'simpleMessage', 'message', 'condition'
     [14:17:07.119] Exporting 'plan_a' (81.53 KiB) to cluster node #1 ... DONE
     [14:17:08.445] - Condition #76: 'simpleMessage', 'message', 'condition'
     [14:17:07.120] Exporting 3 global objects (81.64 KiB) to cluster node #1 ... DONE
     [14:17:08.445] - Condition #77: 'simpleMessage', 'message', 'condition'
     [14:17:07.123] MultisessionFuture started
     [14:17:08.446] - Condition #78: 'simpleMessage', 'message', 'condition'
     [14:17:07.124] Chunk #1 of 2 ... DONE
     [14:17:08.446] - Condition #79: 'simpleMessage', 'message', 'condition'
     [14:17:07.124] Chunk #2 of 2 ...
     [14:17:08.447] - Condition #80: 'simpleMessage', 'message', 'condition'
     [14:17:07.125] - Finding globals in 'args_list' chunk #2 ...
     [14:17:08.448] - Condition #81: 'simpleMessage', 'message', 'condition'
     [14:17:07.126] getGlobalsAndPackages() ...
     [14:17:08.448] - Condition #82: 'simpleMessage', 'message', 'condition'
     [14:17:07.127] Searching for globals...
     [14:17:08.449] - Condition #83: 'simpleMessage', 'message', 'condition'
     [14:17:07.128]
     [14:17:08.450] - Condition #84: 'simpleMessage', 'message', 'condition'
     [14:17:07.129] Searching for globals ... DONE
     [14:17:08.450] - Condition #85: 'simpleMessage', 'message', 'condition'
     [14:17:07.130] - globals: [0] <none>
     [14:17:08.451] - Condition #86: 'simpleMessage', 'message', 'condition'
     [14:17:07.131] getGlobalsAndPackages() ... DONE
     [14:17:08.452] - Condition #87: 'simpleMessage', 'message', 'condition'
     [14:17:07.131]
     [14:17:08.452] - Condition #88: 'simpleMessage', 'message', 'condition'
     [14:17:07.132]
     [14:17:08.453] - Condition #89: 'simpleMessage', 'message', 'condition'
     [14:17:07.133] - Finding globals in 'args_list' for chunk #2 ... DONE
     [14:17:08.453] - Condition #90: 'simpleMessage', 'message', 'condition'
     [14:17:07.134] getGlobalsAndPackages() ...
     [14:17:08.454] - Condition #91: 'simpleMessage', 'message', 'condition'
     [14:17:07.135] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
     [14:17:08.455] - Condition #92: 'simpleMessage', 'message', 'condition'
     [14:17:07.136] Resolving globals: FALSE
     [14:17:08.455] - Condition #93: 'simpleMessage', 'message', 'condition'
     [14:17:07.139] The total size of the 3 globals is 81.70 KiB (83656 bytes)
     [14:17:08.456] - Condition #94: 'simpleMessage', 'message', 'condition'
     [14:17:07.139] - globals: [3] '...future.x_ii', 'a', 'plan_a'
     [14:17:08.457] - Condition #95: 'simpleMessage', 'message', 'condition'
     [14:17:07.140]
     [14:17:08.457] - Condition #96: 'simpleMessage', 'message', 'condition'
     [14:17:07.141] getGlobalsAndPackages() ... DONE
     [14:17:08.458] - Condition #97: 'simpleMessage', 'message', 'condition'
     [14:17:07.180] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
     [14:17:08.458] - Condition #98: 'simpleMessage', 'message', 'condition'
     [14:17:07.183] Packages needed by future strategies (n = 0): <none>
     [14:17:08.459] - Condition #99: 'simpleMessage', 'message', 'condition'
     [14:17:07.203] {
     [14:17:07.203] {
     [14:17:07.203] ...future.startTime <- base::Sys.time()
     [14:17:07.203] ...future.oldOptions <- base::options(future.startup.script = FALSE,
     [14:17:07.203] future.globals.onMissing = NULL, future.globals.maxSize = NULL,
     [14:17:07.203] future.globals.method = NULL, future.globals.onMissing = NULL,
     [14:17:07.203] future.globals.onReference = NULL, future.globals.resolve = NULL,
     [14:17:07.203] future.resolve.recursive = NULL, width = 80L)
     [14:17:07.203] {
     [14:17:07.203] {
     [14:17:07.203] {
     [14:17:07.203] {
     [14:17:07.203] base::local({
     [14:17:07.203] has_future <- base::requireNamespace("future",
     [14:17:07.203] quietly = TRUE)
     [14:17:07.203] version <- if (has_future)
     [14:17:07.203] utils::packageVersion("future")
     [14:17:07.203] else NULL
     [14:17:07.203] if (!has_future || version < "1.8.0") {
     [14:17:07.203] info <- base::c(r_version = base::gsub("R version ",
     [14:17:07.203] "", base::R.version$version.string),
     [14:17:07.203] platform = base::sprintf("%s (%s-bit)",
     [14:17:07.203] base::R.version$platform, 8 * base::.Machine$sizeof.pointer),
     [14:17:07.203] os = base::paste(base::Sys.info()[base::c("sysname",
     [14:17:07.203] "release", "version")], collapse = " "),
     [14:17:07.203] hostname = base::Sys.info()[["nodename"]])
     [14:17:07.203] info <- base::sprintf("%s: %s", base::names(info),
     [14:17:07.203] info)
     [14:17:07.203] info <- base::paste(info, collapse = "; ")
     [14:17:07.203] if (!has_future) {
     [14:17:07.203] msg <- base::sprintf("Package 'future' is not installed on worker (%s)",
     [14:17:07.203] info)
     [14:17:07.203] }
     [14:17:07.203] else {
     [14:17:07.203] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s",
     [14:17:07.203] info, version)
     [14:17:07.203] }
     [14:17:07.203] base::stop(msg)
     [14:17:07.203] }
     [14:17:07.203] })
     [14:17:07.203] }
     [14:17:07.203] ...future.mc.cores.old <- base::getOption("mc.cores")
     [14:17:07.203] base::options(mc.cores = 1L)
     [14:17:07.203] }
     [14:17:07.203] base::local({
     [14:17:07.203] for (pkg in c("doFuture", "utils")) {
     [14:17:07.203] base::loadNamespace(pkg)
     [14:17:07.203] base::library(pkg, character.only = TRUE)
     [14:17:07.203] }
     [14:17:07.203] })
     [14:17:07.203] }
     [14:17:07.203] future::plan("default", .cleanup = FALSE, .init = FALSE)
     [14:17:07.203] }
     [14:17:07.203] }
     [14:17:07.203] if (base::is.na(TRUE)) {
     [14:17:07.203] }
     [14:17:07.203] else {
     [14:17:07.203] if (TRUE) {
     [14:17:07.203] ...future.stdout <- base::rawConnection(base::raw(0L),
     [14:17:07.203] open = "w")
     [14:17:07.203] }
     [14:17:07.203] else {
     [14:17:07.203] ...future.stdout <- base::file(base::switch(.Platform$OS.type,
     [14:17:07.203] windows = "NUL", "/dev/null"), open = "w")
     [14:17:07.203] }
     [14:17:07.203] base::sink(...future.stdout, type = "output", split = FALSE)
     [14:17:07.203] base::on.exit(if (!base::is.null(...future.stdout)) {
     [14:17:07.203] base::sink(type = "output", split = FALSE)
     [14:17:07.203] base::close(...future.stdout)
     [14:17:07.203] }, add = TRUE)
     [14:17:07.203] }
     [14:17:07.203] ...future.frame <- base::sys.nframe()
     [14:17:07.203] ...future.conditions <- base::list()
     [14:17:07.203] ...future.rng <- base::globalenv()$.Random.seed
     [14:17:07.203] ...future.result <- base::tryCatch({
     [14:17:07.203] base::withCallingHandlers({
     [14:17:07.203] ...future.value <- base::withVisible(base::local({
     [14:17:07.203] ...future.sendCondition <- local({
     [14:17:07.203] sendCondition <- NULL
     [14:17:07.203] function(frame = 1L) {
     [14:17:07.203] if (is.function(sendCondition))
     [14:17:07.203] return(sendCondition)
     [14:17:07.203] ns <- getNamespace("parallel")
     [14:17:07.203] if (exists("sendData", mode = "function",
     [14:17:07.203] envir = ns)) {
     [14:17:07.203] parallel_sendData <- get("sendData", mode = "function",
     [14:17:07.203] envir = ns)
     [14:17:07.203] envir <- sys.frame(frame)
     [14:17:07.203] master <- NULL
     [14:17:07.203] while (!identical(envir, .GlobalEnv) &&
     [14:17:07.203] !identical(envir, emptyenv())) {
     [14:17:07.203] if (exists("master", mode = "list", envir = envir,
     [14:17:07.203] inherits = FALSE)) {
     [14:17:07.203] master <- get("master", mode = "list",
     [14:17:07.203] envir = envir, inherits = FALSE)
     [14:17:07.203] if (inherits(master, "SOCKnode")) {
     [14:17:07.203] sendCondition <<- function(cond) {
     [14:17:07.203] data <- list(type = "VALUE", value = cond,
     [14:17:07.203] success = TRUE)
     [14:17:07.203] parallel_sendData(master, data)
     [14:17:07.203] }
     [14:17:07.203] return(sendCondition)
     [14:17:07.203] }
     [14:17:07.203] }
     [14:17:07.203] frame <- frame + 1L
     [14:17:07.203] envir <- sys.frame(frame)
     [14:17:07.203] }
     [14:17:07.203] }
     [14:17:07.203] sendCondition <<- function(cond) NULL
     [14:17:07.203] }
     [14:17:07.203] })
     [14:17:07.203] withCallingHandlers({
     [14:17:07.203] {
     [14:17:07.203] doFuture::registerDoFuture()
     [14:17:07.203] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:17:07.203] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:17:07.203] b <- NULL
     [14:17:07.203] ...future.env <- environment()
     [14:17:07.203] local({
     [14:17:07.203] for (name in names(...future.x_jj)) {
     [14:17:07.203] assign(name, ...future.x_jj[[name]],
     [14:17:07.203] envir = ...future.env, inherits = FALSE)
     [14:17:07.203] }
     [14:17:07.203] })
     [14:17:07.203] tryCatch({
     [14:17:07.203] plan_list <- future::plan("next")
     [14:17:07.203] message(capture.output(print(plan_list)))
     [14:17:07.203] stopifnot(inherits(plan_list, "future"))
     [14:17:07.203] default <- getOption("future.plan", "sequential")
     [14:17:07.203] if (is.function(default))
     [14:17:07.203] default <- class(default)
     [14:17:07.203] stopifnot(inherits(plan_list, default))
     [14:17:07.203] plan_b <- future::plan("list")
     [14:17:07.203] str(plan_b)
     [14:17:07.203] stopifnot(inherits(plan_b[[1]], "future"),
     [14:17:07.203] inherits(plan_b[[1]], default))
     [14:17:07.203] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:17:07.203] }, error = identity)
     [14:17:07.203] })
     [14:17:07.203] }
     [14:17:07.203] }, immediateCondition = function(cond) {
     [14:17:07.203] sendCondition <- ...future.sendCondition()
     [14:17:07.203] sendCondition(cond)
     [14:17:07.203] muffleCondition <- function (cond)
     [14:17:07.203] {
     [14:17:07.203] inherits <- base::inherits
     [14:17:07.203] invokeRestart <- base::invokeRestart
     [14:17:07.203] muffled <- FALSE
     [14:17:07.203] if (inherits(cond, "message")) {
     [14:17:07.203] invokeRestart("muffleMessage")
     [14:17:07.203] muffled <- TRUE
     [14:17:07.203] }
     [14:17:07.203] else if (inherits(cond, "warning")) {
     [14:17:07.203] invokeRestart("muffleWarning")
     [14:17:07.203] muffled <- TRUE
     [14:17:07.203] }
     [14:17:07.203] else if (inherits(cond, "condition")) {
     [14:17:07.203] computeRestarts <- base::computeRestarts
     [14:17:07.203] grepl <- base::grepl
     [14:17:07.203] is.null <- base::is.null
     [14:17:07.203] restarts <- computeRestarts(cond)
     [14:17:07.203] for (restart in restarts) {
     [14:17:07.203] name <- restart$name
     [14:17:07.203] if (is.null(name))
     [14:17:07.203] next
     [14:17:07.203] if (!grepl("^muffle", name))
     [14:17:07.203] next
     [14:17:07.203] invokeRestart(restart)
     [14:17:07.203] muffled <- TRUE
     [14:17:07.203] break
     [14:17:07.203] }
     [14:17:07.203] }
     [14:17:07.203] invisible(muffled)
     [14:17:07.203] }
     [14:17:07.203] muffleCondition(cond)
     [14:17:07.203] })
     [14:17:07.203] }))
     [14:17:07.203] future::FutureResult(value = ...future.value$value,
     [14:17:07.203] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed,
     [14:17:07.203] ...future.rng), started = ...future.startTime,
     [14:17:07.203] version = "1.8")
     [14:17:07.203] }, condition = base::local({
     [14:17:07.203] c <- base::c
     [14:17:07.203] inherits <- base::inherits
     [14:17:07.203] invokeRestart <- base::invokeRestart
     [14:17:07.203] length <- base::length
     [14:17:07.203] list <- base::list
     [14:17:07.203] seq.int <- base::seq.int
     [14:17:07.203] signalCondition <- base::signalCondition
     [14:17:07.203] sys.calls <- base::sys.calls
     [14:17:07.203] Sys.time <- base::Sys.time
     [14:17:07.203] `[[` <- base::`[[`
     [14:17:07.203] `+` <- base::`+`
     [14:17:07.203] `<<-` <- base::`<<-`
     [14:17:07.203] sysCalls <- function(calls = sys.calls(), from = 1L) {
     [14:17:07.203] calls[seq.int(from = from + 12L, to = length(calls) -
     [14:17:07.203] 3L)]
     [14:17:07.203] }
     [14:17:07.203] function(cond) {
     [14:17:07.203] if (inherits(cond, "error")) {
     [14:17:07.203] sessionInformation <- function() {
     [14:17:07.203] list(r = base::R.Version(), locale = base::Sys.getlocale(),
     [14:17:07.203] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(),
     [14:17:07.203] search = base::search(), system = base::Sys.info())
     [14:17:07.203] }
     [14:17:07.203] ...future.conditions[[length(...future.conditions) +
     [14:17:07.203] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame),
     [14:17:07.203] cond$call), session = sessionInformation(),
     [14:17:07.203] timestamp = Sys.time(), signaled = 0L)
     [14:17:07.203] signalCondition(cond)
     [14:17:07.203] }
     [14:17:07.203] else if (inherits(cond, c("condition", "immediateCondition"
     [14:17:07.203] ))) {
     [14:17:07.203] signal <- TRUE && inherits(cond, "immediateCondition")
     [14:17:07.203] ...future.conditions[[length(...future.conditions) +
     [14:17:07.203] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
     [14:17:07.203] if (!signal) {
     [14:17:07.203] muffleCondition <- function (cond)
     [14:17:07.203] {
     [14:17:07.203] inherits <- base::inherits
     [14:17:07.203] invokeRestart <- base::invokeRestart
     [14:17:07.203] muffled <- FALSE
     [14:17:07.203] if (inherits(cond, "message")) {
     [14:17:07.203] invokeRestart("muffleMessage")
     [14:17:07.203] muffled <- TRUE
     [14:17:07.203] }
     [14:17:07.203] else if (inherits(cond, "warning")) {
     [14:17:07.203] invokeRestart("muffleWarning")
     [14:17:07.203] muffled <- TRUE
     [14:17:07.203] }
     [14:17:07.203] else if (inherits(cond, "condition")) {
     [14:17:07.203] computeRestarts <- base::computeRestarts
     [14:17:07.203] grepl <- base::grepl
     [14:17:07.203] is.null <- base::is.null
     [14:17:07.203] restarts <- computeRestarts(cond)
     [14:17:07.203] for (restart in restarts) {
     [14:17:07.203] name <- restart$name
     [14:17:07.203] if (is.null(name))
     [14:17:07.203] next
     [14:17:07.203] if (!grepl("^muffle", name))
     [14:17:07.203] next
     [14:17:07.203] invokeRestart(restart)
     [14:17:07.203] muffled <- TRUE
     [14:17:07.203] break
     [14:17:07.203] }
     [14:17:07.203] }
     [14:17:07.203] invisible(muffled)
     [14:17:07.203] }
     [14:17:07.203] muffleCondition(cond)
     [14:17:07.203] }
     [14:17:07.203] }
     [14:17:07.203] }
     [14:17:07.203] }))
     [14:17:07.203] }, error = function(ex) {
     [14:17:07.203] base::structure(base::list(value = NULL, visible = NULL,
     [14:17:07.203] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed,
     [14:17:07.203] ...future.rng), version = "1.8"), class = "FutureResult")
     [14:17:07.203] }, finally = {
     [14:17:07.203] {
     [14:17:07.203] {
     [14:17:07.203] base::options(mc.cores = ...future.mc.cores.old)
     [14:17:07.203] }
     [14:17:07.203] future::plan(list(b = function (expr, envir = parent.frame(),
     [14:17:07.203] substitute = TRUE, lazy = FALSE, seed = NULL,
     [14:17:07.203] globals = TRUE, persistent = FALSE, workers = availableCores(),
     [14:17:07.203] gc = FALSE, earlySignal = FALSE, label = NULL,
     [14:17:07.203] ...)
     [14:17:07.203] {
     [14:17:07.203] if (substitute)
     [14:17:07.203] expr <- substitute(expr)
     [14:17:07.203] if (is.function(workers))
     [14:17:07.203] workers <- workers()
     [14:17:07.203] workers <- as.integer(workers)
     [14:17:07.203] stop_if_not(length(workers) == 1, is.finite(workers),
     [14:17:07.203] workers >= 1)
     [14:17:07.203] if (workers == 1L) {
     [14:17:07.203] return(sequential(expr, envir = envir, substitute = FALSE,
     [14:17:07.203] lazy = TRUE, seed = seed, globals = globals,
     [14:17:07.203] local = TRUE, label = label, ...))
     [14:17:07.203] }
     [14:17:07.203] workers <- ClusterRegistry("start", workers = workers)
     [14:17:07.203] future <- MultisessionFuture(expr = expr, envir = envir,
     [14:17:07.203] substitute = FALSE, lazy = lazy, seed = seed,
     [14:17:07.203] globals = globals, persistent = persistent,
     [14:17:07.203] workers = workers, gc = gc, earlySignal = earlySignal,
     [14:17:07.203] label = label, ...)
     [14:17:07.203] if (!future$lazy)
     [14:17:07.203] future <- run(future)
     [14:17:07.203] invisible(future)
     [14:17:07.203] }), .cleanup = FALSE, .init = FALSE)
     [14:17:07.203] }
     [14:17:07.203] base::options(...future.oldOptions)
     [14:17:07.203] })
     [14:17:07.203] Sys.time
     [14:17:07.203] if (base::is.na(TRUE)) {
     [14:17:07.203] }
     [14:17:07.203] else {
     [14:17:07.203] base::sink(type = "output", split = FALSE)
     [14:17:07.203] if (TRUE) {
     [14:17:07.203] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
     [14:17:07.203] }
     [14:17:07.203] else {
     [14:17:07.203] ...future.result["stdout"] <- base::list(NULL)
     [14:17:07.203] }
     [14:17:07.203] base::close(...future.stdout)
     [14:17:07.203] ...future.stdout <- NULL
     [14:17:07.203] }
     [14:17:07.203] ...future.result$conditions <- ...future.conditions
     [14:17:07.203] ...future.result
     [14:17:07.203] }
     [14:17:08.460] - Condition #100: 'simpleMessage', 'message', 'condition'
     [14:17:07.232] Exporting 3 global objects (81.70 KiB) to cluster node #2 ...
     [14:17:08.460] - Condition #101: 'simpleMessage', 'message', 'condition'
     [14:17:07.233] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ...
     [14:17:08.461] - Condition #102: 'simpleMessage', 'message', 'condition'
     [14:17:07.239] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ... DONE
     [14:17:08.462] - Condition #103: 'simpleMessage', 'message', 'condition'
     [14:17:07.239] Exporting 'a' (56 bytes) to cluster node #2 ...
     [14:17:08.462] - Condition #104: 'simpleMessage', 'message', 'condition'
     [14:17:07.241] Exporting 'a' (56 bytes) to cluster node #2 ... DONE
     [14:17:08.463] - Condition #105: 'simpleMessage', 'message', 'condition'
     [14:17:07.242] Exporting 'plan_a' (81.53 KiB) to cluster node #2 ...
     [14:17:08.464] - Condition #106: 'simpleMessage', 'message', 'condition'
     [14:17:07.285] Exporting 'plan_a' (81.53 KiB) to cluster node #2 ... DONE
     [14:17:08.464] - Condition #107: 'simpleMessage', 'message', 'condition'
     [14:17:07.286] Exporting 3 global objects (81.70 KiB) to cluster node #2 ... DONE
     [14:17:08.465] - Condition #108: 'simpleMessage', 'message', 'condition'
     [14:17:07.288] MultisessionFuture started
     [14:17:08.466] - Condition #109: 'simpleMessage', 'message', 'condition'
     [14:17:07.295] Chunk #2 of 2 ... DONE
     [14:17:08.466] - Condition #110: 'simpleMessage', 'message', 'condition'
     [14:17:07.296] Launching 2 futures (chunks) ... DONE
     [14:17:08.467] - Condition #111: 'simpleMessage', 'message', 'condition'
     [14:17:07.297] - resolving futures
     [14:17:08.467] - Condition #112: 'simpleMessage', 'message', 'condition'
     [14:17:07.297] - gathering results & relaying conditions (except errors)
     [14:17:08.468] - Condition #113: 'simpleMessage', 'message', 'condition'
     [14:17:07.298] resolve() on list ...
     [14:17:08.469] - Condition #114: 'simpleMessage', 'message', 'condition'
     [14:17:07.299] recursive: 0
     [14:17:08.469] - Condition #115: 'simpleMessage', 'message', 'condition'
     [14:17:07.303] length: 2
     [14:17:08.470] - Condition #116: 'simpleMessage', 'message', 'condition'
     [14:17:07.303]
     [14:17:08.471] - Condition #117: 'simpleMessage', 'message', 'condition'
     [14:17:07.463] receiveMessageFromWorker() for ClusterFuture ...
     [14:17:08.471] - Condition #118: 'simpleMessage', 'message', 'condition'
     [14:17:07.464] - Validating connection of MultisessionFuture
     [14:17:08.472] - Condition #119: 'simpleMessage', 'message', 'condition'
     [14:17:07.503] - received message: FutureResult
     [14:17:08.473] - Condition #120: 'simpleMessage', 'message', 'condition'
     [14:17:07.504] - Received FutureResult
     [14:17:08.473] - Condition #121: 'simpleMessage', 'message', 'condition'
     [14:17:07.505] - Erased future from FutureRegistry
     [14:17:08.474] - Condition #122: 'simpleMessage', 'message', 'condition'
     [14:17:07.506] result() for ClusterFuture ...
     [14:17:08.474] - Condition #123: 'simpleMessage', 'message', 'condition'
     [14:17:07.506] - result already collected: FutureResult
     [14:17:08.475] - Condition #124: 'simpleMessage', 'message', 'condition'
     [14:17:07.507] result() for ClusterFuture ... done
     [14:17:08.476] - Condition #125: 'simpleMessage', 'message', 'condition'
     [14:17:07.508] signalConditions() ...
     [14:17:08.476] - Condition #126: 'simpleMessage', 'message', 'condition'
     [14:17:07.509] - include = 'immediateCondition'
     [14:17:08.477] - Condition #127: 'simpleMessage', 'message', 'condition'
     [14:17:07.510] - exclude =
     [14:17:08.478] - Condition #128: 'simpleMessage', 'message', 'condition'
     [14:17:07.510] - resignal = FALSE
     [14:17:08.478] - Condition #129: 'simpleMessage', 'message', 'condition'
     [14:17:07.511] - Number of conditions: 1
     [14:17:08.479] - Condition #130: 'simpleMessage', 'message', 'condition'
     [14:17:07.512] signalConditions() ... done
     [14:17:08.480] - Condition #131: 'simpleMessage', 'message', 'condition'
     [14:17:07.513] receiveMessageFromWorker() for ClusterFuture ... done
     [14:17:08.480] - Condition #132: 'simpleMessage', 'message', 'condition'
     [14:17:07.513] Future #1
     [14:17:08.481] - Condition #133: 'simpleMessage', 'message', 'condition'
     [14:17:07.514] result() for ClusterFuture ...
     [14:17:08.481] - Condition #134: 'simpleMessage', 'message', 'condition'
     [14:17:07.515] - result already collected: FutureResult
     [14:17:08.482] - Condition #135: 'simpleMessage', 'message', 'condition'
     [14:17:07.515] result() for ClusterFuture ... done
     [14:17:08.483] - Condition #136: 'simpleMessage', 'message', 'condition'
     [14:17:07.516] result() for ClusterFuture ...
     [14:17:08.483] - Condition #137: 'simpleMessage', 'message', 'condition'
     [14:17:07.517] - result already collected: FutureResult
     [14:17:08.484] - Condition #138: 'simpleMessage', 'message', 'condition'
     [14:17:07.518] result() for ClusterFuture ... done
     [14:17:08.485] - Condition #139: 'simpleMessage', 'message', 'condition'
     [14:17:07.518] signalConditions() ...
     [14:17:08.485] - Condition #140: 'simpleMessage', 'message', 'condition'
     [14:17:07.519] - include = 'immediateCondition'
     [14:17:08.486] - Condition #141: 'simpleMessage', 'message', 'condition'
     [14:17:07.520] - exclude =
     [14:17:08.486] - Condition #142: 'simpleMessage', 'message', 'condition'
     [14:17:07.520] - resignal = FALSE
     [14:17:08.487] - Condition #143: 'simpleMessage', 'message', 'condition'
     [14:17:07.521] - Number of conditions: 1
     [14:17:08.488] - Condition #144: 'simpleMessage', 'message', 'condition'
     [14:17:07.522] signalConditions() ... done
     [14:17:08.488] - Condition #145: 'simpleMessage', 'message', 'condition'
     [14:17:07.523] signalConditionsASAP(MultisessionFuture, pos=1) ...
     [14:17:08.489] - Condition #146: 'simpleMessage', 'message', 'condition'
     [14:17:07.523] - nx: 2
     [14:17:08.490] - Condition #147: 'simpleMessage', 'message', 'condition'
     [14:17:07.524] - relay: TRUE
     [14:17:08.490] - Condition #148: 'simpleMessage', 'message', 'condition'
     [14:17:07.525] - stdout: TRUE
     [14:17:08.491] - Condition #149: 'simpleMessage', 'message', 'condition'
     [14:17:07.525] - signal: TRUE
     [14:17:08.492] - Condition #150: 'simpleMessage', 'message', 'condition'
     [14:17:07.526] - resignal: FALSE
     [14:17:08.492] - Condition #151: 'simpleMessage', 'message', 'condition'
     [14:17:07.527] - force: FALSE
     [14:17:08.493] - Condition #152: 'simpleMessage', 'message', 'condition'
     [14:17:07.527] - relayed: [n=2] FALSE, FALSE
     [14:17:08.493] - Condition #153: 'simpleMessage', 'message', 'condition'
     [14:17:07.528] - queued futures: [n=2] FALSE, FALSE
     [14:17:08.494] - Condition #154: 'simpleMessage', 'message', 'condition'
     [14:17:07.529] - until=1
     [14:17:08.495] - Condition #155: 'simpleMessage', 'message', 'condition'
     [14:17:07.529] - relaying element #1
     [14:17:08.495] - Condition #156: 'simpleMessage', 'message', 'condition'
     [14:17:07.530] result() for ClusterFuture ...
     [14:17:08.496] - Condition #157: 'simpleMessage', 'message', 'condition'
     [14:17:07.531] - result already collected: FutureResult
     [14:17:08.497] - Condition #158: 'simpleMessage', 'message', 'condition'
     [14:17:07.532] result() for ClusterFuture ... done
     [14:17:08.497] - Condition #159: 'simpleMessage', 'message', 'condition'
     [14:17:07.532] result() for ClusterFuture ...
     [14:17:08.498] - Condition #160: 'simpleMessage', 'message', 'condition'
     [14:17:07.533] - result already collected: FutureResult
     [14:17:08.499] - Condition #161: 'simpleMessage', 'message', 'condition'
     [14:17:07.534] result() for ClusterFuture ... done
     [14:17:08.499] - Condition #162: 'simpleMessage', 'message', 'condition'
     [14:17:07.535] signalConditions() ...
     [14:17:08.500] - Condition #163: 'simpleMessage', 'message', 'condition'
     [14:17:07.535] - include = 'immediateCondition'
     [14:17:08.501] - Condition #164: 'simpleMessage', 'message', 'condition'
     [14:17:07.536] - exclude =
     [14:17:08.501] - Condition #165: 'simpleMessage', 'message', 'condition'
     [14:17:07.537] - resignal = FALSE
     [14:17:08.502] - Condition #166: 'simpleMessage', 'message', 'condition'
     [14:17:07.537] - Number of conditions: 1
     [14:17:08.503] - Condition #167: 'simpleMessage', 'message', 'condition'
     [14:17:07.538] signalConditions() ... done
     [14:17:08.503] - Condition #168: 'simpleMessage', 'message', 'condition'
     [14:17:07.539] result() for ClusterFuture ...
     [14:17:08.504] - Condition #169: 'simpleMessage', 'message', 'condition'
     [14:17:07.540] - result already collected: FutureResult
     [14:17:08.504] - Condition #170: 'simpleMessage', 'message', 'condition'
     [14:17:07.540] result() for ClusterFuture ... done
     [14:17:08.505] - Condition #171: 'simpleMessage', 'message', 'condition'
     [14:17:07.541] signalConditions() ...
     [14:17:08.525] - Condition #172: 'simpleMessage', 'message', 'condition'
     [14:17:07.542] - include = 'immediateCondition'
     [14:17:08.525] - Condition #173: 'simpleMessage', 'message', 'condition'
     [14:17:07.542] - exclude =
     [14:17:08.526] - Condition #174: 'simpleMessage', 'message', 'condition'
     [14:17:07.543] - resignal = FALSE
     [14:17:08.527] - Condition #175: 'simpleMessage', 'message', 'condition'
     [14:17:07.544] - Number of conditions: 1
     [14:17:08.527] - Condition #176: 'simpleMessage', 'message', 'condition'
     [14:17:07.545] signalConditions() ... done
     [14:17:08.528] - Condition #177: 'simpleMessage', 'message', 'condition'
     [14:17:07.545] result() for ClusterFuture ...
     [14:17:08.529] - Condition #178: 'simpleMessage', 'message', 'condition'
     [14:17:07.546] - result already collected: FutureResult
     [14:17:08.529] - Condition #179: 'simpleMessage', 'message', 'condition'
     [14:17:07.547] result() for ClusterFuture ... done
     [14:17:08.530] - Condition #180: 'simpleMessage', 'message', 'condition'
     [14:17:07.547] signalConditions() ...
     [14:17:08.531] - Condition #181: 'simpleMessage', 'message', 'condition'
     [14:17:07.548] - include = 'condition'
     [14:17:08.531] - Condition #182: 'simpleMessage', 'message', 'condition'
     [14:17:07.549] - exclude = 'immediateCondition'
     [14:17:08.532] - Condition #183: 'simpleMessage', 'message', 'condition'
     [14:17:07.549] - resignal = FALSE
     [14:17:08.533] - Condition #184: 'simpleMessage', 'message', 'condition'
     [14:17:07.550] - Number of conditions: 1
     [14:17:08.533] - Condition #185: 'simpleMessage', 'message', 'condition'
     [14:17:07.550] - Condition #1: 'simpleMessage', 'message', 'condition'
     [14:17:08.534] - Condition #186: 'simpleMessage', 'message', 'condition'
     sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
     [14:17:08.535] - Condition #187: 'simpleMessage', 'message', 'condition'
     [14:17:07.551] signalConditions() ... done
     [14:17:08.535] - Condition #188: 'simpleMessage', 'message', 'condition'
     [14:17:07.552] - relayed: [n=2] TRUE, FALSE
     [14:17:08.536] - Condition #189: 'simpleMessage', 'message', 'condition'
     [14:17:07.553] - queued futures: [n=2] TRUE, FALSE
     [14:17:08.537] - Condition #190: 'simpleMessage', 'message', 'condition'
     [14:17:07.553] signalConditionsASAP(MultisessionFuture, pos=1) ... done
     [14:17:08.537] - Condition #191: 'simpleMessage', 'message', 'condition'
     [14:17:07.554] length: 1 (resolved future 1)
     [14:17:08.538] - Condition #192: 'simpleMessage', 'message', 'condition'
     [14:17:07.625] receiveMessageFromWorker() for ClusterFuture ...
     [14:17:08.539] - Condition #193: 'simpleMessage', 'message', 'condition'
     [14:17:07.626] - Validating connection of MultisessionFuture
     [14:17:08.540] - Condition #194: 'simpleMessage', 'message', 'condition'
     [14:17:07.666] - received message: FutureResult
     [14:17:08.540] - Condition #195: 'simpleMessage', 'message', 'condition'
     [14:17:07.667] - Received FutureResult
     [14:17:08.541] - Condition #196: 'simpleMessage', 'message', 'condition'
     [14:17:07.668] - Erased future from FutureRegistry
     [14:17:08.542] - Condition #197: 'simpleMessage', 'message', 'condition'
     [14:17:07.668] result() for ClusterFuture ...
     [14:17:08.542] - Condition #198: 'simpleMessage', 'message', 'condition'
     [14:17:07.669] - result already collected: FutureResult
     [14:17:08.543] - Condition #199: 'simpleMessage', 'message', 'condition'
     [14:17:07.670] result() for ClusterFuture ... done
     [14:17:08.543] - Condition #200: 'simpleMessage', 'message', 'condition'
     [14:17:07.671] signalConditions() ...
     [14:17:08.544] - Condition #201: 'simpleMessage', 'message', 'condition'
     [14:17:07.672] - include = 'immediateCondition'
     [14:17:08.545] - Condition #202: 'simpleMessage', 'message', 'condition'
     [14:17:07.673] - exclude =
     [14:17:08.545] - Condition #203: 'simpleMessage', 'message', 'condition'
     [14:17:07.673] - resignal = FALSE
     [14:17:08.546] - Condition #204: 'simpleMessage', 'message', 'condition'
     [14:17:07.674] - Number of conditions: 2
     [14:17:08.546] - Condition #205: 'simpleMessage', 'message', 'condition'
     [14:17:07.675] signalConditions() ... done
     [14:17:08.547] - Condition #206: 'simpleMessage', 'message', 'condition'
     [14:17:07.676] receiveMessageFromWorker() for ClusterFuture ... done
     [14:17:08.548] - Condition #207: 'simpleMessage', 'message', 'condition'
     [14:17:07.676] Future #2
     [14:17:08.548] - Condition #208: 'simpleMessage', 'message', 'condition'
     [14:17:07.677] result() for ClusterFuture ...
     [14:17:08.549] - Condition #209: 'simpleMessage', 'message', 'condition'
     [14:17:07.678] - result already collected: FutureResult
     [14:17:08.550] - Condition #210: 'simpleMessage', 'message', 'condition'
     [14:17:07.679] result() for ClusterFuture ... done
     [14:17:08.550] - Condition #211: 'simpleMessage', 'message', 'condition'
     [14:17:07.680] result() for ClusterFuture ...
     [14:17:08.551] - Condition #212: 'simpleMessage', 'message', 'condition'
     [14:17:07.680] - result already collected: FutureResult
     [14:17:08.552] - Condition #213: 'simpleMessage', 'message', 'condition'
     [14:17:07.681] result() for ClusterFuture ... done
     [14:17:08.552] - Condition #214: 'simpleMessage', 'message', 'condition'
     [14:17:07.682] signalConditions() ...
     [14:17:08.553] - Condition #215: 'simpleMessage', 'message', 'condition'
     [14:17:07.683] - include = 'immediateCondition'
     [14:17:08.553] - Condition #216: 'simpleMessage', 'message', 'condition'
     [14:17:07.684] - exclude =
     [14:17:08.554] - Condition #217: 'simpleMessage', 'message', 'condition'
     [14:17:07.684] - resignal = FALSE
     [14:17:08.555] - Condition #218: 'simpleMessage', 'message', 'condition'
     [14:17:07.685] - Number of conditions: 2
     [14:17:08.555] - Condition #219: 'simpleMessage', 'message', 'condition'
     [14:17:07.686] signalConditions() ... done
     [14:17:08.556] - Condition #220: 'simpleMessage', 'message', 'condition'
     [14:17:07.687] signalConditionsASAP(MultisessionFuture, pos=2) ...
     [14:17:08.557] - Condition #221: 'simpleMessage', 'message', 'condition'
     [14:17:07.687] - nx: 2
     [14:17:08.557] - Condition #222: 'simpleMessage', 'message', 'condition'
     [14:17:07.688] - relay: TRUE
     [14:17:08.558] - Condition #223: 'simpleMessage', 'message', 'condition'
     [14:17:07.689] - stdout: TRUE
     [14:17:08.558] - Condition #224: 'simpleMessage', 'message', 'condition'
     [14:17:07.690] - signal: TRUE
     [14:17:08.559] - Condition #225: 'simpleMessage', 'message', 'condition'
     [14:17:07.690] - resignal: FALSE
     [14:17:08.560] - Condition #226: 'simpleMessage', 'message', 'condition'
     [14:17:07.691] - force: FALSE
     [14:17:08.560] - Condition #227: 'simpleMessage', 'message', 'condition'
     [14:17:07.692] - relayed: [n=2] TRUE, FALSE
     [14:17:08.561] - Condition #228: 'simpleMessage', 'message', 'condition'
     [14:17:07.693] - queued futures: [n=2] TRUE, FALSE
     [14:17:08.562] - Condition #229: 'simpleMessage', 'message', 'condition'
     [14:17:07.693] - until=2
     [14:17:08.562] - Condition #230: 'simpleMessage', 'message', 'condition'
     [14:17:07.694] - relaying element #2
     [14:17:08.563] - Condition #231: 'simpleMessage', 'message', 'condition'
     [14:17:07.695] result() for ClusterFuture ...
     [14:17:08.563] - Condition #232: 'simpleMessage', 'message', 'condition'
     [14:17:07.696] - result already collected: FutureResult
     [14:17:08.564] - Condition #233: 'simpleMessage', 'message', 'condition'
     [14:17:07.697] result() for ClusterFuture ... done
     [14:17:08.565] - Condition #234: 'simpleMessage', 'message', 'condition'
     [14:17:07.698] result() for ClusterFuture ...
     [14:17:08.565] - Condition #235: 'simpleMessage', 'message', 'condition'
     [14:17:07.699] - result already collected: FutureResult
     [14:17:08.566] - Condition #236: 'simpleMessage', 'message', 'condition'
     [14:17:07.699] result() for ClusterFuture ... done
     [14:17:08.567] - Condition #237: 'simpleMessage', 'message', 'condition'
     [14:17:07.700] signalConditions() ...
     [14:17:08.567] - Condition #238: 'simpleMessage', 'message', 'condition'
     [14:17:07.701] - include = 'immediateCondition'
     [14:17:08.568] - Condition #239: 'simpleMessage', 'message', 'condition'
     [14:17:07.702] - exclude =
     [14:17:08.568] - Condition #240: 'simpleMessage', 'message', 'condition'
     [14:17:07.703] - resignal = FALSE
     [14:17:08.569] - Condition #241: 'simpleMessage', 'message', 'condition'
     [14:17:07.704] - Number of conditions: 2
     [14:17:08.570] - Condition #242: 'simpleMessage', 'message', 'condition'
     [14:17:07.705] signalConditions() ... done
     [14:17:08.570] - Condition #243: 'simpleMessage', 'message', 'condition'
     [14:17:07.706] result() for ClusterFuture ...
     [14:17:08.571] - Condition #244: 'simpleMessage', 'message', 'condition'
     [14:17:07.707] - result already collected: FutureResult
     [14:17:08.572] - Condition #245: 'simpleMessage', 'message', 'condition'
     [14:17:07.707] result() for ClusterFuture ... done
     [14:17:08.572] - Condition #246: 'simpleMessage', 'message', 'condition'
     [14:17:07.708] signalConditions() ...
     [14:17:08.573] - Condition #247: 'simpleMessage', 'message', 'condition'
     [14:17:07.709] - include = 'immediateCondition'
     [14:17:08.574] - Condition #248: 'simpleMessage', 'message', 'condition'
     [14:17:07.710] - exclude =
     [14:17:08.574] - Condition #249: 'simpleMessage', 'message', 'condition'
     [14:17:07.711] - resignal = FALSE
     [14:17:08.575] - Condition #250: 'simpleMessage', 'message', 'condition'
     [14:17:07.711] - Number of conditions: 2
     [14:17:08.576] - Condition #251: 'simpleMessage', 'message', 'condition'
     [14:17:07.712] signalConditions() ... done
     [14:17:08.576] - Condition #252: 'simpleMessage', 'message', 'condition'
     [14:17:07.713] result() for ClusterFuture ...
     [14:17:08.577] - Condition #253: 'simpleMessage', 'message', 'condition'
     [14:17:07.714] - result already collected: FutureResult
     [14:17:08.578] - Condition #254: 'simpleMessage', 'message', 'condition'
     [14:17:07.714] result() for ClusterFuture ... done
     [14:17:08.579] - Condition #255: 'simpleMessage', 'message', 'condition'
     [14:17:07.715] signalConditions() ...
     [14:17:08.579] - Condition #256: 'simpleMessage', 'message', 'condition'
     [14:17:07.716] - include = 'condition'
     [14:17:08.580] - Condition #257: 'simpleMessage', 'message', 'condition'
     [14:17:07.717] - exclude = 'immediateCondition'
     [14:17:08.580] - Condition #258: 'simpleMessage', 'message', 'condition'
     [14:17:07.718] - resignal = FALSE
     [14:17:08.581] - Condition #259: 'simpleMessage', 'message', 'condition'
     [14:17:07.718] - Number of conditions: 2
     [14:17:08.582] - Condition #260: 'simpleMessage', 'message', 'condition'
     [14:17:07.719] - Condition #1: 'simpleMessage', 'message', 'condition'
     [14:17:08.582] - Condition #261: 'simpleMessage', 'message', 'condition'
     sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
     [14:17:08.583] - Condition #262: 'simpleMessage', 'message', 'condition'
     [14:17:07.720] - Condition #2: 'simpleMessage', 'message', 'condition'
     [14:17:08.584] - Condition #263: 'simpleMessage', 'message', 'condition'
     sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
     [14:17:08.584] - Condition #264: 'simpleMessage', 'message', 'condition'
     [14:17:07.721] signalConditions() ... done
     [14:17:08.585] - Condition #265: 'simpleMessage', 'message', 'condition'
     [14:17:07.722] - relayed: [n=2] TRUE, TRUE
     [14:17:08.586] - Condition #266: 'simpleMessage', 'message', 'condition'
     [14:17:07.723] - queued futures: [n=2] TRUE, TRUE
     [14:17:08.586] - Condition #267: 'simpleMessage', 'message', 'condition'
     [14:17:07.723] signalConditionsASAP(MultisessionFuture, pos=2) ... done
     [14:17:08.587] - Condition #268: 'simpleMessage', 'message', 'condition'
     [14:17:07.724] length: 0 (resolved future 2)
     [14:17:08.588] - Condition #269: 'simpleMessage', 'message', 'condition'
     [14:17:07.725] Relaying remaining futures
     [14:17:08.588] - Condition #270: 'simpleMessage', 'message', 'condition'
     [14:17:07.726] signalConditionsASAP(NULL, pos=0) ...
     [14:17:08.589] - Condition #271: 'simpleMessage', 'message', 'condition'
     [14:17:07.726] - nx: 2
     [14:17:08.590] - Condition #272: 'simpleMessage', 'message', 'condition'
     [14:17:07.727] - relay: TRUE
     [14:17:08.590] - Condition #273: 'simpleMessage', 'message', 'condition'
     [14:17:07.728] - stdout: TRUE
     [14:17:08.591] - Condition #274: 'simpleMessage', 'message', 'condition'
     [14:17:07.728] - signal: TRUE
     [14:17:08.591] - Condition #275: 'simpleMessage', 'message', 'condition'
     [14:17:07.729] - resignal: FALSE
     [14:17:08.592] - Condition #276: 'simpleMessage', 'message', 'condition'
     [14:17:07.730] - force: FALSE
     [14:17:08.593] - Condition #277: 'simpleMessage', 'message', 'condition'
     [14:17:07.730] - relayed: [n=2] TRUE, TRUE
     [14:17:08.593] - Condition #278: 'simpleMessage', 'message', 'condition'
     [14:17:07.731] - queued futures: [n=2] TRUE, TRUE
     [14:17:08.594] - Condition #279: 'simpleMessage', 'message', 'condition'
     - flush all
     [14:17:08.595] - Condition #280: 'simpleMessage', 'message', 'condition'
     [14:17:07.733] - relayed: [n=2] TRUE, TRUE
     [14:17:08.595] - Condition #281: 'simpleMessage', 'message', 'condition'
     [14:17:07.733] - queued futures: [n=2] TRUE, TRUE
     [14:17:08.596] - Condition #282: 'simpleMessage', 'message', 'condition'
     [14:17:07.734] signalConditionsASAP(NULL, pos=0) ... done
     [14:17:08.597] - Condition #283: 'simpleMessage', 'message', 'condition'
     [14:17:07.735] resolve() on list ... DONE
     [14:17:08.597] - Condition #284: 'simpleMessage', 'message', 'condition'
     [14:17:07.736] - collecting values of futures
     [14:17:08.598] - Condition #285: 'simpleMessage', 'message', 'condition'
     [14:17:07.736] result() for ClusterFuture ...
     [14:17:08.599] - Condition #286: 'simpleMessage', 'message', 'condition'
     [14:17:07.737] - result already collected: FutureResult
     [14:17:08.599] - Condition #287: 'simpleMessage', 'message', 'condition'
     [14:17:07.738] result() for ClusterFuture ... done
     [14:17:08.600] - Condition #288: 'simpleMessage', 'message', 'condition'
     [14:17:07.739] result() for ClusterFuture ...
     [14:17:08.601] - Condition #289: 'simpleMessage', 'message', 'condition'
     [14:17:07.739] - result already collected: FutureResult
     [14:17:08.601] - Condition #290: 'simpleMessage', 'message', 'condition'
     [14:17:07.740] result() for ClusterFuture ... done
     [14:17:08.602] - Condition #291: 'simpleMessage', 'message', 'condition'
     [14:17:07.741] signalConditions() ...
     [14:17:08.603] - Condition #292: 'simpleMessage', 'message', 'condition'
     [14:17:07.742] - include = 'immediateCondition'
     [14:17:08.603] - Condition #293: 'simpleMessage', 'message', 'condition'
     [14:17:07.742] - exclude =
     [14:17:08.604] - Condition #294: 'simpleMessage', 'message', 'condition'
     [14:17:07.743] - resignal = FALSE
     [14:17:08.610] - Condition #295: 'simpleMessage', 'message', 'condition'
     [14:17:07.744] - Number of conditions: 1
     [14:17:08.611] - Condition #296: 'simpleMessage', 'message', 'condition'
     [14:17:07.745] signalConditions() ... done
     [14:17:08.611] - Condition #297: 'simpleMessage', 'message', 'condition'
     [14:17:07.746] result() for ClusterFuture ...
     [14:17:08.612] - Condition #298: 'simpleMessage', 'message', 'condition'
     [14:17:07.746] - result already collected: FutureResult
     [14:17:08.613] - Condition #299: 'simpleMessage', 'message', 'condition'
     [14:17:07.747] result() for ClusterFuture ... done
     [14:17:08.613] - Condition #300: 'simpleMessage', 'message', 'condition'
     [14:17:07.748] result() for ClusterFuture ...
     [14:17:08.614] - Condition #301: 'simpleMessage', 'message', 'condition'
     [14:17:07.749] - result already collected: FutureResult
     [14:17:08.615] - Condition #302: 'simpleMessage', 'message', 'condition'
     [14:17:07.749] result() for ClusterFuture ... done
     [14:17:08.615] - Condition #303: 'simpleMessage', 'message', 'condition'
     [14:17:07.750] signalConditions() ...
     [14:17:08.616] - Condition #304: 'simpleMessage', 'message', 'condition'
     [14:17:07.751] - include = 'immediateCondition'
     [14:17:08.617] - Condition #305: 'simpleMessage', 'message', 'condition'
     [14:17:07.752] - exclude =
     [14:17:08.617] - Condition #306: 'simpleMessage', 'message', 'condition'
     [14:17:07.752] - resignal = FALSE
     [14:17:08.618] - Condition #307: 'simpleMessage', 'message', 'condition'
     [14:17:07.753] - Number of conditions: 2
     [14:17:08.618] - Condition #308: 'simpleMessage', 'message', 'condition'
     [14:17:07.754] signalConditions() ... done
     [14:17:08.619] - Condition #309: 'simpleMessage', 'message', 'condition'
     [14:17:07.755] - accumulating results
     [14:17:08.620] - Condition #310: 'simpleMessage', 'message', 'condition'
     [14:17:07.757] - processing errors (handler = 'stop')
     [14:17:08.620] - Condition #311: 'simpleMessage', 'message', 'condition'
     [14:17:07.758] - extracting results
     [14:17:08.621] - Condition #312: 'simpleMessage', 'message', 'condition'
     [14:17:07.758] doFuture() ... DONE
     [14:17:08.622] - Condition #313: 'simpleMessage', 'message', 'condition'
     foreach() - level 2 ... DONE
     [14:17:08.622] - Condition #314: 'simpleMessage', 'message', 'condition'
     foreach() - level 2 ...
     [14:17:08.623] - Condition #315: 'simpleMessage', 'message', 'condition'
     [14:17:07.774] doFuture() ...
     [14:17:08.624] - Condition #316: 'simpleMessage', 'message', 'condition'
     [14:17:07.777] - dummy globals (as locals): [1] 'b'
     [14:17:08.624] - Condition #317: 'simpleMessage', 'message', 'condition'
     [14:17:07.779] - R expression:
     [14:17:08.625] - Condition #318: 'simpleMessage', 'message', 'condition'
     [14:17:07.780] {
     [14:17:07.780] doFuture::registerDoFuture()
     [14:17:07.780] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:17:07.780] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:17:07.780] b <- NULL
     [14:17:07.780] ...future.env <- environment()
     [14:17:07.780] local({
     [14:17:07.780] for (name in names(...future.x_jj)) {
     [14:17:07.780] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:17:07.780] inherits = FALSE)
     [14:17:07.780] }
     [14:17:07.780] })
     [14:17:07.780] tryCatch({
     [14:17:07.780] plan_list <- future::plan("next")
     [14:17:07.780] message(capture.output(print(plan_list)))
     [14:17:07.780] stopifnot(inherits(plan_list, "future"))
     [14:17:07.780] default <- getOption("future.plan", "sequential")
     [14:17:07.780] if (is.function(default))
     [14:17:07.780] default <- class(default)
     [14:17:07.780] stopifnot(inherits(plan_list, default))
     [14:17:07.780] plan_b <- future::plan("list")
     [14:17:07.780] str(plan_b)
     [14:17:07.780] stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]],
     [14:17:07.780] default))
     [14:17:07.780] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:17:07.780] }, error = identity)
     [14:17:07.780] })
     [14:17:07.780] }
     [14:17:08.626] - Condition #319: 'simpleMessage', 'message', 'condition'
     [14:17:07.782] - identifying globals and packages ...
     [14:17:08.627] - Condition #320: 'simpleMessage', 'message', 'condition'
     [14:17:07.783] getGlobalsAndPackages() ...
     [14:17:08.627] - Condition #321: 'simpleMessage', 'message', 'condition'
     [14:17:07.784] Searching for globals...
     [14:17:08.628] - Condition #322: 'simpleMessage', 'message', 'condition'
     [14:17:07.819] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
     [14:17:08.629] - Condition #323: 'simpleMessage', 'message', 'condition'
     [14:17:07.820] Searching for globals ... DONE
     [14:17:08.629] - Condition #324: 'simpleMessage', 'message', 'condition'
     [14:17:07.821] Resolving globals: FALSE
     [14:17:08.630] - Condition #325: 'simpleMessage', 'message', 'condition'
     [14:17:07.830] The total size of the 3 globals is 81.59 KiB (83544 bytes)
     [14:17:08.631] - Condition #326: 'simpleMessage', 'message', 'condition'
     [14:17:07.832] - globals: [3] '...future.x_ii', 'a', 'plan_a'
     [14:17:08.631] - Condition #327: 'simpleMessage', 'message', 'condition'
     [14:17:07.833] - packages: [1] 'utils'
     [14:17:08.632] - Condition #328: 'simpleMessage', 'message', 'condition'
     [14:17:07.834] getGlobalsAndPackages() ... DONE
     [14:17:08.633] - Condition #329: 'simpleMessage', 'message', 'condition'
     [14:17:07.835] List of 3
     [14:17:07.835] $ ...future.x_ii: NULL
     [14:17:07.835] $ a : int 2
     [14:17:07.835] $ plan_a :List of 1
     [14:17:07.835] ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     [14:17:07.835] seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(),
     [14:17:07.835] gc = FALSE, earlySignal = FALSE, label = NULL, ...)
     [14:17:07.835] .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
     [14:17:07.835] .. ..- attr(*, "init")= logi TRUE
     [14:17:07.835] .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
     [14:17:07.835] ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     [14:17:07.835] - attr(*, "where")=List of 3
     [14:17:07.835] ..$ ...future.x_ii:<environment: 0x19a99d0>
     [14:17:07.835] ..$ a :<environment: 0x366bbe0>
     [14:17:07.835] ..$ plan_a :<environment: 0x366bbe0>
     [14:17:07.835] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
     [14:17:07.835] - attr(*, "resolved")= logi FALSE
     [14:17:07.835] - attr(*, "total_size")= num 83544
     [14:17:08.633] - Condition #330: 'simpleMessage', 'message', 'condition'
     [14:17:07.856] - R expression:
     [14:17:08.634] - Condition #331: 'simpleMessage', 'message', 'condition'
     [14:17:07.857] {
     [14:17:07.857] doFuture::registerDoFuture()
     [14:17:07.857] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:17:07.857] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:17:07.857] b <- NULL
     [14:17:07.857] ...future.env <- environment()
     [14:17:07.857] local({
     [14:17:07.857] for (name in names(...future.x_jj)) {
     [14:17:07.857] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:17:07.857] inherits = FALSE)
     [14:17:07.857] }
     [14:17:07.857] })
     [14:17:07.857] tryCatch({
     [14:17:07.857] plan_list <- future::plan("next")
     [14:17:07.857] message(capture.output(print(plan_list)))
     [14:17:07.857] stopifnot(inherits(plan_list, "future"))
     [14:17:07.857] default <- getOption("future.plan", "sequential")
     [14:17:07.857] if (is.function(default))
     [14:17:07.857] default <- class(default)
     [14:17:07.857] stopifnot(inherits(plan_list, default))
     [14:17:07.857] plan_b <- future::plan("list")
     [14:17:07.857] str(plan_b)
     [14:17:07.857] stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]],
     [14:17:07.857] default))
     [14:17:07.857] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:17:07.857] }, error = identity)
     [14:17:07.857] })
     [14:17:07.857] }
     [14:17:08.635] - Condition #332: 'simpleMessage', 'message', 'condition'
     [14:17:07.859] - globals: [3] '...future.x_ii', 'a', 'plan_a'
     [14:17:08.635] - Condition #333: 'simpleMessage', 'message', 'condition'
     [14:17:07.860] List of 3
     [14:17:07.860] $ ...future.x_ii: NULL
     [14:17:07.860] $ a : int 2
     [14:17:07.860] $ plan_a :List of 1
     [14:17:07.860] ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     [14:17:07.860] seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(),
     [14:17:07.860] gc = FALSE, earlySignal = FALSE, label = NULL, ...)
     [14:17:07.860] .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
     [14:17:07.860] .. ..- attr(*, "init")= logi TRUE
     [14:17:07.860] .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
     [14:17:07.860] ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     [14:17:07.860] - attr(*, "where")=List of 3
     [14:17:07.860] ..$ ...future.x_ii:<environment: 0x19a99d0>
     [14:17:07.860] ..$ a :<environment: 0x366bbe0>
     [14:17:07.860] ..$ plan_a :<environment: 0x366bbe0>
     [14:17:07.860] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
     [14:17:07.860] - attr(*, "resolved")= logi FALSE
     [14:17:07.860] - attr(*, "total_size")= num 83544
     [14:17:08.636] - Condition #334: 'simpleMessage', 'message', 'condition'
     [14:17:07.882] - packages: [2] 'doFuture', 'utils'
     [14:17:08.637] - Condition #335: 'simpleMessage', 'message', 'condition'
     [14:17:07.882] - identifying globals and packages ... DONE
     [14:17:08.637] - Condition #336: 'simpleMessage', 'message', 'condition'
     [14:17:07.884] Number of chunks: 2
     [14:17:08.638] - Condition #337: 'simpleMessage', 'message', 'condition'
     [14:17:07.885] Number of futures (= number of chunks): 2
     [14:17:08.639] - Condition #338: 'simpleMessage', 'message', 'condition'
     [14:17:07.886] Launching 2 futures (chunks) ...
     [14:17:08.639] - Condition #339: 'simpleMessage', 'message', 'condition'
     [14:17:07.887] Chunk #1 of 2 ...
     [14:17:08.640] - Condition #340: 'simpleMessage', 'message', 'condition'
     [14:17:07.888] - Finding globals in 'args_list' chunk #1 ...
     [14:17:08.640] - Condition #341: 'simpleMessage', 'message', 'condition'
     [14:17:07.888] getGlobalsAndPackages() ...
     [14:17:08.641] - Condition #342: 'simpleMessage', 'message', 'condition'
     [14:17:07.889] Searching for globals...
     [14:17:08.642] - Condition #343: 'simpleMessage', 'message', 'condition'
     [14:17:07.890]
     [14:17:08.642] - Condition #344: 'simpleMessage', 'message', 'condition'
     [14:17:07.891] Searching for globals ... DONE
     [14:17:08.643] - Condition #345: 'simpleMessage', 'message', 'condition'
     [14:17:07.892] - globals: [0] <none>
     [14:17:08.643] - Condition #346: 'simpleMessage', 'message', 'condition'
     [14:17:07.892] getGlobalsAndPackages() ... DONE
     [14:17:08.644] - Condition #347: 'simpleMessage', 'message', 'condition'
     [14:17:07.893]
     [14:17:08.644] - Condition #348: 'simpleMessage', 'message', 'condition'
     [14:17:07.893]
     [14:17:08.647] - Condition #349: 'simpleMessage', 'message', 'condition'
     [14:17:07.894] - Finding globals in 'args_list' for chunk #1 ... DONE
     [14:17:08.647] - Condition #350: 'simpleMessage', 'message', 'condition'
     [14:17:07.896] getGlobalsAndPackages() ...
     [14:17:08.648] - Condition #351: 'simpleMessage', 'message', 'condition'
     [14:17:07.901] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
     [14:17:08.649] - Condition #352: 'simpleMessage', 'message', 'condition'
     [14:17:07.902] Resolving globals: FALSE
     [14:17:08.649] - Condition #353: 'simpleMessage', 'message', 'condition'
     [14:17:07.905] The total size of the 3 globals is 81.64 KiB (83600 bytes)
     [14:17:08.650] - Condition #354: 'simpleMessage', 'message', 'condition'
     [14:17:07.906] - globals: [3] '...future.x_ii', 'a', 'plan_a'
     [14:17:08.650] - Condition #355: 'simpleMessage', 'message', 'condition'
     [14:17:07.906]
     [14:17:08.651] - Condition #356: 'simpleMessage', 'message', 'condition'
     [14:17:07.907] getGlobalsAndPackages() ... DONE
     [14:17:08.652] - Condition #357: 'simpleMessage', 'message', 'condition'
     [14:17:07.921] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
     [14:17:08.652] - Condition #358: 'simpleMessage', 'message', 'condition'
     [14:17:07.922] Packages needed by future strategies (n = 0): <none>
     [14:17:08.653] - Condition #359: 'simpleMessage', 'message', 'condition'
     [14:17:07.929] {
     [14:17:07.929] {
     [14:17:07.929] ...future.startTime <- base::Sys.time()
     [14:17:07.929] ...future.oldOptions <- base::options(future.startup.script = FALSE,
     [14:17:07.929] future.globals.onMissing = NULL, future.globals.maxSize = NULL,
     [14:17:07.929] future.globals.method = NULL, future.globals.onMissing = NULL,
     [14:17:07.929] future.globals.onReference = NULL, future.globals.resolve = NULL,
     [14:17:07.929] future.resolve.recursive = NULL, width = 80L)
     [14:17:07.929] {
     [14:17:07.929] {
     [14:17:07.929] {
     [14:17:07.929] {
     [14:17:07.929] base::local({
     [14:17:07.929] has_future <- base::requireNamespace("future",
     [14:17:07.929] quietly = TRUE)
     [14:17:07.929] version <- if (has_future)
     [14:17:07.929] utils::packageVersion("future")
     [14:17:07.929] else NULL
     [14:17:07.929] if (!has_future || version < "1.8.0") {
     [14:17:07.929] info <- base::c(r_version = base::gsub("R version ",
     [14:17:07.929] "", base::R.version$version.string),
     [14:17:07.929] platform = base::sprintf("%s (%s-bit)",
     [14:17:07.929] base::R.version$platform, 8 * base::.Machine$sizeof.pointer),
     [14:17:07.929] os = base::paste(base::Sys.info()[base::c("sysname",
     [14:17:07.929] "release", "version")], collapse = " "),
     [14:17:07.929] hostname = base::Sys.info()[["nodename"]])
     [14:17:07.929] info <- base::sprintf("%s: %s", base::names(info),
     [14:17:07.929] info)
     [14:17:07.929] info <- base::paste(info, collapse = "; ")
     [14:17:07.929] if (!has_future) {
     [14:17:07.929] msg <- base::sprintf("Package 'future' is not installed on worker (%s)",
     [14:17:07.929] info)
     [14:17:07.929] }
     [14:17:07.929] else {
     [14:17:07.929] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s",
     [14:17:07.929] info, version)
     [14:17:07.929] }
     [14:17:07.929] base::stop(msg)
     [14:17:07.929] }
     [14:17:07.929] })
     [14:17:07.929] }
     [14:17:07.929] ...future.mc.cores.old <- base::getOption("mc.cores")
     [14:17:07.929] base::options(mc.cores = 1L)
     [14:17:07.929] }
     [14:17:07.929] base::local({
     [14:17:07.929] for (pkg in c("doFuture", "utils")) {
     [14:17:07.929] base::loadNamespace(pkg)
     [14:17:07.929] base::library(pkg, character.only = TRUE)
     [14:17:07.929] }
     [14:17:07.929] })
     [14:17:07.929] }
     [14:17:07.929] future::plan("default", .cleanup = FALSE, .init = FALSE)
     [14:17:07.929] }
     [14:17:07.929] }
     [14:17:07.929] if (base::is.na(TRUE)) {
     [14:17:07.929] }
     [14:17:07.929] else {
     [14:17:07.929] if (TRUE) {
     [14:17:07.929] ...future.stdout <- base::rawConnection(base::raw(0L),
     [14:17:07.929] open = "w")
     [14:17:07.929] }
     [14:17:07.929] else {
     [14:17:07.929] ...future.stdout <- base::file(base::switch(.Platform$OS.type,
     [14:17:07.929] windows = "NUL", "/dev/null"), open = "w")
     [14:17:07.929] }
     [14:17:07.929] base::sink(...future.stdout, type = "output", split = FALSE)
     [14:17:07.929] base::on.exit(if (!base::is.null(...future.stdout)) {
     [14:17:07.929] base::sink(type = "output", split = FALSE)
     [14:17:07.929] base::close(...future.stdout)
     [14:17:07.929] }, add = TRUE)
     [14:17:07.929] }
     [14:17:07.929] ...future.frame <- base::sys.nframe()
     [14:17:07.929] ...future.conditions <- base::list()
     [14:17:07.929] ...future.rng <- base::globalenv()$.Random.seed
     [14:17:07.929] ...future.result <- base::tryCatch({
     [14:17:07.929] base::withCallingHandlers({
     [14:17:07.929] ...future.value <- base::withVisible(base::local({
     [14:17:07.929] ...future.sendCondition <- local({
     [14:17:07.929] sendCondition <- NULL
     [14:17:07.929] function(frame = 1L) {
     [14:17:07.929] if (is.function(sendCondition))
     [14:17:07.929] return(sendCondition)
     [14:17:07.929] ns <- getNamespace("parallel")
     [14:17:07.929] if (exists("sendData", mode = "function",
     [14:17:07.929] envir = ns)) {
     [14:17:07.929] parallel_sendData <- get("sendData", mode = "function",
     [14:17:07.929] envir = ns)
     [14:17:07.929] envir <- sys.frame(frame)
     [14:17:07.929] master <- NULL
     [14:17:07.929] while (!identical(envir, .GlobalEnv) &&
     [14:17:07.929] !identical(envir, emptyenv())) {
     [14:17:07.929] if (exists("master", mode = "list", envir = envir,
     [14:17:07.929] inherits = FALSE)) {
     [14:17:07.929] master <- get("master", mode = "list",
     [14:17:07.929] envir = envir, inherits = FALSE)
     [14:17:07.929] if (inherits(master, "SOCKnode")) {
     [14:17:07.929] sendCondition <<- function(cond) {
     [14:17:07.929] data <- list(type = "VALUE", value = cond,
     [14:17:07.929] success = TRUE)
     [14:17:07.929] parallel_sendData(master, data)
     [14:17:07.929] }
     [14:17:07.929] return(sendCondition)
     [14:17:07.929] }
     [14:17:07.929] }
     [14:17:07.929] frame <- frame + 1L
     [14:17:07.929] envir <- sys.frame(frame)
     [14:17:07.929] }
     [14:17:07.929] }
     [14:17:07.929] sendCondition <<- function(cond) NULL
     [14:17:07.929] }
     [14:17:07.929] })
     [14:17:07.929] withCallingHandlers({
     [14:17:07.929] {
     [14:17:07.929] doFuture::registerDoFuture()
     [14:17:07.929] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:17:07.929] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:17:07.929] b <- NULL
     [14:17:07.929] ...future.env <- environment()
     [14:17:07.929] local({
     [14:17:07.929] for (name in names(...future.x_jj)) {
     [14:17:07.929] assign(name, ...future.x_jj[[name]],
     [14:17:07.929] envir = ...future.env, inherits = FALSE)
     [14:17:07.929] }
     [14:17:07.929] })
     [14:17:07.929] tryCatch({
     [14:17:07.929] plan_list <- future::plan("next")
     [14:17:07.929] message(capture.output(print(plan_list)))
     [14:17:07.929] stopifnot(inherits(plan_list, "future"))
     [14:17:07.929] default <- getOption("future.plan", "sequential")
     [14:17:07.929] if (is.function(default))
     [14:17:07.929] default <- class(default)
     [14:17:07.929] stopifnot(inherits(plan_list, default))
     [14:17:07.929] plan_b <- future::plan("list")
     [14:17:07.929] str(plan_b)
     [14:17:07.929] stopifnot(inherits(plan_b[[1]], "future"),
     [14:17:07.929] inherits(plan_b[[1]], default))
     [14:17:07.929] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:17:07.929] }, error = identity)
     [14:17:07.929] })
     [14:17:07.929] }
     [14:17:07.929] }, immediateCondition = function(cond) {
     [14:17:07.929] sendCondition <- ...future.sendCondition()
     [14:17:07.929] sendCondition(cond)
     [14:17:07.929] muffleCondition <- function (cond)
     [14:17:07.929] {
     [14:17:07.929] inherits <- base::inherits
     [14:17:07.929] invokeRestart <- base::invokeRestart
     [14:17:07.929] muffled <- FALSE
     [14:17:07.929] if (inherits(cond, "message")) {
     [14:17:07.929] invokeRestart("muffleMessage")
     [14:17:07.929] muffled <- TRUE
     [14:17:07.929] }
     [14:17:07.929] else if (inherits(cond, "warning")) {
     [14:17:07.929] invokeRestart("muffleWarning")
     [14:17:07.929] muffled <- TRUE
     [14:17:07.929] }
     [14:17:07.929] else if (inherits(cond, "condition")) {
     [14:17:07.929] computeRestarts <- base::computeRestarts
     [14:17:07.929] grepl <- base::grepl
     [14:17:07.929] is.null <- base::is.null
     [14:17:07.929] restarts <- computeRestarts(cond)
     [14:17:07.929] for (restart in restarts) {
     [14:17:07.929] name <- restart$name
     [14:17:07.929] if (is.null(name))
     [14:17:07.929] next
     [14:17:07.929] if (!grepl("^muffle", name))
     [14:17:07.929] next
     [14:17:07.929] invokeRestart(restart)
     [14:17:07.929] muffled <- TRUE
     [14:17:07.929] break
     [14:17:07.929] }
     [14:17:07.929] }
     [14:17:07.929] invisible(muffled)
     [14:17:07.929] }
     [14:17:07.929] muffleCondition(cond)
     [14:17:07.929] })
     [14:17:07.929] }))
     [14:17:07.929] future::FutureResult(value = ...future.value$value,
     [14:17:07.929] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed,
     [14:17:07.929] ...future.rng), started = ...future.startTime,
     [14:17:07.929] version = "1.8")
     [14:17:07.929] }, condition = base::local({
     [14:17:07.929] c <- base::c
     [14:17:07.929] inherits <- base::inherits
     [14:17:07.929] invokeRestart <- base::invokeRestart
     [14:17:07.929] length <- base::length
     [14:17:07.929] list <- base::list
     [14:17:07.929] seq.int <- base::seq.int
     [14:17:07.929] signalCondition <- base::signalCondition
     [14:17:07.929] sys.calls <- base::sys.calls
     [14:17:07.929] Sys.time <- base::Sys.time
     [14:17:07.929] `[[` <- base::`[[`
     [14:17:07.929] `+` <- base::`+`
     [14:17:07.929] `<<-` <- base::`<<-`
     [14:17:07.929] sysCalls <- function(calls = sys.calls(), from = 1L) {
     [14:17:07.929] calls[seq.int(from = from + 12L, to = length(calls) -
     [14:17:07.929] 3L)]
     [14:17:07.929] }
     [14:17:07.929] function(cond) {
     [14:17:07.929] if (inherits(cond, "error")) {
     [14:17:07.929] sessionInformation <- function() {
     [14:17:07.929] list(r = base::R.Version(), locale = base::Sys.getlocale(),
     [14:17:07.929] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(),
     [14:17:07.929] search = base::search(), system = base::Sys.info())
     [14:17:07.929] }
     [14:17:07.929] ...future.conditions[[length(...future.conditions) +
     [14:17:07.929] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame),
     [14:17:07.929] cond$call), session = sessionInformation(),
     [14:17:07.929] timestamp = Sys.time(), signaled = 0L)
     [14:17:07.929] signalCondition(cond)
     [14:17:07.929] }
     [14:17:07.929] else if (inherits(cond, c("condition", "immediateCondition"
     [14:17:07.929] ))) {
     [14:17:07.929] signal <- TRUE && inherits(cond, "immediateCondition")
     [14:17:07.929] ...future.conditions[[length(...future.conditions) +
     [14:17:07.929] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
     [14:17:07.929] if (!signal) {
     [14:17:07.929] muffleCondition <- function (cond)
     [14:17:07.929] {
     [14:17:07.929] inherits <- base::inherits
     [14:17:07.929] invokeRestart <- base::invokeRestart
     [14:17:07.929] muffled <- FALSE
     [14:17:07.929] if (inherits(cond, "message")) {
     [14:17:07.929] invokeRestart("muffleMessage")
     [14:17:07.929] muffled <- TRUE
     [14:17:07.929] }
     [14:17:07.929] else if (inherits(cond, "warning")) {
     [14:17:07.929] invokeRestart("muffleWarning")
     [14:17:07.929] muffled <- TRUE
     [14:17:07.929] }
     [14:17:07.929] else if (inherits(cond, "condition")) {
     [14:17:07.929] computeRestarts <- base::computeRestarts
     [14:17:07.929] grepl <- base::grepl
     [14:17:07.929] is.null <- base::is.null
     [14:17:07.929] restarts <- computeRestarts(cond)
     [14:17:07.929] for (restart in restarts) {
     [14:17:07.929] name <- restart$name
     [14:17:07.929] if (is.null(name))
     [14:17:07.929] next
     [14:17:07.929] if (!grepl("^muffle", name))
     [14:17:07.929] next
     [14:17:07.929] invokeRestart(restart)
     [14:17:07.929] muffled <- TRUE
     [14:17:07.929] break
     [14:17:07.929] }
     [14:17:07.929] }
     [14:17:07.929] invisible(muffled)
     [14:17:07.929] }
     [14:17:07.929] muffleCondition(cond)
     [14:17:07.929] }
     [14:17:07.929] }
     [14:17:07.929] }
     [14:17:07.929] }))
     [14:17:07.929] }, error = function(ex) {
     [14:17:07.929] base::structure(base::list(value = NULL, visible = NULL,
     [14:17:07.929] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed,
     [14:17:07.929] ...future.rng), version = "1.8"), class = "FutureResult")
     [14:17:07.929] }, finally = {
     [14:17:07.929] {
     [14:17:07.929] {
     [14:17:07.929] base::options(mc.cores = ...future.mc.cores.old)
     [14:17:07.929] }
     [14:17:07.929] future::plan(list(b = function (expr, envir = parent.frame(),
     [14:17:07.929] substitute = TRUE, lazy = FALSE, seed = NULL,
     [14:17:07.929] globals = TRUE, persistent = FALSE, workers = availableCores(),
     [14:17:07.929] gc = FALSE, earlySignal = FALSE, label = NULL,
     [14:17:07.929] ...)
     [14:17:07.929] {
     [14:17:07.929] if (substitute)
     [14:17:07.929] expr <- substitute(expr)
     [14:17:07.929] if (is.function(workers))
     [14:17:07.929] workers <- workers()
     [14:17:07.929] workers <- as.integer(workers)
     [14:17:07.929] stop_if_not(length(workers) == 1, is.finite(workers),
     [14:17:07.929] workers >= 1)
     [14:17:07.929] if (workers == 1L) {
     [14:17:07.929] return(sequential(expr, envir = envir, substitute = FALSE,
     [14:17:07.929] lazy = TRUE, seed = seed, globals = globals,
     [14:17:07.929] local = TRUE, label = label, ...))
     [14:17:07.929] }
     [14:17:07.929] workers <- ClusterRegistry("start", workers = workers)
     [14:17:07.929] future <- MultisessionFuture(expr = expr, envir = envir,
     [14:17:07.929] substitute = FALSE, lazy = lazy, seed = seed,
     [14:17:07.929] globals = globals, persistent = persistent,
     [14:17:07.929] workers = workers, gc = gc, earlySignal = earlySignal,
     [14:17:07.929] label = label, ...)
     [14:17:07.929] if (!future$lazy)
     [14:17:07.929] future <- run(future)
     [14:17:07.929] invisible(future)
     [14:17:07.929] }), .cleanup = FALSE, .init = FALSE)
     [14:17:07.929] }
     [14:17:07.929] base::options(...future.oldOptions)
     [14:17:07.929] })
     [14:17:07.929] Sys.time
     [14:17:07.929] if (base::is.na(TRUE)) {
     [14:17:07.929] }
     [14:17:07.929] else {
     [14:17:07.929] base::sink(type = "output", split = FALSE)
     [14:17:07.929] if (TRUE) {
     [14:17:07.929] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
     [14:17:07.929] }
     [14:17:07.929] else {
     [14:17:07.929] ...future.result["stdout"] <- base::list(NULL)
     [14:17:07.929] }
     [14:17:07.929] base::close(...future.stdout)
     [14:17:07.929] ...future.stdout <- NULL
     [14:17:07.929] }
     [14:17:07.929] ...future.result$conditions <- ...future.conditions
     [14:17:07.929] ...future.result
     [14:17:07.929] }
     [14:17:08.653] - Condition #360: 'simpleMessage', 'message', 'condition'
     [14:17:07.941] Exporting 3 global objects (81.64 KiB) to cluster node #1 ...
     [14:17:08.654] - Condition #361: 'simpleMessage', 'message', 'condition'
     [14:17:07.942] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
     [14:17:08.655] - Condition #362: 'simpleMessage', 'message', 'condition'
     [14:17:07.945] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
     [14:17:08.655] - Condition #363: 'simpleMessage', 'message', 'condition'
     [14:17:07.946] Exporting 'a' (56 bytes) to cluster node #1 ...
     [14:17:08.656] - Condition #364: 'simpleMessage', 'message', 'condition'
     [14:17:07.948] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
     [14:17:08.657] - Condition #365: 'simpleMessage', 'message', 'condition'
     [14:17:07.950] Exporting 'plan_a' (81.53 KiB) to cluster node #1 ...
     [14:17:08.657] - Condition #366: 'simpleMessage', 'message', 'condition'
     [14:17:07.993] Exporting 'plan_a' (81.53 KiB) to cluster node #1 ... DONE
     [14:17:08.658] - Condition #367: 'simpleMessage', 'message', 'condition'
     [14:17:07.994] Exporting 3 global objects (81.64 KiB) to cluster node #1 ... DONE
     [14:17:08.659] - Condition #368: 'simpleMessage', 'message', 'condition'
     [14:17:07.996] MultisessionFuture started
     [14:17:08.659] - Condition #369: 'simpleMessage', 'message', 'condition'
     [14:17:07.997] Chunk #1 of 2 ... DONE
     [14:17:08.660] - Condition #370: 'simpleMessage', 'message', 'condition'
     [14:17:07.997] Chunk #2 of 2 ...
     [14:17:08.661] - Condition #371: 'simpleMessage', 'message', 'condition'
     [14:17:07.998] - Finding globals in 'args_list' chunk #2 ...
     [14:17:08.661] - Condition #372: 'simpleMessage', 'message', 'condition'
     [14:17:07.999] getGlobalsAndPackages() ...
     [14:17:08.662] - Condition #373: 'simpleMessage', 'message', 'condition'
     [14:17:07.999] Searching for globals...
     [14:17:08.663] - Condition #374: 'simpleMessage', 'message', 'condition'
     [14:17:08.015]
     [14:17:08.663] - Condition #375: 'simpleMessage', 'message', 'condition'
     [14:17:08.016] Searching for globals ... DONE
     [14:17:08.664] - Condition #376: 'simpleMessage', 'message', 'condition'
     [14:17:08.017] - globals: [0] <none>
     [14:17:08.665] - Condition #377: 'simpleMessage', 'message', 'condition'
     [14:17:08.019] getGlobalsAndPackages() ... DONE
     [14:17:08.665] - Condition #378: 'simpleMessage', 'message', 'condition'
     [14:17:08.020]
     [14:17:08.666] - Condition #379: 'simpleMessage', 'message', 'condition'
     [14:17:08.021]
     [14:17:08.666] - Condition #380: 'simpleMessage', 'message', 'condition'
     [14:17:08.025] - Finding globals in 'args_list' for chunk #2 ... DONE
     [14:17:08.667] - Condition #381: 'simpleMessage', 'message', 'condition'
     [14:17:08.026] getGlobalsAndPackages() ...
     [14:17:08.668] - Condition #382: 'simpleMessage', 'message', 'condition'
     [14:17:08.030] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
     [14:17:08.668] - Condition #383: 'simpleMessage', 'message', 'condition'
     [14:17:08.031] Resolving globals: FALSE
     [14:17:08.669] - Condition #384: 'simpleMessage', 'message', 'condition'
     [14:17:08.037] The total size of the 3 globals is 81.70 KiB (83656 bytes)
     [14:17:08.670] - Condition #385: 'simpleMessage', 'message', 'condition'
     [14:17:08.041] - globals: [3] '...future.x_ii', 'a', 'plan_a'
     [14:17:08.670] - Condition #386: 'simpleMessage', 'message', 'condition'
     [14:17:08.042]
     [14:17:08.671] - Condition #387: 'simpleMessage', 'message', 'condition'
     [14:17:08.043] getGlobalsAndPackages() ... DONE
     [14:17:08.672] - Condition #388: 'simpleMessage', 'message', 'condition'
     [14:17:08.065] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
     [14:17:08.672] - Condition #389: 'simpleMessage', 'message', 'condition'
     [14:17:08.066] Packages needed by future strategies (n = 0): <none>
     [14:17:08.673] - Condition #390: 'simpleMessage', 'message', 'condition'
     [14:17:08.079] {
     [14:17:08.079] {
     [14:17:08.079] ...future.startTime <- base::Sys.time()
     [14:17:08.079] ...future.oldOptions <- base::options(future.startup.script = FALSE,
     [14:17:08.079] future.globals.onMissing = NULL, future.globals.maxSize = NULL,
     [14:17:08.079] future.globals.method = NULL, future.globals.onMissing = NULL,
     [14:17:08.079] future.globals.onReference = NULL, future.globals.resolve = NULL,
     [14:17:08.079] future.resolve.recursive = NULL, width = 80L)
     [14:17:08.079] {
     [14:17:08.079] {
     [14:17:08.079] {
     [14:17:08.079] {
     [14:17:08.079] base::local({
     [14:17:08.079] has_future <- base::requireNamespace("future",
     [14:17:08.079] quietly = TRUE)
     [14:17:08.079] version <- if (has_future)
     [14:17:08.079] utils::packageVersion("future")
     [14:17:08.079] else NULL
     [14:17:08.079] if (!has_future || version < "1.8.0") {
     [14:17:08.079] info <- base::c(r_version = base::gsub("R version ",
     [14:17:08.079] "", base::R.version$version.string),
     [14:17:08.079] platform = base::sprintf("%s (%s-bit)",
     [14:17:08.079] base::R.version$platform, 8 * base::.Machine$sizeof.pointer),
     [14:17:08.079] os = base::paste(base::Sys.info()[base::c("sysname",
     [14:17:08.079] "release", "version")], collapse = " "),
     [14:17:08.079] hostname = base::Sys.info()[["nodename"]])
     [14:17:08.079] info <- base::sprintf("%s: %s", base::names(info),
     [14:17:08.079] info)
     [14:17:08.079] info <- base::paste(info, collapse = "; ")
     [14:17:08.079] if (!has_future) {
     [14:17:08.079] msg <- base::sprintf("Package 'future' is not installed on worker (%s)",
     [14:17:08.079] info)
     [14:17:08.079] }
     [14:17:08.079] else {
     [14:17:08.079] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s",
     [14:17:08.079] info, version)
     [14:17:08.079] }
     [14:17:08.079] base::stop(msg)
     [14:17:08.079] }
     [14:17:08.079] })
     [14:17:08.079] }
     [14:17:08.079] ...future.mc.cores.old <- base::getOption("mc.cores")
     [14:17:08.079] base::options(mc.cores = 1L)
     [14:17:08.079] }
     [14:17:08.079] base::local({
     [14:17:08.079] for (pkg in c("doFuture", "utils")) {
     [14:17:08.079] base::loadNamespace(pkg)
     [14:17:08.079] base::library(pkg, character.only = TRUE)
     [14:17:08.079] }
     [14:17:08.079] })
     [14:17:08.079] }
     [14:17:08.079] future::plan("default", .cleanup = FALSE, .init = FALSE)
     [14:17:08.079] }
     [14:17:08.079] }
     [14:17:08.079] if (base::is.na(TRUE)) {
     [14:17:08.079] }
     [14:17:08.079] else {
     [14:17:08.079] if (TRUE) {
     [14:17:08.079] ...future.stdout <- base::rawConnection(base::raw(0L),
     [14:17:08.079] open = "w")
     [14:17:08.079] }
     [14:17:08.079] else {
     [14:17:08.079] ...future.stdout <- base::file(base::switch(.Platform$OS.type,
     [14:17:08.079] windows = "NUL", "/dev/null"), open = "w")
     [14:17:08.079] }
     [14:17:08.079] base::sink(...future.stdout, type = "output", split = FALSE)
     [14:17:08.079] base::on.exit(if (!base::is.null(...future.stdout)) {
     [14:17:08.079] base::sink(type = "output", split = FALSE)
     [14:17:08.079] base::close(...future.stdout)
     [14:17:08.079] }, add = TRUE)
     [14:17:08.079] }
     [14:17:08.079] ...future.frame <- base::sys.nframe()
     [14:17:08.079] ...future.conditions <- base::list()
     [14:17:08.079] ...future.rng <- base::globalenv()$.Random.seed
     [14:17:08.079] ...future.result <- base::tryCatch({
     [14:17:08.079] base::withCallingHandlers({
     [14:17:08.079] ...future.value <- base::withVisible(base::local({
     [14:17:08.079] ...future.sendCondition <- local({
     [14:17:08.079] sendCondition <- NULL
     [14:17:08.079] function(frame = 1L) {
     [14:17:08.079] if (is.function(sendCondition))
     [14:17:08.079] return(sendCondition)
     [14:17:08.079] ns <- getNamespace("parallel")
     [14:17:08.079] if (exists("sendData", mode = "function",
     [14:17:08.079] envir = ns)) {
     [14:17:08.079] parallel_sendData <- get("sendData", mode = "function",
     [14:17:08.079] envir = ns)
     [14:17:08.079] envir <- sys.frame(frame)
     [14:17:08.079] master <- NULL
     [14:17:08.079] while (!identical(envir, .GlobalEnv) &&
     [14:17:08.079] !identical(envir, emptyenv())) {
     [14:17:08.079] if (exists("master", mode = "list", envir = envir,
     [14:17:08.079] inherits = FALSE)) {
     [14:17:08.079] master <- get("master", mode = "list",
     [14:17:08.079] envir = envir, inherits = FALSE)
     [14:17:08.079] if (inherits(master, "SOCKnode")) {
     [14:17:08.079] sendCondition <<- function(cond) {
     [14:17:08.079] data <- list(type = "VALUE", value = cond,
     [14:17:08.079] success = TRUE)
     [14:17:08.079] parallel_sendData(master, data)
     [14:17:08.079] }
     [14:17:08.079] return(sendCondition)
     [14:17:08.079] }
     [14:17:08.079] }
     [14:17:08.079] frame <- frame + 1L
     [14:17:08.079] envir <- sys.frame(frame)
     [14:17:08.079] }
     [14:17:08.079] }
     [14:17:08.079] sendCondition <<- function(cond) NULL
     [14:17:08.079] }
     [14:17:08.079] })
     [14:17:08.079] withCallingHandlers({
     [14:17:08.079] {
     [14:17:08.079] doFuture::registerDoFuture()
     [14:17:08.079] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:17:08.079] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:17:08.079] b <- NULL
     [14:17:08.079] ...future.env <- environment()
     [14:17:08.079] local({
     [14:17:08.079] for (name in names(...future.x_jj)) {
     [14:17:08.079] assign(name, ...future.x_jj[[name]],
     [14:17:08.079] envir = ...future.env, inherits = FALSE)
     [14:17:08.079] }
     [14:17:08.079] })
     [14:17:08.079] tryCatch({
     [14:17:08.079] plan_list <- future::plan("next")
     [14:17:08.079] message(capture.output(print(plan_list)))
     [14:17:08.079] stopifnot(inherits(plan_list, "future"))
     [14:17:08.079] default <- getOption("future.plan", "sequential")
     [14:17:08.079] if (is.function(default))
     [14:17:08.079] default <- class(default)
     [14:17:08.079] stopifnot(inherits(plan_list, default))
     [14:17:08.079] plan_b <- future::plan("list")
     [14:17:08.079] str(plan_b)
     [14:17:08.079] stopifnot(inherits(plan_b[[1]], "future"),
     [14:17:08.079] inherits(plan_b[[1]], default))
     [14:17:08.079] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:17:08.079] }, error = identity)
     [14:17:08.079] })
     [14:17:08.079] }
     [14:17:08.079] }, immediateCondition = function(cond) {
     [14:17:08.079] sendCondition <- ...future.sendCondition()
     [14:17:08.079] sendCondition(cond)
     [14:17:08.079] muffleCondition <- function (cond)
     [14:17:08.079] {
     [14:17:08.079] inherits <- base::inherits
     [14:17:08.079] invokeRestart <- base::invokeRestart
     [14:17:08.079] muffled <- FALSE
     [14:17:08.079] if (inherits(cond, "message")) {
     [14:17:08.079] invokeRestart("muffleMessage")
     [14:17:08.079] muffled <- TRUE
     [14:17:08.079] }
     [14:17:08.079] else if (inherits(cond, "warning")) {
     [14:17:08.079] invokeRestart("muffleWarning")
     [14:17:08.079] muffled <- TRUE
     [14:17:08.079] }
     [14:17:08.079] else if (inherits(cond, "condition")) {
     [14:17:08.079] computeRestarts <- base::computeRestarts
     [14:17:08.079] grepl <- base::grepl
     [14:17:08.079] is.null <- base::is.null
     [14:17:08.079] restarts <- computeRestarts(cond)
     [14:17:08.079] for (restart in restarts) {
     [14:17:08.079] name <- restart$name
     [14:17:08.079] if (is.null(name))
     [14:17:08.079] next
     [14:17:08.079] if (!grepl("^muffle", name))
     [14:17:08.079] next
     [14:17:08.079] invokeRestart(restart)
     [14:17:08.079] muffled <- TRUE
     [14:17:08.079] break
     [14:17:08.079] }
     [14:17:08.079] }
     [14:17:08.079] invisible(muffled)
     [14:17:08.079] }
     [14:17:08.079] muffleCondition(cond)
     [14:17:08.079] })
     [14:17:08.079] }))
     [14:17:08.079] future::FutureResult(value = ...future.value$value,
     [14:17:08.079] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed,
     [14:17:08.079] ...future.rng), started = ...future.startTime,
     [14:17:08.079] version = "1.8")
     [14:17:08.079] }, condition = base::local({
     [14:17:08.079] c <- base::c
     [14:17:08.079] inherits <- base::inherits
     [14:17:08.079] invokeRestart <- base::invokeRestart
     [14:17:08.079] length <- base::length
     [14:17:08.079] list <- base::list
     [14:17:08.079] seq.int <- base::seq.int
     [14:17:08.079] signalCondition <- base::signalCondition
     [14:17:08.079] sys.calls <- base::sys.calls
     [14:17:08.079] Sys.time <- base::Sys.time
     [14:17:08.079] `[[` <- base::`[[`
     [14:17:08.079] `+` <- base::`+`
     [14:17:08.079] `<<-` <- base::`<<-`
     [14:17:08.079] sysCalls <- function(calls = sys.calls(), from = 1L) {
     [14:17:08.079] calls[seq.int(from = from + 12L, to = length(calls) -
     [14:17:08.079] 3L)]
     [14:17:08.079] }
     [14:17:08.079] function(cond) {
     [14:17:08.079] if (inherits(cond, "error")) {
     [14:17:08.079] sessionInformation <- function() {
     [14:17:08.079] list(r = base::R.Version(), locale = base::Sys.getlocale(),
     [14:17:08.079] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(),
     [14:17:08.079] search = base::search(), system = base::Sys.info())
     [14:17:08.079] }
     [14:17:08.079] ...future.conditions[[length(...future.conditions) +
     [14:17:08.079] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame),
     [14:17:08.079] cond$call), session = sessionInformation(),
     [14:17:08.079] timestamp = Sys.time(), signaled = 0L)
     [14:17:08.079] signalCondition(cond)
     [14:17:08.079] }
     [14:17:08.079] else if (inherits(cond, c("condition", "immediateCondition"
     [14:17:08.079] ))) {
     [14:17:08.079] signal <- TRUE && inherits(cond, "immediateCondition")
     [14:17:08.079] ...future.conditions[[length(...future.conditions) +
     [14:17:08.079] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
     [14:17:08.079] if (!signal) {
     [14:17:08.079] muffleCondition <- function (cond)
     [14:17:08.079] {
     [14:17:08.079] inherits <- base::inherits
     [14:17:08.079] invokeRestart <- base::invokeRestart
     [14:17:08.079] muffled <- FALSE
     [14:17:08.079] if (inherits(cond, "message")) {
     [14:17:08.079] invokeRestart("muffleMessage")
     [14:17:08.079] muffled <- TRUE
     [14:17:08.079] }
     [14:17:08.079] else if (inherits(cond, "warning")) {
     [14:17:08.079] invokeRestart("muffleWarning")
     [14:17:08.079] muffled <- TRUE
     [14:17:08.079] }
     [14:17:08.079] else if (inherits(cond, "condition")) {
     [14:17:08.079] computeRestarts <- base::computeRestarts
     [14:17:08.079] grepl <- base::grepl
     [14:17:08.079] is.null <- base::is.null
     [14:17:08.079] restarts <- computeRestarts(cond)
     [14:17:08.079] for (restart in restarts) {
     [14:17:08.079] name <- restart$name
     [14:17:08.079] if (is.null(name))
     [14:17:08.079] next
     [14:17:08.079] if (!grepl("^muffle", name))
     [14:17:08.079] next
     [14:17:08.079] invokeRestart(restart)
     [14:17:08.079] muffled <- TRUE
     [14:17:08.079] break
     [14:17:08.079] }
     [14:17:08.079] }
     [14:17:08.079] invisible(muffled)
     [14:17:08.079] }
     [14:17:08.079] muffleCondition(cond)
     [14:17:08.079] }
     [14:17:08.079] }
     [14:17:08.079] }
     [14:17:08.079] }))
     [14:17:08.079] }, error = function(ex) {
     [14:17:08.079] base::structure(base::list(value = NULL, visible = NULL,
     [14:17:08.079] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed,
     [14:17:08.079] ...future.rng), version = "1.8"), class = "FutureResult")
     [14:17:08.079] }, finally = {
     [14:17:08.079] {
     [14:17:08.079] {
     [14:17:08.079] base::options(mc.cores = ...future.mc.cores.old)
     [14:17:08.079] }
     [14:17:08.079] future::plan(list(b = function (expr, envir = parent.frame(),
     [14:17:08.079] substitute = TRUE, lazy = FALSE, seed = NULL,
     [14:17:08.079] globals = TRUE, persistent = FALSE, workers = availableCores(),
     [14:17:08.079] gc = FALSE, earlySignal = FALSE, label = NULL,
     [14:17:08.079] ...)
     [14:17:08.079] {
     [14:17:08.079] if (substitute)
     [14:17:08.079] expr <- substitute(expr)
     [14:17:08.079] if (is.function(workers))
     [14:17:08.079] workers <- workers()
     [14:17:08.079] workers <- as.integer(workers)
     [14:17:08.079] stop_if_not(length(workers) == 1, is.finite(workers),
     [14:17:08.079] workers >= 1)
     [14:17:08.079] if (workers == 1L) {
     [14:17:08.079] return(sequential(expr, envir = envir, substitute = FALSE,
     [14:17:08.079] lazy = TRUE, seed = seed, globals = globals,
     [14:17:08.079] local = TRUE, label = label, ...))
     [14:17:08.079] }
     [14:17:08.079] workers <- ClusterRegistry("start", workers = workers)
     [14:17:08.079] future <- MultisessionFuture(expr = expr, envir = envir,
     [14:17:08.079] substitute = FALSE, lazy = lazy, seed = seed,
     [14:17:08.079] globals = globals, persistent = persistent,
     [14:17:08.079] workers = workers, gc = gc, earlySignal = earlySignal,
     [14:17:08.079] label = label, ...)
     [14:17:08.079] if (!future$lazy)
     [14:17:08.079] future <- run(future)
     [14:17:08.079] invisible(future)
     [14:17:08.079] }), .cleanup = FALSE, .init = FALSE)
     [14:17:08.079] }
     [14:17:08.079] base::options(...future.oldOptions)
     [14:17:08.079] })
     [14:17:08.079] Sys.time
     [14:17:08.079] if (base::is.na(TRUE)) {
     [14:17:08.079] }
     [14:17:08.079] else {
     [14:17:08.079] base::sink(type = "output", split = FALSE)
     [14:17:08.079] if (TRUE) {
     [14:17:08.079] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
     [14:17:08.079] }
     [14:17:08.079] else {
     [14:17:08.079] ...future.result["stdout"] <- base::list(NULL)
     [14:17:08.079] }
     [14:17:08.079] base::close(...future.stdout)
     [14:17:08.079] ...future.stdout <- NULL
     [14:17:08.079] }
     [14:17:08.079] ...future.result$conditions <- ...future.conditions
     [14:17:08.079] ...future.result
     [14:17:08.079] }
     [14:17:08.674] - Condition #391: 'simpleMessage', 'message', 'condition'
     [14:17:08.092] Exporting 3 global objects (81.70 KiB) to cluster node #2 ...
     [14:17:08.674] - Condition #392: 'simpleMessage', 'message', 'condition'
     [14:17:08.094] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ...
     [14:17:08.675] - Condition #393: 'simpleMessage', 'message', 'condition'
     [14:17:08.095] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ... DONE
     [14:17:08.676] - Condition #394: 'simpleMessage', 'message', 'condition'
     [14:17:08.096] Exporting 'a' (56 bytes) to cluster node #2 ...
     [14:17:08.676] - Condition #395: 'simpleMessage', 'message', 'condition'
     [14:17:08.098] Exporting 'a' (56 bytes) to cluster node #2 ... DONE
     [14:17:08.677] - Condition #396: 'simpleMessage', 'message', 'condition'
     [14:17:08.099] Exporting 'plan_a' (81.53 KiB) to cluster node #2 ...
     [14:17:08.677] - Condition #397: 'simpleMessage', 'message', 'condition'
     [14:17:08.142] Exporting 'plan_a' (81.53 KiB) to cluster node #2 ... DONE
     [14:17:08.678] - Condition #398: 'simpleMessage', 'message', 'condition'
     [14:17:08.143] Exporting 3 global objects (81.70 KiB) to cluster node #2 ... DONE
     [14:17:08.679] - Condition #399: 'simpleMessage', 'message', 'condition'
     [14:17:08.145] MultisessionFuture started
     [14:17:08.679] - Condition #400: 'simpleMessage', 'message', 'condition'
     [14:17:08.146] Chunk #2 of 2 ... DONE
     [14:17:08.680] - Condition #401: 'simpleMessage', 'message', 'condition'
     [14:17:08.147] Launching 2 futures (chunks) ... DONE
     [14:17:08.681] - Condition #402: 'simpleMessage', 'message', 'condition'
     [14:17:08.148] - resolving futures
     [14:17:08.681] - Condition #403: 'simpleMessage', 'message', 'condition'
     [14:17:08.149] - gathering results & relaying conditions (except errors)
     [14:17:08.682] - Condition #404: 'simpleMessage', 'message', 'condition'
     [14:17:08.149] resolve() on list ...
     [14:17:08.683] - Condition #405: 'simpleMessage', 'message', 'condition'
     [14:17:08.150] recursive: 0
     [14:17:08.683] - Condition #406: 'simpleMessage', 'message', 'condition'
     [14:17:08.153] length: 2
     [14:17:08.684] - Condition #407: 'simpleMessage', 'message', 'condition'
     [14:17:08.154]
     [14:17:08.685] - Condition #408: 'simpleMessage', 'message', 'condition'
     [14:17:08.157] receiveMessageFromWorker() for ClusterFuture ...
     [14:17:08.685] - Condition #409: 'simpleMessage', 'message', 'condition'
     [14:17:08.158] - Validating connection of MultisessionFuture
     [14:17:08.686] - Condition #410: 'simpleMessage', 'message', 'condition'
     [14:17:08.159] - received message: FutureResult
     [14:17:08.686] - Condition #411: 'simpleMessage', 'message', 'condition'
     [14:17:08.160] - Received FutureResult
     [14:17:08.687] - Condition #412: 'simpleMessage', 'message', 'condition'
     [14:17:08.161] - Erased future from FutureRegistry
     [14:17:08.688] - Condition #413: 'simpleMessage', 'message', 'condition'
     [14:17:08.161] result() for ClusterFuture ...
     [14:17:08.688] - Condition #414: 'simpleMessage', 'message', 'condition'
     [14:17:08.162] - result already collected: FutureResult
     [14:17:08.689] - Condition #415: 'simpleMessage', 'message', 'condition'
     [14:17:08.163] result() for ClusterFuture ... done
     [14:17:08.690] - Condition #416: 'simpleMessage', 'message', 'condition'
     [14:17:08.164] signalConditions() ...
     [14:17:08.690] - Condition #417: 'simpleMessage', 'message', 'condition'
     [14:17:08.165] - include = 'immediateCondition'
     [14:17:08.696] - Condition #418: 'simpleMessage', 'message', 'condition'
     [14:17:08.166] - exclude =
     [14:17:08.696] - Condition #419: 'simpleMessage', 'message', 'condition'
     [14:17:08.166] - resignal = FALSE
     [14:17:08.697] - Condition #420: 'simpleMessage', 'message', 'condition'
     [14:17:08.167] - Number of conditions: 1
     [14:17:08.698] - Condition #421: 'simpleMessage', 'message', 'condition'
     [14:17:08.168] signalConditions() ... done
     [14:17:08.699] - Condition #422: 'simpleMessage', 'message', 'condition'
     [14:17:08.169] receiveMessageFromWorker() for ClusterFuture ... done
     [14:17:08.699] - Condition #423: 'simpleMessage', 'message', 'condition'
     [14:17:08.170] Future #1
     [14:17:08.700] - Condition #424: 'simpleMessage', 'message', 'condition'
     [14:17:08.171] result() for ClusterFuture ...
     [14:17:08.701] - Condition #425: 'simpleMessage', 'message', 'condition'
     [14:17:08.171] - result already collected: FutureResult
     [14:17:08.701] - Condition #426: 'simpleMessage', 'message', 'condition'
     [14:17:08.172] result() for ClusterFuture ... done
     [14:17:08.702] - Condition #427: 'simpleMessage', 'message', 'condition'
     [14:17:08.173] result() for ClusterFuture ...
     [14:17:08.703] - Condition #428: 'simpleMessage', 'message', 'condition'
     [14:17:08.174] - result already collected: FutureResult
     [14:17:08.703] - Condition #429: 'simpleMessage', 'message', 'condition'
     [14:17:08.174] result() for ClusterFuture ... done
     [14:17:08.704] - Condition #430: 'simpleMessage', 'message', 'condition'
     [14:17:08.175] signalConditions() ...
     [14:17:08.705] - Condition #431: 'simpleMessage', 'message', 'condition'
     [14:17:08.176] - include = 'immediateCondition'
     [14:17:08.705] - Condition #432: 'simpleMessage', 'message', 'condition'
     [14:17:08.177] - exclude =
     [14:17:08.706] - Condition #433: 'simpleMessage', 'message', 'condition'
     [14:17:08.178] - resignal = FALSE
     [14:17:08.707] - Condition #434: 'simpleMessage', 'message', 'condition'
     [14:17:08.178] - Number of conditions: 1
     [14:17:08.707] - Condition #435: 'simpleMessage', 'message', 'condition'
     [14:17:08.179] signalConditions() ... done
     [14:17:08.708] - Condition #436: 'simpleMessage', 'message', 'condition'
     [14:17:08.180] signalConditionsASAP(MultisessionFuture, pos=1) ...
     [14:17:08.709] - Condition #437: 'simpleMessage', 'message', 'condition'
     [14:17:08.181] - nx: 2
     [14:17:08.709] - Condition #438: 'simpleMessage', 'message', 'condition'
     [14:17:08.182] - relay: TRUE
     [14:17:08.710] - Condition #439: 'simpleMessage', 'message', 'condition'
     [14:17:08.182] - stdout: TRUE
     [14:17:08.711] - Condition #440: 'simpleMessage', 'message', 'condition'
     [14:17:08.183] - signal: TRUE
     [14:17:08.711] - Condition #441: 'simpleMessage', 'message', 'condition'
     [14:17:08.184] - resignal: FALSE
     [14:17:08.712] - Condition #442: 'simpleMessage', 'message', 'condition'
     [14:17:08.185] - force: FALSE
     [14:17:08.713] - Condition #443: 'simpleMessage', 'message', 'condition'
     [14:17:08.185] - relayed: [n=2] FALSE, FALSE
     [14:17:08.713] - Condition #444: 'simpleMessage', 'message', 'condition'
     [14:17:08.186] - queued futures: [n=2] FALSE, FALSE
     [14:17:08.714] - Condition #445: 'simpleMessage', 'message', 'condition'
     [14:17:08.200] - until=1
     [14:17:08.715] - Condition #446: 'simpleMessage', 'message', 'condition'
     [14:17:08.201] - relaying element #1
     [14:17:08.715] - Condition #447: 'simpleMessage', 'message', 'condition'
     [14:17:08.205] result() for ClusterFuture ...
     [14:17:08.716] - Condition #448: 'simpleMessage', 'message', 'condition'
     [14:17:08.206] - result already collected: FutureResult
     [14:17:08.717] - Condition #449: 'simpleMessage', 'message', 'condition'
     [14:17:08.206] result() for ClusterFuture ... done
     [14:17:08.717] - Condition #450: 'simpleMessage', 'message', 'condition'
     [14:17:08.207] result() for ClusterFuture ...
     [14:17:08.718] - Condition #451: 'simpleMessage', 'message', 'condition'
     [14:17:08.211] - result already collected: FutureResult
     [14:17:08.719] - Condition #452: 'simpleMessage', 'message', 'condition'
     [14:17:08.212] result() for ClusterFuture ... done
     [14:17:08.719] - Condition #453: 'simpleMessage', 'message', 'condition'
     [14:17:08.213] signalConditions() ...
     [14:17:08.720] - Condition #454: 'simpleMessage', 'message', 'condition'
     [14:17:08.216] - include = 'immediateCondition'
     [14:17:08.721] - Condition #455: 'simpleMessage', 'message', 'condition'
     [14:17:08.217] - exclude =
     [14:17:08.721] - Condition #456: 'simpleMessage', 'message', 'condition'
     [14:17:08.217] - resignal = FALSE
     [14:17:08.722] - Condition #457: 'simpleMessage', 'message', 'condition'
     [14:17:08.218] - Number of conditions: 1
     [14:17:08.722] - Condition #458: 'simpleMessage', 'message', 'condition'
     [14:17:08.219] signalConditions() ... done
     [14:17:08.723] - Condition #459: 'simpleMessage', 'message', 'condition'
     [14:17:08.220] result() for ClusterFuture ...
     [14:17:08.724] - Condition #460: 'simpleMessage', 'message', 'condition'
     [14:17:08.220] - result already collected: FutureResult
     [14:17:08.724] - Condition #461: 'simpleMessage', 'message', 'condition'
     [14:17:08.221] result() for ClusterFuture ... done
     [14:17:08.725] - Condition #462: 'simpleMessage', 'message', 'condition'
     [14:17:08.222] signalConditions() ...
     [14:17:08.726] - Condition #463: 'simpleMessage', 'message', 'condition'
     [14:17:08.222] - include = 'immediateCondition'
     [14:17:08.726] - Condition #464: 'simpleMessage', 'message', 'condition'
     [14:17:08.223] - exclude =
     [14:17:08.727] - Condition #465: 'simpleMessage', 'message', 'condition'
     [14:17:08.224] - resignal = FALSE
     [14:17:08.728] - Condition #466: 'simpleMessage', 'message', 'condition'
     [14:17:08.224] - Number of conditions: 1
     [14:17:08.728] - Condition #467: 'simpleMessage', 'message', 'condition'
     [14:17:08.225] signalConditions() ... done
     [14:17:08.729] - Condition #468: 'simpleMessage', 'message', 'condition'
     [14:17:08.226] result() for ClusterFuture ...
     [14:17:08.730] - Condition #469: 'simpleMessage', 'message', 'condition'
     [14:17:08.226] - result already collected: FutureResult
     [14:17:08.730] - Condition #470: 'simpleMessage', 'message', 'condition'
     [14:17:08.227] result() for ClusterFuture ... done
     [14:17:08.731] - Condition #471: 'simpleMessage', 'message', 'condition'
     [14:17:08.228] signalConditions() ...
     [14:17:08.732] - Condition #472: 'simpleMessage', 'message', 'condition'
     [14:17:08.229] - include = 'condition'
     [14:17:08.732] - Condition #473: 'simpleMessage', 'message', 'condition'
     [14:17:08.229] - exclude = 'immediateCondition'
     [14:17:08.733] - Condition #474: 'simpleMessage', 'message', 'condition'
     [14:17:08.230] - resignal = FALSE
     [14:17:08.734] - Condition #475: 'simpleMessage', 'message', 'condition'
     [14:17:08.231] - Number of conditions: 1
     [14:17:08.734] - Condition #476: 'simpleMessage', 'message', 'condition'
     [14:17:08.231] - Condition #1: 'simpleMessage', 'message', 'condition'
     [14:17:08.735] - Condition #477: 'simpleMessage', 'message', 'condition'
     sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
     [14:17:08.736] - Condition #478: 'simpleMessage', 'message', 'condition'
     [14:17:08.232] signalConditions() ... done
     [14:17:08.736] - Condition #479: 'simpleMessage', 'message', 'condition'
     [14:17:08.233] - relayed: [n=2] TRUE, FALSE
     [14:17:08.737] - Condition #480: 'simpleMessage', 'message', 'condition'
     [14:17:08.234] - queued futures: [n=2] TRUE, FALSE
     [14:17:08.737] - Condition #481: 'simpleMessage', 'message', 'condition'
     [14:17:08.235] signalConditionsASAP(MultisessionFuture, pos=1) ... done
     [14:17:08.738] - Condition #482: 'simpleMessage', 'message', 'condition'
     [14:17:08.236] length: 1 (resolved future 1)
     [14:17:08.739] - Condition #483: 'simpleMessage', 'message', 'condition'
     [14:17:08.238] receiveMessageFromWorker() for ClusterFuture ...
     [14:17:08.739] - Condition #484: 'simpleMessage', 'message', 'condition'
     [14:17:08.239] - Validating connection of MultisessionFuture
     [14:17:08.740] - Condition #485: 'simpleMessage', 'message', 'condition'
     [14:17:08.241] - received message: FutureResult
     [14:17:08.740] - Condition #486: 'simpleMessage', 'message', 'condition'
     [14:17:08.242] - Received FutureResult
     [14:17:08.741] - Condition #487: 'simpleMessage', 'message', 'condition'
     [14:17:08.242] - Erased future from FutureRegistry
     [14:17:08.741] - Condition #488: 'simpleMessage', 'message', 'condition'
     [14:17:08.243] result() for ClusterFuture ...
     [14:17:08.742] - Condition #489: 'simpleMessage', 'message', 'condition'
     [14:17:08.244] - result already collected: FutureResult
     [14:17:08.742] - Condition #490: 'simpleMessage', 'message', 'condition'
     [14:17:08.245] result() for ClusterFuture ... done
     [14:17:08.743] - Condition #491: 'simpleMessage', 'message', 'condition'
     [14:17:08.246] signalConditions() ...
     [14:17:08.744] - Condition #492: 'simpleMessage', 'message', 'condition'
     [14:17:08.246] - include = 'immediateCondition'
     [14:17:08.744] - Condition #493: 'simpleMessage', 'message', 'condition'
     [14:17:08.247] - exclude =
     [14:17:08.745] - Condition #494: 'simpleMessage', 'message', 'condition'
     [14:17:08.248] - resignal = FALSE
     [14:17:08.745] - Condition #495: 'simpleMessage', 'message', 'condition'
     [14:17:08.254] - Number of conditions: 2
     [14:17:08.746] - Condition #496: 'simpleMessage', 'message', 'condition'
     [14:17:08.255] signalConditions() ... done
     [14:17:08.746] - Condition #497: 'simpleMessage', 'message', 'condition'
     [14:17:08.256] receiveMessageFromWorker() for ClusterFuture ... done
     [14:17:08.747] - Condition #498: 'simpleMessage', 'message', 'condition'
     [14:17:08.257] Future #2
     [14:17:08.747] - Condition #499: 'simpleMessage', 'message', 'condition'
     [14:17:08.258] result() for ClusterFuture ...
     [14:17:08.748] - Condition #500: 'simpleMessage', 'message', 'condition'
     [14:17:08.258] - result already collected: FutureResult
     [14:17:08.749] - Condition #501: 'simpleMessage', 'message', 'condition'
     [14:17:08.259] result() for ClusterFuture ... done
     [14:17:08.749] - Condition #502: 'simpleMessage', 'message', 'condition'
     [14:17:08.260] result() for ClusterFuture ...
     [14:17:08.750] - Condition #503: 'simpleMessage', 'message', 'condition'
     [14:17:08.261] - result already collected: FutureResult
     [14:17:08.751] - Condition #504: 'simpleMessage', 'message', 'condition'
     [14:17:08.262] result() for ClusterFuture ... done
     [14:17:08.751] - Condition #505: 'simpleMessage', 'message', 'condition'
     [14:17:08.263] signalConditions() ...
     [14:17:08.752] - Condition #506: 'simpleMessage', 'message', 'condition'
     [14:17:08.263] - include = 'immediateCondition'
     [14:17:08.752] - Condition #507: 'simpleMessage', 'message', 'condition'
     [14:17:08.264] - exclude =
     [14:17:08.753] - Condition #508: 'simpleMessage', 'message', 'condition'
     [14:17:08.265] - resignal = FALSE
     [14:17:08.754] - Condition #509: 'simpleMessage', 'message', 'condition'
     [14:17:08.266] - Number of conditions: 2
     [14:17:08.754] - Condition #510: 'simpleMessage', 'message', 'condition'
     [14:17:08.267] signalConditions() ... done
     [14:17:08.755] - Condition #511: 'simpleMessage', 'message', 'condition'
     [14:17:08.267] signalConditionsASAP(MultisessionFuture, pos=2) ...
     [14:17:08.756] - Condition #512: 'simpleMessage', 'message', 'condition'
     [14:17:08.268] - nx: 2
     [14:17:08.756] - Condition #513: 'simpleMessage', 'message', 'condition'
     [14:17:08.269] - relay: TRUE
     [14:17:08.757] - Condition #514: 'simpleMessage', 'message', 'condition'
     [14:17:08.270] - stdout: TRUE
     [14:17:08.757] - Condition #515: 'simpleMessage', 'message', 'condition'
     [14:17:08.270] - signal: TRUE
     [14:17:08.758] - Condition #516: 'simpleMessage', 'message', 'condition'
     [14:17:08.271] - resignal: FALSE
     [14:17:08.759] - Condition #517: 'simpleMessage', 'message', 'condition'
     [14:17:08.272] - force: FALSE
     [14:17:08.759] - Condition #518: 'simpleMessage', 'message', 'condition'
     [14:17:08.273] - relayed: [n=2] TRUE, FALSE
     [14:17:08.760] - Condition #519: 'simpleMessage', 'message', 'condition'
     [14:17:08.273] - queued futures: [n=2] TRUE, FALSE
     [14:17:08.760] - Condition #520: 'simpleMessage', 'message', 'condition'
     [14:17:08.274] - until=2
     [14:17:08.761] - Condition #521: 'simpleMessage', 'message', 'condition'
     [14:17:08.275] - relaying element #2
     [14:17:08.762] - Condition #522: 'simpleMessage', 'message', 'condition'
     [14:17:08.276] result() for ClusterFuture ...
     [14:17:08.762] - Condition #523: 'simpleMessage', 'message', 'condition'
     [14:17:08.277] - result already collected: FutureResult
     [14:17:08.763] - Condition #524: 'simpleMessage', 'message', 'condition'
     [14:17:08.278] result() for ClusterFuture ... done
     [14:17:08.764] - Condition #525: 'simpleMessage', 'message', 'condition'
     [14:17:08.278] result() for ClusterFuture ...
     [14:17:08.764] - Condition #526: 'simpleMessage', 'message', 'condition'
     [14:17:08.279] - result already collected: FutureResult
     [14:17:08.765] - Condition #527: 'simpleMessage', 'message', 'condition'
     [14:17:08.280] result() for ClusterFuture ... done
     [14:17:08.766] - Condition #528: 'simpleMessage', 'message', 'condition'
     [14:17:08.281] signalConditions() ...
     [14:17:08.766] - Condition #529: 'simpleMessage', 'message', 'condition'
     [14:17:08.282] - include = 'immediateCondition'
     [14:17:08.767] - Condition #530: 'simpleMessage', 'message', 'condition'
     [14:17:08.283] - exclude =
     [14:17:08.768] - Condition #531: 'simpleMessage', 'message', 'condition'
     [14:17:08.283] - resignal = FALSE
     [14:17:08.768] - Condition #532: 'simpleMessage', 'message', 'condition'
     [14:17:08.284] - Number of conditions: 2
     [14:17:08.769] - Condition #533: 'simpleMessage', 'message', 'condition'
     [14:17:08.285] signalConditions() ... done
     [14:17:08.770] - Condition #534: 'simpleMessage', 'message', 'condition'
     [14:17:08.286] result() for ClusterFuture ...
     [14:17:08.770] - Condition #535: 'simpleMessage', 'message', 'condition'
     [14:17:08.287] - result already collected: FutureResult
     [14:17:08.771] - Condition #536: 'simpleMessage', 'message', 'condition'
     [14:17:08.288] result() for ClusterFuture ... done
     [14:17:08.772] - Condition #537: 'simpleMessage', 'message', 'condition'
     [14:17:08.288] signalConditions() ...
     [14:17:08.772] - Condition #538: 'simpleMessage', 'message', 'condition'
     [14:17:08.289] - include = 'immediateCondition'
     [14:17:08.773] - Condition #539: 'simpleMessage', 'message', 'condition'
     [14:17:08.290] - exclude =
     [14:17:08.779] - Condition #540: 'simpleMessage', 'message', 'condition'
     [14:17:08.291] - resignal = FALSE
     [14:17:08.780] - Condition #541: 'simpleMessage', 'message', 'condition'
     [14:17:08.291] - Number of conditions: 2
     [14:17:08.780] - Condition #542: 'simpleMessage', 'message', 'condition'
     [14:17:08.292] signalConditions() ... done
     [14:17:08.781] - Condition #543: 'simpleMessage', 'message', 'condition'
     [14:17:08.293] result() for ClusterFuture ...
     [14:17:08.782] - Condition #544: 'simpleMessage', 'message', 'condition'
     [14:17:08.294] - result already collected: FutureResult
     [14:17:08.782] - Condition #545: 'simpleMessage', 'message', 'condition'
     [14:17:08.295] result() for ClusterFuture ... done
     [14:17:08.783] - Condition #546: 'simpleMessage', 'message', 'condition'
     [14:17:08.296] signalConditions() ...
     [14:17:08.784] - Condition #547: 'simpleMessage', 'message', 'condition'
     [14:17:08.296] - include = 'condition'
     [14:17:08.784] - Condition #548: 'simpleMessage', 'message', 'condition'
     [14:17:08.297] - exclude = 'immediateCondition'
     [14:17:08.785] - Condition #549: 'simpleMessage', 'message', 'condition'
     [14:17:08.298] - resignal = FALSE
     [14:17:08.786] - Condition #550: 'simpleMessage', 'message', 'condition'
     [14:17:08.299] - Number of conditions: 2
     [14:17:08.786] - Condition #551: 'simpleMessage', 'message', 'condition'
     [14:17:08.300] - Condition #1: 'simpleMessage', 'message', 'condition'
     [14:17:08.787] - Condition #552: 'simpleMessage', 'message', 'condition'
     sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
     [14:17:08.788] - Condition #553: 'simpleMessage', 'message', 'condition'
     [14:17:08.301] - Condition #2: 'simpleMessage', 'message', 'condition'
     [14:17:08.788] - Condition #554: 'simpleMessage', 'message', 'condition'
     sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
     [14:17:08.789] - Condition #555: 'simpleMessage', 'message', 'condition'
     [14:17:08.302] signalConditions() ... done
     [14:17:08.790] - Condition #556: 'simpleMessage', 'message', 'condition'
     [14:17:08.303] - relayed: [n=2] TRUE, TRUE
     [14:17:08.790] - Condition #557: 'simpleMessage', 'message', 'condition'
     [14:17:08.304] - queued futures: [n=2] TRUE, TRUE
     [14:17:08.791] - Condition #558: 'simpleMessage', 'message', 'condition'
     [14:17:08.305] signalConditionsASAP(MultisessionFuture, pos=2) ... done
     [14:17:08.792] - Condition #559: 'simpleMessage', 'message', 'condition'
     [14:17:08.306] length: 0 (resolved future 2)
     [14:17:08.793] - Condition #560: 'simpleMessage', 'message', 'condition'
     [14:17:08.306] Relaying remaining futures
     [14:17:08.793] - Condition #561: 'simpleMessage', 'message', 'condition'
     [14:17:08.307] signalConditionsASAP(NULL, pos=0) ...
     [14:17:08.794] - Condition #562: 'simpleMessage', 'message', 'condition'
     [14:17:08.308] - nx: 2
     [14:17:08.795] - Condition #563: 'simpleMessage', 'message', 'condition'
     [14:17:08.309] - relay: TRUE
     [14:17:08.795] - Condition #564: 'simpleMessage', 'message', 'condition'
     [14:17:08.310] - stdout: TRUE
     [14:17:08.796] - Condition #565: 'simpleMessage', 'message', 'condition'
     [14:17:08.310] - signal: TRUE
     [14:17:08.796] - Condition #566: 'simpleMessage', 'message', 'condition'
     [14:17:08.311] - resignal: FALSE
     [14:17:08.797] - Condition #567: 'simpleMessage', 'message', 'condition'
     [14:17:08.312] - force: FALSE
     [14:17:08.798] - Condition #568: 'simpleMessage', 'message', 'condition'
     [14:17:08.313] - relayed: [n=2] TRUE, TRUE
     [14:17:08.798] - Condition #569: 'simpleMessage', 'message', 'condition'
     [14:17:08.313] - queued futures: [n=2] TRUE, TRUE
     [14:17:08.799] - Condition #570: 'simpleMessage', 'message', 'condition'
     - flush all
     [14:17:08.800] - Condition #571: 'simpleMessage', 'message', 'condition'
     [14:17:08.315] - relayed: [n=2] TRUE, TRUE
     [14:17:08.800] - Condition #572: 'simpleMessage', 'message', 'condition'
     [14:17:08.316] - queued futures: [n=2] TRUE, TRUE
     [14:17:08.801] - Condition #573: 'simpleMessage', 'message', 'condition'
     [14:17:08.317] signalConditionsASAP(NULL, pos=0) ... done
     [14:17:08.802] - Condition #574: 'simpleMessage', 'message', 'condition'
     [14:17:08.317] resolve() on list ... DONE
     [14:17:08.803] - Condition #575: 'simpleMessage', 'message', 'condition'
     [14:17:08.318] - collecting values of futures
     [14:17:08.803] - Condition #576: 'simpleMessage', 'message', 'condition'
     [14:17:08.319] result() for ClusterFuture ...
     [14:17:08.804] - Condition #577: 'simpleMessage', 'message', 'condition'
     [14:17:08.320] - result already collected: FutureResult
     [14:17:08.805] - Condition #578: 'simpleMessage', 'message', 'condition'
     [14:17:08.320] result() for ClusterFuture ... done
     [14:17:08.805] - Condition #579: 'simpleMessage', 'message', 'condition'
     [14:17:08.321] result() for ClusterFuture ...
     [14:17:08.806] - Condition #580: 'simpleMessage', 'message', 'condition'
     [14:17:08.322] - result already collected: FutureResult
     [14:17:08.807] - Condition #581: 'simpleMessage', 'message', 'condition'
     [14:17:08.323] result() for ClusterFuture ... done
     [14:17:08.807] - Condition #582: 'simpleMessage', 'message', 'condition'
     [14:17:08.324] signalConditions() ...
     [14:17:08.808] - Condition #583: 'simpleMessage', 'message', 'condition'
     [14:17:08.325] - include = 'immediateCondition'
     [14:17:08.809] - Condition #584: 'simpleMessage', 'message', 'condition'
     [14:17:08.326] - exclude =
     [14:17:08.809] - Condition #585: 'simpleMessage', 'message', 'condition'
     [14:17:08.326] - resignal = FALSE
     [14:17:08.810] - Condition #586: 'simpleMessage', 'message', 'condition'
     [14:17:08.327] - Number of conditions: 1
     [14:17:08.810] - Condition #587: 'simpleMessage', 'message', 'condition'
     [14:17:08.328] signalConditions() ... done
     [14:17:08.811] - Condition #588: 'simpleMessage', 'message', 'condition'
     [14:17:08.329] result() for ClusterFuture ...
     [14:17:08.812] - Condition #589: 'simpleMessage', 'message', 'condition'
     [14:17:08.330] - result already collected: FutureResult
     [14:17:08.812] - Condition #590: 'simpleMessage', 'message', 'condition'
     [14:17:08.330] result() for ClusterFuture ... done
     [14:17:08.813] - Condition #591: 'simpleMessage', 'message', 'condition'
     [14:17:08.331] result() for ClusterFuture ...
     [14:17:08.814] - Condition #592: 'simpleMessage', 'message', 'condition'
     [14:17:08.332] - result already collected: FutureResult
     [14:17:08.814] - Condition #593: 'simpleMessage', 'message', 'condition'
     [14:17:08.333] result() for ClusterFuture ... done
     [14:17:08.815] - Condition #594: 'simpleMessage', 'message', 'condition'
     [14:17:08.334] signalConditions() ...
     [14:17:08.816] - Condition #595: 'simpleMessage', 'message', 'condition'
     [14:17:08.335] - include = 'immediateCondition'
     [14:17:08.816] - Condition #596: 'simpleMessage', 'message', 'condition'
     [14:17:08.335] - exclude =
     [14:17:08.817] - Condition #597: 'simpleMessage', 'message', 'condition'
     [14:17:08.336] - resignal = FALSE
     [14:17:08.818] - Condition #598: 'simpleMessage', 'message', 'condition'
     [14:17:08.337] - Number of conditions: 2
     [14:17:08.818] - Condition #599: 'simpleMessage', 'message', 'condition'
     [14:17:08.338] signalConditions() ... done
     [14:17:08.819] - Condition #600: 'simpleMessage', 'message', 'condition'
     [14:17:08.339] - accumulating results
     [14:17:08.819] - Condition #601: 'simpleMessage', 'message', 'condition'
     [14:17:08.341] - processing errors (handler = 'stop')
     [14:17:08.820] - Condition #602: 'simpleMessage', 'message', 'condition'
     [14:17:08.343] - extracting results
     [14:17:08.821] - Condition #603: 'simpleMessage', 'message', 'condition'
     [14:17:08.343] doFuture() ... DONE
     [14:17:08.821] - Condition #604: 'simpleMessage', 'message', 'condition'
     foreach() - level 2 ... DONE
     [14:17:08.823] signalConditions() ... done
     [14:17:08.823] - relayed: [n=1] TRUE
     [14:17:08.824] - queued futures: [n=1] TRUE
     [14:17:08.824] signalConditionsASAP(SequentialFuture, pos=1) ... done
     [14:17:08.825] length: 0 (resolved future 1)
     [14:17:08.825] Relaying remaining futures
     [14:17:08.826] signalConditionsASAP(NULL, pos=0) ...
     [14:17:08.826] - nx: 1
     [14:17:08.826] - relay: TRUE
     [14:17:08.827] - stdout: TRUE
     [14:17:08.827] - signal: TRUE
     [14:17:08.828] - resignal: FALSE
     [14:17:08.828] - force: FALSE
     [14:17:08.829] - relayed: [n=1] TRUE
     [14:17:08.829] - queued futures: [n=1] TRUE
     - flush all
     [14:17:08.830] - relayed: [n=1] TRUE
     [14:17:08.830] - queued futures: [n=1] TRUE
     [14:17:08.831] signalConditionsASAP(NULL, pos=0) ... done
     [14:17:08.831] resolve() on list ... DONE
     [14:17:08.832] - collecting values of futures
     [14:17:08.832] signalConditions() ...
     [14:17:08.833] - include = 'immediateCondition'
     [14:17:08.833] - exclude =
     [14:17:08.834] - resignal = FALSE
     [14:17:08.834] - Number of conditions: 604
     [14:17:08.835] signalConditions() ... done
     [14:17:08.836] - accumulating results
     [14:17:08.837] - processing errors (handler = 'stop')
     [14:17:08.838] - extracting results
     [14:17:08.838] doFuture() ... DONE
     foreach() - level 1 ... DONE
     - plan(list('sequential', 'multisession')) ... DONE
     - plan(list('sequential', 'cluster')) ...
     [14:17:08.840] plan(): Setting new future strategy stack:
     [14:17:08.841] List of future strategies:
     [14:17:08.841] 1. sequential:
     [14:17:08.841] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
     [14:17:08.841] - tweaked: FALSE
     [14:17:08.841] - call: plan(list(a = strategy1, b = strategy2))
     [14:17:08.841] 2. cluster:
     [14:17:08.841] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
     [14:17:08.841] - tweaked: FALSE
     [14:17:08.841] - call: plan(list(a = strategy1, b = strategy2))
     [14:17:08.845] plan(): nbrOfWorkers() = 1
     foreach() - level 1 ...
     [14:17:08.846] doFuture() ...
     [14:17:08.848] - dummy globals (as locals): [1] 'a'
     [14:17:08.849] - R expression:
     [14:17:08.850] {
     [14:17:08.850] doFuture::registerDoFuture()
     [14:17:08.850] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:17:08.850] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:17:08.850] a <- NULL
     [14:17:08.850] ...future.env <- environment()
     [14:17:08.850] local({
     [14:17:08.850] for (name in names(...future.x_jj)) {
     [14:17:08.850] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:17:08.850] inherits = FALSE)
     [14:17:08.850] }
     [14:17:08.850] })
     [14:17:08.850] tryCatch({
     [14:17:08.850] plan_list <- future::plan("next")
     [14:17:08.850] stopifnot(inherits(plan_list, strategy2))
     [14:17:08.850] plan_a <- future::plan("list")
     [14:17:08.850] str(plan_a)
     [14:17:08.850] stopifnot(inherits(plan_a[[1]], strategy2))
     [14:17:08.850] message("foreach() - level 2 ...")
     [14:17:08.850] y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar%
     [14:17:08.850] {
     [14:17:08.850] plan_list <- future::plan("next")
     [14:17:08.850] message(capture.output(print(plan_list)))
     [14:17:08.850] stopifnot(inherits(plan_list, "future"))
     [14:17:08.850] default <- getOption("future.plan", "sequential")
     [14:17:08.850] if (is.function(default))
     [14:17:08.850] default <- class(default)
     [14:17:08.850] stopifnot(inherits(plan_list, default))
     [14:17:08.850] plan_b <- future::plan("list")
     [14:17:08.850] str(plan_b)
     [14:17:08.850] stopifnot(inherits(plan_b[[1]], "future"),
     [14:17:08.850] inherits(plan_b[[1]], default))
     [14:17:08.850] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:17:08.850] }
     [14:17:08.850] message("foreach() - level 2 ... DONE")
     [14:17:08.850] y
     [14:17:08.850] }, error = identity)
     [14:17:08.850] })
     [14:17:08.850] }
     [14:17:08.859] - identifying globals and packages ...
     [14:17:08.864] getGlobalsAndPackages() ...
     [14:17:08.865] Searching for globals...
     [14:17:08.918] - globals found: [31] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'stopifnot', 'inherits', 'strategy2', 'str', 'message', '%dopar%', 'foreach', 'bs', 'c', 'capture.output', 'print', 'getOption', 'if', 'is.function', 'class', 'list', 'b', 'identity'
     [14:17:08.919] Searching for globals ... DONE
     [14:17:08.920] Resolving globals: FALSE
     [14:17:08.923] The total size of the 3 globals is 176 bytes (176 bytes)
     [14:17:08.924] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
     [14:17:08.925] - packages: [2] 'utils', 'foreach'
     [14:17:08.925] getGlobalsAndPackages() ... DONE
     [14:17:08.926] List of 3
     [14:17:08.926] $ ...future.x_ii: NULL
     [14:17:08.926] $ strategy2 : chr "cluster"
     [14:17:08.926] $ bs : int [1:3] 3 2 1
     [14:17:08.926] - attr(*, "where")=List of 3
     [14:17:08.926] ..$ ...future.x_ii:<environment: 0x33a6df8>
     [14:17:08.926] ..$ strategy2 :<environment: R_GlobalEnv>
     [14:17:08.926] ..$ bs :<environment: R_GlobalEnv>
     [14:17:08.926] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
     [14:17:08.926] - attr(*, "resolved")= logi FALSE
     [14:17:08.926] - attr(*, "total_size")= num 176
     [14:17:08.946] - R expression:
     [14:17:08.946] {
     [14:17:08.946] doFuture::registerDoFuture()
     [14:17:08.946] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:17:08.946] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:17:08.946] a <- NULL
     [14:17:08.946] ...future.env <- environment()
     [14:17:08.946] local({
     [14:17:08.946] for (name in names(...future.x_jj)) {
     [14:17:08.946] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:17:08.946] inherits = FALSE)
     [14:17:08.946] }
     [14:17:08.946] })
     [14:17:08.946] tryCatch({
     [14:17:08.946] plan_list <- future::plan("next")
     [14:17:08.946] stopifnot(inherits(plan_list, strategy2))
     [14:17:08.946] plan_a <- future::plan("list")
     [14:17:08.946] str(plan_a)
     [14:17:08.946] stopifnot(inherits(plan_a[[1]], strategy2))
     [14:17:08.946] message("foreach() - level 2 ...")
     [14:17:08.946] y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar%
     [14:17:08.946] {
     [14:17:08.946] plan_list <- future::plan("next")
     [14:17:08.946] message(capture.output(print(plan_list)))
     [14:17:08.946] stopifnot(inherits(plan_list, "future"))
     [14:17:08.946] default <- getOption("future.plan", "sequential")
     [14:17:08.946] if (is.function(default))
     [14:17:08.946] default <- class(default)
     [14:17:08.946] stopifnot(inherits(plan_list, default))
     [14:17:08.946] plan_b <- future::plan("list")
     [14:17:08.946] str(plan_b)
     [14:17:08.946] stopifnot(inherits(plan_b[[1]], "future"),
     [14:17:08.946] inherits(plan_b[[1]], default))
     [14:17:08.946] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:17:08.946] }
     [14:17:08.946] message("foreach() - level 2 ... DONE")
     [14:17:08.946] y
     [14:17:08.946] }, error = identity)
     [14:17:08.946] })
     [14:17:08.946] }
     [14:17:08.949] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
     [14:17:08.949] List of 3
     [14:17:08.949] $ ...future.x_ii: NULL
     [14:17:08.949] $ strategy2 : chr "cluster"
     [14:17:08.949] $ bs : int [1:3] 3 2 1
     [14:17:08.949] - attr(*, "where")=List of 3
     [14:17:08.949] ..$ ...future.x_ii:<environment: 0x33a6df8>
     [14:17:08.949] ..$ strategy2 :<environment: R_GlobalEnv>
     [14:17:08.949] ..$ bs :<environment: R_GlobalEnv>
     [14:17:08.949] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
     [14:17:08.949] - attr(*, "resolved")= logi FALSE
     [14:17:08.949] - attr(*, "total_size")= num 176
     [14:17:08.964] - packages: [3] 'doFuture', 'utils', 'foreach'
     [14:17:08.964] - identifying globals and packages ... DONE
     [14:17:08.965] Number of chunks: 1
     [14:17:08.965] Number of futures (= number of chunks): 1
     [14:17:08.967] Launching 1 futures (chunks) ...
     [14:17:08.967] Chunk #1 of 1 ...
     [14:17:08.967] - Finding globals in 'args_list' chunk #1 ...
     [14:17:08.968] getGlobalsAndPackages() ...
     [14:17:08.968] Searching for globals...
     [14:17:08.970]
     [14:17:08.970] Searching for globals ... DONE
     [14:17:08.971] - globals: [0] <none>
     [14:17:08.971] getGlobalsAndPackages() ... DONE
     [14:17:08.971]
     [14:17:08.972]
     [14:17:08.972] - Finding globals in 'args_list' for chunk #1 ... DONE
     [14:17:08.973] getGlobalsAndPackages() ...
     [14:17:08.973] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
     [14:17:08.974] Resolving globals: FALSE
     [14:17:08.975] The total size of the 3 globals is 288 bytes (288 bytes)
     [14:17:08.976] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
     [14:17:08.976]
     [14:17:08.977] getGlobalsAndPackages() ... DONE
     [14:17:08.980] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
     [14:17:08.981] Packages needed by future strategies (n = 1): 'future'
     [14:17:08.990] {
     [14:17:08.990] {
     [14:17:08.990] ...future.startTime <- base::Sys.time()
     [14:17:08.990] ...future.oldOptions <- base::options(future.startup.script = FALSE,
     [14:17:08.990] future.globals.onMissing = NULL, future.globals.maxSize = NULL,
     [14:17:08.990] future.globals.method = NULL, future.globals.onMissing = NULL,
     [14:17:08.990] future.globals.onReference = NULL, future.globals.resolve = NULL,
     [14:17:08.990] future.resolve.recursive = NULL, width = 80L)
     [14:17:08.990] {
     [14:17:08.990] {
     [14:17:08.990] {
     [14:17:08.990] base::local({
     [14:17:08.990] has_future <- base::requireNamespace("future",
     [14:17:08.990] quietly = TRUE)
     [14:17:08.990] version <- if (has_future)
     [14:17:08.990] utils::packageVersion("future")
     [14:17:08.990] else NULL
     [14:17:08.990] if (!has_future || version < "1.8.0") {
     [14:17:08.990] info <- base::c(r_version = base::gsub("R version ",
     [14:17:08.990] "", base::R.version$version.string),
     [14:17:08.990] platform = base::sprintf("%s (%s-bit)",
     [14:17:08.990] base::R.version$platform, 8 * base::.Machine$sizeof.pointer),
     [14:17:08.990] os = base::paste(base::Sys.info()[base::c("sysname",
     [14:17:08.990] "release", "version")], collapse = " "),
     [14:17:08.990] hostname = base::Sys.info()[["nodename"]])
     [14:17:08.990] info <- base::sprintf("%s: %s", base::names(info),
     [14:17:08.990] info)
     [14:17:08.990] info <- base::paste(info, collapse = "; ")
     [14:17:08.990] if (!has_future) {
     [14:17:08.990] msg <- base::sprintf("Package 'future' is not installed on worker (%s)",
     [14:17:08.990] info)
     [14:17:08.990] }
     [14:17:08.990] else {
     [14:17:08.990] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s",
     [14:17:08.990] info, version)
     [14:17:08.990] }
     [14:17:08.990] base::stop(msg)
     [14:17:08.990] }
     [14:17:08.990] })
     [14:17:08.990] }
     [14:17:08.990] base::local({
     [14:17:08.990] for (pkg in c("doFuture", "utils", "foreach",
     [14:17:08.990] "future")) {
     [14:17:08.990] base::loadNamespace(pkg)
     [14:17:08.990] base::library(pkg, character.only = TRUE)
     [14:17:08.990] }
     [14:17:08.990] })
     [14:17:08.990] }
     [14:17:08.990] future::plan(list(b = function (expr, envir = parent.frame(),
     [14:17:08.990] substitute = TRUE, lazy = FALSE, seed = NULL,
     [14:17:08.990] globals = TRUE, persistent = FALSE, workers = availableWorkers(),
     [14:17:08.990] user = NULL, revtunnel = TRUE, homogeneous = TRUE,
     [14:17:08.990] gc = FALSE, earlySignal = FALSE, label = NULL,
     [14:17:08.990] ...)
     [14:17:08.990] {
     [14:17:08.990] if (substitute)
     [14:17:08.990] expr <- substitute(expr)
     [14:17:08.990] future <- ClusterFuture(expr = expr, envir = envir,
     [14:17:08.990] substitute = FALSE, lazy = lazy, seed = seed,
     [14:17:08.990] globals = globals, persistent = persistent,
     [14:17:08.990] workers = workers, user = user, revtunnel = revtunnel,
     [14:17:08.990] homogeneous = homogeneous, gc = gc, earlySignal = earlySignal,
     [14:17:08.990] label = label, ...)
     [14:17:08.990] if (!future$lazy)
     [14:17:08.990] future <- run(future)
     [14:17:08.990] invisible(future)
     [14:17:08.990] }), .cleanup = FALSE, .init = FALSE)
     [14:17:08.990] }
     [14:17:08.990] }
     [14:17:08.990] if (base::is.na(TRUE)) {
     [14:17:08.990] }
     [14:17:08.990] else {
     [14:17:08.990] if (TRUE) {
     [14:17:08.990] ...future.stdout <- base::rawConnection(base::raw(0L),
     [14:17:08.990] open = "w")
     [14:17:08.990] }
     [14:17:08.990] else {
     [14:17:08.990] ...future.stdout <- base::file(base::switch(.Platform$OS.type,
     [14:17:08.990] windows = "NUL", "/dev/null"), open = "w")
     [14:17:08.990] }
     [14:17:08.990] base::sink(...future.stdout, type = "output", split = FALSE)
     [14:17:08.990] base::on.exit(if (!base::is.null(...future.stdout)) {
     [14:17:08.990] base::sink(type = "output", split = FALSE)
     [14:17:08.990] base::close(...future.stdout)
     [14:17:08.990] }, add = TRUE)
     [14:17:08.990] }
     [14:17:08.990] ...future.frame <- base::sys.nframe()
     [14:17:08.990] ...future.conditions <- base::list()
     [14:17:08.990] ...future.rng <- base::globalenv()$.Random.seed
     [14:17:08.990] ...future.result <- base::tryCatch({
     [14:17:08.990] base::withCallingHandlers({
     [14:17:08.990] ...future.value <- base::withVisible(base::local({
     [14:17:08.990] doFuture::registerDoFuture()
     [14:17:08.990] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:17:08.990] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:17:08.990] a <- NULL
     [14:17:08.990] ...future.env <- environment()
     [14:17:08.990] local({
     [14:17:08.990] for (name in names(...future.x_jj)) {
     [14:17:08.990] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:17:08.990] inherits = FALSE)
     [14:17:08.990] }
     [14:17:08.990] })
     [14:17:08.990] tryCatch({
     [14:17:08.990] plan_list <- future::plan("next")
     [14:17:08.990] stopifnot(inherits(plan_list, strategy2))
     [14:17:08.990] plan_a <- future::plan("list")
     [14:17:08.990] str(plan_a)
     [14:17:08.990] stopifnot(inherits(plan_a[[1]], strategy2))
     [14:17:08.990] message("foreach() - level 2 ...")
     [14:17:08.990] y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar%
     [14:17:08.990] {
     [14:17:08.990] plan_list <- future::plan("next")
     [14:17:08.990] message(capture.output(print(plan_list)))
     [14:17:08.990] stopifnot(inherits(plan_list, "future"))
     [14:17:08.990] default <- getOption("future.plan", "sequential")
     [14:17:08.990] if (is.function(default))
     [14:17:08.990] default <- class(default)
     [14:17:08.990] stopifnot(inherits(plan_list, default))
     [14:17:08.990] plan_b <- future::plan("list")
     [14:17:08.990] str(plan_b)
     [14:17:08.990] stopifnot(inherits(plan_b[[1]], "future"),
     [14:17:08.990] inherits(plan_b[[1]], default))
     [14:17:08.990] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:17:08.990] }
     [14:17:08.990] message("foreach() - level 2 ... DONE")
     [14:17:08.990] y
     [14:17:08.990] }, error = identity)
     [14:17:08.990] })
     [14:17:08.990] }))
     [14:17:08.990] future::FutureResult(value = ...future.value$value,
     [14:17:08.990] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed,
     [14:17:08.990] ...future.rng), started = ...future.startTime,
     [14:17:08.990] version = "1.8")
     [14:17:08.990] }, condition = base::local({
     [14:17:08.990] c <- base::c
     [14:17:08.990] inherits <- base::inherits
     [14:17:08.990] invokeRestart <- base::invokeRestart
     [14:17:08.990] length <- base::length
     [14:17:08.990] list <- base::list
     [14:17:08.990] seq.int <- base::seq.int
     [14:17:08.990] signalCondition <- base::signalCondition
     [14:17:08.990] sys.calls <- base::sys.calls
     [14:17:08.990] Sys.time <- base::Sys.time
     [14:17:08.990] `[[` <- base::`[[`
     [14:17:08.990] `+` <- base::`+`
     [14:17:08.990] `<<-` <- base::`<<-`
     [14:17:08.990] sysCalls <- function(calls = sys.calls(), from = 1L) {
     [14:17:08.990] calls[seq.int(from = from + 12L, to = length(calls) -
     [14:17:08.990] 3L)]
     [14:17:08.990] }
     [14:17:08.990] function(cond) {
     [14:17:08.990] if (inherits(cond, "error")) {
     [14:17:08.990] sessionInformation <- function() {
     [14:17:08.990] list(r = base::R.Version(), locale = base::Sys.getlocale(),
     [14:17:08.990] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(),
     [14:17:08.990] search = base::search(), system = base::Sys.info())
     [14:17:08.990] }
     [14:17:08.990] ...future.conditions[[length(...future.conditions) +
     [14:17:08.990] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame),
     [14:17:08.990] cond$call), session = sessionInformation(),
     [14:17:08.990] timestamp = Sys.time(), signaled = 0L)
     [14:17:08.990] signalCondition(cond)
     [14:17:08.990] }
     [14:17:08.990] else if (inherits(cond, c("condition", "immediateCondition"
     [14:17:08.990] ))) {
     [14:17:08.990] signal <- TRUE && inherits(cond, "immediateCondition")
     [14:17:08.990] ...future.conditions[[length(...future.conditions) +
     [14:17:08.990] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
     [14:17:08.990] if (!signal) {
     [14:17:08.990] muffleCondition <- function (cond)
     [14:17:08.990] {
     [14:17:08.990] inherits <- base::inherits
     [14:17:08.990] invokeRestart <- base::invokeRestart
     [14:17:08.990] muffled <- FALSE
     [14:17:08.990] if (inherits(cond, "message")) {
     [14:17:08.990] invokeRestart("muffleMessage")
     [14:17:08.990] muffled <- TRUE
     [14:17:08.990] }
     [14:17:08.990] else if (inherits(cond, "warning")) {
     [14:17:08.990] invokeRestart("muffleWarning")
     [14:17:08.990] muffled <- TRUE
     [14:17:08.990] }
     [14:17:08.990] else if (inherits(cond, "condition")) {
     [14:17:08.990] computeRestarts <- base::computeRestarts
     [14:17:08.990] grepl <- base::grepl
     [14:17:08.990] is.null <- base::is.null
     [14:17:08.990] restarts <- computeRestarts(cond)
     [14:17:08.990] for (restart in restarts) {
     [14:17:08.990] name <- restart$name
     [14:17:08.990] if (is.null(name))
     [14:17:08.990] next
     [14:17:08.990] if (!grepl("^muffle", name))
     [14:17:08.990] next
     [14:17:08.990] invokeRestart(restart)
     [14:17:08.990] muffled <- TRUE
     [14:17:08.990] break
     [14:17:08.990] }
     [14:17:08.990] }
     [14:17:08.990] invisible(muffled)
     [14:17:08.990] }
     [14:17:08.990] muffleCondition(cond)
     [14:17:08.990] }
     [14:17:08.990] }
     [14:17:08.990] }
     [14:17:08.990] }))
     [14:17:08.990] }, error = function(ex) {
     [14:17:08.990] base::structure(base::list(value = NULL, visible = NULL,
     [14:17:08.990] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed,
     [14:17:08.990] ...future.rng), version = "1.8"), class = "FutureResult")
     [14:17:08.990] }, finally = {
     [14:17:08.990] {
     [14:17:08.990] NULL
     [14:17:08.990] future::plan(list(a = function (expr, envir = parent.frame(),
     [14:17:08.990] substitute = TRUE, lazy = FALSE, seed = NULL,
     [14:17:08.990] globals = TRUE, local = TRUE, earlySignal = FALSE,
     [14:17:08.990] label = NULL, ...)
     [14:17:08.990] {
     [14:17:08.990] if (substitute)
     [14:17:08.990] expr <- substitute(expr)
     [14:17:08.990] local <- as.logical(local)
     [14:17:08.990] future <- SequentialFuture(expr = expr, envir = envir,
     [14:17:08.990] substitute = FALSE, lazy = lazy, seed = seed,
     [14:17:08.990] globals = globals, local = local, earlySignal = earlySignal,
     [14:17:08.990] label = label, ...)
     [14:17:08.990] if (!future$lazy)
     [14:17:08.990] future <- run(future)
     [14:17:08.990] invisible(future)
     [14:17:08.990] }, b = function (expr, envir = parent.frame(), substitute = TRUE,
     [14:17:08.990] lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE,
     [14:17:08.990] workers = availableWorkers(), user = NULL, revtunnel = TRUE,
     [14:17:08.990] homogeneous = TRUE, gc = FALSE, earlySignal = FALSE,
     [14:17:08.990] label = NULL, ...)
     [14:17:08.990] {
     [14:17:08.990] if (substitute)
     [14:17:08.990] expr <- substitute(expr)
     [14:17:08.990] future <- ClusterFuture(expr = expr, envir = envir,
     [14:17:08.990] substitute = FALSE, lazy = lazy, seed = seed,
     [14:17:08.990] globals = globals, persistent = persistent,
     [14:17:08.990] workers = workers, user = user, revtunnel = revtunnel,
     [14:17:08.990] homogeneous = homogeneous, gc = gc, earlySignal = earlySignal,
     [14:17:08.990] label = label, ...)
     [14:17:08.990] if (!future$lazy)
     [14:17:08.990] future <- run(future)
     [14:17:08.990] invisible(future)
     [14:17:08.990] }), .cleanup = FALSE, .init = FALSE)
     [14:17:08.990] }
     [14:17:08.990] base::options(...future.oldOptions)
     [14:17:08.990] })
     [14:17:08.990] Sys.time
     [14:17:08.990] if (base::is.na(TRUE)) {
     [14:17:08.990] }
     [14:17:08.990] else {
     [14:17:08.990] base::sink(type = "output", split = FALSE)
     [14:17:08.990] if (TRUE) {
     [14:17:08.990] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
     [14:17:08.990] }
     [14:17:08.990] else {
     [14:17:08.990] ...future.result["stdout"] <- base::list(NULL)
     [14:17:08.990] }
     [14:17:08.990] base::close(...future.stdout)
     [14:17:08.990] ...future.stdout <- NULL
     [14:17:08.990] }
     [14:17:08.990] ...future.result$conditions <- ...future.conditions
     [14:17:08.990] ...future.result
     [14:17:08.990] }
     [14:17:09.003] plan(): Setting new future strategy stack:
     [14:17:09.003] List of future strategies:
     [14:17:09.003] 1. cluster:
     [14:17:09.003] - 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:17:09.003] - tweaked: FALSE
     [14:17:09.003] - call: plan(list(a = strategy1, b = strategy2))
     [14:17:09.007] plan(): nbrOfWorkers() = 2
     [14:17:29.385] plan(): Setting new future strategy stack:
     [14:17:29.386] List of future strategies:
     [14:17:29.386] 1. sequential:
     [14:17:29.386] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
     [14:17:29.386] - tweaked: FALSE
     [14:17:29.386] - call: plan(list(a = strategy1, b = strategy2))
     [14:17:29.386] 2. cluster:
     [14:17:29.386] - 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:17:29.386] - tweaked: FALSE
     [14:17:29.386] - call: plan(list(a = strategy1, b = strategy2))
     [14:17:29.388] plan(): nbrOfWorkers() = 1
     [14:17:29.390] SequentialFuture started (and completed)
     [14:17:29.390] signalConditions() ...
     [14:17:29.391] - include = 'immediateCondition'
     [14:17:29.391] - exclude =
     [14:17:29.392] - resignal = FALSE
     [14:17:29.392] - Number of conditions: 604
     [14:17:29.395] signalConditions() ... done
     [14:17:29.396] Chunk #1 of 1 ... DONE
     [14:17:29.396] Launching 1 futures (chunks) ... DONE
     [14:17:29.396] - resolving futures
     [14:17:29.397] - gathering results & relaying conditions (except errors)
     [14:17:29.397] resolve() on list ...
     [14:17:29.398] recursive: 0
     [14:17:29.398] length: 1
     [14:17:29.398]
     [14:17:29.399] Future #1
     [14:17:29.399] signalConditions() ...
     [14:17:29.400] - include = 'immediateCondition'
     [14:17:29.400] - exclude =
     [14:17:29.401] - resignal = FALSE
     [14:17:29.401] - Number of conditions: 604
     [14:17:29.404] signalConditions() ... done
     [14:17:29.405] signalConditionsASAP(SequentialFuture, pos=1) ...
     [14:17:29.405] - nx: 1
     [14:17:29.406] - relay: TRUE
     [14:17:29.406] - stdout: TRUE
     [14:17:29.406] - signal: TRUE
     [14:17:29.407] - resignal: FALSE
     [14:17:29.485] - force: FALSE
     [14:17:29.486] - relayed: [n=1] FALSE
     [14:17:29.486] - queued futures: [n=1] FALSE
     [14:17:29.487] - until=1
     [14:17:29.487] - relaying element #1
     [14:17:29.488] signalConditions() ...
     [14:17:29.488] - include = 'immediateCondition'
     [14:17:29.489] - exclude =
     [14:17:29.489] - resignal = FALSE
     [14:17:29.490] - Number of conditions: 604
     [14:17:29.492] signalConditions() ... done
     List of 1
     $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(),
     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE,
     label = NULL, ...)
     ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
     ..- attr(*, "init")= logi TRUE
     ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     List of 1
     $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL,
     ...)
     ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     List of 1
     $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL,
     ...)
     ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     List of 1
     $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL,
     ...)
     ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     List of 1
     $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(),
     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE,
     label = NULL, ...)
     ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
     ..- attr(*, "init")= logi TRUE
     ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     List of 1
     $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL,
     ...)
     ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     List of 1
     $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL,
     ...)
     ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     List of 1
     $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL,
     ...)
     ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
     - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     [14:17:29.493] signalConditions() ...
     [14:17:29.494] - include = 'immediateCondition'
     [14:17:29.494] - exclude =
     [14:17:29.495] - resignal = FALSE
     [14:17:29.495] - Number of conditions: 604
     [14:17:29.498] signalConditions() ... done
     [14:17:29.498] signalConditions() ...
     [14:17:29.499] - include = 'condition'
     [14:17:29.499] - exclude = 'immediateCondition'
     [14:17:29.500] - resignal = FALSE
     [14:17:29.500] - Number of conditions: 604
     [14:17:29.500] - Condition #1: 'simpleMessage', 'message', 'condition'
     foreach() - level 2 ...
     [14:17:29.501] - Condition #2: 'simpleMessage', 'message', 'condition'
     [14:17:09.024] doFuture() ...
     [14:17:29.502] - Condition #3: 'simpleMessage', 'message', 'condition'
     [14:17:09.027] - dummy globals (as locals): [1] 'b'
     [14:17:29.502] - Condition #4: 'simpleMessage', 'message', 'condition'
     [14:17:09.029] - R expression:
     [14:17:29.503] - Condition #5: 'simpleMessage', 'message', 'condition'
     [14:17:09.030] {
     [14:17:09.030] doFuture::registerDoFuture()
     [14:17:09.030] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:17:09.030] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:17:09.030] b <- NULL
     [14:17:09.030] ...future.env <- environment()
     [14:17:09.030] local({
     [14:17:09.030] for (name in names(...future.x_jj)) {
     [14:17:09.030] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:17:09.030] inherits = FALSE)
     [14:17:09.030] }
     [14:17:09.030] })
     [14:17:09.030] tryCatch({
     [14:17:09.030] plan_list <- future::plan("next")
     [14:17:09.030] message(capture.output(print(plan_list)))
     [14:17:09.030] stopifnot(inherits(plan_list, "future"))
     [14:17:09.030] default <- getOption("future.plan", "sequential")
     [14:17:09.030] if (is.function(default))
     [14:17:09.030] default <- class(default)
     [14:17:09.030] stopifnot(inherits(plan_list, default))
     [14:17:09.030] plan_b <- future::plan("list")
     [14:17:09.030] str(plan_b)
     [14:17:09.030] stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]],
     [14:17:09.030] default))
     [14:17:09.030] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:17:09.030] }, error = identity)
     [14:17:09.030] })
     [14:17:09.030] }
     [14:17:29.504] - Condition #6: 'simpleMessage', 'message', 'condition'
     [14:17:09.032] - identifying globals and packages ...
     [14:17:29.504] - Condition #7: 'simpleMessage', 'message', 'condition'
     [14:17:09.033] getGlobalsAndPackages() ...
     [14:17:29.505] - Condition #8: 'simpleMessage', 'message', 'condition'
     [14:17:09.034] Searching for globals...
     [14:17:29.505] - Condition #9: 'simpleMessage', 'message', 'condition'
     [14:17:09.071] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
     [14:17:29.506] - Condition #10: 'simpleMessage', 'message', 'condition'
     [14:17:09.072] Searching for globals ... DONE
     [14:17:29.507] - Condition #11: 'simpleMessage', 'message', 'condition'
     [14:17:09.073] Resolving globals: FALSE
     [14:17:29.507] - Condition #12: 'simpleMessage', 'message', 'condition'
     [14:17:09.082] The total size of the 3 globals is 64.51 KiB (66056 bytes)
     [14:17:29.508] - Condition #13: 'simpleMessage', 'message', 'condition'
     [14:17:09.083] - globals: [3] '...future.x_ii', 'a', 'plan_a'
     [14:17:29.508] - Condition #14: 'simpleMessage', 'message', 'condition'
     [14:17:09.084] - packages: [1] 'utils'
     [14:17:29.509] - Condition #15: 'simpleMessage', 'message', 'condition'
     [14:17:09.085] getGlobalsAndPackages() ... DONE
     [14:17:29.510] - Condition #16: 'simpleMessage', 'message', 'condition'
     [14:17:09.086] List of 3
     [14:17:09.086] $ ...future.x_ii: NULL
     [14:17:09.086] $ a : int 1
     [14:17:09.086] $ plan_a :List of 1
     [14:17:09.086] ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     [14:17:09.086] seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(),
     [14:17:09.086] user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE,
     [14:17:09.086] label = NULL, ...)
     [14:17:09.086] .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
     [14:17:09.086] .. ..- attr(*, "init")= logi TRUE
     [14:17:09.086] .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
     [14:17:09.086] ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     [14:17:09.086] - attr(*, "where")=List of 3
     [14:17:09.086] ..$ ...future.x_ii:<environment: 0x13fa2e8>
     [14:17:09.086] ..$ a :<environment: 0x34566f0>
     [14:17:09.086] ..$ plan_a :<environment: 0x34566f0>
     [14:17:09.086] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
     [14:17:09.086] - attr(*, "resolved")= logi FALSE
     [14:17:09.086] - attr(*, "total_size")= num 66056
     [14:17:29.510] - Condition #17: 'simpleMessage', 'message', 'condition'
     [14:17:09.111] - R expression:
     [14:17:29.511] - Condition #18: 'simpleMessage', 'message', 'condition'
     [14:17:09.111] {
     [14:17:09.111] doFuture::registerDoFuture()
     [14:17:09.111] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:17:09.111] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:17:09.111] b <- NULL
     [14:17:09.111] ...future.env <- environment()
     [14:17:09.111] local({
     [14:17:09.111] for (name in names(...future.x_jj)) {
     [14:17:09.111] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:17:09.111] inherits = FALSE)
     [14:17:09.111] }
     [14:17:09.111] })
     [14:17:09.111] tryCatch({
     [14:17:09.111] plan_list <- future::plan("next")
     [14:17:09.111] message(capture.output(print(plan_list)))
     [14:17:09.111] stopifnot(inherits(plan_list, "future"))
     [14:17:09.111] default <- getOption("future.plan", "sequential")
     [14:17:09.111] if (is.function(default))
     [14:17:09.111] default <- class(default)
     [14:17:09.111] stopifnot(inherits(plan_list, default))
     [14:17:09.111] plan_b <- future::plan("list")
     [14:17:09.111] str(plan_b)
     [14:17:09.111] stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]],
     [14:17:09.111] default))
     [14:17:09.111] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:17:09.111] }, error = identity)
     [14:17:09.111] })
     [14:17:09.111] }
     [14:17:29.511] - Condition #19: 'simpleMessage', 'message', 'condition'
     [14:17:09.113] - globals: [3] '...future.x_ii', 'a', 'plan_a'
     [14:17:29.512] - Condition #20: 'simpleMessage', 'message', 'condition'
     [14:17:09.114] List of 3
     [14:17:09.114] $ ...future.x_ii: NULL
     [14:17:09.114] $ a : int 1
     [14:17:09.114] $ plan_a :List of 1
     [14:17:09.114] ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     [14:17:09.114] seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(),
     [14:17:09.114] user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE,
     [14:17:09.114] label = NULL, ...)
     [14:17:09.114] .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
     [14:17:09.114] .. ..- attr(*, "init")= logi TRUE
     [14:17:09.114] .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
     [14:17:09.114] ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     [14:17:09.114] - attr(*, "where")=List of 3
     [14:17:09.114] ..$ ...future.x_ii:<environment: 0x13fa2e8>
     [14:17:09.114] ..$ a :<environment: 0x34566f0>
     [14:17:09.114] ..$ plan_a :<environment: 0x34566f0>
     [14:17:09.114] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
     [14:17:09.114] - attr(*, "resolved")= logi FALSE
     [14:17:09.114] - attr(*, "total_size")= num 66056
     [14:17:29.512] - Condition #21: 'simpleMessage', 'message', 'condition'
     [14:17:09.136] - packages: [2] 'doFuture', 'utils'
     [14:17:29.513] - Condition #22: 'simpleMessage', 'message', 'condition'
     [14:17:09.137] - identifying globals and packages ... DONE
     [14:17:29.514] - Condition #23: 'simpleMessage', 'message', 'condition'
     [14:17:09.140] Number of chunks: 2
     [14:17:29.514] - Condition #24: 'simpleMessage', 'message', 'condition'
     [14:17:09.141] Number of futures (= number of chunks): 2
     [14:17:29.515] - Condition #25: 'simpleMessage', 'message', 'condition'
     [14:17:09.142] Launching 2 futures (chunks) ...
     [14:17:29.515] - Condition #26: 'simpleMessage', 'message', 'condition'
     [14:17:09.143] Chunk #1 of 2 ...
     [14:17:29.516] - Condition #27: 'simpleMessage', 'message', 'condition'
     [14:17:09.144] - Finding globals in 'args_list' chunk #1 ...
     [14:17:29.517] - Condition #28: 'simpleMessage', 'message', 'condition'
     [14:17:09.145] getGlobalsAndPackages() ...
     [14:17:29.517] - Condition #29: 'simpleMessage', 'message', 'condition'
     [14:17:09.145] Searching for globals...
     [14:17:29.518] - Condition #30: 'simpleMessage', 'message', 'condition'
     [14:17:09.147]
     [14:17:29.518] - Condition #31: 'simpleMessage', 'message', 'condition'
     [14:17:09.148] Searching for globals ... DONE
     [14:17:29.519] - Condition #32: 'simpleMessage', 'message', 'condition'
     [14:17:09.148] - globals: [0] <none>
     [14:17:29.520] - Condition #33: 'simpleMessage', 'message', 'condition'
     [14:17:09.149] getGlobalsAndPackages() ... DONE
     [14:17:29.520] - Condition #34: 'simpleMessage', 'message', 'condition'
     [14:17:09.150]
     [14:17:29.521] - Condition #35: 'simpleMessage', 'message', 'condition'
     [14:17:09.151]
     [14:17:29.521] - Condition #36: 'simpleMessage', 'message', 'condition'
     [14:17:09.157] - Finding globals in 'args_list' for chunk #1 ... DONE
     [14:17:29.522] - Condition #37: 'simpleMessage', 'message', 'condition'
     [14:17:09.158] getGlobalsAndPackages() ...
     [14:17:29.522] - Condition #38: 'simpleMessage', 'message', 'condition'
     [14:17:09.159] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
     [14:17:29.523] - Condition #39: 'simpleMessage', 'message', 'condition'
     [14:17:09.160] Resolving globals: FALSE
     [14:17:29.524] - Condition #40: 'simpleMessage', 'message', 'condition'
     [14:17:09.162] The total size of the 3 globals is 64.56 KiB (66112 bytes)
     [14:17:29.524] - Condition #41: 'simpleMessage', 'message', 'condition'
     [14:17:09.163] - globals: [3] '...future.x_ii', 'a', 'plan_a'
     [14:17:29.525] - Condition #42: 'simpleMessage', 'message', 'condition'
     [14:17:09.164]
     [14:17:29.525] - Condition #43: 'simpleMessage', 'message', 'condition'
     [14:17:09.165] getGlobalsAndPackages() ... DONE
     [14:17:29.526] - Condition #44: 'simpleMessage', 'message', 'condition'
     [local output] Workers: [n = 2] 'localhost', 'localhost'
     [14:17:29.527] - Condition #45: 'simpleMessage', 'message', 'condition'
     [local output] Base port: 30497
     [14:17:29.527] - Condition #46: 'simpleMessage', 'message', 'condition'
     [local output] Creating node 1 of 2 ...
     [14:17:29.528] - Condition #47: 'simpleMessage', 'message', 'condition'
     [local output] - setting up node
     [14:17:29.528] - Condition #48: 'simpleMessage', 'message', 'condition'
     Testing if worker's PID can be inferred: ''/data/gannet/ripley/R/R-devel/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpbwHFwL/working_dir/Rtmp7SSAWH/future.parent=687619.a7e03110e250d.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpbwHFwL/working_dir/Rtmp7SSAWH/future.parent=687619.a7e03110e250d.pid')"'
     [14:17:29.529] - Condition #49: 'simpleMessage', 'message', 'condition'
     - Possible to infer worker's PID: TRUE
     [14:17:29.530] - Condition #50: 'simpleMessage', 'message', 'condition'
     [local output] Starting worker #1 on 'localhost': '/data/gannet/ripley/R/R-devel/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:687619:gannet.stats.ox.ac.uk:ripley' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpbwHFwL/working_dir/Rtmp7SSAWH/future.parent=687619.a7e03110e250d.pid")), silent = TRUE)' -e 'workRSOCK <- tryCatch(parallel:::.slaveRSOCK, error=function(e) parallel:::.workRSOCK); workRSOCK()' MASTER=localhost PORT=30497 OUT=/dev/null TIMEOUT=120 XDR=TRUE
     [14:17:29.530] - Condition #51: 'simpleMessage', 'message', 'condition'
     [local output] - Exit code of system() call: 0
     [14:17:29.531] - Condition #52: 'simpleMessage', 'message', 'condition'
     [local output] Waiting for worker #1 on 'localhost' to connect back
     [14:17:29.531] - Condition #53: 'simpleMessage', 'message', 'condition'
     [local output] Connection with worker #1 on 'localhost' established
     [14:17:29.532] - Condition #54: 'simpleMessage', 'message', 'condition'
     [local output] - collecting session information
     [14:17:29.533] - Condition #55: 'simpleMessage', 'message', 'condition'
     [local output] Creating node 1 of 2 ... done
     [14:17:29.533] - Condition #56: 'simpleMessage', 'message', 'condition'
     [local output] Creating node 2 of 2 ...
     [14:17:29.534] - Condition #57: 'simpleMessage', 'message', 'condition'
     [local output] - setting up node
     [14:17:29.534] - Condition #58: 'simpleMessage', 'message', 'condition'
     Testing if worker's PID can be inferred: ''/data/gannet/ripley/R/R-devel/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpbwHFwL/working_dir/Rtmp7SSAWH/future.parent=687619.a7e035a8d2a7c.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpbwHFwL/working_dir/Rtmp7SSAWH/future.parent=687619.a7e035a8d2a7c.pid')"'
     [14:17:29.535] - Condition #59: 'simpleMessage', 'message', 'condition'
     - Possible to infer worker's PID: TRUE
     [14:17:29.536] - Condition #60: 'simpleMessage', 'message', 'condition'
     [local output] Starting worker #2 on 'localhost': '/data/gannet/ripley/R/R-devel/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:687619:gannet.stats.ox.ac.uk:ripley' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpbwHFwL/working_dir/Rtmp7SSAWH/future.parent=687619.a7e035a8d2a7c.pid")), silent = TRUE)' -e 'workRSOCK <- tryCatch(parallel:::.slaveRSOCK, error=function(e) parallel:::.workRSOCK); workRSOCK()' MASTER=localhost PORT=30497 OUT=/dev/null TIMEOUT=120 XDR=TRUE
     [14:17:29.536] - Condition #61: 'simpleMessage', 'message', 'condition'
     [local output] - Exit code of system() call: 0
     [14:17:29.537] - Condition #62: 'simpleMessage', 'message', 'condition'
     [local output] Waiting for worker #2 on 'localhost' to connect back
     [14:17:29.538] - Condition #63: 'simpleMessage', 'message', 'condition'
     [local output] Connection with worker #2 on 'localhost' established
     [14:17:29.538] - Condition #64: 'simpleMessage', 'message', 'condition'
     [local output] - collecting session information
     [14:17:29.539] - Condition #65: 'simpleMessage', 'message', 'condition'
     [local output] Creating node 2 of 2 ... done
     [14:17:29.540] - Condition #66: 'simpleMessage', 'message', 'condition'
     [14:17:28.099] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
     [14:17:29.540] - Condition #67: 'simpleMessage', 'message', 'condition'
     [14:17:28.100] Packages needed by future strategies (n = 0): <none>
     [14:17:29.541] - Condition #68: 'simpleMessage', 'message', 'condition'
     [14:17:28.108] {
     [14:17:28.108] {
     [14:17:28.108] ...future.startTime <- base::Sys.time()
     [14:17:28.108] ...future.oldOptions <- base::options(future.startup.script = FALSE,
     [14:17:28.108] future.globals.onMissing = NULL, future.globals.maxSize = NULL,
     [14:17:28.108] future.globals.method = NULL, future.globals.onMissing = NULL,
     [14:17:28.108] future.globals.onReference = NULL, future.globals.resolve = NULL,
     [14:17:28.108] future.resolve.recursive = NULL, width = 80L)
     [14:17:28.108] {
     [14:17:28.108] {
     [14:17:28.108] {
     [14:17:28.108] base::local({
     [14:17:28.108] has_future <- base::requireNamespace("future",
     [14:17:28.108] quietly = TRUE)
     [14:17:28.108] version <- if (has_future)
     [14:17:28.108] utils::packageVersion("future")
     [14:17:28.108] else NULL
     [14:17:28.108] if (!has_future || version < "1.8.0") {
     [14:17:28.108] info <- base::c(r_version = base::gsub("R version ",
     [14:17:28.108] "", base::R.version$version.string),
     [14:17:28.108] platform = base::sprintf("%s (%s-bit)",
     [14:17:28.108] base::R.version$platform, 8 * base::.Machine$sizeof.pointer),
     [14:17:28.108] os = base::paste(base::Sys.info()[base::c("sysname",
     [14:17:28.108] "release", "version")], collapse = " "),
     [14:17:28.108] hostname = base::Sys.info()[["nodename"]])
     [14:17:28.108] info <- base::sprintf("%s: %s", base::names(info),
     [14:17:28.108] info)
     [14:17:28.108] info <- base::paste(info, collapse = "; ")
     [14:17:28.108] if (!has_future) {
     [14:17:28.108] msg <- base::sprintf("Package 'future' is not installed on worker (%s)",
     [14:17:28.108] info)
     [14:17:28.108] }
     [14:17:28.108] else {
     [14:17:28.108] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s",
     [14:17:28.108] info, version)
     [14:17:28.108] }
     [14:17:28.108] base::stop(msg)
     [14:17:28.108] }
     [14:17:28.108] })
     [14:17:28.108] }
     [14:17:28.108] base::local({
     [14:17:28.108] for (pkg in c("doFuture", "utils")) {
     [14:17:28.108] base::loadNamespace(pkg)
     [14:17:28.108] base::library(pkg, character.only = TRUE)
     [14:17:28.108] }
     [14:17:28.108] })
     [14:17:28.108] }
     [14:17:28.108] future::plan("default", .cleanup = FALSE, .init = FALSE)
     [14:17:28.108] }
     [14:17:28.108] }
     [14:17:28.108] if (base::is.na(TRUE)) {
     [14:17:28.108] }
     [14:17:28.108] else {
     [14:17:28.108] if (TRUE) {
     [14:17:28.108] ...future.stdout <- base::rawConnection(base::raw(0L),
     [14:17:28.108] open = "w")
     [14:17:28.108] }
     [14:17:28.108] else {
     [14:17:28.108] ...future.stdout <- base::file(base::switch(.Platform$OS.type,
     [14:17:28.108] windows = "NUL", "/dev/null"), open = "w")
     [14:17:28.108] }
     [14:17:28.108] base::sink(...future.stdout, type = "output", split = FALSE)
     [14:17:28.108] base::on.exit(if (!base::is.null(...future.stdout)) {
     [14:17:28.108] base::sink(type = "output", split = FALSE)
     [14:17:28.108] base::close(...future.stdout)
     [14:17:28.108] }, add = TRUE)
     [14:17:28.108] }
     [14:17:28.108] ...future.frame <- base::sys.nframe()
     [14:17:28.108] ...future.conditions <- base::list()
     [14:17:28.108] ...future.rng <- base::globalenv()$.Random.seed
     [14:17:28.108] ...future.result <- base::tryCatch({
     [14:17:28.108] base::withCallingHandlers({
     [14:17:28.108] ...future.value <- base::withVisible(base::local({
     [14:17:28.108] ...future.sendCondition <- local({
     [14:17:28.108] sendCondition <- NULL
     [14:17:28.108] function(frame = 1L) {
     [14:17:28.108] if (is.function(sendCondition))
     [14:17:28.108] return(sendCondition)
     [14:17:28.108] ns <- getNamespace("parallel")
     [14:17:28.108] if (exists("sendData", mode = "function",
     [14:17:28.108] envir = ns)) {
     [14:17:28.108] parallel_sendData <- get("sendData", mode = "function",
     [14:17:28.108] envir = ns)
     [14:17:28.108] envir <- sys.frame(frame)
     [14:17:28.108] master <- NULL
     [14:17:28.108] while (!identical(envir, .GlobalEnv) &&
     [14:17:28.108] !identical(envir, emptyenv())) {
     [14:17:28.108] if (exists("master", mode = "list", envir = envir,
     [14:17:28.108] inherits = FALSE)) {
     [14:17:28.108] master <- get("master", mode = "list",
     [14:17:28.108] envir = envir, inherits = FALSE)
     [14:17:28.108] if (inherits(master, "SOCKnode")) {
     [14:17:28.108] sendCondition <<- function(cond) {
     [14:17:28.108] data <- list(type = "VALUE", value = cond,
     [14:17:28.108] success = TRUE)
     [14:17:28.108] parallel_sendData(master, data)
     [14:17:28.108] }
     [14:17:28.108] return(sendCondition)
     [14:17:28.108] }
     [14:17:28.108] }
     [14:17:28.108] frame <- frame + 1L
     [14:17:28.108] envir <- sys.frame(frame)
     [14:17:28.108] }
     [14:17:28.108] }
     [14:17:28.108] sendCondition <<- function(cond) NULL
     [14:17:28.108] }
     [14:17:28.108] })
     [14:17:28.108] withCallingHandlers({
     [14:17:28.108] {
     [14:17:28.108] doFuture::registerDoFuture()
     [14:17:28.108] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:17:28.108] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:17:28.108] b <- NULL
     [14:17:28.108] ...future.env <- environment()
     [14:17:28.108] local({
     [14:17:28.108] for (name in names(...future.x_jj)) {
     [14:17:28.108] assign(name, ...future.x_jj[[name]],
     [14:17:28.108] envir = ...future.env, inherits = FALSE)
     [14:17:28.108] }
     [14:17:28.108] })
     [14:17:28.108] tryCatch({
     [14:17:28.108] plan_list <- future::plan("next")
     [14:17:28.108] message(capture.output(print(plan_list)))
     [14:17:28.108] stopifnot(inherits(plan_list, "future"))
     [14:17:28.108] default <- getOption("future.plan", "sequential")
     [14:17:28.108] if (is.function(default))
     [14:17:28.108] default <- class(default)
     [14:17:28.108] stopifnot(inherits(plan_list, default))
     [14:17:28.108] plan_b <- future::plan("list")
     [14:17:28.108] str(plan_b)
     [14:17:28.108] stopifnot(inherits(plan_b[[1]], "future"),
     [14:17:28.108] inherits(plan_b[[1]], default))
     [14:17:28.108] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:17:28.108] }, error = identity)
     [14:17:28.108] })
     [14:17:28.108] }
     [14:17:28.108] }, immediateCondition = function(cond) {
     [14:17:28.108] sendCondition <- ...future.sendCondition()
     [14:17:28.108] sendCondition(cond)
     [14:17:28.108] muffleCondition <- function (cond)
     [14:17:28.108] {
     [14:17:28.108] inherits <- base::inherits
     [14:17:28.108] invokeRestart <- base::invokeRestart
     [14:17:28.108] muffled <- FALSE
     [14:17:28.108] if (inherits(cond, "message")) {
     [14:17:28.108] invokeRestart("muffleMessage")
     [14:17:28.108] muffled <- TRUE
     [14:17:28.108] }
     [14:17:28.108] else if (inherits(cond, "warning")) {
     [14:17:28.108] invokeRestart("muffleWarning")
     [14:17:28.108] muffled <- TRUE
     [14:17:28.108] }
     [14:17:28.108] else if (inherits(cond, "condition")) {
     [14:17:28.108] computeRestarts <- base::computeRestarts
     [14:17:28.108] grepl <- base::grepl
     [14:17:28.108] is.null <- base::is.null
     [14:17:28.108] restarts <- computeRestarts(cond)
     [14:17:28.108] for (restart in restarts) {
     [14:17:28.108] name <- restart$name
     [14:17:28.108] if (is.null(name))
     [14:17:28.108] next
     [14:17:28.108] if (!grepl("^muffle", name))
     [14:17:28.108] next
     [14:17:28.108] invokeRestart(restart)
     [14:17:28.108] muffled <- TRUE
     [14:17:28.108] break
     [14:17:28.108] }
     [14:17:28.108] }
     [14:17:28.108] invisible(muffled)
     [14:17:28.108] }
     [14:17:28.108] muffleCondition(cond)
     [14:17:28.108] })
     [14:17:28.108] }))
     [14:17:28.108] future::FutureResult(value = ...future.value$value,
     [14:17:28.108] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed,
     [14:17:28.108] ...future.rng), started = ...future.startTime,
     [14:17:28.108] version = "1.8")
     [14:17:28.108] }, condition = base::local({
     [14:17:28.108] c <- base::c
     [14:17:28.108] inherits <- base::inherits
     [14:17:28.108] invokeRestart <- base::invokeRestart
     [14:17:28.108] length <- base::length
     [14:17:28.108] list <- base::list
     [14:17:28.108] seq.int <- base::seq.int
     [14:17:28.108] signalCondition <- base::signalCondition
     [14:17:28.108] sys.calls <- base::sys.calls
     [14:17:28.108] Sys.time <- base::Sys.time
     [14:17:28.108] `[[` <- base::`[[`
     [14:17:28.108] `+` <- base::`+`
     [14:17:28.108] `<<-` <- base::`<<-`
     [14:17:28.108] sysCalls <- function(calls = sys.calls(), from = 1L) {
     [14:17:28.108] calls[seq.int(from = from + 12L, to = length(calls) -
     [14:17:28.108] 3L)]
     [14:17:28.108] }
     [14:17:28.108] function(cond) {
     [14:17:28.108] if (inherits(cond, "error")) {
     [14:17:28.108] sessionInformation <- function() {
     [14:17:28.108] list(r = base::R.Version(), locale = base::Sys.getlocale(),
     [14:17:28.108] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(),
     [14:17:28.108] search = base::search(), system = base::Sys.info())
     [14:17:28.108] }
     [14:17:28.108] ...future.conditions[[length(...future.conditions) +
     [14:17:28.108] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame),
     [14:17:28.108] cond$call), session = sessionInformation(),
     [14:17:28.108] timestamp = Sys.time(), signaled = 0L)
     [14:17:28.108] signalCondition(cond)
     [14:17:28.108] }
     [14:17:28.108] else if (inherits(cond, c("condition", "immediateCondition"
     [14:17:28.108] ))) {
     [14:17:28.108] signal <- TRUE && inherits(cond, "immediateCondition")
     [14:17:28.108] ...future.conditions[[length(...future.conditions) +
     [14:17:28.108] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
     [14:17:28.108] if (!signal) {
     [14:17:28.108] muffleCondition <- function (cond)
     [14:17:28.108] {
     [14:17:28.108] inherits <- base::inherits
     [14:17:28.108] invokeRestart <- base::invokeRestart
     [14:17:28.108] muffled <- FALSE
     [14:17:28.108] if (inherits(cond, "message")) {
     [14:17:28.108] invokeRestart("muffleMessage")
     [14:17:28.108] muffled <- TRUE
     [14:17:28.108] }
     [14:17:28.108] else if (inherits(cond, "warning")) {
     [14:17:28.108] invokeRestart("muffleWarning")
     [14:17:28.108] muffled <- TRUE
     [14:17:28.108] }
     [14:17:28.108] else if (inherits(cond, "condition")) {
     [14:17:28.108] computeRestarts <- base::computeRestarts
     [14:17:28.108] grepl <- base::grepl
     [14:17:28.108] is.null <- base::is.null
     [14:17:28.108] restarts <- computeRestarts(cond)
     [14:17:28.108] for (restart in restarts) {
     [14:17:28.108] name <- restart$name
     [14:17:28.108] if (is.null(name))
     [14:17:28.108] next
     [14:17:28.108] if (!grepl("^muffle", name))
     [14:17:28.108] next
     [14:17:28.108] invokeRestart(restart)
     [14:17:28.108] muffled <- TRUE
     [14:17:28.108] break
     [14:17:28.108] }
     [14:17:28.108] }
     [14:17:28.108] invisible(muffled)
     [14:17:28.108] }
     [14:17:28.108] muffleCondition(cond)
     [14:17:28.108] }
     [14:17:28.108] }
     [14:17:28.108] }
     [14:17:28.108] }))
     [14:17:28.108] }, error = function(ex) {
     [14:17:28.108] base::structure(base::list(value = NULL, visible = NULL,
     [14:17:28.108] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed,
     [14:17:28.108] ...future.rng), version = "1.8"), class = "FutureResult")
     [14:17:28.108] }, finally = {
     [14:17:28.108] {
     [14:17:28.108] NULL
     [14:17:28.108] future::plan(list(b = function (expr, envir = parent.frame(),
     [14:17:28.108] substitute = TRUE, lazy = FALSE, seed = NULL,
     [14:17:28.108] globals = TRUE, persistent = FALSE, workers = availableWorkers(),
     [14:17:28.108] user = NULL, revtunnel = TRUE, homogeneous = TRUE,
     [14:17:28.108] gc = FALSE, earlySignal = FALSE, label = NULL,
     [14:17:28.108] ...)
     [14:17:28.108] {
     [14:17:28.108] if (substitute)
     [14:17:28.108] expr <- substitute(expr)
     [14:17:28.108] future <- ClusterFuture(expr = expr, envir = envir,
     [14:17:28.108] substitute = FALSE, lazy = lazy, seed = seed,
     [14:17:28.108] globals = globals, persistent = persistent,
     [14:17:28.108] workers = workers, user = user, revtunnel = revtunnel,
     [14:17:28.108] homogeneous = homogeneous, gc = gc, earlySignal = earlySignal,
     [14:17:28.108] label = label, ...)
     [14:17:28.108] if (!future$lazy)
     [14:17:28.108] future <- run(future)
     [14:17:28.108] invisible(future)
     [14:17:28.108] }), .cleanup = FALSE, .init = FALSE)
     [14:17:28.108] }
     [14:17:28.108] base::options(...future.oldOptions)
     [14:17:28.108] })
     [14:17:28.108] Sys.time
     [14:17:28.108] if (base::is.na(TRUE)) {
     [14:17:28.108] }
     [14:17:28.108] else {
     [14:17:28.108] base::sink(type = "output", split = FALSE)
     [14:17:28.108] if (TRUE) {
     [14:17:28.108] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
     [14:17:28.108] }
     [14:17:28.108] else {
     [14:17:28.108] ...future.result["stdout"] <- base::list(NULL)
     [14:17:28.108] }
     [14:17:28.108] base::close(...future.stdout)
     [14:17:28.108] ...future.stdout <- NULL
     [14:17:28.108] }
     [14:17:28.108] ...future.result$conditions <- ...future.conditions
     [14:17:28.108] ...future.result
     [14:17:28.108] }
     [14:17:29.542] - Condition #69: 'simpleMessage', 'message', 'condition'
     [14:17:28.119] Exporting 3 global objects (64.56 KiB) to cluster node #1 ...
     [14:17:29.542] - Condition #70: 'simpleMessage', 'message', 'condition'
     [14:17:28.120] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
     [14:17:29.543] - Condition #71: 'simpleMessage', 'message', 'condition'
     [14:17:28.122] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
     [14:17:29.544] - Condition #72: 'simpleMessage', 'message', 'condition'
     [14:17:28.123] Exporting 'a' (56 bytes) to cluster node #1 ...
     [14:17:29.544] - Condition #73: 'simpleMessage', 'message', 'condition'
     [14:17:28.124] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
     [14:17:29.545] - Condition #74: 'simpleMessage', 'message', 'condition'
     [14:17:28.126] Exporting 'plan_a' (64.45 KiB) to cluster node #1 ...
     [14:17:29.546] - Condition #75: 'simpleMessage', 'message', 'condition'
     [14:17:28.168] Exporting 'plan_a' (64.45 KiB) to cluster node #1 ... DONE
     [14:17:29.546] - Condition #76: 'simpleMessage', 'message', 'condition'
     [14:17:28.169] Exporting 3 global objects (64.56 KiB) to cluster node #1 ... DONE
     [14:17:29.547] - Condition #77: 'simpleMessage', 'message', 'condition'
     [14:17:28.171] ClusterFuture started
     [14:17:29.547] - Condition #78: 'simpleMessage', 'message', 'condition'
     [14:17:28.172] Chunk #1 of 2 ... DONE
     [14:17:29.548] - Condition #79: 'simpleMessage', 'message', 'condition'
     [14:17:28.173] Chunk #2 of 2 ...
     [14:17:29.549] - Condition #80: 'simpleMessage', 'message', 'condition'
     [14:17:28.174] - Finding globals in 'args_list' chunk #2 ...
     [14:17:29.549] - Condition #81: 'simpleMessage', 'message', 'condition'
     [14:17:28.174] getGlobalsAndPackages() ...
     [14:17:29.550] - Condition #82: 'simpleMessage', 'message', 'condition'
     [14:17:28.175] Searching for globals...
     [14:17:29.550] - Condition #83: 'simpleMessage', 'message', 'condition'
     [14:17:28.177]
     [14:17:29.551] - Condition #84: 'simpleMessage', 'message', 'condition'
     [14:17:28.177] Searching for globals ... DONE
     [14:17:29.551] - Condition #85: 'simpleMessage', 'message', 'condition'
     [14:17:28.178] - globals: [0] <none>
     [14:17:29.552] - Condition #86: 'simpleMessage', 'message', 'condition'
     [14:17:28.179] getGlobalsAndPackages() ... DONE
     [14:17:29.552] - Condition #87: 'simpleMessage', 'message', 'condition'
     [14:17:28.180]
     [14:17:29.553] - Condition #88: 'simpleMessage', 'message', 'condition'
     [14:17:28.180]
     [14:17:29.553] - Condition #89: 'simpleMessage', 'message', 'condition'
     [14:17:28.181] - Finding globals in 'args_list' for chunk #2 ... DONE
     [14:17:29.554] - Condition #90: 'simpleMessage', 'message', 'condition'
     [14:17:28.184] getGlobalsAndPackages() ...
     [14:17:29.554] - Condition #91: 'simpleMessage', 'message', 'condition'
     [14:17:28.185] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
     [14:17:29.555] - Condition #92: 'simpleMessage', 'message', 'condition'
     [14:17:28.186] Resolving globals: FALSE
     [14:17:29.555] - Condition #93: 'simpleMessage', 'message', 'condition'
     [14:17:28.188] The total size of the 3 globals is 64.62 KiB (66168 bytes)
     [14:17:29.556] - Condition #94: 'simpleMessage', 'message', 'condition'
     [14:17:28.189] - globals: [3] '...future.x_ii', 'a', 'plan_a'
     [14:17:29.557] - Condition #95: 'simpleMessage', 'message', 'condition'
     [14:17:28.189]
     [14:17:29.557] - Condition #96: 'simpleMessage', 'message', 'condition'
     [14:17:28.190] getGlobalsAndPackages() ... DONE
     [14:17:29.558] - Condition #97: 'simpleMessage', 'message', 'condition'
     [14:17:28.219] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
     [14:17:29.558] - Condition #98: 'simpleMessage', 'message', 'condition'
     [14:17:28.220] Packages needed by future strategies (n = 0): <none>
     [14:17:29.559] - Condition #99: 'simpleMessage', 'message', 'condition'
     [14:17:28.228] {
     [14:17:28.228] {
     [14:17:28.228] ...future.startTime <- base::Sys.time()
     [14:17:28.228] ...future.oldOptions <- base::options(future.startup.script = FALSE,
     [14:17:28.228] future.globals.onMissing = NULL, future.globals.maxSize = NULL,
     [14:17:28.228] future.globals.method = NULL, future.globals.onMissing = NULL,
     [14:17:28.228] future.globals.onReference = NULL, future.globals.resolve = NULL,
     [14:17:28.228] future.resolve.recursive = NULL, width = 80L)
     [14:17:28.228] {
     [14:17:28.228] {
     [14:17:28.228] {
     [14:17:28.228] base::local({
     [14:17:28.228] has_future <- base::requireNamespace("future",
     [14:17:28.228] quietly = TRUE)
     [14:17:28.228] version <- if (has_future)
     [14:17:28.228] utils::packageVersion("future")
     [14:17:28.228] else NULL
     [14:17:28.228] if (!has_future || version < "1.8.0") {
     [14:17:28.228] info <- base::c(r_version = base::gsub("R version ",
     [14:17:28.228] "", base::R.version$version.string),
     [14:17:28.228] platform = base::sprintf("%s (%s-bit)",
     [14:17:28.228] base::R.version$platform, 8 * base::.Machine$sizeof.pointer),
     [14:17:28.228] os = base::paste(base::Sys.info()[base::c("sysname",
     [14:17:28.228] "release", "version")], collapse = " "),
     [14:17:28.228] hostname = base::Sys.info()[["nodename"]])
     [14:17:28.228] info <- base::sprintf("%s: %s", base::names(info),
     [14:17:28.228] info)
     [14:17:28.228] info <- base::paste(info, collapse = "; ")
     [14:17:28.228] if (!has_future) {
     [14:17:28.228] msg <- base::sprintf("Package 'future' is not installed on worker (%s)",
     [14:17:28.228] info)
     [14:17:28.228] }
     [14:17:28.228] else {
     [14:17:28.228] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s",
     [14:17:28.228] info, version)
     [14:17:28.228] }
     [14:17:28.228] base::stop(msg)
     [14:17:28.228] }
     [14:17:28.228] })
     [14:17:28.228] }
     [14:17:28.228] base::local({
     [14:17:28.228] for (pkg in c("doFuture", "utils")) {
     [14:17:28.228] base::loadNamespace(pkg)
     [14:17:28.228] base::library(pkg, character.only = TRUE)
     [14:17:28.228] }
     [14:17:28.228] })
     [14:17:28.228] }
     [14:17:28.228] future::plan("default", .cleanup = FALSE, .init = FALSE)
     [14:17:28.228] }
     [14:17:28.228] }
     [14:17:28.228] if (base::is.na(TRUE)) {
     [14:17:28.228] }
     [14:17:28.228] else {
     [14:17:28.228] if (TRUE) {
     [14:17:28.228] ...future.stdout <- base::rawConnection(base::raw(0L),
     [14:17:28.228] open = "w")
     [14:17:28.228] }
     [14:17:28.228] else {
     [14:17:28.228] ...future.stdout <- base::file(base::switch(.Platform$OS.type,
     [14:17:28.228] windows = "NUL", "/dev/null"), open = "w")
     [14:17:28.228] }
     [14:17:28.228] base::sink(...future.stdout, type = "output", split = FALSE)
     [14:17:28.228] base::on.exit(if (!base::is.null(...future.stdout)) {
     [14:17:28.228] base::sink(type = "output", split = FALSE)
     [14:17:28.228] base::close(...future.stdout)
     [14:17:28.228] }, add = TRUE)
     [14:17:28.228] }
     [14:17:28.228] ...future.frame <- base::sys.nframe()
     [14:17:28.228] ...future.conditions <- base::list()
     [14:17:28.228] ...future.rng <- base::globalenv()$.Random.seed
     [14:17:28.228] ...future.result <- base::tryCatch({
     [14:17:28.228] base::withCallingHandlers({
     [14:17:28.228] ...future.value <- base::withVisible(base::local({
     [14:17:28.228] ...future.sendCondition <- local({
     [14:17:28.228] sendCondition <- NULL
     [14:17:28.228] function(frame = 1L) {
     [14:17:28.228] if (is.function(sendCondition))
     [14:17:28.228] return(sendCondition)
     [14:17:28.228] ns <- getNamespace("parallel")
     [14:17:28.228] if (exists("sendData", mode = "function",
     [14:17:28.228] envir = ns)) {
     [14:17:28.228] parallel_sendData <- get("sendData", mode = "function",
     [14:17:28.228] envir = ns)
     [14:17:28.228] envir <- sys.frame(frame)
     [14:17:28.228] master <- NULL
     [14:17:28.228] while (!identical(envir, .GlobalEnv) &&
     [14:17:28.228] !identical(envir, emptyenv())) {
     [14:17:28.228] if (exists("master", mode = "list", envir = envir,
     [14:17:28.228] inherits = FALSE)) {
     [14:17:28.228] master <- get("master", mode = "list",
     [14:17:28.228] envir = envir, inherits = FALSE)
     [14:17:28.228] if (inherits(master, "SOCKnode")) {
     [14:17:28.228] sendCondition <<- function(cond) {
     [14:17:28.228] data <- list(type = "VALUE", value = cond,
     [14:17:28.228] success = TRUE)
     [14:17:28.228] parallel_sendData(master, data)
     [14:17:28.228] }
     [14:17:28.228] return(sendCondition)
     [14:17:28.228] }
     [14:17:28.228] }
     [14:17:28.228] frame <- frame + 1L
     [14:17:28.228] envir <- sys.frame(frame)
     [14:17:28.228] }
     [14:17:28.228] }
     [14:17:28.228] sendCondition <<- function(cond) NULL
     [14:17:28.228] }
     [14:17:28.228] })
     [14:17:28.228] withCallingHandlers({
     [14:17:28.228] {
     [14:17:28.228] doFuture::registerDoFuture()
     [14:17:28.228] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:17:28.228] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:17:28.228] b <- NULL
     [14:17:28.228] ...future.env <- environment()
     [14:17:28.228] local({
     [14:17:28.228] for (name in names(...future.x_jj)) {
     [14:17:28.228] assign(name, ...future.x_jj[[name]],
     [14:17:28.228] envir = ...future.env, inherits = FALSE)
     [14:17:28.228] }
     [14:17:28.228] })
     [14:17:28.228] tryCatch({
     [14:17:28.228] plan_list <- future::plan("next")
     [14:17:28.228] message(capture.output(print(plan_list)))
     [14:17:28.228] stopifnot(inherits(plan_list, "future"))
     [14:17:28.228] default <- getOption("future.plan", "sequential")
     [14:17:28.228] if (is.function(default))
     [14:17:28.228] default <- class(default)
     [14:17:28.228] stopifnot(inherits(plan_list, default))
     [14:17:28.228] plan_b <- future::plan("list")
     [14:17:28.228] str(plan_b)
     [14:17:28.228] stopifnot(inherits(plan_b[[1]], "future"),
     [14:17:28.228] inherits(plan_b[[1]], default))
     [14:17:28.228] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:17:28.228] }, error = identity)
     [14:17:28.228] })
     [14:17:28.228] }
     [14:17:28.228] }, immediateCondition = function(cond) {
     [14:17:28.228] sendCondition <- ...future.sendCondition()
     [14:17:28.228] sendCondition(cond)
     [14:17:28.228] muffleCondition <- function (cond)
     [14:17:28.228] {
     [14:17:28.228] inherits <- base::inherits
     [14:17:28.228] invokeRestart <- base::invokeRestart
     [14:17:28.228] muffled <- FALSE
     [14:17:28.228] if (inherits(cond, "message")) {
     [14:17:28.228] invokeRestart("muffleMessage")
     [14:17:28.228] muffled <- TRUE
     [14:17:28.228] }
     [14:17:28.228] else if (inherits(cond, "warning")) {
     [14:17:28.228] invokeRestart("muffleWarning")
     [14:17:28.228] muffled <- TRUE
     [14:17:28.228] }
     [14:17:28.228] else if (inherits(cond, "condition")) {
     [14:17:28.228] computeRestarts <- base::computeRestarts
     [14:17:28.228] grepl <- base::grepl
     [14:17:28.228] is.null <- base::is.null
     [14:17:28.228] restarts <- computeRestarts(cond)
     [14:17:28.228] for (restart in restarts) {
     [14:17:28.228] name <- restart$name
     [14:17:28.228] if (is.null(name))
     [14:17:28.228] next
     [14:17:28.228] if (!grepl("^muffle", name))
     [14:17:28.228] next
     [14:17:28.228] invokeRestart(restart)
     [14:17:28.228] muffled <- TRUE
     [14:17:28.228] break
     [14:17:28.228] }
     [14:17:28.228] }
     [14:17:28.228] invisible(muffled)
     [14:17:28.228] }
     [14:17:28.228] muffleCondition(cond)
     [14:17:28.228] })
     [14:17:28.228] }))
     [14:17:28.228] future::FutureResult(value = ...future.value$value,
     [14:17:28.228] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed,
     [14:17:28.228] ...future.rng), started = ...future.startTime,
     [14:17:28.228] version = "1.8")
     [14:17:28.228] }, condition = base::local({
     [14:17:28.228] c <- base::c
     [14:17:28.228] inherits <- base::inherits
     [14:17:28.228] invokeRestart <- base::invokeRestart
     [14:17:28.228] length <- base::length
     [14:17:28.228] list <- base::list
     [14:17:28.228] seq.int <- base::seq.int
     [14:17:28.228] signalCondition <- base::signalCondition
     [14:17:28.228] sys.calls <- base::sys.calls
     [14:17:28.228] Sys.time <- base::Sys.time
     [14:17:28.228] `[[` <- base::`[[`
     [14:17:28.228] `+` <- base::`+`
     [14:17:28.228] `<<-` <- base::`<<-`
     [14:17:28.228] sysCalls <- function(calls = sys.calls(), from = 1L) {
     [14:17:28.228] calls[seq.int(from = from + 12L, to = length(calls) -
     [14:17:28.228] 3L)]
     [14:17:28.228] }
     [14:17:28.228] function(cond) {
     [14:17:28.228] if (inherits(cond, "error")) {
     [14:17:28.228] sessionInformation <- function() {
     [14:17:28.228] list(r = base::R.Version(), locale = base::Sys.getlocale(),
     [14:17:28.228] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(),
     [14:17:28.228] search = base::search(), system = base::Sys.info())
     [14:17:28.228] }
     [14:17:28.228] ...future.conditions[[length(...future.conditions) +
     [14:17:28.228] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame),
     [14:17:28.228] cond$call), session = sessionInformation(),
     [14:17:28.228] timestamp = Sys.time(), signaled = 0L)
     [14:17:28.228] signalCondition(cond)
     [14:17:28.228] }
     [14:17:28.228] else if (inherits(cond, c("condition", "immediateCondition"
     [14:17:28.228] ))) {
     [14:17:28.228] signal <- TRUE && inherits(cond, "immediateCondition")
     [14:17:28.228] ...future.conditions[[length(...future.conditions) +
     [14:17:28.228] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
     [14:17:28.228] if (!signal) {
     [14:17:28.228] muffleCondition <- function (cond)
     [14:17:28.228] {
     [14:17:28.228] inherits <- base::inherits
     [14:17:28.228] invokeRestart <- base::invokeRestart
     [14:17:28.228] muffled <- FALSE
     [14:17:28.228] if (inherits(cond, "message")) {
     [14:17:28.228] invokeRestart("muffleMessage")
     [14:17:28.228] muffled <- TRUE
     [14:17:28.228] }
     [14:17:28.228] else if (inherits(cond, "warning")) {
     [14:17:28.228] invokeRestart("muffleWarning")
     [14:17:28.228] muffled <- TRUE
     [14:17:28.228] }
     [14:17:28.228] else if (inherits(cond, "condition")) {
     [14:17:28.228] computeRestarts <- base::computeRestarts
     [14:17:28.228] grepl <- base::grepl
     [14:17:28.228] is.null <- base::is.null
     [14:17:28.228] restarts <- computeRestarts(cond)
     [14:17:28.228] for (restart in restarts) {
     [14:17:28.228] name <- restart$name
     [14:17:28.228] if (is.null(name))
     [14:17:28.228] next
     [14:17:28.228] if (!grepl("^muffle", name))
     [14:17:28.228] next
     [14:17:28.228] invokeRestart(restart)
     [14:17:28.228] muffled <- TRUE
     [14:17:28.228] break
     [14:17:28.228] }
     [14:17:28.228] }
     [14:17:28.228] invisible(muffled)
     [14:17:28.228] }
     [14:17:28.228] muffleCondition(cond)
     [14:17:28.228] }
     [14:17:28.228] }
     [14:17:28.228] }
     [14:17:28.228] }))
     [14:17:28.228] }, error = function(ex) {
     [14:17:28.228] base::structure(base::list(value = NULL, visible = NULL,
     [14:17:28.228] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed,
     [14:17:28.228] ...future.rng), version = "1.8"), class = "FutureResult")
     [14:17:28.228] }, finally = {
     [14:17:28.228] {
     [14:17:28.228] NULL
     [14:17:28.228] future::plan(list(b = function (expr, envir = parent.frame(),
     [14:17:28.228] substitute = TRUE, lazy = FALSE, seed = NULL,
     [14:17:28.228] globals = TRUE, persistent = FALSE, workers = availableWorkers(),
     [14:17:28.228] user = NULL, revtunnel = TRUE, homogeneous = TRUE,
     [14:17:28.228] gc = FALSE, earlySignal = FALSE, label = NULL,
     [14:17:28.228] ...)
     [14:17:28.228] {
     [14:17:28.228] if (substitute)
     [14:17:28.228] expr <- substitute(expr)
     [14:17:28.228] future <- ClusterFuture(expr = expr, envir = envir,
     [14:17:28.228] substitute = FALSE, lazy = lazy, seed = seed,
     [14:17:28.228] globals = globals, persistent = persistent,
     [14:17:28.228] workers = workers, user = user, revtunnel = revtunnel,
     [14:17:28.228] homogeneous = homogeneous, gc = gc, earlySignal = earlySignal,
     [14:17:28.228] label = label, ...)
     [14:17:28.228] if (!future$lazy)
     [14:17:28.228] future <- run(future)
     [14:17:28.228] invisible(future)
     [14:17:28.228] }), .cleanup = FALSE, .init = FALSE)
     [14:17:28.228] }
     [14:17:28.228] base::options(...future.oldOptions)
     [14:17:28.228] })
     [14:17:28.228] Sys.time
     [14:17:28.228] if (base::is.na(TRUE)) {
     [14:17:28.228] }
     [14:17:28.228] else {
     [14:17:28.228] base::sink(type = "output", split = FALSE)
     [14:17:28.228] if (TRUE) {
     [14:17:28.228] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
     [14:17:28.228] }
     [14:17:28.228] else {
     [14:17:28.228] ...future.result["stdout"] <- base::list(NULL)
     [14:17:28.228] }
     [14:17:28.228] base::close(...future.stdout)
     [14:17:28.228] ...future.stdout <- NULL
     [14:17:28.228] }
     [14:17:28.228] ...future.result$conditions <- ...future.conditions
     [14:17:28.228] ...future.result
     [14:17:28.228] }
     [14:17:29.559] - Condition #100: 'simpleMessage', 'message', 'condition'
     [14:17:28.242] Exporting 3 global objects (64.62 KiB) to cluster node #2 ...
     [14:17:29.560] - Condition #101: 'simpleMessage', 'message', 'condition'
     [14:17:28.243] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ...
     [14:17:29.560] - Condition #102: 'simpleMessage', 'message', 'condition'
     [14:17:28.244] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ... DONE
     [14:17:29.561] - Condition #103: 'simpleMessage', 'message', 'condition'
     [14:17:28.245] Exporting 'a' (56 bytes) to cluster node #2 ...
     [14:17:29.561] - Condition #104: 'simpleMessage', 'message', 'condition'
     [14:17:28.247] Exporting 'a' (56 bytes) to cluster node #2 ... DONE
     [14:17:29.562] - Condition #105: 'simpleMessage', 'message', 'condition'
     [14:17:28.248] Exporting 'plan_a' (64.45 KiB) to cluster node #2 ...
     [14:17:29.562] - Condition #106: 'simpleMessage', 'message', 'condition'
     [14:17:28.290] Exporting 'plan_a' (64.45 KiB) to cluster node #2 ... DONE
     [14:17:29.563] - Condition #107: 'simpleMessage', 'message', 'condition'
     [14:17:28.291] Exporting 3 global objects (64.62 KiB) to cluster node #2 ... DONE
     [14:17:29.563] - Condition #108: 'simpleMessage', 'message', 'condition'
     [14:17:28.293] ClusterFuture started
     [14:17:29.564] - Condition #109: 'simpleMessage', 'message', 'condition'
     [14:17:28.294] Chunk #2 of 2 ... DONE
     [14:17:29.565] - Condition #110: 'simpleMessage', 'message', 'condition'
     [14:17:28.295] Launching 2 futures (chunks) ... DONE
     [14:17:29.565] - Condition #111: 'simpleMessage', 'message', 'condition'
     [14:17:28.296] - resolving futures
     [14:17:29.566] - Condition #112: 'simpleMessage', 'message', 'condition'
     [14:17:28.296] - gathering results & relaying conditions (except errors)
     [14:17:29.567] - Condition #113: 'simpleMessage', 'message', 'condition'
     [14:17:28.297] resolve() on list ...
     [14:17:29.568] - Condition #114: 'simpleMessage', 'message', 'condition'
     [14:17:28.298] recursive: 0
     [14:17:29.568] - Condition #115: 'simpleMessage', 'message', 'condition'
     [14:17:28.298] length: 2
     [14:17:29.569] - Condition #116: 'simpleMessage', 'message', 'condition'
     [14:17:28.299]
     [14:17:29.569] - Condition #117: 'simpleMessage', 'message', 'condition'
     [14:17:28.461] receiveMessageFromWorker() for ClusterFuture ...
     [14:17:29.570] - Condition #118: 'simpleMessage', 'message', 'condition'
     [14:17:28.463] - Validating connection of ClusterFuture
     [14:17:29.570] - Condition #119: 'simpleMessage', 'message', 'condition'
     [14:17:28.503] - received message: FutureResult
     [14:17:29.571] - Condition #120: 'simpleMessage', 'message', 'condition'
     [14:17:28.504] - Received FutureResult
     [14:17:29.572] - Condition #121: 'simpleMessage', 'message', 'condition'
     [14:17:28.505] - Erased future from FutureRegistry
     [14:17:29.572] - Condition #122: 'simpleMessage', 'message', 'condition'
     [14:17:28.506] result() for ClusterFuture ...
     [14:17:29.573] - Condition #123: 'simpleMessage', 'message', 'condition'
     [14:17:28.507] - result already collected: FutureResult
     [14:17:29.573] - Condition #124: 'simpleMessage', 'message', 'condition'
     [14:17:28.508] result() for ClusterFuture ... done
     [14:17:29.574] - Condition #125: 'simpleMessage', 'message', 'condition'
     [14:17:28.509] signalConditions() ...
     [14:17:29.574] - Condition #126: 'simpleMessage', 'message', 'condition'
     [14:17:28.513] - include = 'immediateCondition'
     [14:17:29.575] - Condition #127: 'simpleMessage', 'message', 'condition'
     [14:17:28.514] - exclude =
     [14:17:29.576] - Condition #128: 'simpleMessage', 'message', 'condition'
     [14:17:28.514] - resignal = FALSE
     [14:17:29.576] - Condition #129: 'simpleMessage', 'message', 'condition'
     [14:17:28.515] - Number of conditions: 1
     [14:17:29.577] - Condition #130: 'simpleMessage', 'message', 'condition'
     [14:17:28.516] signalConditions() ... done
     [14:17:29.578] - Condition #131: 'simpleMessage', 'message', 'condition'
     [14:17:28.517] receiveMessageFromWorker() for ClusterFuture ... done
     [14:17:29.578] - Condition #132: 'simpleMessage', 'message', 'condition'
     [14:17:28.518] Future #1
     [14:17:29.579] - Condition #133: 'simpleMessage', 'message', 'condition'
     [14:17:28.519] result() for ClusterFuture ...
     [14:17:29.579] - Condition #134: 'simpleMessage', 'message', 'condition'
     [14:17:28.519] - result already collected: FutureResult
     [14:17:29.580] - Condition #135: 'simpleMessage', 'message', 'condition'
     [14:17:28.520] result() for ClusterFuture ... done
     [14:17:29.581] - Condition #136: 'simpleMessage', 'message', 'condition'
     [14:17:28.521] result() for ClusterFuture ...
     [14:17:29.581] - Condition #137: 'simpleMessage', 'message', 'condition'
     [14:17:28.522] - result already collected: FutureResult
     [14:17:29.582] - Condition #138: 'simpleMessage', 'message', 'condition'
     [14:17:28.523] result() for ClusterFuture ... done
     [14:17:29.582] - Condition #139: 'simpleMessage', 'message', 'condition'
     [14:17:28.523] signalConditions() ...
     [14:17:29.583] - Condition #140: 'simpleMessage', 'message', 'condition'
     [14:17:28.524] - include = 'immediateCondition'
     [14:17:29.583] - Condition #141: 'simpleMessage', 'message', 'condition'
     [14:17:28.525] - exclude =
     [14:17:29.584] - Condition #142: 'simpleMessage', 'message', 'condition'
     [14:17:28.526] - resignal = FALSE
     [14:17:29.585] - Condition #143: 'simpleMessage', 'message', 'condition'
     [14:17:28.526] - Number of conditions: 1
     [14:17:29.585] - Condition #144: 'simpleMessage', 'message', 'condition'
     [14:17:28.527] signalConditions() ... done
     [14:17:29.586] - Condition #145: 'simpleMessage', 'message', 'condition'
     [14:17:28.528] signalConditionsASAP(ClusterFuture, pos=1) ...
     [14:17:29.586] - Condition #146: 'simpleMessage', 'message', 'condition'
     [14:17:28.529] - nx: 2
     [14:17:29.587] - Condition #147: 'simpleMessage', 'message', 'condition'
     [14:17:28.530] - relay: TRUE
     [14:17:29.588] - Condition #148: 'simpleMessage', 'message', 'condition'
     [14:17:28.534] - stdout: TRUE
     [14:17:29.588] - Condition #149: 'simpleMessage', 'message', 'condition'
     [14:17:28.534] - signal: TRUE
     [14:17:29.589] - Condition #150: 'simpleMessage', 'message', 'condition'
     [14:17:28.535] - resignal: FALSE
     [14:17:29.589] - Condition #151: 'simpleMessage', 'message', 'condition'
     [14:17:28.536] - force: FALSE
     [14:17:29.590] - Condition #152: 'simpleMessage', 'message', 'condition'
     [14:17:28.537] - relayed: [n=2] FALSE, FALSE
     [14:17:29.591] - Condition #153: 'simpleMessage', 'message', 'condition'
     [14:17:28.538] - queued futures: [n=2] FALSE, FALSE
     [14:17:29.591] - Condition #154: 'simpleMessage', 'message', 'condition'
     [14:17:28.539] - until=1
     [14:17:29.592] - Condition #155: 'simpleMessage', 'message', 'condition'
     [14:17:28.539] - relaying element #1
     [14:17:29.592] - Condition #156: 'simpleMessage', 'message', 'condition'
     [14:17:28.540] result() for ClusterFuture ...
     [14:17:29.593] - Condition #157: 'simpleMessage', 'message', 'condition'
     [14:17:28.541] - result already collected: FutureResult
     [14:17:29.594] - Condition #158: 'simpleMessage', 'message', 'condition'
     [14:17:28.542] result() for ClusterFuture ... done
     [14:17:29.594] - Condition #159: 'simpleMessage', 'message', 'condition'
     [14:17:28.543] result() for ClusterFuture ...
     [14:17:29.595] - Condition #160: 'simpleMessage', 'message', 'condition'
     [14:17:28.544] - result already collected: FutureResult
     [14:17:29.596] - Condition #161: 'simpleMessage', 'message', 'condition'
     [14:17:28.544] result() for ClusterFuture ... done
     [14:17:29.596] - Condition #162: 'simpleMessage', 'message', 'condition'
     [14:17:28.545] signalConditions() ...
     [14:17:29.597] - Condition #163: 'simpleMessage', 'message', 'condition'
     [14:17:28.546] - include = 'immediateCondition'
     [14:17:29.597] - Condition #164: 'simpleMessage', 'message', 'condition'
     [14:17:28.547] - exclude =
     [14:17:29.598] - Condition #165: 'simpleMessage', 'message', 'condition'
     [14:17:28.548] - resignal = FALSE
     [14:17:29.599] - Condition #166: 'simpleMessage', 'message', 'condition'
     [14:17:28.549] - Number of conditions: 1
     [14:17:29.599] - Condition #167: 'simpleMessage', 'message', 'condition'
     [14:17:28.549] signalConditions() ... done
     [14:17:29.600] - Condition #168: 'simpleMessage', 'message', 'condition'
     [14:17:28.556] result() for ClusterFuture ...
     [14:17:29.600] - Condition #169: 'simpleMessage', 'message', 'condition'
     [14:17:28.557] - result already collected: FutureResult
     [14:17:29.601] - Condition #170: 'simpleMessage', 'message', 'condition'
     [14:17:28.558] result() for ClusterFuture ... done
     [14:17:29.602] - Condition #171: 'simpleMessage', 'message', 'condition'
     [14:17:28.559] signalConditions() ...
     [14:17:29.602] - Condition #172: 'simpleMessage', 'message', 'condition'
     [14:17:28.560] - include = 'immediateCondition'
     [14:17:29.603] - Condition #173: 'simpleMessage', 'message', 'condition'
     [14:17:28.560] - exclude =
     [14:17:29.604] - Condition #174: 'simpleMessage', 'message', 'condition'
     [14:17:28.561] - resignal = FALSE
     [14:17:29.604] - Condition #175: 'simpleMessage', 'message', 'condition'
     [14:17:28.562] - Number of conditions: 1
     [14:17:29.605] - Condition #176: 'simpleMessage', 'message', 'condition'
     [14:17:28.563] signalConditions() ... done
     [14:17:29.605] - Condition #177: 'simpleMessage', 'message', 'condition'
     [14:17:28.564] result() for ClusterFuture ...
     [14:17:29.606] - Condition #178: 'simpleMessage', 'message', 'condition'
     [14:17:28.564] - result already collected: FutureResult
     [14:17:29.607] - Condition #179: 'simpleMessage', 'message', 'condition'
     [14:17:28.565] result() for ClusterFuture ... done
     [14:17:29.607] - Condition #180: 'simpleMessage', 'message', 'condition'
     [14:17:28.566] signalConditions() ...
     [14:17:29.608] - Condition #181: 'simpleMessage', 'message', 'condition'
     [14:17:28.567] - include = 'condition'
     [14:17:29.609] - Condition #182: 'simpleMessage', 'message', 'condition'
     [14:17:28.568] - exclude = 'immediateCondition'
     [14:17:29.609] - Condition #183: 'simpleMessage', 'message', 'condition'
     [14:17:28.569] - resignal = FALSE
     [14:17:29.610] - Condition #184: 'simpleMessage', 'message', 'condition'
     [14:17:28.570] - Number of conditions: 1
     [14:17:29.610] - Condition #185: 'simpleMessage', 'message', 'condition'
     [14:17:28.571] - Condition #1: 'simpleMessage', 'message', 'condition'
     [14:17:29.611] - Condition #186: 'simpleMessage', 'message', 'condition'
     sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
     [14:17:29.612] - Condition #187: 'simpleMessage', 'message', 'condition'
     [14:17:28.572] signalConditions() ... done
     [14:17:29.612] - Condition #188: 'simpleMessage', 'message', 'condition'
     [14:17:28.573] - relayed: [n=2] TRUE, FALSE
     [14:17:29.613] - Condition #189: 'simpleMessage', 'message', 'condition'
     [14:17:28.573] - queued futures: [n=2] TRUE, FALSE
     [14:17:29.613] - Condition #190: 'simpleMessage', 'message', 'condition'
     [14:17:28.574] signalConditionsASAP(ClusterFuture, pos=1) ... done
     [14:17:29.614] - Condition #191: 'simpleMessage', 'message', 'condition'
     [14:17:28.575] length: 1 (resolved future 1)
     [14:17:29.615] - Condition #192: 'simpleMessage', 'message', 'condition'
     [14:17:28.685] receiveMessageFromWorker() for ClusterFuture ...
     [14:17:29.615] - Condition #193: 'simpleMessage', 'message', 'condition'
     [14:17:28.686] - Validating connection of ClusterFuture
     [14:17:29.616] - Condition #194: 'simpleMessage', 'message', 'condition'
     [14:17:28.688] - received message: FutureResult
     [14:17:29.616] - Condition #195: 'simpleMessage', 'message', 'condition'
     [14:17:28.688] - Received FutureResult
     [14:17:29.617] - Condition #196: 'simpleMessage', 'message', 'condition'
     [14:17:28.689] - Erased future from FutureRegistry
     [14:17:29.618] - Condition #197: 'simpleMessage', 'message', 'condition'
     [14:17:28.690] result() for ClusterFuture ...
     [14:17:29.618] - Condition #198: 'simpleMessage', 'message', 'condition'
     [14:17:28.691] - result already collected: FutureResult
     [14:17:29.619] - Condition #199: 'simpleMessage', 'message', 'condition'
     [14:17:28.692] result() for ClusterFuture ... done
     [14:17:29.620] - Condition #200: 'simpleMessage', 'message', 'condition'
     [14:17:28.693] signalConditions() ...
     [14:17:29.620] - Condition #201: 'simpleMessage', 'message', 'condition'
     [14:17:28.693] - include = 'immediateCondition'
     [14:17:29.621] - Condition #202: 'simpleMessage', 'message', 'condition'
     [14:17:28.694] - exclude =
     [14:17:29.621] - Condition #203: 'simpleMessage', 'message', 'condition'
     [14:17:28.695] - resignal = FALSE
     [14:17:29.622] - Condition #204: 'simpleMessage', 'message', 'condition'
     [14:17:28.696] - Number of conditions: 2
     [14:17:29.623] - Condition #205: 'simpleMessage', 'message', 'condition'
     [14:17:28.697] signalConditions() ... done
     [14:17:29.623] - Condition #206: 'simpleMessage', 'message', 'condition'
     [14:17:28.697] receiveMessageFromWorker() for ClusterFuture ... done
     [14:17:29.624] - Condition #207: 'simpleMessage', 'message', 'condition'
     [14:17:28.698] Future #2
     [14:17:29.625] - Condition #208: 'simpleMessage', 'message', 'condition'
     [14:17:28.699] result() for ClusterFuture ...
     [14:17:29.625] - Condition #209: 'simpleMessage', 'message', 'condition'
     [14:17:28.700] - result already collected: FutureResult
     [14:17:29.626] - Condition #210: 'simpleMessage', 'message', 'condition'
     [14:17:28.700] result() for ClusterFuture ... done
     [14:17:29.627] - Condition #211: 'simpleMessage', 'message', 'condition'
     [14:17:28.701] result() for ClusterFuture ...
     [14:17:29.627] - Condition #212: 'simpleMessage', 'message', 'condition'
     [14:17:28.702] - result already collected: FutureResult
     [14:17:29.628] - Condition #213: 'simpleMessage', 'message', 'condition'
     [14:17:28.703] result() for ClusterFuture ... done
     [14:17:29.629] - Condition #214: 'simpleMessage', 'message', 'condition'
     [14:17:28.704] signalConditions() ...
     [14:17:29.629] - Condition #215: 'simpleMessage', 'message', 'condition'
     [14:17:28.704] - include = 'immediateCondition'
     [14:17:29.630] - Condition #216: 'simpleMessage', 'message', 'condition'
     [14:17:28.705] - exclude =
     [14:17:29.631] - Condition #217: 'simpleMessage', 'message', 'condition'
     [14:17:28.706] - resignal = FALSE
     [14:17:29.631] - Condition #218: 'simpleMessage', 'message', 'condition'
     [14:17:28.707] - Number of conditions: 2
     [14:17:29.632] - Condition #219: 'simpleMessage', 'message', 'condition'
     [14:17:28.707] signalConditions() ... done
     [14:17:29.633] - Condition #220: 'simpleMessage', 'message', 'condition'
     [14:17:28.708] signalConditionsASAP(ClusterFuture, pos=2) ...
     [14:17:29.633] - Condition #221: 'simpleMessage', 'message', 'condition'
     [14:17:28.709] - nx: 2
     [14:17:29.634] - Condition #222: 'simpleMessage', 'message', 'condition'
     [14:17:28.710] - relay: TRUE
     [14:17:29.635] - Condition #223: 'simpleMessage', 'message', 'condition'
     [14:17:28.710] - stdout: TRUE
     [14:17:29.635] - Condition #224: 'simpleMessage', 'message', 'condition'
     [14:17:28.711] - signal: TRUE
     [14:17:29.636] - Condition #225: 'simpleMessage', 'message', 'condition'
     [14:17:28.712] - resignal: FALSE
     [14:17:29.637] - Condition #226: 'simpleMessage', 'message', 'condition'
     [14:17:28.712] - force: FALSE
     [14:17:29.637] - Condition #227: 'simpleMessage', 'message', 'condition'
     [14:17:28.713] - relayed: [n=2] TRUE, FALSE
     [14:17:29.638] - Condition #228: 'simpleMessage', 'message', 'condition'
     [14:17:28.714] - queued futures: [n=2] TRUE, FALSE
     [14:17:29.639] - Condition #229: 'simpleMessage', 'message', 'condition'
     [14:17:28.715] - until=2
     [14:17:29.639] - Condition #230: 'simpleMessage', 'message', 'condition'
     [14:17:28.715] - relaying element #2
     [14:17:29.640] - Condition #231: 'simpleMessage', 'message', 'condition'
     [14:17:28.716] result() for ClusterFuture ...
     [14:17:29.641] - Condition #232: 'simpleMessage', 'message', 'condition'
     [14:17:28.717] - result already collected: FutureResult
     [14:17:29.641] - Condition #233: 'simpleMessage', 'message', 'condition'
     [14:17:28.717] result() for ClusterFuture ... done
     [14:17:29.642] - Condition #234: 'simpleMessage', 'message', 'condition'
     [14:17:28.718] result() for ClusterFuture ...
     [14:17:29.642] - Condition #235: 'simpleMessage', 'message', 'condition'
     [14:17:28.719] - result already collected: FutureResult
     [14:17:29.643] - Condition #236: 'simpleMessage', 'message', 'condition'
     [14:17:28.720] result() for ClusterFuture ... done
     [14:17:29.644] - Condition #237: 'simpleMessage', 'message', 'condition'
     [14:17:28.721] signalConditions() ...
     [14:17:29.644] - Condition #238: 'simpleMessage', 'message', 'condition'
     [14:17:28.721] - include = 'immediateCondition'
     [14:17:29.645] - Condition #239: 'simpleMessage', 'message', 'condition'
     [14:17:28.722] - exclude =
     [14:17:29.646] - Condition #240: 'simpleMessage', 'message', 'condition'
     [14:17:28.723] - resignal = FALSE
     [14:17:29.647] - Condition #241: 'simpleMessage', 'message', 'condition'
     [14:17:28.724] - Number of conditions: 2
     [14:17:29.647] - Condition #242: 'simpleMessage', 'message', 'condition'
     [14:17:28.725] signalConditions() ... done
     [14:17:29.648] - Condition #243: 'simpleMessage', 'message', 'condition'
     [14:17:28.726] result() for ClusterFuture ...
     [14:17:29.649] - Condition #244: 'simpleMessage', 'message', 'condition'
     [14:17:28.726] - result already collected: FutureResult
     [14:17:29.649] - Condition #245: 'simpleMessage', 'message', 'condition'
     [14:17:28.727] result() for ClusterFuture ... done
     [14:17:29.650] - Condition #246: 'simpleMessage', 'message', 'condition'
     [14:17:28.728] signalConditions() ...
     [14:17:29.651] - Condition #247: 'simpleMessage', 'message', 'condition'
     [14:17:28.729] - include = 'immediateCondition'
     [14:17:29.651] - Condition #248: 'simpleMessage', 'message', 'condition'
     [14:17:28.730] - exclude =
     [14:17:29.652] - Condition #249: 'simpleMessage', 'message', 'condition'
     [14:17:28.730] - resignal = FALSE
     [14:17:29.653] - Condition #250: 'simpleMessage', 'message', 'condition'
     [14:17:28.731] - Number of conditions: 2
     [14:17:29.653] - Condition #251: 'simpleMessage', 'message', 'condition'
     [14:17:28.732] signalConditions() ... done
     [14:17:29.654] - Condition #252: 'simpleMessage', 'message', 'condition'
     [14:17:28.733] result() for ClusterFuture ...
     [14:17:29.655] - Condition #253: 'simpleMessage', 'message', 'condition'
     [14:17:28.733] - result already collected: FutureResult
     [14:17:29.655] - Condition #254: 'simpleMessage', 'message', 'condition'
     [14:17:28.734] result() for ClusterFuture ... done
     [14:17:29.656] - Condition #255: 'simpleMessage', 'message', 'condition'
     [14:17:28.735] signalConditions() ...
     [14:17:29.657] - Condition #256: 'simpleMessage', 'message', 'condition'
     [14:17:28.736] - include = 'condition'
     [14:17:29.657] - Condition #257: 'simpleMessage', 'message', 'condition'
     [14:17:28.736] - exclude = 'immediateCondition'
     [14:17:29.658] - Condition #258: 'simpleMessage', 'message', 'condition'
     [14:17:28.737] - resignal = FALSE
     [14:17:29.658] - Condition #259: 'simpleMessage', 'message', 'condition'
     [14:17:28.738] - Number of conditions: 2
     [14:17:29.659] - Condition #260: 'simpleMessage', 'message', 'condition'
     [14:17:28.739] - Condition #1: 'simpleMessage', 'message', 'condition'
     [14:17:29.660] - Condition #261: 'simpleMessage', 'message', 'condition'
     sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
     [14:17:29.661] - Condition #262: 'simpleMessage', 'message', 'condition'
     [14:17:28.739] - Condition #2: 'simpleMessage', 'message', 'condition'
     [14:17:29.661] - Condition #263: 'simpleMessage', 'message', 'condition'
     sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
     [14:17:29.662] - Condition #264: 'simpleMessage', 'message', 'condition'
     [14:17:28.741] signalConditions() ... done
     [14:17:29.662] - Condition #265: 'simpleMessage', 'message', 'condition'
     [14:17:28.741] - relayed: [n=2] TRUE, TRUE
     [14:17:29.663] - Condition #266: 'simpleMessage', 'message', 'condition'
     [14:17:28.742] - queued futures: [n=2] TRUE, TRUE
     [14:17:29.664] - Condition #267: 'simpleMessage', 'message', 'condition'
     [14:17:28.743] signalConditionsASAP(ClusterFuture, pos=2) ... done
     [14:17:29.664] - Condition #268: 'simpleMessage', 'message', 'condition'
     [14:17:28.744] length: 0 (resolved future 2)
     [14:17:29.665] - Condition #269: 'simpleMessage', 'message', 'condition'
     [14:17:28.744] Relaying remaining futures
     [14:17:29.666] - Condition #270: 'simpleMessage', 'message', 'condition'
     [14:17:28.745] signalConditionsASAP(NULL, pos=0) ...
     [14:17:29.666] - Condition #271: 'simpleMessage', 'message', 'condition'
     [14:17:28.746] - nx: 2
     [14:17:29.667] - Condition #272: 'simpleMessage', 'message', 'condition'
     [14:17:28.746] - relay: TRUE
     [14:17:29.668] - Condition #273: 'simpleMessage', 'message', 'condition'
     [14:17:28.747] - stdout: TRUE
     [14:17:29.668] - Condition #274: 'simpleMessage', 'message', 'condition'
     [14:17:28.748] - signal: TRUE
     [14:17:29.669] - Condition #275: 'simpleMessage', 'message', 'condition'
     [14:17:28.749] - resignal: FALSE
     [14:17:29.670] - Condition #276: 'simpleMessage', 'message', 'condition'
     [14:17:28.750] - force: FALSE
     [14:17:29.670] - Condition #277: 'simpleMessage', 'message', 'condition'
     [14:17:28.750] - relayed: [n=2] TRUE, TRUE
     [14:17:29.671] - Condition #278: 'simpleMessage', 'message', 'condition'
     [14:17:28.751] - queued futures: [n=2] TRUE, TRUE
     [14:17:29.672] - Condition #279: 'simpleMessage', 'message', 'condition'
     - flush all
     [14:17:29.672] - Condition #280: 'simpleMessage', 'message', 'condition'
     [14:17:28.752] - relayed: [n=2] TRUE, TRUE
     [14:17:29.673] - Condition #281: 'simpleMessage', 'message', 'condition'
     [14:17:28.758] - queued futures: [n=2] TRUE, TRUE
     [14:17:29.673] - Condition #282: 'simpleMessage', 'message', 'condition'
     [14:17:28.760] signalConditionsASAP(NULL, pos=0) ... done
     [14:17:29.674] - Condition #283: 'simpleMessage', 'message', 'condition'
     [14:17:28.760] resolve() on list ... DONE
     [14:17:29.675] - Condition #284: 'simpleMessage', 'message', 'condition'
     [14:17:28.761] - collecting values of futures
     [14:17:29.676] - Condition #285: 'simpleMessage', 'message', 'condition'
     [14:17:28.762] result() for ClusterFuture ...
     [14:17:29.676] - Condition #286: 'simpleMessage', 'message', 'condition'
     [14:17:28.762] - result already collected: FutureResult
     [14:17:29.677] - Condition #287: 'simpleMessage', 'message', 'condition'
     [14:17:28.763] result() for ClusterFuture ... done
     [14:17:29.678] - Condition #288: 'simpleMessage', 'message', 'condition'
     [14:17:28.764] result() for ClusterFuture ...
     [14:17:29.678] - Condition #289: 'simpleMessage', 'message', 'condition'
     [14:17:28.765] - result already collected: FutureResult
     [14:17:29.679] - Condition #290: 'simpleMessage', 'message', 'condition'
     [14:17:28.766] result() for ClusterFuture ... done
     [14:17:29.680] - Condition #291: 'simpleMessage', 'message', 'condition'
     [14:17:28.766] signalConditions() ...
     [14:17:29.680] - Condition #292: 'simpleMessage', 'message', 'condition'
     [14:17:28.767] - include = 'immediateCondition'
     [14:17:29.681] - Condition #293: 'simpleMessage', 'message', 'condition'
     [14:17:28.768] - exclude =
     [14:17:29.682] - Condition #294: 'simpleMessage', 'message', 'condition'
     [14:17:28.769] - resignal = FALSE
     [14:17:29.683] - Condition #295: 'simpleMessage', 'message', 'condition'
     [14:17:28.769] - Number of conditions: 1
     [14:17:29.683] - Condition #296: 'simpleMessage', 'message', 'condition'
     [14:17:28.770] signalConditions() ... done
     [14:17:29.684] - Condition #297: 'simpleMessage', 'message', 'condition'
     [14:17:28.771] result() for ClusterFuture ...
     [14:17:29.685] - Condition #298: 'simpleMessage', 'message', 'condition'
     [14:17:28.772] - result already collected: FutureResult
     [14:17:29.685] - Condition #299: 'simpleMessage', 'message', 'condition'
     [14:17:28.773] result() for ClusterFuture ... done
     [14:17:29.686] - Condition #300: 'simpleMessage', 'message', 'condition'
     [14:17:28.773] result() for ClusterFuture ...
     [14:17:29.687] - Condition #301: 'simpleMessage', 'message', 'condition'
     [14:17:28.774] - result already collected: FutureResult
     [14:17:29.688] - Condition #302: 'simpleMessage', 'message', 'condition'
     [14:17:28.775] result() for ClusterFuture ... done
     [14:17:29.688] - Condition #303: 'simpleMessage', 'message', 'condition'
     [14:17:28.776] signalConditions() ...
     [14:17:29.689] - Condition #304: 'simpleMessage', 'message', 'condition'
     [14:17:28.776] - include = 'immediateCondition'
     [14:17:29.690] - Condition #305: 'simpleMessage', 'message', 'condition'
     [14:17:28.777] - exclude =
     [14:17:29.690] - Condition #306: 'simpleMessage', 'message', 'condition'
     [14:17:28.778] - resignal = FALSE
     [14:17:29.691] - Condition #307: 'simpleMessage', 'message', 'condition'
     [14:17:28.778] - Number of conditions: 2
     [14:17:29.692] - Condition #308: 'simpleMessage', 'message', 'condition'
     [14:17:28.779] signalConditions() ... done
     [14:17:29.693] - Condition #309: 'simpleMessage', 'message', 'condition'
     [14:17:28.780] - accumulating results
     [14:17:29.693] - Condition #310: 'simpleMessage', 'message', 'condition'
     [14:17:28.782] - processing errors (handler = 'stop')
     [14:17:29.694] - Condition #311: 'simpleMessage', 'message', 'condition'
     [14:17:28.783] - extracting results
     [14:17:29.695] - Condition #312: 'simpleMessage', 'message', 'condition'
     [14:17:28.783] doFuture() ... DONE
     [14:17:29.695] - Condition #313: 'simpleMessage', 'message', 'condition'
     foreach() - level 2 ... DONE
     [14:17:29.696] - Condition #314: 'simpleMessage', 'message', 'condition'
     foreach() - level 2 ...
     [14:17:29.697] - Condition #315: 'simpleMessage', 'message', 'condition'
     [14:17:28.793] doFuture() ...
     [14:17:29.698] - Condition #316: 'simpleMessage', 'message', 'condition'
     [14:17:28.795] - dummy globals (as locals): [1] 'b'
     [14:17:29.698] - Condition #317: 'simpleMessage', 'message', 'condition'
     [14:17:28.797] - R expression:
     [14:17:29.699] - Condition #318: 'simpleMessage', 'message', 'condition'
     [14:17:28.798] {
     [14:17:28.798] doFuture::registerDoFuture()
     [14:17:28.798] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:17:28.798] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:17:28.798] b <- NULL
     [14:17:28.798] ...future.env <- environment()
     [14:17:28.798] local({
     [14:17:28.798] for (name in names(...future.x_jj)) {
     [14:17:28.798] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:17:28.798] inherits = FALSE)
     [14:17:28.798] }
     [14:17:28.798] })
     [14:17:28.798] tryCatch({
     [14:17:28.798] plan_list <- future::plan("next")
     [14:17:28.798] message(capture.output(print(plan_list)))
     [14:17:28.798] stopifnot(inherits(plan_list, "future"))
     [14:17:28.798] default <- getOption("future.plan", "sequential")
     [14:17:28.798] if (is.function(default))
     [14:17:28.798] default <- class(default)
     [14:17:28.798] stopifnot(inherits(plan_list, default))
     [14:17:28.798] plan_b <- future::plan("list")
     [14:17:28.798] str(plan_b)
     [14:17:28.798] stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]],
     [14:17:28.798] default))
     [14:17:28.798] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:17:28.798] }, error = identity)
     [14:17:28.798] })
     [14:17:28.798] }
     [14:17:29.700] - Condition #319: 'simpleMessage', 'message', 'condition'
     [14:17:28.800] - identifying globals and packages ...
     [14:17:29.700] - Condition #320: 'simpleMessage', 'message', 'condition'
     [14:17:28.801] getGlobalsAndPackages() ...
     [14:17:29.701] - Condition #321: 'simpleMessage', 'message', 'condition'
     [14:17:28.801] Searching for globals...
     [14:17:29.702] - Condition #322: 'simpleMessage', 'message', 'condition'
     [14:17:28.842] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
     [14:17:29.702] - Condition #323: 'simpleMessage', 'message', 'condition'
     [14:17:28.843] Searching for globals ... DONE
     [14:17:29.703] - Condition #324: 'simpleMessage', 'message', 'condition'
     [14:17:28.844] Resolving globals: FALSE
     [14:17:29.704] - Condition #325: 'simpleMessage', 'message', 'condition'
     [14:17:28.847] The total size of the 3 globals is 64.51 KiB (66056 bytes)
     [14:17:29.705] - Condition #326: 'simpleMessage', 'message', 'condition'
     [14:17:28.848] - globals: [3] '...future.x_ii', 'a', 'plan_a'
     [14:17:29.705] - Condition #327: 'simpleMessage', 'message', 'condition'
     [14:17:28.849] - packages: [1] 'utils'
     [14:17:29.706] - Condition #328: 'simpleMessage', 'message', 'condition'
     [14:17:28.850] getGlobalsAndPackages() ... DONE
     [14:17:29.707] - Condition #329: 'simpleMessage', 'message', 'condition'
     [14:17:28.851] List of 3
     [14:17:28.851] $ ...future.x_ii: NULL
     [14:17:28.851] $ a : int 2
     [14:17:28.851] $ plan_a :List of 1
     [14:17:28.851] ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     [14:17:28.851] seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(),
     [14:17:28.851] user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE,
     [14:17:28.851] label = NULL, ...)
     [14:17:28.851] .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
     [14:17:28.851] .. ..- attr(*, "init")= logi TRUE
     [14:17:28.851] .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
     [14:17:28.851] ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     [14:17:28.851] - attr(*, "where")=List of 3
     [14:17:28.851] ..$ ...future.x_ii:<environment: 0x25e9250>
     [14:17:28.851] ..$ a :<environment: 0x19fd2e0>
     [14:17:28.851] ..$ plan_a :<environment: 0x19fd2e0>
     [14:17:28.851] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
     [14:17:28.851] - attr(*, "resolved")= logi FALSE
     [14:17:28.851] - attr(*, "total_size")= num 66056
     [14:17:29.707] - Condition #330: 'simpleMessage', 'message', 'condition'
     [14:17:28.870] - R expression:
     [14:17:29.708] - Condition #331: 'simpleMessage', 'message', 'condition'
     [14:17:28.870] {
     [14:17:28.870] doFuture::registerDoFuture()
     [14:17:28.870] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:17:28.870] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:17:28.870] b <- NULL
     [14:17:28.870] ...future.env <- environment()
     [14:17:28.870] local({
     [14:17:28.870] for (name in names(...future.x_jj)) {
     [14:17:28.870] assign(name, ...future.x_jj[[name]], envir = ...future.env,
     [14:17:28.870] inherits = FALSE)
     [14:17:28.870] }
     [14:17:28.870] })
     [14:17:28.870] tryCatch({
     [14:17:28.870] plan_list <- future::plan("next")
     [14:17:28.870] message(capture.output(print(plan_list)))
     [14:17:28.870] stopifnot(inherits(plan_list, "future"))
     [14:17:28.870] default <- getOption("future.plan", "sequential")
     [14:17:28.870] if (is.function(default))
     [14:17:28.870] default <- class(default)
     [14:17:28.870] stopifnot(inherits(plan_list, default))
     [14:17:28.870] plan_b <- future::plan("list")
     [14:17:28.870] str(plan_b)
     [14:17:28.870] stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]],
     [14:17:28.870] default))
     [14:17:28.870] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:17:28.870] }, error = identity)
     [14:17:28.870] })
     [14:17:28.870] }
     [14:17:29.709] - Condition #332: 'simpleMessage', 'message', 'condition'
     [14:17:28.872] - globals: [3] '...future.x_ii', 'a', 'plan_a'
     [14:17:29.709] - Condition #333: 'simpleMessage', 'message', 'condition'
     [14:17:28.873] List of 3
     [14:17:28.873] $ ...future.x_ii: NULL
     [14:17:28.873] $ a : int 2
     [14:17:28.873] $ plan_a :List of 1
     [14:17:28.873] ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE,
     [14:17:28.873] seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(),
     [14:17:28.873] user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE,
     [14:17:28.873] label = NULL, ...)
     [14:17:28.873] .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
     [14:17:28.873] .. ..- attr(*, "init")= logi TRUE
     [14:17:28.873] .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
     [14:17:28.873] ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
     [14:17:28.873] - attr(*, "where")=List of 3
     [14:17:28.873] ..$ ...future.x_ii:<environment: 0x25e9250>
     [14:17:28.873] ..$ a :<environment: 0x19fd2e0>
     [14:17:28.873] ..$ plan_a :<environment: 0x19fd2e0>
     [14:17:28.873] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
     [14:17:28.873] - attr(*, "resolved")= logi FALSE
     [14:17:28.873] - attr(*, "total_size")= num 66056
     [14:17:29.710] - Condition #334: 'simpleMessage', 'message', 'condition'
     [14:17:28.902] - packages: [2] 'doFuture', 'utils'
     [14:17:29.711] - Condition #335: 'simpleMessage', 'message', 'condition'
     [14:17:28.903] - identifying globals and packages ... DONE
     [14:17:29.711] - Condition #336: 'simpleMessage', 'message', 'condition'
     [14:17:28.905] Number of chunks: 2
     [14:17:29.712] - Condition #337: 'simpleMessage', 'message', 'condition'
     [14:17:28.906] Number of futures (= number of chunks): 2
     [14:17:29.713] - Condition #338: 'simpleMessage', 'message', 'condition'
     [14:17:28.907] Launching 2 futures (chunks) ...
     [14:17:29.713] - Condition #339: 'simpleMessage', 'message', 'condition'
     [14:17:28.908] Chunk #1 of 2 ...
     [14:17:29.714] - Condition #340: 'simpleMessage', 'message', 'condition'
     [14:17:28.909] - Finding globals in 'args_list' chunk #1 ...
     [14:17:29.715] - Condition #341: 'simpleMessage', 'message', 'condition'
     [14:17:28.909] getGlobalsAndPackages() ...
     [14:17:29.715] - Condition #342: 'simpleMessage', 'message', 'condition'
     [14:17:28.910] Searching for globals...
     [14:17:29.716] - Condition #343: 'simpleMessage', 'message', 'condition'
     [14:17:28.911]
     [14:17:29.717] - Condition #344: 'simpleMessage', 'message', 'condition'
     [14:17:28.912] Searching for globals ... DONE
     [14:17:29.718] - Condition #345: 'simpleMessage', 'message', 'condition'
     [14:17:28.913] - globals: [0] <none>
     [14:17:29.718] - Condition #346: 'simpleMessage', 'message', 'condition'
     [14:17:28.913] getGlobalsAndPackages() ... DONE
     [14:17:29.719] - Condition #347: 'simpleMessage', 'message', 'condition'
     [14:17:28.914]
     [14:17:29.720] - Condition #348: 'simpleMessage', 'message', 'condition'
     [14:17:28.914]
     [14:17:29.720] - Condition #349: 'simpleMessage', 'message', 'condition'
     [14:17:28.915] - Finding globals in 'args_list' for chunk #1 ... DONE
     [14:17:29.721] - Condition #350: 'simpleMessage', 'message', 'condition'
     [14:17:28.916] getGlobalsAndPackages() ...
     [14:17:29.722] - Condition #351: 'simpleMessage', 'message', 'condition'
     [14:17:28.917] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
     [14:17:29.722] - Condition #352: 'simpleMessage', 'message', 'condition'
     [14:17:28.917] Resolving globals: FALSE
     [14:17:29.723] - Condition #353: 'simpleMessage', 'message', 'condition'
     [14:17:28.919] The total size of the 3 globals is 64.56 KiB (66112 bytes)
     [14:17:29.724] - Condition #354: 'simpleMessage', 'message', 'condition'
     [14:17:28.920] - globals: [3] '...future.x_ii', 'a', 'plan_a'
     [14:17:29.724] - Condition #355: 'simpleMessage', 'message', 'condition'
     [14:17:28.921]
     [14:17:29.725] - Condition #356: 'simpleMessage', 'message', 'condition'
     [14:17:28.921] getGlobalsAndPackages() ... DONE
     [14:17:29.726] - Condition #357: 'simpleMessage', 'message', 'condition'
     [14:17:28.938] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
     [14:17:29.726] - Condition #358: 'simpleMessage', 'message', 'condition'
     [14:17:28.939] Packages needed by future strategies (n = 0): <none>
     [14:17:29.727] - Condition #359: 'simpleMessage', 'message', 'condition'
     [14:17:28.948] {
     [14:17:28.948] {
     [14:17:28.948] ...future.startTime <- base::Sys.time()
     [14:17:28.948] ...future.oldOptions <- base::options(future.startup.script = FALSE,
     [14:17:28.948] future.globals.onMissing = NULL, future.globals.maxSize = NULL,
     [14:17:28.948] future.globals.method = NULL, future.globals.onMissing = NULL,
     [14:17:28.948] future.globals.onReference = NULL, future.globals.resolve = NULL,
     [14:17:28.948] future.resolve.recursive = NULL, width = 80L)
     [14:17:28.948] {
     [14:17:28.948] {
     [14:17:28.948] {
     [14:17:28.948] base::local({
     [14:17:28.948] has_future <- base::requireNamespace("future",
     [14:17:28.948] quietly = TRUE)
     [14:17:28.948] version <- if (has_future)
     [14:17:28.948] utils::packageVersion("future")
     [14:17:28.948] else NULL
     [14:17:28.948] if (!has_future || version < "1.8.0") {
     [14:17:28.948] info <- base::c(r_version = base::gsub("R version ",
     [14:17:28.948] "", base::R.version$version.string),
     [14:17:28.948] platform = base::sprintf("%s (%s-bit)",
     [14:17:28.948] base::R.version$platform, 8 * base::.Machine$sizeof.pointer),
     [14:17:28.948] os = base::paste(base::Sys.info()[base::c("sysname",
     [14:17:28.948] "release", "version")], collapse = " "),
     [14:17:28.948] hostname = base::Sys.info()[["nodename"]])
     [14:17:28.948] info <- base::sprintf("%s: %s", base::names(info),
     [14:17:28.948] info)
     [14:17:28.948] info <- base::paste(info, collapse = "; ")
     [14:17:28.948] if (!has_future) {
     [14:17:28.948] msg <- base::sprintf("Package 'future' is not installed on worker (%s)",
     [14:17:28.948] info)
     [14:17:28.948] }
     [14:17:28.948] else {
     [14:17:28.948] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s",
     [14:17:28.948] info, version)
     [14:17:28.948] }
     [14:17:28.948] base::stop(msg)
     [14:17:28.948] }
     [14:17:28.948] })
     [14:17:28.948] }
     [14:17:28.948] base::local({
     [14:17:28.948] for (pkg in c("doFuture", "utils")) {
     [14:17:28.948] base::loadNamespace(pkg)
     [14:17:28.948] base::library(pkg, character.only = TRUE)
     [14:17:28.948] }
     [14:17:28.948] })
     [14:17:28.948] }
     [14:17:28.948] future::plan("default", .cleanup = FALSE, .init = FALSE)
     [14:17:28.948] }
     [14:17:28.948] }
     [14:17:28.948] if (base::is.na(TRUE)) {
     [14:17:28.948] }
     [14:17:28.948] else {
     [14:17:28.948] if (TRUE) {
     [14:17:28.948] ...future.stdout <- base::rawConnection(base::raw(0L),
     [14:17:28.948] open = "w")
     [14:17:28.948] }
     [14:17:28.948] else {
     [14:17:28.948] ...future.stdout <- base::file(base::switch(.Platform$OS.type,
     [14:17:28.948] windows = "NUL", "/dev/null"), open = "w")
     [14:17:28.948] }
     [14:17:28.948] base::sink(...future.stdout, type = "output", split = FALSE)
     [14:17:28.948] base::on.exit(if (!base::is.null(...future.stdout)) {
     [14:17:28.948] base::sink(type = "output", split = FALSE)
     [14:17:28.948] base::close(...future.stdout)
     [14:17:28.948] }, add = TRUE)
     [14:17:28.948] }
     [14:17:28.948] ...future.frame <- base::sys.nframe()
     [14:17:28.948] ...future.conditions <- base::list()
     [14:17:28.948] ...future.rng <- base::globalenv()$.Random.seed
     [14:17:28.948] ...future.result <- base::tryCatch({
     [14:17:28.948] base::withCallingHandlers({
     [14:17:28.948] ...future.value <- base::withVisible(base::local({
     [14:17:28.948] ...future.sendCondition <- local({
     [14:17:28.948] sendCondition <- NULL
     [14:17:28.948] function(frame = 1L) {
     [14:17:28.948] if (is.function(sendCondition))
     [14:17:28.948] return(sendCondition)
     [14:17:28.948] ns <- getNamespace("parallel")
     [14:17:28.948] if (exists("sendData", mode = "function",
     [14:17:28.948] envir = ns)) {
     [14:17:28.948] parallel_sendData <- get("sendData", mode = "function",
     [14:17:28.948] envir = ns)
     [14:17:28.948] envir <- sys.frame(frame)
     [14:17:28.948] master <- NULL
     [14:17:28.948] while (!identical(envir, .GlobalEnv) &&
     [14:17:28.948] !identical(envir, emptyenv())) {
     [14:17:28.948] if (exists("master", mode = "list", envir = envir,
     [14:17:28.948] inherits = FALSE)) {
     [14:17:28.948] master <- get("master", mode = "list",
     [14:17:28.948] envir = envir, inherits = FALSE)
     [14:17:28.948] if (inherits(master, "SOCKnode")) {
     [14:17:28.948] sendCondition <<- function(cond) {
     [14:17:28.948] data <- list(type = "VALUE", value = cond,
     [14:17:28.948] success = TRUE)
     [14:17:28.948] parallel_sendData(master, data)
     [14:17:28.948] }
     [14:17:28.948] return(sendCondition)
     [14:17:28.948] }
     [14:17:28.948] }
     [14:17:28.948] frame <- frame + 1L
     [14:17:28.948] envir <- sys.frame(frame)
     [14:17:28.948] }
     [14:17:28.948] }
     [14:17:28.948] sendCondition <<- function(cond) NULL
     [14:17:28.948] }
     [14:17:28.948] })
     [14:17:28.948] withCallingHandlers({
     [14:17:28.948] {
     [14:17:28.948] doFuture::registerDoFuture()
     [14:17:28.948] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:17:28.948] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:17:28.948] b <- NULL
     [14:17:28.948] ...future.env <- environment()
     [14:17:28.948] local({
     [14:17:28.948] for (name in names(...future.x_jj)) {
     [14:17:28.948] assign(name, ...future.x_jj[[name]],
     [14:17:28.948] envir = ...future.env, inherits = FALSE)
     [14:17:28.948] }
     [14:17:28.948] })
     [14:17:28.948] tryCatch({
     [14:17:28.948] plan_list <- future::plan("next")
     [14:17:28.948] message(capture.output(print(plan_list)))
     [14:17:28.948] stopifnot(inherits(plan_list, "future"))
     [14:17:28.948] default <- getOption("future.plan", "sequential")
     [14:17:28.948] if (is.function(default))
     [14:17:28.948] default <- class(default)
     [14:17:28.948] stopifnot(inherits(plan_list, default))
     [14:17:28.948] plan_b <- future::plan("list")
     [14:17:28.948] str(plan_b)
     [14:17:28.948] stopifnot(inherits(plan_b[[1]], "future"),
     [14:17:28.948] inherits(plan_b[[1]], default))
     [14:17:28.948] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:17:28.948] }, error = identity)
     [14:17:28.948] })
     [14:17:28.948] }
     [14:17:28.948] }, immediateCondition = function(cond) {
     [14:17:28.948] sendCondition <- ...future.sendCondition()
     [14:17:28.948] sendCondition(cond)
     [14:17:28.948] muffleCondition <- function (cond)
     [14:17:28.948] {
     [14:17:28.948] inherits <- base::inherits
     [14:17:28.948] invokeRestart <- base::invokeRestart
     [14:17:28.948] muffled <- FALSE
     [14:17:28.948] if (inherits(cond, "message")) {
     [14:17:28.948] invokeRestart("muffleMessage")
     [14:17:28.948] muffled <- TRUE
     [14:17:28.948] }
     [14:17:28.948] else if (inherits(cond, "warning")) {
     [14:17:28.948] invokeRestart("muffleWarning")
     [14:17:28.948] muffled <- TRUE
     [14:17:28.948] }
     [14:17:28.948] else if (inherits(cond, "condition")) {
     [14:17:28.948] computeRestarts <- base::computeRestarts
     [14:17:28.948] grepl <- base::grepl
     [14:17:28.948] is.null <- base::is.null
     [14:17:28.948] restarts <- computeRestarts(cond)
     [14:17:28.948] for (restart in restarts) {
     [14:17:28.948] name <- restart$name
     [14:17:28.948] if (is.null(name))
     [14:17:28.948] next
     [14:17:28.948] if (!grepl("^muffle", name))
     [14:17:28.948] next
     [14:17:28.948] invokeRestart(restart)
     [14:17:28.948] muffled <- TRUE
     [14:17:28.948] break
     [14:17:28.948] }
     [14:17:28.948] }
     [14:17:28.948] invisible(muffled)
     [14:17:28.948] }
     [14:17:28.948] muffleCondition(cond)
     [14:17:28.948] })
     [14:17:28.948] }))
     [14:17:28.948] future::FutureResult(value = ...future.value$value,
     [14:17:28.948] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed,
     [14:17:28.948] ...future.rng), started = ...future.startTime,
     [14:17:28.948] version = "1.8")
     [14:17:28.948] }, condition = base::local({
     [14:17:28.948] c <- base::c
     [14:17:28.948] inherits <- base::inherits
     [14:17:28.948] invokeRestart <- base::invokeRestart
     [14:17:28.948] length <- base::length
     [14:17:28.948] list <- base::list
     [14:17:28.948] seq.int <- base::seq.int
     [14:17:28.948] signalCondition <- base::signalCondition
     [14:17:28.948] sys.calls <- base::sys.calls
     [14:17:28.948] Sys.time <- base::Sys.time
     [14:17:28.948] `[[` <- base::`[[`
     [14:17:28.948] `+` <- base::`+`
     [14:17:28.948] `<<-` <- base::`<<-`
     [14:17:28.948] sysCalls <- function(calls = sys.calls(), from = 1L) {
     [14:17:28.948] calls[seq.int(from = from + 12L, to = length(calls) -
     [14:17:28.948] 3L)]
     [14:17:28.948] }
     [14:17:28.948] function(cond) {
     [14:17:28.948] if (inherits(cond, "error")) {
     [14:17:28.948] sessionInformation <- function() {
     [14:17:28.948] list(r = base::R.Version(), locale = base::Sys.getlocale(),
     [14:17:28.948] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(),
     [14:17:28.948] search = base::search(), system = base::Sys.info())
     [14:17:28.948] }
     [14:17:28.948] ...future.conditions[[length(...future.conditions) +
     [14:17:28.948] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame),
     [14:17:28.948] cond$call), session = sessionInformation(),
     [14:17:28.948] timestamp = Sys.time(), signaled = 0L)
     [14:17:28.948] signalCondition(cond)
     [14:17:28.948] }
     [14:17:28.948] else if (inherits(cond, c("condition", "immediateCondition"
     [14:17:28.948] ))) {
     [14:17:28.948] signal <- TRUE && inherits(cond, "immediateCondition")
     [14:17:28.948] ...future.conditions[[length(...future.conditions) +
     [14:17:28.948] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
     [14:17:28.948] if (!signal) {
     [14:17:28.948] muffleCondition <- function (cond)
     [14:17:28.948] {
     [14:17:28.948] inherits <- base::inherits
     [14:17:28.948] invokeRestart <- base::invokeRestart
     [14:17:28.948] muffled <- FALSE
     [14:17:28.948] if (inherits(cond, "message")) {
     [14:17:28.948] invokeRestart("muffleMessage")
     [14:17:28.948] muffled <- TRUE
     [14:17:28.948] }
     [14:17:28.948] else if (inherits(cond, "warning")) {
     [14:17:28.948] invokeRestart("muffleWarning")
     [14:17:28.948] muffled <- TRUE
     [14:17:28.948] }
     [14:17:28.948] else if (inherits(cond, "condition")) {
     [14:17:28.948] computeRestarts <- base::computeRestarts
     [14:17:28.948] grepl <- base::grepl
     [14:17:28.948] is.null <- base::is.null
     [14:17:28.948] restarts <- computeRestarts(cond)
     [14:17:28.948] for (restart in restarts) {
     [14:17:28.948] name <- restart$name
     [14:17:28.948] if (is.null(name))
     [14:17:28.948] next
     [14:17:28.948] if (!grepl("^muffle", name))
     [14:17:28.948] next
     [14:17:28.948] invokeRestart(restart)
     [14:17:28.948] muffled <- TRUE
     [14:17:28.948] break
     [14:17:28.948] }
     [14:17:28.948] }
     [14:17:28.948] invisible(muffled)
     [14:17:28.948] }
     [14:17:28.948] muffleCondition(cond)
     [14:17:28.948] }
     [14:17:28.948] }
     [14:17:28.948] }
     [14:17:28.948] }))
     [14:17:28.948] }, error = function(ex) {
     [14:17:28.948] base::structure(base::list(value = NULL, visible = NULL,
     [14:17:28.948] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed,
     [14:17:28.948] ...future.rng), version = "1.8"), class = "FutureResult")
     [14:17:28.948] }, finally = {
     [14:17:28.948] {
     [14:17:28.948] NULL
     [14:17:28.948] future::plan(list(b = function (expr, envir = parent.frame(),
     [14:17:28.948] substitute = TRUE, lazy = FALSE, seed = NULL,
     [14:17:28.948] globals = TRUE, persistent = FALSE, workers = availableWorkers(),
     [14:17:28.948] user = NULL, revtunnel = TRUE, homogeneous = TRUE,
     [14:17:28.948] gc = FALSE, earlySignal = FALSE, label = NULL,
     [14:17:28.948] ...)
     [14:17:28.948] {
     [14:17:28.948] if (substitute)
     [14:17:28.948] expr <- substitute(expr)
     [14:17:28.948] future <- ClusterFuture(expr = expr, envir = envir,
     [14:17:28.948] substitute = FALSE, lazy = lazy, seed = seed,
     [14:17:28.948] globals = globals, persistent = persistent,
     [14:17:28.948] workers = workers, user = user, revtunnel = revtunnel,
     [14:17:28.948] homogeneous = homogeneous, gc = gc, earlySignal = earlySignal,
     [14:17:28.948] label = label, ...)
     [14:17:28.948] if (!future$lazy)
     [14:17:28.948] future <- run(future)
     [14:17:28.948] invisible(future)
     [14:17:28.948] }), .cleanup = FALSE, .init = FALSE)
     [14:17:28.948] }
     [14:17:28.948] base::options(...future.oldOptions)
     [14:17:28.948] })
     [14:17:28.948] Sys.time
     [14:17:28.948] if (base::is.na(TRUE)) {
     [14:17:28.948] }
     [14:17:28.948] else {
     [14:17:28.948] base::sink(type = "output", split = FALSE)
     [14:17:28.948] if (TRUE) {
     [14:17:28.948] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
     [14:17:28.948] }
     [14:17:28.948] else {
     [14:17:28.948] ...future.result["stdout"] <- base::list(NULL)
     [14:17:28.948] }
     [14:17:28.948] base::close(...future.stdout)
     [14:17:28.948] ...future.stdout <- NULL
     [14:17:28.948] }
     [14:17:28.948] ...future.result$conditions <- ...future.conditions
     [14:17:28.948] ...future.result
     [14:17:28.948] }
     [14:17:29.727] - Condition #360: 'simpleMessage', 'message', 'condition'
     [14:17:28.961] Exporting 3 global objects (64.56 KiB) to cluster node #1 ...
     [14:17:29.728] - Condition #361: 'simpleMessage', 'message', 'condition'
     [14:17:28.962] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
     [14:17:29.729] - Condition #362: 'simpleMessage', 'message', 'condition'
     [14:17:28.964] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
     [14:17:29.729] - Condition #363: 'simpleMessage', 'message', 'condition'
     [14:17:28.971] Exporting 'a' (56 bytes) to cluster node #1 ...
     [14:17:29.730] - Condition #364: 'simpleMessage', 'message', 'condition'
     [14:17:28.973] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
     [14:17:29.731] - Condition #365: 'simpleMessage', 'message', 'condition'
     [14:17:28.974] Exporting 'plan_a' (64.45 KiB) to cluster node #1 ...
     [14:17:29.731] - Condition #366: 'simpleMessage', 'message', 'condition'
     [14:17:29.017] Exporting 'plan_a' (64.45 KiB) to cluster node #1 ... DONE
     [14:17:29.732] - Condition #367: 'simpleMessage', 'message', 'condition'
     [14:17:29.018] Exporting 3 global objects (64.56 KiB) to cluster node #1 ... DONE
     [14:17:29.733] - Condition #368: 'simpleMessage', 'message', 'condition'
     [14:17:29.021] ClusterFuture started
     [14:17:29.733] - Condition #369: 'simpleMessage', 'message', 'condition'
     [14:17:29.022] Chunk #1 of 2 ... DONE
     [14:17:29.734] - Condition #370: 'simpleMessage', 'message', 'condition'
     [14:17:29.023] Chunk #2 of 2 ...
     [14:17:29.735] - Condition #371: 'simpleMessage', 'message', 'condition'
     [14:17:29.025] - Finding globals in 'args_list' chunk #2 ...
     [14:17:29.735] - Condition #372: 'simpleMessage', 'message', 'condition'
     [14:17:29.026] getGlobalsAndPackages() ...
     [14:17:29.736] - Condition #373: 'simpleMessage', 'message', 'condition'
     [14:17:29.027] Searching for globals...
     [14:17:29.737] - Condition #374: 'simpleMessage', 'message', 'condition'
     [14:17:29.029]
     [14:17:29.737] - Condition #375: 'simpleMessage', 'message', 'condition'
     [14:17:29.030] Searching for globals ... DONE
     [14:17:29.738] - Condition #376: 'simpleMessage', 'message', 'condition'
     [14:17:29.031] - globals: [0] <none>
     [14:17:29.739] - Condition #377: 'simpleMessage', 'message', 'condition'
     [14:17:29.031] getGlobalsAndPackages() ... DONE
     [14:17:29.739] - Condition #378: 'simpleMessage', 'message', 'condition'
     [14:17:29.032]
     [14:17:29.740] - Condition #379: 'simpleMessage', 'message', 'condition'
     [14:17:29.033]
     [14:17:29.741] - Condition #380: 'simpleMessage', 'message', 'condition'
     [14:17:29.034] - Finding globals in 'args_list' for chunk #2 ... DONE
     [14:17:29.741] - Condition #381: 'simpleMessage', 'message', 'condition'
     [14:17:29.035] getGlobalsAndPackages() ...
     [14:17:29.742] - Condition #382: 'simpleMessage', 'message', 'condition'
     [14:17:29.037] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
     [14:17:29.743] - Condition #383: 'simpleMessage', 'message', 'condition'
     [14:17:29.038] Resolving globals: FALSE
     [14:17:29.743] - Condition #384: 'simpleMessage', 'message', 'condition'
     [14:17:29.041] The total size of the 3 globals is 64.62 KiB (66168 bytes)
     [14:17:29.744] - Condition #385: 'simpleMessage', 'message', 'condition'
     [14:17:29.042] - globals: [3] '...future.x_ii', 'a', 'plan_a'
     [14:17:29.745] - Condition #386: 'simpleMessage', 'message', 'condition'
     [14:17:29.043]
     [14:17:29.745] - Condition #387: 'simpleMessage', 'message', 'condition'
     [14:17:29.044] getGlobalsAndPackages() ... DONE
     [14:17:29.746] - Condition #388: 'simpleMessage', 'message', 'condition'
     [14:17:29.076] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
     [14:17:29.747] - Condition #389: 'simpleMessage', 'message', 'condition'
     [14:17:29.077] Packages needed by future strategies (n = 0): <none>
     [14:17:29.747] - Condition #390: 'simpleMessage', 'message', 'condition'
     [14:17:29.098] {
     [14:17:29.098] {
     [14:17:29.098] ...future.startTime <- base::Sys.time()
     [14:17:29.098] ...future.oldOptions <- base::options(future.startup.script = FALSE,
     [14:17:29.098] future.globals.onMissing = NULL, future.globals.maxSize = NULL,
     [14:17:29.098] future.globals.method = NULL, future.globals.onMissing = NULL,
     [14:17:29.098] future.globals.onReference = NULL, future.globals.resolve = NULL,
     [14:17:29.098] future.resolve.recursive = NULL, width = 80L)
     [14:17:29.098] {
     [14:17:29.098] {
     [14:17:29.098] {
     [14:17:29.098] base::local({
     [14:17:29.098] has_future <- base::requireNamespace("future",
     [14:17:29.098] quietly = TRUE)
     [14:17:29.098] version <- if (has_future)
     [14:17:29.098] utils::packageVersion("future")
     [14:17:29.098] else NULL
     [14:17:29.098] if (!has_future || version < "1.8.0") {
     [14:17:29.098] info <- base::c(r_version = base::gsub("R version ",
     [14:17:29.098] "", base::R.version$version.string),
     [14:17:29.098] platform = base::sprintf("%s (%s-bit)",
     [14:17:29.098] base::R.version$platform, 8 * base::.Machine$sizeof.pointer),
     [14:17:29.098] os = base::paste(base::Sys.info()[base::c("sysname",
     [14:17:29.098] "release", "version")], collapse = " "),
     [14:17:29.098] hostname = base::Sys.info()[["nodename"]])
     [14:17:29.098] info <- base::sprintf("%s: %s", base::names(info),
     [14:17:29.098] info)
     [14:17:29.098] info <- base::paste(info, collapse = "; ")
     [14:17:29.098] if (!has_future) {
     [14:17:29.098] msg <- base::sprintf("Package 'future' is not installed on worker (%s)",
     [14:17:29.098] info)
     [14:17:29.098] }
     [14:17:29.098] else {
     [14:17:29.098] msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s",
     [14:17:29.098] info, version)
     [14:17:29.098] }
     [14:17:29.098] base::stop(msg)
     [14:17:29.098] }
     [14:17:29.098] })
     [14:17:29.098] }
     [14:17:29.098] base::local({
     [14:17:29.098] for (pkg in c("doFuture", "utils")) {
     [14:17:29.098] base::loadNamespace(pkg)
     [14:17:29.098] base::library(pkg, character.only = TRUE)
     [14:17:29.098] }
     [14:17:29.098] })
     [14:17:29.098] }
     [14:17:29.098] future::plan("default", .cleanup = FALSE, .init = FALSE)
     [14:17:29.098] }
     [14:17:29.098] }
     [14:17:29.098] if (base::is.na(TRUE)) {
     [14:17:29.098] }
     [14:17:29.098] else {
     [14:17:29.098] if (TRUE) {
     [14:17:29.098] ...future.stdout <- base::rawConnection(base::raw(0L),
     [14:17:29.098] open = "w")
     [14:17:29.098] }
     [14:17:29.098] else {
     [14:17:29.098] ...future.stdout <- base::file(base::switch(.Platform$OS.type,
     [14:17:29.098] windows = "NUL", "/dev/null"), open = "w")
     [14:17:29.098] }
     [14:17:29.098] base::sink(...future.stdout, type = "output", split = FALSE)
     [14:17:29.098] base::on.exit(if (!base::is.null(...future.stdout)) {
     [14:17:29.098] base::sink(type = "output", split = FALSE)
     [14:17:29.098] base::close(...future.stdout)
     [14:17:29.098] }, add = TRUE)
     [14:17:29.098] }
     [14:17:29.098] ...future.frame <- base::sys.nframe()
     [14:17:29.098] ...future.conditions <- base::list()
     [14:17:29.098] ...future.rng <- base::globalenv()$.Random.seed
     [14:17:29.098] ...future.result <- base::tryCatch({
     [14:17:29.098] base::withCallingHandlers({
     [14:17:29.098] ...future.value <- base::withVisible(base::local({
     [14:17:29.098] ...future.sendCondition <- local({
     [14:17:29.098] sendCondition <- NULL
     [14:17:29.098] function(frame = 1L) {
     [14:17:29.098] if (is.function(sendCondition))
     [14:17:29.098] return(sendCondition)
     [14:17:29.098] ns <- getNamespace("parallel")
     [14:17:29.098] if (exists("sendData", mode = "function",
     [14:17:29.098] envir = ns)) {
     [14:17:29.098] parallel_sendData <- get("sendData", mode = "function",
     [14:17:29.098] envir = ns)
     [14:17:29.098] envir <- sys.frame(frame)
     [14:17:29.098] master <- NULL
     [14:17:29.098] while (!identical(envir, .GlobalEnv) &&
     [14:17:29.098] !identical(envir, emptyenv())) {
     [14:17:29.098] if (exists("master", mode = "list", envir = envir,
     [14:17:29.098] inherits = FALSE)) {
     [14:17:29.098] master <- get("master", mode = "list",
     [14:17:29.098] envir = envir, inherits = FALSE)
     [14:17:29.098] if (inherits(master, "SOCKnode")) {
     [14:17:29.098] sendCondition <<- function(cond) {
     [14:17:29.098] data <- list(type = "VALUE", value = cond,
     [14:17:29.098] success = TRUE)
     [14:17:29.098] parallel_sendData(master, data)
     [14:17:29.098] }
     [14:17:29.098] return(sendCondition)
     [14:17:29.098] }
     [14:17:29.098] }
     [14:17:29.098] frame <- frame + 1L
     [14:17:29.098] envir <- sys.frame(frame)
     [14:17:29.098] }
     [14:17:29.098] }
     [14:17:29.098] sendCondition <<- function(cond) NULL
     [14:17:29.098] }
     [14:17:29.098] })
     [14:17:29.098] withCallingHandlers({
     [14:17:29.098] {
     [14:17:29.098] doFuture::registerDoFuture()
     [14:17:29.098] lapply(seq_along(...future.x_ii), FUN = function(jj) {
     [14:17:29.098] ...future.x_jj <- ...future.x_ii[[jj]]
     [14:17:29.098] b <- NULL
     [14:17:29.098] ...future.env <- environment()
     [14:17:29.098] local({
     [14:17:29.098] for (name in names(...future.x_jj)) {
     [14:17:29.098] assign(name, ...future.x_jj[[name]],
     [14:17:29.098] envir = ...future.env, inherits = FALSE)
     [14:17:29.098] }
     [14:17:29.098] })
     [14:17:29.098] tryCatch({
     [14:17:29.098] plan_list <- future::plan("next")
     [14:17:29.098] message(capture.output(print(plan_list)))
     [14:17:29.098] stopifnot(inherits(plan_list, "future"))
     [14:17:29.098] default <- getOption("future.plan", "sequential")
     [14:17:29.098] if (is.function(default))
     [14:17:29.098] default <- class(default)
     [14:17:29.098] stopifnot(inherits(plan_list, default))
     [14:17:29.098] plan_b <- future::plan("list")
     [14:17:29.098] str(plan_b)
     [14:17:29.098] stopifnot(inherits(plan_b[[1]], "future"),
     [14:17:29.098] inherits(plan_b[[1]], default))
     [14:17:29.098] list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
     [14:17:29.098] }, error = identity)
     [14:17:29.098] })
     [14:17:29.098] }
     [14:17:29.098] }, immediateCondition = function(cond) {
     [14:17:29.098] sendCondition <- ...future.sendCondition()
     [14:17:29.098] sendCondition(cond)
     [14:17:29.098] muffleCondition <- function (cond)
     [14:17:29.098] {
     [14:17:29.098] inherits <- base::inherits
     [14:17:29.098] invokeRestart <- base::invokeRestart
     [14:17:29.098] muffled <- FALSE
     [14:17:29.098] if (inherits(cond, "message")) {
     [14:17:29.098] invokeRestart("muffleMessage")
     [14:17:29.098] muffled <- TRUE
     [14:17:29.098] }
     [14:17:29.098] else if (inherits(cond, "warning")) {
     [14:17:29.098] invokeRestart("muffleWarning")
     [14:17:29.098] muffled <- TRUE
     [14:17:29.098] }
     [14:17:29.098] else if (inherits(cond, "condition")) {
     [14:17:29.098] computeRestarts <- base::computeRestarts
     [14:17:29.098] grepl <- base::grepl
     [14:17:29.098] is.null <- base::is.null
     [14:17:29.098] restarts <- computeRestarts(cond)
     [14:17:29.098] for (restart in restarts) {
     [14:17:29.098] name <- restart$name
     [14:17:29.098] if (is.null(name))
     [14:17:29.098] next
     [14:17:29.098] if (!grepl("^muffle", name))
     [14:17:29.098] next
     [14:17:29.098] invokeRestart(restart)
     [14:17:29.098] muffled <- TRUE
     [14:17:29.098] break
     [14:17:29.098] }
     [14:17:29.098] }
     [14:17:29.098] invisible(muffled)
     [14:17:29.098] }
     [14:17:29.098] muffleCondition(cond)
     [14:17:29.098] })
     [14:17:29.098] }))
     [14:17:29.098] future::FutureResult(value = ...future.value$value,
     [14:17:29.098] visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed,
     [14:17:29.098] ...future.rng), started = ...future.startTime,
     [14:17:29.098] version = "1.8")
     [14:17:29.098] }, condition = base::local({
     [14:17:29.098] c <- base::c
     [14:17:29.098] inherits <- base::inherits
     [14:17:29.098] invokeRestart <- base::invokeRestart
     [14:17:29.098] length <- base::length
     [14:17:29.098] list <- base::list
     [14:17:29.098] seq.int <- base::seq.int
     [14:17:29.098] signalCondition <- base::signalCondition
     [14:17:29.098] sys.calls <- base::sys.calls
     [14:17:29.098] Sys.time <- base::Sys.time
     [14:17:29.098] `[[` <- base::`[[`
     [14:17:29.098] `+` <- base::`+`
     [14:17:29.098] `<<-` <- base::`<<-`
     [14:17:29.098] sysCalls <- function(calls = sys.calls(), from = 1L) {
     [14:17:29.098] calls[seq.int(from = from + 12L, to = length(calls) -
     [14:17:29.098] 3L)]
     [14:17:29.098] }
     [14:17:29.098] function(cond) {
     [14:17:29.098] if (inherits(cond, "error")) {
     [14:17:29.098] sessionInformation <- function() {
     [14:17:29.098] list(r = base::R.Version(), locale = base::Sys.getlocale(),
     [14:17:29.098] rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(),
     [14:17:29.098] search = base::search(), system = base::Sys.info())
     [14:17:29.098] }
     [14:17:29.098] ...future.conditions[[length(...future.conditions) +
     [14:17:29.098] 1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame),
     [14:17:29.098] cond$call), session = sessionInformation(),
     [14:17:29.098] timestamp = Sys.time(), signaled = 0L)
     [14:17:29.098] signalCondition(cond)
     [14:17:29.098] }
     [14:17:29.098] else if (inherits(cond, c("condition", "immediateCondition"
     [14:17:29.098] ))) {
     [14:17:29.098] signal <- TRUE && inherits(cond, "immediateCondition")
     [14:17:29.098] ...future.conditions[[length(...future.conditions) +
     [14:17:29.098] 1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
     [14:17:29.098] if (!signal) {
     [14:17:29.098] muffleCondition <- function (cond)
     [14:17:29.098] {
     [14:17:29.098] inherits <- base::inherits
     [14:17:29.098] invokeRestart <- base::invokeRestart
     [14:17:29.098] muffled <- FALSE
     [14:17:29.098] if (inherits(cond, "message")) {
     [14:17:29.098] invokeRestart("muffleMessage")
     [14:17:29.098] muffled <- TRUE
     [14:17:29.098] }
     [14:17:29.098] else if (inherits(cond, "warning")) {
     [14:17:29.098] invokeRestart("muffleWarning")
     [14:17:29.098] muffled <- TRUE
     [14:17:29.098] }
     [14:17:29.098] else if (inherits(cond, "condition")) {
     [14:17:29.098] computeRestarts <- base::computeRestarts
     [14:17:29.098] grepl <- base::grepl
     [14:17:29.098] is.null <- base::is.null
     [14:17:29.098] restarts <- computeRestarts(cond)
     [14:17:29.098] for (restart in restarts) {
     [14:17:29.098] name <- restart$name
     [14:17:29.098] if (is.null(name))
     [14:17:29.098] next
     [14:17:29.098] if (!grepl("^muffle", name))
     [14:17:29.098] next
     [14:17:29.098] invokeRestart(restart)
     [14:17:29.098] muffled <- TRUE
     [14:17:29.098] break
     [14:17:29.098] }
     [14:17:29.098] }
     [14:17:29.098] invisible(muffled)
     [14:17:29.098] }
     [14:17:29.098] muffleCondition(cond)
     [14:17:29.098] }
     [14:17:29.098] }
     [14:17:29.098] }
     [14:17:29.098] }))
     [14:17:29.098] }, error = function(ex) {
     [14:17:29.098] base::structure(base::list(value = NULL, visible = NULL,
     [14:17:29.098] conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed,
     [14:17:29.098] ...future.rng), version = "1.8"), class = "FutureResult")
     [14:17:29.098] }, finally = {
     [14:17:29.098] {
     [14:17:29.098] NULL
     [14:17:29.098] future::plan(list(b = function (expr, envir = parent.frame(),
     [14:17:29.098] substitute = TRUE, lazy = FALSE, seed = NULL,
     [14:17:29.098] globals = TRUE, persistent = FALSE, workers = availableWorkers(),
     [14:17:29.098] user = NULL, revtunnel = TRUE, homogeneous = TRUE,
     [14:17:29.098] gc = FALSE, earlySignal = FALSE, label = NULL,
     [14:17:29.098] ...)
     [14:17:29.098] {
     [14:17:29.098] if (substitute)
     [14:17:29.098] expr <- substitute(expr)
     [14:17:29.098] future <- ClusterFuture(expr = expr, envir = envir,
     [14:17:29.098] substitute = FALSE, lazy = lazy, seed = seed,
     [14:17:29.098] globals = globals, persistent = persistent,
     [14:17:29.098] workers = workers, user = user, revtunnel = revtunnel,
     [14:17:29.098] homogeneous = homogeneous, gc = gc, earlySignal = earlySignal,
     [14:17:29.098] label = label, ...)
     [14:17:29.098] if (!future$lazy)
     [14:17:29.098] future <- run(future)
     [14:17:29.098] invisible(future)
     [14:17:29.098] }), .cleanup = FALSE, .init = FALSE)
     [14:17:29.098] }
     [14:17:29.098] base::options(...future.oldOptions)
     [14:17:29.098] })
     [14:17:29.098] Sys.time
     [14:17:29.098] if (base::is.na(TRUE)) {
     [14:17:29.098] }
     [14:17:29.098] else {
     [14:17:29.098] base::sink(type = "output", split = FALSE)
     [14:17:29.098] if (TRUE) {
     [14:17:29.098] ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
     [14:17:29.098] }
     [14:17:29.098] else {
     [14:17:29.098] ...future.result["stdout"] <- base::list(NULL)
     [14:17:29.098] }
     [14:17:29.098] base::close(...future.stdout)
     [14:17:29.098] ...future.stdout <- NULL
     [14:17:29.098] }
     [14:17:29.098] ...future.result$conditions <- ...future.conditions
     [14:17:29.098] ...future.result
     [14:17:29.098] }
     [14:17:29.748] - Condition #391: 'simpleMessage', 'message', 'condition'
     [14:17:29.126] Exporting 3 global objects (64.62 KiB) to cluster node #2 ...
     [14:17:29.749] - Condition #392: 'simpleMessage', 'message', 'condition'
     [14:17:29.127] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ...
     [14:17:29.749] - Condition #393: 'simpleMessage', 'message', 'condition'
     [14:17:29.131] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ... DONE
     [14:17:29.750] - Condition #394: 'simpleMessage', 'message', 'condition'
     [14:17:29.132] Exporting 'a' (56 bytes) to cluster node #2 ...
     [14:17:29.751] - Condition #395: 'simpleMessage', 'message', 'condition'
     [14:17:29.136] Exporting 'a' (56 bytes) to cluster node #2 ... DONE
     [14:17:29.752] - Condition #396: 'simpleMessage', 'message', 'condition'
     [14:17:29.140] Exporting 'plan_a' (64.45 KiB) to cluster node #2 ...
     [14:17:29.752] - Condition #397: 'simpleMessage', 'message', 'condition'
     [14:17:29.184] Exporting 'plan_a' (64.45 KiB) to cluster node #2 ... DONE
     [14:17:29.753] - Condition #398: 'simpleMessage', 'message', 'condition'
     [14:17:29.185] Exporting 3 global objects (64.62 KiB) to cluster node #2 ... DONE
     [14:17:29.754] - Condition #399: 'simpleMessage', 'message', 'condition'
     [14:17:29.187] ClusterFuture started
     [14:17:29.754] - Condition #400: 'simpleMessage', 'message', 'condition'
     [14:17:29.188] Chunk #2 of 2 ... DONE
     [14:17:29.755] - Condition #401: 'simpleMessage', 'message', 'condition'
     [14:17:29.188] Launching 2 futures (chunks) ... DONE
     [14:17:29.756] - Condition #402: 'simpleMessage', 'message', 'condition'
     [14:17:29.189] - resolving futures
     [14:17:29.757] - Condition #403: 'simpleMessage', 'message', 'condition'
     [14:17:29.190] - gathering results & relaying conditions (except errors)
     [14:17:29.757] - Condition #404: 'simpleMessage', 'message', 'condition'
     [14:17:29.190] resolve() on list ...
     [14:17:29.758] - Condition #405: 'simpleMessage', 'message', 'condition'
     [14:17:29.191] recursive: 0
     [14:17:29.759] - Condition #406: 'simpleMessage', 'message', 'condition'
     [14:17:29.192] length: 2
     [14:17:29.759] - Condition #407: 'simpleMessage', 'message', 'condition'
     [14:17:29.192]
     [14:17:29.760] - Condition #408: 'simpleMessage', 'message', 'condition'
     [14:17:29.195] receiveMessageFromWorker() for ClusterFuture ...
     [14:17:29.761] - Condition #409: 'simpleMessage', 'message', 'condition'
     [14:17:29.196] - Validating connection of ClusterFuture
     [14:17:29.761] - Condition #410: 'simpleMessage', 'message', 'condition'
     [14:17:29.197] - received message: FutureResult
     [14:17:29.762] - Condition #411: 'simpleMessage', 'message', 'condition'
     [14:17:29.198] - Received FutureResult
     [14:17:29.762] - Condition #412: 'simpleMessage', 'message', 'condition'
     [14:17:29.198] - Erased future from FutureRegistry
     [14:17:29.763] - Condition #413: 'simpleMessage', 'message', 'condition'
     [14:17:29.199] result() for ClusterFuture ...
     [14:17:29.764] - Condition #414: 'simpleMessage', 'message', 'condition'
     [14:17:29.200] - result already collected: FutureResult
     [14:17:29.764] - Condition #415: 'simpleMessage', 'message', 'condition'
     [14:17:29.201] result() for ClusterFuture ... done
     [14:17:29.765] - Condition #416: 'simpleMessage', 'message', 'condition'
     [14:17:29.201] signalConditions() ...
     [14:17:29.766] - Condition #417: 'simpleMessage', 'message', 'condition'
     [14:17:29.202] - include = 'immediateCondition'
     [14:17:29.766] - Condition #418: 'simpleMessage', 'message', 'condition'
     [14:17:29.203] - exclude =
     [14:17:29.767] - Condition #419: 'simpleMessage', 'message', 'condition'
     [14:17:29.203] - resignal = FALSE
     [14:17:29.768] - Condition #420: 'simpleMessage', 'message', 'condition'
     [14:17:29.204] - Number of conditions: 1
     [14:17:29.768] - Condition #421: 'simpleMessage', 'message', 'condition'
     [14:17