Running ‘cluster-missing-doFuture-pkg.R’ [1s/4s]
  Running ‘doRNG,dopar.R’ [2s/5s]
  Running ‘doRNG,dorng.R’ [5s/14s]
  Running ‘foreach,errors.R’ [4s/16s]
  Running ‘foreach,globals.R’ [5s/20s]
  Running ‘foreach,nested.R’ [4s/23s]
  Running ‘foreach,nested_dopar.R’ [8s/19s]
  Running ‘foreach.R’ [2s/7s]
  Running ‘makeChunks.R’ [4s/7s]
  Running ‘options.R’ [2s/7s]
  Running ‘registerDoFuture.R’ [1s/5s]
  Running ‘times.R’ [2s/7s]
  Running ‘utils.R’ [1s/1s]
  Running ‘zzz,BiocParallel.R’ [1s/1s]
  Running ‘zzz_opt-in,NMF,examples.R’ [0s/1s]
  Running ‘zzz_opt-in,TSP,examples.R’ [0s/1s]
  Running ‘zzz_opt-in,caret,examples.R’ [0s/1s]
  Running ‘zzz_opt-in,foreach,examples.R’ [0s/0s]
  Running ‘zzz_opt-in,future.BatchJobs.R’ [1s/1s]
  Running ‘zzz_opt-in,future.batchtools.R’ [1s/1s]
  Running ‘zzz_opt-in,glmnet,examples.R’ [0s/0s]
  Running ‘zzz_opt-in,plyr,examples.R’ [0s/1s]
  Running ‘zzz_opt-in,plyr.R’ [1s/1s]
Running the tests in ‘tests/foreach,nested_dopar.R’ failed.
Complete output:
  > source("incl/start.R")
  Loading required package: foreach
  Loading required package: future
  [14:55:39.126] plan(): Setting new future strategy stack:
  [14:55:39.127] List of future strategies:
  [14:55:39.127] 1. sequential:
  [14:55:39.127]    - args: function (..., envir = parent.frame())
  [14:55:39.127]    - tweaked: FALSE
  [14:55:39.127]    - call: future::plan(future::sequential)
  [14:55:39.237] plan(): nbrOfWorkers() = 1
  R Under development (unstable) (2021-11-16 r81199)
  Platform: x86_64-pc-linux-gnu (64-bit)
  Running under: Debian GNU/Linux bookworm/sid
  
  Matrix products: default
  BLAS:   /home/hornik/tmp/R.check/r-devel-gcc/Work/build/lib/libRblas.so
  LAPACK: /home/hornik/tmp/R.check/r-devel-gcc/Work/build/lib/libRlapack.so
  
  locale:
   [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C              
   [3] LC_TIME=en_US.UTF-8        LC_COLLATE=C              
   [5] LC_MONETARY=en_US.UTF-8    LC_MESSAGES=en_US.UTF-8   
   [7] LC_PAPER=en_US.UTF-8       LC_NAME=C                 
   [9] LC_ADDRESS=C               LC_TELEPHONE=C            
  [11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C       
  
  attached base packages:
  [1] stats     graphics  grDevices utils     datasets  methods   base     
  
  other attached packages:
  [1] doFuture_0.12.0 future_1.23.0   foreach_1.5.1  
  
  loaded via a namespace (and not attached):
  [1] compiler_4.2.0    parallelly_1.28.1 tools_4.2.0       parallel_4.2.0   
  [5] listenv_0.8.0     codetools_0.2-18  iterators_1.0.13  digest_0.6.28    
  [9] globals_0.14.0   
  > 
  > 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:55:39.265] doFuture() ...
  [14:55:39.267] - dummy globals (as locals): [1] 'j'
  [14:55:39.268] - R expression:
  [14:55:39.269] {
  [14:55:39.269]     doFuture::registerDoFuture()
  [14:55:39.269]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:39.269]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:39.269]         j <- NULL
  [14:55:39.269]         ...future.env <- environment()
  [14:55:39.269]         local({
  [14:55:39.269]             for (name in names(...future.x_jj)) {
  [14:55:39.269]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:39.269]                   inherits = FALSE)
  [14:55:39.269]             }
  [14:55:39.269]         })
  [14:55:39.269]         tryCatch({
  [14:55:39.269]             j
  [14:55:39.269]         }, error = identity)
  [14:55:39.269]     })
  [14:55:39.269] }
  [14:55:39.269] - identifying globals and packages ...
  [14:55:39.271] getGlobalsAndPackages() ...
  [14:55:39.272] Searching for globals...
  [14:55:39.332] - globals found: [14] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'identity'
  [14:55:39.333] Searching for globals ... DONE
  [14:55:39.333] Resolving globals: FALSE
  [14:55:39.335] The total size of the 1 globals is 0 bytes (0 bytes)
  [14:55:39.337] The total size of the 1 globals exported for future expression ('{; doFuture::registerDoFuture(); lapply(seq_along(...future.x_ii), FUN = function(jj) {; ...future.x_jj <- ...future.x_ii[[jj]]; j <- NULL; ...future.env <- environment(); ...; }, error = identity); }); }') is 0 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: '...future.x_ii' (0 bytes of class 'NULL')
  [14:55:39.337] - globals: [1] '...future.x_ii'
  [14:55:39.337] 
  [14:55:39.337] getGlobalsAndPackages() ... DONE
  [14:55:39.338] List of 1
  [14:55:39.338]  $ ...future.x_ii: NULL
  [14:55:39.338]  - attr(*, "where")=List of 1
  [14:55:39.338]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:39.338]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:39.338]  - attr(*, "resolved")= logi FALSE
  [14:55:39.338]  - attr(*, "total_size")= num 0
  [14:55:39.366]   - R expression:
  [14:55:39.366] {
  [14:55:39.366]     doFuture::registerDoFuture()
  [14:55:39.366]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:39.366]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:39.366]         j <- NULL
  [14:55:39.366]         ...future.env <- environment()
  [14:55:39.366]         local({
  [14:55:39.366]             for (name in names(...future.x_jj)) {
  [14:55:39.366]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:39.366]                   inherits = FALSE)
  [14:55:39.366]             }
  [14:55:39.366]         })
  [14:55:39.366]         tryCatch({
  [14:55:39.366]             j
  [14:55:39.366]         }, error = identity)
  [14:55:39.366]     })
  [14:55:39.366] }
  [14:55:39.367]   - globals: [1] '...future.x_ii'
  [14:55:39.367] List of 1
  [14:55:39.367]  $ ...future.x_ii: NULL
  [14:55:39.367]  - attr(*, "where")=List of 1
  [14:55:39.367]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:39.367]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:39.367]  - attr(*, "resolved")= logi FALSE
  [14:55:39.367]  - attr(*, "total_size")= num 0
  [14:55:39.372]   - packages: [1] 'doFuture'
  [14:55:39.372] - identifying globals and packages ... DONE
  [14:55:39.373] Number of chunks: 1
  [14:55:39.373] Number of futures (= number of chunks): 1
  [14:55:39.374] Launching 1 futures (chunks) ...
  [14:55:39.374] Chunk #1 of 1 ...
  [14:55:39.374]  - Finding globals in 'args_list' chunk #1 ...
  [14:55:39.374] getGlobalsAndPackages() ...
  [14:55:39.374] Searching for globals...
  [14:55:39.375] 
  [14:55:39.375] Searching for globals ... DONE
  [14:55:39.376] - globals: [0] <none>
  [14:55:39.376] getGlobalsAndPackages() ... DONE
  [14:55:39.376] 
  [14:55:39.376] 
  [14:55:39.377]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:55:39.377] getGlobalsAndPackages() ...
  [14:55:39.377] - globals passed as-is: [1] '...future.x_ii'
  [14:55:39.378] Resolving globals: FALSE
  [14:55:39.378] - globals: [1] '...future.x_ii'
  [14:55:39.378] 
  [14:55:39.378] getGlobalsAndPackages() ... DONE
  [14:55:39.379] run() for 'Future' ...
  [14:55:39.380] - state: 'created'
  [14:55:39.380] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:55:39.381] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:55:39.381] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:55:39.382]   - Field: 'label'
  [14:55:39.382]   - Field: 'local'
  [14:55:39.382]   - Field: 'owner'
  [14:55:39.382]   - Field: 'envir'
  [14:55:39.383]   - Field: 'packages'
  [14:55:39.383]   - Field: 'gc'
  [14:55:39.383]   - Field: 'conditions'
  [14:55:39.383]   - Field: 'persistent'
  [14:55:39.383]   - Field: 'expr'
  [14:55:39.384]   - Field: 'uuid'
  [14:55:39.384]   - Field: 'seed'
  [14:55:39.384]   - Field: 'version'
  [14:55:39.384]   - Field: 'result'
  [14:55:39.385]   - Field: 'asynchronous'
  [14:55:39.385]   - Field: 'calls'
  [14:55:39.385]   - Field: 'globals'
  [14:55:39.385]   - Field: 'stdout'
  [14:55:39.386]   - Field: 'earlySignal'
  [14:55:39.386]   - Field: 'lazy'
  [14:55:39.386]   - Field: 'state'
  [14:55:39.386] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:55:39.387] - Launch lazy future ...
  [14:55:39.388] Packages needed by the future expression (n = 1): 'doFuture'
  [14:55:39.389] Packages needed by future strategies (n = 0): <none>
  [14:55:39.390] {
  [14:55:39.390]     {
  [14:55:39.390]         ...future.startTime <- base::Sys.time()
  [14:55:39.390]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:55:39.390]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:55:39.390]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:55:39.390]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:55:39.390]             future.resolve.recursive = NULL, future.rng.onMisuse = NULL, 
  [14:55:39.390]             future.rng.onMisuse.keepFuture = NULL, future.stdout.windows.reencode = NULL, 
  [14:55:39.390]             width = 80L)
  [14:55:39.390]         {
  [14:55:39.390]             {
  [14:55:39.390]                 {
  [14:55:39.390]                   base::local({
  [14:55:39.390]                     has_future <- base::requireNamespace("future", 
  [14:55:39.390]                       quietly = TRUE)
  [14:55:39.390]                     if (has_future) {
  [14:55:39.390]                       ns <- base::getNamespace("future")
  [14:55:39.390]                       version <- ns[[".package"]][["version"]]
  [14:55:39.390]                       if (is.null(version)) 
  [14:55:39.390]                         version <- utils::packageVersion("future")
  [14:55:39.390]                     }
  [14:55:39.390]                     else {
  [14:55:39.390]                       version <- NULL
  [14:55:39.390]                     }
  [14:55:39.390]                     if (!has_future || version < "1.8.0") {
  [14:55:39.390]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:55:39.390]                         "", base::R.version$version.string), 
  [14:55:39.390]                         platform = base::sprintf("%s (%s-bit)", 
  [14:55:39.390]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:55:39.390]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:55:39.390]                           "release", "version")], collapse = " "), 
  [14:55:39.390]                         hostname = base::Sys.info()[["nodename"]])
  [14:55:39.390]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:55:39.390]                         info)
  [14:55:39.390]                       info <- base::paste(info, collapse = "; ")
  [14:55:39.390]                       if (!has_future) {
  [14:55:39.390]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:55:39.390]                           info)
  [14:55:39.390]                       }
  [14:55:39.390]                       else {
  [14:55:39.390]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:55:39.390]                           info, version)
  [14:55:39.390]                       }
  [14:55:39.390]                       base::stop(msg)
  [14:55:39.390]                     }
  [14:55:39.390]                   })
  [14:55:39.390]                 }
  [14:55:39.390]                 base::local({
  [14:55:39.390]                   for (pkg in "doFuture") {
  [14:55:39.390]                     base::loadNamespace(pkg)
  [14:55:39.390]                     base::library(pkg, character.only = TRUE)
  [14:55:39.390]                   }
  [14:55:39.390]                 })
  [14:55:39.390]             }
  [14:55:39.390]             options(future.plan = NULL)
  [14:55:39.390]             Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:39.390]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:55:39.390]         }
  [14:55:39.390]     }
  [14:55:39.390]     if (FALSE) {
  [14:55:39.390]     }
  [14:55:39.390]     else {
  [14:55:39.390]         if (TRUE) {
  [14:55:39.390]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:55:39.390]                 open = "w")
  [14:55:39.390]         }
  [14:55:39.390]         else {
  [14:55:39.390]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:55:39.390]                 windows = "NUL", "/dev/null"), open = "w")
  [14:55:39.390]         }
  [14:55:39.390]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:55:39.390]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:55:39.390]             base::sink(type = "output", split = FALSE)
  [14:55:39.390]             base::close(...future.stdout)
  [14:55:39.390]         }, add = TRUE)
  [14:55:39.390]     }
  [14:55:39.390]     ...future.frame <- base::sys.nframe()
  [14:55:39.390]     ...future.conditions <- base::list()
  [14:55:39.390]     ...future.rng <- base::globalenv()$.Random.seed
  [14:55:39.390]     ...future.result <- base::tryCatch({
  [14:55:39.390]         base::withCallingHandlers({
  [14:55:39.390]             ...future.value <- base::withVisible(base::local({
  [14:55:39.390]                 doFuture::registerDoFuture()
  [14:55:39.390]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:39.390]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:39.390]                   j <- NULL
  [14:55:39.390]                   ...future.env <- environment()
  [14:55:39.390]                   local({
  [14:55:39.390]                     for (name in names(...future.x_jj)) {
  [14:55:39.390]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:39.390]                         inherits = FALSE)
  [14:55:39.390]                     }
  [14:55:39.390]                   })
  [14:55:39.390]                   tryCatch({
  [14:55:39.390]                     j
  [14:55:39.390]                   }, error = identity)
  [14:55:39.390]                 })
  [14:55:39.390]             }))
  [14:55:39.390]             future::FutureResult(value = ...future.value$value, 
  [14:55:39.390]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:39.390]                   ...future.rng), started = ...future.startTime, 
  [14:55:39.390]                 version = "1.8")
  [14:55:39.390]         }, condition = base::local({
  [14:55:39.390]             c <- base::c
  [14:55:39.390]             inherits <- base::inherits
  [14:55:39.390]             invokeRestart <- base::invokeRestart
  [14:55:39.390]             length <- base::length
  [14:55:39.390]             list <- base::list
  [14:55:39.390]             seq.int <- base::seq.int
  [14:55:39.390]             signalCondition <- base::signalCondition
  [14:55:39.390]             sys.calls <- base::sys.calls
  [14:55:39.390]             `[[` <- base::`[[`
  [14:55:39.390]             `+` <- base::`+`
  [14:55:39.390]             `<<-` <- base::`<<-`
  [14:55:39.390]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:55:39.390]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:55:39.390]                   3L)]
  [14:55:39.390]             }
  [14:55:39.390]             function(cond) {
  [14:55:39.390]                 is_error <- inherits(cond, "error")
  [14:55:39.390]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:55:39.390]                   NULL)
  [14:55:39.390]                 if (is_error) {
  [14:55:39.390]                   sessionInformation <- function() {
  [14:55:39.390]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:55:39.390]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:55:39.390]                       search = base::search(), system = base::Sys.info())
  [14:55:39.390]                   }
  [14:55:39.390]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:39.390]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:55:39.390]                     cond$call), session = sessionInformation(), 
  [14:55:39.390]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:55:39.390]                   signalCondition(cond)
  [14:55:39.390]                 }
  [14:55:39.390]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:55:39.390]                 "immediateCondition"))) {
  [14:55:39.390]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:55:39.390]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:39.390]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:55:39.390]                   if (TRUE && !signal) {
  [14:55:39.390]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:39.390]                     {
  [14:55:39.390]                       inherits <- base::inherits
  [14:55:39.390]                       invokeRestart <- base::invokeRestart
  [14:55:39.390]                       is.null <- base::is.null
  [14:55:39.390]                       muffled <- FALSE
  [14:55:39.390]                       if (inherits(cond, "message")) {
  [14:55:39.390]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:39.390]                         if (muffled) 
  [14:55:39.390]                           invokeRestart("muffleMessage")
  [14:55:39.390]                       }
  [14:55:39.390]                       else if (inherits(cond, "warning")) {
  [14:55:39.390]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:39.390]                         if (muffled) 
  [14:55:39.390]                           invokeRestart("muffleWarning")
  [14:55:39.390]                       }
  [14:55:39.390]                       else if (inherits(cond, "condition")) {
  [14:55:39.390]                         if (!is.null(pattern)) {
  [14:55:39.390]                           computeRestarts <- base::computeRestarts
  [14:55:39.390]                           grepl <- base::grepl
  [14:55:39.390]                           restarts <- computeRestarts(cond)
  [14:55:39.390]                           for (restart in restarts) {
  [14:55:39.390]                             name <- restart$name
  [14:55:39.390]                             if (is.null(name)) 
  [14:55:39.390]                               next
  [14:55:39.390]                             if (!grepl(pattern, name)) 
  [14:55:39.390]                               next
  [14:55:39.390]                             invokeRestart(restart)
  [14:55:39.390]                             muffled <- TRUE
  [14:55:39.390]                             break
  [14:55:39.390]                           }
  [14:55:39.390]                         }
  [14:55:39.390]                       }
  [14:55:39.390]                       invisible(muffled)
  [14:55:39.390]                     }
  [14:55:39.390]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:39.390]                   }
  [14:55:39.390]                 }
  [14:55:39.390]                 else {
  [14:55:39.390]                   if (TRUE) {
  [14:55:39.390]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:39.390]                     {
  [14:55:39.390]                       inherits <- base::inherits
  [14:55:39.390]                       invokeRestart <- base::invokeRestart
  [14:55:39.390]                       is.null <- base::is.null
  [14:55:39.390]                       muffled <- FALSE
  [14:55:39.390]                       if (inherits(cond, "message")) {
  [14:55:39.390]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:39.390]                         if (muffled) 
  [14:55:39.390]                           invokeRestart("muffleMessage")
  [14:55:39.390]                       }
  [14:55:39.390]                       else if (inherits(cond, "warning")) {
  [14:55:39.390]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:39.390]                         if (muffled) 
  [14:55:39.390]                           invokeRestart("muffleWarning")
  [14:55:39.390]                       }
  [14:55:39.390]                       else if (inherits(cond, "condition")) {
  [14:55:39.390]                         if (!is.null(pattern)) {
  [14:55:39.390]                           computeRestarts <- base::computeRestarts
  [14:55:39.390]                           grepl <- base::grepl
  [14:55:39.390]                           restarts <- computeRestarts(cond)
  [14:55:39.390]                           for (restart in restarts) {
  [14:55:39.390]                             name <- restart$name
  [14:55:39.390]                             if (is.null(name)) 
  [14:55:39.390]                               next
  [14:55:39.390]                             if (!grepl(pattern, name)) 
  [14:55:39.390]                               next
  [14:55:39.390]                             invokeRestart(restart)
  [14:55:39.390]                             muffled <- TRUE
  [14:55:39.390]                             break
  [14:55:39.390]                           }
  [14:55:39.390]                         }
  [14:55:39.390]                       }
  [14:55:39.390]                       invisible(muffled)
  [14:55:39.390]                     }
  [14:55:39.390]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:39.390]                   }
  [14:55:39.390]                 }
  [14:55:39.390]             }
  [14:55:39.390]         }))
  [14:55:39.390]     }, error = function(ex) {
  [14:55:39.390]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:55:39.390]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:39.390]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:55:39.390]     }, finally = {
  [14:55:39.390]         {
  [14:55:39.390]             {
  [14:55:39.390]                 NULL
  [14:55:39.390]                 RNGkind("Mersenne-Twister")
  [14:55:39.390]                 base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:55:39.390]                   inherits = FALSE)
  [14:55:39.390]             }
  [14:55:39.390]             options(future.plan = NULL)
  [14:55:39.390]             if (is.na(NA_character_)) 
  [14:55:39.390]                 Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:39.390]             else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:55:39.390]             future::plan(list(function (..., envir = parent.frame()) 
  [14:55:39.390]             {
  [14:55:39.390]                 future <- SequentialFuture(..., envir = envir)
  [14:55:39.390]                 if (!future$lazy) 
  [14:55:39.390]                   future <- run(future)
  [14:55:39.390]                 invisible(future)
  [14:55:39.390]             }), .cleanup = FALSE, .init = FALSE)
  [14:55:39.390]         }
  [14:55:39.390]         base::options(...future.oldOptions)
  [14:55:39.390]     })
  [14:55:39.390]     if (TRUE) {
  [14:55:39.390]         base::sink(type = "output", split = FALSE)
  [14:55:39.390]         if (TRUE) {
  [14:55:39.390]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:55:39.390]         }
  [14:55:39.390]         else {
  [14:55:39.390]             ...future.result["stdout"] <- base::list(NULL)
  [14:55:39.390]         }
  [14:55:39.390]         base::close(...future.stdout)
  [14:55:39.390]         ...future.stdout <- NULL
  [14:55:39.390]     }
  [14:55:39.390]     ...future.result$conditions <- ...future.conditions
  [14:55:39.390]     ...future.result
  [14:55:39.390] }
  [14:55:39.394] assign_globals() ...
  [14:55:39.394] List of 1
  [14:55:39.394]  $ ...future.x_ii:List of 1
  [14:55:39.394]   ..$ :List of 1
  [14:55:39.394]   .. ..$ j: num 1
  [14:55:39.394]  - attr(*, "where")=List of 1
  [14:55:39.394]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:39.394]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:39.394]  - attr(*, "resolved")= logi FALSE
  [14:55:39.394]  - attr(*, "total_size")= num 0
  [14:55:39.394]  - attr(*, "already-done")= logi TRUE
  [14:55:39.400] - copied '...future.x_ii' to environment
  [14:55:39.401] List of 1
  [14:55:39.401]  $ ...future.x_ii:List of 1
  [14:55:39.401]   ..$ :List of 1
  [14:55:39.401]   .. ..$ j: num 1
  [14:55:39.401]  - attr(*, "where")=List of 1
  [14:55:39.401]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:39.401]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:39.401]  - attr(*, "resolved")= logi FALSE
  [14:55:39.401]  - attr(*, "total_size")= num 0
  [14:55:39.401]  - attr(*, "already-done")= logi TRUE
  [14:55:39.411] assign_globals() ... done
  [14:55:39.412] plan(): Setting new future strategy stack:
  [14:55:39.413] List of future strategies:
  [14:55:39.413] 1. sequential:
  [14:55:39.413]    - args: function (..., envir = parent.frame())
  [14:55:39.413]    - tweaked: FALSE
  [14:55:39.413]    - call: NULL
  [14:55:39.413] plan(): nbrOfWorkers() = 1
  [14:55:39.415] plan(): Setting new future strategy stack:
  [14:55:39.415] List of future strategies:
  [14:55:39.415] 1. sequential:
  [14:55:39.415]    - args: function (..., envir = parent.frame())
  [14:55:39.415]    - tweaked: FALSE
  [14:55:39.415]    - call: future::plan(future::sequential)
  [14:55:39.416] plan(): nbrOfWorkers() = 1
  [14:55:39.416] SequentialFuture started (and completed)
  [14:55:39.417] - Launch lazy future ... done
  [14:55:39.418] run() for 'SequentialFuture' ... done
  [14:55:39.418] Chunk #1 of 1 ... DONE
  [14:55:39.418] Launching 1 futures (chunks) ... DONE
  [14:55:39.418] - resolving futures
  [14:55:39.419]   - gathering results & relaying conditions (except errors)
  [14:55:39.419] resolve() on list ...
  [14:55:39.420]  recursive: 0
  [14:55:39.420]  length: 1
  [14:55:39.421] 
  [14:55:39.421] resolved() for 'SequentialFuture' ...
  [14:55:39.421] - state: 'finished'
  [14:55:39.422] - run: TRUE
  [14:55:39.422] - result: 'FutureResult'
  [14:55:39.422] resolved() for 'SequentialFuture' ... done
  [14:55:39.422] Future #1
  [14:55:39.423] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:55:39.423] - nx: 1
  [14:55:39.424] - relay: TRUE
  [14:55:39.424] - stdout: TRUE
  [14:55:39.424] - signal: TRUE
  [14:55:39.424] - resignal: FALSE
  [14:55:39.425] - force: FALSE
  [14:55:39.425] - relayed: [n=1] FALSE
  [14:55:39.425] - queued futures: [n=1] FALSE
  [14:55:39.425]  - until=1
  [14:55:39.425]  - relaying element #1
  [14:55:39.426] - relayed: [n=1] TRUE
  [14:55:39.426] - queued futures: [n=1] TRUE
  [14:55:39.426] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:55:39.427]  length: 0 (resolved future 1)
  [14:55:39.427] Relaying remaining futures
  [14:55:39.427] signalConditionsASAP(NULL, pos=0) ...
  [14:55:39.428] - nx: 1
  [14:55:39.428] - relay: TRUE
  [14:55:39.428] - stdout: TRUE
  [14:55:39.428] - signal: TRUE
  [14:55:39.429] - resignal: FALSE
  [14:55:39.429] - force: FALSE
  [14:55:39.429] - relayed: [n=1] TRUE
  [14:55:39.429] - queued futures: [n=1] TRUE
   - flush all
  [14:55:39.429] - relayed: [n=1] TRUE
  [14:55:39.430] - queued futures: [n=1] TRUE
  [14:55:39.430] signalConditionsASAP(NULL, pos=0) ... done
  [14:55:39.430] resolve() on list ... DONE
  [14:55:39.430] - collecting values of futures
  [14:55:39.431] - accumulating results
  [14:55:39.433] - processing errors (handler = 'stop')
  [14:55:39.433] - extracting results
  [14:55:39.433] 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:55:39.435] doFuture() ...
  [14:55:39.435] - dummy globals (as locals): [1] 'i'
  [14:55:39.436] - R expression:
  [14:55:39.436] {
  [14:55:39.436]     doFuture::registerDoFuture()
  [14:55:39.436]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:39.436]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:39.436]         i <- NULL
  [14:55:39.436]         ...future.env <- environment()
  [14:55:39.436]         local({
  [14:55:39.436]             for (name in names(...future.x_jj)) {
  [14:55:39.436]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:39.436]                   inherits = FALSE)
  [14:55:39.436]             }
  [14:55:39.436]         })
  [14:55:39.436]         tryCatch({
  [14:55:39.436]             foreach(j = 1) %dopar% {
  [14:55:39.436]                 j
  [14:55:39.436]             }
  [14:55:39.436]         }, error = identity)
  [14:55:39.436]     })
  [14:55:39.436] }
  [14:55:39.437] - identifying globals and packages ...
  [14:55:39.437] getGlobalsAndPackages() ...
  [14:55:39.437] Searching for globals...
  [14:55:39.450] - globals found: [17] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', '%dopar%', 'foreach', 'j', 'identity'
  [14:55:39.450] Searching for globals ... DONE
  [14:55:39.450] Resolving globals: FALSE
  [14:55:39.452] The total size of the 1 globals is 0 bytes (0 bytes)
  [14:55:39.452] The total size of the 1 globals exported for future expression ('{; doFuture::registerDoFuture(); lapply(seq_along(...future.x_ii), FUN = function(jj) {; ...future.x_jj <- ...future.x_ii[[jj]]; i <- NULL; ...future.env <- environment(); ...; }, error = identity); }); }') is 0 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: '...future.x_ii' (0 bytes of class 'NULL')
  [14:55:39.453] - globals: [1] '...future.x_ii'
  [14:55:39.453] - packages: [1] 'foreach'
  [14:55:39.453] getGlobalsAndPackages() ... DONE
  [14:55:39.454] List of 1
  [14:55:39.454]  $ ...future.x_ii: NULL
  [14:55:39.454]  - attr(*, "where")=List of 1
  [14:55:39.454]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:39.454]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:39.454]  - attr(*, "resolved")= logi FALSE
  [14:55:39.454]  - attr(*, "total_size")= num 0
  [14:55:39.462]   - R expression:
  [14:55:39.462] {
  [14:55:39.462]     doFuture::registerDoFuture()
  [14:55:39.462]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:39.462]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:39.462]         i <- NULL
  [14:55:39.462]         ...future.env <- environment()
  [14:55:39.462]         local({
  [14:55:39.462]             for (name in names(...future.x_jj)) {
  [14:55:39.462]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:39.462]                   inherits = FALSE)
  [14:55:39.462]             }
  [14:55:39.462]         })
  [14:55:39.462]         tryCatch({
  [14:55:39.462]             foreach(j = 1) %dopar% {
  [14:55:39.462]                 j
  [14:55:39.462]             }
  [14:55:39.462]         }, error = identity)
  [14:55:39.462]     })
  [14:55:39.462] }
  [14:55:39.463]   - globals: [1] '...future.x_ii'
  [14:55:39.463] List of 1
  [14:55:39.463]  $ ...future.x_ii: NULL
  [14:55:39.463]  - attr(*, "where")=List of 1
  [14:55:39.463]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:39.463]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:39.463]  - attr(*, "resolved")= logi FALSE
  [14:55:39.463]  - attr(*, "total_size")= num 0
  [14:55:39.467]   - packages: [2] 'doFuture', 'foreach'
  [14:55:39.467] - identifying globals and packages ... DONE
  [14:55:39.468] Number of chunks: 1
  [14:55:39.468] Number of futures (= number of chunks): 1
  [14:55:39.468] Launching 1 futures (chunks) ...
  [14:55:39.468] Chunk #1 of 1 ...
  [14:55:39.469]  - Finding globals in 'args_list' chunk #1 ...
  [14:55:39.469] getGlobalsAndPackages() ...
  [14:55:39.469] Searching for globals...
  [14:55:39.470] 
  [14:55:39.470] Searching for globals ... DONE
  [14:55:39.470] - globals: [0] <none>
  [14:55:39.470] getGlobalsAndPackages() ... DONE
  [14:55:39.470] 
  [14:55:39.471] 
  [14:55:39.471]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:55:39.471] getGlobalsAndPackages() ...
  [14:55:39.471] - globals passed as-is: [1] '...future.x_ii'
  [14:55:39.471] Resolving globals: FALSE
  [14:55:39.472] - globals: [1] '...future.x_ii'
  [14:55:39.472] 
  [14:55:39.472] getGlobalsAndPackages() ... DONE
  [14:55:39.473] run() for 'Future' ...
  [14:55:39.473] - state: 'created'
  [14:55:39.473] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:55:39.474] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:55:39.474] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:55:39.474]   - Field: 'label'
  [14:55:39.475]   - Field: 'local'
  [14:55:39.475]   - Field: 'owner'
  [14:55:39.475]   - Field: 'envir'
  [14:55:39.475]   - Field: 'packages'
  [14:55:39.475]   - Field: 'gc'
  [14:55:39.476]   - Field: 'conditions'
  [14:55:39.476]   - Field: 'persistent'
  [14:55:39.476]   - Field: 'expr'
  [14:55:39.476]   - Field: 'uuid'
  [14:55:39.476]   - Field: 'seed'
  [14:55:39.477]   - Field: 'version'
  [14:55:39.477]   - Field: 'result'
  [14:55:39.477]   - Field: 'asynchronous'
  [14:55:39.477]   - Field: 'calls'
  [14:55:39.477]   - Field: 'globals'
  [14:55:39.478]   - Field: 'stdout'
  [14:55:39.478]   - Field: 'earlySignal'
  [14:55:39.478]   - Field: 'lazy'
  [14:55:39.478]   - Field: 'state'
  [14:55:39.479] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:55:39.479] - Launch lazy future ...
  [14:55:39.480] Packages needed by the future expression (n = 2): 'doFuture', 'foreach'
  [14:55:39.480] Packages needed by future strategies (n = 0): <none>
  [14:55:39.481] {
  [14:55:39.481]     {
  [14:55:39.481]         ...future.startTime <- base::Sys.time()
  [14:55:39.481]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:55:39.481]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:55:39.481]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:55:39.481]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:55:39.481]             future.resolve.recursive = NULL, future.rng.onMisuse = NULL, 
  [14:55:39.481]             future.rng.onMisuse.keepFuture = NULL, future.stdout.windows.reencode = NULL, 
  [14:55:39.481]             width = 80L)
  [14:55:39.481]         {
  [14:55:39.481]             {
  [14:55:39.481]                 {
  [14:55:39.481]                   base::local({
  [14:55:39.481]                     has_future <- base::requireNamespace("future", 
  [14:55:39.481]                       quietly = TRUE)
  [14:55:39.481]                     if (has_future) {
  [14:55:39.481]                       ns <- base::getNamespace("future")
  [14:55:39.481]                       version <- ns[[".package"]][["version"]]
  [14:55:39.481]                       if (is.null(version)) 
  [14:55:39.481]                         version <- utils::packageVersion("future")
  [14:55:39.481]                     }
  [14:55:39.481]                     else {
  [14:55:39.481]                       version <- NULL
  [14:55:39.481]                     }
  [14:55:39.481]                     if (!has_future || version < "1.8.0") {
  [14:55:39.481]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:55:39.481]                         "", base::R.version$version.string), 
  [14:55:39.481]                         platform = base::sprintf("%s (%s-bit)", 
  [14:55:39.481]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:55:39.481]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:55:39.481]                           "release", "version")], collapse = " "), 
  [14:55:39.481]                         hostname = base::Sys.info()[["nodename"]])
  [14:55:39.481]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:55:39.481]                         info)
  [14:55:39.481]                       info <- base::paste(info, collapse = "; ")
  [14:55:39.481]                       if (!has_future) {
  [14:55:39.481]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:55:39.481]                           info)
  [14:55:39.481]                       }
  [14:55:39.481]                       else {
  [14:55:39.481]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:55:39.481]                           info, version)
  [14:55:39.481]                       }
  [14:55:39.481]                       base::stop(msg)
  [14:55:39.481]                     }
  [14:55:39.481]                   })
  [14:55:39.481]                 }
  [14:55:39.481]                 base::local({
  [14:55:39.481]                   for (pkg in c("doFuture", "foreach")) {
  [14:55:39.481]                     base::loadNamespace(pkg)
  [14:55:39.481]                     base::library(pkg, character.only = TRUE)
  [14:55:39.481]                   }
  [14:55:39.481]                 })
  [14:55:39.481]             }
  [14:55:39.481]             options(future.plan = NULL)
  [14:55:39.481]             Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:39.481]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:55:39.481]         }
  [14:55:39.481]     }
  [14:55:39.481]     if (FALSE) {
  [14:55:39.481]     }
  [14:55:39.481]     else {
  [14:55:39.481]         if (TRUE) {
  [14:55:39.481]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:55:39.481]                 open = "w")
  [14:55:39.481]         }
  [14:55:39.481]         else {
  [14:55:39.481]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:55:39.481]                 windows = "NUL", "/dev/null"), open = "w")
  [14:55:39.481]         }
  [14:55:39.481]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:55:39.481]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:55:39.481]             base::sink(type = "output", split = FALSE)
  [14:55:39.481]             base::close(...future.stdout)
  [14:55:39.481]         }, add = TRUE)
  [14:55:39.481]     }
  [14:55:39.481]     ...future.frame <- base::sys.nframe()
  [14:55:39.481]     ...future.conditions <- base::list()
  [14:55:39.481]     ...future.rng <- base::globalenv()$.Random.seed
  [14:55:39.481]     ...future.result <- base::tryCatch({
  [14:55:39.481]         base::withCallingHandlers({
  [14:55:39.481]             ...future.value <- base::withVisible(base::local({
  [14:55:39.481]                 doFuture::registerDoFuture()
  [14:55:39.481]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:39.481]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:39.481]                   i <- NULL
  [14:55:39.481]                   ...future.env <- environment()
  [14:55:39.481]                   local({
  [14:55:39.481]                     for (name in names(...future.x_jj)) {
  [14:55:39.481]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:39.481]                         inherits = FALSE)
  [14:55:39.481]                     }
  [14:55:39.481]                   })
  [14:55:39.481]                   tryCatch({
  [14:55:39.481]                     foreach(j = 1) %dopar% {
  [14:55:39.481]                       j
  [14:55:39.481]                     }
  [14:55:39.481]                   }, error = identity)
  [14:55:39.481]                 })
  [14:55:39.481]             }))
  [14:55:39.481]             future::FutureResult(value = ...future.value$value, 
  [14:55:39.481]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:39.481]                   ...future.rng), started = ...future.startTime, 
  [14:55:39.481]                 version = "1.8")
  [14:55:39.481]         }, condition = base::local({
  [14:55:39.481]             c <- base::c
  [14:55:39.481]             inherits <- base::inherits
  [14:55:39.481]             invokeRestart <- base::invokeRestart
  [14:55:39.481]             length <- base::length
  [14:55:39.481]             list <- base::list
  [14:55:39.481]             seq.int <- base::seq.int
  [14:55:39.481]             signalCondition <- base::signalCondition
  [14:55:39.481]             sys.calls <- base::sys.calls
  [14:55:39.481]             `[[` <- base::`[[`
  [14:55:39.481]             `+` <- base::`+`
  [14:55:39.481]             `<<-` <- base::`<<-`
  [14:55:39.481]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:55:39.481]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:55:39.481]                   3L)]
  [14:55:39.481]             }
  [14:55:39.481]             function(cond) {
  [14:55:39.481]                 is_error <- inherits(cond, "error")
  [14:55:39.481]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:55:39.481]                   NULL)
  [14:55:39.481]                 if (is_error) {
  [14:55:39.481]                   sessionInformation <- function() {
  [14:55:39.481]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:55:39.481]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:55:39.481]                       search = base::search(), system = base::Sys.info())
  [14:55:39.481]                   }
  [14:55:39.481]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:39.481]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:55:39.481]                     cond$call), session = sessionInformation(), 
  [14:55:39.481]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:55:39.481]                   signalCondition(cond)
  [14:55:39.481]                 }
  [14:55:39.481]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:55:39.481]                 "immediateCondition"))) {
  [14:55:39.481]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:55:39.481]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:39.481]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:55:39.481]                   if (TRUE && !signal) {
  [14:55:39.481]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:39.481]                     {
  [14:55:39.481]                       inherits <- base::inherits
  [14:55:39.481]                       invokeRestart <- base::invokeRestart
  [14:55:39.481]                       is.null <- base::is.null
  [14:55:39.481]                       muffled <- FALSE
  [14:55:39.481]                       if (inherits(cond, "message")) {
  [14:55:39.481]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:39.481]                         if (muffled) 
  [14:55:39.481]                           invokeRestart("muffleMessage")
  [14:55:39.481]                       }
  [14:55:39.481]                       else if (inherits(cond, "warning")) {
  [14:55:39.481]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:39.481]                         if (muffled) 
  [14:55:39.481]                           invokeRestart("muffleWarning")
  [14:55:39.481]                       }
  [14:55:39.481]                       else if (inherits(cond, "condition")) {
  [14:55:39.481]                         if (!is.null(pattern)) {
  [14:55:39.481]                           computeRestarts <- base::computeRestarts
  [14:55:39.481]                           grepl <- base::grepl
  [14:55:39.481]                           restarts <- computeRestarts(cond)
  [14:55:39.481]                           for (restart in restarts) {
  [14:55:39.481]                             name <- restart$name
  [14:55:39.481]                             if (is.null(name)) 
  [14:55:39.481]                               next
  [14:55:39.481]                             if (!grepl(pattern, name)) 
  [14:55:39.481]                               next
  [14:55:39.481]                             invokeRestart(restart)
  [14:55:39.481]                             muffled <- TRUE
  [14:55:39.481]                             break
  [14:55:39.481]                           }
  [14:55:39.481]                         }
  [14:55:39.481]                       }
  [14:55:39.481]                       invisible(muffled)
  [14:55:39.481]                     }
  [14:55:39.481]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:39.481]                   }
  [14:55:39.481]                 }
  [14:55:39.481]                 else {
  [14:55:39.481]                   if (TRUE) {
  [14:55:39.481]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:39.481]                     {
  [14:55:39.481]                       inherits <- base::inherits
  [14:55:39.481]                       invokeRestart <- base::invokeRestart
  [14:55:39.481]                       is.null <- base::is.null
  [14:55:39.481]                       muffled <- FALSE
  [14:55:39.481]                       if (inherits(cond, "message")) {
  [14:55:39.481]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:39.481]                         if (muffled) 
  [14:55:39.481]                           invokeRestart("muffleMessage")
  [14:55:39.481]                       }
  [14:55:39.481]                       else if (inherits(cond, "warning")) {
  [14:55:39.481]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:39.481]                         if (muffled) 
  [14:55:39.481]                           invokeRestart("muffleWarning")
  [14:55:39.481]                       }
  [14:55:39.481]                       else if (inherits(cond, "condition")) {
  [14:55:39.481]                         if (!is.null(pattern)) {
  [14:55:39.481]                           computeRestarts <- base::computeRestarts
  [14:55:39.481]                           grepl <- base::grepl
  [14:55:39.481]                           restarts <- computeRestarts(cond)
  [14:55:39.481]                           for (restart in restarts) {
  [14:55:39.481]                             name <- restart$name
  [14:55:39.481]                             if (is.null(name)) 
  [14:55:39.481]                               next
  [14:55:39.481]                             if (!grepl(pattern, name)) 
  [14:55:39.481]                               next
  [14:55:39.481]                             invokeRestart(restart)
  [14:55:39.481]                             muffled <- TRUE
  [14:55:39.481]                             break
  [14:55:39.481]                           }
  [14:55:39.481]                         }
  [14:55:39.481]                       }
  [14:55:39.481]                       invisible(muffled)
  [14:55:39.481]                     }
  [14:55:39.481]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:39.481]                   }
  [14:55:39.481]                 }
  [14:55:39.481]             }
  [14:55:39.481]         }))
  [14:55:39.481]     }, error = function(ex) {
  [14:55:39.481]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:55:39.481]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:39.481]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:55:39.481]     }, finally = {
  [14:55:39.481]         {
  [14:55:39.481]             {
  [14:55:39.481]                 NULL
  [14:55:39.481]                 RNGkind("Mersenne-Twister")
  [14:55:39.481]                 base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:55:39.481]                   inherits = FALSE)
  [14:55:39.481]             }
  [14:55:39.481]             options(future.plan = NULL)
  [14:55:39.481]             if (is.na(NA_character_)) 
  [14:55:39.481]                 Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:39.481]             else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:55:39.481]             future::plan(list(function (..., envir = parent.frame()) 
  [14:55:39.481]             {
  [14:55:39.481]                 future <- SequentialFuture(..., envir = envir)
  [14:55:39.481]                 if (!future$lazy) 
  [14:55:39.481]                   future <- run(future)
  [14:55:39.481]                 invisible(future)
  [14:55:39.481]             }), .cleanup = FALSE, .init = FALSE)
  [14:55:39.481]         }
  [14:55:39.481]         base::options(...future.oldOptions)
  [14:55:39.481]     })
  [14:55:39.481]     if (TRUE) {
  [14:55:39.481]         base::sink(type = "output", split = FALSE)
  [14:55:39.481]         if (TRUE) {
  [14:55:39.481]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:55:39.481]         }
  [14:55:39.481]         else {
  [14:55:39.481]             ...future.result["stdout"] <- base::list(NULL)
  [14:55:39.481]         }
  [14:55:39.481]         base::close(...future.stdout)
  [14:55:39.481]         ...future.stdout <- NULL
  [14:55:39.481]     }
  [14:55:39.481]     ...future.result$conditions <- ...future.conditions
  [14:55:39.481]     ...future.result
  [14:55:39.481] }
  [14:55:39.484] assign_globals() ...
  [14:55:39.485] List of 1
  [14:55:39.485]  $ ...future.x_ii:List of 1
  [14:55:39.485]   ..$ :List of 1
  [14:55:39.485]   .. ..$ i: num 1
  [14:55:39.485]  - attr(*, "where")=List of 1
  [14:55:39.485]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:39.485]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:39.485]  - attr(*, "resolved")= logi FALSE
  [14:55:39.485]  - attr(*, "total_size")= num 0
  [14:55:39.485]  - attr(*, "already-done")= logi TRUE
  [14:55:39.491] - copied '...future.x_ii' to environment
  [14:55:39.492] List of 1
  [14:55:39.492]  $ ...future.x_ii:List of 1
  [14:55:39.492]   ..$ :List of 1
  [14:55:39.492]   .. ..$ i: num 1
  [14:55:39.492]  - attr(*, "where")=List of 1
  [14:55:39.492]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:39.492]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:39.492]  - attr(*, "resolved")= logi FALSE
  [14:55:39.492]  - attr(*, "total_size")= num 0
  [14:55:39.492]  - attr(*, "already-done")= logi TRUE
  [14:55:39.498] assign_globals() ... done
  [14:55:39.499] plan(): Setting new future strategy stack:
  [14:55:39.499] List of future strategies:
  [14:55:39.499] 1. sequential:
  [14:55:39.499]    - args: function (..., envir = parent.frame())
  [14:55:39.499]    - tweaked: FALSE
  [14:55:39.499]    - call: NULL
  [14:55:39.500] plan(): nbrOfWorkers() = 1
  [14:55:39.692] plan(): Setting new future strategy stack:
  [14:55:39.693] List of future strategies:
  [14:55:39.693] 1. sequential:
  [14:55:39.693]    - args: function (..., envir = parent.frame())
  [14:55:39.693]    - tweaked: FALSE
  [14:55:39.693]    - call: future::plan(future::sequential)
  [14:55:39.694] plan(): nbrOfWorkers() = 1
  [14:55:39.694] SequentialFuture started (and completed)
  [14:55:39.694] signalConditions() ...
  [14:55:39.694]  - include = 'immediateCondition'
  [14:55:39.695]  - exclude = 
  [14:55:39.695]  - resignal = FALSE
  [14:55:39.695]  - Number of conditions: 135
  [14:55:39.696] signalConditions() ... done
  [14:55:39.696] - Launch lazy future ... done
  [14:55:39.696] run() for 'SequentialFuture' ... done
  [14:55:39.712] Chunk #1 of 1 ... DONE
  [14:55:39.712] Launching 1 futures (chunks) ... DONE
  [14:55:39.713] - resolving futures
  [14:55:39.713]   - gathering results & relaying conditions (except errors)
  [14:55:39.713] resolve() on list ...
  [14:55:39.713]  recursive: 0
  [14:55:39.713]  length: 1
  [14:55:39.714] 
  [14:55:39.714] resolved() for 'SequentialFuture' ...
  [14:55:39.714] - state: 'finished'
  [14:55:39.714] - run: TRUE
  [14:55:39.715] - result: 'FutureResult'
  [14:55:39.715] resolved() for 'SequentialFuture' ... done
  [14:55:39.715] Future #1
  [14:55:39.715] signalConditions() ...
  [14:55:39.715]  - include = 'immediateCondition'
  [14:55:39.716]  - exclude = 
  [14:55:39.716]  - resignal = FALSE
  [14:55:39.716]  - Number of conditions: 135
  [14:55:39.717] signalConditions() ... done
  [14:55:39.717] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:55:39.717] - nx: 1
  [14:55:39.717] - relay: TRUE
  [14:55:39.717] - stdout: TRUE
  [14:55:39.718] - signal: TRUE
  [14:55:39.718] - resignal: FALSE
  [14:55:39.718] - force: FALSE
  [14:55:39.718] - relayed: [n=1] FALSE
  [14:55:39.718] - queued futures: [n=1] FALSE
  [14:55:39.719]  - until=1
  [14:55:39.719]  - relaying element #1
  [14:55:39.719] signalConditions() ...
  [14:55:39.719]  - include = 'immediateCondition'
  [14:55:39.719]  - exclude = 
  [14:55:39.720]  - resignal = FALSE
  [14:55:39.720]  - Number of conditions: 135
  [14:55:39.721] signalConditions() ... done
  [14:55:39.721] signalConditions() ...
  [14:55:39.721]  - include = 'immediateCondition'
  [14:55:39.721]  - exclude = 
  [14:55:39.721]  - resignal = FALSE
  [14:55:39.722]  - Number of conditions: 135
  [14:55:39.722] signalConditions() ... done
  [14:55:39.722] signalConditions() ...
  [14:55:39.723]  - include = 'condition'
  [14:55:39.723]  - exclude = 'immediateCondition'
  [14:55:39.723]  - resignal = FALSE
  [14:55:39.723]  - Number of conditions: 135
  [14:55:39.723]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:55:39.501] doFuture() ...
  [14:55:39.724]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:55:39.502] - dummy globals (as locals): [1] 'j'
  [14:55:39.724]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:55:39.543] - R expression:
  [14:55:39.724]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [14:55:39.543] {
  [14:55:39.543]     doFuture::registerDoFuture()
  [14:55:39.543]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:39.543]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:39.543]         j <- NULL
  [14:55:39.543]         ...future.env <- environment()
  [14:55:39.543]         local({
  [14:55:39.543]             for (name in names(...future.x_jj)) {
  [14:55:39.543]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:39.543]                   inherits = FALSE)
  [14:55:39.543]             }
  [14:55:39.543]         })
  [14:55:39.543]         tryCatch({
  [14:55:39.543]             j
  [14:55:39.543]         }, error = identity)
  [14:55:39.543]     })
  [14:55:39.543] }
  [14:55:39.725]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [14:55:39.544] - identifying globals and packages ...
  [14:55:39.725]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [14:55:39.544] getGlobalsAndPackages() ...
  [14:55:39.725]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [14:55:39.545] Searching for globals...
  [14:55:39.725]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [14:55:39.561] - globals found: [14] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'identity'
  [14:55:39.726]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [14:55:39.561] Searching for globals ... DONE
  [14:55:39.726]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [14:55:39.561] Resolving globals: FALSE
  [14:55:39.726]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [14:55:39.563] The total size of the 1 globals is 0 bytes (0 bytes)
  [14:55:39.727]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [14:55:39.564] The total size of the 1 globals exported for future expression ('{; doFuture::registerDoFuture(); lapply(seq_along(...future.x_ii), FUN = function(jj) {; ...future.x_jj <- ...future.x_ii[[jj]]; j <- NULL; ...future.env <- environment(); ...; }, error = identity); }); }') is 0 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: '...future.x_ii' (0 bytes of class 'NULL')
  [14:55:39.727]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [14:55:39.564] - globals: [1] '...future.x_ii'
  [14:55:39.727]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [14:55:39.564] 
  [14:55:39.727]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [14:55:39.565] getGlobalsAndPackages() ... DONE
  [14:55:39.728]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [14:55:39.565] List of 1
  [14:55:39.565]  $ ...future.x_ii: NULL
  [14:55:39.565]  - attr(*, "where")=List of 1
  [14:55:39.565]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:39.565]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:39.565]  - attr(*, "resolved")= logi FALSE
  [14:55:39.565]  - attr(*, "total_size")= num 0
  [14:55:39.728]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [14:55:39.570]   - R expression:
  [14:55:39.728]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [14:55:39.570] {
  [14:55:39.570]     doFuture::registerDoFuture()
  [14:55:39.570]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:39.570]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:39.570]         j <- NULL
  [14:55:39.570]         ...future.env <- environment()
  [14:55:39.570]         local({
  [14:55:39.570]             for (name in names(...future.x_jj)) {
  [14:55:39.570]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:39.570]                   inherits = FALSE)
  [14:55:39.570]             }
  [14:55:39.570]         })
  [14:55:39.570]         tryCatch({
  [14:55:39.570]             j
  [14:55:39.570]         }, error = identity)
  [14:55:39.570]     })
  [14:55:39.570] }
  [14:55:39.729]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [14:55:39.571]   - globals: [1] '...future.x_ii'
  [14:55:39.729]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [14:55:39.571] List of 1
  [14:55:39.571]  $ ...future.x_ii: NULL
  [14:55:39.571]  - attr(*, "where")=List of 1
  [14:55:39.571]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:39.571]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:39.571]  - attr(*, "resolved")= logi FALSE
  [14:55:39.571]  - attr(*, "total_size")= num 0
  [14:55:39.729]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [14:55:39.577]   - packages: [1] 'doFuture'
  [14:55:39.730]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [14:55:39.577] - identifying globals and packages ... DONE
  [14:55:39.730]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [14:55:39.578] Number of chunks: 1
  [14:55:39.730]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [14:55:39.578] Number of futures (= number of chunks): 1
  [14:55:39.730]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [14:55:39.578] Launching 1 futures (chunks) ...
  [14:55:39.731]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [14:55:39.579] Chunk #1 of 1 ...
  [14:55:39.731]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [14:55:39.579]  - Finding globals in 'args_list' chunk #1 ...
  [14:55:39.731]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [14:55:39.579] getGlobalsAndPackages() ...
  [14:55:39.732]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [14:55:39.579] Searching for globals...
  [14:55:39.732]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [14:55:39.580] 
  [14:55:39.732]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [14:55:39.580] Searching for globals ... DONE
  [14:55:39.732]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [14:55:39.581] - globals: [0] <none>
  [14:55:39.733]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [14:55:39.581] getGlobalsAndPackages() ... DONE
  [14:55:39.733]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [14:55:39.581] 
  [14:55:39.733]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [14:55:39.581] 
  [14:55:39.734]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [14:55:39.582]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:55:39.734]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [14:55:39.582] getGlobalsAndPackages() ...
  [14:55:39.734]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [14:55:39.582] - globals passed as-is: [1] '...future.x_ii'
  [14:55:39.734]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [14:55:39.583] Resolving globals: FALSE
  [14:55:39.735]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [14:55:39.583] - globals: [1] '...future.x_ii'
  [14:55:39.735]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [14:55:39.583] 
  [14:55:39.735]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [14:55:39.584] getGlobalsAndPackages() ... DONE
  [14:55:39.736]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [14:55:39.584] run() for 'Future' ...
  [14:55:39.736]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [14:55:39.585] - state: 'created'
  [14:55:39.752]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [14:55:39.585] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:55:39.753]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [14:55:39.586] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:55:39.753]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [14:55:39.586] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:55:39.757]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [14:55:39.586]   - Field: 'label'
  [14:55:39.757]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [14:55:39.586]   - Field: 'local'
  [14:55:39.757]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [14:55:39.587]   - Field: 'owner'
  [14:55:39.758]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [14:55:39.587]   - Field: 'envir'
  [14:55:39.758]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [14:55:39.587]   - Field: 'packages'
  [14:55:39.758]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [14:55:39.588]   - Field: 'gc'
  [14:55:39.758]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [14:55:39.588]   - Field: 'conditions'
  [14:55:39.759]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [14:55:39.588]   - Field: 'persistent'
  [14:55:39.759]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [14:55:39.612]   - Field: 'expr'
  [14:55:39.759]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [14:55:39.613]   - Field: 'uuid'
  [14:55:39.760]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [14:55:39.613]   - Field: 'seed'
  [14:55:39.760]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [14:55:39.613]   - Field: 'version'
  [14:55:39.760]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [14:55:39.613]   - Field: 'result'
  [14:55:39.760]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [14:55:39.614]   - Field: 'asynchronous'
  [14:55:39.761]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [14:55:39.614]   - Field: 'calls'
  [14:55:39.761]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [14:55:39.614]   - Field: 'globals'
  [14:55:39.761]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [14:55:39.614]   - Field: 'stdout'
  [14:55:39.762]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [14:55:39.615]   - Field: 'earlySignal'
  [14:55:39.762]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [14:55:39.615]   - Field: 'lazy'
  [14:55:39.762]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [14:55:39.615]   - Field: 'state'
  [14:55:39.762]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [14:55:39.616] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:55:39.763]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [14:55:39.616] - Launch lazy future ...
  [14:55:39.763]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [14:55:39.616] Packages needed by the future expression (n = 1): 'doFuture'
  [14:55:39.763]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [14:55:39.617] Packages needed by future strategies (n = 0): <none>
  [14:55:39.764]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [14:55:39.618] {
  [14:55:39.618]     {
  [14:55:39.618]         ...future.startTime <- base::Sys.time()
  [14:55:39.618]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:55:39.618]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:55:39.618]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:55:39.618]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:55:39.618]             future.resolve.recursive = NULL, future.rng.onMisuse = NULL, 
  [14:55:39.618]             future.rng.onMisuse.keepFuture = NULL, future.stdout.windows.reencode = NULL, 
  [14:55:39.618]             width = 80L)
  [14:55:39.618]         {
  [14:55:39.618]             {
  [14:55:39.618]                 {
  [14:55:39.618]                   base::local({
  [14:55:39.618]                     has_future <- base::requireNamespace("future", 
  [14:55:39.618]                       quietly = TRUE)
  [14:55:39.618]                     if (has_future) {
  [14:55:39.618]                       ns <- base::getNamespace("future")
  [14:55:39.618]                       version <- ns[[".package"]][["version"]]
  [14:55:39.618]                       if (is.null(version)) 
  [14:55:39.618]                         version <- utils::packageVersion("future")
  [14:55:39.618]                     }
  [14:55:39.618]                     else {
  [14:55:39.618]                       version <- NULL
  [14:55:39.618]                     }
  [14:55:39.618]                     if (!has_future || version < "1.8.0") {
  [14:55:39.618]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:55:39.618]                         "", base::R.version$version.string), 
  [14:55:39.618]                         platform = base::sprintf("%s (%s-bit)", 
  [14:55:39.618]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:55:39.618]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:55:39.618]                           "release", "version")], collapse = " "), 
  [14:55:39.618]                         hostname = base::Sys.info()[["nodename"]])
  [14:55:39.618]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:55:39.618]                         info)
  [14:55:39.618]                       info <- base::paste(info, collapse = "; ")
  [14:55:39.618]                       if (!has_future) {
  [14:55:39.618]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:55:39.618]                           info)
  [14:55:39.618]                       }
  [14:55:39.618]                       else {
  [14:55:39.618]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:55:39.618]                           info, version)
  [14:55:39.618]                       }
  [14:55:39.618]                       base::stop(msg)
  [14:55:39.618]                     }
  [14:55:39.618]                   })
  [14:55:39.618]                 }
  [14:55:39.618]                 base::local({
  [14:55:39.618]                   for (pkg in "doFuture") {
  [14:55:39.618]                     base::loadNamespace(pkg)
  [14:55:39.618]                     base::library(pkg, character.only = TRUE)
  [14:55:39.618]                   }
  [14:55:39.618]                 })
  [14:55:39.618]             }
  [14:55:39.618]             options(future.plan = NULL)
  [14:55:39.618]             Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:39.618]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:55:39.618]         }
  [14:55:39.618]     }
  [14:55:39.618]     if (FALSE) {
  [14:55:39.618]     }
  [14:55:39.618]     else {
  [14:55:39.618]         if (TRUE) {
  [14:55:39.618]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:55:39.618]                 open = "w")
  [14:55:39.618]         }
  [14:55:39.618]         else {
  [14:55:39.618]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:55:39.618]                 windows = "NUL", "/dev/null"), open = "w")
  [14:55:39.618]         }
  [14:55:39.618]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:55:39.618]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:55:39.618]             base::sink(type = "output", split = FALSE)
  [14:55:39.618]             base::close(...future.stdout)
  [14:55:39.618]         }, add = TRUE)
  [14:55:39.618]     }
  [14:55:39.618]     ...future.frame <- base::sys.nframe()
  [14:55:39.618]     ...future.conditions <- base::list()
  [14:55:39.618]     ...future.rng <- base::globalenv()$.Random.seed
  [14:55:39.618]     ...future.result <- base::tryCatch({
  [14:55:39.618]         base::withCallingHandlers({
  [14:55:39.618]             ...future.value <- base::withVisible(base::local({
  [14:55:39.618]                 doFuture::registerDoFuture()
  [14:55:39.618]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:39.618]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:39.618]                   j <- NULL
  [14:55:39.618]                   ...future.env <- environment()
  [14:55:39.618]                   local({
  [14:55:39.618]                     for (name in names(...future.x_jj)) {
  [14:55:39.618]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:39.618]                         inherits = FALSE)
  [14:55:39.618]                     }
  [14:55:39.618]                   })
  [14:55:39.618]                   tryCatch({
  [14:55:39.618]                     j
  [14:55:39.618]                   }, error = identity)
  [14:55:39.618]                 })
  [14:55:39.618]             }))
  [14:55:39.618]             future::FutureResult(value = ...future.value$value, 
  [14:55:39.618]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:39.618]                   ...future.rng), started = ...future.startTime, 
  [14:55:39.618]                 version = "1.8")
  [14:55:39.618]         }, condition = base::local({
  [14:55:39.618]             c <- base::c
  [14:55:39.618]             inherits <- base::inherits
  [14:55:39.618]             invokeRestart <- base::invokeRestart
  [14:55:39.618]             length <- base::length
  [14:55:39.618]             list <- base::list
  [14:55:39.618]             seq.int <- base::seq.int
  [14:55:39.618]             signalCondition <- base::signalCondition
  [14:55:39.618]             sys.calls <- base::sys.calls
  [14:55:39.618]             `[[` <- base::`[[`
  [14:55:39.618]             `+` <- base::`+`
  [14:55:39.618]             `<<-` <- base::`<<-`
  [14:55:39.618]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:55:39.618]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:55:39.618]                   3L)]
  [14:55:39.618]             }
  [14:55:39.618]             function(cond) {
  [14:55:39.618]                 is_error <- inherits(cond, "error")
  [14:55:39.618]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:55:39.618]                   NULL)
  [14:55:39.618]                 if (is_error) {
  [14:55:39.618]                   sessionInformation <- function() {
  [14:55:39.618]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:55:39.618]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:55:39.618]                       search = base::search(), system = base::Sys.info())
  [14:55:39.618]                   }
  [14:55:39.618]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:39.618]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:55:39.618]                     cond$call), session = sessionInformation(), 
  [14:55:39.618]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:55:39.618]                   signalCondition(cond)
  [14:55:39.618]                 }
  [14:55:39.618]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:55:39.618]                 "immediateCondition"))) {
  [14:55:39.618]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:55:39.618]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:39.618]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:55:39.618]                   if (TRUE && !signal) {
  [14:55:39.618]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:39.618]                     {
  [14:55:39.618]                       inherits <- base::inherits
  [14:55:39.618]                       invokeRestart <- base::invokeRestart
  [14:55:39.618]                       is.null <- base::is.null
  [14:55:39.618]                       muffled <- FALSE
  [14:55:39.618]                       if (inherits(cond, "message")) {
  [14:55:39.618]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:39.618]                         if (muffled) 
  [14:55:39.618]                           invokeRestart("muffleMessage")
  [14:55:39.618]                       }
  [14:55:39.618]                       else if (inherits(cond, "warning")) {
  [14:55:39.618]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:39.618]                         if (muffled) 
  [14:55:39.618]                           invokeRestart("muffleWarning")
  [14:55:39.618]                       }
  [14:55:39.618]                       else if (inherits(cond, "condition")) {
  [14:55:39.618]                         if (!is.null(pattern)) {
  [14:55:39.618]                           computeRestarts <- base::computeRestarts
  [14:55:39.618]                           grepl <- base::grepl
  [14:55:39.618]                           restarts <- computeRestarts(cond)
  [14:55:39.618]                           for (restart in restarts) {
  [14:55:39.618]                             name <- restart$name
  [14:55:39.618]                             if (is.null(name)) 
  [14:55:39.618]                               next
  [14:55:39.618]                             if (!grepl(pattern, name)) 
  [14:55:39.618]                               next
  [14:55:39.618]                             invokeRestart(restart)
  [14:55:39.618]                             muffled <- TRUE
  [14:55:39.618]                             break
  [14:55:39.618]                           }
  [14:55:39.618]                         }
  [14:55:39.618]                       }
  [14:55:39.618]                       invisible(muffled)
  [14:55:39.618]                     }
  [14:55:39.618]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:39.618]                   }
  [14:55:39.618]                 }
  [14:55:39.618]                 else {
  [14:55:39.618]                   if (TRUE) {
  [14:55:39.618]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:39.618]                     {
  [14:55:39.618]                       inherits <- base::inherits
  [14:55:39.618]                       invokeRestart <- base::invokeRestart
  [14:55:39.618]                       is.null <- base::is.null
  [14:55:39.618]                       muffled <- FALSE
  [14:55:39.618]                       if (inherits(cond, "message")) {
  [14:55:39.618]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:39.618]                         if (muffled) 
  [14:55:39.618]                           invokeRestart("muffleMessage")
  [14:55:39.618]                       }
  [14:55:39.618]                       else if (inherits(cond, "warning")) {
  [14:55:39.618]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:39.618]                         if (muffled) 
  [14:55:39.618]                           invokeRestart("muffleWarning")
  [14:55:39.618]                       }
  [14:55:39.618]                       else if (inherits(cond, "condition")) {
  [14:55:39.618]                         if (!is.null(pattern)) {
  [14:55:39.618]                           computeRestarts <- base::computeRestarts
  [14:55:39.618]                           grepl <- base::grepl
  [14:55:39.618]                           restarts <- computeRestarts(cond)
  [14:55:39.618]                           for (restart in restarts) {
  [14:55:39.618]                             name <- restart$name
  [14:55:39.618]                             if (is.null(name)) 
  [14:55:39.618]                               next
  [14:55:39.618]                             if (!grepl(pattern, name)) 
  [14:55:39.618]                               next
  [14:55:39.618]                             invokeRestart(restart)
  [14:55:39.618]                             muffled <- TRUE
  [14:55:39.618]                             break
  [14:55:39.618]                           }
  [14:55:39.618]                         }
  [14:55:39.618]                       }
  [14:55:39.618]                       invisible(muffled)
  [14:55:39.618]                     }
  [14:55:39.618]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:39.618]                   }
  [14:55:39.618]                 }
  [14:55:39.618]             }
  [14:55:39.618]         }))
  [14:55:39.618]     }, error = function(ex) {
  [14:55:39.618]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:55:39.618]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:39.618]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:55:39.618]     }, finally = {
  [14:55:39.618]         {
  [14:55:39.618]             {
  [14:55:39.618]                 NULL
  [14:55:39.618]                 RNGkind("Mersenne-Twister")
  [14:55:39.618]                 base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:55:39.618]                   inherits = FALSE)
  [14:55:39.618]             }
  [14:55:39.618]             options(future.plan = NULL)
  [14:55:39.618]             if (is.na(NA_character_)) 
  [14:55:39.618]                 Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:39.618]             else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:55:39.618]             future::plan(list(function (..., envir = parent.frame()) 
  [14:55:39.618]             {
  [14:55:39.618]                 future <- SequentialFuture(..., envir = envir)
  [14:55:39.618]                 if (!future$lazy) 
  [14:55:39.618]                   future <- run(future)
  [14:55:39.618]                 invisible(future)
  [14:55:39.618]             }), .cleanup = FALSE, .init = FALSE)
  [14:55:39.618]         }
  [14:55:39.618]         base::options(...future.oldOptions)
  [14:55:39.618]     })
  [14:55:39.618]     if (TRUE) {
  [14:55:39.618]         base::sink(type = "output", split = FALSE)
  [14:55:39.618]         if (TRUE) {
  [14:55:39.618]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:55:39.618]         }
  [14:55:39.618]         else {
  [14:55:39.618]             ...future.result["stdout"] <- base::list(NULL)
  [14:55:39.618]         }
  [14:55:39.618]         base::close(...future.stdout)
  [14:55:39.618]         ...future.stdout <- NULL
  [14:55:39.618]     }
  [14:55:39.618]     ...future.result$conditions <- ...future.conditions
  [14:55:39.618]     ...future.result
  [14:55:39.618] }
  [14:55:39.764]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [14:55:39.620] assign_globals() ...
  [14:55:39.764]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [14:55:39.621] List of 1
  [14:55:39.621]  $ ...future.x_ii:List of 1
  [14:55:39.621]   ..$ :List of 1
  [14:55:39.621]   .. ..$ j: num 1
  [14:55:39.621]  - attr(*, "where")=List of 1
  [14:55:39.621]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:39.621]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:39.621]  - attr(*, "resolved")= logi FALSE
  [14:55:39.621]  - attr(*, "total_size")= num 0
  [14:55:39.621]  - attr(*, "already-done")= logi TRUE
  [14:55:39.765]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [14:55:39.627] - copied '...future.x_ii' to environment
  [14:55:39.765]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [14:55:39.627] List of 1
  [14:55:39.627]  $ ...future.x_ii:List of 1
  [14:55:39.627]   ..$ :List of 1
  [14:55:39.627]   .. ..$ j: num 1
  [14:55:39.627]  - attr(*, "where")=List of 1
  [14:55:39.627]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:39.627]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:39.627]  - attr(*, "resolved")= logi FALSE
  [14:55:39.627]  - attr(*, "total_size")= num 0
  [14:55:39.627]  - attr(*, "already-done")= logi TRUE
  [14:55:39.765]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [14:55:39.649] assign_globals() ... done
  [14:55:39.765]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [14:55:39.651] plan(): Setting new future strategy stack:
  [14:55:39.766]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [14:55:39.651] List of future strategies:
  [14:55:39.651] 1. sequential:
  [14:55:39.651]    - args: function (..., envir = parent.frame())
  [14:55:39.651]    - tweaked: FALSE
  [14:55:39.651]    - call: NULL
  [14:55:39.766]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [14:55:39.655] plan(): nbrOfWorkers() = 1
  [14:55:39.766]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [14:55:39.656] plan(): Setting new future strategy stack:
  [14:55:39.767]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [14:55:39.656] List of future strategies:
  [14:55:39.656] 1. sequential:
  [14:55:39.656]    - args: function (..., envir = parent.frame())
  [14:55:39.656]    - tweaked: FALSE
  [14:55:39.656]    - call: NULL
  [14:55:39.767]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [14:55:39.657] plan(): nbrOfWorkers() = 1
  [14:55:39.767]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [14:55:39.658] SequentialFuture started (and completed)
  [14:55:39.768]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [14:55:39.658] - Launch lazy future ... done
  [14:55:39.775]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [14:55:39.658] run() for 'SequentialFuture' ... done
  [14:55:39.776]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [14:55:39.659] Chunk #1 of 1 ... DONE
  [14:55:39.776]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [14:55:39.659] Launching 1 futures (chunks) ... DONE
  [14:55:39.776]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [14:55:39.659] - resolving futures
  [14:55:39.777]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [14:55:39.659]   - gathering results & relaying conditions (except errors)
  [14:55:39.777]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [14:55:39.660] resolve() on list ...
  [14:55:39.777]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [14:55:39.660]  recursive: 0
  [14:55:39.778]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [14:55:39.680]  length: 1
  [14:55:39.778]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [14:55:39.681] 
  [14:55:39.778]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [14:55:39.681] resolved() for 'SequentialFuture' ...
  [14:55:39.779]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [14:55:39.681] - state: 'finished'
  [14:55:39.779]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [14:55:39.682] - run: TRUE
  [14:55:39.779]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [14:55:39.682] - result: 'FutureResult'
  [14:55:39.779]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [14:55:39.682] resolved() for 'SequentialFuture' ... done
  [14:55:39.780]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [14:55:39.682] Future #1
  [14:55:39.780]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [14:55:39.683] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:55:39.780]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [14:55:39.683] - nx: 1
  [14:55:39.781]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [14:55:39.683] - relay: TRUE
  [14:55:39.781]  - Condition #104: 'simpleMessage', 'message', 'condition'
  [14:55:39.683] - stdout: TRUE
  [14:55:39.781]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [14:55:39.684] - signal: TRUE
  [14:55:39.782]  - Condition #106: 'simpleMessage', 'message', 'condition'
  [14:55:39.684] - resignal: FALSE
  [14:55:39.782]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [14:55:39.684] - force: FALSE
  [14:55:39.782]  - Condition #108: 'simpleMessage', 'message', 'condition'
  [14:55:39.684] - relayed: [n=1] FALSE
  [14:55:39.782]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [14:55:39.685] - queued futures: [n=1] FALSE
  [14:55:39.783]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [14:55:39.685]  - until=1
  [14:55:39.783]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [14:55:39.685]  - relaying element #1
  [14:55:39.783]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [14:55:39.686] - relayed: [n=1] TRUE
  [14:55:39.784]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [14:55:39.686] - queued futures: [n=1] TRUE
  [14:55:39.784]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [14:55:39.686] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:55:39.784]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [14:55:39.687]  length: 0 (resolved future 1)
  [14:55:39.785]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [14:55:39.687] Relaying remaining futures
  [14:55:39.785]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [14:55:39.687] signalConditionsASAP(NULL, pos=0) ...
  [14:55:39.785]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [14:55:39.687] - nx: 1
  [14:55:39.785]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [14:55:39.687] - relay: TRUE
  [14:55:39.786]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [14:55:39.688] - stdout: TRUE
  [14:55:39.786]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [14:55:39.688] - signal: TRUE
  [14:55:39.786]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [14:55:39.688] - resignal: FALSE
  [14:55:39.787]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [14:55:39.688] - force: FALSE
  [14:55:39.787]  - Condition #124: 'simpleMessage', 'message', 'condition'
  [14:55:39.689] - relayed: [n=1] TRUE
  [14:55:39.787]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [14:55:39.689] - queued futures: [n=1] TRUE
  [14:55:39.787]  - Condition #126: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:55:39.788]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [14:55:39.689] - relayed: [n=1] TRUE
  [14:55:39.788]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [14:55:39.690] - queued futures: [n=1] TRUE
  [14:55:39.788]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [14:55:39.690] signalConditionsASAP(NULL, pos=0) ... done
  [14:55:39.789]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [14:55:39.690] resolve() on list ... DONE
  [14:55:39.789]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [14:55:39.690] - collecting values of futures
  [14:55:39.789]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [14:55:39.691] - accumulating results
  [14:55:39.790]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [14:55:39.691] - processing errors (handler = 'stop')
  [14:55:39.790]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [14:55:39.692] - extracting results
  [14:55:39.790]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [14:55:39.692] doFuture() ... DONE
  [14:55:39.791] signalConditions() ... done
  [14:55:39.791] - relayed: [n=1] TRUE
  [14:55:39.791] - queued futures: [n=1] TRUE
  [14:55:39.791] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:55:39.792]  length: 0 (resolved future 1)
  [14:55:39.792] Relaying remaining futures
  [14:55:39.792] signalConditionsASAP(NULL, pos=0) ...
  [14:55:39.792] - nx: 1
  [14:55:39.793] - relay: TRUE
  [14:55:39.793] - stdout: TRUE
  [14:55:39.793] - signal: TRUE
  [14:55:39.793] - resignal: FALSE
  [14:55:39.793] - force: FALSE
  [14:55:39.793] - relayed: [n=1] TRUE
  [14:55:39.794] - queued futures: [n=1] TRUE
   - flush all
  [14:55:39.794] - relayed: [n=1] TRUE
  [14:55:39.794] - queued futures: [n=1] TRUE
  [14:55:39.794] signalConditionsASAP(NULL, pos=0) ... done
  [14:55:39.795] resolve() on list ... DONE
  [14:55:39.795] - collecting values of futures
  [14:55:39.795] signalConditions() ...
  [14:55:39.795]  - include = 'immediateCondition'
  [14:55:39.795]  - exclude = 
  [14:55:39.796]  - resignal = FALSE
  [14:55:39.796]  - Number of conditions: 135
  [14:55:39.796] signalConditions() ... done
  [14:55:39.796] - accumulating results
  [14:55:39.824] - processing errors (handler = 'stop')
  [14:55:39.825] - extracting results
  [14:55:39.825] 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:55:39.944] plan(): Setting new future strategy stack:
  [14:55:39.944] List of future strategies:
  [14:55:39.944] 1. sequential:
  [14:55:39.944]    - args: function (..., envir = parent.frame())
  [14:55:39.944]    - tweaked: FALSE
  [14:55:39.944]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:39.944] 2. sequential:
  [14:55:39.944]    - args: function (..., envir = parent.frame())
  [14:55:39.944]    - tweaked: FALSE
  [14:55:39.944]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:39.987] plan(): nbrOfWorkers() = 1
  foreach() - level 1 ...
  [14:55:39.987] doFuture() ...
  [14:55:39.988] - dummy globals (as locals): [1] 'a'
  [14:55:39.989] - R expression:
  [14:55:39.989] {
  [14:55:39.989]     doFuture::registerDoFuture()
  [14:55:39.989]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:39.989]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:39.989]         a <- NULL
  [14:55:39.989]         ...future.env <- environment()
  [14:55:39.989]         local({
  [14:55:39.989]             for (name in names(...future.x_jj)) {
  [14:55:39.989]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:39.989]                   inherits = FALSE)
  [14:55:39.989]             }
  [14:55:39.989]         })
  [14:55:39.989]         tryCatch({
  [14:55:39.989]             plan_list <- future::plan("next")
  [14:55:39.989]             stopifnot(inherits(plan_list, strategy2))
  [14:55:39.989]             plan_a <- future::plan("list")
  [14:55:39.989]             str(plan_a)
  [14:55:39.989]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:55:39.989]             message("foreach() - level 2 ...")
  [14:55:39.989]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:55:39.989]                 {
  [14:55:39.989]                   plan_list <- future::plan("next")
  [14:55:39.989]                   message(capture.output(print(plan_list)))
  [14:55:39.989]                   stopifnot(inherits(plan_list, "future"))
  [14:55:39.989]                   default <- getOption("future.plan", "sequential")
  [14:55:39.989]                   if (is.function(default)) 
  [14:55:39.989]                     default <- class(default)
  [14:55:39.989]                   stopifnot(inherits(plan_list, default))
  [14:55:39.989]                   plan_b <- future::plan("list")
  [14:55:39.989]                   str(plan_b)
  [14:55:39.989]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:39.989]                     inherits(plan_b[[1]], default))
  [14:55:39.989]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:39.989]                 }
  [14:55:39.989]             message("foreach() - level 2 ... DONE")
  [14:55:39.989]             y
  [14:55:39.989]         }, error = identity)
  [14:55:39.989]     })
  [14:55:39.989] }
  [14:55:39.990] - identifying globals and packages ...
  [14:55:39.990] getGlobalsAndPackages() ...
  [14:55:39.991] Retrieving 'add' globals ...
  [14:55:39.991] - 'add' globals retrieved: [2] 'bs', 'strategy2'
  [14:55:39.991] Retrieving 'add' globals ... DONE
  [14:55:39.992] Searching for globals...
  [14:55:40.068] - 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:55:40.069] Searching for globals ... DONE
  [14:55:40.069] Resolving globals: FALSE
  [14:55:40.072] The total size of the 3 globals is 184 bytes (184 bytes)
  [14:55:40.073] The total size of the 3 globals exported for future expression ('{; doFuture::registerDoFuture(); lapply(seq_along(...future.x_ii), FUN = function(jj) {; ...future.x_jj <- ...future.x_ii[[jj]]; a <- NULL; ...future.env <- environment(); ...; }, error = identity); }); }') is 184 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: 'strategy2' (120 bytes of class 'character'), 'bs' (64 bytes of class 'numeric') and '...future.x_ii' (0 bytes of class 'NULL')
  [14:55:40.073] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:55:40.074] - packages: [2] 'utils', 'foreach'
  [14:55:40.074] getGlobalsAndPackages() ... DONE
  [14:55:40.074] List of 3
  [14:55:40.074]  $ ...future.x_ii: NULL
  [14:55:40.074]  $ strategy2     : chr "sequential"
  [14:55:40.074]  $ bs            : int [1:3] 3 2 1
  [14:55:40.074]  - attr(*, "where")=List of 3
  [14:55:40.074]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:40.074]   ..$ strategy2     :<environment: R_EmptyEnv> 
  [14:55:40.074]   ..$ bs            :<environment: R_EmptyEnv> 
  [14:55:40.074]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:40.074]  - attr(*, "resolved")= logi FALSE
  [14:55:40.074]  - attr(*, "total_size")= num 184
  [14:55:40.082]   - R expression:
  [14:55:40.082] {
  [14:55:40.082]     doFuture::registerDoFuture()
  [14:55:40.082]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:40.082]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:40.082]         a <- NULL
  [14:55:40.082]         ...future.env <- environment()
  [14:55:40.082]         local({
  [14:55:40.082]             for (name in names(...future.x_jj)) {
  [14:55:40.082]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:40.082]                   inherits = FALSE)
  [14:55:40.082]             }
  [14:55:40.082]         })
  [14:55:40.082]         tryCatch({
  [14:55:40.082]             plan_list <- future::plan("next")
  [14:55:40.082]             stopifnot(inherits(plan_list, strategy2))
  [14:55:40.082]             plan_a <- future::plan("list")
  [14:55:40.082]             str(plan_a)
  [14:55:40.082]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:55:40.082]             message("foreach() - level 2 ...")
  [14:55:40.082]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:55:40.082]                 {
  [14:55:40.082]                   plan_list <- future::plan("next")
  [14:55:40.082]                   message(capture.output(print(plan_list)))
  [14:55:40.082]                   stopifnot(inherits(plan_list, "future"))
  [14:55:40.082]                   default <- getOption("future.plan", "sequential")
  [14:55:40.082]                   if (is.function(default)) 
  [14:55:40.082]                     default <- class(default)
  [14:55:40.082]                   stopifnot(inherits(plan_list, default))
  [14:55:40.082]                   plan_b <- future::plan("list")
  [14:55:40.082]                   str(plan_b)
  [14:55:40.082]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:40.082]                     inherits(plan_b[[1]], default))
  [14:55:40.082]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:40.082]                 }
  [14:55:40.082]             message("foreach() - level 2 ... DONE")
  [14:55:40.082]             y
  [14:55:40.082]         }, error = identity)
  [14:55:40.082]     })
  [14:55:40.082] }
  [14:55:40.083]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:55:40.083] List of 3
  [14:55:40.083]  $ ...future.x_ii: NULL
  [14:55:40.083]  $ strategy2     : chr "sequential"
  [14:55:40.083]  $ bs            : int [1:3] 3 2 1
  [14:55:40.083]  - attr(*, "where")=List of 3
  [14:55:40.083]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:40.083]   ..$ strategy2     :<environment: R_EmptyEnv> 
  [14:55:40.083]   ..$ bs            :<environment: R_EmptyEnv> 
  [14:55:40.083]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:40.083]  - attr(*, "resolved")= logi FALSE
  [14:55:40.083]  - attr(*, "total_size")= num 184
  [14:55:40.096]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [14:55:40.096] - identifying globals and packages ... DONE
  [14:55:40.096] Number of chunks: 1
  [14:55:40.097] Number of futures (= number of chunks): 1
  [14:55:40.097] Launching 1 futures (chunks) ...
  [14:55:40.097] Chunk #1 of 1 ...
  [14:55:40.097]  - Finding globals in 'args_list' chunk #1 ...
  [14:55:40.116] getGlobalsAndPackages() ...
  [14:55:40.116] Searching for globals...
  [14:55:40.117] 
  [14:55:40.117] Searching for globals ... DONE
  [14:55:40.117] - globals: [0] <none>
  [14:55:40.118] getGlobalsAndPackages() ... DONE
  [14:55:40.118] 
  [14:55:40.118] 
  [14:55:40.118]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:55:40.119] getGlobalsAndPackages() ...
  [14:55:40.119] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:55:40.119] Resolving globals: FALSE
  [14:55:40.120] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:55:40.120] 
  [14:55:40.120] getGlobalsAndPackages() ... DONE
  [14:55:40.121] run() for 'Future' ...
  [14:55:40.121] - state: 'created'
  [14:55:40.121] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:55:40.122] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:55:40.122] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:55:40.123]   - Field: 'label'
  [14:55:40.123]   - Field: 'local'
  [14:55:40.123]   - Field: 'owner'
  [14:55:40.123]   - Field: 'envir'
  [14:55:40.123]   - Field: 'packages'
  [14:55:40.124]   - Field: 'gc'
  [14:55:40.124]   - Field: 'conditions'
  [14:55:40.124]   - Field: 'persistent'
  [14:55:40.124]   - Field: 'expr'
  [14:55:40.125]   - Field: 'uuid'
  [14:55:40.125]   - Field: 'seed'
  [14:55:40.125]   - Field: 'version'
  [14:55:40.125]   - Field: 'result'
  [14:55:40.126]   - Field: 'asynchronous'
  [14:55:40.126]   - Field: 'calls'
  [14:55:40.126]   - Field: 'globals'
  [14:55:40.126]   - Field: 'stdout'
  [14:55:40.126]   - Field: 'earlySignal'
  [14:55:40.127]   - Field: 'lazy'
  [14:55:40.127]   - Field: 'state'
  [14:55:40.127] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:55:40.127] - Launch lazy future ...
  [14:55:40.128] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [14:55:40.128] Packages needed by future strategies (n = 1): 'future'
  [14:55:40.131] {
  [14:55:40.131]     {
  [14:55:40.131]         ...future.startTime <- base::Sys.time()
  [14:55:40.131]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:55:40.131]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:55:40.131]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:55:40.131]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:55:40.131]             future.resolve.recursive = NULL, future.rng.onMisuse = NULL, 
  [14:55:40.131]             future.rng.onMisuse.keepFuture = NULL, future.stdout.windows.reencode = NULL, 
  [14:55:40.131]             width = 80L)
  [14:55:40.131]         {
  [14:55:40.131]             {
  [14:55:40.131]                 {
  [14:55:40.131]                   base::local({
  [14:55:40.131]                     has_future <- base::requireNamespace("future", 
  [14:55:40.131]                       quietly = TRUE)
  [14:55:40.131]                     if (has_future) {
  [14:55:40.131]                       ns <- base::getNamespace("future")
  [14:55:40.131]                       version <- ns[[".package"]][["version"]]
  [14:55:40.131]                       if (is.null(version)) 
  [14:55:40.131]                         version <- utils::packageVersion("future")
  [14:55:40.131]                     }
  [14:55:40.131]                     else {
  [14:55:40.131]                       version <- NULL
  [14:55:40.131]                     }
  [14:55:40.131]                     if (!has_future || version < "1.8.0") {
  [14:55:40.131]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:55:40.131]                         "", base::R.version$version.string), 
  [14:55:40.131]                         platform = base::sprintf("%s (%s-bit)", 
  [14:55:40.131]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:55:40.131]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:55:40.131]                           "release", "version")], collapse = " "), 
  [14:55:40.131]                         hostname = base::Sys.info()[["nodename"]])
  [14:55:40.131]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:55:40.131]                         info)
  [14:55:40.131]                       info <- base::paste(info, collapse = "; ")
  [14:55:40.131]                       if (!has_future) {
  [14:55:40.131]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:55:40.131]                           info)
  [14:55:40.131]                       }
  [14:55:40.131]                       else {
  [14:55:40.131]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:55:40.131]                           info, version)
  [14:55:40.131]                       }
  [14:55:40.131]                       base::stop(msg)
  [14:55:40.131]                     }
  [14:55:40.131]                   })
  [14:55:40.131]                 }
  [14:55:40.131]                 base::local({
  [14:55:40.131]                   for (pkg in c("doFuture", "utils", "foreach", 
  [14:55:40.131]                   "future")) {
  [14:55:40.131]                     base::loadNamespace(pkg)
  [14:55:40.131]                     base::library(pkg, character.only = TRUE)
  [14:55:40.131]                   }
  [14:55:40.131]                 })
  [14:55:40.131]             }
  [14:55:40.131]             options(future.plan = NULL)
  [14:55:40.131]             Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:40.131]             future::plan(list(b = function (..., envir = parent.frame()) 
  [14:55:40.131]             {
  [14:55:40.131]                 future <- SequentialFuture(..., envir = envir)
  [14:55:40.131]                 if (!future$lazy) 
  [14:55:40.131]                   future <- run(future)
  [14:55:40.131]                 invisible(future)
  [14:55:40.131]             }), .cleanup = FALSE, .init = FALSE)
  [14:55:40.131]         }
  [14:55:40.131]     }
  [14:55:40.131]     if (FALSE) {
  [14:55:40.131]     }
  [14:55:40.131]     else {
  [14:55:40.131]         if (TRUE) {
  [14:55:40.131]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:55:40.131]                 open = "w")
  [14:55:40.131]         }
  [14:55:40.131]         else {
  [14:55:40.131]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:55:40.131]                 windows = "NUL", "/dev/null"), open = "w")
  [14:55:40.131]         }
  [14:55:40.131]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:55:40.131]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:55:40.131]             base::sink(type = "output", split = FALSE)
  [14:55:40.131]             base::close(...future.stdout)
  [14:55:40.131]         }, add = TRUE)
  [14:55:40.131]     }
  [14:55:40.131]     ...future.frame <- base::sys.nframe()
  [14:55:40.131]     ...future.conditions <- base::list()
  [14:55:40.131]     ...future.rng <- base::globalenv()$.Random.seed
  [14:55:40.131]     ...future.result <- base::tryCatch({
  [14:55:40.131]         base::withCallingHandlers({
  [14:55:40.131]             ...future.value <- base::withVisible(base::local({
  [14:55:40.131]                 doFuture::registerDoFuture()
  [14:55:40.131]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:40.131]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:40.131]                   a <- NULL
  [14:55:40.131]                   ...future.env <- environment()
  [14:55:40.131]                   local({
  [14:55:40.131]                     for (name in names(...future.x_jj)) {
  [14:55:40.131]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:40.131]                         inherits = FALSE)
  [14:55:40.131]                     }
  [14:55:40.131]                   })
  [14:55:40.131]                   tryCatch({
  [14:55:40.131]                     plan_list <- future::plan("next")
  [14:55:40.131]                     stopifnot(inherits(plan_list, strategy2))
  [14:55:40.131]                     plan_a <- future::plan("list")
  [14:55:40.131]                     str(plan_a)
  [14:55:40.131]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [14:55:40.131]                     message("foreach() - level 2 ...")
  [14:55:40.131]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:55:40.131]                       {
  [14:55:40.131]                         plan_list <- future::plan("next")
  [14:55:40.131]                         message(capture.output(print(plan_list)))
  [14:55:40.131]                         stopifnot(inherits(plan_list, "future"))
  [14:55:40.131]                         default <- getOption("future.plan", "sequential")
  [14:55:40.131]                         if (is.function(default)) 
  [14:55:40.131]                           default <- class(default)
  [14:55:40.131]                         stopifnot(inherits(plan_list, default))
  [14:55:40.131]                         plan_b <- future::plan("list")
  [14:55:40.131]                         str(plan_b)
  [14:55:40.131]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:40.131]                           inherits(plan_b[[1]], default))
  [14:55:40.131]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:40.131]                       }
  [14:55:40.131]                     message("foreach() - level 2 ... DONE")
  [14:55:40.131]                     y
  [14:55:40.131]                   }, error = identity)
  [14:55:40.131]                 })
  [14:55:40.131]             }))
  [14:55:40.131]             future::FutureResult(value = ...future.value$value, 
  [14:55:40.131]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:40.131]                   ...future.rng), started = ...future.startTime, 
  [14:55:40.131]                 version = "1.8")
  [14:55:40.131]         }, condition = base::local({
  [14:55:40.131]             c <- base::c
  [14:55:40.131]             inherits <- base::inherits
  [14:55:40.131]             invokeRestart <- base::invokeRestart
  [14:55:40.131]             length <- base::length
  [14:55:40.131]             list <- base::list
  [14:55:40.131]             seq.int <- base::seq.int
  [14:55:40.131]             signalCondition <- base::signalCondition
  [14:55:40.131]             sys.calls <- base::sys.calls
  [14:55:40.131]             `[[` <- base::`[[`
  [14:55:40.131]             `+` <- base::`+`
  [14:55:40.131]             `<<-` <- base::`<<-`
  [14:55:40.131]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:55:40.131]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:55:40.131]                   3L)]
  [14:55:40.131]             }
  [14:55:40.131]             function(cond) {
  [14:55:40.131]                 is_error <- inherits(cond, "error")
  [14:55:40.131]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:55:40.131]                   NULL)
  [14:55:40.131]                 if (is_error) {
  [14:55:40.131]                   sessionInformation <- function() {
  [14:55:40.131]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:55:40.131]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:55:40.131]                       search = base::search(), system = base::Sys.info())
  [14:55:40.131]                   }
  [14:55:40.131]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:40.131]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:55:40.131]                     cond$call), session = sessionInformation(), 
  [14:55:40.131]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:55:40.131]                   signalCondition(cond)
  [14:55:40.131]                 }
  [14:55:40.131]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:55:40.131]                 "immediateCondition"))) {
  [14:55:40.131]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:55:40.131]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:40.131]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:55:40.131]                   if (TRUE && !signal) {
  [14:55:40.131]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:40.131]                     {
  [14:55:40.131]                       inherits <- base::inherits
  [14:55:40.131]                       invokeRestart <- base::invokeRestart
  [14:55:40.131]                       is.null <- base::is.null
  [14:55:40.131]                       muffled <- FALSE
  [14:55:40.131]                       if (inherits(cond, "message")) {
  [14:55:40.131]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:40.131]                         if (muffled) 
  [14:55:40.131]                           invokeRestart("muffleMessage")
  [14:55:40.131]                       }
  [14:55:40.131]                       else if (inherits(cond, "warning")) {
  [14:55:40.131]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:40.131]                         if (muffled) 
  [14:55:40.131]                           invokeRestart("muffleWarning")
  [14:55:40.131]                       }
  [14:55:40.131]                       else if (inherits(cond, "condition")) {
  [14:55:40.131]                         if (!is.null(pattern)) {
  [14:55:40.131]                           computeRestarts <- base::computeRestarts
  [14:55:40.131]                           grepl <- base::grepl
  [14:55:40.131]                           restarts <- computeRestarts(cond)
  [14:55:40.131]                           for (restart in restarts) {
  [14:55:40.131]                             name <- restart$name
  [14:55:40.131]                             if (is.null(name)) 
  [14:55:40.131]                               next
  [14:55:40.131]                             if (!grepl(pattern, name)) 
  [14:55:40.131]                               next
  [14:55:40.131]                             invokeRestart(restart)
  [14:55:40.131]                             muffled <- TRUE
  [14:55:40.131]                             break
  [14:55:40.131]                           }
  [14:55:40.131]                         }
  [14:55:40.131]                       }
  [14:55:40.131]                       invisible(muffled)
  [14:55:40.131]                     }
  [14:55:40.131]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:40.131]                   }
  [14:55:40.131]                 }
  [14:55:40.131]                 else {
  [14:55:40.131]                   if (TRUE) {
  [14:55:40.131]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:40.131]                     {
  [14:55:40.131]                       inherits <- base::inherits
  [14:55:40.131]                       invokeRestart <- base::invokeRestart
  [14:55:40.131]                       is.null <- base::is.null
  [14:55:40.131]                       muffled <- FALSE
  [14:55:40.131]                       if (inherits(cond, "message")) {
  [14:55:40.131]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:40.131]                         if (muffled) 
  [14:55:40.131]                           invokeRestart("muffleMessage")
  [14:55:40.131]                       }
  [14:55:40.131]                       else if (inherits(cond, "warning")) {
  [14:55:40.131]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:40.131]                         if (muffled) 
  [14:55:40.131]                           invokeRestart("muffleWarning")
  [14:55:40.131]                       }
  [14:55:40.131]                       else if (inherits(cond, "condition")) {
  [14:55:40.131]                         if (!is.null(pattern)) {
  [14:55:40.131]                           computeRestarts <- base::computeRestarts
  [14:55:40.131]                           grepl <- base::grepl
  [14:55:40.131]                           restarts <- computeRestarts(cond)
  [14:55:40.131]                           for (restart in restarts) {
  [14:55:40.131]                             name <- restart$name
  [14:55:40.131]                             if (is.null(name)) 
  [14:55:40.131]                               next
  [14:55:40.131]                             if (!grepl(pattern, name)) 
  [14:55:40.131]                               next
  [14:55:40.131]                             invokeRestart(restart)
  [14:55:40.131]                             muffled <- TRUE
  [14:55:40.131]                             break
  [14:55:40.131]                           }
  [14:55:40.131]                         }
  [14:55:40.131]                       }
  [14:55:40.131]                       invisible(muffled)
  [14:55:40.131]                     }
  [14:55:40.131]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:40.131]                   }
  [14:55:40.131]                 }
  [14:55:40.131]             }
  [14:55:40.131]         }))
  [14:55:40.131]     }, error = function(ex) {
  [14:55:40.131]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:55:40.131]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:40.131]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:55:40.131]     }, finally = {
  [14:55:40.131]         {
  [14:55:40.131]             {
  [14:55:40.131]                 NULL
  [14:55:40.131]                 RNGkind("Mersenne-Twister")
  [14:55:40.131]                 base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:55:40.131]                   inherits = FALSE)
  [14:55:40.131]             }
  [14:55:40.131]             options(future.plan = NULL)
  [14:55:40.131]             if (is.na(NA_character_)) 
  [14:55:40.131]                 Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:40.131]             else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:55:40.131]             future::plan(list(a = function (..., envir = parent.frame()) 
  [14:55:40.131]             {
  [14:55:40.131]                 future <- SequentialFuture(..., envir = envir)
  [14:55:40.131]                 if (!future$lazy) 
  [14:55:40.131]                   future <- run(future)
  [14:55:40.131]                 invisible(future)
  [14:55:40.131]             }, b = function (..., envir = parent.frame()) 
  [14:55:40.131]             {
  [14:55:40.131]                 future <- SequentialFuture(..., envir = envir)
  [14:55:40.131]                 if (!future$lazy) 
  [14:55:40.131]                   future <- run(future)
  [14:55:40.131]                 invisible(future)
  [14:55:40.131]             }), .cleanup = FALSE, .init = FALSE)
  [14:55:40.131]         }
  [14:55:40.131]         base::options(...future.oldOptions)
  [14:55:40.131]     })
  [14:55:40.131]     if (TRUE) {
  [14:55:40.131]         base::sink(type = "output", split = FALSE)
  [14:55:40.131]         if (TRUE) {
  [14:55:40.131]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:55:40.131]         }
  [14:55:40.131]         else {
  [14:55:40.131]             ...future.result["stdout"] <- base::list(NULL)
  [14:55:40.131]         }
  [14:55:40.131]         base::close(...future.stdout)
  [14:55:40.131]         ...future.stdout <- NULL
  [14:55:40.131]     }
  [14:55:40.131]     ...future.result$conditions <- ...future.conditions
  [14:55:40.131]     ...future.result
  [14:55:40.131] }
  [14:55:40.134] assign_globals() ...
  [14:55:40.134] List of 3
  [14:55:40.134]  $ ...future.x_ii:List of 2
  [14:55:40.134]   ..$ :List of 1
  [14:55:40.134]   .. ..$ a: int 1
  [14:55:40.134]   ..$ :List of 1
  [14:55:40.134]   .. ..$ a: int 2
  [14:55:40.134]  $ strategy2     : chr "sequential"
  [14:55:40.134]  $ bs            : int [1:3] 3 2 1
  [14:55:40.134]  - attr(*, "where")=List of 3
  [14:55:40.134]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:40.134]   ..$ strategy2     :<environment: R_EmptyEnv> 
  [14:55:40.134]   ..$ bs            :<environment: R_EmptyEnv> 
  [14:55:40.134]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:40.134]  - attr(*, "resolved")= logi FALSE
  [14:55:40.134]  - attr(*, "total_size")= num 184
  [14:55:40.134]  - attr(*, "already-done")= logi TRUE
  [14:55:40.144] - copied '...future.x_ii' to environment
  [14:55:40.144] - copied 'strategy2' to environment
  [14:55:40.145] - copied 'bs' to environment
  [14:55:40.145] List of 3
  [14:55:40.145]  $ ...future.x_ii:List of 2
  [14:55:40.145]   ..$ :List of 1
  [14:55:40.145]   .. ..$ a: int 1
  [14:55:40.145]   ..$ :List of 1
  [14:55:40.145]   .. ..$ a: int 2
  [14:55:40.145]  $ strategy2     : chr "sequential"
  [14:55:40.145]  $ bs            : int [1:3] 3 2 1
  [14:55:40.145]  - attr(*, "where")=List of 3
  [14:55:40.145]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:40.145]   ..$ strategy2     :<environment: R_EmptyEnv> 
  [14:55:40.145]   ..$ bs            :<environment: R_EmptyEnv> 
  [14:55:40.145]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:40.145]  - attr(*, "resolved")= logi FALSE
  [14:55:40.145]  - attr(*, "total_size")= num 184
  [14:55:40.145]  - attr(*, "already-done")= logi TRUE
  [14:55:40.154] assign_globals() ... done
  [14:55:40.156] plan(): Setting new future strategy stack:
  [14:55:40.156] List of future strategies:
  [14:55:40.156] 1. sequential:
  [14:55:40.156]    - args: function (..., envir = parent.frame())
  [14:55:40.156]    - tweaked: FALSE
  [14:55:40.156]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:40.157] plan(): nbrOfWorkers() = 1
  [14:55:41.303] plan(): Setting new future strategy stack:
  [14:55:41.303] List of future strategies:
  [14:55:41.303] 1. sequential:
  [14:55:41.303]    - args: function (..., envir = parent.frame())
  [14:55:41.303]    - tweaked: FALSE
  [14:55:41.303]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:41.303] 2. sequential:
  [14:55:41.303]    - args: function (..., envir = parent.frame())
  [14:55:41.303]    - tweaked: FALSE
  [14:55:41.303]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:41.304] plan(): nbrOfWorkers() = 1
  [14:55:41.305] SequentialFuture started (and completed)
  [14:55:41.306] signalConditions() ...
  [14:55:41.306]  - include = 'immediateCondition'
  [14:55:41.306]  - exclude = 
  [14:55:41.306]  - resignal = FALSE
  [14:55:41.307]  - Number of conditions: 368
  [14:55:41.308] signalConditions() ... done
  [14:55:41.308] - Launch lazy future ... done
  [14:55:41.309] run() for 'SequentialFuture' ... done
  [14:55:41.309] Chunk #1 of 1 ... DONE
  [14:55:41.309] Launching 1 futures (chunks) ... DONE
  [14:55:41.309] - resolving futures
  [14:55:41.310]   - gathering results & relaying conditions (except errors)
  [14:55:41.310] resolve() on list ...
  [14:55:41.310]  recursive: 0
  [14:55:41.310]  length: 1
  [14:55:41.311] 
  [14:55:41.311] resolved() for 'SequentialFuture' ...
  [14:55:41.311] - state: 'finished'
  [14:55:41.311] - run: TRUE
  [14:55:41.311] - result: 'FutureResult'
  [14:55:41.312] resolved() for 'SequentialFuture' ... done
  [14:55:41.312] Future #1
  [14:55:41.312] signalConditions() ...
  [14:55:41.313]  - include = 'immediateCondition'
  [14:55:41.313]  - exclude = 
  [14:55:41.313]  - resignal = FALSE
  [14:55:41.313]  - Number of conditions: 368
  [14:55:41.315] signalConditions() ... done
  [14:55:41.315] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:55:41.315] - nx: 1
  [14:55:41.316] - relay: TRUE
  [14:55:41.316] - stdout: TRUE
  [14:55:41.332] - signal: TRUE
  [14:55:41.333] - resignal: FALSE
  [14:55:41.333] - force: FALSE
  [14:55:41.333] - relayed: [n=1] FALSE
  [14:55:41.333] - queued futures: [n=1] FALSE
  [14:55:41.334]  - until=1
  [14:55:41.334]  - relaying element #1
  [14:55:41.334] signalConditions() ...
  [14:55:41.334]  - include = 'immediateCondition'
  [14:55:41.335]  - exclude = 
  [14:55:41.335]  - resignal = FALSE
  [14:55:41.335]  - Number of conditions: 368
  [14:55:41.337] signalConditions() ... done
  List of 1
   $ b:function (..., envir = parent.frame())  
    ..- 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 (..., envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (..., envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (..., envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ b:function (..., envir = parent.frame())  
    ..- 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 (..., envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (..., envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (..., envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:41.337] signalConditions() ...
  [14:55:41.337]  - include = 'immediateCondition'
  [14:55:41.338]  - exclude = 
  [14:55:41.338]  - resignal = FALSE
  [14:55:41.338]  - Number of conditions: 368
  [14:55:41.340] signalConditions() ... done
  [14:55:41.340] signalConditions() ...
  [14:55:41.340]  - include = 'condition'
  [14:55:41.340]  - exclude = 'immediateCondition'
  [14:55:41.341]  - resignal = FALSE
  [14:55:41.341]  - Number of conditions: 368
  [14:55:41.341]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:55:41.341]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:55:40.162] doFuture() ...
  [14:55:41.342]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:55:40.198] - dummy globals (as locals): [1] 'b'
  [14:55:41.342]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [14:55:40.199] - R expression:
  [14:55:41.342]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [14:55:40.199] {
  [14:55:40.199]     doFuture::registerDoFuture()
  [14:55:40.199]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:40.199]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:40.199]         b <- NULL
  [14:55:40.199]         ...future.env <- environment()
  [14:55:40.199]         local({
  [14:55:40.199]             for (name in names(...future.x_jj)) {
  [14:55:40.199]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:40.199]                   inherits = FALSE)
  [14:55:40.199]             }
  [14:55:40.199]         })
  [14:55:40.199]         tryCatch({
  [14:55:40.199]             plan_list <- future::plan("next")
  [14:55:40.199]             message(capture.output(print(plan_list)))
  [14:55:40.199]             stopifnot(inherits(plan_list, "future"))
  [14:55:40.199]             default <- getOption("future.plan", "sequential")
  [14:55:40.199]             if (is.function(default)) 
  [14:55:40.199]                 default <- class(default)
  [14:55:40.199]             stopifnot(inherits(plan_list, default))
  [14:55:40.199]             plan_b <- future::plan("list")
  [14:55:40.199]             str(plan_b)
  [14:55:40.199]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:55:40.199]                 default))
  [14:55:40.199]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:40.199]         }, error = identity)
  [14:55:40.199]     })
  [14:55:40.199] }
  [14:55:41.343]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [14:55:40.200] - identifying globals and packages ...
  [14:55:41.343]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [14:55:40.200] getGlobalsAndPackages() ...
  [14:55:41.343]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [14:55:40.200] Retrieving 'add' globals ...
  [14:55:41.344]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [14:55:40.201] - 'add' globals retrieved: [2] 'a', 'plan_a'
  [14:55:41.344]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [14:55:40.201] Retrieving 'add' globals ... DONE
  [14:55:41.344]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [14:55:40.201] Searching for globals...
  [14:55:41.345]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [14:55:40.243] - 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:55:41.345]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [14:55:40.243] Searching for globals ... DONE
  [14:55:41.345]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [14:55:40.244] Resolving globals: FALSE
  [14:55:41.346]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [14:55:40.247] The total size of the 3 globals is 11.30 KiB (11568 bytes)
  [14:55:41.346]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [14:55:40.248] The total size of the 3 globals exported for future expression ('{; doFuture::registerDoFuture(); lapply(seq_along(...future.x_ii), FUN = function(jj) {; ...future.x_jj <- ...future.x_ii[[jj]]; b <- NULL; ...future.env <- environment(); ...; }, error = identity); }); }') is 11.30 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: 'plan_a' (11.24 KiB of class 'list'), 'a' (56 bytes of class 'numeric') and '...future.x_ii' (0 bytes of class 'NULL')
  [14:55:41.347]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [14:55:40.248] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:41.347]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [14:55:40.249] - packages: [1] 'utils'
  [14:55:41.347]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [14:55:40.249] getGlobalsAndPackages() ... DONE
  [14:55:41.348]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [14:55:40.249] List of 3
  [14:55:40.249]  $ ...future.x_ii: NULL
  [14:55:40.249]  $ a             : int 1
  [14:55:40.249]  $ plan_a        :List of 1
  [14:55:40.249]   ..$ b:function (..., envir = parent.frame())  
  [14:55:40.249]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [14:55:40.249]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:40.249]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:40.249]  - attr(*, "where")=List of 3
  [14:55:40.249]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:40.249]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:40.249]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:40.249]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:40.249]  - attr(*, "resolved")= logi FALSE
  [14:55:40.249]  - attr(*, "total_size")= num 11568
  [14:55:41.348]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [14:55:40.265]   - R expression:
  [14:55:41.348]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [14:55:40.266] {
  [14:55:40.266]     doFuture::registerDoFuture()
  [14:55:40.266]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:40.266]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:40.266]         b <- NULL
  [14:55:40.266]         ...future.env <- environment()
  [14:55:40.266]         local({
  [14:55:40.266]             for (name in names(...future.x_jj)) {
  [14:55:40.266]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:40.266]                   inherits = FALSE)
  [14:55:40.266]             }
  [14:55:40.266]         })
  [14:55:40.266]         tryCatch({
  [14:55:40.266]             plan_list <- future::plan("next")
  [14:55:40.266]             message(capture.output(print(plan_list)))
  [14:55:40.266]             stopifnot(inherits(plan_list, "future"))
  [14:55:40.266]             default <- getOption("future.plan", "sequential")
  [14:55:40.266]             if (is.function(default)) 
  [14:55:40.266]                 default <- class(default)
  [14:55:40.266]             stopifnot(inherits(plan_list, default))
  [14:55:40.266]             plan_b <- future::plan("list")
  [14:55:40.266]             str(plan_b)
  [14:55:40.266]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:55:40.266]                 default))
  [14:55:40.266]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:40.266]         }, error = identity)
  [14:55:40.266]     })
  [14:55:40.266] }
  [14:55:41.349]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [14:55:40.266]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:41.349]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [14:55:40.267] List of 3
  [14:55:40.267]  $ ...future.x_ii: NULL
  [14:55:40.267]  $ a             : int 1
  [14:55:40.267]  $ plan_a        :List of 1
  [14:55:40.267]   ..$ b:function (..., envir = parent.frame())  
  [14:55:40.267]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [14:55:40.267]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:40.267]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:40.267]  - attr(*, "where")=List of 3
  [14:55:40.267]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:40.267]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:40.267]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:40.267]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:40.267]  - attr(*, "resolved")= logi FALSE
  [14:55:40.267]  - attr(*, "total_size")= num 11568
  [14:55:41.350]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [14:55:40.293]   - packages: [2] 'doFuture', 'utils'
  [14:55:41.350]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [14:55:40.293] - identifying globals and packages ... DONE
  [14:55:41.350]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [14:55:40.294] Number of chunks: 1
  [14:55:41.351]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [14:55:40.294] Number of futures (= number of chunks): 1
  [14:55:41.351]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [14:55:40.294] Launching 1 futures (chunks) ...
  [14:55:41.351]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [14:55:40.295] Chunk #1 of 1 ...
  [14:55:41.352]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [14:55:40.295]  - Finding globals in 'args_list' chunk #1 ...
  [14:55:41.352]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [14:55:40.295] getGlobalsAndPackages() ...
  [14:55:41.352]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [14:55:40.295] Searching for globals...
  [14:55:41.353]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [14:55:40.296] 
  [14:55:41.353]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [14:55:40.296] Searching for globals ... DONE
  [14:55:41.354]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [14:55:40.297] - globals: [0] <none>
  [14:55:41.354]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [14:55:40.297] getGlobalsAndPackages() ... DONE
  [14:55:41.354]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [14:55:40.297] 
  [14:55:41.355]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [14:55:40.297] 
  [14:55:41.355]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [14:55:40.298]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:55:41.355]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [14:55:40.298] getGlobalsAndPackages() ...
  [14:55:41.356]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [14:55:40.298] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:41.372]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [14:55:40.299] Resolving globals: FALSE
  [14:55:41.373]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [14:55:40.299] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:41.373]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [14:55:40.300] 
  [14:55:41.374]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [14:55:40.300] getGlobalsAndPackages() ... DONE
  [14:55:41.374]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [14:55:40.301] run() for 'Future' ...
  [14:55:41.374]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [14:55:40.301] - state: 'created'
  [14:55:41.375]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [14:55:40.301] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:55:41.375]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [14:55:40.302] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:55:41.375]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [14:55:40.302] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:55:41.376]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [14:55:40.303]   - Field: 'label'
  [14:55:41.376]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [14:55:40.303]   - Field: 'local'
  [14:55:41.377]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [14:55:40.303]   - Field: 'owner'
  [14:55:41.377]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [14:55:40.303]   - Field: 'envir'
  [14:55:41.377]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [14:55:40.304]   - Field: 'packages'
  [14:55:41.378]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [14:55:40.304]   - Field: 'gc'
  [14:55:41.378]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [14:55:40.304]   - Field: 'conditions'
  [14:55:41.378]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [14:55:40.304]   - Field: 'persistent'
  [14:55:41.379]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [14:55:40.305]   - Field: 'expr'
  [14:55:41.379]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [14:55:40.305]   - Field: 'uuid'
  [14:55:41.380]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [14:55:40.305]   - Field: 'seed'
  [14:55:41.380]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [14:55:40.306]   - Field: 'version'
  [14:55:41.380]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [14:55:40.306]   - Field: 'result'
  [14:55:41.381]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [14:55:40.306]   - Field: 'asynchronous'
  [14:55:41.381]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [14:55:40.306]   - Field: 'calls'
  [14:55:41.381]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [14:55:40.307]   - Field: 'globals'
  [14:55:41.382]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [14:55:40.307]   - Field: 'stdout'
  [14:55:41.382]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [14:55:40.307]   - Field: 'earlySignal'
  [14:55:41.382]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [14:55:40.307]   - Field: 'lazy'
  [14:55:41.383]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [14:55:40.308]   - Field: 'state'
  [14:55:41.383]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [14:55:40.308] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:55:41.384]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [14:55:40.308] - Launch lazy future ...
  [14:55:41.384]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [14:55:40.309] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:55:41.384]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [14:55:40.309] Packages needed by future strategies (n = 0): <none>
  [14:55:41.385]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [14:55:40.311] {
  [14:55:40.311]     {
  [14:55:40.311]         ...future.startTime <- base::Sys.time()
  [14:55:40.311]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:55:40.311]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:55:40.311]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:55:40.311]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:55:40.311]             future.resolve.recursive = NULL, future.rng.onMisuse = NULL, 
  [14:55:40.311]             future.rng.onMisuse.keepFuture = NULL, future.stdout.windows.reencode = NULL, 
  [14:55:40.311]             width = 80L)
  [14:55:40.311]         {
  [14:55:40.311]             {
  [14:55:40.311]                 {
  [14:55:40.311]                   base::local({
  [14:55:40.311]                     has_future <- base::requireNamespace("future", 
  [14:55:40.311]                       quietly = TRUE)
  [14:55:40.311]                     if (has_future) {
  [14:55:40.311]                       ns <- base::getNamespace("future")
  [14:55:40.311]                       version <- ns[[".package"]][["version"]]
  [14:55:40.311]                       if (is.null(version)) 
  [14:55:40.311]                         version <- utils::packageVersion("future")
  [14:55:40.311]                     }
  [14:55:40.311]                     else {
  [14:55:40.311]                       version <- NULL
  [14:55:40.311]                     }
  [14:55:40.311]                     if (!has_future || version < "1.8.0") {
  [14:55:40.311]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:55:40.311]                         "", base::R.version$version.string), 
  [14:55:40.311]                         platform = base::sprintf("%s (%s-bit)", 
  [14:55:40.311]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:55:40.311]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:55:40.311]                           "release", "version")], collapse = " "), 
  [14:55:40.311]                         hostname = base::Sys.info()[["nodename"]])
  [14:55:40.311]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:55:40.311]                         info)
  [14:55:40.311]                       info <- base::paste(info, collapse = "; ")
  [14:55:40.311]                       if (!has_future) {
  [14:55:40.311]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:55:40.311]                           info)
  [14:55:40.311]                       }
  [14:55:40.311]                       else {
  [14:55:40.311]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:55:40.311]                           info, version)
  [14:55:40.311]                       }
  [14:55:40.311]                       base::stop(msg)
  [14:55:40.311]                     }
  [14:55:40.311]                   })
  [14:55:40.311]                 }
  [14:55:40.311]                 base::local({
  [14:55:40.311]                   for (pkg in c("doFuture", "utils")) {
  [14:55:40.311]                     base::loadNamespace(pkg)
  [14:55:40.311]                     base::library(pkg, character.only = TRUE)
  [14:55:40.311]                   }
  [14:55:40.311]                 })
  [14:55:40.311]             }
  [14:55:40.311]             options(future.plan = NULL)
  [14:55:40.311]             Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:40.311]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:55:40.311]         }
  [14:55:40.311]     }
  [14:55:40.311]     if (FALSE) {
  [14:55:40.311]     }
  [14:55:40.311]     else {
  [14:55:40.311]         if (TRUE) {
  [14:55:40.311]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:55:40.311]                 open = "w")
  [14:55:40.311]         }
  [14:55:40.311]         else {
  [14:55:40.311]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:55:40.311]                 windows = "NUL", "/dev/null"), open = "w")
  [14:55:40.311]         }
  [14:55:40.311]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:55:40.311]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:55:40.311]             base::sink(type = "output", split = FALSE)
  [14:55:40.311]             base::close(...future.stdout)
  [14:55:40.311]         }, add = TRUE)
  [14:55:40.311]     }
  [14:55:40.311]     ...future.frame <- base::sys.nframe()
  [14:55:40.311]     ...future.conditions <- base::list()
  [14:55:40.311]     ...future.rng <- base::globalenv()$.Random.seed
  [14:55:40.311]     ...future.result <- base::tryCatch({
  [14:55:40.311]         base::withCallingHandlers({
  [14:55:40.311]             ...future.value <- base::withVisible(base::local({
  [14:55:40.311]                 doFuture::registerDoFuture()
  [14:55:40.311]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:40.311]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:40.311]                   b <- NULL
  [14:55:40.311]                   ...future.env <- environment()
  [14:55:40.311]                   local({
  [14:55:40.311]                     for (name in names(...future.x_jj)) {
  [14:55:40.311]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:40.311]                         inherits = FALSE)
  [14:55:40.311]                     }
  [14:55:40.311]                   })
  [14:55:40.311]                   tryCatch({
  [14:55:40.311]                     plan_list <- future::plan("next")
  [14:55:40.311]                     message(capture.output(print(plan_list)))
  [14:55:40.311]                     stopifnot(inherits(plan_list, "future"))
  [14:55:40.311]                     default <- getOption("future.plan", "sequential")
  [14:55:40.311]                     if (is.function(default)) 
  [14:55:40.311]                       default <- class(default)
  [14:55:40.311]                     stopifnot(inherits(plan_list, default))
  [14:55:40.311]                     plan_b <- future::plan("list")
  [14:55:40.311]                     str(plan_b)
  [14:55:40.311]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:40.311]                       inherits(plan_b[[1]], default))
  [14:55:40.311]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:40.311]                   }, error = identity)
  [14:55:40.311]                 })
  [14:55:40.311]             }))
  [14:55:40.311]             future::FutureResult(value = ...future.value$value, 
  [14:55:40.311]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:40.311]                   ...future.rng), started = ...future.startTime, 
  [14:55:40.311]                 version = "1.8")
  [14:55:40.311]         }, condition = base::local({
  [14:55:40.311]             c <- base::c
  [14:55:40.311]             inherits <- base::inherits
  [14:55:40.311]             invokeRestart <- base::invokeRestart
  [14:55:40.311]             length <- base::length
  [14:55:40.311]             list <- base::list
  [14:55:40.311]             seq.int <- base::seq.int
  [14:55:40.311]             signalCondition <- base::signalCondition
  [14:55:40.311]             sys.calls <- base::sys.calls
  [14:55:40.311]             `[[` <- base::`[[`
  [14:55:40.311]             `+` <- base::`+`
  [14:55:40.311]             `<<-` <- base::`<<-`
  [14:55:40.311]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:55:40.311]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:55:40.311]                   3L)]
  [14:55:40.311]             }
  [14:55:40.311]             function(cond) {
  [14:55:40.311]                 is_error <- inherits(cond, "error")
  [14:55:40.311]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:55:40.311]                   NULL)
  [14:55:40.311]                 if (is_error) {
  [14:55:40.311]                   sessionInformation <- function() {
  [14:55:40.311]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:55:40.311]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:55:40.311]                       search = base::search(), system = base::Sys.info())
  [14:55:40.311]                   }
  [14:55:40.311]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:40.311]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:55:40.311]                     cond$call), session = sessionInformation(), 
  [14:55:40.311]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:55:40.311]                   signalCondition(cond)
  [14:55:40.311]                 }
  [14:55:40.311]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:55:40.311]                 "immediateCondition"))) {
  [14:55:40.311]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:55:40.311]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:40.311]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:55:40.311]                   if (TRUE && !signal) {
  [14:55:40.311]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:40.311]                     {
  [14:55:40.311]                       inherits <- base::inherits
  [14:55:40.311]                       invokeRestart <- base::invokeRestart
  [14:55:40.311]                       is.null <- base::is.null
  [14:55:40.311]                       muffled <- FALSE
  [14:55:40.311]                       if (inherits(cond, "message")) {
  [14:55:40.311]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:40.311]                         if (muffled) 
  [14:55:40.311]                           invokeRestart("muffleMessage")
  [14:55:40.311]                       }
  [14:55:40.311]                       else if (inherits(cond, "warning")) {
  [14:55:40.311]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:40.311]                         if (muffled) 
  [14:55:40.311]                           invokeRestart("muffleWarning")
  [14:55:40.311]                       }
  [14:55:40.311]                       else if (inherits(cond, "condition")) {
  [14:55:40.311]                         if (!is.null(pattern)) {
  [14:55:40.311]                           computeRestarts <- base::computeRestarts
  [14:55:40.311]                           grepl <- base::grepl
  [14:55:40.311]                           restarts <- computeRestarts(cond)
  [14:55:40.311]                           for (restart in restarts) {
  [14:55:40.311]                             name <- restart$name
  [14:55:40.311]                             if (is.null(name)) 
  [14:55:40.311]                               next
  [14:55:40.311]                             if (!grepl(pattern, name)) 
  [14:55:40.311]                               next
  [14:55:40.311]                             invokeRestart(restart)
  [14:55:40.311]                             muffled <- TRUE
  [14:55:40.311]                             break
  [14:55:40.311]                           }
  [14:55:40.311]                         }
  [14:55:40.311]                       }
  [14:55:40.311]                       invisible(muffled)
  [14:55:40.311]                     }
  [14:55:40.311]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:40.311]                   }
  [14:55:40.311]                 }
  [14:55:40.311]                 else {
  [14:55:40.311]                   if (TRUE) {
  [14:55:40.311]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:40.311]                     {
  [14:55:40.311]                       inherits <- base::inherits
  [14:55:40.311]                       invokeRestart <- base::invokeRestart
  [14:55:40.311]                       is.null <- base::is.null
  [14:55:40.311]                       muffled <- FALSE
  [14:55:40.311]                       if (inherits(cond, "message")) {
  [14:55:40.311]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:40.311]                         if (muffled) 
  [14:55:40.311]                           invokeRestart("muffleMessage")
  [14:55:40.311]                       }
  [14:55:40.311]                       else if (inherits(cond, "warning")) {
  [14:55:40.311]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:40.311]                         if (muffled) 
  [14:55:40.311]                           invokeRestart("muffleWarning")
  [14:55:40.311]                       }
  [14:55:40.311]                       else if (inherits(cond, "condition")) {
  [14:55:40.311]                         if (!is.null(pattern)) {
  [14:55:40.311]                           computeRestarts <- base::computeRestarts
  [14:55:40.311]                           grepl <- base::grepl
  [14:55:40.311]                           restarts <- computeRestarts(cond)
  [14:55:40.311]                           for (restart in restarts) {
  [14:55:40.311]                             name <- restart$name
  [14:55:40.311]                             if (is.null(name)) 
  [14:55:40.311]                               next
  [14:55:40.311]                             if (!grepl(pattern, name)) 
  [14:55:40.311]                               next
  [14:55:40.311]                             invokeRestart(restart)
  [14:55:40.311]                             muffled <- TRUE
  [14:55:40.311]                             break
  [14:55:40.311]                           }
  [14:55:40.311]                         }
  [14:55:40.311]                       }
  [14:55:40.311]                       invisible(muffled)
  [14:55:40.311]                     }
  [14:55:40.311]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:40.311]                   }
  [14:55:40.311]                 }
  [14:55:40.311]             }
  [14:55:40.311]         }))
  [14:55:40.311]     }, error = function(ex) {
  [14:55:40.311]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:55:40.311]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:40.311]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:55:40.311]     }, finally = {
  [14:55:40.311]         {
  [14:55:40.311]             {
  [14:55:40.311]                 NULL
  [14:55:40.311]                 RNGkind("Mersenne-Twister")
  [14:55:40.311]                 base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:55:40.311]                   inherits = FALSE)
  [14:55:40.311]             }
  [14:55:40.311]             options(future.plan = NULL)
  [14:55:40.311]             if (is.na(NA_character_)) 
  [14:55:40.311]                 Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:40.311]             else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:55:40.311]             future::plan(list(b = function (..., envir = parent.frame()) 
  [14:55:40.311]             {
  [14:55:40.311]                 future <- SequentialFuture(..., envir = envir)
  [14:55:40.311]                 if (!future$lazy) 
  [14:55:40.311]                   future <- run(future)
  [14:55:40.311]                 invisible(future)
  [14:55:40.311]             }), .cleanup = FALSE, .init = FALSE)
  [14:55:40.311]         }
  [14:55:40.311]         base::options(...future.oldOptions)
  [14:55:40.311]     })
  [14:55:40.311]     if (TRUE) {
  [14:55:40.311]         base::sink(type = "output", split = FALSE)
  [14:55:40.311]         if (TRUE) {
  [14:55:40.311]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:55:40.311]         }
  [14:55:40.311]         else {
  [14:55:40.311]             ...future.result["stdout"] <- base::list(NULL)
  [14:55:40.311]         }
  [14:55:40.311]         base::close(...future.stdout)
  [14:55:40.311]         ...future.stdout <- NULL
  [14:55:40.311]     }
  [14:55:40.311]     ...future.result$conditions <- ...future.conditions
  [14:55:40.311]     ...future.result
  [14:55:40.311] }
  [14:55:41.385]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [14:55:40.314] assign_globals() ...
  [14:55:41.385]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [14:55:40.314] List of 3
  [14:55:40.314]  $ ...future.x_ii:List of 3
  [14:55:40.314]   ..$ :List of 1
  [14:55:40.314]   .. ..$ b: int 3
  [14:55:40.314]   ..$ :List of 1
  [14:55:40.314]   .. ..$ b: int 2
  [14:55:40.314]   ..$ :List of 1
  [14:55:40.314]   .. ..$ b: int 1
  [14:55:40.314]  $ a             : int 1
  [14:55:40.314]  $ plan_a        :List of 1
  [14:55:40.314]   ..$ b:function (..., envir = parent.frame())  
  [14:55:40.314]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [14:55:40.314]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:40.314]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:40.314]  - attr(*, "where")=List of 3
  [14:55:40.314]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:40.314]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:40.314]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:40.314]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:40.314]  - attr(*, "resolved")= logi FALSE
  [14:55:40.314]  - attr(*, "total_size")= num 11568
  [14:55:40.314]  - attr(*, "already-done")= logi TRUE
  [14:55:41.386]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [14:55:40.328] - copied '...future.x_ii' to environment
  [14:55:41.386]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [14:55:40.328] - copied 'a' to environment
  [14:55:41.386]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [14:55:40.332] - copied 'plan_a' to environment
  [14:55:41.387]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [14:55:40.332] List of 3
  [14:55:40.332]  $ ...future.x_ii:List of 3
  [14:55:40.332]   ..$ :List of 1
  [14:55:40.332]   .. ..$ b: int 3
  [14:55:40.332]   ..$ :List of 1
  [14:55:40.332]   .. ..$ b: int 2
  [14:55:40.332]   ..$ :List of 1
  [14:55:40.332]   .. ..$ b: int 1
  [14:55:40.332]  $ a             : int 1
  [14:55:40.332]  $ plan_a        :List of 1
  [14:55:40.332]   ..$ b:function (..., envir = parent.frame())  
  [14:55:40.332]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [14:55:40.332]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:40.332]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:40.332]  - attr(*, "where")=List of 3
  [14:55:40.332]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:40.332]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:40.332]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:40.332]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:40.332]  - attr(*, "resolved")= logi FALSE
  [14:55:40.332]  - attr(*, "total_size")= num 11568
  [14:55:40.332]  - attr(*, "already-done")= logi TRUE
  [14:55:41.407]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [14:55:40.355] assign_globals() ... done
  [14:55:41.408]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [14:55:40.357] plan(): Setting new future strategy stack:
  [14:55:41.408]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [14:55:40.357] List of future strategies:
  [14:55:40.357] 1. sequential:
  [14:55:40.357]    - args: function (..., envir = parent.frame())
  [14:55:40.357]    - tweaked: FALSE
  [14:55:40.357]    - call: NULL
  [14:55:41.409]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [14:55:40.358] plan(): nbrOfWorkers() = 1
  [14:55:41.409]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [14:55:40.545] plan(): Setting new future strategy stack:
  [14:55:41.409]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [14:55:40.546] List of future strategies:
  [14:55:40.546] 1. sequential:
  [14:55:40.546]    - args: function (..., envir = parent.frame())
  [14:55:40.546]    - tweaked: FALSE
  [14:55:40.546]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:41.410]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [14:55:40.547] plan(): nbrOfWorkers() = 1
  [14:55:41.410]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [14:55:40.547] SequentialFuture started (and completed)
  [14:55:41.411]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [14:55:40.548] signalConditions() ...
  [14:55:41.411]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [14:55:40.548]  - include = 'immediateCondition'
  [14:55:41.412]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [14:55:40.548]  - exclude = 
  [14:55:41.412]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [14:55:40.549]  - resignal = FALSE
  [14:55:41.412]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [14:55:40.549]  - Number of conditions: 3
  [14:55:41.413]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [14:55:40.549] signalConditions() ... done
  [14:55:41.413]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [14:55:40.549] - Launch lazy future ... done
  [14:55:41.413]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [14:55:40.550] run() for 'SequentialFuture' ... done
  [14:55:41.414]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [14:55:40.550] Chunk #1 of 1 ... DONE
  [14:55:41.414]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [14:55:40.551] Launching 1 futures (chunks) ... DONE
  [14:55:41.415]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [14:55:40.551] - resolving futures
  [14:55:41.415]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [14:55:40.551]   - gathering results & relaying conditions (except errors)
  [14:55:41.415]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [14:55:40.551] resolve() on list ...
  [14:55:41.416]  - Condition #104: 'simpleMessage', 'message', 'condition'
  [14:55:40.552]  recursive: 0
  [14:55:41.416]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [14:55:40.552]  length: 1
  [14:55:41.416]  - Condition #106: 'simpleMessage', 'message', 'condition'
  [14:55:40.552] 
  [14:55:41.416]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [14:55:40.553] resolved() for 'SequentialFuture' ...
  [14:55:41.417]  - Condition #108: 'simpleMessage', 'message', 'condition'
  [14:55:40.553] - state: 'finished'
  [14:55:41.417]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [14:55:40.553] - run: TRUE
  [14:55:41.417]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [14:55:40.554] - result: 'FutureResult'
  [14:55:41.418]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [14:55:40.554] resolved() for 'SequentialFuture' ... done
  [14:55:41.418]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [14:55:40.554] Future #1
  [14:55:41.418]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [14:55:40.555] signalConditions() ...
  [14:55:41.419]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [14:55:40.555]  - include = 'immediateCondition'
  [14:55:41.419]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [14:55:40.555]  - exclude = 
  [14:55:41.419]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [14:55:40.555]  - resignal = FALSE
  [14:55:41.420]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [14:55:40.556]  - Number of conditions: 3
  [14:55:41.420]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [14:55:40.556] signalConditions() ... done
  [14:55:41.441]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [14:55:40.573] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:55:41.441]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [14:55:40.573] - nx: 1
  [14:55:41.441]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [14:55:40.573] - relay: TRUE
  [14:55:41.442]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [14:55:40.574] - stdout: TRUE
  [14:55:41.442]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [14:55:40.574] - signal: TRUE
  [14:55:41.442]  - Condition #124: 'simpleMessage', 'message', 'condition'
  [14:55:40.574] - resignal: FALSE
  [14:55:41.443]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [14:55:40.574] - force: FALSE
  [14:55:41.443]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [14:55:40.575] - relayed: [n=1] FALSE
  [14:55:41.443]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [14:55:40.575] - queued futures: [n=1] FALSE
  [14:55:41.444]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [14:55:40.575]  - until=1
  [14:55:41.444]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [14:55:40.576]  - relaying element #1
  [14:55:41.444]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [14:55:40.576] signalConditions() ...
  [14:55:41.445]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [14:55:40.576]  - include = 'immediateCondition'
  [14:55:41.445]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [14:55:40.577]  - exclude = 
  [14:55:41.445]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [14:55:40.577]  - resignal = FALSE
  [14:55:41.446]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [14:55:40.577]  - Number of conditions: 3
  [14:55:41.446]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [14:55:40.578] signalConditions() ... done
  [14:55:41.446]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [14:55:40.578] signalConditions() ...
  [14:55:41.447]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [14:55:40.578]  - include = 'immediateCondition'
  [14:55:41.447]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [14:55:40.579]  - exclude = 
  [14:55:41.447]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [14:55:40.579]  - resignal = FALSE
  [14:55:41.448]  - Condition #140: 'simpleMessage', 'message', 'condition'
  [14:55:40.579]  - Number of conditions: 3
  [14:55:41.448]  - Condition #141: 'simpleMessage', 'message', 'condition'
  [14:55:40.579] signalConditions() ... done
  [14:55:41.448]  - Condition #142: 'simpleMessage', 'message', 'condition'
  [14:55:40.580] signalConditions() ...
  [14:55:41.449]  - Condition #143: 'simpleMessage', 'message', 'condition'
  [14:55:40.580]  - include = 'condition'
  [14:55:41.449]  - Condition #144: 'simpleMessage', 'message', 'condition'
  [14:55:40.580]  - exclude = 'immediateCondition'
  [14:55:41.449]  - Condition #145: 'simpleMessage', 'message', 'condition'
  [14:55:40.581]  - resignal = FALSE
  [14:55:41.450]  - Condition #146: 'simpleMessage', 'message', 'condition'
  [14:55:40.581]  - Number of conditions: 3
  [14:55:41.450]  - Condition #147: 'simpleMessage', 'message', 'condition'
  [14:55:40.581]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:55:41.450]  - Condition #148: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (..., envir = parent.frame())- tweaked: FALSE- call: NULL
  [14:55:41.451]  - Condition #149: 'simpleMessage', 'message', 'condition'
  [14:55:40.582]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:55:41.451]  - Condition #150: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (..., envir = parent.frame())- tweaked: FALSE- call: NULL
  [14:55:41.451]  - Condition #151: 'simpleMessage', 'message', 'condition'
  [14:55:40.582]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:55:41.452]  - Condition #152: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (..., envir = parent.frame())- tweaked: FALSE- call: NULL
  [14:55:41.452]  - Condition #153: 'simpleMessage', 'message', 'condition'
  [14:55:40.583] signalConditions() ... done
  [14:55:41.452]  - Condition #154: 'simpleMessage', 'message', 'condition'
  [14:55:40.583] - relayed: [n=1] TRUE
  [14:55:41.453]  - Condition #155: 'simpleMessage', 'message', 'condition'
  [14:55:40.583] - queued futures: [n=1] TRUE
  [14:55:41.453]  - Condition #156: 'simpleMessage', 'message', 'condition'
  [14:55:40.584] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:55:41.453]  - Condition #157: 'simpleMessage', 'message', 'condition'
  [14:55:40.584]  length: 0 (resolved future 1)
  [14:55:41.454]  - Condition #158: 'simpleMessage', 'message', 'condition'
  [14:55:40.584] Relaying remaining futures
  [14:55:41.454]  - Condition #159: 'simpleMessage', 'message', 'condition'
  [14:55:40.585] signalConditionsASAP(NULL, pos=0) ...
  [14:55:41.454]  - Condition #160: 'simpleMessage', 'message', 'condition'
  [14:55:40.585] - nx: 1
  [14:55:41.455]  - Condition #161: 'simpleMessage', 'message', 'condition'
  [14:55:40.585] - relay: TRUE
  [14:55:41.455]  - Condition #162: 'simpleMessage', 'message', 'condition'
  [14:55:40.585] - stdout: TRUE
  [14:55:41.455]  - Condition #163: 'simpleMessage', 'message', 'condition'
  [14:55:40.586] - signal: TRUE
  [14:55:41.456]  - Condition #164: 'simpleMessage', 'message', 'condition'
  [14:55:40.586] - resignal: FALSE
  [14:55:41.456]  - Condition #165: 'simpleMessage', 'message', 'condition'
  [14:55:40.586] - force: FALSE
  [14:55:41.472]  - Condition #166: 'simpleMessage', 'message', 'condition'
  [14:55:40.587] - relayed: [n=1] TRUE
  [14:55:41.473]  - Condition #167: 'simpleMessage', 'message', 'condition'
  [14:55:40.587] - queued futures: [n=1] TRUE
  [14:55:41.473]  - Condition #168: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:55:41.474]  - Condition #169: 'simpleMessage', 'message', 'condition'
  [14:55:40.587] - relayed: [n=1] TRUE
  [14:55:41.474]  - Condition #170: 'simpleMessage', 'message', 'condition'
  [14:55:40.588] - queued futures: [n=1] TRUE
  [14:55:41.474]  - Condition #171: 'simpleMessage', 'message', 'condition'
  [14:55:40.588] signalConditionsASAP(NULL, pos=0) ... done
  [14:55:41.475]  - Condition #172: 'simpleMessage', 'message', 'condition'
  [14:55:40.604] resolve() on list ... DONE
  [14:55:41.475]  - Condition #173: 'simpleMessage', 'message', 'condition'
  [14:55:40.605] - collecting values of futures
  [14:55:41.475]  - Condition #174: 'simpleMessage', 'message', 'condition'
  [14:55:40.605] signalConditions() ...
  [14:55:41.476]  - Condition #175: 'simpleMessage', 'message', 'condition'
  [14:55:40.606]  - include = 'immediateCondition'
  [14:55:41.476]  - Condition #176: 'simpleMessage', 'message', 'condition'
  [14:55:40.606]  - exclude = 
  [14:55:41.477]  - Condition #177: 'simpleMessage', 'message', 'condition'
  [14:55:40.606]  - resignal = FALSE
  [14:55:41.477]  - Condition #178: 'simpleMessage', 'message', 'condition'
  [14:55:40.606]  - Number of conditions: 3
  [14:55:41.477]  - Condition #179: 'simpleMessage', 'message', 'condition'
  [14:55:40.607] signalConditions() ... done
  [14:55:41.478]  - Condition #180: 'simpleMessage', 'message', 'condition'
  [14:55:40.607] - accumulating results
  [14:55:41.478]  - Condition #181: 'simpleMessage', 'message', 'condition'
  [14:55:40.608] - processing errors (handler = 'stop')
  [14:55:41.478]  - Condition #182: 'simpleMessage', 'message', 'condition'
  [14:55:40.732] - extracting results
  [14:55:41.479]  - Condition #183: 'simpleMessage', 'message', 'condition'
  [14:55:40.733] doFuture() ... DONE
  [14:55:41.479]  - Condition #184: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:55:41.480]  - Condition #185: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:55:41.480]  - Condition #186: 'simpleMessage', 'message', 'condition'
  [14:55:40.837] doFuture() ...
  [14:55:41.480]  - Condition #187: 'simpleMessage', 'message', 'condition'
  [14:55:40.839] - dummy globals (as locals): [1] 'b'
  [14:55:41.481]  - Condition #188: 'simpleMessage', 'message', 'condition'
  [14:55:40.840] - R expression:
  [14:55:41.481]  - Condition #189: 'simpleMessage', 'message', 'condition'
  [14:55:40.840] {
  [14:55:40.840]     doFuture::registerDoFuture()
  [14:55:40.840]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:40.840]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:40.840]         b <- NULL
  [14:55:40.840]         ...future.env <- environment()
  [14:55:40.840]         local({
  [14:55:40.840]             for (name in names(...future.x_jj)) {
  [14:55:40.840]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:40.840]                   inherits = FALSE)
  [14:55:40.840]             }
  [14:55:40.840]         })
  [14:55:40.840]         tryCatch({
  [14:55:40.840]             plan_list <- future::plan("next")
  [14:55:40.840]             message(capture.output(print(plan_list)))
  [14:55:40.840]             stopifnot(inherits(plan_list, "future"))
  [14:55:40.840]             default <- getOption("future.plan", "sequential")
  [14:55:40.840]             if (is.function(default)) 
  [14:55:40.840]                 default <- class(default)
  [14:55:40.840]             stopifnot(inherits(plan_list, default))
  [14:55:40.840]             plan_b <- future::plan("list")
  [14:55:40.840]             str(plan_b)
  [14:55:40.840]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:55:40.840]                 default))
  [14:55:40.840]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:40.840]         }, error = identity)
  [14:55:40.840]     })
  [14:55:40.840] }
  [14:55:41.481]  - Condition #190: 'simpleMessage', 'message', 'condition'
  [14:55:40.841] - identifying globals and packages ...
  [14:55:41.482]  - Condition #191: 'simpleMessage', 'message', 'condition'
  [14:55:40.841] getGlobalsAndPackages() ...
  [14:55:41.482]  - Condition #192: 'simpleMessage', 'message', 'condition'
  [14:55:40.842] Retrieving 'add' globals ...
  [14:55:41.482]  - Condition #193: 'simpleMessage', 'message', 'condition'
  [14:55:40.842] - 'add' globals retrieved: [2] 'a', 'plan_a'
  [14:55:41.483]  - Condition #194: 'simpleMessage', 'message', 'condition'
  [14:55:40.843] Retrieving 'add' globals ... DONE
  [14:55:41.483]  - Condition #195: 'simpleMessage', 'message', 'condition'
  [14:55:40.843] Searching for globals...
  [14:55:41.484]  - Condition #196: 'simpleMessage', 'message', 'condition'
  [14:55:40.903] - 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:55:41.484]  - Condition #197: 'simpleMessage', 'message', 'condition'
  [14:55:40.903] Searching for globals ... DONE
  [14:55:41.484]  - Condition #198: 'simpleMessage', 'message', 'condition'
  [14:55:40.904] Resolving globals: FALSE
  [14:55:41.485]  - Condition #199: 'simpleMessage', 'message', 'condition'
  [14:55:40.906] The total size of the 3 globals is 11.30 KiB (11568 bytes)
  [14:55:41.485]  - Condition #200: 'simpleMessage', 'message', 'condition'
  [14:55:40.908] The total size of the 3 globals exported for future expression ('{; doFuture::registerDoFuture(); lapply(seq_along(...future.x_ii), FUN = function(jj) {; ...future.x_jj <- ...future.x_ii[[jj]]; b <- NULL; ...future.env <- environment(); ...; }, error = identity); }); }') is 11.30 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: 'plan_a' (11.24 KiB of class 'list'), 'a' (56 bytes of class 'numeric') and '...future.x_ii' (0 bytes of class 'NULL')
  [14:55:41.485]  - Condition #201: 'simpleMessage', 'message', 'condition'
  [14:55:40.925] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:41.486]  - Condition #202: 'simpleMessage', 'message', 'condition'
  [14:55:40.925] - packages: [1] 'utils'
  [14:55:41.486]  - Condition #203: 'simpleMessage', 'message', 'condition'
  [14:55:40.925] getGlobalsAndPackages() ... DONE
  [14:55:41.487]  - Condition #204: 'simpleMessage', 'message', 'condition'
  [14:55:40.926] List of 3
  [14:55:40.926]  $ ...future.x_ii: NULL
  [14:55:40.926]  $ a             : int 2
  [14:55:40.926]  $ plan_a        :List of 1
  [14:55:40.926]   ..$ b:function (..., envir = parent.frame())  
  [14:55:40.926]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [14:55:40.926]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:40.926]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:40.926]  - attr(*, "where")=List of 3
  [14:55:40.926]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:40.926]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:40.926]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:40.926]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:40.926]  - attr(*, "resolved")= logi FALSE
  [14:55:40.926]  - attr(*, "total_size")= num 11568
  [14:55:41.487]  - Condition #205: 'simpleMessage', 'message', 'condition'
  [14:55:40.958]   - R expression:
  [14:55:41.487]  - Condition #206: 'simpleMessage', 'message', 'condition'
  [14:55:40.958] {
  [14:55:40.958]     doFuture::registerDoFuture()
  [14:55:40.958]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:40.958]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:40.958]         b <- NULL
  [14:55:40.958]         ...future.env <- environment()
  [14:55:40.958]         local({
  [14:55:40.958]             for (name in names(...future.x_jj)) {
  [14:55:40.958]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:40.958]                   inherits = FALSE)
  [14:55:40.958]             }
  [14:55:40.958]         })
  [14:55:40.958]         tryCatch({
  [14:55:40.958]             plan_list <- future::plan("next")
  [14:55:40.958]             message(capture.output(print(plan_list)))
  [14:55:40.958]             stopifnot(inherits(plan_list, "future"))
  [14:55:40.958]             default <- getOption("future.plan", "sequential")
  [14:55:40.958]             if (is.function(default)) 
  [14:55:40.958]                 default <- class(default)
  [14:55:40.958]             stopifnot(inherits(plan_list, default))
  [14:55:40.958]             plan_b <- future::plan("list")
  [14:55:40.958]             str(plan_b)
  [14:55:40.958]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:55:40.958]                 default))
  [14:55:40.958]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:40.958]         }, error = identity)
  [14:55:40.958]     })
  [14:55:40.958] }
  [14:55:41.488]  - Condition #207: 'simpleMessage', 'message', 'condition'
  [14:55:40.959]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:41.488]  - Condition #208: 'simpleMessage', 'message', 'condition'
  [14:55:40.960] List of 3
  [14:55:40.960]  $ ...future.x_ii: NULL
  [14:55:40.960]  $ a             : int 2
  [14:55:40.960]  $ plan_a        :List of 1
  [14:55:40.960]   ..$ b:function (..., envir = parent.frame())  
  [14:55:40.960]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [14:55:40.960]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:40.960]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:40.960]  - attr(*, "where")=List of 3
  [14:55:40.960]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:40.960]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:40.960]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:40.960]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:40.960]  - attr(*, "resolved")= logi FALSE
  [14:55:40.960]  - attr(*, "total_size")= num 11568
  [14:55:41.501]  - Condition #209: 'simpleMessage', 'message', 'condition'
  [14:55:40.970]   - packages: [2] 'doFuture', 'utils'
  [14:55:41.501]  - Condition #210: 'simpleMessage', 'message', 'condition'
  [14:55:40.971] - identifying globals and packages ... DONE
  [14:55:41.501]  - Condition #211: 'simpleMessage', 'message', 'condition'
  [14:55:40.971] Number of chunks: 1
  [14:55:41.502]  - Condition #212: 'simpleMessage', 'message', 'condition'
  [14:55:40.971] Number of futures (= number of chunks): 1
  [14:55:41.502]  - Condition #213: 'simpleMessage', 'message', 'condition'
  [14:55:40.972] Launching 1 futures (chunks) ...
  [14:55:41.502]  - Condition #214: 'simpleMessage', 'message', 'condition'
  [14:55:40.972] Chunk #1 of 1 ...
  [14:55:41.503]  - Condition #215: 'simpleMessage', 'message', 'condition'
  [14:55:40.988]  - Finding globals in 'args_list' chunk #1 ...
  [14:55:41.503]  - Condition #216: 'simpleMessage', 'message', 'condition'
  [14:55:40.989] getGlobalsAndPackages() ...
  [14:55:41.504]  - Condition #217: 'simpleMessage', 'message', 'condition'
  [14:55:40.989] Searching for globals...
  [14:55:41.504]  - Condition #218: 'simpleMessage', 'message', 'condition'
  [14:55:40.990] 
  [14:55:41.504]  - Condition #219: 'simpleMessage', 'message', 'condition'
  [14:55:40.991] Searching for globals ... DONE
  [14:55:41.505]  - Condition #220: 'simpleMessage', 'message', 'condition'
  [14:55:40.991] - globals: [0] <none>
  [14:55:41.505]  - Condition #221: 'simpleMessage', 'message', 'condition'
  [14:55:40.991] getGlobalsAndPackages() ... DONE
  [14:55:41.505]  - Condition #222: 'simpleMessage', 'message', 'condition'
  [14:55:40.991] 
  [14:55:41.510]  - Condition #223: 'simpleMessage', 'message', 'condition'
  [14:55:40.992] 
  [14:55:41.511]  - Condition #224: 'simpleMessage', 'message', 'condition'
  [14:55:40.992]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:55:41.511]  - Condition #225: 'simpleMessage', 'message', 'condition'
  [14:55:40.993] getGlobalsAndPackages() ...
  [14:55:41.511]  - Condition #226: 'simpleMessage', 'message', 'condition'
  [14:55:40.993] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:41.512]  - Condition #227: 'simpleMessage', 'message', 'condition'
  [14:55:40.993] Resolving globals: FALSE
  [14:55:41.512]  - Condition #228: 'simpleMessage', 'message', 'condition'
  [14:55:40.994] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:41.512]  - Condition #229: 'simpleMessage', 'message', 'condition'
  [14:55:40.994] 
  [14:55:41.513]  - Condition #230: 'simpleMessage', 'message', 'condition'
  [14:55:40.995] getGlobalsAndPackages() ... DONE
  [14:55:41.513]  - Condition #231: 'simpleMessage', 'message', 'condition'
  [14:55:40.995] run() for 'Future' ...
  [14:55:41.514]  - Condition #232: 'simpleMessage', 'message', 'condition'
  [14:55:40.996] - state: 'created'
  [14:55:41.514]  - Condition #233: 'simpleMessage', 'message', 'condition'
  [14:55:40.996] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:55:41.514]  - Condition #234: 'simpleMessage', 'message', 'condition'
  [14:55:40.997] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:55:41.515]  - Condition #235: 'simpleMessage', 'message', 'condition'
  [14:55:40.997] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:55:41.515]  - Condition #236: 'simpleMessage', 'message', 'condition'
  [14:55:40.998]   - Field: 'label'
  [14:55:41.516]  - Condition #237: 'simpleMessage', 'message', 'condition'
  [14:55:40.998]   - Field: 'local'
  [14:55:41.516]  - Condition #238: 'simpleMessage', 'message', 'condition'
  [14:55:40.998]   - Field: 'owner'
  [14:55:41.533]  - Condition #239: 'simpleMessage', 'message', 'condition'
  [14:55:40.999]   - Field: 'envir'
  [14:55:41.533]  - Condition #240: 'simpleMessage', 'message', 'condition'
  [14:55:40.999]   - Field: 'packages'
  [14:55:41.533]  - Condition #241: 'simpleMessage', 'message', 'condition'
  [14:55:40.999]   - Field: 'gc'
  [14:55:41.534]  - Condition #242: 'simpleMessage', 'message', 'condition'
  [14:55:40.999]   - Field: 'conditions'
  [14:55:41.534]  - Condition #243: 'simpleMessage', 'message', 'condition'
  [14:55:41.000]   - Field: 'persistent'
  [14:55:41.535]  - Condition #244: 'simpleMessage', 'message', 'condition'
  [14:55:41.000]   - Field: 'expr'
  [14:55:41.535]  - Condition #245: 'simpleMessage', 'message', 'condition'
  [14:55:41.000]   - Field: 'uuid'
  [14:55:41.535]  - Condition #246: 'simpleMessage', 'message', 'condition'
  [14:55:41.001]   - Field: 'seed'
  [14:55:41.536]  - Condition #247: 'simpleMessage', 'message', 'condition'
  [14:55:41.001]   - Field: 'version'
  [14:55:41.536]  - Condition #248: 'simpleMessage', 'message', 'condition'
  [14:55:41.001]   - Field: 'result'
  [14:55:41.536]  - Condition #249: 'simpleMessage', 'message', 'condition'
  [14:55:41.002]   - Field: 'asynchronous'
  [14:55:41.537]  - Condition #250: 'simpleMessage', 'message', 'condition'
  [14:55:41.002]   - Field: 'calls'
  [14:55:41.537]  - Condition #251: 'simpleMessage', 'message', 'condition'
  [14:55:41.002]   - Field: 'globals'
  [14:55:41.537]  - Condition #252: 'simpleMessage', 'message', 'condition'
  [14:55:41.003]   - Field: 'stdout'
  [14:55:41.538]  - Condition #253: 'simpleMessage', 'message', 'condition'
  [14:55:41.003]   - Field: 'earlySignal'
  [14:55:41.538]  - Condition #254: 'simpleMessage', 'message', 'condition'
  [14:55:41.003]   - Field: 'lazy'
  [14:55:41.539]  - Condition #255: 'simpleMessage', 'message', 'condition'
  [14:55:41.003]   - Field: 'state'
  [14:55:41.539]  - Condition #256: 'simpleMessage', 'message', 'condition'
  [14:55:41.004] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:55:41.539]  - Condition #257: 'simpleMessage', 'message', 'condition'
  [14:55:41.004] - Launch lazy future ...
  [14:55:41.540]  - Condition #258: 'simpleMessage', 'message', 'condition'
  [14:55:41.017] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:55:41.540]  - Condition #259: 'simpleMessage', 'message', 'condition'
  [14:55:41.018] Packages needed by future strategies (n = 0): <none>
  [14:55:41.540]  - Condition #260: 'simpleMessage', 'message', 'condition'
  [14:55:41.020] {
  [14:55:41.020]     {
  [14:55:41.020]         ...future.startTime <- base::Sys.time()
  [14:55:41.020]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:55:41.020]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:55:41.020]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:55:41.020]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:55:41.020]             future.resolve.recursive = NULL, future.rng.onMisuse = NULL, 
  [14:55:41.020]             future.rng.onMisuse.keepFuture = NULL, future.stdout.windows.reencode = NULL, 
  [14:55:41.020]             width = 80L)
  [14:55:41.020]         {
  [14:55:41.020]             {
  [14:55:41.020]                 {
  [14:55:41.020]                   base::local({
  [14:55:41.020]                     has_future <- base::requireNamespace("future", 
  [14:55:41.020]                       quietly = TRUE)
  [14:55:41.020]                     if (has_future) {
  [14:55:41.020]                       ns <- base::getNamespace("future")
  [14:55:41.020]                       version <- ns[[".package"]][["version"]]
  [14:55:41.020]                       if (is.null(version)) 
  [14:55:41.020]                         version <- utils::packageVersion("future")
  [14:55:41.020]                     }
  [14:55:41.020]                     else {
  [14:55:41.020]                       version <- NULL
  [14:55:41.020]                     }
  [14:55:41.020]                     if (!has_future || version < "1.8.0") {
  [14:55:41.020]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:55:41.020]                         "", base::R.version$version.string), 
  [14:55:41.020]                         platform = base::sprintf("%s (%s-bit)", 
  [14:55:41.020]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:55:41.020]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:55:41.020]                           "release", "version")], collapse = " "), 
  [14:55:41.020]                         hostname = base::Sys.info()[["nodename"]])
  [14:55:41.020]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:55:41.020]                         info)
  [14:55:41.020]                       info <- base::paste(info, collapse = "; ")
  [14:55:41.020]                       if (!has_future) {
  [14:55:41.020]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:55:41.020]                           info)
  [14:55:41.020]                       }
  [14:55:41.020]                       else {
  [14:55:41.020]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:55:41.020]                           info, version)
  [14:55:41.020]                       }
  [14:55:41.020]                       base::stop(msg)
  [14:55:41.020]                     }
  [14:55:41.020]                   })
  [14:55:41.020]                 }
  [14:55:41.020]                 base::local({
  [14:55:41.020]                   for (pkg in c("doFuture", "utils")) {
  [14:55:41.020]                     base::loadNamespace(pkg)
  [14:55:41.020]                     base::library(pkg, character.only = TRUE)
  [14:55:41.020]                   }
  [14:55:41.020]                 })
  [14:55:41.020]             }
  [14:55:41.020]             options(future.plan = NULL)
  [14:55:41.020]             Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:41.020]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:55:41.020]         }
  [14:55:41.020]     }
  [14:55:41.020]     if (FALSE) {
  [14:55:41.020]     }
  [14:55:41.020]     else {
  [14:55:41.020]         if (TRUE) {
  [14:55:41.020]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:55:41.020]                 open = "w")
  [14:55:41.020]         }
  [14:55:41.020]         else {
  [14:55:41.020]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:55:41.020]                 windows = "NUL", "/dev/null"), open = "w")
  [14:55:41.020]         }
  [14:55:41.020]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:55:41.020]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:55:41.020]             base::sink(type = "output", split = FALSE)
  [14:55:41.020]             base::close(...future.stdout)
  [14:55:41.020]         }, add = TRUE)
  [14:55:41.020]     }
  [14:55:41.020]     ...future.frame <- base::sys.nframe()
  [14:55:41.020]     ...future.conditions <- base::list()
  [14:55:41.020]     ...future.rng <- base::globalenv()$.Random.seed
  [14:55:41.020]     ...future.result <- base::tryCatch({
  [14:55:41.020]         base::withCallingHandlers({
  [14:55:41.020]             ...future.value <- base::withVisible(base::local({
  [14:55:41.020]                 doFuture::registerDoFuture()
  [14:55:41.020]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:41.020]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:41.020]                   b <- NULL
  [14:55:41.020]                   ...future.env <- environment()
  [14:55:41.020]                   local({
  [14:55:41.020]                     for (name in names(...future.x_jj)) {
  [14:55:41.020]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:41.020]                         inherits = FALSE)
  [14:55:41.020]                     }
  [14:55:41.020]                   })
  [14:55:41.020]                   tryCatch({
  [14:55:41.020]                     plan_list <- future::plan("next")
  [14:55:41.020]                     message(capture.output(print(plan_list)))
  [14:55:41.020]                     stopifnot(inherits(plan_list, "future"))
  [14:55:41.020]                     default <- getOption("future.plan", "sequential")
  [14:55:41.020]                     if (is.function(default)) 
  [14:55:41.020]                       default <- class(default)
  [14:55:41.020]                     stopifnot(inherits(plan_list, default))
  [14:55:41.020]                     plan_b <- future::plan("list")
  [14:55:41.020]                     str(plan_b)
  [14:55:41.020]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:41.020]                       inherits(plan_b[[1]], default))
  [14:55:41.020]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:41.020]                   }, error = identity)
  [14:55:41.020]                 })
  [14:55:41.020]             }))
  [14:55:41.020]             future::FutureResult(value = ...future.value$value, 
  [14:55:41.020]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:41.020]                   ...future.rng), started = ...future.startTime, 
  [14:55:41.020]                 version = "1.8")
  [14:55:41.020]         }, condition = base::local({
  [14:55:41.020]             c <- base::c
  [14:55:41.020]             inherits <- base::inherits
  [14:55:41.020]             invokeRestart <- base::invokeRestart
  [14:55:41.020]             length <- base::length
  [14:55:41.020]             list <- base::list
  [14:55:41.020]             seq.int <- base::seq.int
  [14:55:41.020]             signalCondition <- base::signalCondition
  [14:55:41.020]             sys.calls <- base::sys.calls
  [14:55:41.020]             `[[` <- base::`[[`
  [14:55:41.020]             `+` <- base::`+`
  [14:55:41.020]             `<<-` <- base::`<<-`
  [14:55:41.020]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:55:41.020]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:55:41.020]                   3L)]
  [14:55:41.020]             }
  [14:55:41.020]             function(cond) {
  [14:55:41.020]                 is_error <- inherits(cond, "error")
  [14:55:41.020]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:55:41.020]                   NULL)
  [14:55:41.020]                 if (is_error) {
  [14:55:41.020]                   sessionInformation <- function() {
  [14:55:41.020]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:55:41.020]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:55:41.020]                       search = base::search(), system = base::Sys.info())
  [14:55:41.020]                   }
  [14:55:41.020]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:41.020]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:55:41.020]                     cond$call), session = sessionInformation(), 
  [14:55:41.020]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:55:41.020]                   signalCondition(cond)
  [14:55:41.020]                 }
  [14:55:41.020]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:55:41.020]                 "immediateCondition"))) {
  [14:55:41.020]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:55:41.020]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:41.020]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:55:41.020]                   if (TRUE && !signal) {
  [14:55:41.020]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:41.020]                     {
  [14:55:41.020]                       inherits <- base::inherits
  [14:55:41.020]                       invokeRestart <- base::invokeRestart
  [14:55:41.020]                       is.null <- base::is.null
  [14:55:41.020]                       muffled <- FALSE
  [14:55:41.020]                       if (inherits(cond, "message")) {
  [14:55:41.020]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:41.020]                         if (muffled) 
  [14:55:41.020]                           invokeRestart("muffleMessage")
  [14:55:41.020]                       }
  [14:55:41.020]                       else if (inherits(cond, "warning")) {
  [14:55:41.020]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:41.020]                         if (muffled) 
  [14:55:41.020]                           invokeRestart("muffleWarning")
  [14:55:41.020]                       }
  [14:55:41.020]                       else if (inherits(cond, "condition")) {
  [14:55:41.020]                         if (!is.null(pattern)) {
  [14:55:41.020]                           computeRestarts <- base::computeRestarts
  [14:55:41.020]                           grepl <- base::grepl
  [14:55:41.020]                           restarts <- computeRestarts(cond)
  [14:55:41.020]                           for (restart in restarts) {
  [14:55:41.020]                             name <- restart$name
  [14:55:41.020]                             if (is.null(name)) 
  [14:55:41.020]                               next
  [14:55:41.020]                             if (!grepl(pattern, name)) 
  [14:55:41.020]                               next
  [14:55:41.020]                             invokeRestart(restart)
  [14:55:41.020]                             muffled <- TRUE
  [14:55:41.020]                             break
  [14:55:41.020]                           }
  [14:55:41.020]                         }
  [14:55:41.020]                       }
  [14:55:41.020]                       invisible(muffled)
  [14:55:41.020]                     }
  [14:55:41.020]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:41.020]                   }
  [14:55:41.020]                 }
  [14:55:41.020]                 else {
  [14:55:41.020]                   if (TRUE) {
  [14:55:41.020]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:41.020]                     {
  [14:55:41.020]                       inherits <- base::inherits
  [14:55:41.020]                       invokeRestart <- base::invokeRestart
  [14:55:41.020]                       is.null <- base::is.null
  [14:55:41.020]                       muffled <- FALSE
  [14:55:41.020]                       if (inherits(cond, "message")) {
  [14:55:41.020]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:41.020]                         if (muffled) 
  [14:55:41.020]                           invokeRestart("muffleMessage")
  [14:55:41.020]                       }
  [14:55:41.020]                       else if (inherits(cond, "warning")) {
  [14:55:41.020]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:41.020]                         if (muffled) 
  [14:55:41.020]                           invokeRestart("muffleWarning")
  [14:55:41.020]                       }
  [14:55:41.020]                       else if (inherits(cond, "condition")) {
  [14:55:41.020]                         if (!is.null(pattern)) {
  [14:55:41.020]                           computeRestarts <- base::computeRestarts
  [14:55:41.020]                           grepl <- base::grepl
  [14:55:41.020]                           restarts <- computeRestarts(cond)
  [14:55:41.020]                           for (restart in restarts) {
  [14:55:41.020]                             name <- restart$name
  [14:55:41.020]                             if (is.null(name)) 
  [14:55:41.020]                               next
  [14:55:41.020]                             if (!grepl(pattern, name)) 
  [14:55:41.020]                               next
  [14:55:41.020]                             invokeRestart(restart)
  [14:55:41.020]                             muffled <- TRUE
  [14:55:41.020]                             break
  [14:55:41.020]                           }
  [14:55:41.020]                         }
  [14:55:41.020]                       }
  [14:55:41.020]                       invisible(muffled)
  [14:55:41.020]                     }
  [14:55:41.020]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:41.020]                   }
  [14:55:41.020]                 }
  [14:55:41.020]             }
  [14:55:41.020]         }))
  [14:55:41.020]     }, error = function(ex) {
  [14:55:41.020]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:55:41.020]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:41.020]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:55:41.020]     }, finally = {
  [14:55:41.020]         {
  [14:55:41.020]             {
  [14:55:41.020]                 NULL
  [14:55:41.020]                 RNGkind("Mersenne-Twister")
  [14:55:41.020]                 base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:55:41.020]                   inherits = FALSE)
  [14:55:41.020]             }
  [14:55:41.020]             options(future.plan = NULL)
  [14:55:41.020]             if (is.na(NA_character_)) 
  [14:55:41.020]                 Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:41.020]             else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:55:41.020]             future::plan(list(b = function (..., envir = parent.frame()) 
  [14:55:41.020]             {
  [14:55:41.020]                 future <- SequentialFuture(..., envir = envir)
  [14:55:41.020]                 if (!future$lazy) 
  [14:55:41.020]                   future <- run(future)
  [14:55:41.020]                 invisible(future)
  [14:55:41.020]             }), .cleanup = FALSE, .init = FALSE)
  [14:55:41.020]         }
  [14:55:41.020]         base::options(...future.oldOptions)
  [14:55:41.020]     })
  [14:55:41.020]     if (TRUE) {
  [14:55:41.020]         base::sink(type = "output", split = FALSE)
  [14:55:41.020]         if (TRUE) {
  [14:55:41.020]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:55:41.020]         }
  [14:55:41.020]         else {
  [14:55:41.020]             ...future.result["stdout"] <- base::list(NULL)
  [14:55:41.020]         }
  [14:55:41.020]         base::close(...future.stdout)
  [14:55:41.020]         ...future.stdout <- NULL
  [14:55:41.020]     }
  [14:55:41.020]     ...future.result$conditions <- ...future.conditions
  [14:55:41.020]     ...future.result
  [14:55:41.020] }
  [14:55:41.541]  - Condition #261: 'simpleMessage', 'message', 'condition'
  [14:55:41.023] assign_globals() ...
  [14:55:41.541]  - Condition #262: 'simpleMessage', 'message', 'condition'
  [14:55:41.024] List of 3
  [14:55:41.024]  $ ...future.x_ii:List of 3
  [14:55:41.024]   ..$ :List of 1
  [14:55:41.024]   .. ..$ b: int 3
  [14:55:41.024]   ..$ :List of 1
  [14:55:41.024]   .. ..$ b: int 2
  [14:55:41.024]   ..$ :List of 1
  [14:55:41.024]   .. ..$ b: int 1
  [14:55:41.024]  $ a             : int 2
  [14:55:41.024]  $ plan_a        :List of 1
  [14:55:41.024]   ..$ b:function (..., envir = parent.frame())  
  [14:55:41.024]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [14:55:41.024]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:41.024]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:41.024]  - attr(*, "where")=List of 3
  [14:55:41.024]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:41.024]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:41.024]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:41.024]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:41.024]  - attr(*, "resolved")= logi FALSE
  [14:55:41.024]  - attr(*, "total_size")= num 11568
  [14:55:41.024]  - attr(*, "already-done")= logi TRUE
  [14:55:41.541]  - Condition #263: 'simpleMessage', 'message', 'condition'
  [14:55:41.057] - copied '...future.x_ii' to environment
  [14:55:41.542]  - Condition #264: 'simpleMessage', 'message', 'condition'
  [14:55:41.057] - copied 'a' to environment
  [14:55:41.542]  - Condition #265: 'simpleMessage', 'message', 'condition'
  [14:55:41.062] - copied 'plan_a' to environment
  [14:55:41.543]  - Condition #266: 'simpleMessage', 'message', 'condition'
  [14:55:41.062] List of 3
  [14:55:41.062]  $ ...future.x_ii:List of 3
  [14:55:41.062]   ..$ :List of 1
  [14:55:41.062]   .. ..$ b: int 3
  [14:55:41.062]   ..$ :List of 1
  [14:55:41.062]   .. ..$ b: int 2
  [14:55:41.062]   ..$ :List of 1
  [14:55:41.062]   .. ..$ b: int 1
  [14:55:41.062]  $ a             : int 2
  [14:55:41.062]  $ plan_a        :List of 1
  [14:55:41.062]   ..$ b:function (..., envir = parent.frame())  
  [14:55:41.062]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [14:55:41.062]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:41.062]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:41.062]  - attr(*, "where")=List of 3
  [14:55:41.062]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:41.062]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:41.062]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:41.062]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:41.062]  - attr(*, "resolved")= logi FALSE
  [14:55:41.062]  - attr(*, "total_size")= num 11568
  [14:55:41.062]  - attr(*, "already-done")= logi TRUE
  [14:55:41.543]  - Condition #267: 'simpleMessage', 'message', 'condition'
  [14:55:41.095] assign_globals() ... done
  [14:55:41.543]  - Condition #268: 'simpleMessage', 'message', 'condition'
  [14:55:41.113] plan(): Setting new future strategy stack:
  [14:55:41.544]  - Condition #269: 'simpleMessage', 'message', 'condition'
  [14:55:41.113] List of future strategies:
  [14:55:41.113] 1. sequential:
  [14:55:41.113]    - args: function (..., envir = parent.frame())
  [14:55:41.113]    - tweaked: FALSE
  [14:55:41.113]    - call: NULL
  [14:55:41.544]  - Condition #270: 'simpleMessage', 'message', 'condition'
  [14:55:41.115] plan(): nbrOfWorkers() = 1
  [14:55:41.544]  - Condition #271: 'simpleMessage', 'message', 'condition'
  [14:55:41.217] plan(): Setting new future strategy stack:
  [14:55:41.545]  - Condition #272: 'simpleMessage', 'message', 'condition'
  [14:55:41.218] List of future strategies:
  [14:55:41.218] 1. sequential:
  [14:55:41.218]    - args: function (..., envir = parent.frame())
  [14:55:41.218]    - tweaked: FALSE
  [14:55:41.218]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:41.545]  - Condition #273: 'simpleMessage', 'message', 'condition'
  [14:55:41.219] plan(): nbrOfWorkers() = 1
  [14:55:41.545]  - Condition #274: 'simpleMessage', 'message', 'condition'
  [14:55:41.219] SequentialFuture started (and completed)
  [14:55:41.546]  - Condition #275: 'simpleMessage', 'message', 'condition'
  [14:55:41.220] signalConditions() ...
  [14:55:41.546]  - Condition #276: 'simpleMessage', 'message', 'condition'
  [14:55:41.220]  - include = 'immediateCondition'
  [14:55:41.546]  - Condition #277: 'simpleMessage', 'message', 'condition'
  [14:55:41.237]  - exclude = 
  [14:55:41.547]  - Condition #278: 'simpleMessage', 'message', 'condition'
  [14:55:41.237]  - resignal = FALSE
  [14:55:41.547]  - Condition #279: 'simpleMessage', 'message', 'condition'
  [14:55:41.237]  - Number of conditions: 3
  [14:55:41.548]  - Condition #280: 'simpleMessage', 'message', 'condition'
  [14:55:41.238] signalConditions() ... done
  [14:55:41.548]  - Condition #281: 'simpleMessage', 'message', 'condition'
  [14:55:41.238] - Launch lazy future ... done
  [14:55:41.565]  - Condition #282: 'simpleMessage', 'message', 'condition'
  [14:55:41.238] run() for 'SequentialFuture' ... done
  [14:55:41.565]  - Condition #283: 'simpleMessage', 'message', 'condition'
  [14:55:41.239] Chunk #1 of 1 ... DONE
  [14:55:41.565]  - Condition #284: 'simpleMessage', 'message', 'condition'
  [14:55:41.239] Launching 1 futures (chunks) ... DONE
  [14:55:41.566]  - Condition #285: 'simpleMessage', 'message', 'condition'
  [14:55:41.239] - resolving futures
  [14:55:41.566]  - Condition #286: 'simpleMessage', 'message', 'condition'
  [14:55:41.239]   - gathering results & relaying conditions (except errors)
  [14:55:41.567]  - Condition #287: 'simpleMessage', 'message', 'condition'
  [14:55:41.240] resolve() on list ...
  [14:55:41.567]  - Condition #288: 'simpleMessage', 'message', 'condition'
  [14:55:41.240]  recursive: 0
  [14:55:41.567]  - Condition #289: 'simpleMessage', 'message', 'condition'
  [14:55:41.240]  length: 1
  [14:55:41.568]  - Condition #290: 'simpleMessage', 'message', 'condition'
  [14:55:41.241] 
  [14:55:41.568]  - Condition #291: 'simpleMessage', 'message', 'condition'
  [14:55:41.241] resolved() for 'SequentialFuture' ...
  [14:55:41.569]  - Condition #292: 'simpleMessage', 'message', 'condition'
  [14:55:41.241] - state: 'finished'
  [14:55:41.569]  - Condition #293: 'simpleMessage', 'message', 'condition'
  [14:55:41.241] - run: TRUE
  [14:55:41.569]  - Condition #294: 'simpleMessage', 'message', 'condition'
  [14:55:41.242] - result: 'FutureResult'
  [14:55:41.570]  - Condition #295: 'simpleMessage', 'message', 'condition'
  [14:55:41.242] resolved() for 'SequentialFuture' ... done
  [14:55:41.570]  - Condition #296: 'simpleMessage', 'message', 'condition'
  [14:55:41.242] Future #1
  [14:55:41.570]  - Condition #297: 'simpleMessage', 'message', 'condition'
  [14:55:41.243] signalConditions() ...
  [14:55:41.571]  - Condition #298: 'simpleMessage', 'message', 'condition'
  [14:55:41.243]  - include = 'immediateCondition'
  [14:55:41.571]  - Condition #299: 'simpleMessage', 'message', 'condition'
  [14:55:41.243]  - exclude = 
  [14:55:41.572]  - Condition #300: 'simpleMessage', 'message', 'condition'
  [14:55:41.243]  - resignal = FALSE
  [14:55:41.572]  - Condition #301: 'simpleMessage', 'message', 'condition'
  [14:55:41.244]  - Number of conditions: 3
  [14:55:41.572]  - Condition #302: 'simpleMessage', 'message', 'condition'
  [14:55:41.244] signalConditions() ... done
  [14:55:41.573]  - Condition #303: 'simpleMessage', 'message', 'condition'
  [14:55:41.244] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:55:41.573]  - Condition #304: 'simpleMessage', 'message', 'condition'
  [14:55:41.245] - nx: 1
  [14:55:41.573]  - Condition #305: 'simpleMessage', 'message', 'condition'
  [14:55:41.245] - relay: TRUE
  [14:55:41.574]  - Condition #306: 'simpleMessage', 'message', 'condition'
  [14:55:41.245] - stdout: TRUE
  [14:55:41.574]  - Condition #307: 'simpleMessage', 'message', 'condition'
  [14:55:41.245] - signal: TRUE
  [14:55:41.574]  - Condition #308: 'simpleMessage', 'message', 'condition'
  [14:55:41.246] - resignal: FALSE
  [14:55:41.575]  - Condition #309: 'simpleMessage', 'message', 'condition'
  [14:55:41.246] - force: FALSE
  [14:55:41.575]  - Condition #310: 'simpleMessage', 'message', 'condition'
  [14:55:41.246] - relayed: [n=1] FALSE
  [14:55:41.576]  - Condition #311: 'simpleMessage', 'message', 'condition'
  [14:55:41.246] - queued futures: [n=1] FALSE
  [14:55:41.576]  - Condition #312: 'simpleMessage', 'message', 'condition'
  [14:55:41.247]  - until=1
  [14:55:41.576]  - Condition #313: 'simpleMessage', 'message', 'condition'
  [14:55:41.247]  - relaying element #1
  [14:55:41.577]  - Condition #314: 'simpleMessage', 'message', 'condition'
  [14:55:41.247] signalConditions() ...
  [14:55:41.577]  - Condition #315: 'simpleMessage', 'message', 'condition'
  [14:55:41.248]  - include = 'immediateCondition'
  [14:55:41.577]  - Condition #316: 'simpleMessage', 'message', 'condition'
  [14:55:41.248]  - exclude = 
  [14:55:41.578]  - Condition #317: 'simpleMessage', 'message', 'condition'
  [14:55:41.248]  - resignal = FALSE
  [14:55:41.578]  - Condition #318: 'simpleMessage', 'message', 'condition'
  [14:55:41.249]  - Number of conditions: 3
  [14:55:41.579]  - Condition #319: 'simpleMessage', 'message', 'condition'
  [14:55:41.249] signalConditions() ... done
  [14:55:41.579]  - Condition #320: 'simpleMessage', 'message', 'condition'
  [14:55:41.249] signalConditions() ...
  [14:55:41.579]  - Condition #321: 'simpleMessage', 'message', 'condition'
  [14:55:41.250]  - include = 'immediateCondition'
  [14:55:41.580]  - Condition #322: 'simpleMessage', 'message', 'condition'
  [14:55:41.250]  - exclude = 
  [14:55:41.580]  - Condition #323: 'simpleMessage', 'message', 'condition'
  [14:55:41.250]  - resignal = FALSE
  [14:55:41.597]  - Condition #324: 'simpleMessage', 'message', 'condition'
  [14:55:41.251]  - Number of conditions: 3
  [14:55:41.597]  - Condition #325: 'simpleMessage', 'message', 'condition'
  [14:55:41.251] signalConditions() ... done
  [14:55:41.598]  - Condition #326: 'simpleMessage', 'message', 'condition'
  [14:55:41.251] signalConditions() ...
  [14:55:41.598]  - Condition #327: 'simpleMessage', 'message', 'condition'
  [14:55:41.251]  - include = 'condition'
  [14:55:41.598]  - Condition #328: 'simpleMessage', 'message', 'condition'
  [14:55:41.252]  - exclude = 'immediateCondition'
  [14:55:41.599]  - Condition #329: 'simpleMessage', 'message', 'condition'
  [14:55:41.252]  - resignal = FALSE
  [14:55:41.599]  - Condition #330: 'simpleMessage', 'message', 'condition'
  [14:55:41.269]  - Number of conditions: 3
  [14:55:41.599]  - Condition #331: 'simpleMessage', 'message', 'condition'
  [14:55:41.269]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:55:41.600]  - Condition #332: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (..., envir = parent.frame())- tweaked: FALSE- call: NULL
  [14:55:41.600]  - Condition #333: 'simpleMessage', 'message', 'condition'
  [14:55:41.269]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:55:41.601]  - Condition #334: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (..., envir = parent.frame())- tweaked: FALSE- call: NULL
  [14:55:41.601]  - Condition #335: 'simpleMessage', 'message', 'condition'
  [14:55:41.270]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:55:41.601]  - Condition #336: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (..., envir = parent.frame())- tweaked: FALSE- call: NULL
  [14:55:41.602]  - Condition #337: 'simpleMessage', 'message', 'condition'
  [14:55:41.270] signalConditions() ... done
  [14:55:41.602]  - Condition #338: 'simpleMessage', 'message', 'condition'
  [14:55:41.271] - relayed: [n=1] TRUE
  [14:55:41.602]  - Condition #339: 'simpleMessage', 'message', 'condition'
  [14:55:41.271] - queued futures: [n=1] TRUE
  [14:55:41.603]  - Condition #340: 'simpleMessage', 'message', 'condition'
  [14:55:41.271] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:55:41.603]  - Condition #341: 'simpleMessage', 'message', 'condition'
  [14:55:41.272]  length: 0 (resolved future 1)
  [14:55:41.604]  - Condition #342: 'simpleMessage', 'message', 'condition'
  [14:55:41.272] Relaying remaining futures
  [14:55:41.604]  - Condition #343: 'simpleMessage', 'message', 'condition'
  [14:55:41.272] signalConditionsASAP(NULL, pos=0) ...
  [14:55:41.604]  - Condition #344: 'simpleMessage', 'message', 'condition'
  [14:55:41.273] - nx: 1
  [14:55:41.605]  - Condition #345: 'simpleMessage', 'message', 'condition'
  [14:55:41.273] - relay: TRUE
  [14:55:41.605]  - Condition #346: 'simpleMessage', 'message', 'condition'
  [14:55:41.273] - stdout: TRUE
  [14:55:41.605]  - Condition #347: 'simpleMessage', 'message', 'condition'
  [14:55:41.274] - signal: TRUE
  [14:55:41.606]  - Condition #348: 'simpleMessage', 'message', 'condition'
  [14:55:41.274] - resignal: FALSE
  [14:55:41.606]  - Condition #349: 'simpleMessage', 'message', 'condition'
  [14:55:41.274] - force: FALSE
  [14:55:41.607]  - Condition #350: 'simpleMessage', 'message', 'condition'
  [14:55:41.274] - relayed: [n=1] TRUE
  [14:55:41.607]  - Condition #351: 'simpleMessage', 'message', 'condition'
  [14:55:41.275] - queued futures: [n=1] TRUE
  [14:55:41.607]  - Condition #352: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:55:41.608]  - Condition #353: 'simpleMessage', 'message', 'condition'
  [14:55:41.275] - relayed: [n=1] TRUE
  [14:55:41.608]  - Condition #354: 'simpleMessage', 'message', 'condition'
  [14:55:41.276] - queued futures: [n=1] TRUE
  [14:55:41.608]  - Condition #355: 'simpleMessage', 'message', 'condition'
  [14:55:41.276] signalConditionsASAP(NULL, pos=0) ... done
  [14:55:41.609]  - Condition #356: 'simpleMessage', 'message', 'condition'
  [14:55:41.276] resolve() on list ... DONE
  [14:55:41.609]  - Condition #357: 'simpleMessage', 'message', 'condition'
  [14:55:41.277] - collecting values of futures
  [14:55:41.609]  - Condition #358: 'simpleMessage', 'message', 'condition'
  [14:55:41.277] signalConditions() ...
  [14:55:41.610]  - Condition #359: 'simpleMessage', 'message', 'condition'
  [14:55:41.277]  - include = 'immediateCondition'
  [14:55:41.610]  - Condition #360: 'simpleMessage', 'message', 'condition'
  [14:55:41.278]  - exclude = 
  [14:55:41.610]  - Condition #361: 'simpleMessage', 'message', 'condition'
  [14:55:41.278]  - resignal = FALSE
  [14:55:41.631]  - Condition #362: 'simpleMessage', 'message', 'condition'
  [14:55:41.278]  - Number of conditions: 3
  [14:55:41.632]  - Condition #363: 'simpleMessage', 'message', 'condition'
  [14:55:41.278] signalConditions() ... done
  [14:55:41.632]  - Condition #364: 'simpleMessage', 'message', 'condition'
  [14:55:41.279] - accumulating results
  [14:55:41.633]  - Condition #365: 'simpleMessage', 'message', 'condition'
  [14:55:41.301] - processing errors (handler = 'stop')
  [14:55:41.633]  - Condition #366: 'simpleMessage', 'message', 'condition'
  [14:55:41.301] - extracting results
  [14:55:41.633]  - Condition #367: 'simpleMessage', 'message', 'condition'
  [14:55:41.302] doFuture() ... DONE
  [14:55:41.634]  - Condition #368: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:55:41.635] signalConditions() ... done
  [14:55:41.635] - relayed: [n=1] TRUE
  [14:55:41.635] - queued futures: [n=1] TRUE
  [14:55:41.636] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:55:41.636]  length: 0 (resolved future 1)
  [14:55:41.636] Relaying remaining futures
  [14:55:41.637] signalConditionsASAP(NULL, pos=0) ...
  [14:55:41.637] - nx: 1
  [14:55:41.637] - relay: TRUE
  [14:55:41.637] - stdout: TRUE
  [14:55:41.638] - signal: TRUE
  [14:55:41.638] - resignal: FALSE
  [14:55:41.638] - force: FALSE
  [14:55:41.638] - relayed: [n=1] TRUE
  [14:55:41.638] - queued futures: [n=1] TRUE
   - flush all
  [14:55:41.639] - relayed: [n=1] TRUE
  [14:55:41.639] - queued futures: [n=1] TRUE
  [14:55:41.639] signalConditionsASAP(NULL, pos=0) ... done
  [14:55:41.640] resolve() on list ... DONE
  [14:55:41.640] - collecting values of futures
  [14:55:41.640] signalConditions() ...
  [14:55:41.640]  - include = 'immediateCondition'
  [14:55:41.641]  - exclude = 
  [14:55:41.641]  - resignal = FALSE
  [14:55:41.641]  - Number of conditions: 368
  [14:55:41.642] signalConditions() ... done
  [14:55:41.642] - accumulating results
  [14:55:41.643] - processing errors (handler = 'stop')
  [14:55:41.644] - extracting results
  [14:55:41.644] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('sequential', 'sequential')) ... DONE
  - plan(list('sequential', 'multicore')) ...
  [14:55:41.662] plan(): Setting new future strategy stack:
  [14:55:41.662] List of future strategies:
  [14:55:41.662] 1. sequential:
  [14:55:41.662]    - args: function (..., envir = parent.frame())
  [14:55:41.662]    - tweaked: FALSE
  [14:55:41.662]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:41.662] 2. multicore:
  [14:55:41.662]    - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame())
  [14:55:41.662]    - tweaked: FALSE
  [14:55:41.662]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:41.663] plan(): nbrOfWorkers() = 1
  foreach() - level 1 ...
  [14:55:41.664] doFuture() ...
  [14:55:41.665] - dummy globals (as locals): [1] 'a'
  [14:55:41.666] - R expression:
  [14:55:41.666] {
  [14:55:41.666]     doFuture::registerDoFuture()
  [14:55:41.666]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:41.666]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:41.666]         a <- NULL
  [14:55:41.666]         ...future.env <- environment()
  [14:55:41.666]         local({
  [14:55:41.666]             for (name in names(...future.x_jj)) {
  [14:55:41.666]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:41.666]                   inherits = FALSE)
  [14:55:41.666]             }
  [14:55:41.666]         })
  [14:55:41.666]         tryCatch({
  [14:55:41.666]             plan_list <- future::plan("next")
  [14:55:41.666]             stopifnot(inherits(plan_list, strategy2))
  [14:55:41.666]             plan_a <- future::plan("list")
  [14:55:41.666]             str(plan_a)
  [14:55:41.666]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:55:41.666]             message("foreach() - level 2 ...")
  [14:55:41.666]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:55:41.666]                 {
  [14:55:41.666]                   plan_list <- future::plan("next")
  [14:55:41.666]                   message(capture.output(print(plan_list)))
  [14:55:41.666]                   stopifnot(inherits(plan_list, "future"))
  [14:55:41.666]                   default <- getOption("future.plan", "sequential")
  [14:55:41.666]                   if (is.function(default)) 
  [14:55:41.666]                     default <- class(default)
  [14:55:41.666]                   stopifnot(inherits(plan_list, default))
  [14:55:41.666]                   plan_b <- future::plan("list")
  [14:55:41.666]                   str(plan_b)
  [14:55:41.666]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:41.666]                     inherits(plan_b[[1]], default))
  [14:55:41.666]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:41.666]                 }
  [14:55:41.666]             message("foreach() - level 2 ... DONE")
  [14:55:41.666]             y
  [14:55:41.666]         }, error = identity)
  [14:55:41.666]     })
  [14:55:41.666] }
  [14:55:41.667] - identifying globals and packages ...
  [14:55:41.667] getGlobalsAndPackages() ...
  [14:55:41.668] Retrieving 'add' globals ...
  [14:55:41.668] - 'add' globals retrieved: [2] 'bs', 'strategy2'
  [14:55:41.668] Retrieving 'add' globals ... DONE
  [14:55:41.669] Searching for globals...
  [14:55:41.753] - 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:55:41.754] Searching for globals ... DONE
  [14:55:41.754] Resolving globals: FALSE
  [14:55:41.772] The total size of the 3 globals is 184 bytes (184 bytes)
  [14:55:41.774] The total size of the 3 globals exported for future expression ('{; doFuture::registerDoFuture(); lapply(seq_along(...future.x_ii), FUN = function(jj) {; ...future.x_jj <- ...future.x_ii[[jj]]; a <- NULL; ...future.env <- environment(); ...; }, error = identity); }); }') is 184 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: 'strategy2' (120 bytes of class 'character'), 'bs' (64 bytes of class 'numeric') and '...future.x_ii' (0 bytes of class 'NULL')
  [14:55:41.774] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:55:41.775] - packages: [2] 'utils', 'foreach'
  [14:55:41.775] getGlobalsAndPackages() ... DONE
  [14:55:41.775] List of 3
  [14:55:41.775]  $ ...future.x_ii: NULL
  [14:55:41.775]  $ strategy2     : chr "multicore"
  [14:55:41.775]  $ bs            : int [1:3] 3 2 1
  [14:55:41.775]  - attr(*, "where")=List of 3
  [14:55:41.775]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:41.775]   ..$ strategy2     :<environment: R_EmptyEnv> 
  [14:55:41.775]   ..$ bs            :<environment: R_EmptyEnv> 
  [14:55:41.775]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:41.775]  - attr(*, "resolved")= logi FALSE
  [14:55:41.775]  - attr(*, "total_size")= num 184
  [14:55:41.783]   - R expression:
  [14:55:41.784] {
  [14:55:41.784]     doFuture::registerDoFuture()
  [14:55:41.784]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:41.784]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:41.784]         a <- NULL
  [14:55:41.784]         ...future.env <- environment()
  [14:55:41.784]         local({
  [14:55:41.784]             for (name in names(...future.x_jj)) {
  [14:55:41.784]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:41.784]                   inherits = FALSE)
  [14:55:41.784]             }
  [14:55:41.784]         })
  [14:55:41.784]         tryCatch({
  [14:55:41.784]             plan_list <- future::plan("next")
  [14:55:41.784]             stopifnot(inherits(plan_list, strategy2))
  [14:55:41.784]             plan_a <- future::plan("list")
  [14:55:41.784]             str(plan_a)
  [14:55:41.784]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:55:41.784]             message("foreach() - level 2 ...")
  [14:55:41.784]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:55:41.784]                 {
  [14:55:41.784]                   plan_list <- future::plan("next")
  [14:55:41.784]                   message(capture.output(print(plan_list)))
  [14:55:41.784]                   stopifnot(inherits(plan_list, "future"))
  [14:55:41.784]                   default <- getOption("future.plan", "sequential")
  [14:55:41.784]                   if (is.function(default)) 
  [14:55:41.784]                     default <- class(default)
  [14:55:41.784]                   stopifnot(inherits(plan_list, default))
  [14:55:41.784]                   plan_b <- future::plan("list")
  [14:55:41.784]                   str(plan_b)
  [14:55:41.784]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:41.784]                     inherits(plan_b[[1]], default))
  [14:55:41.784]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:41.784]                 }
  [14:55:41.784]             message("foreach() - level 2 ... DONE")
  [14:55:41.784]             y
  [14:55:41.784]         }, error = identity)
  [14:55:41.784]     })
  [14:55:41.784] }
  [14:55:41.784]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:55:41.785] List of 3
  [14:55:41.785]  $ ...future.x_ii: NULL
  [14:55:41.785]  $ strategy2     : chr "multicore"
  [14:55:41.785]  $ bs            : int [1:3] 3 2 1
  [14:55:41.785]  - attr(*, "where")=List of 3
  [14:55:41.785]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:41.785]   ..$ strategy2     :<environment: R_EmptyEnv> 
  [14:55:41.785]   ..$ bs            :<environment: R_EmptyEnv> 
  [14:55:41.785]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:41.785]  - attr(*, "resolved")= logi FALSE
  [14:55:41.785]  - attr(*, "total_size")= num 184
  [14:55:41.809]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [14:55:41.809] - identifying globals and packages ... DONE
  [14:55:41.809] Number of chunks: 1
  [14:55:41.810] Number of futures (= number of chunks): 1
  [14:55:41.810] Launching 1 futures (chunks) ...
  [14:55:41.810] Chunk #1 of 1 ...
  [14:55:41.811]  - Finding globals in 'args_list' chunk #1 ...
  [14:55:41.811] getGlobalsAndPackages() ...
  [14:55:41.811] Searching for globals...
  [14:55:41.812] 
  [14:55:41.812] Searching for globals ... DONE
  [14:55:41.812] - globals: [0] <none>
  [14:55:41.813] getGlobalsAndPackages() ... DONE
  [14:55:41.813] 
  [14:55:41.813] 
  [14:55:41.814]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:55:41.814] getGlobalsAndPackages() ...
  [14:55:41.814] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:55:41.814] Resolving globals: FALSE
  [14:55:41.815] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:55:41.815] 
  [14:55:41.816] getGlobalsAndPackages() ... DONE
  [14:55:41.816] run() for 'Future' ...
  [14:55:41.817] - state: 'created'
  [14:55:41.817] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:55:41.818] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:55:41.818] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:55:41.818]   - Field: 'label'
  [14:55:41.819]   - Field: 'local'
  [14:55:41.835]   - Field: 'owner'
  [14:55:41.836]   - Field: 'envir'
  [14:55:41.836]   - Field: 'packages'
  [14:55:41.836]   - Field: 'gc'
  [14:55:41.837]   - Field: 'conditions'
  [14:55:41.837]   - Field: 'persistent'
  [14:55:41.837]   - Field: 'expr'
  [14:55:41.838]   - Field: 'uuid'
  [14:55:41.838]   - Field: 'seed'
  [14:55:41.838]   - Field: 'version'
  [14:55:41.838]   - Field: 'result'
  [14:55:41.839]   - Field: 'asynchronous'
  [14:55:41.839]   - Field: 'calls'
  [14:55:41.839]   - Field: 'globals'
  [14:55:41.840]   - Field: 'stdout'
  [14:55:41.840]   - Field: 'earlySignal'
  [14:55:41.840]   - Field: 'lazy'
  [14:55:41.840]   - Field: 'state'
  [14:55:41.841] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:55:41.841] - Launch lazy future ...
  [14:55:41.842] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [14:55:41.842] Packages needed by future strategies (n = 1): 'future'
  [14:55:41.844] {
  [14:55:41.844]     {
  [14:55:41.844]         ...future.startTime <- base::Sys.time()
  [14:55:41.844]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:55:41.844]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:55:41.844]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:55:41.844]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:55:41.844]             future.resolve.recursive = NULL, future.rng.onMisuse = NULL, 
  [14:55:41.844]             future.rng.onMisuse.keepFuture = NULL, future.stdout.windows.reencode = NULL, 
  [14:55:41.844]             width = 80L)
  [14:55:41.844]         {
  [14:55:41.844]             {
  [14:55:41.844]                 {
  [14:55:41.844]                   base::local({
  [14:55:41.844]                     has_future <- base::requireNamespace("future", 
  [14:55:41.844]                       quietly = TRUE)
  [14:55:41.844]                     if (has_future) {
  [14:55:41.844]                       ns <- base::getNamespace("future")
  [14:55:41.844]                       version <- ns[[".package"]][["version"]]
  [14:55:41.844]                       if (is.null(version)) 
  [14:55:41.844]                         version <- utils::packageVersion("future")
  [14:55:41.844]                     }
  [14:55:41.844]                     else {
  [14:55:41.844]                       version <- NULL
  [14:55:41.844]                     }
  [14:55:41.844]                     if (!has_future || version < "1.8.0") {
  [14:55:41.844]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:55:41.844]                         "", base::R.version$version.string), 
  [14:55:41.844]                         platform = base::sprintf("%s (%s-bit)", 
  [14:55:41.844]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:55:41.844]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:55:41.844]                           "release", "version")], collapse = " "), 
  [14:55:41.844]                         hostname = base::Sys.info()[["nodename"]])
  [14:55:41.844]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:55:41.844]                         info)
  [14:55:41.844]                       info <- base::paste(info, collapse = "; ")
  [14:55:41.844]                       if (!has_future) {
  [14:55:41.844]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:55:41.844]                           info)
  [14:55:41.844]                       }
  [14:55:41.844]                       else {
  [14:55:41.844]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:55:41.844]                           info, version)
  [14:55:41.844]                       }
  [14:55:41.844]                       base::stop(msg)
  [14:55:41.844]                     }
  [14:55:41.844]                   })
  [14:55:41.844]                 }
  [14:55:41.844]                 base::local({
  [14:55:41.844]                   for (pkg in c("doFuture", "utils", "foreach", 
  [14:55:41.844]                   "future")) {
  [14:55:41.844]                     base::loadNamespace(pkg)
  [14:55:41.844]                     base::library(pkg, character.only = TRUE)
  [14:55:41.844]                   }
  [14:55:41.844]                 })
  [14:55:41.844]             }
  [14:55:41.844]             options(future.plan = NULL)
  [14:55:41.844]             Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:41.844]             future::plan(list(b = function (..., workers = availableCores(constraints = "multicore"), 
  [14:55:41.844]                 envir = parent.frame()) 
  [14:55:41.844]             {
  [14:55:41.844]                 default_workers <- missing(workers)
  [14:55:41.844]                 if (is.function(workers)) 
  [14:55:41.844]                   workers <- workers()
  [14:55:41.844]                 workers <- as.integer(workers)
  [14:55:41.844]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:55:41.844]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:55:41.844]                   if (default_workers) 
  [14:55:41.844]                     supportsMulticore(warn = TRUE)
  [14:55:41.844]                   return(sequential(..., envir = envir))
  [14:55:41.844]                 }
  [14:55:41.844]                 oopts <- options(mc.cores = workers)
  [14:55:41.844]                 on.exit(options(oopts))
  [14:55:41.844]                 future <- MulticoreFuture(..., workers = workers, 
  [14:55:41.844]                   envir = envir)
  [14:55:41.844]                 if (!future$lazy) 
  [14:55:41.844]                   future <- run(future)
  [14:55:41.844]                 invisible(future)
  [14:55:41.844]             }), .cleanup = FALSE, .init = FALSE)
  [14:55:41.844]         }
  [14:55:41.844]     }
  [14:55:41.844]     if (FALSE) {
  [14:55:41.844]     }
  [14:55:41.844]     else {
  [14:55:41.844]         if (TRUE) {
  [14:55:41.844]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:55:41.844]                 open = "w")
  [14:55:41.844]         }
  [14:55:41.844]         else {
  [14:55:41.844]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:55:41.844]                 windows = "NUL", "/dev/null"), open = "w")
  [14:55:41.844]         }
  [14:55:41.844]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:55:41.844]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:55:41.844]             base::sink(type = "output", split = FALSE)
  [14:55:41.844]             base::close(...future.stdout)
  [14:55:41.844]         }, add = TRUE)
  [14:55:41.844]     }
  [14:55:41.844]     ...future.frame <- base::sys.nframe()
  [14:55:41.844]     ...future.conditions <- base::list()
  [14:55:41.844]     ...future.rng <- base::globalenv()$.Random.seed
  [14:55:41.844]     ...future.result <- base::tryCatch({
  [14:55:41.844]         base::withCallingHandlers({
  [14:55:41.844]             ...future.value <- base::withVisible(base::local({
  [14:55:41.844]                 doFuture::registerDoFuture()
  [14:55:41.844]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:41.844]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:41.844]                   a <- NULL
  [14:55:41.844]                   ...future.env <- environment()
  [14:55:41.844]                   local({
  [14:55:41.844]                     for (name in names(...future.x_jj)) {
  [14:55:41.844]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:41.844]                         inherits = FALSE)
  [14:55:41.844]                     }
  [14:55:41.844]                   })
  [14:55:41.844]                   tryCatch({
  [14:55:41.844]                     plan_list <- future::plan("next")
  [14:55:41.844]                     stopifnot(inherits(plan_list, strategy2))
  [14:55:41.844]                     plan_a <- future::plan("list")
  [14:55:41.844]                     str(plan_a)
  [14:55:41.844]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [14:55:41.844]                     message("foreach() - level 2 ...")
  [14:55:41.844]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:55:41.844]                       {
  [14:55:41.844]                         plan_list <- future::plan("next")
  [14:55:41.844]                         message(capture.output(print(plan_list)))
  [14:55:41.844]                         stopifnot(inherits(plan_list, "future"))
  [14:55:41.844]                         default <- getOption("future.plan", "sequential")
  [14:55:41.844]                         if (is.function(default)) 
  [14:55:41.844]                           default <- class(default)
  [14:55:41.844]                         stopifnot(inherits(plan_list, default))
  [14:55:41.844]                         plan_b <- future::plan("list")
  [14:55:41.844]                         str(plan_b)
  [14:55:41.844]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:41.844]                           inherits(plan_b[[1]], default))
  [14:55:41.844]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:41.844]                       }
  [14:55:41.844]                     message("foreach() - level 2 ... DONE")
  [14:55:41.844]                     y
  [14:55:41.844]                   }, error = identity)
  [14:55:41.844]                 })
  [14:55:41.844]             }))
  [14:55:41.844]             future::FutureResult(value = ...future.value$value, 
  [14:55:41.844]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:41.844]                   ...future.rng), started = ...future.startTime, 
  [14:55:41.844]                 version = "1.8")
  [14:55:41.844]         }, condition = base::local({
  [14:55:41.844]             c <- base::c
  [14:55:41.844]             inherits <- base::inherits
  [14:55:41.844]             invokeRestart <- base::invokeRestart
  [14:55:41.844]             length <- base::length
  [14:55:41.844]             list <- base::list
  [14:55:41.844]             seq.int <- base::seq.int
  [14:55:41.844]             signalCondition <- base::signalCondition
  [14:55:41.844]             sys.calls <- base::sys.calls
  [14:55:41.844]             `[[` <- base::`[[`
  [14:55:41.844]             `+` <- base::`+`
  [14:55:41.844]             `<<-` <- base::`<<-`
  [14:55:41.844]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:55:41.844]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:55:41.844]                   3L)]
  [14:55:41.844]             }
  [14:55:41.844]             function(cond) {
  [14:55:41.844]                 is_error <- inherits(cond, "error")
  [14:55:41.844]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:55:41.844]                   NULL)
  [14:55:41.844]                 if (is_error) {
  [14:55:41.844]                   sessionInformation <- function() {
  [14:55:41.844]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:55:41.844]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:55:41.844]                       search = base::search(), system = base::Sys.info())
  [14:55:41.844]                   }
  [14:55:41.844]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:41.844]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:55:41.844]                     cond$call), session = sessionInformation(), 
  [14:55:41.844]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:55:41.844]                   signalCondition(cond)
  [14:55:41.844]                 }
  [14:55:41.844]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:55:41.844]                 "immediateCondition"))) {
  [14:55:41.844]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:55:41.844]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:41.844]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:55:41.844]                   if (TRUE && !signal) {
  [14:55:41.844]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:41.844]                     {
  [14:55:41.844]                       inherits <- base::inherits
  [14:55:41.844]                       invokeRestart <- base::invokeRestart
  [14:55:41.844]                       is.null <- base::is.null
  [14:55:41.844]                       muffled <- FALSE
  [14:55:41.844]                       if (inherits(cond, "message")) {
  [14:55:41.844]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:41.844]                         if (muffled) 
  [14:55:41.844]                           invokeRestart("muffleMessage")
  [14:55:41.844]                       }
  [14:55:41.844]                       else if (inherits(cond, "warning")) {
  [14:55:41.844]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:41.844]                         if (muffled) 
  [14:55:41.844]                           invokeRestart("muffleWarning")
  [14:55:41.844]                       }
  [14:55:41.844]                       else if (inherits(cond, "condition")) {
  [14:55:41.844]                         if (!is.null(pattern)) {
  [14:55:41.844]                           computeRestarts <- base::computeRestarts
  [14:55:41.844]                           grepl <- base::grepl
  [14:55:41.844]                           restarts <- computeRestarts(cond)
  [14:55:41.844]                           for (restart in restarts) {
  [14:55:41.844]                             name <- restart$name
  [14:55:41.844]                             if (is.null(name)) 
  [14:55:41.844]                               next
  [14:55:41.844]                             if (!grepl(pattern, name)) 
  [14:55:41.844]                               next
  [14:55:41.844]                             invokeRestart(restart)
  [14:55:41.844]                             muffled <- TRUE
  [14:55:41.844]                             break
  [14:55:41.844]                           }
  [14:55:41.844]                         }
  [14:55:41.844]                       }
  [14:55:41.844]                       invisible(muffled)
  [14:55:41.844]                     }
  [14:55:41.844]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:41.844]                   }
  [14:55:41.844]                 }
  [14:55:41.844]                 else {
  [14:55:41.844]                   if (TRUE) {
  [14:55:41.844]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:41.844]                     {
  [14:55:41.844]                       inherits <- base::inherits
  [14:55:41.844]                       invokeRestart <- base::invokeRestart
  [14:55:41.844]                       is.null <- base::is.null
  [14:55:41.844]                       muffled <- FALSE
  [14:55:41.844]                       if (inherits(cond, "message")) {
  [14:55:41.844]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:41.844]                         if (muffled) 
  [14:55:41.844]                           invokeRestart("muffleMessage")
  [14:55:41.844]                       }
  [14:55:41.844]                       else if (inherits(cond, "warning")) {
  [14:55:41.844]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:41.844]                         if (muffled) 
  [14:55:41.844]                           invokeRestart("muffleWarning")
  [14:55:41.844]                       }
  [14:55:41.844]                       else if (inherits(cond, "condition")) {
  [14:55:41.844]                         if (!is.null(pattern)) {
  [14:55:41.844]                           computeRestarts <- base::computeRestarts
  [14:55:41.844]                           grepl <- base::grepl
  [14:55:41.844]                           restarts <- computeRestarts(cond)
  [14:55:41.844]                           for (restart in restarts) {
  [14:55:41.844]                             name <- restart$name
  [14:55:41.844]                             if (is.null(name)) 
  [14:55:41.844]                               next
  [14:55:41.844]                             if (!grepl(pattern, name)) 
  [14:55:41.844]                               next
  [14:55:41.844]                             invokeRestart(restart)
  [14:55:41.844]                             muffled <- TRUE
  [14:55:41.844]                             break
  [14:55:41.844]                           }
  [14:55:41.844]                         }
  [14:55:41.844]                       }
  [14:55:41.844]                       invisible(muffled)
  [14:55:41.844]                     }
  [14:55:41.844]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:41.844]                   }
  [14:55:41.844]                 }
  [14:55:41.844]             }
  [14:55:41.844]         }))
  [14:55:41.844]     }, error = function(ex) {
  [14:55:41.844]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:55:41.844]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:41.844]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:55:41.844]     }, finally = {
  [14:55:41.844]         {
  [14:55:41.844]             {
  [14:55:41.844]                 NULL
  [14:55:41.844]                 RNGkind("Mersenne-Twister")
  [14:55:41.844]                 base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:55:41.844]                   inherits = FALSE)
  [14:55:41.844]             }
  [14:55:41.844]             options(future.plan = NULL)
  [14:55:41.844]             if (is.na(NA_character_)) 
  [14:55:41.844]                 Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:41.844]             else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:55:41.844]             future::plan(list(a = function (..., envir = parent.frame()) 
  [14:55:41.844]             {
  [14:55:41.844]                 future <- SequentialFuture(..., envir = envir)
  [14:55:41.844]                 if (!future$lazy) 
  [14:55:41.844]                   future <- run(future)
  [14:55:41.844]                 invisible(future)
  [14:55:41.844]             }, b = function (..., workers = availableCores(constraints = "multicore"), 
  [14:55:41.844]                 envir = parent.frame()) 
  [14:55:41.844]             {
  [14:55:41.844]                 default_workers <- missing(workers)
  [14:55:41.844]                 if (is.function(workers)) 
  [14:55:41.844]                   workers <- workers()
  [14:55:41.844]                 workers <- as.integer(workers)
  [14:55:41.844]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:55:41.844]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:55:41.844]                   if (default_workers) 
  [14:55:41.844]                     supportsMulticore(warn = TRUE)
  [14:55:41.844]                   return(sequential(..., envir = envir))
  [14:55:41.844]                 }
  [14:55:41.844]                 oopts <- options(mc.cores = workers)
  [14:55:41.844]                 on.exit(options(oopts))
  [14:55:41.844]                 future <- MulticoreFuture(..., workers = workers, 
  [14:55:41.844]                   envir = envir)
  [14:55:41.844]                 if (!future$lazy) 
  [14:55:41.844]                   future <- run(future)
  [14:55:41.844]                 invisible(future)
  [14:55:41.844]             }), .cleanup = FALSE, .init = FALSE)
  [14:55:41.844]         }
  [14:55:41.844]         base::options(...future.oldOptions)
  [14:55:41.844]     })
  [14:55:41.844]     if (TRUE) {
  [14:55:41.844]         base::sink(type = "output", split = FALSE)
  [14:55:41.844]         if (TRUE) {
  [14:55:41.844]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:55:41.844]         }
  [14:55:41.844]         else {
  [14:55:41.844]             ...future.result["stdout"] <- base::list(NULL)
  [14:55:41.844]         }
  [14:55:41.844]         base::close(...future.stdout)
  [14:55:41.844]         ...future.stdout <- NULL
  [14:55:41.844]     }
  [14:55:41.844]     ...future.result$conditions <- ...future.conditions
  [14:55:41.844]     ...future.result
  [14:55:41.844] }
  [14:55:41.847] assign_globals() ...
  [14:55:41.848] List of 3
  [14:55:41.848]  $ ...future.x_ii:List of 2
  [14:55:41.848]   ..$ :List of 1
  [14:55:41.848]   .. ..$ a: int 1
  [14:55:41.848]   ..$ :List of 1
  [14:55:41.848]   .. ..$ a: int 2
  [14:55:41.848]  $ strategy2     : chr "multicore"
  [14:55:41.848]  $ bs            : int [1:3] 3 2 1
  [14:55:41.848]  - attr(*, "where")=List of 3
  [14:55:41.848]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:41.848]   ..$ strategy2     :<environment: R_EmptyEnv> 
  [14:55:41.848]   ..$ bs            :<environment: R_EmptyEnv> 
  [14:55:41.848]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:41.848]  - attr(*, "resolved")= logi FALSE
  [14:55:41.848]  - attr(*, "total_size")= num 184
  [14:55:41.848]  - attr(*, "already-done")= logi TRUE
  [14:55:41.879] - copied '...future.x_ii' to environment
  [14:55:41.879] - copied 'strategy2' to environment
  [14:55:41.880] - copied 'bs' to environment
  [14:55:41.880] List of 3
  [14:55:41.880]  $ ...future.x_ii:List of 2
  [14:55:41.880]   ..$ :List of 1
  [14:55:41.880]   .. ..$ a: int 1
  [14:55:41.880]   ..$ :List of 1
  [14:55:41.880]   .. ..$ a: int 2
  [14:55:41.880]  $ strategy2     : chr "multicore"
  [14:55:41.880]  $ bs            : int [1:3] 3 2 1
  [14:55:41.880]  - attr(*, "where")=List of 3
  [14:55:41.880]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:41.880]   ..$ strategy2     :<environment: R_EmptyEnv> 
  [14:55:41.880]   ..$ bs            :<environment: R_EmptyEnv> 
  [14:55:41.880]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:41.880]  - attr(*, "resolved")= logi FALSE
  [14:55:41.880]  - attr(*, "total_size")= num 184
  [14:55:41.880]  - attr(*, "already-done")= logi TRUE
  [14:55:41.908] assign_globals() ... done
  [14:55:41.909] plan(): Setting new future strategy stack:
  [14:55:41.910] List of future strategies:
  [14:55:41.910] 1. multicore:
  [14:55:41.910]    - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame())
  [14:55:41.910]    - tweaked: FALSE
  [14:55:41.910]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:42.013] plan(): nbrOfWorkers() = 2
  [14:55:43.628] plan(): Setting new future strategy stack:
  [14:55:43.628] List of future strategies:
  [14:55:43.628] 1. sequential:
  [14:55:43.628]    - args: function (..., envir = parent.frame())
  [14:55:43.628]    - tweaked: FALSE
  [14:55:43.628]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:43.628] 2. multicore:
  [14:55:43.628]    - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame())
  [14:55:43.628]    - tweaked: FALSE
  [14:55:43.628]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:43.629] plan(): nbrOfWorkers() = 1
  [14:55:43.630] SequentialFuture started (and completed)
  [14:55:43.631] signalConditions() ...
  [14:55:43.631]  - include = 'immediateCondition'
  [14:55:43.631]  - exclude = 
  [14:55:43.631]  - resignal = FALSE
  [14:55:43.632]  - Number of conditions: 578
  [14:55:43.634] signalConditions() ... done
  [14:55:43.634] - Launch lazy future ... done
  [14:55:43.634] run() for 'SequentialFuture' ... done
  [14:55:43.634] Chunk #1 of 1 ... DONE
  [14:55:43.635] Launching 1 futures (chunks) ... DONE
  [14:55:43.635] - resolving futures
  [14:55:43.635]   - gathering results & relaying conditions (except errors)
  [14:55:43.635] resolve() on list ...
  [14:55:43.636]  recursive: 0
  [14:55:43.636]  length: 1
  [14:55:43.636] 
  [14:55:43.653] resolved() for 'SequentialFuture' ...
  [14:55:43.653] - state: 'finished'
  [14:55:43.653] - run: TRUE
  [14:55:43.653] - result: 'FutureResult'
  [14:55:43.654] resolved() for 'SequentialFuture' ... done
  [14:55:43.654] Future #1
  [14:55:43.654] signalConditions() ...
  [14:55:43.654]  - include = 'immediateCondition'
  [14:55:43.655]  - exclude = 
  [14:55:43.655]  - resignal = FALSE
  [14:55:43.655]  - Number of conditions: 578
  [14:55:43.657] signalConditions() ... done
  [14:55:43.657] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:55:43.657] - nx: 1
  [14:55:43.657] - relay: TRUE
  [14:55:43.658] - stdout: TRUE
  [14:55:43.658] - signal: TRUE
  [14:55:43.658] - resignal: FALSE
  [14:55:43.658] - force: FALSE
  [14:55:43.658] - relayed: [n=1] FALSE
  [14:55:43.659] - queued futures: [n=1] FALSE
  [14:55:43.659]  - until=1
  [14:55:43.659]  - relaying element #1
  [14:55:43.660] signalConditions() ...
  [14:55:43.660]  - include = 'immediateCondition'
  [14:55:43.660]  - exclude = 
  [14:55:43.660]  - resignal = FALSE
  [14:55:43.660]  - Number of conditions: 578
  [14:55:43.662] signalConditions() ... done
  List of 1
   $ b:function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame())  
    ..- 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 (..., envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (..., envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (..., envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ b:function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame())  
    ..- 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 (..., envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (..., envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (..., envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:43.663] signalConditions() ...
  [14:55:43.663]  - include = 'immediateCondition'
  [14:55:43.663]  - exclude = 
  [14:55:43.664]  - resignal = FALSE
  [14:55:43.664]  - Number of conditions: 578
  [14:55:43.666] signalConditions() ... done
  [14:55:43.666] signalConditions() ...
  [14:55:43.666]  - include = 'condition'
  [14:55:43.666]  - exclude = 'immediateCondition'
  [14:55:43.667]  - resignal = FALSE
  [14:55:43.667]  - Number of conditions: 578
  [14:55:43.667]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:55:43.668]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:55:42.018] doFuture() ...
  [14:55:43.668]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:55:42.104] - dummy globals (as locals): [1] 'b'
  [14:55:43.684]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [14:55:42.105] - R expression:
  [14:55:43.685]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [14:55:42.105] {
  [14:55:42.105]     doFuture::registerDoFuture()
  [14:55:42.105]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:42.105]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:42.105]         b <- NULL
  [14:55:42.105]         ...future.env <- environment()
  [14:55:42.105]         local({
  [14:55:42.105]             for (name in names(...future.x_jj)) {
  [14:55:42.105]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:42.105]                   inherits = FALSE)
  [14:55:42.105]             }
  [14:55:42.105]         })
  [14:55:42.105]         tryCatch({
  [14:55:42.105]             plan_list <- future::plan("next")
  [14:55:42.105]             message(capture.output(print(plan_list)))
  [14:55:42.105]             stopifnot(inherits(plan_list, "future"))
  [14:55:42.105]             default <- getOption("future.plan", "sequential")
  [14:55:42.105]             if (is.function(default)) 
  [14:55:42.105]                 default <- class(default)
  [14:55:42.105]             stopifnot(inherits(plan_list, default))
  [14:55:42.105]             plan_b <- future::plan("list")
  [14:55:42.105]             str(plan_b)
  [14:55:42.105]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:55:42.105]                 default))
  [14:55:42.105]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:42.105]         }, error = identity)
  [14:55:42.105]     })
  [14:55:42.105] }
  [14:55:43.685]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [14:55:42.106] - identifying globals and packages ...
  [14:55:43.685]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [14:55:42.107] getGlobalsAndPackages() ...
  [14:55:43.686]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [14:55:42.107] Retrieving 'add' globals ...
  [14:55:43.686]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [14:55:42.108] - 'add' globals retrieved: [2] 'a', 'plan_a'
  [14:55:43.686]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [14:55:42.108] Retrieving 'add' globals ... DONE
  [14:55:43.687]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [14:55:42.108] Searching for globals...
  [14:55:43.687]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [14:55:42.172] - 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:55:43.687]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [14:55:42.173] Searching for globals ... DONE
  [14:55:43.688]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [14:55:42.173] Resolving globals: FALSE
  [14:55:43.688]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [14:55:42.175] The total size of the 3 globals is 37.18 KiB (38072 bytes)
  [14:55:43.688]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [14:55:42.189] The total size of the 3 globals exported for future expression ('{; doFuture::registerDoFuture(); lapply(seq_along(...future.x_ii), FUN = function(jj) {; ...future.x_jj <- ...future.x_ii[[jj]]; b <- NULL; ...future.env <- environment(); ...; }, error = identity); }); }') is 37.18 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: 'plan_a' (37.12 KiB of class 'list'), 'a' (56 bytes of class 'numeric') and '...future.x_ii' (0 bytes of class 'NULL')
  [14:55:43.689]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [14:55:42.190] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:43.689]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [14:55:42.190] - packages: [1] 'utils'
  [14:55:43.689]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [14:55:42.190] getGlobalsAndPackages() ... DONE
  [14:55:43.689]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [14:55:42.191] List of 3
  [14:55:42.191]  $ ...future.x_ii: NULL
  [14:55:42.191]  $ a             : int 1
  [14:55:42.191]  $ plan_a        :List of 1
  [14:55:42.191]   ..$ b:function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame())  
  [14:55:42.191]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [14:55:42.191]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:42.191]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:42.191]  - attr(*, "where")=List of 3
  [14:55:42.191]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:42.191]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:42.191]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:42.191]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:42.191]  - attr(*, "resolved")= logi FALSE
  [14:55:42.191]  - attr(*, "total_size")= num 38072
  [14:55:43.690]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [14:55:42.201]   - R expression:
  [14:55:43.690]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [14:55:42.202] {
  [14:55:42.202]     doFuture::registerDoFuture()
  [14:55:42.202]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:42.202]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:42.202]         b <- NULL
  [14:55:42.202]         ...future.env <- environment()
  [14:55:42.202]         local({
  [14:55:42.202]             for (name in names(...future.x_jj)) {
  [14:55:42.202]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:42.202]                   inherits = FALSE)
  [14:55:42.202]             }
  [14:55:42.202]         })
  [14:55:42.202]         tryCatch({
  [14:55:42.202]             plan_list <- future::plan("next")
  [14:55:42.202]             message(capture.output(print(plan_list)))
  [14:55:42.202]             stopifnot(inherits(plan_list, "future"))
  [14:55:42.202]             default <- getOption("future.plan", "sequential")
  [14:55:42.202]             if (is.function(default)) 
  [14:55:42.202]                 default <- class(default)
  [14:55:42.202]             stopifnot(inherits(plan_list, default))
  [14:55:42.202]             plan_b <- future::plan("list")
  [14:55:42.202]             str(plan_b)
  [14:55:42.202]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:55:42.202]                 default))
  [14:55:42.202]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:42.202]         }, error = identity)
  [14:55:42.202]     })
  [14:55:42.202] }
  [14:55:43.690]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [14:55:42.203]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:43.691]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [14:55:42.203] List of 3
  [14:55:42.203]  $ ...future.x_ii: NULL
  [14:55:42.203]  $ a             : int 1
  [14:55:42.203]  $ plan_a        :List of 1
  [14:55:42.203]   ..$ b:function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame())  
  [14:55:42.203]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [14:55:42.203]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:42.203]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:42.203]  - attr(*, "where")=List of 3
  [14:55:42.203]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:42.203]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:42.203]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:42.203]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:42.203]  - attr(*, "resolved")= logi FALSE
  [14:55:42.203]  - attr(*, "total_size")= num 38072
  [14:55:43.691]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [14:55:42.235]   - packages: [2] 'doFuture', 'utils'
  [14:55:43.691]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [14:55:42.236] - identifying globals and packages ... DONE
  [14:55:43.692]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [14:55:42.294] Number of chunks: 2
  [14:55:43.692]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [14:55:42.294] Number of futures (= number of chunks): 2
  [14:55:43.692]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [14:55:42.295] Launching 2 futures (chunks) ...
  [14:55:43.693]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [14:55:42.295] Chunk #1 of 2 ...
  [14:55:43.693]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [14:55:42.295]  - Finding globals in 'args_list' chunk #1 ...
  [14:55:43.693]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [14:55:42.295] getGlobalsAndPackages() ...
  [14:55:43.694]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [14:55:42.296] Searching for globals...
  [14:55:43.694]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [14:55:42.297] 
  [14:55:43.694]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [14:55:42.297] Searching for globals ... DONE
  [14:55:43.695]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [14:55:42.297] - globals: [0] <none>
  [14:55:43.695]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [14:55:42.297] getGlobalsAndPackages() ... DONE
  [14:55:43.695]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [14:55:42.298] 
  [14:55:43.696]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [14:55:42.298] 
  [14:55:43.696]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [14:55:42.298]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:55:43.696]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [14:55:42.299] getGlobalsAndPackages() ...
  [14:55:43.697]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [14:55:42.299] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:43.697]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [14:55:42.299] Resolving globals: FALSE
  [14:55:43.697]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [14:55:42.300] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:43.698]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [14:55:42.301] 
  [14:55:43.698]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [14:55:42.301] getGlobalsAndPackages() ... DONE
  [14:55:43.718]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [14:55:42.302] run() for 'Future' ...
  [14:55:43.719]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [14:55:42.302] - state: 'created'
  [14:55:43.719]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [14:55:42.302] - Future backend: 'FutureStrategy', 'multicore', 'multiprocess', 'future', 'function'
  [14:55:43.719]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [14:55:42.343] assign_globals() ...
  [14:55:43.720]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [14:55:42.344] List of 3
  [14:55:42.344]  $ ...future.x_ii:List of 1
  [14:55:42.344]   ..$ :List of 1
  [14:55:42.344]   .. ..$ b: int 3
  [14:55:42.344]  $ a             : int 1
  [14:55:42.344]  $ plan_a        :List of 1
  [14:55:42.344]   ..$ b:function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame())  
  [14:55:42.344]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [14:55:42.344]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:42.344]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:42.344]  - attr(*, "where")=List of 3
  [14:55:42.344]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:42.344]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:42.344]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:42.344]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:42.344]  - attr(*, "resolved")= logi FALSE
  [14:55:42.344]  - attr(*, "total_size")= num 38072
  [14:55:42.344]  - attr(*, "already-done")= logi TRUE
  [14:55:43.720]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [14:55:42.373] - copied '...future.x_ii' to environment
  [14:55:43.721]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [14:55:42.373] - copied 'a' to environment
  [14:55:43.721]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [14:55:42.374] - copied 'plan_a' to environment
  [14:55:43.721]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [14:55:42.374] List of 3
  [14:55:42.374]  $ ...future.x_ii:List of 1
  [14:55:42.374]   ..$ :List of 1
  [14:55:42.374]   .. ..$ b: int 3
  [14:55:42.374]  $ a             : int 1
  [14:55:42.374]  $ plan_a        :List of 1
  [14:55:42.374]   ..$ b:function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame())  
  [14:55:42.374]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [14:55:42.374]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:42.374]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:42.374]  - attr(*, "where")=List of 3
  [14:55:42.374]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:42.374]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:42.374]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:42.374]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:42.374]  - attr(*, "resolved")= logi FALSE
  [14:55:42.374]  - attr(*, "total_size")= num 38072
  [14:55:42.374]  - attr(*, "already-done")= logi TRUE
  [14:55:43.722]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [14:55:42.408] assign_globals() ... done
  [14:55:43.722]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [14:55:42.409] - Future class: 'MulticoreFuture', 'MultiprocessFuture', 'Future', 'environment'
  [14:55:43.722]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [14:55:42.410] - Copy elements of temporary 'MulticoreFuture' to final 'Future' object ...
  [14:55:43.723]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [14:55:42.410]   - Field: 'label'
  [14:55:43.723]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [14:55:42.411]   - Field: 'local'
  [14:55:43.723]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [14:55:42.411]   - Field: 'owner'
  [14:55:43.724]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [14:55:42.411]   - Field: 'envir'
  [14:55:43.724]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [14:55:42.412]   - Field: 'workers'
  [14:55:43.725]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [14:55:42.412]   - Field: 'packages'
  [14:55:43.725]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [14:55:42.412]   - Field: 'gc'
  [14:55:43.725]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [14:55:42.412]   - Field: 'job'
  [14:55:43.726]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [14:55:42.413]   - Field: 'conditions'
  [14:55:43.726]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [14:55:42.413]   - Field: 'persistent'
  [14:55:43.726]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [14:55:42.413]   - Field: 'expr'
  [14:55:43.727]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [14:55:42.414]   - Field: 'uuid'
  [14:55:43.727]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [14:55:42.414]   - Field: 'seed'
  [14:55:43.727]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [14:55:42.414]   - Field: 'version'
  [14:55:43.728]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [14:55:42.415]   - Field: 'result'
  [14:55:43.728]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [14:55:42.415]   - Field: 'asynchronous'
  [14:55:43.728]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [14:55:42.415]   - Field: 'calls'
  [14:55:43.729]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [14:55:42.415]   - Field: 'globals'
  [14:55:43.729]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [14:55:42.416]   - Field: 'stdout'
  [14:55:43.729]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [14:55:42.416]   - Field: 'earlySignal'
  [14:55:43.730]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [14:55:42.416]   - Field: 'lazy'
  [14:55:43.730]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [14:55:42.417]   - Field: 'state'
  [14:55:43.730]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [14:55:42.417] - Copy elements of temporary 'MulticoreFuture' to final 'Future' object ... done
  [14:55:43.730]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [14:55:42.417] - Launch lazy future ...
  [14:55:43.731]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [14:55:42.420] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:55:43.731]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [14:55:42.420] Packages needed by future strategies (n = 0): <none>
  [14:55:43.731]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [14:55:42.422] {
  [14:55:42.422]     {
  [14:55:42.422]         ...future.startTime <- base::Sys.time()
  [14:55:42.422]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:55:42.422]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:55:42.422]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:55:42.422]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:55:42.422]             future.resolve.recursive = NULL, future.rng.onMisuse = NULL, 
  [14:55:42.422]             future.rng.onMisuse.keepFuture = NULL, future.stdout.windows.reencode = NULL, 
  [14:55:42.422]             width = 80L)
  [14:55:42.422]         {
  [14:55:42.422]             {
  [14:55:42.422]                 {
  [14:55:42.422]                   {
  [14:55:42.422]                     base::local({
  [14:55:42.422]                       has_future <- base::requireNamespace("future", 
  [14:55:42.422]                         quietly = TRUE)
  [14:55:42.422]                       if (has_future) {
  [14:55:42.422]                         ns <- base::getNamespace("future")
  [14:55:42.422]                         version <- ns[[".package"]][["version"]]
  [14:55:42.422]                         if (is.null(version)) 
  [14:55:42.422]                           version <- utils::packageVersion("future")
  [14:55:42.422]                       }
  [14:55:42.422]                       else {
  [14:55:42.422]                         version <- NULL
  [14:55:42.422]                       }
  [14:55:42.422]                       if (!has_future || version < "1.8.0") {
  [14:55:42.422]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:55:42.422]                           "", base::R.version$version.string), 
  [14:55:42.422]                           platform = base::sprintf("%s (%s-bit)", 
  [14:55:42.422]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:55:42.422]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:55:42.422]                             "release", "version")], collapse = " "), 
  [14:55:42.422]                           hostname = base::Sys.info()[["nodename"]])
  [14:55:42.422]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:55:42.422]                           info)
  [14:55:42.422]                         info <- base::paste(info, collapse = "; ")
  [14:55:42.422]                         if (!has_future) {
  [14:55:42.422]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:55:42.422]                             info)
  [14:55:42.422]                         }
  [14:55:42.422]                         else {
  [14:55:42.422]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:55:42.422]                             info, version)
  [14:55:42.422]                         }
  [14:55:42.422]                         base::stop(msg)
  [14:55:42.422]                       }
  [14:55:42.422]                     })
  [14:55:42.422]                   }
  [14:55:42.422]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:55:42.422]                   base::options(mc.cores = 1L)
  [14:55:42.422]                 }
  [14:55:42.422]                 base::local({
  [14:55:42.422]                   for (pkg in c("doFuture", "utils")) {
  [14:55:42.422]                     base::loadNamespace(pkg)
  [14:55:42.422]                     base::library(pkg, character.only = TRUE)
  [14:55:42.422]                   }
  [14:55:42.422]                 })
  [14:55:42.422]             }
  [14:55:42.422]             options(future.plan = NULL)
  [14:55:42.422]             Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:42.422]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:55:42.422]         }
  [14:55:42.422]     }
  [14:55:42.422]     if (FALSE) {
  [14:55:42.422]     }
  [14:55:42.422]     else {
  [14:55:42.422]         if (TRUE) {
  [14:55:42.422]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:55:42.422]                 open = "w")
  [14:55:42.422]         }
  [14:55:42.422]         else {
  [14:55:42.422]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:55:42.422]                 windows = "NUL", "/dev/null"), open = "w")
  [14:55:42.422]         }
  [14:55:42.422]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:55:42.422]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:55:42.422]             base::sink(type = "output", split = FALSE)
  [14:55:42.422]             base::close(...future.stdout)
  [14:55:42.422]         }, add = TRUE)
  [14:55:42.422]     }
  [14:55:42.422]     ...future.frame <- base::sys.nframe()
  [14:55:42.422]     ...future.conditions <- base::list()
  [14:55:42.422]     ...future.rng <- base::globalenv()$.Random.seed
  [14:55:42.422]     ...future.result <- base::tryCatch({
  [14:55:42.422]         base::withCallingHandlers({
  [14:55:42.422]             ...future.value <- base::withVisible(base::local({
  [14:55:42.422]                 withCallingHandlers({
  [14:55:42.422]                   {
  [14:55:42.422]                     doFuture::registerDoFuture()
  [14:55:42.422]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:42.422]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:42.422]                       b <- NULL
  [14:55:42.422]                       ...future.env <- environment()
  [14:55:42.422]                       local({
  [14:55:42.422]                         for (name in names(...future.x_jj)) {
  [14:55:42.422]                           assign(name, ...future.x_jj[[name]], 
  [14:55:42.422]                             envir = ...future.env, inherits = FALSE)
  [14:55:42.422]                         }
  [14:55:42.422]                       })
  [14:55:42.422]                       tryCatch({
  [14:55:42.422]                         plan_list <- future::plan("next")
  [14:55:42.422]                         message(capture.output(print(plan_list)))
  [14:55:42.422]                         stopifnot(inherits(plan_list, "future"))
  [14:55:42.422]                         default <- getOption("future.plan", "sequential")
  [14:55:42.422]                         if (is.function(default)) 
  [14:55:42.422]                           default <- class(default)
  [14:55:42.422]                         stopifnot(inherits(plan_list, default))
  [14:55:42.422]                         plan_b <- future::plan("list")
  [14:55:42.422]                         str(plan_b)
  [14:55:42.422]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:42.422]                           inherits(plan_b[[1]], default))
  [14:55:42.422]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:42.422]                       }, error = identity)
  [14:55:42.422]                     })
  [14:55:42.422]                   }
  [14:55:42.422]                 }, immediateCondition = function(cond) {
  [14:55:42.422]                   obj <- list(time = Sys.time(), condition = cond)
  [14:55:42.422]                   file <- tempfile(class(cond)[1], tmpdir = "/home/hornik/tmp/scratch/RtmplLCzy6/.future/immediateConditions", 
  [14:55:42.422]                     fileext = ".rds")
  [14:55:42.422]                   save_rds <- function (object, pathname, ...) 
  [14:55:42.422]                   {
  [14:55:42.422]                     pathname_tmp <- sprintf("%s.tmp", pathname)
  [14:55:42.422]                     if (file_test("-f", pathname_tmp)) {
  [14:55:42.422]                       fi_tmp <- file.info(pathname_tmp)
  [14:55:42.422]                       stopf("Cannot save RDS file because a temporary save file already exists: %s (%0.f bytes; last modified on %s)", 
  [14:55:42.422]                         sQuote(pathname_tmp), fi_tmp[["size"]], 
  [14:55:42.422]                         fi_tmp[["mtime"]])
  [14:55:42.422]                     }
  [14:55:42.422]                     tryCatch({
  [14:55:42.422]                       saveRDS(object, file = pathname_tmp, ...)
  [14:55:42.422]                     }, error = function(ex) {
  [14:55:42.422]                       msg <- conditionMessage(ex)
  [14:55:42.422]                       fi_tmp <- file.info(pathname_tmp)
  [14:55:42.422]                       msg <- sprintf("saveRDS() failed to save to temporary file %s (%.0f bytes; last modified on %s). The reason was: %s", 
  [14:55:42.422]                         sQuote(pathname_tmp), fi_tmp[["size"]], 
  [14:55:42.422]                         fi_tmp[["mtime"]], msg)
  [14:55:42.422]                       ex$message <- msg
  [14:55:42.422]                       stop(ex)
  [14:55:42.422]                     })
  [14:55:42.422]                     stopifnot(file_test("-f", pathname_tmp))
  [14:55:42.422]                     res <- file.rename(from = pathname_tmp, to = pathname)
  [14:55:42.422]                     if (!res || file_test("-f", pathname_tmp)) {
  [14:55:42.422]                       fi_tmp <- file.info(pathname_tmp)
  [14:55:42.422]                       fi <- file.info(pathname)
  [14:55:42.422]                       msg <- sprintf("save_rds() failed to rename temporary save file %s (%0.f bytes; last modified on %s) to %s (%0.f bytes; last modified on %s)", 
  [14:55:42.422]                         sQuote(pathname_tmp), fi_tmp[["size"]], 
  [14:55:42.422]                         fi_tmp[["mtime"]], sQuote(pathname), 
  [14:55:42.422]                         fi[["size"]], fi[["mtime"]])
  [14:55:42.422]                       stop(msg)
  [14:55:42.422]                     }
  [14:55:42.422]                     invisible(pathname)
  [14:55:42.422]                   }
  [14:55:42.422]                   save_rds(obj, file)
  [14:55:42.422]                   muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:42.422]                   {
  [14:55:42.422]                     inherits <- base::inherits
  [14:55:42.422]                     invokeRestart <- base::invokeRestart
  [14:55:42.422]                     is.null <- base::is.null
  [14:55:42.422]                     muffled <- FALSE
  [14:55:42.422]                     if (inherits(cond, "message")) {
  [14:55:42.422]                       muffled <- grepl(pattern, "muffleMessage")
  [14:55:42.422]                       if (muffled) 
  [14:55:42.422]                         invokeRestart("muffleMessage")
  [14:55:42.422]                     }
  [14:55:42.422]                     else if (inherits(cond, "warning")) {
  [14:55:42.422]                       muffled <- grepl(pattern, "muffleWarning")
  [14:55:42.422]                       if (muffled) 
  [14:55:42.422]                         invokeRestart("muffleWarning")
  [14:55:42.422]                     }
  [14:55:42.422]                     else if (inherits(cond, "condition")) {
  [14:55:42.422]                       if (!is.null(pattern)) {
  [14:55:42.422]                         computeRestarts <- base::computeRestarts
  [14:55:42.422]                         grepl <- base::grepl
  [14:55:42.422]                         restarts <- computeRestarts(cond)
  [14:55:42.422]                         for (restart in restarts) {
  [14:55:42.422]                           name <- restart$name
  [14:55:42.422]                           if (is.null(name)) 
  [14:55:42.422]                             next
  [14:55:42.422]                           if (!grepl(pattern, name)) 
  [14:55:42.422]                             next
  [14:55:42.422]                           invokeRestart(restart)
  [14:55:42.422]                           muffled <- TRUE
  [14:55:42.422]                           break
  [14:55:42.422]                         }
  [14:55:42.422]                       }
  [14:55:42.422]                     }
  [14:55:42.422]                     invisible(muffled)
  [14:55:42.422]                   }
  [14:55:42.422]                   muffleCondition(cond)
  [14:55:42.422]                 })
  [14:55:42.422]             }))
  [14:55:42.422]             future::FutureResult(value = ...future.value$value, 
  [14:55:42.422]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:42.422]                   ...future.rng), started = ...future.startTime, 
  [14:55:42.422]                 version = "1.8")
  [14:55:42.422]         }, condition = base::local({
  [14:55:42.422]             c <- base::c
  [14:55:42.422]             inherits <- base::inherits
  [14:55:42.422]             invokeRestart <- base::invokeRestart
  [14:55:42.422]             length <- base::length
  [14:55:42.422]             list <- base::list
  [14:55:42.422]             seq.int <- base::seq.int
  [14:55:42.422]             signalCondition <- base::signalCondition
  [14:55:42.422]             sys.calls <- base::sys.calls
  [14:55:42.422]             `[[` <- base::`[[`
  [14:55:42.422]             `+` <- base::`+`
  [14:55:42.422]             `<<-` <- base::`<<-`
  [14:55:42.422]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:55:42.422]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:55:42.422]                   3L)]
  [14:55:42.422]             }
  [14:55:42.422]             function(cond) {
  [14:55:42.422]                 is_error <- inherits(cond, "error")
  [14:55:42.422]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:55:42.422]                   NULL)
  [14:55:42.422]                 if (is_error) {
  [14:55:42.422]                   sessionInformation <- function() {
  [14:55:42.422]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:55:42.422]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:55:42.422]                       search = base::search(), system = base::Sys.info())
  [14:55:42.422]                   }
  [14:55:42.422]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:42.422]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:55:42.422]                     cond$call), session = sessionInformation(), 
  [14:55:42.422]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:55:42.422]                   signalCondition(cond)
  [14:55:42.422]                 }
  [14:55:42.422]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:55:42.422]                 "immediateCondition"))) {
  [14:55:42.422]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:55:42.422]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:42.422]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:55:42.422]                   if (TRUE && !signal) {
  [14:55:42.422]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:42.422]                     {
  [14:55:42.422]                       inherits <- base::inherits
  [14:55:42.422]                       invokeRestart <- base::invokeRestart
  [14:55:42.422]                       is.null <- base::is.null
  [14:55:42.422]                       muffled <- FALSE
  [14:55:42.422]                       if (inherits(cond, "message")) {
  [14:55:42.422]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:42.422]                         if (muffled) 
  [14:55:42.422]                           invokeRestart("muffleMessage")
  [14:55:42.422]                       }
  [14:55:42.422]                       else if (inherits(cond, "warning")) {
  [14:55:42.422]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:42.422]                         if (muffled) 
  [14:55:42.422]                           invokeRestart("muffleWarning")
  [14:55:42.422]                       }
  [14:55:42.422]                       else if (inherits(cond, "condition")) {
  [14:55:42.422]                         if (!is.null(pattern)) {
  [14:55:42.422]                           computeRestarts <- base::computeRestarts
  [14:55:42.422]                           grepl <- base::grepl
  [14:55:42.422]                           restarts <- computeRestarts(cond)
  [14:55:42.422]                           for (restart in restarts) {
  [14:55:42.422]                             name <- restart$name
  [14:55:42.422]                             if (is.null(name)) 
  [14:55:42.422]                               next
  [14:55:42.422]                             if (!grepl(pattern, name)) 
  [14:55:42.422]                               next
  [14:55:42.422]                             invokeRestart(restart)
  [14:55:42.422]                             muffled <- TRUE
  [14:55:42.422]                             break
  [14:55:42.422]                           }
  [14:55:42.422]                         }
  [14:55:42.422]                       }
  [14:55:42.422]                       invisible(muffled)
  [14:55:42.422]                     }
  [14:55:42.422]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:42.422]                   }
  [14:55:42.422]                 }
  [14:55:42.422]                 else {
  [14:55:42.422]                   if (TRUE) {
  [14:55:42.422]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:42.422]                     {
  [14:55:42.422]                       inherits <- base::inherits
  [14:55:42.422]                       invokeRestart <- base::invokeRestart
  [14:55:42.422]                       is.null <- base::is.null
  [14:55:42.422]                       muffled <- FALSE
  [14:55:42.422]                       if (inherits(cond, "message")) {
  [14:55:42.422]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:42.422]                         if (muffled) 
  [14:55:42.422]                           invokeRestart("muffleMessage")
  [14:55:42.422]                       }
  [14:55:42.422]                       else if (inherits(cond, "warning")) {
  [14:55:42.422]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:42.422]                         if (muffled) 
  [14:55:42.422]                           invokeRestart("muffleWarning")
  [14:55:42.422]                       }
  [14:55:42.422]                       else if (inherits(cond, "condition")) {
  [14:55:42.422]                         if (!is.null(pattern)) {
  [14:55:42.422]                           computeRestarts <- base::computeRestarts
  [14:55:42.422]                           grepl <- base::grepl
  [14:55:42.422]                           restarts <- computeRestarts(cond)
  [14:55:42.422]                           for (restart in restarts) {
  [14:55:42.422]                             name <- restart$name
  [14:55:42.422]                             if (is.null(name)) 
  [14:55:42.422]                               next
  [14:55:42.422]                             if (!grepl(pattern, name)) 
  [14:55:42.422]                               next
  [14:55:42.422]                             invokeRestart(restart)
  [14:55:42.422]                             muffled <- TRUE
  [14:55:42.422]                             break
  [14:55:42.422]                           }
  [14:55:42.422]                         }
  [14:55:42.422]                       }
  [14:55:42.422]                       invisible(muffled)
  [14:55:42.422]                     }
  [14:55:42.422]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:42.422]                   }
  [14:55:42.422]                 }
  [14:55:42.422]             }
  [14:55:42.422]         }))
  [14:55:42.422]     }, error = function(ex) {
  [14:55:42.422]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:55:42.422]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:42.422]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:55:42.422]     }, finally = {
  [14:55:42.422]         {
  [14:55:42.422]             {
  [14:55:42.422]                 NULL
  [14:55:42.422]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:55:42.422]             }
  [14:55:42.422]             options(future.plan = NULL)
  [14:55:42.422]             if (is.na(NA_character_)) 
  [14:55:42.422]                 Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:42.422]             else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:55:42.422]             future::plan(list(b = function (..., workers = availableCores(constraints = "multicore"), 
  [14:55:42.422]                 envir = parent.frame()) 
  [14:55:42.422]             {
  [14:55:42.422]                 default_workers <- missing(workers)
  [14:55:42.422]                 if (is.function(workers)) 
  [14:55:42.422]                   workers <- workers()
  [14:55:42.422]                 workers <- as.integer(workers)
  [14:55:42.422]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:55:42.422]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:55:42.422]                   if (default_workers) 
  [14:55:42.422]                     supportsMulticore(warn = TRUE)
  [14:55:42.422]                   return(sequential(..., envir = envir))
  [14:55:42.422]                 }
  [14:55:42.422]                 oopts <- options(mc.cores = workers)
  [14:55:42.422]                 on.exit(options(oopts))
  [14:55:42.422]                 future <- MulticoreFuture(..., workers = workers, 
  [14:55:42.422]                   envir = envir)
  [14:55:42.422]                 if (!future$lazy) 
  [14:55:42.422]                   future <- run(future)
  [14:55:42.422]                 invisible(future)
  [14:55:42.422]             }), .cleanup = FALSE, .init = FALSE)
  [14:55:42.422]         }
  [14:55:42.422]         base::options(...future.oldOptions)
  [14:55:42.422]     })
  [14:55:42.422]     if (TRUE) {
  [14:55:42.422]         base::sink(type = "output", split = FALSE)
  [14:55:42.422]         if (TRUE) {
  [14:55:42.422]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:55:42.422]         }
  [14:55:42.422]         else {
  [14:55:42.422]             ...future.result["stdout"] <- base::list(NULL)
  [14:55:42.422]         }
  [14:55:42.422]         base::close(...future.stdout)
  [14:55:42.422]         ...future.stdout <- NULL
  [14:55:42.422]     }
  [14:55:42.422]     ...future.result$conditions <- ...future.conditions
  [14:55:42.422]     ...future.result
  [14:55:42.422] }
  [14:55:43.732]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [14:55:42.427] requestCore(): workers = 2
  [14:55:43.732]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [14:55:42.449] MulticoreFuture started
  [14:55:43.732]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [14:55:42.450] - Launch lazy future ... done
  [14:55:43.733]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [14:55:42.450] run() for 'MulticoreFuture' ... done
  [14:55:43.733]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [14:55:42.451] Chunk #1 of 2 ... DONE
  [14:55:43.733]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [14:55:42.451] Chunk #2 of 2 ...
  [14:55:43.734]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [14:55:42.452]  - Finding globals in 'args_list' chunk #2 ...
  [14:55:43.734]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [14:55:42.452] getGlobalsAndPackages() ...
  [14:55:43.734]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [14:55:42.453] Searching for globals...
  [14:55:43.735]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [14:55:42.454] 
  [14:55:43.735]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [14:55:42.455] Searching for globals ... DONE
  [14:55:43.735]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [14:55:42.455] - globals: [0] <none>
  [14:55:43.735]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [14:55:42.455] getGlobalsAndPackages() ... DONE
  [14:55:43.736]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [14:55:42.456] 
  [14:55:43.736]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [14:55:42.456] 
  [14:55:43.736]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [14:55:42.456]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:55:43.737]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [14:55:42.457] getGlobalsAndPackages() ...
  [14:55:43.737]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [14:55:42.457] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:43.737]  - Condition #104: 'simpleMessage', 'message', 'condition'
  [14:55:42.458] Resolving globals: FALSE
  [14:55:43.738]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [14:55:42.459] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:43.738]  - Condition #106: 'simpleMessage', 'message', 'condition'
  [14:55:42.459] 
  [14:55:43.738]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [14:55:42.460] getGlobalsAndPackages() ... DONE
  [14:55:43.739]  - Condition #108: 'simpleMessage', 'message', 'condition'
  [14:55:42.461] run() for 'Future' ...
  [14:55:43.739]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [14:55:42.461] - state: 'created'
  [14:55:43.739]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [14:55:42.461] - Future backend: 'FutureStrategy', 'multicore', 'multiprocess', 'future', 'function'
  [14:55:43.739]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [14:55:42.486] assign_globals() ...
  [14:55:43.740]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [14:55:42.486] List of 3
  [14:55:42.486]  $ ...future.x_ii:List of 2
  [14:55:42.486]   ..$ :List of 1
  [14:55:42.486]   .. ..$ b: int 2
  [14:55:42.486]   ..$ :List of 1
  [14:55:42.486]   .. ..$ b: int 1
  [14:55:42.486]  $ a             : int 1
  [14:55:42.486]  $ plan_a        :List of 1
  [14:55:42.486]   ..$ b:function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame())  
  [14:55:42.486]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [14:55:42.486]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:42.486]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:42.486]  - attr(*, "where")=List of 3
  [14:55:42.486]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:42.486]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:42.486]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:42.486]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:42.486]  - attr(*, "resolved")= logi FALSE
  [14:55:42.486]  - attr(*, "total_size")= num 38072
  [14:55:42.486]  - attr(*, "already-done")= logi TRUE
  [14:55:43.740]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [14:55:42.535] - copied '...future.x_ii' to environment
  [14:55:43.757]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [14:55:42.535] - copied 'a' to environment
  [14:55:43.757]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [14:55:42.536] - copied 'plan_a' to environment
  [14:55:43.757]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [14:55:42.536] List of 3
  [14:55:42.536]  $ ...future.x_ii:List of 2
  [14:55:42.536]   ..$ :List of 1
  [14:55:42.536]   .. ..$ b: int 2
  [14:55:42.536]   ..$ :List of 1
  [14:55:42.536]   .. ..$ b: int 1
  [14:55:42.536]  $ a             : int 1
  [14:55:42.536]  $ plan_a        :List of 1
  [14:55:42.536]   ..$ b:function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame())  
  [14:55:42.536]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [14:55:42.536]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:42.536]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:42.536]  - attr(*, "where")=List of 3
  [14:55:42.536]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:42.536]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:42.536]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:42.536]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:42.536]  - attr(*, "resolved")= logi FALSE
  [14:55:42.536]  - attr(*, "total_size")= num 38072
  [14:55:42.536]  - attr(*, "already-done")= logi TRUE
  [14:55:43.758]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [14:55:42.579] assign_globals() ... done
  [14:55:43.758]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [14:55:42.580] - Future class: 'MulticoreFuture', 'MultiprocessFuture', 'Future', 'environment'
  [14:55:43.758]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [14:55:42.580] - Copy elements of temporary 'MulticoreFuture' to final 'Future' object ...
  [14:55:43.759]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [14:55:42.597]   - Field: 'label'
  [14:55:43.759]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [14:55:42.597]   - Field: 'local'
  [14:55:43.759]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [14:55:42.597]   - Field: 'owner'
  [14:55:43.760]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [14:55:42.598]   - Field: 'envir'
  [14:55:43.760]  - Condition #124: 'simpleMessage', 'message', 'condition'
  [14:55:42.598]   - Field: 'workers'
  [14:55:43.760]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [14:55:42.598]   - Field: 'packages'
  [14:55:43.761]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [14:55:42.599]   - Field: 'gc'
  [14:55:43.761]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [14:55:42.599]   - Field: 'job'
  [14:55:43.761]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [14:55:42.599]   - Field: 'conditions'
  [14:55:43.762]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [14:55:42.599]   - Field: 'persistent'
  [14:55:43.762]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [14:55:42.600]   - Field: 'expr'
  [14:55:43.762]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [14:55:42.600]   - Field: 'uuid'
  [14:55:43.763]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [14:55:42.600]   - Field: 'seed'
  [14:55:43.763]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [14:55:42.601]   - Field: 'version'
  [14:55:43.763]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [14:55:42.601]   - Field: 'result'
  [14:55:43.764]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [14:55:42.601]   - Field: 'asynchronous'
  [14:55:43.764]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [14:55:42.602]   - Field: 'calls'
  [14:55:43.764]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [14:55:42.602]   - Field: 'globals'
  [14:55:43.765]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [14:55:42.602]   - Field: 'stdout'
  [14:55:43.765]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [14:55:42.603]   - Field: 'earlySignal'
  [14:55:43.765]  - Condition #140: 'simpleMessage', 'message', 'condition'
  [14:55:42.603]   - Field: 'lazy'
  [14:55:43.766]  - Condition #141: 'simpleMessage', 'message', 'condition'
  [14:55:42.603]   - Field: 'state'
  [14:55:43.766]  - Condition #142: 'simpleMessage', 'message', 'condition'
  [14:55:42.603] - Copy elements of temporary 'MulticoreFuture' to final 'Future' object ... done
  [14:55:43.766]  - Condition #143: 'simpleMessage', 'message', 'condition'
  [14:55:42.604] - Launch lazy future ...
  [14:55:43.767]  - Condition #144: 'simpleMessage', 'message', 'condition'
  [14:55:42.604] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:55:43.767]  - Condition #145: 'simpleMessage', 'message', 'condition'
  [14:55:42.605] Packages needed by future strategies (n = 0): <none>
  [14:55:43.767]  - Condition #146: 'simpleMessage', 'message', 'condition'
  [14:55:42.607] {
  [14:55:42.607]     {
  [14:55:42.607]         ...future.startTime <- base::Sys.time()
  [14:55:42.607]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:55:42.607]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:55:42.607]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:55:42.607]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:55:42.607]             future.resolve.recursive = NULL, future.rng.onMisuse = NULL, 
  [14:55:42.607]             future.rng.onMisuse.keepFuture = NULL, future.stdout.windows.reencode = NULL, 
  [14:55:42.607]             width = 80L)
  [14:55:42.607]         {
  [14:55:42.607]             {
  [14:55:42.607]                 {
  [14:55:42.607]                   {
  [14:55:42.607]                     base::local({
  [14:55:42.607]                       has_future <- base::requireNamespace("future", 
  [14:55:42.607]                         quietly = TRUE)
  [14:55:42.607]                       if (has_future) {
  [14:55:42.607]                         ns <- base::getNamespace("future")
  [14:55:42.607]                         version <- ns[[".package"]][["version"]]
  [14:55:42.607]                         if (is.null(version)) 
  [14:55:42.607]                           version <- utils::packageVersion("future")
  [14:55:42.607]                       }
  [14:55:42.607]                       else {
  [14:55:42.607]                         version <- NULL
  [14:55:42.607]                       }
  [14:55:42.607]                       if (!has_future || version < "1.8.0") {
  [14:55:42.607]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:55:42.607]                           "", base::R.version$version.string), 
  [14:55:42.607]                           platform = base::sprintf("%s (%s-bit)", 
  [14:55:42.607]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:55:42.607]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:55:42.607]                             "release", "version")], collapse = " "), 
  [14:55:42.607]                           hostname = base::Sys.info()[["nodename"]])
  [14:55:42.607]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:55:42.607]                           info)
  [14:55:42.607]                         info <- base::paste(info, collapse = "; ")
  [14:55:42.607]                         if (!has_future) {
  [14:55:42.607]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:55:42.607]                             info)
  [14:55:42.607]                         }
  [14:55:42.607]                         else {
  [14:55:42.607]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:55:42.607]                             info, version)
  [14:55:42.607]                         }
  [14:55:42.607]                         base::stop(msg)
  [14:55:42.607]                       }
  [14:55:42.607]                     })
  [14:55:42.607]                   }
  [14:55:42.607]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:55:42.607]                   base::options(mc.cores = 1L)
  [14:55:42.607]                 }
  [14:55:42.607]                 base::local({
  [14:55:42.607]                   for (pkg in c("doFuture", "utils")) {
  [14:55:42.607]                     base::loadNamespace(pkg)
  [14:55:42.607]                     base::library(pkg, character.only = TRUE)
  [14:55:42.607]                   }
  [14:55:42.607]                 })
  [14:55:42.607]             }
  [14:55:42.607]             options(future.plan = NULL)
  [14:55:42.607]             Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:42.607]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:55:42.607]         }
  [14:55:42.607]     }
  [14:55:42.607]     if (FALSE) {
  [14:55:42.607]     }
  [14:55:42.607]     else {
  [14:55:42.607]         if (TRUE) {
  [14:55:42.607]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:55:42.607]                 open = "w")
  [14:55:42.607]         }
  [14:55:42.607]         else {
  [14:55:42.607]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:55:42.607]                 windows = "NUL", "/dev/null"), open = "w")
  [14:55:42.607]         }
  [14:55:42.607]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:55:42.607]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:55:42.607]             base::sink(type = "output", split = FALSE)
  [14:55:42.607]             base::close(...future.stdout)
  [14:55:42.607]         }, add = TRUE)
  [14:55:42.607]     }
  [14:55:42.607]     ...future.frame <- base::sys.nframe()
  [14:55:42.607]     ...future.conditions <- base::list()
  [14:55:42.607]     ...future.rng <- base::globalenv()$.Random.seed
  [14:55:42.607]     ...future.result <- base::tryCatch({
  [14:55:42.607]         base::withCallingHandlers({
  [14:55:42.607]             ...future.value <- base::withVisible(base::local({
  [14:55:42.607]                 withCallingHandlers({
  [14:55:42.607]                   {
  [14:55:42.607]                     doFuture::registerDoFuture()
  [14:55:42.607]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:42.607]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:42.607]                       b <- NULL
  [14:55:42.607]                       ...future.env <- environment()
  [14:55:42.607]                       local({
  [14:55:42.607]                         for (name in names(...future.x_jj)) {
  [14:55:42.607]                           assign(name, ...future.x_jj[[name]], 
  [14:55:42.607]                             envir = ...future.env, inherits = FALSE)
  [14:55:42.607]                         }
  [14:55:42.607]                       })
  [14:55:42.607]                       tryCatch({
  [14:55:42.607]                         plan_list <- future::plan("next")
  [14:55:42.607]                         message(capture.output(print(plan_list)))
  [14:55:42.607]                         stopifnot(inherits(plan_list, "future"))
  [14:55:42.607]                         default <- getOption("future.plan", "sequential")
  [14:55:42.607]                         if (is.function(default)) 
  [14:55:42.607]                           default <- class(default)
  [14:55:42.607]                         stopifnot(inherits(plan_list, default))
  [14:55:42.607]                         plan_b <- future::plan("list")
  [14:55:42.607]                         str(plan_b)
  [14:55:42.607]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:42.607]                           inherits(plan_b[[1]], default))
  [14:55:42.607]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:42.607]                       }, error = identity)
  [14:55:42.607]                     })
  [14:55:42.607]                   }
  [14:55:42.607]                 }, immediateCondition = function(cond) {
  [14:55:42.607]                   obj <- list(time = Sys.time(), condition = cond)
  [14:55:42.607]                   file <- tempfile(class(cond)[1], tmpdir = "/home/hornik/tmp/scratch/RtmplLCzy6/.future/immediateConditions", 
  [14:55:42.607]                     fileext = ".rds")
  [14:55:42.607]                   save_rds <- function (object, pathname, ...) 
  [14:55:42.607]                   {
  [14:55:42.607]                     pathname_tmp <- sprintf("%s.tmp", pathname)
  [14:55:42.607]                     if (file_test("-f", pathname_tmp)) {
  [14:55:42.607]                       fi_tmp <- file.info(pathname_tmp)
  [14:55:42.607]                       stopf("Cannot save RDS file because a temporary save file already exists: %s (%0.f bytes; last modified on %s)", 
  [14:55:42.607]                         sQuote(pathname_tmp), fi_tmp[["size"]], 
  [14:55:42.607]                         fi_tmp[["mtime"]])
  [14:55:42.607]                     }
  [14:55:42.607]                     tryCatch({
  [14:55:42.607]                       saveRDS(object, file = pathname_tmp, ...)
  [14:55:42.607]                     }, error = function(ex) {
  [14:55:42.607]                       msg <- conditionMessage(ex)
  [14:55:42.607]                       fi_tmp <- file.info(pathname_tmp)
  [14:55:42.607]                       msg <- sprintf("saveRDS() failed to save to temporary file %s (%.0f bytes; last modified on %s). The reason was: %s", 
  [14:55:42.607]                         sQuote(pathname_tmp), fi_tmp[["size"]], 
  [14:55:42.607]                         fi_tmp[["mtime"]], msg)
  [14:55:42.607]                       ex$message <- msg
  [14:55:42.607]                       stop(ex)
  [14:55:42.607]                     })
  [14:55:42.607]                     stopifnot(file_test("-f", pathname_tmp))
  [14:55:42.607]                     res <- file.rename(from = pathname_tmp, to = pathname)
  [14:55:42.607]                     if (!res || file_test("-f", pathname_tmp)) {
  [14:55:42.607]                       fi_tmp <- file.info(pathname_tmp)
  [14:55:42.607]                       fi <- file.info(pathname)
  [14:55:42.607]                       msg <- sprintf("save_rds() failed to rename temporary save file %s (%0.f bytes; last modified on %s) to %s (%0.f bytes; last modified on %s)", 
  [14:55:42.607]                         sQuote(pathname_tmp), fi_tmp[["size"]], 
  [14:55:42.607]                         fi_tmp[["mtime"]], sQuote(pathname), 
  [14:55:42.607]                         fi[["size"]], fi[["mtime"]])
  [14:55:42.607]                       stop(msg)
  [14:55:42.607]                     }
  [14:55:42.607]                     invisible(pathname)
  [14:55:42.607]                   }
  [14:55:42.607]                   save_rds(obj, file)
  [14:55:42.607]                   muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:42.607]                   {
  [14:55:42.607]                     inherits <- base::inherits
  [14:55:42.607]                     invokeRestart <- base::invokeRestart
  [14:55:42.607]                     is.null <- base::is.null
  [14:55:42.607]                     muffled <- FALSE
  [14:55:42.607]                     if (inherits(cond, "message")) {
  [14:55:42.607]                       muffled <- grepl(pattern, "muffleMessage")
  [14:55:42.607]                       if (muffled) 
  [14:55:42.607]                         invokeRestart("muffleMessage")
  [14:55:42.607]                     }
  [14:55:42.607]                     else if (inherits(cond, "warning")) {
  [14:55:42.607]                       muffled <- grepl(pattern, "muffleWarning")
  [14:55:42.607]                       if (muffled) 
  [14:55:42.607]                         invokeRestart("muffleWarning")
  [14:55:42.607]                     }
  [14:55:42.607]                     else if (inherits(cond, "condition")) {
  [14:55:42.607]                       if (!is.null(pattern)) {
  [14:55:42.607]                         computeRestarts <- base::computeRestarts
  [14:55:42.607]                         grepl <- base::grepl
  [14:55:42.607]                         restarts <- computeRestarts(cond)
  [14:55:42.607]                         for (restart in restarts) {
  [14:55:42.607]                           name <- restart$name
  [14:55:42.607]                           if (is.null(name)) 
  [14:55:42.607]                             next
  [14:55:42.607]                           if (!grepl(pattern, name)) 
  [14:55:42.607]                             next
  [14:55:42.607]                           invokeRestart(restart)
  [14:55:42.607]                           muffled <- TRUE
  [14:55:42.607]                           break
  [14:55:42.607]                         }
  [14:55:42.607]                       }
  [14:55:42.607]                     }
  [14:55:42.607]                     invisible(muffled)
  [14:55:42.607]                   }
  [14:55:42.607]                   muffleCondition(cond)
  [14:55:42.607]                 })
  [14:55:42.607]             }))
  [14:55:42.607]             future::FutureResult(value = ...future.value$value, 
  [14:55:42.607]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:42.607]                   ...future.rng), started = ...future.startTime, 
  [14:55:42.607]                 version = "1.8")
  [14:55:42.607]         }, condition = base::local({
  [14:55:42.607]             c <- base::c
  [14:55:42.607]             inherits <- base::inherits
  [14:55:42.607]             invokeRestart <- base::invokeRestart
  [14:55:42.607]             length <- base::length
  [14:55:42.607]             list <- base::list
  [14:55:42.607]             seq.int <- base::seq.int
  [14:55:42.607]             signalCondition <- base::signalCondition
  [14:55:42.607]             sys.calls <- base::sys.calls
  [14:55:42.607]             `[[` <- base::`[[`
  [14:55:42.607]             `+` <- base::`+`
  [14:55:42.607]             `<<-` <- base::`<<-`
  [14:55:42.607]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:55:42.607]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:55:42.607]                   3L)]
  [14:55:42.607]             }
  [14:55:42.607]             function(cond) {
  [14:55:42.607]                 is_error <- inherits(cond, "error")
  [14:55:42.607]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:55:42.607]                   NULL)
  [14:55:42.607]                 if (is_error) {
  [14:55:42.607]                   sessionInformation <- function() {
  [14:55:42.607]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:55:42.607]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:55:42.607]                       search = base::search(), system = base::Sys.info())
  [14:55:42.607]                   }
  [14:55:42.607]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:42.607]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:55:42.607]                     cond$call), session = sessionInformation(), 
  [14:55:42.607]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:55:42.607]                   signalCondition(cond)
  [14:55:42.607]                 }
  [14:55:42.607]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:55:42.607]                 "immediateCondition"))) {
  [14:55:42.607]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:55:42.607]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:42.607]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:55:42.607]                   if (TRUE && !signal) {
  [14:55:42.607]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:42.607]                     {
  [14:55:42.607]                       inherits <- base::inherits
  [14:55:42.607]                       invokeRestart <- base::invokeRestart
  [14:55:42.607]                       is.null <- base::is.null
  [14:55:42.607]                       muffled <- FALSE
  [14:55:42.607]                       if (inherits(cond, "message")) {
  [14:55:42.607]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:42.607]                         if (muffled) 
  [14:55:42.607]                           invokeRestart("muffleMessage")
  [14:55:42.607]                       }
  [14:55:42.607]                       else if (inherits(cond, "warning")) {
  [14:55:42.607]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:42.607]                         if (muffled) 
  [14:55:42.607]                           invokeRestart("muffleWarning")
  [14:55:42.607]                       }
  [14:55:42.607]                       else if (inherits(cond, "condition")) {
  [14:55:42.607]                         if (!is.null(pattern)) {
  [14:55:42.607]                           computeRestarts <- base::computeRestarts
  [14:55:42.607]                           grepl <- base::grepl
  [14:55:42.607]                           restarts <- computeRestarts(cond)
  [14:55:42.607]                           for (restart in restarts) {
  [14:55:42.607]                             name <- restart$name
  [14:55:42.607]                             if (is.null(name)) 
  [14:55:42.607]                               next
  [14:55:42.607]                             if (!grepl(pattern, name)) 
  [14:55:42.607]                               next
  [14:55:42.607]                             invokeRestart(restart)
  [14:55:42.607]                             muffled <- TRUE
  [14:55:42.607]                             break
  [14:55:42.607]                           }
  [14:55:42.607]                         }
  [14:55:42.607]                       }
  [14:55:42.607]                       invisible(muffled)
  [14:55:42.607]                     }
  [14:55:42.607]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:42.607]                   }
  [14:55:42.607]                 }
  [14:55:42.607]                 else {
  [14:55:42.607]                   if (TRUE) {
  [14:55:42.607]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:42.607]                     {
  [14:55:42.607]                       inherits <- base::inherits
  [14:55:42.607]                       invokeRestart <- base::invokeRestart
  [14:55:42.607]                       is.null <- base::is.null
  [14:55:42.607]                       muffled <- FALSE
  [14:55:42.607]                       if (inherits(cond, "message")) {
  [14:55:42.607]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:42.607]                         if (muffled) 
  [14:55:42.607]                           invokeRestart("muffleMessage")
  [14:55:42.607]                       }
  [14:55:42.607]                       else if (inherits(cond, "warning")) {
  [14:55:42.607]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:42.607]                         if (muffled) 
  [14:55:42.607]                           invokeRestart("muffleWarning")
  [14:55:42.607]                       }
  [14:55:42.607]                       else if (inherits(cond, "condition")) {
  [14:55:42.607]                         if (!is.null(pattern)) {
  [14:55:42.607]                           computeRestarts <- base::computeRestarts
  [14:55:42.607]                           grepl <- base::grepl
  [14:55:42.607]                           restarts <- computeRestarts(cond)
  [14:55:42.607]                           for (restart in restarts) {
  [14:55:42.607]                             name <- restart$name
  [14:55:42.607]                             if (is.null(name)) 
  [14:55:42.607]                               next
  [14:55:42.607]                             if (!grepl(pattern, name)) 
  [14:55:42.607]                               next
  [14:55:42.607]                             invokeRestart(restart)
  [14:55:42.607]                             muffled <- TRUE
  [14:55:42.607]                             break
  [14:55:42.607]                           }
  [14:55:42.607]                         }
  [14:55:42.607]                       }
  [14:55:42.607]                       invisible(muffled)
  [14:55:42.607]                     }
  [14:55:42.607]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:42.607]                   }
  [14:55:42.607]                 }
  [14:55:42.607]             }
  [14:55:42.607]         }))
  [14:55:42.607]     }, error = function(ex) {
  [14:55:42.607]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:55:42.607]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:42.607]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:55:42.607]     }, finally = {
  [14:55:42.607]         {
  [14:55:42.607]             {
  [14:55:42.607]                 NULL
  [14:55:42.607]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:55:42.607]             }
  [14:55:42.607]             options(future.plan = NULL)
  [14:55:42.607]             if (is.na(NA_character_)) 
  [14:55:42.607]                 Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:42.607]             else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:55:42.607]             future::plan(list(b = function (..., workers = availableCores(constraints = "multicore"), 
  [14:55:42.607]                 envir = parent.frame()) 
  [14:55:42.607]             {
  [14:55:42.607]                 default_workers <- missing(workers)
  [14:55:42.607]                 if (is.function(workers)) 
  [14:55:42.607]                   workers <- workers()
  [14:55:42.607]                 workers <- as.integer(workers)
  [14:55:42.607]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:55:42.607]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:55:42.607]                   if (default_workers) 
  [14:55:42.607]                     supportsMulticore(warn = TRUE)
  [14:55:42.607]                   return(sequential(..., envir = envir))
  [14:55:42.607]                 }
  [14:55:42.607]                 oopts <- options(mc.cores = workers)
  [14:55:42.607]                 on.exit(options(oopts))
  [14:55:42.607]                 future <- MulticoreFuture(..., workers = workers, 
  [14:55:42.607]                   envir = envir)
  [14:55:42.607]                 if (!future$lazy) 
  [14:55:42.607]                   future <- run(future)
  [14:55:42.607]                 invisible(future)
  [14:55:42.607]             }), .cleanup = FALSE, .init = FALSE)
  [14:55:42.607]         }
  [14:55:42.607]         base::options(...future.oldOptions)
  [14:55:42.607]     })
  [14:55:42.607]     if (TRUE) {
  [14:55:42.607]         base::sink(type = "output", split = FALSE)
  [14:55:42.607]         if (TRUE) {
  [14:55:42.607]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:55:42.607]         }
  [14:55:42.607]         else {
  [14:55:42.607]             ...future.result["stdout"] <- base::list(NULL)
  [14:55:42.607]         }
  [14:55:42.607]         base::close(...future.stdout)
  [14:55:42.607]         ...future.stdout <- NULL
  [14:55:42.607]     }
  [14:55:42.607]     ...future.result$conditions <- ...future.conditions
  [14:55:42.607]     ...future.result
  [14:55:42.607] }
  [14:55:43.768]  - Condition #147: 'simpleMessage', 'message', 'condition'
  [14:55:42.611] requestCore(): workers = 2
  [14:55:43.768]  - Condition #148: 'simpleMessage', 'message', 'condition'
  [14:55:42.637] MulticoreFuture started
  [14:55:43.768]  - Condition #149: 'simpleMessage', 'message', 'condition'
  [14:55:42.638] - Launch lazy future ... done
  [14:55:43.768]  - Condition #150: 'simpleMessage', 'message', 'condition'
  [14:55:42.638] run() for 'MulticoreFuture' ... done
  [14:55:43.769]  - Condition #151: 'simpleMessage', 'message', 'condition'
  [14:55:42.639] Chunk #2 of 2 ... DONE
  [14:55:43.769]  - Condition #152: 'simpleMessage', 'message', 'condition'
  [14:55:42.639] Launching 2 futures (chunks) ... DONE
  [14:55:43.769]  - Condition #153: 'simpleMessage', 'message', 'condition'
  [14:55:42.640] - resolving futures
  [14:55:43.770]  - Condition #154: 'simpleMessage', 'message', 'condition'
  [14:55:42.640]   - gathering results & relaying conditions (except errors)
  [14:55:43.770]  - Condition #155: 'simpleMessage', 'message', 'condition'
  [14:55:42.641] resolve() on list ...
  [14:55:43.770]  - Condition #156: 'simpleMessage', 'message', 'condition'
  [14:55:42.641]  recursive: 0
  [14:55:43.771]  - Condition #157: 'simpleMessage', 'message', 'condition'
  [14:55:42.642]  length: 2
  [14:55:43.771]  - Condition #158: 'simpleMessage', 'message', 'condition'
  [14:55:42.642] 
  [14:55:43.771]  - Condition #159: 'simpleMessage', 'message', 'condition'
  [14:55:42.659] Future #1
  [14:55:43.771]  - Condition #160: 'simpleMessage', 'message', 'condition'
  [14:55:42.664] signalConditions() ...
  [14:55:43.772]  - Condition #161: 'simpleMessage', 'message', 'condition'
  [14:55:42.664]  - include = 'immediateCondition'
  [14:55:43.788]  - Condition #162: 'simpleMessage', 'message', 'condition'
  [14:55:42.665]  - exclude = 
  [14:55:43.789]  - Condition #163: 'simpleMessage', 'message', 'condition'
  [14:55:42.665]  - resignal = FALSE
  [14:55:43.793]  - Condition #164: 'simpleMessage', 'message', 'condition'
  [14:55:42.665]  - Number of conditions: 1
  [14:55:43.793]  - Condition #165: 'simpleMessage', 'message', 'condition'
  [14:55:42.666] signalConditions() ... done
  [14:55:43.794]  - Condition #166: 'simpleMessage', 'message', 'condition'
  [14:55:42.666] signalConditions() ...
  [14:55:43.794]  - Condition #167: 'simpleMessage', 'message', 'condition'
  [14:55:42.666]  - include = 'immediateCondition'
  [14:55:43.794]  - Condition #168: 'simpleMessage', 'message', 'condition'
  [14:55:42.667]  - exclude = 
  [14:55:43.795]  - Condition #169: 'simpleMessage', 'message', 'condition'
  [14:55:42.667]  - resignal = FALSE
  [14:55:43.795]  - Condition #170: 'simpleMessage', 'message', 'condition'
  [14:55:42.667]  - Number of conditions: 1
  [14:55:43.795]  - Condition #171: 'simpleMessage', 'message', 'condition'
  [14:55:42.667] signalConditions() ... done
  [14:55:43.796]  - Condition #172: 'simpleMessage', 'message', 'condition'
  [14:55:42.668] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [14:55:43.796]  - Condition #173: 'simpleMessage', 'message', 'condition'
  [14:55:42.684] - nx: 2
  [14:55:43.796]  - Condition #174: 'simpleMessage', 'message', 'condition'
  [14:55:42.685] - relay: TRUE
  [14:55:43.797]  - Condition #175: 'simpleMessage', 'message', 'condition'
  [14:55:42.685] - stdout: TRUE
  [14:55:43.797]  - Condition #176: 'simpleMessage', 'message', 'condition'
  [14:55:42.685] - signal: TRUE
  [14:55:43.797]  - Condition #177: 'simpleMessage', 'message', 'condition'
  [14:55:42.686] - resignal: FALSE
  [14:55:43.798]  - Condition #178: 'simpleMessage', 'message', 'condition'
  [14:55:42.686] - force: FALSE
  [14:55:43.798]  - Condition #179: 'simpleMessage', 'message', 'condition'
  [14:55:42.686] - relayed: [n=2] FALSE, FALSE
  [14:55:43.798]  - Condition #180: 'simpleMessage', 'message', 'condition'
  [14:55:42.687] - queued futures: [n=2] FALSE, FALSE
  [14:55:43.799]  - Condition #181: 'simpleMessage', 'message', 'condition'
  [14:55:42.687]  - until=1
  [14:55:43.799]  - Condition #182: 'simpleMessage', 'message', 'condition'
  [14:55:42.687]  - relaying element #1
  [14:55:43.799]  - Condition #183: 'simpleMessage', 'message', 'condition'
  [14:55:42.695] signalConditions() ...
  [14:55:43.800]  - Condition #184: 'simpleMessage', 'message', 'condition'
  [14:55:42.696]  - include = 'immediateCondition'
  [14:55:43.800]  - Condition #185: 'simpleMessage', 'message', 'condition'
  [14:55:42.696]  - exclude = 
  [14:55:43.800]  - Condition #186: 'simpleMessage', 'message', 'condition'
  [14:55:42.697]  - resignal = FALSE
  [14:55:43.801]  - Condition #187: 'simpleMessage', 'message', 'condition'
  [14:55:42.697]  - Number of conditions: 1
  [14:55:43.801]  - Condition #188: 'simpleMessage', 'message', 'condition'
  [14:55:42.698] signalConditions() ... done
  [14:55:43.801]  - Condition #189: 'simpleMessage', 'message', 'condition'
  [14:55:42.699] signalConditions() ...
  [14:55:43.802]  - Condition #190: 'simpleMessage', 'message', 'condition'
  [14:55:42.699]  - include = 'immediateCondition'
  [14:55:43.802]  - Condition #191: 'simpleMessage', 'message', 'condition'
  [14:55:42.700]  - exclude = 
  [14:55:43.802]  - Condition #192: 'simpleMessage', 'message', 'condition'
  [14:55:42.701]  - resignal = FALSE
  [14:55:43.803]  - Condition #193: 'simpleMessage', 'message', 'condition'
  [14:55:42.701]  - Number of conditions: 1
  [14:55:43.803]  - Condition #194: 'simpleMessage', 'message', 'condition'
  [14:55:42.702] signalConditions() ... done
  [14:55:43.803]  - Condition #195: 'simpleMessage', 'message', 'condition'
  [14:55:42.702] signalConditions() ...
  [14:55:43.803]  - Condition #196: 'simpleMessage', 'message', 'condition'
  [14:55:42.703]  - include = 'condition'
  [14:55:43.804]  - Condition #197: 'simpleMessage', 'message', 'condition'
  [14:55:42.703]  - exclude = 'immediateCondition'
  [14:55:43.804]  - Condition #198: 'simpleMessage', 'message', 'condition'
  [14:55:42.704]  - resignal = FALSE
  [14:55:43.824]  - Condition #199: 'simpleMessage', 'message', 'condition'
  [14:55:42.704]  - Number of conditions: 1
  [14:55:43.825]  - Condition #200: 'simpleMessage', 'message', 'condition'
  [14:55:42.704]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:55:43.825]  - Condition #201: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (..., envir = parent.frame())- tweaked: FALSE- call: NULL
  [14:55:43.826]  - Condition #202: 'simpleMessage', 'message', 'condition'
  [14:55:42.705] signalConditions() ... done
  [14:55:43.826]  - Condition #203: 'simpleMessage', 'message', 'condition'
  [14:55:42.705] - relayed: [n=2] TRUE, FALSE
  [14:55:43.826]  - Condition #204: 'simpleMessage', 'message', 'condition'
  [14:55:42.706] - queued futures: [n=2] TRUE, FALSE
  [14:55:43.827]  - Condition #205: 'simpleMessage', 'message', 'condition'
  [14:55:42.706] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [14:55:43.827]  - Condition #206: 'simpleMessage', 'message', 'condition'
  [14:55:42.706]  length: 1 (resolved future 1)
  [14:55:43.827]  - Condition #207: 'simpleMessage', 'message', 'condition'
  [14:55:42.818] Future #2
  [14:55:43.828]  - Condition #208: 'simpleMessage', 'message', 'condition'
  [14:55:42.820] signalConditions() ...
  [14:55:43.828]  - Condition #209: 'simpleMessage', 'message', 'condition'
  [14:55:42.820]  - include = 'immediateCondition'
  [14:55:43.828]  - Condition #210: 'simpleMessage', 'message', 'condition'
  [14:55:42.820]  - exclude = 
  [14:55:43.829]  - Condition #211: 'simpleMessage', 'message', 'condition'
  [14:55:42.821]  - resignal = FALSE
  [14:55:43.829]  - Condition #212: 'simpleMessage', 'message', 'condition'
  [14:55:42.821]  - Number of conditions: 2
  [14:55:43.829]  - Condition #213: 'simpleMessage', 'message', 'condition'
  [14:55:42.821] signalConditions() ... done
  [14:55:43.830]  - Condition #214: 'simpleMessage', 'message', 'condition'
  [14:55:42.822] signalConditions() ...
  [14:55:43.830]  - Condition #215: 'simpleMessage', 'message', 'condition'
  [14:55:42.822]  - include = 'immediateCondition'
  [14:55:43.830]  - Condition #216: 'simpleMessage', 'message', 'condition'
  [14:55:42.822]  - exclude = 
  [14:55:43.831]  - Condition #217: 'simpleMessage', 'message', 'condition'
  [14:55:42.823]  - resignal = FALSE
  [14:55:43.831]  - Condition #218: 'simpleMessage', 'message', 'condition'
  [14:55:42.823]  - Number of conditions: 2
  [14:55:43.831]  - Condition #219: 'simpleMessage', 'message', 'condition'
  [14:55:42.823] signalConditions() ... done
  [14:55:43.832]  - Condition #220: 'simpleMessage', 'message', 'condition'
  [14:55:42.824] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [14:55:43.832]  - Condition #221: 'simpleMessage', 'message', 'condition'
  [14:55:42.824] - nx: 2
  [14:55:43.832]  - Condition #222: 'simpleMessage', 'message', 'condition'
  [14:55:42.824] - relay: TRUE
  [14:55:43.833]  - Condition #223: 'simpleMessage', 'message', 'condition'
  [14:55:42.824] - stdout: TRUE
  [14:55:43.833]  - Condition #224: 'simpleMessage', 'message', 'condition'
  [14:55:42.825] - signal: TRUE
  [14:55:43.833]  - Condition #225: 'simpleMessage', 'message', 'condition'
  [14:55:42.825] - resignal: FALSE
  [14:55:43.834]  - Condition #226: 'simpleMessage', 'message', 'condition'
  [14:55:42.825] - force: FALSE
  [14:55:43.834]  - Condition #227: 'simpleMessage', 'message', 'condition'
  [14:55:42.826] - relayed: [n=2] TRUE, FALSE
  [14:55:43.834]  - Condition #228: 'simpleMessage', 'message', 'condition'
  [14:55:42.826] - queued futures: [n=2] TRUE, FALSE
  [14:55:43.835]  - Condition #229: 'simpleMessage', 'message', 'condition'
  [14:55:42.826]  - until=2
  [14:55:43.835]  - Condition #230: 'simpleMessage', 'message', 'condition'
  [14:55:42.826]  - relaying element #2
  [14:55:43.835]  - Condition #231: 'simpleMessage', 'message', 'condition'
  [14:55:42.827] signalConditions() ...
  [14:55:43.836]  - Condition #232: 'simpleMessage', 'message', 'condition'
  [14:55:42.827]  - include = 'immediateCondition'
  [14:55:43.836]  - Condition #233: 'simpleMessage', 'message', 'condition'
  [14:55:42.827]  - exclude = 
  [14:55:43.836]  - Condition #234: 'simpleMessage', 'message', 'condition'
  [14:55:42.828]  - resignal = FALSE
  [14:55:43.837]  - Condition #235: 'simpleMessage', 'message', 'condition'
  [14:55:42.828]  - Number of conditions: 2
  [14:55:43.837]  - Condition #236: 'simpleMessage', 'message', 'condition'
  [14:55:42.828] signalConditions() ... done
  [14:55:43.837]  - Condition #237: 'simpleMessage', 'message', 'condition'
  [14:55:42.829] signalConditions() ...
  [14:55:43.838]  - Condition #238: 'simpleMessage', 'message', 'condition'
  [14:55:42.829]  - include = 'immediateCondition'
  [14:55:43.838]  - Condition #239: 'simpleMessage', 'message', 'condition'
  [14:55:42.829]  - exclude = 
  [14:55:43.838]  - Condition #240: 'simpleMessage', 'message', 'condition'
  [14:55:42.830]  - resignal = FALSE
  [14:55:43.838]  - Condition #241: 'simpleMessage', 'message', 'condition'
  [14:55:42.830]  - Number of conditions: 2
  [14:55:43.839]  - Condition #242: 'simpleMessage', 'message', 'condition'
  [14:55:42.830] signalConditions() ... done
  [14:55:43.839]  - Condition #243: 'simpleMessage', 'message', 'condition'
  [14:55:42.831] signalConditions() ...
  [14:55:43.839]  - Condition #244: 'simpleMessage', 'message', 'condition'
  [14:55:42.831]  - include = 'condition'
  [14:55:43.840]  - Condition #245: 'simpleMessage', 'message', 'condition'
  [14:55:42.831]  - exclude = 'immediateCondition'
  [14:55:43.840]  - Condition #246: 'simpleMessage', 'message', 'condition'
  [14:55:42.831]  - resignal = FALSE
  [14:55:43.856]  - Condition #247: 'simpleMessage', 'message', 'condition'
  [14:55:42.832]  - Number of conditions: 2
  [14:55:43.857]  - Condition #248: 'simpleMessage', 'message', 'condition'
  [14:55:42.832]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:55:43.857]  - Condition #249: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (..., envir = parent.frame())- tweaked: FALSE- call: NULL
  [14:55:43.857]  - Condition #250: 'simpleMessage', 'message', 'condition'
  [14:55:42.853]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:55:43.858]  - Condition #251: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (..., envir = parent.frame())- tweaked: FALSE- call: NULL
  [14:55:43.858]  - Condition #252: 'simpleMessage', 'message', 'condition'
  [14:55:42.853] signalConditions() ... done
  [14:55:43.859]  - Condition #253: 'simpleMessage', 'message', 'condition'
  [14:55:42.854] - relayed: [n=2] TRUE, TRUE
  [14:55:43.859]  - Condition #254: 'simpleMessage', 'message', 'condition'
  [14:55:42.854] - queued futures: [n=2] TRUE, TRUE
  [14:55:43.859]  - Condition #255: 'simpleMessage', 'message', 'condition'
  [14:55:42.854] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [14:55:43.860]  - Condition #256: 'simpleMessage', 'message', 'condition'
  [14:55:42.855]  length: 0 (resolved future 2)
  [14:55:43.860]  - Condition #257: 'simpleMessage', 'message', 'condition'
  [14:55:42.855] Relaying remaining futures
  [14:55:43.860]  - Condition #258: 'simpleMessage', 'message', 'condition'
  [14:55:42.855] signalConditionsASAP(NULL, pos=0) ...
  [14:55:43.861]  - Condition #259: 'simpleMessage', 'message', 'condition'
  [14:55:42.855] - nx: 2
  [14:55:43.861]  - Condition #260: 'simpleMessage', 'message', 'condition'
  [14:55:42.856] - relay: TRUE
  [14:55:43.861]  - Condition #261: 'simpleMessage', 'message', 'condition'
  [14:55:42.856] - stdout: TRUE
  [14:55:43.862]  - Condition #262: 'simpleMessage', 'message', 'condition'
  [14:55:42.856] - signal: TRUE
  [14:55:43.862]  - Condition #263: 'simpleMessage', 'message', 'condition'
  [14:55:42.856] - resignal: FALSE
  [14:55:43.862]  - Condition #264: 'simpleMessage', 'message', 'condition'
  [14:55:42.857] - force: FALSE
  [14:55:43.862]  - Condition #265: 'simpleMessage', 'message', 'condition'
  [14:55:42.857] - relayed: [n=2] TRUE, TRUE
  [14:55:43.863]  - Condition #266: 'simpleMessage', 'message', 'condition'
  [14:55:42.857] - queued futures: [n=2] TRUE, TRUE
  [14:55:43.863]  - Condition #267: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:55:43.863]  - Condition #268: 'simpleMessage', 'message', 'condition'
  [14:55:42.857] - relayed: [n=2] TRUE, TRUE
  [14:55:43.864]  - Condition #269: 'simpleMessage', 'message', 'condition'
  [14:55:42.858] - queued futures: [n=2] TRUE, TRUE
  [14:55:43.864]  - Condition #270: 'simpleMessage', 'message', 'condition'
  [14:55:42.858] signalConditionsASAP(NULL, pos=0) ... done
  [14:55:43.864]  - Condition #271: 'simpleMessage', 'message', 'condition'
  [14:55:42.858] resolve() on list ... DONE
  [14:55:43.864]  - Condition #272: 'simpleMessage', 'message', 'condition'
  [14:55:42.859] - collecting values of futures
  [14:55:43.865]  - Condition #273: 'simpleMessage', 'message', 'condition'
  [14:55:42.859] signalConditions() ...
  [14:55:43.865]  - Condition #274: 'simpleMessage', 'message', 'condition'
  [14:55:42.859]  - include = 'immediateCondition'
  [14:55:43.865]  - Condition #275: 'simpleMessage', 'message', 'condition'
  [14:55:42.859]  - exclude = 
  [14:55:43.866]  - Condition #276: 'simpleMessage', 'message', 'condition'
  [14:55:42.860]  - resignal = FALSE
  [14:55:43.866]  - Condition #277: 'simpleMessage', 'message', 'condition'
  [14:55:42.860]  - Number of conditions: 1
  [14:55:43.866]  - Condition #278: 'simpleMessage', 'message', 'condition'
  [14:55:42.860] signalConditions() ... done
  [14:55:43.866]  - Condition #279: 'simpleMessage', 'message', 'condition'
  [14:55:42.861] signalConditions() ...
  [14:55:43.867]  - Condition #280: 'simpleMessage', 'message', 'condition'
  [14:55:42.861]  - include = 'immediateCondition'
  [14:55:43.871]  - Condition #281: 'simpleMessage', 'message', 'condition'
  [14:55:42.861]  - exclude = 
  [14:55:43.871]  - Condition #282: 'simpleMessage', 'message', 'condition'
  [14:55:42.861]  - resignal = FALSE
  [14:55:43.872]  - Condition #283: 'simpleMessage', 'message', 'condition'
  [14:55:42.862]  - Number of conditions: 2
  [14:55:43.888]  - Condition #284: 'simpleMessage', 'message', 'condition'
  [14:55:42.862] signalConditions() ... done
  [14:55:43.889]  - Condition #285: 'simpleMessage', 'message', 'condition'
  [14:55:42.862] - accumulating results
  [14:55:43.889]  - Condition #286: 'simpleMessage', 'message', 'condition'
  [14:55:42.863] - processing errors (handler = 'stop')
  [14:55:43.890]  - Condition #287: 'simpleMessage', 'message', 'condition'
  [14:55:42.864] - extracting results
  [14:55:43.890]  - Condition #288: 'simpleMessage', 'message', 'condition'
  [14:55:42.864] doFuture() ... DONE
  [14:55:43.890]  - Condition #289: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:55:43.891]  - Condition #290: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:55:43.891]  - Condition #291: 'simpleMessage', 'message', 'condition'
  [14:55:42.885] doFuture() ...
  [14:55:43.891]  - Condition #292: 'simpleMessage', 'message', 'condition'
  [14:55:42.886] - dummy globals (as locals): [1] 'b'
  [14:55:43.892]  - Condition #293: 'simpleMessage', 'message', 'condition'
  [14:55:42.887] - R expression:
  [14:55:43.892]  - Condition #294: 'simpleMessage', 'message', 'condition'
  [14:55:42.887] {
  [14:55:42.887]     doFuture::registerDoFuture()
  [14:55:42.887]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:42.887]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:42.887]         b <- NULL
  [14:55:42.887]         ...future.env <- environment()
  [14:55:42.887]         local({
  [14:55:42.887]             for (name in names(...future.x_jj)) {
  [14:55:42.887]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:42.887]                   inherits = FALSE)
  [14:55:42.887]             }
  [14:55:42.887]         })
  [14:55:42.887]         tryCatch({
  [14:55:42.887]             plan_list <- future::plan("next")
  [14:55:42.887]             message(capture.output(print(plan_list)))
  [14:55:42.887]             stopifnot(inherits(plan_list, "future"))
  [14:55:42.887]             default <- getOption("future.plan", "sequential")
  [14:55:42.887]             if (is.function(default)) 
  [14:55:42.887]                 default <- class(default)
  [14:55:42.887]             stopifnot(inherits(plan_list, default))
  [14:55:42.887]             plan_b <- future::plan("list")
  [14:55:42.887]             str(plan_b)
  [14:55:42.887]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:55:42.887]                 default))
  [14:55:42.887]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:42.887]         }, error = identity)
  [14:55:42.887]     })
  [14:55:42.887] }
  [14:55:43.892]  - Condition #295: 'simpleMessage', 'message', 'condition'
  [14:55:42.888] - identifying globals and packages ...
  [14:55:43.893]  - Condition #296: 'simpleMessage', 'message', 'condition'
  [14:55:42.888] getGlobalsAndPackages() ...
  [14:55:43.893]  - Condition #297: 'simpleMessage', 'message', 'condition'
  [14:55:42.888] Retrieving 'add' globals ...
  [14:55:43.894]  - Condition #298: 'simpleMessage', 'message', 'condition'
  [14:55:42.889] - 'add' globals retrieved: [2] 'a', 'plan_a'
  [14:55:43.894]  - Condition #299: 'simpleMessage', 'message', 'condition'
  [14:55:42.889] Retrieving 'add' globals ... DONE
  [14:55:43.894]  - Condition #300: 'simpleMessage', 'message', 'condition'
  [14:55:42.890] Searching for globals...
  [14:55:43.895]  - Condition #301: 'simpleMessage', 'message', 'condition'
  [14:55:42.950] - 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:55:43.895]  - Condition #302: 'simpleMessage', 'message', 'condition'
  [14:55:42.951] Searching for globals ... DONE
  [14:55:43.895]  - Condition #303: 'simpleMessage', 'message', 'condition'
  [14:55:42.951] Resolving globals: FALSE
  [14:55:43.896]  - Condition #304: 'simpleMessage', 'message', 'condition'
  [14:55:42.953] The total size of the 3 globals is 37.18 KiB (38072 bytes)
  [14:55:43.896]  - Condition #305: 'simpleMessage', 'message', 'condition'
  [14:55:42.955] The total size of the 3 globals exported for future expression ('{; doFuture::registerDoFuture(); lapply(seq_along(...future.x_ii), FUN = function(jj) {; ...future.x_jj <- ...future.x_ii[[jj]]; b <- NULL; ...future.env <- environment(); ...; }, error = identity); }); }') is 37.18 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: 'plan_a' (37.12 KiB of class 'list'), 'a' (56 bytes of class 'numeric') and '...future.x_ii' (0 bytes of class 'NULL')
  [14:55:43.896]  - Condition #306: 'simpleMessage', 'message', 'condition'
  [14:55:42.955] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:43.897]  - Condition #307: 'simpleMessage', 'message', 'condition'
  [14:55:42.955] - packages: [1] 'utils'
  [14:55:43.897]  - Condition #308: 'simpleMessage', 'message', 'condition'
  [14:55:42.956] getGlobalsAndPackages() ... DONE
  [14:55:43.897]  - Condition #309: 'simpleMessage', 'message', 'condition'
  [14:55:42.956] List of 3
  [14:55:42.956]  $ ...future.x_ii: NULL
  [14:55:42.956]  $ a             : int 2
  [14:55:42.956]  $ plan_a        :List of 1
  [14:55:42.956]   ..$ b:function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame())  
  [14:55:42.956]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [14:55:42.956]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:42.956]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:42.956]  - attr(*, "where")=List of 3
  [14:55:42.956]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:42.956]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:42.956]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:42.956]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:42.956]  - attr(*, "resolved")= logi FALSE
  [14:55:42.956]  - attr(*, "total_size")= num 38072
  [14:55:43.898]  - Condition #310: 'simpleMessage', 'message', 'condition'
  [14:55:42.986]   - R expression:
  [14:55:43.898]  - Condition #311: 'simpleMessage', 'message', 'condition'
  [14:55:42.987] {
  [14:55:42.987]     doFuture::registerDoFuture()
  [14:55:42.987]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:42.987]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:42.987]         b <- NULL
  [14:55:42.987]         ...future.env <- environment()
  [14:55:42.987]         local({
  [14:55:42.987]             for (name in names(...future.x_jj)) {
  [14:55:42.987]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:42.987]                   inherits = FALSE)
  [14:55:42.987]             }
  [14:55:42.987]         })
  [14:55:42.987]         tryCatch({
  [14:55:42.987]             plan_list <- future::plan("next")
  [14:55:42.987]             message(capture.output(print(plan_list)))
  [14:55:42.987]             stopifnot(inherits(plan_list, "future"))
  [14:55:42.987]             default <- getOption("future.plan", "sequential")
  [14:55:42.987]             if (is.function(default)) 
  [14:55:42.987]                 default <- class(default)
  [14:55:42.987]             stopifnot(inherits(plan_list, default))
  [14:55:42.987]             plan_b <- future::plan("list")
  [14:55:42.987]             str(plan_b)
  [14:55:42.987]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:55:42.987]                 default))
  [14:55:42.987]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:42.987]         }, error = identity)
  [14:55:42.987]     })
  [14:55:42.987] }
  [14:55:43.898]  - Condition #312: 'simpleMessage', 'message', 'condition'
  [14:55:42.987]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:43.899]  - Condition #313: 'simpleMessage', 'message', 'condition'
  [14:55:42.988] List of 3
  [14:55:42.988]  $ ...future.x_ii: NULL
  [14:55:42.988]  $ a             : int 2
  [14:55:42.988]  $ plan_a        :List of 1
  [14:55:42.988]   ..$ b:function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame())  
  [14:55:42.988]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [14:55:42.988]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:42.988]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:42.988]  - attr(*, "where")=List of 3
  [14:55:42.988]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:42.988]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:42.988]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:42.988]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:42.988]  - attr(*, "resolved")= logi FALSE
  [14:55:42.988]  - attr(*, "total_size")= num 38072
  [14:55:43.899]  - Condition #314: 'simpleMessage', 'message', 'condition'
  [14:55:43.013]   - packages: [2] 'doFuture', 'utils'
  [14:55:43.899]  - Condition #315: 'simpleMessage', 'message', 'condition'
  [14:55:43.014] - identifying globals and packages ... DONE
  [14:55:43.900]  - Condition #316: 'simpleMessage', 'message', 'condition'
  [14:55:43.051] Number of chunks: 2
  [14:55:43.900]  - Condition #317: 'simpleMessage', 'message', 'condition'
  [14:55:43.052] Number of futures (= number of chunks): 2
  [14:55:43.900]  - Condition #318: 'simpleMessage', 'message', 'condition'
  [14:55:43.052] Launching 2 futures (chunks) ...
  [14:55:43.901]  - Condition #319: 'simpleMessage', 'message', 'condition'
  [14:55:43.052] Chunk #1 of 2 ...
  [14:55:43.901]  - Condition #320: 'simpleMessage', 'message', 'condition'
  [14:55:43.053]  - Finding globals in 'args_list' chunk #1 ...
  [14:55:43.901]  - Condition #321: 'simpleMessage', 'message', 'condition'
  [14:55:43.053] getGlobalsAndPackages() ...
  [14:55:43.902]  - Condition #322: 'simpleMessage', 'message', 'condition'
  [14:55:43.053] Searching for globals...
  [14:55:43.902]  - Condition #323: 'simpleMessage', 'message', 'condition'
  [14:55:43.054] 
  [14:55:43.902]  - Condition #324: 'simpleMessage', 'message', 'condition'
  [14:55:43.054] Searching for globals ... DONE
  [14:55:43.903]  - Condition #325: 'simpleMessage', 'message', 'condition'
  [14:55:43.054] - globals: [0] <none>
  [14:55:43.903]  - Condition #326: 'simpleMessage', 'message', 'condition'
  [14:55:43.055] getGlobalsAndPackages() ... DONE
  [14:55:43.903]  - Condition #327: 'simpleMessage', 'message', 'condition'
  [14:55:43.055] 
  [14:55:43.904]  - Condition #328: 'simpleMessage', 'message', 'condition'
  [14:55:43.055] 
  [14:55:43.904]  - Condition #329: 'simpleMessage', 'message', 'condition'
  [14:55:43.056]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:55:43.921]  - Condition #330: 'simpleMessage', 'message', 'condition'
  [14:55:43.056] getGlobalsAndPackages() ...
  [14:55:43.921]  - Condition #331: 'simpleMessage', 'message', 'condition'
  [14:55:43.056] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:43.921]  - Condition #332: 'simpleMessage', 'message', 'condition'
  [14:55:43.056] Resolving globals: FALSE
  [14:55:43.922]  - Condition #333: 'simpleMessage', 'message', 'condition'
  [14:55:43.057] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:43.922]  - Condition #334: 'simpleMessage', 'message', 'condition'
  [14:55:43.057] 
  [14:55:43.922]  - Condition #335: 'simpleMessage', 'message', 'condition'
  [14:55:43.058] getGlobalsAndPackages() ... DONE
  [14:55:43.923]  - Condition #336: 'simpleMessage', 'message', 'condition'
  [14:55:43.058] run() for 'Future' ...
  [14:55:43.923]  - Condition #337: 'simpleMessage', 'message', 'condition'
  [14:55:43.059] - state: 'created'
  [14:55:43.923]  - Condition #338: 'simpleMessage', 'message', 'condition'
  [14:55:43.059] - Future backend: 'FutureStrategy', 'multicore', 'multiprocess', 'future', 'function'
  [14:55:43.924]  - Condition #339: 'simpleMessage', 'message', 'condition'
  [14:55:43.091] assign_globals() ...
  [14:55:43.924]  - Condition #340: 'simpleMessage', 'message', 'condition'
  [14:55:43.091] List of 3
  [14:55:43.091]  $ ...future.x_ii:List of 1
  [14:55:43.091]   ..$ :List of 1
  [14:55:43.091]   .. ..$ b: int 3
  [14:55:43.091]  $ a             : int 2
  [14:55:43.091]  $ plan_a        :List of 1
  [14:55:43.091]   ..$ b:function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame())  
  [14:55:43.091]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [14:55:43.091]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:43.091]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:43.091]  - attr(*, "where")=List of 3
  [14:55:43.091]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:43.091]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:43.091]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:43.091]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:43.091]  - attr(*, "resolved")= logi FALSE
  [14:55:43.091]  - attr(*, "total_size")= num 38072
  [14:55:43.091]  - attr(*, "already-done")= logi TRUE
  [14:55:43.924]  - Condition #341: 'simpleMessage', 'message', 'condition'
  [14:55:43.125] - copied '...future.x_ii' to environment
  [14:55:43.925]  - Condition #342: 'simpleMessage', 'message', 'condition'
  [14:55:43.125] - copied 'a' to environment
  [14:55:43.925]  - Condition #343: 'simpleMessage', 'message', 'condition'
  [14:55:43.126] - copied 'plan_a' to environment
  [14:55:43.925]  - Condition #344: 'simpleMessage', 'message', 'condition'
  [14:55:43.126] List of 3
  [14:55:43.126]  $ ...future.x_ii:List of 1
  [14:55:43.126]   ..$ :List of 1
  [14:55:43.126]   .. ..$ b: int 3
  [14:55:43.126]  $ a             : int 2
  [14:55:43.126]  $ plan_a        :List of 1
  [14:55:43.126]   ..$ b:function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame())  
  [14:55:43.126]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [14:55:43.126]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:43.126]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:43.126]  - attr(*, "where")=List of 3
  [14:55:43.126]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:43.126]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:43.126]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:43.126]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:43.126]  - attr(*, "resolved")= logi FALSE
  [14:55:43.126]  - attr(*, "total_size")= num 38072
  [14:55:43.126]  - attr(*, "already-done")= logi TRUE
  [14:55:43.926]  - Condition #345: 'simpleMessage', 'message', 'condition'
  [14:55:43.153] assign_globals() ... done
  [14:55:43.926]  - Condition #346: 'simpleMessage', 'message', 'condition'
  [14:55:43.154] - Future class: 'MulticoreFuture', 'MultiprocessFuture', 'Future', 'environment'
  [14:55:43.926]  - Condition #347: 'simpleMessage', 'message', 'condition'
  [14:55:43.155] - Copy elements of temporary 'MulticoreFuture' to final 'Future' object ...
  [14:55:43.927]  - Condition #348: 'simpleMessage', 'message', 'condition'
  [14:55:43.155]   - Field: 'label'
  [14:55:43.927]  - Condition #349: 'simpleMessage', 'message', 'condition'
  [14:55:43.155]   - Field: 'local'
  [14:55:43.927]  - Condition #350: 'simpleMessage', 'message', 'condition'
  [14:55:43.155]   - Field: 'owner'
  [14:55:43.928]  - Condition #351: 'simpleMessage', 'message', 'condition'
  [14:55:43.156]   - Field: 'envir'
  [14:55:43.928]  - Condition #352: 'simpleMessage', 'message', 'condition'
  [14:55:43.156]   - Field: 'workers'
  [14:55:43.928]  - Condition #353: 'simpleMessage', 'message', 'condition'
  [14:55:43.156]   - Field: 'packages'
  [14:55:43.929]  - Condition #354: 'simpleMessage', 'message', 'condition'
  [14:55:43.157]   - Field: 'gc'
  [14:55:43.929]  - Condition #355: 'simpleMessage', 'message', 'condition'
  [14:55:43.157]   - Field: 'job'
  [14:55:43.929]  - Condition #356: 'simpleMessage', 'message', 'condition'
  [14:55:43.157]   - Field: 'conditions'
  [14:55:43.930]  - Condition #357: 'simpleMessage', 'message', 'condition'
  [14:55:43.157]   - Field: 'persistent'
  [14:55:43.930]  - Condition #358: 'simpleMessage', 'message', 'condition'
  [14:55:43.158]   - Field: 'expr'
  [14:55:43.931]  - Condition #359: 'simpleMessage', 'message', 'condition'
  [14:55:43.158]   - Field: 'uuid'
  [14:55:43.931]  - Condition #360: 'simpleMessage', 'message', 'condition'
  [14:55:43.158]   - Field: 'seed'
  [14:55:43.931]  - Condition #361: 'simpleMessage', 'message', 'condition'
  [14:55:43.159]   - Field: 'version'
  [14:55:43.932]  - Condition #362: 'simpleMessage', 'message', 'condition'
  [14:55:43.159]   - Field: 'result'
  [14:55:43.932]  - Condition #363: 'simpleMessage', 'message', 'condition'
  [14:55:43.159]   - Field: 'asynchronous'
  [14:55:43.932]  - Condition #364: 'simpleMessage', 'message', 'condition'
  [14:55:43.159]   - Field: 'calls'
  [14:55:43.933]  - Condition #365: 'simpleMessage', 'message', 'condition'
  [14:55:43.160]   - Field: 'globals'
  [14:55:43.933]  - Condition #366: 'simpleMessage', 'message', 'condition'
  [14:55:43.160]   - Field: 'stdout'
  [14:55:43.933]  - Condition #367: 'simpleMessage', 'message', 'condition'
  [14:55:43.160]   - Field: 'earlySignal'
  [14:55:43.934]  - Condition #368: 'simpleMessage', 'message', 'condition'
  [14:55:43.160]   - Field: 'lazy'
  [14:55:43.934]  - Condition #369: 'simpleMessage', 'message', 'condition'
  [14:55:43.161]   - Field: 'state'
  [14:55:43.934]  - Condition #370: 'simpleMessage', 'message', 'condition'
  [14:55:43.161] - Copy elements of temporary 'MulticoreFuture' to final 'Future' object ... done
  [14:55:43.935]  - Condition #371: 'simpleMessage', 'message', 'condition'
  [14:55:43.161] - Launch lazy future ...
  [14:55:43.935]  - Condition #372: 'simpleMessage', 'message', 'condition'
  [14:55:43.162] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:55:43.936]  - Condition #373: 'simpleMessage', 'message', 'condition'
  [14:55:43.162] Packages needed by future strategies (n = 0): <none>
  [14:55:43.936]  - Condition #374: 'simpleMessage', 'message', 'condition'
  [14:55:43.164] {
  [14:55:43.164]     {
  [14:55:43.164]         ...future.startTime <- base::Sys.time()
  [14:55:43.164]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:55:43.164]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:55:43.164]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:55:43.164]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:55:43.164]             future.resolve.recursive = NULL, future.rng.onMisuse = NULL, 
  [14:55:43.164]             future.rng.onMisuse.keepFuture = NULL, future.stdout.windows.reencode = NULL, 
  [14:55:43.164]             width = 80L)
  [14:55:43.164]         {
  [14:55:43.164]             {
  [14:55:43.164]                 {
  [14:55:43.164]                   {
  [14:55:43.164]                     base::local({
  [14:55:43.164]                       has_future <- base::requireNamespace("future", 
  [14:55:43.164]                         quietly = TRUE)
  [14:55:43.164]                       if (has_future) {
  [14:55:43.164]                         ns <- base::getNamespace("future")
  [14:55:43.164]                         version <- ns[[".package"]][["version"]]
  [14:55:43.164]                         if (is.null(version)) 
  [14:55:43.164]                           version <- utils::packageVersion("future")
  [14:55:43.164]                       }
  [14:55:43.164]                       else {
  [14:55:43.164]                         version <- NULL
  [14:55:43.164]                       }
  [14:55:43.164]                       if (!has_future || version < "1.8.0") {
  [14:55:43.164]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:55:43.164]                           "", base::R.version$version.string), 
  [14:55:43.164]                           platform = base::sprintf("%s (%s-bit)", 
  [14:55:43.164]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:55:43.164]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:55:43.164]                             "release", "version")], collapse = " "), 
  [14:55:43.164]                           hostname = base::Sys.info()[["nodename"]])
  [14:55:43.164]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:55:43.164]                           info)
  [14:55:43.164]                         info <- base::paste(info, collapse = "; ")
  [14:55:43.164]                         if (!has_future) {
  [14:55:43.164]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:55:43.164]                             info)
  [14:55:43.164]                         }
  [14:55:43.164]                         else {
  [14:55:43.164]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:55:43.164]                             info, version)
  [14:55:43.164]                         }
  [14:55:43.164]                         base::stop(msg)
  [14:55:43.164]                       }
  [14:55:43.164]                     })
  [14:55:43.164]                   }
  [14:55:43.164]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:55:43.164]                   base::options(mc.cores = 1L)
  [14:55:43.164]                 }
  [14:55:43.164]                 base::local({
  [14:55:43.164]                   for (pkg in c("doFuture", "utils")) {
  [14:55:43.164]                     base::loadNamespace(pkg)
  [14:55:43.164]                     base::library(pkg, character.only = TRUE)
  [14:55:43.164]                   }
  [14:55:43.164]                 })
  [14:55:43.164]             }
  [14:55:43.164]             options(future.plan = NULL)
  [14:55:43.164]             Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:43.164]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:55:43.164]         }
  [14:55:43.164]     }
  [14:55:43.164]     if (FALSE) {
  [14:55:43.164]     }
  [14:55:43.164]     else {
  [14:55:43.164]         if (TRUE) {
  [14:55:43.164]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:55:43.164]                 open = "w")
  [14:55:43.164]         }
  [14:55:43.164]         else {
  [14:55:43.164]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:55:43.164]                 windows = "NUL", "/dev/null"), open = "w")
  [14:55:43.164]         }
  [14:55:43.164]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:55:43.164]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:55:43.164]             base::sink(type = "output", split = FALSE)
  [14:55:43.164]             base::close(...future.stdout)
  [14:55:43.164]         }, add = TRUE)
  [14:55:43.164]     }
  [14:55:43.164]     ...future.frame <- base::sys.nframe()
  [14:55:43.164]     ...future.conditions <- base::list()
  [14:55:43.164]     ...future.rng <- base::globalenv()$.Random.seed
  [14:55:43.164]     ...future.result <- base::tryCatch({
  [14:55:43.164]         base::withCallingHandlers({
  [14:55:43.164]             ...future.value <- base::withVisible(base::local({
  [14:55:43.164]                 withCallingHandlers({
  [14:55:43.164]                   {
  [14:55:43.164]                     doFuture::registerDoFuture()
  [14:55:43.164]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:43.164]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:43.164]                       b <- NULL
  [14:55:43.164]                       ...future.env <- environment()
  [14:55:43.164]                       local({
  [14:55:43.164]                         for (name in names(...future.x_jj)) {
  [14:55:43.164]                           assign(name, ...future.x_jj[[name]], 
  [14:55:43.164]                             envir = ...future.env, inherits = FALSE)
  [14:55:43.164]                         }
  [14:55:43.164]                       })
  [14:55:43.164]                       tryCatch({
  [14:55:43.164]                         plan_list <- future::plan("next")
  [14:55:43.164]                         message(capture.output(print(plan_list)))
  [14:55:43.164]                         stopifnot(inherits(plan_list, "future"))
  [14:55:43.164]                         default <- getOption("future.plan", "sequential")
  [14:55:43.164]                         if (is.function(default)) 
  [14:55:43.164]                           default <- class(default)
  [14:55:43.164]                         stopifnot(inherits(plan_list, default))
  [14:55:43.164]                         plan_b <- future::plan("list")
  [14:55:43.164]                         str(plan_b)
  [14:55:43.164]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:43.164]                           inherits(plan_b[[1]], default))
  [14:55:43.164]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:43.164]                       }, error = identity)
  [14:55:43.164]                     })
  [14:55:43.164]                   }
  [14:55:43.164]                 }, immediateCondition = function(cond) {
  [14:55:43.164]                   obj <- list(time = Sys.time(), condition = cond)
  [14:55:43.164]                   file <- tempfile(class(cond)[1], tmpdir = "/home/hornik/tmp/scratch/RtmplLCzy6/.future/immediateConditions", 
  [14:55:43.164]                     fileext = ".rds")
  [14:55:43.164]                   save_rds <- function (object, pathname, ...) 
  [14:55:43.164]                   {
  [14:55:43.164]                     pathname_tmp <- sprintf("%s.tmp", pathname)
  [14:55:43.164]                     if (file_test("-f", pathname_tmp)) {
  [14:55:43.164]                       fi_tmp <- file.info(pathname_tmp)
  [14:55:43.164]                       stopf("Cannot save RDS file because a temporary save file already exists: %s (%0.f bytes; last modified on %s)", 
  [14:55:43.164]                         sQuote(pathname_tmp), fi_tmp[["size"]], 
  [14:55:43.164]                         fi_tmp[["mtime"]])
  [14:55:43.164]                     }
  [14:55:43.164]                     tryCatch({
  [14:55:43.164]                       saveRDS(object, file = pathname_tmp, ...)
  [14:55:43.164]                     }, error = function(ex) {
  [14:55:43.164]                       msg <- conditionMessage(ex)
  [14:55:43.164]                       fi_tmp <- file.info(pathname_tmp)
  [14:55:43.164]                       msg <- sprintf("saveRDS() failed to save to temporary file %s (%.0f bytes; last modified on %s). The reason was: %s", 
  [14:55:43.164]                         sQuote(pathname_tmp), fi_tmp[["size"]], 
  [14:55:43.164]                         fi_tmp[["mtime"]], msg)
  [14:55:43.164]                       ex$message <- msg
  [14:55:43.164]                       stop(ex)
  [14:55:43.164]                     })
  [14:55:43.164]                     stopifnot(file_test("-f", pathname_tmp))
  [14:55:43.164]                     res <- file.rename(from = pathname_tmp, to = pathname)
  [14:55:43.164]                     if (!res || file_test("-f", pathname_tmp)) {
  [14:55:43.164]                       fi_tmp <- file.info(pathname_tmp)
  [14:55:43.164]                       fi <- file.info(pathname)
  [14:55:43.164]                       msg <- sprintf("save_rds() failed to rename temporary save file %s (%0.f bytes; last modified on %s) to %s (%0.f bytes; last modified on %s)", 
  [14:55:43.164]                         sQuote(pathname_tmp), fi_tmp[["size"]], 
  [14:55:43.164]                         fi_tmp[["mtime"]], sQuote(pathname), 
  [14:55:43.164]                         fi[["size"]], fi[["mtime"]])
  [14:55:43.164]                       stop(msg)
  [14:55:43.164]                     }
  [14:55:43.164]                     invisible(pathname)
  [14:55:43.164]                   }
  [14:55:43.164]                   save_rds(obj, file)
  [14:55:43.164]                   muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:43.164]                   {
  [14:55:43.164]                     inherits <- base::inherits
  [14:55:43.164]                     invokeRestart <- base::invokeRestart
  [14:55:43.164]                     is.null <- base::is.null
  [14:55:43.164]                     muffled <- FALSE
  [14:55:43.164]                     if (inherits(cond, "message")) {
  [14:55:43.164]                       muffled <- grepl(pattern, "muffleMessage")
  [14:55:43.164]                       if (muffled) 
  [14:55:43.164]                         invokeRestart("muffleMessage")
  [14:55:43.164]                     }
  [14:55:43.164]                     else if (inherits(cond, "warning")) {
  [14:55:43.164]                       muffled <- grepl(pattern, "muffleWarning")
  [14:55:43.164]                       if (muffled) 
  [14:55:43.164]                         invokeRestart("muffleWarning")
  [14:55:43.164]                     }
  [14:55:43.164]                     else if (inherits(cond, "condition")) {
  [14:55:43.164]                       if (!is.null(pattern)) {
  [14:55:43.164]                         computeRestarts <- base::computeRestarts
  [14:55:43.164]                         grepl <- base::grepl
  [14:55:43.164]                         restarts <- computeRestarts(cond)
  [14:55:43.164]                         for (restart in restarts) {
  [14:55:43.164]                           name <- restart$name
  [14:55:43.164]                           if (is.null(name)) 
  [14:55:43.164]                             next
  [14:55:43.164]                           if (!grepl(pattern, name)) 
  [14:55:43.164]                             next
  [14:55:43.164]                           invokeRestart(restart)
  [14:55:43.164]                           muffled <- TRUE
  [14:55:43.164]                           break
  [14:55:43.164]                         }
  [14:55:43.164]                       }
  [14:55:43.164]                     }
  [14:55:43.164]                     invisible(muffled)
  [14:55:43.164]                   }
  [14:55:43.164]                   muffleCondition(cond)
  [14:55:43.164]                 })
  [14:55:43.164]             }))
  [14:55:43.164]             future::FutureResult(value = ...future.value$value, 
  [14:55:43.164]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:43.164]                   ...future.rng), started = ...future.startTime, 
  [14:55:43.164]                 version = "1.8")
  [14:55:43.164]         }, condition = base::local({
  [14:55:43.164]             c <- base::c
  [14:55:43.164]             inherits <- base::inherits
  [14:55:43.164]             invokeRestart <- base::invokeRestart
  [14:55:43.164]             length <- base::length
  [14:55:43.164]             list <- base::list
  [14:55:43.164]             seq.int <- base::seq.int
  [14:55:43.164]             signalCondition <- base::signalCondition
  [14:55:43.164]             sys.calls <- base::sys.calls
  [14:55:43.164]             `[[` <- base::`[[`
  [14:55:43.164]             `+` <- base::`+`
  [14:55:43.164]             `<<-` <- base::`<<-`
  [14:55:43.164]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:55:43.164]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:55:43.164]                   3L)]
  [14:55:43.164]             }
  [14:55:43.164]             function(cond) {
  [14:55:43.164]                 is_error <- inherits(cond, "error")
  [14:55:43.164]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:55:43.164]                   NULL)
  [14:55:43.164]                 if (is_error) {
  [14:55:43.164]                   sessionInformation <- function() {
  [14:55:43.164]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:55:43.164]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:55:43.164]                       search = base::search(), system = base::Sys.info())
  [14:55:43.164]                   }
  [14:55:43.164]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:43.164]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:55:43.164]                     cond$call), session = sessionInformation(), 
  [14:55:43.164]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:55:43.164]                   signalCondition(cond)
  [14:55:43.164]                 }
  [14:55:43.164]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:55:43.164]                 "immediateCondition"))) {
  [14:55:43.164]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:55:43.164]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:43.164]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:55:43.164]                   if (TRUE && !signal) {
  [14:55:43.164]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:43.164]                     {
  [14:55:43.164]                       inherits <- base::inherits
  [14:55:43.164]                       invokeRestart <- base::invokeRestart
  [14:55:43.164]                       is.null <- base::is.null
  [14:55:43.164]                       muffled <- FALSE
  [14:55:43.164]                       if (inherits(cond, "message")) {
  [14:55:43.164]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:43.164]                         if (muffled) 
  [14:55:43.164]                           invokeRestart("muffleMessage")
  [14:55:43.164]                       }
  [14:55:43.164]                       else if (inherits(cond, "warning")) {
  [14:55:43.164]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:43.164]                         if (muffled) 
  [14:55:43.164]                           invokeRestart("muffleWarning")
  [14:55:43.164]                       }
  [14:55:43.164]                       else if (inherits(cond, "condition")) {
  [14:55:43.164]                         if (!is.null(pattern)) {
  [14:55:43.164]                           computeRestarts <- base::computeRestarts
  [14:55:43.164]                           grepl <- base::grepl
  [14:55:43.164]                           restarts <- computeRestarts(cond)
  [14:55:43.164]                           for (restart in restarts) {
  [14:55:43.164]                             name <- restart$name
  [14:55:43.164]                             if (is.null(name)) 
  [14:55:43.164]                               next
  [14:55:43.164]                             if (!grepl(pattern, name)) 
  [14:55:43.164]                               next
  [14:55:43.164]                             invokeRestart(restart)
  [14:55:43.164]                             muffled <- TRUE
  [14:55:43.164]                             break
  [14:55:43.164]                           }
  [14:55:43.164]                         }
  [14:55:43.164]                       }
  [14:55:43.164]                       invisible(muffled)
  [14:55:43.164]                     }
  [14:55:43.164]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:43.164]                   }
  [14:55:43.164]                 }
  [14:55:43.164]                 else {
  [14:55:43.164]                   if (TRUE) {
  [14:55:43.164]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:43.164]                     {
  [14:55:43.164]                       inherits <- base::inherits
  [14:55:43.164]                       invokeRestart <- base::invokeRestart
  [14:55:43.164]                       is.null <- base::is.null
  [14:55:43.164]                       muffled <- FALSE
  [14:55:43.164]                       if (inherits(cond, "message")) {
  [14:55:43.164]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:43.164]                         if (muffled) 
  [14:55:43.164]                           invokeRestart("muffleMessage")
  [14:55:43.164]                       }
  [14:55:43.164]                       else if (inherits(cond, "warning")) {
  [14:55:43.164]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:43.164]                         if (muffled) 
  [14:55:43.164]                           invokeRestart("muffleWarning")
  [14:55:43.164]                       }
  [14:55:43.164]                       else if (inherits(cond, "condition")) {
  [14:55:43.164]                         if (!is.null(pattern)) {
  [14:55:43.164]                           computeRestarts <- base::computeRestarts
  [14:55:43.164]                           grepl <- base::grepl
  [14:55:43.164]                           restarts <- computeRestarts(cond)
  [14:55:43.164]                           for (restart in restarts) {
  [14:55:43.164]                             name <- restart$name
  [14:55:43.164]                             if (is.null(name)) 
  [14:55:43.164]                               next
  [14:55:43.164]                             if (!grepl(pattern, name)) 
  [14:55:43.164]                               next
  [14:55:43.164]                             invokeRestart(restart)
  [14:55:43.164]                             muffled <- TRUE
  [14:55:43.164]                             break
  [14:55:43.164]                           }
  [14:55:43.164]                         }
  [14:55:43.164]                       }
  [14:55:43.164]                       invisible(muffled)
  [14:55:43.164]                     }
  [14:55:43.164]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:43.164]                   }
  [14:55:43.164]                 }
  [14:55:43.164]             }
  [14:55:43.164]         }))
  [14:55:43.164]     }, error = function(ex) {
  [14:55:43.164]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:55:43.164]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:43.164]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:55:43.164]     }, finally = {
  [14:55:43.164]         {
  [14:55:43.164]             {
  [14:55:43.164]                 NULL
  [14:55:43.164]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:55:43.164]             }
  [14:55:43.164]             options(future.plan = NULL)
  [14:55:43.164]             if (is.na(NA_character_)) 
  [14:55:43.164]                 Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:43.164]             else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:55:43.164]             future::plan(list(b = function (..., workers = availableCores(constraints = "multicore"), 
  [14:55:43.164]                 envir = parent.frame()) 
  [14:55:43.164]             {
  [14:55:43.164]                 default_workers <- missing(workers)
  [14:55:43.164]                 if (is.function(workers)) 
  [14:55:43.164]                   workers <- workers()
  [14:55:43.164]                 workers <- as.integer(workers)
  [14:55:43.164]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:55:43.164]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:55:43.164]                   if (default_workers) 
  [14:55:43.164]                     supportsMulticore(warn = TRUE)
  [14:55:43.164]                   return(sequential(..., envir = envir))
  [14:55:43.164]                 }
  [14:55:43.164]                 oopts <- options(mc.cores = workers)
  [14:55:43.164]                 on.exit(options(oopts))
  [14:55:43.164]                 future <- MulticoreFuture(..., workers = workers, 
  [14:55:43.164]                   envir = envir)
  [14:55:43.164]                 if (!future$lazy) 
  [14:55:43.164]                   future <- run(future)
  [14:55:43.164]                 invisible(future)
  [14:55:43.164]             }), .cleanup = FALSE, .init = FALSE)
  [14:55:43.164]         }
  [14:55:43.164]         base::options(...future.oldOptions)
  [14:55:43.164]     })
  [14:55:43.164]     if (TRUE) {
  [14:55:43.164]         base::sink(type = "output", split = FALSE)
  [14:55:43.164]         if (TRUE) {
  [14:55:43.164]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:55:43.164]         }
  [14:55:43.164]         else {
  [14:55:43.164]             ...future.result["stdout"] <- base::list(NULL)
  [14:55:43.164]         }
  [14:55:43.164]         base::close(...future.stdout)
  [14:55:43.164]         ...future.stdout <- NULL
  [14:55:43.164]     }
  [14:55:43.164]     ...future.result$conditions <- ...future.conditions
  [14:55:43.164]     ...future.result
  [14:55:43.164] }
  [14:55:43.953]  - Condition #375: 'simpleMessage', 'message', 'condition'
  [14:55:43.168] requestCore(): workers = 2
  [14:55:43.953]  - Condition #376: 'simpleMessage', 'message', 'condition'
  [14:55:43.188] MulticoreFuture started
  [14:55:43.953]  - Condition #377: 'simpleMessage', 'message', 'condition'
  [14:55:43.189] - Launch lazy future ... done
  [14:55:43.954]  - Condition #378: 'simpleMessage', 'message', 'condition'
  [14:55:43.189] run() for 'MulticoreFuture' ... done
  [14:55:43.954]  - Condition #379: 'simpleMessage', 'message', 'condition'
  [14:55:43.190] Chunk #1 of 2 ... DONE
  [14:55:43.954]  - Condition #380: 'simpleMessage', 'message', 'condition'
  [14:55:43.190] Chunk #2 of 2 ...
  [14:55:43.955]  - Condition #381: 'simpleMessage', 'message', 'condition'
  [14:55:43.191]  - Finding globals in 'args_list' chunk #2 ...
  [14:55:43.955]  - Condition #382: 'simpleMessage', 'message', 'condition'
  [14:55:43.191] getGlobalsAndPackages() ...
  [14:55:43.956]  - Condition #383: 'simpleMessage', 'message', 'condition'
  [14:55:43.192] Searching for globals...
  [14:55:43.956]  - Condition #384: 'simpleMessage', 'message', 'condition'
  [14:55:43.193] 
  [14:55:43.956]  - Condition #385: 'simpleMessage', 'message', 'condition'
  [14:55:43.193] Searching for globals ... DONE
  [14:55:43.957]  - Condition #386: 'simpleMessage', 'message', 'condition'
  [14:55:43.194] - globals: [0] <none>
  [14:55:43.957]  - Condition #387: 'simpleMessage', 'message', 'condition'
  [14:55:43.194] getGlobalsAndPackages() ... DONE
  [14:55:43.957]  - Condition #388: 'simpleMessage', 'message', 'condition'
  [14:55:43.195] 
  [14:55:43.958]  - Condition #389: 'simpleMessage', 'message', 'condition'
  [14:55:43.195] 
  [14:55:43.958]  - Condition #390: 'simpleMessage', 'message', 'condition'
  [14:55:43.196]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:55:43.958]  - Condition #391: 'simpleMessage', 'message', 'condition'
  [14:55:43.196] getGlobalsAndPackages() ...
  [14:55:43.959]  - Condition #392: 'simpleMessage', 'message', 'condition'
  [14:55:43.197] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:43.959]  - Condition #393: 'simpleMessage', 'message', 'condition'
  [14:55:43.197] Resolving globals: FALSE
  [14:55:43.959]  - Condition #394: 'simpleMessage', 'message', 'condition'
  [14:55:43.198] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:43.960]  - Condition #395: 'simpleMessage', 'message', 'condition'
  [14:55:43.199] 
  [14:55:43.960]  - Condition #396: 'simpleMessage', 'message', 'condition'
  [14:55:43.199] getGlobalsAndPackages() ... DONE
  [14:55:43.960]  - Condition #397: 'simpleMessage', 'message', 'condition'
  [14:55:43.200] run() for 'Future' ...
  [14:55:43.965]  - Condition #398: 'simpleMessage', 'message', 'condition'
  [14:55:43.217] - state: 'created'
  [14:55:43.965]  - Condition #399: 'simpleMessage', 'message', 'condition'
  [14:55:43.217] - Future backend: 'FutureStrategy', 'multicore', 'multiprocess', 'future', 'function'
  [14:55:43.965]  - Condition #400: 'simpleMessage', 'message', 'condition'
  [14:55:43.259] assign_globals() ...
  [14:55:43.966]  - Condition #401: 'simpleMessage', 'message', 'condition'
  [14:55:43.259] List of 3
  [14:55:43.259]  $ ...future.x_ii:List of 2
  [14:55:43.259]   ..$ :List of 1
  [14:55:43.259]   .. ..$ b: int 2
  [14:55:43.259]   ..$ :List of 1
  [14:55:43.259]   .. ..$ b: int 1
  [14:55:43.259]  $ a             : int 2
  [14:55:43.259]  $ plan_a        :List of 1
  [14:55:43.259]   ..$ b:function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame())  
  [14:55:43.259]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [14:55:43.259]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:43.259]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:43.259]  - attr(*, "where")=List of 3
  [14:55:43.259]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:43.259]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:43.259]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:43.259]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:43.259]  - attr(*, "resolved")= logi FALSE
  [14:55:43.259]  - attr(*, "total_size")= num 38072
  [14:55:43.259]  - attr(*, "already-done")= logi TRUE
  [14:55:43.966]  - Condition #402: 'simpleMessage', 'message', 'condition'
  [14:55:43.296] - copied '...future.x_ii' to environment
  [14:55:43.967]  - Condition #403: 'simpleMessage', 'message', 'condition'
  [14:55:43.312] - copied 'a' to environment
  [14:55:43.967]  - Condition #404: 'simpleMessage', 'message', 'condition'
  [14:55:43.313] - copied 'plan_a' to environment
  [14:55:43.967]  - Condition #405: 'simpleMessage', 'message', 'condition'
  [14:55:43.313] List of 3
  [14:55:43.313]  $ ...future.x_ii:List of 2
  [14:55:43.313]   ..$ :List of 1
  [14:55:43.313]   .. ..$ b: int 2
  [14:55:43.313]   ..$ :List of 1
  [14:55:43.313]   .. ..$ b: int 1
  [14:55:43.313]  $ a             : int 2
  [14:55:43.313]  $ plan_a        :List of 1
  [14:55:43.313]   ..$ b:function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame())  
  [14:55:43.313]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [14:55:43.313]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:43.313]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:43.313]  - attr(*, "where")=List of 3
  [14:55:43.313]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:43.313]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:43.313]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:43.313]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:43.313]  - attr(*, "resolved")= logi FALSE
  [14:55:43.313]  - attr(*, "total_size")= num 38072
  [14:55:43.313]  - attr(*, "already-done")= logi TRUE
  [14:55:43.968]  - Condition #406: 'simpleMessage', 'message', 'condition'
  [14:55:43.328] assign_globals() ... done
  [14:55:43.968]  - Condition #407: 'simpleMessage', 'message', 'condition'
  [14:55:43.344] - Future class: 'MulticoreFuture', 'MultiprocessFuture', 'Future', 'environment'
  [14:55:43.985]  - Condition #408: 'simpleMessage', 'message', 'condition'
  [14:55:43.345] - Copy elements of temporary 'MulticoreFuture' to final 'Future' object ...
  [14:55:43.985]  - Condition #409: 'simpleMessage', 'message', 'condition'
  [14:55:43.345]   - Field: 'label'
  [14:55:43.985]  - Condition #410: 'simpleMessage', 'message', 'condition'
  [14:55:43.346]   - Field: 'local'
  [14:55:43.986]  - Condition #411: 'simpleMessage', 'message', 'condition'
  [14:55:43.346]   - Field: 'owner'
  [14:55:43.986]  - Condition #412: 'simpleMessage', 'message', 'condition'
  [14:55:43.346]   - Field: 'envir'
  [14:55:43.987]  - Condition #413: 'simpleMessage', 'message', 'condition'
  [14:55:43.346]   - Field: 'workers'
  [14:55:43.987]  - Condition #414: 'simpleMessage', 'message', 'condition'
  [14:55:43.347]   - Field: 'packages'
  [14:55:43.987]  - Condition #415: 'simpleMessage', 'message', 'condition'
  [14:55:43.347]   - Field: 'gc'
  [14:55:43.988]  - Condition #416: 'simpleMessage', 'message', 'condition'
  [14:55:43.347]   - Field: 'job'
  [14:55:43.988]  - Condition #417: 'simpleMessage', 'message', 'condition'
  [14:55:43.348]   - Field: 'conditions'
  [14:55:43.988]  - Condition #418: 'simpleMessage', 'message', 'condition'
  [14:55:43.348]   - Field: 'persistent'
  [14:55:43.989]  - Condition #419: 'simpleMessage', 'message', 'condition'
  [14:55:43.348]   - Field: 'expr'
  [14:55:43.989]  - Condition #420: 'simpleMessage', 'message', 'condition'
  [14:55:43.348]   - Field: 'uuid'
  [14:55:43.989]  - Condition #421: 'simpleMessage', 'message', 'condition'
  [14:55:43.349]   - Field: 'seed'
  [14:55:43.990]  - Condition #422: 'simpleMessage', 'message', 'condition'
  [14:55:43.349]   - Field: 'version'
  [14:55:43.990]  - Condition #423: 'simpleMessage', 'message', 'condition'
  [14:55:43.349]   - Field: 'result'
  [14:55:43.990]  - Condition #424: 'simpleMessage', 'message', 'condition'
  [14:55:43.350]   - Field: 'asynchronous'
  [14:55:43.991]  - Condition #425: 'simpleMessage', 'message', 'condition'
  [14:55:43.350]   - Field: 'calls'
  [14:55:43.991]  - Condition #426: 'simpleMessage', 'message', 'condition'
  [14:55:43.350]   - Field: 'globals'
  [14:55:43.992]  - Condition #427: 'simpleMessage', 'message', 'condition'
  [14:55:43.350]   - Field: 'stdout'
  [14:55:43.992]  - Condition #428: 'simpleMessage', 'message', 'condition'
  [14:55:43.351]   - Field: 'earlySignal'
  [14:55:43.992]  - Condition #429: 'simpleMessage', 'message', 'condition'
  [14:55:43.351]   - Field: 'lazy'
  [14:55:43.993]  - Condition #430: 'simpleMessage', 'message', 'condition'
  [14:55:43.351]   - Field: 'state'
  [14:55:43.993]  - Condition #431: 'simpleMessage', 'message', 'condition'
  [14:55:43.352] - Copy elements of temporary 'MulticoreFuture' to final 'Future' object ... done
  [14:55:43.993]  - Condition #432: 'simpleMessage', 'message', 'condition'
  [14:55:43.352] - Launch lazy future ...
  [14:55:43.994]  - Condition #433: 'simpleMessage', 'message', 'condition'
  [14:55:43.353] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:55:43.994]  - Condition #434: 'simpleMessage', 'message', 'condition'
  [14:55:43.353] Packages needed by future strategies (n = 0): <none>
  [14:55:43.994]  - Condition #435: 'simpleMessage', 'message', 'condition'
  [14:55:43.381] {
  [14:55:43.381]     {
  [14:55:43.381]         ...future.startTime <- base::Sys.time()
  [14:55:43.381]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:55:43.381]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:55:43.381]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:55:43.381]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:55:43.381]             future.resolve.recursive = NULL, future.rng.onMisuse = NULL, 
  [14:55:43.381]             future.rng.onMisuse.keepFuture = NULL, future.stdout.windows.reencode = NULL, 
  [14:55:43.381]             width = 80L)
  [14:55:43.381]         {
  [14:55:43.381]             {
  [14:55:43.381]                 {
  [14:55:43.381]                   {
  [14:55:43.381]                     base::local({
  [14:55:43.381]                       has_future <- base::requireNamespace("future", 
  [14:55:43.381]                         quietly = TRUE)
  [14:55:43.381]                       if (has_future) {
  [14:55:43.381]                         ns <- base::getNamespace("future")
  [14:55:43.381]                         version <- ns[[".package"]][["version"]]
  [14:55:43.381]                         if (is.null(version)) 
  [14:55:43.381]                           version <- utils::packageVersion("future")
  [14:55:43.381]                       }
  [14:55:43.381]                       else {
  [14:55:43.381]                         version <- NULL
  [14:55:43.381]                       }
  [14:55:43.381]                       if (!has_future || version < "1.8.0") {
  [14:55:43.381]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:55:43.381]                           "", base::R.version$version.string), 
  [14:55:43.381]                           platform = base::sprintf("%s (%s-bit)", 
  [14:55:43.381]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:55:43.381]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:55:43.381]                             "release", "version")], collapse = " "), 
  [14:55:43.381]                           hostname = base::Sys.info()[["nodename"]])
  [14:55:43.381]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:55:43.381]                           info)
  [14:55:43.381]                         info <- base::paste(info, collapse = "; ")
  [14:55:43.381]                         if (!has_future) {
  [14:55:43.381]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:55:43.381]                             info)
  [14:55:43.381]                         }
  [14:55:43.381]                         else {
  [14:55:43.381]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:55:43.381]                             info, version)
  [14:55:43.381]                         }
  [14:55:43.381]                         base::stop(msg)
  [14:55:43.381]                       }
  [14:55:43.381]                     })
  [14:55:43.381]                   }
  [14:55:43.381]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:55:43.381]                   base::options(mc.cores = 1L)
  [14:55:43.381]                 }
  [14:55:43.381]                 base::local({
  [14:55:43.381]                   for (pkg in c("doFuture", "utils")) {
  [14:55:43.381]                     base::loadNamespace(pkg)
  [14:55:43.381]                     base::library(pkg, character.only = TRUE)
  [14:55:43.381]                   }
  [14:55:43.381]                 })
  [14:55:43.381]             }
  [14:55:43.381]             options(future.plan = NULL)
  [14:55:43.381]             Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:43.381]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:55:43.381]         }
  [14:55:43.381]     }
  [14:55:43.381]     if (FALSE) {
  [14:55:43.381]     }
  [14:55:43.381]     else {
  [14:55:43.381]         if (TRUE) {
  [14:55:43.381]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:55:43.381]                 open = "w")
  [14:55:43.381]         }
  [14:55:43.381]         else {
  [14:55:43.381]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:55:43.381]                 windows = "NUL", "/dev/null"), open = "w")
  [14:55:43.381]         }
  [14:55:43.381]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:55:43.381]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:55:43.381]             base::sink(type = "output", split = FALSE)
  [14:55:43.381]             base::close(...future.stdout)
  [14:55:43.381]         }, add = TRUE)
  [14:55:43.381]     }
  [14:55:43.381]     ...future.frame <- base::sys.nframe()
  [14:55:43.381]     ...future.conditions <- base::list()
  [14:55:43.381]     ...future.rng <- base::globalenv()$.Random.seed
  [14:55:43.381]     ...future.result <- base::tryCatch({
  [14:55:43.381]         base::withCallingHandlers({
  [14:55:43.381]             ...future.value <- base::withVisible(base::local({
  [14:55:43.381]                 withCallingHandlers({
  [14:55:43.381]                   {
  [14:55:43.381]                     doFuture::registerDoFuture()
  [14:55:43.381]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:43.381]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:43.381]                       b <- NULL
  [14:55:43.381]                       ...future.env <- environment()
  [14:55:43.381]                       local({
  [14:55:43.381]                         for (name in names(...future.x_jj)) {
  [14:55:43.381]                           assign(name, ...future.x_jj[[name]], 
  [14:55:43.381]                             envir = ...future.env, inherits = FALSE)
  [14:55:43.381]                         }
  [14:55:43.381]                       })
  [14:55:43.381]                       tryCatch({
  [14:55:43.381]                         plan_list <- future::plan("next")
  [14:55:43.381]                         message(capture.output(print(plan_list)))
  [14:55:43.381]                         stopifnot(inherits(plan_list, "future"))
  [14:55:43.381]                         default <- getOption("future.plan", "sequential")
  [14:55:43.381]                         if (is.function(default)) 
  [14:55:43.381]                           default <- class(default)
  [14:55:43.381]                         stopifnot(inherits(plan_list, default))
  [14:55:43.381]                         plan_b <- future::plan("list")
  [14:55:43.381]                         str(plan_b)
  [14:55:43.381]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:43.381]                           inherits(plan_b[[1]], default))
  [14:55:43.381]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:43.381]                       }, error = identity)
  [14:55:43.381]                     })
  [14:55:43.381]                   }
  [14:55:43.381]                 }, immediateCondition = function(cond) {
  [14:55:43.381]                   obj <- list(time = Sys.time(), condition = cond)
  [14:55:43.381]                   file <- tempfile(class(cond)[1], tmpdir = "/home/hornik/tmp/scratch/RtmplLCzy6/.future/immediateConditions", 
  [14:55:43.381]                     fileext = ".rds")
  [14:55:43.381]                   save_rds <- function (object, pathname, ...) 
  [14:55:43.381]                   {
  [14:55:43.381]                     pathname_tmp <- sprintf("%s.tmp", pathname)
  [14:55:43.381]                     if (file_test("-f", pathname_tmp)) {
  [14:55:43.381]                       fi_tmp <- file.info(pathname_tmp)
  [14:55:43.381]                       stopf("Cannot save RDS file because a temporary save file already exists: %s (%0.f bytes; last modified on %s)", 
  [14:55:43.381]                         sQuote(pathname_tmp), fi_tmp[["size"]], 
  [14:55:43.381]                         fi_tmp[["mtime"]])
  [14:55:43.381]                     }
  [14:55:43.381]                     tryCatch({
  [14:55:43.381]                       saveRDS(object, file = pathname_tmp, ...)
  [14:55:43.381]                     }, error = function(ex) {
  [14:55:43.381]                       msg <- conditionMessage(ex)
  [14:55:43.381]                       fi_tmp <- file.info(pathname_tmp)
  [14:55:43.381]                       msg <- sprintf("saveRDS() failed to save to temporary file %s (%.0f bytes; last modified on %s). The reason was: %s", 
  [14:55:43.381]                         sQuote(pathname_tmp), fi_tmp[["size"]], 
  [14:55:43.381]                         fi_tmp[["mtime"]], msg)
  [14:55:43.381]                       ex$message <- msg
  [14:55:43.381]                       stop(ex)
  [14:55:43.381]                     })
  [14:55:43.381]                     stopifnot(file_test("-f", pathname_tmp))
  [14:55:43.381]                     res <- file.rename(from = pathname_tmp, to = pathname)
  [14:55:43.381]                     if (!res || file_test("-f", pathname_tmp)) {
  [14:55:43.381]                       fi_tmp <- file.info(pathname_tmp)
  [14:55:43.381]                       fi <- file.info(pathname)
  [14:55:43.381]                       msg <- sprintf("save_rds() failed to rename temporary save file %s (%0.f bytes; last modified on %s) to %s (%0.f bytes; last modified on %s)", 
  [14:55:43.381]                         sQuote(pathname_tmp), fi_tmp[["size"]], 
  [14:55:43.381]                         fi_tmp[["mtime"]], sQuote(pathname), 
  [14:55:43.381]                         fi[["size"]], fi[["mtime"]])
  [14:55:43.381]                       stop(msg)
  [14:55:43.381]                     }
  [14:55:43.381]                     invisible(pathname)
  [14:55:43.381]                   }
  [14:55:43.381]                   save_rds(obj, file)
  [14:55:43.381]                   muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:43.381]                   {
  [14:55:43.381]                     inherits <- base::inherits
  [14:55:43.381]                     invokeRestart <- base::invokeRestart
  [14:55:43.381]                     is.null <- base::is.null
  [14:55:43.381]                     muffled <- FALSE
  [14:55:43.381]                     if (inherits(cond, "message")) {
  [14:55:43.381]                       muffled <- grepl(pattern, "muffleMessage")
  [14:55:43.381]                       if (muffled) 
  [14:55:43.381]                         invokeRestart("muffleMessage")
  [14:55:43.381]                     }
  [14:55:43.381]                     else if (inherits(cond, "warning")) {
  [14:55:43.381]                       muffled <- grepl(pattern, "muffleWarning")
  [14:55:43.381]                       if (muffled) 
  [14:55:43.381]                         invokeRestart("muffleWarning")
  [14:55:43.381]                     }
  [14:55:43.381]                     else if (inherits(cond, "condition")) {
  [14:55:43.381]                       if (!is.null(pattern)) {
  [14:55:43.381]                         computeRestarts <- base::computeRestarts
  [14:55:43.381]                         grepl <- base::grepl
  [14:55:43.381]                         restarts <- computeRestarts(cond)
  [14:55:43.381]                         for (restart in restarts) {
  [14:55:43.381]                           name <- restart$name
  [14:55:43.381]                           if (is.null(name)) 
  [14:55:43.381]                             next
  [14:55:43.381]                           if (!grepl(pattern, name)) 
  [14:55:43.381]                             next
  [14:55:43.381]                           invokeRestart(restart)
  [14:55:43.381]                           muffled <- TRUE
  [14:55:43.381]                           break
  [14:55:43.381]                         }
  [14:55:43.381]                       }
  [14:55:43.381]                     }
  [14:55:43.381]                     invisible(muffled)
  [14:55:43.381]                   }
  [14:55:43.381]                   muffleCondition(cond)
  [14:55:43.381]                 })
  [14:55:43.381]             }))
  [14:55:43.381]             future::FutureResult(value = ...future.value$value, 
  [14:55:43.381]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:43.381]                   ...future.rng), started = ...future.startTime, 
  [14:55:43.381]                 version = "1.8")
  [14:55:43.381]         }, condition = base::local({
  [14:55:43.381]             c <- base::c
  [14:55:43.381]             inherits <- base::inherits
  [14:55:43.381]             invokeRestart <- base::invokeRestart
  [14:55:43.381]             length <- base::length
  [14:55:43.381]             list <- base::list
  [14:55:43.381]             seq.int <- base::seq.int
  [14:55:43.381]             signalCondition <- base::signalCondition
  [14:55:43.381]             sys.calls <- base::sys.calls
  [14:55:43.381]             `[[` <- base::`[[`
  [14:55:43.381]             `+` <- base::`+`
  [14:55:43.381]             `<<-` <- base::`<<-`
  [14:55:43.381]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:55:43.381]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:55:43.381]                   3L)]
  [14:55:43.381]             }
  [14:55:43.381]             function(cond) {
  [14:55:43.381]                 is_error <- inherits(cond, "error")
  [14:55:43.381]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:55:43.381]                   NULL)
  [14:55:43.381]                 if (is_error) {
  [14:55:43.381]                   sessionInformation <- function() {
  [14:55:43.381]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:55:43.381]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:55:43.381]                       search = base::search(), system = base::Sys.info())
  [14:55:43.381]                   }
  [14:55:43.381]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:43.381]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:55:43.381]                     cond$call), session = sessionInformation(), 
  [14:55:43.381]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:55:43.381]                   signalCondition(cond)
  [14:55:43.381]                 }
  [14:55:43.381]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:55:43.381]                 "immediateCondition"))) {
  [14:55:43.381]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:55:43.381]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:43.381]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:55:43.381]                   if (TRUE && !signal) {
  [14:55:43.381]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:43.381]                     {
  [14:55:43.381]                       inherits <- base::inherits
  [14:55:43.381]                       invokeRestart <- base::invokeRestart
  [14:55:43.381]                       is.null <- base::is.null
  [14:55:43.381]                       muffled <- FALSE
  [14:55:43.381]                       if (inherits(cond, "message")) {
  [14:55:43.381]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:43.381]                         if (muffled) 
  [14:55:43.381]                           invokeRestart("muffleMessage")
  [14:55:43.381]                       }
  [14:55:43.381]                       else if (inherits(cond, "warning")) {
  [14:55:43.381]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:43.381]                         if (muffled) 
  [14:55:43.381]                           invokeRestart("muffleWarning")
  [14:55:43.381]                       }
  [14:55:43.381]                       else if (inherits(cond, "condition")) {
  [14:55:43.381]                         if (!is.null(pattern)) {
  [14:55:43.381]                           computeRestarts <- base::computeRestarts
  [14:55:43.381]                           grepl <- base::grepl
  [14:55:43.381]                           restarts <- computeRestarts(cond)
  [14:55:43.381]                           for (restart in restarts) {
  [14:55:43.381]                             name <- restart$name
  [14:55:43.381]                             if (is.null(name)) 
  [14:55:43.381]                               next
  [14:55:43.381]                             if (!grepl(pattern, name)) 
  [14:55:43.381]                               next
  [14:55:43.381]                             invokeRestart(restart)
  [14:55:43.381]                             muffled <- TRUE
  [14:55:43.381]                             break
  [14:55:43.381]                           }
  [14:55:43.381]                         }
  [14:55:43.381]                       }
  [14:55:43.381]                       invisible(muffled)
  [14:55:43.381]                     }
  [14:55:43.381]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:43.381]                   }
  [14:55:43.381]                 }
  [14:55:43.381]                 else {
  [14:55:43.381]                   if (TRUE) {
  [14:55:43.381]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:43.381]                     {
  [14:55:43.381]                       inherits <- base::inherits
  [14:55:43.381]                       invokeRestart <- base::invokeRestart
  [14:55:43.381]                       is.null <- base::is.null
  [14:55:43.381]                       muffled <- FALSE
  [14:55:43.381]                       if (inherits(cond, "message")) {
  [14:55:43.381]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:43.381]                         if (muffled) 
  [14:55:43.381]                           invokeRestart("muffleMessage")
  [14:55:43.381]                       }
  [14:55:43.381]                       else if (inherits(cond, "warning")) {
  [14:55:43.381]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:43.381]                         if (muffled) 
  [14:55:43.381]                           invokeRestart("muffleWarning")
  [14:55:43.381]                       }
  [14:55:43.381]                       else if (inherits(cond, "condition")) {
  [14:55:43.381]                         if (!is.null(pattern)) {
  [14:55:43.381]                           computeRestarts <- base::computeRestarts
  [14:55:43.381]                           grepl <- base::grepl
  [14:55:43.381]                           restarts <- computeRestarts(cond)
  [14:55:43.381]                           for (restart in restarts) {
  [14:55:43.381]                             name <- restart$name
  [14:55:43.381]                             if (is.null(name)) 
  [14:55:43.381]                               next
  [14:55:43.381]                             if (!grepl(pattern, name)) 
  [14:55:43.381]                               next
  [14:55:43.381]                             invokeRestart(restart)
  [14:55:43.381]                             muffled <- TRUE
  [14:55:43.381]                             break
  [14:55:43.381]                           }
  [14:55:43.381]                         }
  [14:55:43.381]                       }
  [14:55:43.381]                       invisible(muffled)
  [14:55:43.381]                     }
  [14:55:43.381]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:43.381]                   }
  [14:55:43.381]                 }
  [14:55:43.381]             }
  [14:55:43.381]         }))
  [14:55:43.381]     }, error = function(ex) {
  [14:55:43.381]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:55:43.381]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:43.381]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:55:43.381]     }, finally = {
  [14:55:43.381]         {
  [14:55:43.381]             {
  [14:55:43.381]                 NULL
  [14:55:43.381]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:55:43.381]             }
  [14:55:43.381]             options(future.plan = NULL)
  [14:55:43.381]             if (is.na(NA_character_)) 
  [14:55:43.381]                 Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:43.381]             else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:55:43.381]             future::plan(list(b = function (..., workers = availableCores(constraints = "multicore"), 
  [14:55:43.381]                 envir = parent.frame()) 
  [14:55:43.381]             {
  [14:55:43.381]                 default_workers <- missing(workers)
  [14:55:43.381]                 if (is.function(workers)) 
  [14:55:43.381]                   workers <- workers()
  [14:55:43.381]                 workers <- as.integer(workers)
  [14:55:43.381]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:55:43.381]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:55:43.381]                   if (default_workers) 
  [14:55:43.381]                     supportsMulticore(warn = TRUE)
  [14:55:43.381]                   return(sequential(..., envir = envir))
  [14:55:43.381]                 }
  [14:55:43.381]                 oopts <- options(mc.cores = workers)
  [14:55:43.381]                 on.exit(options(oopts))
  [14:55:43.381]                 future <- MulticoreFuture(..., workers = workers, 
  [14:55:43.381]                   envir = envir)
  [14:55:43.381]                 if (!future$lazy) 
  [14:55:43.381]                   future <- run(future)
  [14:55:43.381]                 invisible(future)
  [14:55:43.381]             }), .cleanup = FALSE, .init = FALSE)
  [14:55:43.381]         }
  [14:55:43.381]         base::options(...future.oldOptions)
  [14:55:43.381]     })
  [14:55:43.381]     if (TRUE) {
  [14:55:43.381]         base::sink(type = "output", split = FALSE)
  [14:55:43.381]         if (TRUE) {
  [14:55:43.381]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:55:43.381]         }
  [14:55:43.381]         else {
  [14:55:43.381]             ...future.result["stdout"] <- base::list(NULL)
  [14:55:43.381]         }
  [14:55:43.381]         base::close(...future.stdout)
  [14:55:43.381]         ...future.stdout <- NULL
  [14:55:43.381]     }
  [14:55:43.381]     ...future.result$conditions <- ...future.conditions
  [14:55:43.381]     ...future.result
  [14:55:43.381] }
  [14:55:43.995]  - Condition #436: 'simpleMessage', 'message', 'condition'
  [14:55:43.386] requestCore(): workers = 2
  [14:55:43.995]  - Condition #437: 'simpleMessage', 'message', 'condition'
  [14:55:43.390] MulticoreFuture started
  [14:55:43.995]  - Condition #438: 'simpleMessage', 'message', 'condition'
  [14:55:43.391] - Launch lazy future ... done
  [14:55:43.996]  - Condition #439: 'simpleMessage', 'message', 'condition'
  [14:55:43.409] run() for 'MulticoreFuture' ... done
  [14:55:43.996]  - Condition #440: 'simpleMessage', 'message', 'condition'
  [14:55:43.410] Chunk #2 of 2 ... DONE
  [14:55:43.996]  - Condition #441: 'simpleMessage', 'message', 'condition'
  [14:55:43.411] Launching 2 futures (chunks) ... DONE
  [14:55:43.997]  - Condition #442: 'simpleMessage', 'message', 'condition'
  [14:55:43.412] - resolving futures
  [14:55:43.997]  - Condition #443: 'simpleMessage', 'message', 'condition'
  [14:55:43.413]   - gathering results & relaying conditions (except errors)
  [14:55:43.997]  - Condition #444: 'simpleMessage', 'message', 'condition'
  [14:55:43.413] resolve() on list ...
  [14:55:43.998]  - Condition #445: 'simpleMessage', 'message', 'condition'
  [14:55:43.414]  recursive: 0
  [14:55:43.998]  - Condition #446: 'simpleMessage', 'message', 'condition'
  [14:55:43.415]  length: 2
  [14:55:43.998]  - Condition #447: 'simpleMessage', 'message', 'condition'
  [14:55:43.416] 
  [14:55:43.999]  - Condition #448: 'simpleMessage', 'message', 'condition'
  [14:55:43.418] Future #1
  [14:55:43.999]  - Condition #449: 'simpleMessage', 'message', 'condition'
  [14:55:43.421] signalConditions() ...
  [14:55:43.999]  - Condition #450: 'simpleMessage', 'message', 'condition'
  [14:55:43.421]  - include = 'immediateCondition'
  [14:55:44.000]  - Condition #451: 'simpleMessage', 'message', 'condition'
  [14:55:43.422]  - exclude = 
  [14:55:44.000]  - Condition #452: 'simpleMessage', 'message', 'condition'
  [14:55:43.423]  - resignal = FALSE
  [14:55:44.017]  - Condition #453: 'simpleMessage', 'message', 'condition'
  [14:55:43.423]  - Number of conditions: 1
  [14:55:44.017]  - Condition #454: 'simpleMessage', 'message', 'condition'
  [14:55:43.424] signalConditions() ... done
  [14:55:44.017]  - Condition #455: 'simpleMessage', 'message', 'condition'
  [14:55:43.424] signalConditions() ...
  [14:55:44.018]  - Condition #456: 'simpleMessage', 'message', 'condition'
  [14:55:43.441]  - include = 'immediateCondition'
  [14:55:44.018]  - Condition #457: 'simpleMessage', 'message', 'condition'
  [14:55:43.441]  - exclude = 
  [14:55:44.018]  - Condition #458: 'simpleMessage', 'message', 'condition'
  [14:55:43.441]  - resignal = FALSE
  [14:55:44.019]  - Condition #459: 'simpleMessage', 'message', 'condition'
  [14:55:43.442]  - Number of conditions: 1
  [14:55:44.019]  - Condition #460: 'simpleMessage', 'message', 'condition'
  [14:55:43.442] signalConditions() ... done
  [14:55:44.019]  - Condition #461: 'simpleMessage', 'message', 'condition'
  [14:55:43.442] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [14:55:44.020]  - Condition #462: 'simpleMessage', 'message', 'condition'
  [14:55:43.443] - nx: 2
  [14:55:44.020]  - Condition #463: 'simpleMessage', 'message', 'condition'
  [14:55:43.443] - relay: TRUE
  [14:55:44.020]  - Condition #464: 'simpleMessage', 'message', 'condition'
  [14:55:43.443] - stdout: TRUE
  [14:55:44.021]  - Condition #465: 'simpleMessage', 'message', 'condition'
  [14:55:43.444] - signal: TRUE
  [14:55:44.021]  - Condition #466: 'simpleMessage', 'message', 'condition'
  [14:55:43.444] - resignal: FALSE
  [14:55:44.021]  - Condition #467: 'simpleMessage', 'message', 'condition'
  [14:55:43.444] - force: FALSE
  [14:55:44.022]  - Condition #468: 'simpleMessage', 'message', 'condition'
  [14:55:43.445] - relayed: [n=2] FALSE, FALSE
  [14:55:44.022]  - Condition #469: 'simpleMessage', 'message', 'condition'
  [14:55:43.445] - queued futures: [n=2] FALSE, FALSE
  [14:55:44.022]  - Condition #470: 'simpleMessage', 'message', 'condition'
  [14:55:43.445]  - until=1
  [14:55:44.023]  - Condition #471: 'simpleMessage', 'message', 'condition'
  [14:55:43.446]  - relaying element #1
  [14:55:44.023]  - Condition #472: 'simpleMessage', 'message', 'condition'
  [14:55:43.446] signalConditions() ...
  [14:55:44.023]  - Condition #473: 'simpleMessage', 'message', 'condition'
  [14:55:43.446]  - include = 'immediateCondition'
  [14:55:44.024]  - Condition #474: 'simpleMessage', 'message', 'condition'
  [14:55:43.447]  - exclude = 
  [14:55:44.024]  - Condition #475: 'simpleMessage', 'message', 'condition'
  [14:55:43.447]  - resignal = FALSE
  [14:55:44.024]  - Condition #476: 'simpleMessage', 'message', 'condition'
  [14:55:43.447]  - Number of conditions: 1
  [14:55:44.025]  - Condition #477: 'simpleMessage', 'message', 'condition'
  [14:55:43.448] signalConditions() ... done
  [14:55:44.025]  - Condition #478: 'simpleMessage', 'message', 'condition'
  [14:55:43.448] signalConditions() ...
  [14:55:44.025]  - Condition #479: 'simpleMessage', 'message', 'condition'
  [14:55:43.448]  - include = 'immediateCondition'
  [14:55:44.026]  - Condition #480: 'simpleMessage', 'message', 'condition'
  [14:55:43.449]  - exclude = 
  [14:55:44.026]  - Condition #481: 'simpleMessage', 'message', 'condition'
  [14:55:43.449]  - resignal = FALSE
  [14:55:44.026]  - Condition #482: 'simpleMessage', 'message', 'condition'
  [14:55:43.449]  - Number of conditions: 1
  [14:55:44.027]  - Condition #483: 'simpleMessage', 'message', 'condition'
  [14:55:43.450] signalConditions() ... done
  [14:55:44.027]  - Condition #484: 'simpleMessage', 'message', 'condition'
  [14:55:43.450] signalConditions() ...
  [14:55:44.027]  - Condition #485: 'simpleMessage', 'message', 'condition'
  [14:55:43.450]  - include = 'condition'
  [14:55:44.028]  - Condition #486: 'simpleMessage', 'message', 'condition'
  [14:55:43.451]  - exclude = 'immediateCondition'
  [14:55:44.028]  - Condition #487: 'simpleMessage', 'message', 'condition'
  [14:55:43.451]  - resignal = FALSE
  [14:55:44.028]  - Condition #488: 'simpleMessage', 'message', 'condition'
  [14:55:43.451]  - Number of conditions: 1
  [14:55:44.029]  - Condition #489: 'simpleMessage', 'message', 'condition'
  [14:55:43.451]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:55:44.029]  - Condition #490: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (..., envir = parent.frame())- tweaked: FALSE- call: NULL
  [14:55:44.029]  - Condition #491: 'simpleMessage', 'message', 'condition'
  [14:55:43.452] signalConditions() ... done
  [14:55:44.030]  - Condition #492: 'simpleMessage', 'message', 'condition'
  [14:55:43.452] - relayed: [n=2] TRUE, FALSE
  [14:55:44.030]  - Condition #493: 'simpleMessage', 'message', 'condition'
  [14:55:43.453] - queued futures: [n=2] TRUE, FALSE
  [14:55:44.030]  - Condition #494: 'simpleMessage', 'message', 'condition'
  [14:55:43.453] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [14:55:44.031]  - Condition #495: 'simpleMessage', 'message', 'condition'
  [14:55:43.453]  length: 1 (resolved future 1)
  [14:55:44.031]  - Condition #496: 'simpleMessage', 'message', 'condition'
  [14:55:43.565] Future #2
  [14:55:44.031]  - Condition #497: 'simpleMessage', 'message', 'condition'
  [14:55:43.566] signalConditions() ...
  [14:55:44.032]  - Condition #498: 'simpleMessage', 'message', 'condition'
  [14:55:43.567]  - include = 'immediateCondition'
  [14:55:44.048]  - Condition #499: 'simpleMessage', 'message', 'condition'
  [14:55:43.567]  - exclude = 
  [14:55:44.049]  - Condition #500: 'simpleMessage', 'message', 'condition'
  [14:55:43.568]  - resignal = FALSE
  [14:55:44.049]  - Condition #501: 'simpleMessage', 'message', 'condition'
  [14:55:43.568]  - Number of conditions: 2
  [14:55:44.049]  - Condition #502: 'simpleMessage', 'message', 'condition'
  [14:55:43.568] signalConditions() ... done
  [14:55:44.050]  - Condition #503: 'simpleMessage', 'message', 'condition'
  [14:55:43.568] signalConditions() ...
  [14:55:44.050]  - Condition #504: 'simpleMessage', 'message', 'condition'
  [14:55:43.569]  - include = 'immediateCondition'
  [14:55:44.050]  - Condition #505: 'simpleMessage', 'message', 'condition'
  [14:55:43.569]  - exclude = 
  [14:55:44.050]  - Condition #506: 'simpleMessage', 'message', 'condition'
  [14:55:43.569]  - resignal = FALSE
  [14:55:44.051]  - Condition #507: 'simpleMessage', 'message', 'condition'
  [14:55:43.570]  - Number of conditions: 2
  [14:55:44.051]  - Condition #508: 'simpleMessage', 'message', 'condition'
  [14:55:43.570] signalConditions() ... done
  [14:55:44.051]  - Condition #509: 'simpleMessage', 'message', 'condition'
  [14:55:43.570] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [14:55:44.052]  - Condition #510: 'simpleMessage', 'message', 'condition'
  [14:55:43.570] - nx: 2
  [14:55:44.052]  - Condition #511: 'simpleMessage', 'message', 'condition'
  [14:55:43.571] - relay: TRUE
  [14:55:44.052]  - Condition #512: 'simpleMessage', 'message', 'condition'
  [14:55:43.571] - stdout: TRUE
  [14:55:44.053]  - Condition #513: 'simpleMessage', 'message', 'condition'
  [14:55:43.571] - signal: TRUE
  [14:55:44.057]  - Condition #514: 'simpleMessage', 'message', 'condition'
  [14:55:43.572] - resignal: FALSE
  [14:55:44.057]  - Condition #515: 'simpleMessage', 'message', 'condition'
  [14:55:43.572] - force: FALSE
  [14:55:44.058]  - Condition #516: 'simpleMessage', 'message', 'condition'
  [14:55:43.572] - relayed: [n=2] TRUE, FALSE
  [14:55:44.058]  - Condition #517: 'simpleMessage', 'message', 'condition'
  [14:55:43.572] - queued futures: [n=2] TRUE, FALSE
  [14:55:44.058]  - Condition #518: 'simpleMessage', 'message', 'condition'
  [14:55:43.573]  - until=2
  [14:55:44.059]  - Condition #519: 'simpleMessage', 'message', 'condition'
  [14:55:43.573]  - relaying element #2
  [14:55:44.059]  - Condition #520: 'simpleMessage', 'message', 'condition'
  [14:55:43.573] signalConditions() ...
  [14:55:44.059]  - Condition #521: 'simpleMessage', 'message', 'condition'
  [14:55:43.574]  - include = 'immediateCondition'
  [14:55:44.059]  - Condition #522: 'simpleMessage', 'message', 'condition'
  [14:55:43.574]  - exclude = 
  [14:55:44.060]  - Condition #523: 'simpleMessage', 'message', 'condition'
  [14:55:43.574]  - resignal = FALSE
  [14:55:44.060]  - Condition #524: 'simpleMessage', 'message', 'condition'
  [14:55:43.574]  - Number of conditions: 2
  [14:55:44.073]  - Condition #525: 'simpleMessage', 'message', 'condition'
  [14:55:43.575] signalConditions() ... done
  [14:55:44.073]  - Condition #526: 'simpleMessage', 'message', 'condition'
  [14:55:43.575] signalConditions() ...
  [14:55:44.073]  - Condition #527: 'simpleMessage', 'message', 'condition'
  [14:55:43.575]  - include = 'immediateCondition'
  [14:55:44.074]  - Condition #528: 'simpleMessage', 'message', 'condition'
  [14:55:43.576]  - exclude = 
  [14:55:44.074]  - Condition #529: 'simpleMessage', 'message', 'condition'
  [14:55:43.576]  - resignal = FALSE
  [14:55:44.074]  - Condition #530: 'simpleMessage', 'message', 'condition'
  [14:55:43.576]  - Number of conditions: 2
  [14:55:44.075]  - Condition #531: 'simpleMessage', 'message', 'condition'
  [14:55:43.597] signalConditions() ... done
  [14:55:44.075]  - Condition #532: 'simpleMessage', 'message', 'condition'
  [14:55:43.597] signalConditions() ...
  [14:55:44.075]  - Condition #533: 'simpleMessage', 'message', 'condition'
  [14:55:43.597]  - include = 'condition'
  [14:55:44.076]  - Condition #534: 'simpleMessage', 'message', 'condition'
  [14:55:43.598]  - exclude = 'immediateCondition'
  [14:55:44.076]  - Condition #535: 'simpleMessage', 'message', 'condition'
  [14:55:43.598]  - resignal = FALSE
  [14:55:44.076]  - Condition #536: 'simpleMessage', 'message', 'condition'
  [14:55:43.598]  - Number of conditions: 2
  [14:55:44.077]  - Condition #537: 'simpleMessage', 'message', 'condition'
  [14:55:43.598]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:55:44.077]  - Condition #538: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (..., envir = parent.frame())- tweaked: FALSE- call: NULL
  [14:55:44.077]  - Condition #539: 'simpleMessage', 'message', 'condition'
  [14:55:43.599]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:55:44.078]  - Condition #540: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (..., envir = parent.frame())- tweaked: FALSE- call: NULL
  [14:55:44.078]  - Condition #541: 'simpleMessage', 'message', 'condition'
  [14:55:43.599] signalConditions() ... done
  [14:55:44.078]  - Condition #542: 'simpleMessage', 'message', 'condition'
  [14:55:43.599] - relayed: [n=2] TRUE, TRUE
  [14:55:44.079]  - Condition #543: 'simpleMessage', 'message', 'condition'
  [14:55:43.600] - queued futures: [n=2] TRUE, TRUE
  [14:55:44.079]  - Condition #544: 'simpleMessage', 'message', 'condition'
  [14:55:43.600] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [14:55:44.079]  - Condition #545: 'simpleMessage', 'message', 'condition'
  [14:55:43.600]  length: 0 (resolved future 2)
  [14:55:44.080]  - Condition #546: 'simpleMessage', 'message', 'condition'
  [14:55:43.601] Relaying remaining futures
  [14:55:44.080]  - Condition #547: 'simpleMessage', 'message', 'condition'
  [14:55:43.601] signalConditionsASAP(NULL, pos=0) ...
  [14:55:44.080]  - Condition #548: 'simpleMessage', 'message', 'condition'
  [14:55:43.601] - nx: 2
  [14:55:44.081]  - Condition #549: 'simpleMessage', 'message', 'condition'
  [14:55:43.601] - relay: TRUE
  [14:55:44.081]  - Condition #550: 'simpleMessage', 'message', 'condition'
  [14:55:43.602] - stdout: TRUE
  [14:55:44.081]  - Condition #551: 'simpleMessage', 'message', 'condition'
  [14:55:43.602] - signal: TRUE
  [14:55:44.081]  - Condition #552: 'simpleMessage', 'message', 'condition'
  [14:55:43.602] - resignal: FALSE
  [14:55:44.082]  - Condition #553: 'simpleMessage', 'message', 'condition'
  [14:55:43.602] - force: FALSE
  [14:55:44.082]  - Condition #554: 'simpleMessage', 'message', 'condition'
  [14:55:43.603] - relayed: [n=2] TRUE, TRUE
  [14:55:44.083]  - Condition #555: 'simpleMessage', 'message', 'condition'
  [14:55:43.603] - queued futures: [n=2] TRUE, TRUE
  [14:55:44.083]  - Condition #556: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:55:44.083]  - Condition #557: 'simpleMessage', 'message', 'condition'
  [14:55:43.603] - relayed: [n=2] TRUE, TRUE
  [14:55:44.083]  - Condition #558: 'simpleMessage', 'message', 'condition'
  [14:55:43.604] - queued futures: [n=2] TRUE, TRUE
  [14:55:44.084]  - Condition #559: 'simpleMessage', 'message', 'condition'
  [14:55:43.604] signalConditionsASAP(NULL, pos=0) ... done
  [14:55:44.100]  - Condition #560: 'simpleMessage', 'message', 'condition'
  [14:55:43.604] resolve() on list ... DONE
  [14:55:44.101]  - Condition #561: 'simpleMessage', 'message', 'condition'
  [14:55:43.604] - collecting values of futures
  [14:55:44.101]  - Condition #562: 'simpleMessage', 'message', 'condition'
  [14:55:43.605] signalConditions() ...
  [14:55:44.101]  - Condition #563: 'simpleMessage', 'message', 'condition'
  [14:55:43.605]  - include = 'immediateCondition'
  [14:55:44.102]  - Condition #564: 'simpleMessage', 'message', 'condition'
  [14:55:43.605]  - exclude = 
  [14:55:44.102]  - Condition #565: 'simpleMessage', 'message', 'condition'
  [14:55:43.606]  - resignal = FALSE
  [14:55:44.102]  - Condition #566: 'simpleMessage', 'message', 'condition'
  [14:55:43.606]  - Number of conditions: 1
  [14:55:44.103]  - Condition #567: 'simpleMessage', 'message', 'condition'
  [14:55:43.606] signalConditions() ... done
  [14:55:44.103]  - Condition #568: 'simpleMessage', 'message', 'condition'
  [14:55:43.607] signalConditions() ...
  [14:55:44.103]  - Condition #569: 'simpleMessage', 'message', 'condition'
  [14:55:43.607]  - include = 'immediateCondition'
  [14:55:44.104]  - Condition #570: 'simpleMessage', 'message', 'condition'
  [14:55:43.611]  - exclude = 
  [14:55:44.104]  - Condition #571: 'simpleMessage', 'message', 'condition'
  [14:55:43.612]  - resignal = FALSE
  [14:55:44.104]  - Condition #572: 'simpleMessage', 'message', 'condition'
  [14:55:43.624]  - Number of conditions: 2
  [14:55:44.105]  - Condition #573: 'simpleMessage', 'message', 'condition'
  [14:55:43.625] signalConditions() ... done
  [14:55:44.105]  - Condition #574: 'simpleMessage', 'message', 'condition'
  [14:55:43.625] - accumulating results
  [14:55:44.105]  - Condition #575: 'simpleMessage', 'message', 'condition'
  [14:55:43.626] - processing errors (handler = 'stop')
  [14:55:44.106]  - Condition #576: 'simpleMessage', 'message', 'condition'
  [14:55:43.627] - extracting results
  [14:55:44.106]  - Condition #577: 'simpleMessage', 'message', 'condition'
  [14:55:43.627] doFuture() ... DONE
  [14:55:44.106]  - Condition #578: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:55:44.107] signalConditions() ... done
  [14:55:44.108] - relayed: [n=1] TRUE
  [14:55:44.108] - queued futures: [n=1] TRUE
  [14:55:44.108] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:55:44.108]  length: 0 (resolved future 1)
  [14:55:44.109] Relaying remaining futures
  [14:55:44.109] signalConditionsASAP(NULL, pos=0) ...
  [14:55:44.109] - nx: 1
  [14:55:44.109] - relay: TRUE
  [14:55:44.109] - stdout: TRUE
  [14:55:44.110] - signal: TRUE
  [14:55:44.110] - resignal: FALSE
  [14:55:44.110] - force: FALSE
  [14:55:44.110] - relayed: [n=1] TRUE
  [14:55:44.111] - queued futures: [n=1] TRUE
   - flush all
  [14:55:44.111] - relayed: [n=1] TRUE
  [14:55:44.111] - queued futures: [n=1] TRUE
  [14:55:44.111] signalConditionsASAP(NULL, pos=0) ... done
  [14:55:44.112] resolve() on list ... DONE
  [14:55:44.112] - collecting values of futures
  [14:55:44.112] signalConditions() ...
  [14:55:44.112]  - include = 'immediateCondition'
  [14:55:44.113]  - exclude = 
  [14:55:44.113]  - resignal = FALSE
  [14:55:44.113]  - Number of conditions: 578
  [14:55:44.114] signalConditions() ... done
  [14:55:44.114] - accumulating results
  [14:55:44.115] - processing errors (handler = 'stop')
  [14:55:44.116] - extracting results
  [14:55:44.116] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('sequential', 'multicore')) ... DONE
  - plan(list('sequential', 'multisession')) ...
  [14:55:44.117] plan(): Setting new future strategy stack:
  [14:55:44.118] List of future strategies:
  [14:55:44.118] 1. sequential:
  [14:55:44.118]    - args: function (..., envir = parent.frame())
  [14:55:44.118]    - tweaked: FALSE
  [14:55:44.118]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:44.118] 2. multisession:
  [14:55:44.118]    - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame())
  [14:55:44.118]    - tweaked: FALSE
  [14:55:44.118]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:44.119] plan(): nbrOfWorkers() = 1
  foreach() - level 1 ...
  [14:55:44.120] doFuture() ...
  [14:55:44.121] - dummy globals (as locals): [1] 'a'
  [14:55:44.121] - R expression:
  [14:55:44.122] {
  [14:55:44.122]     doFuture::registerDoFuture()
  [14:55:44.122]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:44.122]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:44.122]         a <- NULL
  [14:55:44.122]         ...future.env <- environment()
  [14:55:44.122]         local({
  [14:55:44.122]             for (name in names(...future.x_jj)) {
  [14:55:44.122]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:44.122]                   inherits = FALSE)
  [14:55:44.122]             }
  [14:55:44.122]         })
  [14:55:44.122]         tryCatch({
  [14:55:44.122]             plan_list <- future::plan("next")
  [14:55:44.122]             stopifnot(inherits(plan_list, strategy2))
  [14:55:44.122]             plan_a <- future::plan("list")
  [14:55:44.122]             str(plan_a)
  [14:55:44.122]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:55:44.122]             message("foreach() - level 2 ...")
  [14:55:44.122]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:55:44.122]                 {
  [14:55:44.122]                   plan_list <- future::plan("next")
  [14:55:44.122]                   message(capture.output(print(plan_list)))
  [14:55:44.122]                   stopifnot(inherits(plan_list, "future"))
  [14:55:44.122]                   default <- getOption("future.plan", "sequential")
  [14:55:44.122]                   if (is.function(default)) 
  [14:55:44.122]                     default <- class(default)
  [14:55:44.122]                   stopifnot(inherits(plan_list, default))
  [14:55:44.122]                   plan_b <- future::plan("list")
  [14:55:44.122]                   str(plan_b)
  [14:55:44.122]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:44.122]                     inherits(plan_b[[1]], default))
  [14:55:44.122]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:44.122]                 }
  [14:55:44.122]             message("foreach() - level 2 ... DONE")
  [14:55:44.122]             y
  [14:55:44.122]         }, error = identity)
  [14:55:44.122]     })
  [14:55:44.122] }
  [14:55:44.122] - identifying globals and packages ...
  [14:55:44.123] getGlobalsAndPackages() ...
  [14:55:44.123] Retrieving 'add' globals ...
  [14:55:44.125] - 'add' globals retrieved: [2] 'bs', 'strategy2'
  [14:55:44.125] Retrieving 'add' globals ... DONE
  [14:55:44.126] Searching for globals...
  [14:55:44.186] - 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:55:44.187] Searching for globals ... DONE
  [14:55:44.187] Resolving globals: FALSE
  [14:55:44.206] The total size of the 3 globals is 184 bytes (184 bytes)
  [14:55:44.207] The total size of the 3 globals exported for future expression ('{; doFuture::registerDoFuture(); lapply(seq_along(...future.x_ii), FUN = function(jj) {; ...future.x_jj <- ...future.x_ii[[jj]]; a <- NULL; ...future.env <- environment(); ...; }, error = identity); }); }') is 184 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: 'strategy2' (120 bytes of class 'character'), 'bs' (64 bytes of class 'numeric') and '...future.x_ii' (0 bytes of class 'NULL')
  [14:55:44.207] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:55:44.208] - packages: [2] 'utils', 'foreach'
  [14:55:44.208] getGlobalsAndPackages() ... DONE
  [14:55:44.208] List of 3
  [14:55:44.208]  $ ...future.x_ii: NULL
  [14:55:44.208]  $ strategy2     : chr "multisession"
  [14:55:44.208]  $ bs            : int [1:3] 3 2 1
  [14:55:44.208]  - attr(*, "where")=List of 3
  [14:55:44.208]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:44.208]   ..$ strategy2     :<environment: R_EmptyEnv> 
  [14:55:44.208]   ..$ bs            :<environment: R_EmptyEnv> 
  [14:55:44.208]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:44.208]  - attr(*, "resolved")= logi FALSE
  [14:55:44.208]  - attr(*, "total_size")= num 184
  [14:55:44.216]   - R expression:
  [14:55:44.216] {
  [14:55:44.216]     doFuture::registerDoFuture()
  [14:55:44.216]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:44.216]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:44.216]         a <- NULL
  [14:55:44.216]         ...future.env <- environment()
  [14:55:44.216]         local({
  [14:55:44.216]             for (name in names(...future.x_jj)) {
  [14:55:44.216]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:44.216]                   inherits = FALSE)
  [14:55:44.216]             }
  [14:55:44.216]         })
  [14:55:44.216]         tryCatch({
  [14:55:44.216]             plan_list <- future::plan("next")
  [14:55:44.216]             stopifnot(inherits(plan_list, strategy2))
  [14:55:44.216]             plan_a <- future::plan("list")
  [14:55:44.216]             str(plan_a)
  [14:55:44.216]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:55:44.216]             message("foreach() - level 2 ...")
  [14:55:44.216]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:55:44.216]                 {
  [14:55:44.216]                   plan_list <- future::plan("next")
  [14:55:44.216]                   message(capture.output(print(plan_list)))
  [14:55:44.216]                   stopifnot(inherits(plan_list, "future"))
  [14:55:44.216]                   default <- getOption("future.plan", "sequential")
  [14:55:44.216]                   if (is.function(default)) 
  [14:55:44.216]                     default <- class(default)
  [14:55:44.216]                   stopifnot(inherits(plan_list, default))
  [14:55:44.216]                   plan_b <- future::plan("list")
  [14:55:44.216]                   str(plan_b)
  [14:55:44.216]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:44.216]                     inherits(plan_b[[1]], default))
  [14:55:44.216]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:44.216]                 }
  [14:55:44.216]             message("foreach() - level 2 ... DONE")
  [14:55:44.216]             y
  [14:55:44.216]         }, error = identity)
  [14:55:44.216]     })
  [14:55:44.216] }
  [14:55:44.217]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:55:44.217] List of 3
  [14:55:44.217]  $ ...future.x_ii: NULL
  [14:55:44.217]  $ strategy2     : chr "multisession"
  [14:55:44.217]  $ bs            : int [1:3] 3 2 1
  [14:55:44.217]  - attr(*, "where")=List of 3
  [14:55:44.217]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:44.217]   ..$ strategy2     :<environment: R_EmptyEnv> 
  [14:55:44.217]   ..$ bs            :<environment: R_EmptyEnv> 
  [14:55:44.217]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:44.217]  - attr(*, "resolved")= logi FALSE
  [14:55:44.217]  - attr(*, "total_size")= num 184
  [14:55:44.256]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [14:55:44.257] - identifying globals and packages ... DONE
  [14:55:44.257] Number of chunks: 1
  [14:55:44.257] Number of futures (= number of chunks): 1
  [14:55:44.258] Launching 1 futures (chunks) ...
  [14:55:44.258] Chunk #1 of 1 ...
  [14:55:44.258]  - Finding globals in 'args_list' chunk #1 ...
  [14:55:44.258] getGlobalsAndPackages() ...
  [14:55:44.258] Searching for globals...
  [14:55:44.259] 
  [14:55:44.259] Searching for globals ... DONE
  [14:55:44.260] - globals: [0] <none>
  [14:55:44.260] getGlobalsAndPackages() ... DONE
  [14:55:44.260] 
  [14:55:44.260] 
  [14:55:44.261]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:55:44.261] getGlobalsAndPackages() ...
  [14:55:44.261] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:55:44.261] Resolving globals: FALSE
  [14:55:44.262] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:55:44.262] 
  [14:55:44.263] getGlobalsAndPackages() ... DONE
  [14:55:44.263] run() for 'Future' ...
  [14:55:44.263] - state: 'created'
  [14:55:44.264] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:55:44.264] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:55:44.265] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:55:44.265]   - Field: 'label'
  [14:55:44.265]   - Field: 'local'
  [14:55:44.265]   - Field: 'owner'
  [14:55:44.266]   - Field: 'envir'
  [14:55:44.266]   - Field: 'packages'
  [14:55:44.266]   - Field: 'gc'
  [14:55:44.266]   - Field: 'conditions'
  [14:55:44.267]   - Field: 'persistent'
  [14:55:44.267]   - Field: 'expr'
  [14:55:44.267]   - Field: 'uuid'
  [14:55:44.267]   - Field: 'seed'
  [14:55:44.267]   - Field: 'version'
  [14:55:44.272]   - Field: 'result'
  [14:55:44.288]   - Field: 'asynchronous'
  [14:55:44.289]   - Field: 'calls'
  [14:55:44.289]   - Field: 'globals'
  [14:55:44.289]   - Field: 'stdout'
  [14:55:44.290]   - Field: 'earlySignal'
  [14:55:44.290]   - Field: 'lazy'
  [14:55:44.290]   - Field: 'state'
  [14:55:44.290] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:55:44.291] - Launch lazy future ...
  [14:55:44.291] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [14:55:44.291] Packages needed by future strategies (n = 1): 'future'
  [14:55:44.293] {
  [14:55:44.293]     {
  [14:55:44.293]         ...future.startTime <- base::Sys.time()
  [14:55:44.293]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:55:44.293]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:55:44.293]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:55:44.293]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:55:44.293]             future.resolve.recursive = NULL, future.rng.onMisuse = NULL, 
  [14:55:44.293]             future.rng.onMisuse.keepFuture = NULL, future.stdout.windows.reencode = NULL, 
  [14:55:44.293]             width = 80L)
  [14:55:44.293]         {
  [14:55:44.293]             {
  [14:55:44.293]                 {
  [14:55:44.293]                   base::local({
  [14:55:44.293]                     has_future <- base::requireNamespace("future", 
  [14:55:44.293]                       quietly = TRUE)
  [14:55:44.293]                     if (has_future) {
  [14:55:44.293]                       ns <- base::getNamespace("future")
  [14:55:44.293]                       version <- ns[[".package"]][["version"]]
  [14:55:44.293]                       if (is.null(version)) 
  [14:55:44.293]                         version <- utils::packageVersion("future")
  [14:55:44.293]                     }
  [14:55:44.293]                     else {
  [14:55:44.293]                       version <- NULL
  [14:55:44.293]                     }
  [14:55:44.293]                     if (!has_future || version < "1.8.0") {
  [14:55:44.293]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:55:44.293]                         "", base::R.version$version.string), 
  [14:55:44.293]                         platform = base::sprintf("%s (%s-bit)", 
  [14:55:44.293]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:55:44.293]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:55:44.293]                           "release", "version")], collapse = " "), 
  [14:55:44.293]                         hostname = base::Sys.info()[["nodename"]])
  [14:55:44.293]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:55:44.293]                         info)
  [14:55:44.293]                       info <- base::paste(info, collapse = "; ")
  [14:55:44.293]                       if (!has_future) {
  [14:55:44.293]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:55:44.293]                           info)
  [14:55:44.293]                       }
  [14:55:44.293]                       else {
  [14:55:44.293]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:55:44.293]                           info, version)
  [14:55:44.293]                       }
  [14:55:44.293]                       base::stop(msg)
  [14:55:44.293]                     }
  [14:55:44.293]                   })
  [14:55:44.293]                 }
  [14:55:44.293]                 base::local({
  [14:55:44.293]                   for (pkg in c("doFuture", "utils", "foreach", 
  [14:55:44.293]                   "future")) {
  [14:55:44.293]                     base::loadNamespace(pkg)
  [14:55:44.293]                     base::library(pkg, character.only = TRUE)
  [14:55:44.293]                   }
  [14:55:44.293]                 })
  [14:55:44.293]             }
  [14:55:44.293]             options(future.plan = NULL)
  [14:55:44.293]             Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:44.293]             future::plan(list(b = function (..., workers = availableCores(), 
  [14:55:44.293]                 lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 
  [14:55:44.293]             {
  [14:55:44.293]                 if (is.function(workers)) 
  [14:55:44.293]                   workers <- workers()
  [14:55:44.293]                 workers <- as.integer(workers)
  [14:55:44.293]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:55:44.293]                   workers >= 1)
  [14:55:44.293]                 if (workers == 1L) {
  [14:55:44.293]                   return(sequential(..., lazy = TRUE, envir = envir))
  [14:55:44.293]                 }
  [14:55:44.293]                 future <- MultisessionFuture(..., workers = workers, 
  [14:55:44.293]                   lazy = lazy, rscript_libs = rscript_libs, envir = envir)
  [14:55:44.293]                 if (!future$lazy) 
  [14:55:44.293]                   future <- run(future)
  [14:55:44.293]                 invisible(future)
  [14:55:44.293]             }), .cleanup = FALSE, .init = FALSE)
  [14:55:44.293]         }
  [14:55:44.293]     }
  [14:55:44.293]     if (FALSE) {
  [14:55:44.293]     }
  [14:55:44.293]     else {
  [14:55:44.293]         if (TRUE) {
  [14:55:44.293]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:55:44.293]                 open = "w")
  [14:55:44.293]         }
  [14:55:44.293]         else {
  [14:55:44.293]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:55:44.293]                 windows = "NUL", "/dev/null"), open = "w")
  [14:55:44.293]         }
  [14:55:44.293]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:55:44.293]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:55:44.293]             base::sink(type = "output", split = FALSE)
  [14:55:44.293]             base::close(...future.stdout)
  [14:55:44.293]         }, add = TRUE)
  [14:55:44.293]     }
  [14:55:44.293]     ...future.frame <- base::sys.nframe()
  [14:55:44.293]     ...future.conditions <- base::list()
  [14:55:44.293]     ...future.rng <- base::globalenv()$.Random.seed
  [14:55:44.293]     ...future.result <- base::tryCatch({
  [14:55:44.293]         base::withCallingHandlers({
  [14:55:44.293]             ...future.value <- base::withVisible(base::local({
  [14:55:44.293]                 doFuture::registerDoFuture()
  [14:55:44.293]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:44.293]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:44.293]                   a <- NULL
  [14:55:44.293]                   ...future.env <- environment()
  [14:55:44.293]                   local({
  [14:55:44.293]                     for (name in names(...future.x_jj)) {
  [14:55:44.293]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:44.293]                         inherits = FALSE)
  [14:55:44.293]                     }
  [14:55:44.293]                   })
  [14:55:44.293]                   tryCatch({
  [14:55:44.293]                     plan_list <- future::plan("next")
  [14:55:44.293]                     stopifnot(inherits(plan_list, strategy2))
  [14:55:44.293]                     plan_a <- future::plan("list")
  [14:55:44.293]                     str(plan_a)
  [14:55:44.293]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [14:55:44.293]                     message("foreach() - level 2 ...")
  [14:55:44.293]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:55:44.293]                       {
  [14:55:44.293]                         plan_list <- future::plan("next")
  [14:55:44.293]                         message(capture.output(print(plan_list)))
  [14:55:44.293]                         stopifnot(inherits(plan_list, "future"))
  [14:55:44.293]                         default <- getOption("future.plan", "sequential")
  [14:55:44.293]                         if (is.function(default)) 
  [14:55:44.293]                           default <- class(default)
  [14:55:44.293]                         stopifnot(inherits(plan_list, default))
  [14:55:44.293]                         plan_b <- future::plan("list")
  [14:55:44.293]                         str(plan_b)
  [14:55:44.293]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:44.293]                           inherits(plan_b[[1]], default))
  [14:55:44.293]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:44.293]                       }
  [14:55:44.293]                     message("foreach() - level 2 ... DONE")
  [14:55:44.293]                     y
  [14:55:44.293]                   }, error = identity)
  [14:55:44.293]                 })
  [14:55:44.293]             }))
  [14:55:44.293]             future::FutureResult(value = ...future.value$value, 
  [14:55:44.293]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:44.293]                   ...future.rng), started = ...future.startTime, 
  [14:55:44.293]                 version = "1.8")
  [14:55:44.293]         }, condition = base::local({
  [14:55:44.293]             c <- base::c
  [14:55:44.293]             inherits <- base::inherits
  [14:55:44.293]             invokeRestart <- base::invokeRestart
  [14:55:44.293]             length <- base::length
  [14:55:44.293]             list <- base::list
  [14:55:44.293]             seq.int <- base::seq.int
  [14:55:44.293]             signalCondition <- base::signalCondition
  [14:55:44.293]             sys.calls <- base::sys.calls
  [14:55:44.293]             `[[` <- base::`[[`
  [14:55:44.293]             `+` <- base::`+`
  [14:55:44.293]             `<<-` <- base::`<<-`
  [14:55:44.293]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:55:44.293]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:55:44.293]                   3L)]
  [14:55:44.293]             }
  [14:55:44.293]             function(cond) {
  [14:55:44.293]                 is_error <- inherits(cond, "error")
  [14:55:44.293]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:55:44.293]                   NULL)
  [14:55:44.293]                 if (is_error) {
  [14:55:44.293]                   sessionInformation <- function() {
  [14:55:44.293]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:55:44.293]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:55:44.293]                       search = base::search(), system = base::Sys.info())
  [14:55:44.293]                   }
  [14:55:44.293]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:44.293]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:55:44.293]                     cond$call), session = sessionInformation(), 
  [14:55:44.293]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:55:44.293]                   signalCondition(cond)
  [14:55:44.293]                 }
  [14:55:44.293]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:55:44.293]                 "immediateCondition"))) {
  [14:55:44.293]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:55:44.293]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:44.293]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:55:44.293]                   if (TRUE && !signal) {
  [14:55:44.293]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:44.293]                     {
  [14:55:44.293]                       inherits <- base::inherits
  [14:55:44.293]                       invokeRestart <- base::invokeRestart
  [14:55:44.293]                       is.null <- base::is.null
  [14:55:44.293]                       muffled <- FALSE
  [14:55:44.293]                       if (inherits(cond, "message")) {
  [14:55:44.293]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:44.293]                         if (muffled) 
  [14:55:44.293]                           invokeRestart("muffleMessage")
  [14:55:44.293]                       }
  [14:55:44.293]                       else if (inherits(cond, "warning")) {
  [14:55:44.293]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:44.293]                         if (muffled) 
  [14:55:44.293]                           invokeRestart("muffleWarning")
  [14:55:44.293]                       }
  [14:55:44.293]                       else if (inherits(cond, "condition")) {
  [14:55:44.293]                         if (!is.null(pattern)) {
  [14:55:44.293]                           computeRestarts <- base::computeRestarts
  [14:55:44.293]                           grepl <- base::grepl
  [14:55:44.293]                           restarts <- computeRestarts(cond)
  [14:55:44.293]                           for (restart in restarts) {
  [14:55:44.293]                             name <- restart$name
  [14:55:44.293]                             if (is.null(name)) 
  [14:55:44.293]                               next
  [14:55:44.293]                             if (!grepl(pattern, name)) 
  [14:55:44.293]                               next
  [14:55:44.293]                             invokeRestart(restart)
  [14:55:44.293]                             muffled <- TRUE
  [14:55:44.293]                             break
  [14:55:44.293]                           }
  [14:55:44.293]                         }
  [14:55:44.293]                       }
  [14:55:44.293]                       invisible(muffled)
  [14:55:44.293]                     }
  [14:55:44.293]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:44.293]                   }
  [14:55:44.293]                 }
  [14:55:44.293]                 else {
  [14:55:44.293]                   if (TRUE) {
  [14:55:44.293]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:44.293]                     {
  [14:55:44.293]                       inherits <- base::inherits
  [14:55:44.293]                       invokeRestart <- base::invokeRestart
  [14:55:44.293]                       is.null <- base::is.null
  [14:55:44.293]                       muffled <- FALSE
  [14:55:44.293]                       if (inherits(cond, "message")) {
  [14:55:44.293]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:44.293]                         if (muffled) 
  [14:55:44.293]                           invokeRestart("muffleMessage")
  [14:55:44.293]                       }
  [14:55:44.293]                       else if (inherits(cond, "warning")) {
  [14:55:44.293]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:44.293]                         if (muffled) 
  [14:55:44.293]                           invokeRestart("muffleWarning")
  [14:55:44.293]                       }
  [14:55:44.293]                       else if (inherits(cond, "condition")) {
  [14:55:44.293]                         if (!is.null(pattern)) {
  [14:55:44.293]                           computeRestarts <- base::computeRestarts
  [14:55:44.293]                           grepl <- base::grepl
  [14:55:44.293]                           restarts <- computeRestarts(cond)
  [14:55:44.293]                           for (restart in restarts) {
  [14:55:44.293]                             name <- restart$name
  [14:55:44.293]                             if (is.null(name)) 
  [14:55:44.293]                               next
  [14:55:44.293]                             if (!grepl(pattern, name)) 
  [14:55:44.293]                               next
  [14:55:44.293]                             invokeRestart(restart)
  [14:55:44.293]                             muffled <- TRUE
  [14:55:44.293]                             break
  [14:55:44.293]                           }
  [14:55:44.293]                         }
  [14:55:44.293]                       }
  [14:55:44.293]                       invisible(muffled)
  [14:55:44.293]                     }
  [14:55:44.293]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:44.293]                   }
  [14:55:44.293]                 }
  [14:55:44.293]             }
  [14:55:44.293]         }))
  [14:55:44.293]     }, error = function(ex) {
  [14:55:44.293]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:55:44.293]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:44.293]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:55:44.293]     }, finally = {
  [14:55:44.293]         {
  [14:55:44.293]             {
  [14:55:44.293]                 NULL
  [14:55:44.293]                 RNGkind("Mersenne-Twister")
  [14:55:44.293]                 base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:55:44.293]                   inherits = FALSE)
  [14:55:44.293]             }
  [14:55:44.293]             options(future.plan = NULL)
  [14:55:44.293]             if (is.na(NA_character_)) 
  [14:55:44.293]                 Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:44.293]             else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:55:44.293]             future::plan(list(a = function (..., envir = parent.frame()) 
  [14:55:44.293]             {
  [14:55:44.293]                 future <- SequentialFuture(..., envir = envir)
  [14:55:44.293]                 if (!future$lazy) 
  [14:55:44.293]                   future <- run(future)
  [14:55:44.293]                 invisible(future)
  [14:55:44.293]             }, b = function (..., workers = availableCores(), 
  [14:55:44.293]                 lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 
  [14:55:44.293]             {
  [14:55:44.293]                 if (is.function(workers)) 
  [14:55:44.293]                   workers <- workers()
  [14:55:44.293]                 workers <- as.integer(workers)
  [14:55:44.293]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:55:44.293]                   workers >= 1)
  [14:55:44.293]                 if (workers == 1L) {
  [14:55:44.293]                   return(sequential(..., lazy = TRUE, envir = envir))
  [14:55:44.293]                 }
  [14:55:44.293]                 future <- MultisessionFuture(..., workers = workers, 
  [14:55:44.293]                   lazy = lazy, rscript_libs = rscript_libs, envir = envir)
  [14:55:44.293]                 if (!future$lazy) 
  [14:55:44.293]                   future <- run(future)
  [14:55:44.293]                 invisible(future)
  [14:55:44.293]             }), .cleanup = FALSE, .init = FALSE)
  [14:55:44.293]         }
  [14:55:44.293]         base::options(...future.oldOptions)
  [14:55:44.293]     })
  [14:55:44.293]     if (TRUE) {
  [14:55:44.293]         base::sink(type = "output", split = FALSE)
  [14:55:44.293]         if (TRUE) {
  [14:55:44.293]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:55:44.293]         }
  [14:55:44.293]         else {
  [14:55:44.293]             ...future.result["stdout"] <- base::list(NULL)
  [14:55:44.293]         }
  [14:55:44.293]         base::close(...future.stdout)
  [14:55:44.293]         ...future.stdout <- NULL
  [14:55:44.293]     }
  [14:55:44.293]     ...future.result$conditions <- ...future.conditions
  [14:55:44.293]     ...future.result
  [14:55:44.293] }
  [14:55:44.297] assign_globals() ...
  [14:55:44.297] List of 3
  [14:55:44.297]  $ ...future.x_ii:List of 2
  [14:55:44.297]   ..$ :List of 1
  [14:55:44.297]   .. ..$ a: int 1
  [14:55:44.297]   ..$ :List of 1
  [14:55:44.297]   .. ..$ a: int 2
  [14:55:44.297]  $ strategy2     : chr "multisession"
  [14:55:44.297]  $ bs            : int [1:3] 3 2 1
  [14:55:44.297]  - attr(*, "where")=List of 3
  [14:55:44.297]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:44.297]   ..$ strategy2     :<environment: R_EmptyEnv> 
  [14:55:44.297]   ..$ bs            :<environment: R_EmptyEnv> 
  [14:55:44.297]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:44.297]  - attr(*, "resolved")= logi FALSE
  [14:55:44.297]  - attr(*, "total_size")= num 184
  [14:55:44.297]  - attr(*, "already-done")= logi TRUE
  [14:55:44.325] - copied '...future.x_ii' to environment
  [14:55:44.325] - copied 'strategy2' to environment
  [14:55:44.326] - copied 'bs' to environment
  [14:55:44.326] List of 3
  [14:55:44.326]  $ ...future.x_ii:List of 2
  [14:55:44.326]   ..$ :List of 1
  [14:55:44.326]   .. ..$ a: int 1
  [14:55:44.326]   ..$ :List of 1
  [14:55:44.326]   .. ..$ a: int 2
  [14:55:44.326]  $ strategy2     : chr "multisession"
  [14:55:44.326]  $ bs            : int [1:3] 3 2 1
  [14:55:44.326]  - attr(*, "where")=List of 3
  [14:55:44.326]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:44.326]   ..$ strategy2     :<environment: R_EmptyEnv> 
  [14:55:44.326]   ..$ bs            :<environment: R_EmptyEnv> 
  [14:55:44.326]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:44.326]  - attr(*, "resolved")= logi FALSE
  [14:55:44.326]  - attr(*, "total_size")= num 184
  [14:55:44.326]  - attr(*, "already-done")= logi TRUE
  [14:55:44.343] assign_globals() ... done
  [14:55:44.345] plan(): Setting new future strategy stack:
  [14:55:44.345] List of future strategies:
  [14:55:44.345] 1. multisession:
  [14:55:44.345]    - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame())
  [14:55:44.345]    - tweaked: FALSE
  [14:55:44.345]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:44.375] plan(): nbrOfWorkers() = 2
  [14:55:48.375] plan(): Setting new future strategy stack:
  [14:55:48.375] List of future strategies:
  [14:55:48.375] 1. sequential:
  [14:55:48.375]    - args: function (..., envir = parent.frame())
  [14:55:48.375]    - tweaked: FALSE
  [14:55:48.375]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:48.375] 2. multisession:
  [14:55:48.375]    - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame())
  [14:55:48.375]    - tweaked: FALSE
  [14:55:48.375]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:48.392] plan(): nbrOfWorkers() = 1
  [14:55:48.394] SequentialFuture started (and completed)
  [14:55:48.394] signalConditions() ...
  [14:55:48.394]  - include = 'immediateCondition'
  [14:55:48.394]  - exclude = 
  [14:55:48.395]  - resignal = FALSE
  [14:55:48.395]  - Number of conditions: 733
  [14:55:48.397] signalConditions() ... done
  [14:55:48.397] - Launch lazy future ... done
  [14:55:48.397] run() for 'SequentialFuture' ... done
  [14:55:48.398] Chunk #1 of 1 ... DONE
  [14:55:48.398] Launching 1 futures (chunks) ... DONE
  [14:55:48.398] - resolving futures
  [14:55:48.398]   - gathering results & relaying conditions (except errors)
  [14:55:48.399] resolve() on list ...
  [14:55:48.399]  recursive: 0
  [14:55:48.399]  length: 1
  [14:55:48.399] 
  [14:55:48.400] resolved() for 'SequentialFuture' ...
  [14:55:48.400] - state: 'finished'
  [14:55:48.400] - run: TRUE
  [14:55:48.400] - result: 'FutureResult'
  [14:55:48.401] resolved() for 'SequentialFuture' ... done
  [14:55:48.401] Future #1
  [14:55:48.401] signalConditions() ...
  [14:55:48.401]  - include = 'immediateCondition'
  [14:55:48.402]  - exclude = 
  [14:55:48.402]  - resignal = FALSE
  [14:55:48.402]  - Number of conditions: 733
  [14:55:48.404] signalConditions() ... done
  [14:55:48.405] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:55:48.405] - nx: 1
  [14:55:48.405] - relay: TRUE
  [14:55:48.405] - stdout: TRUE
  [14:55:48.406] - signal: TRUE
  [14:55:48.406] - resignal: FALSE
  [14:55:48.406] - force: FALSE
  [14:55:48.406] - relayed: [n=1] FALSE
  [14:55:48.406] - queued futures: [n=1] FALSE
  [14:55:48.407]  - until=1
  [14:55:48.407]  - relaying element #1
  [14:55:48.407] signalConditions() ...
  [14:55:48.407]  - include = 'immediateCondition'
  [14:55:48.408]  - exclude = 
  [14:55:48.408]  - resignal = FALSE
  [14:55:48.424]  - Number of conditions: 733
  [14:55:48.427] signalConditions() ... done
  List of 1
   $ b:function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), 
      envir = parent.frame())  
    ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
    ..- attr(*, "init")= logi TRUE
    ..- attr(*, "untweakable")= chr "persistent"
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (..., envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (..., envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (..., envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ b:function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), 
      envir = parent.frame())  
    ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
    ..- attr(*, "init")= logi TRUE
    ..- attr(*, "untweakable")= chr "persistent"
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (..., envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (..., envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (..., envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:48.427] signalConditions() ...
  [14:55:48.428]  - include = 'immediateCondition'
  [14:55:48.428]  - exclude = 
  [14:55:48.428]  - resignal = FALSE
  [14:55:48.428]  - Number of conditions: 733
  [14:55:48.431] signalConditions() ... done
  [14:55:48.431] signalConditions() ...
  [14:55:48.431]  - include = 'condition'
  [14:55:48.431]  - exclude = 'immediateCondition'
  [14:55:48.432]  - resignal = FALSE
  [14:55:48.432]  - Number of conditions: 733
  [14:55:48.432]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:55:48.433]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:55:44.381] doFuture() ...
  [14:55:48.433]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:55:44.453] - dummy globals (as locals): [1] 'b'
  [14:55:48.433]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [14:55:44.454] - R expression:
  [14:55:48.434]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [14:55:44.454] {
  [14:55:44.454]     doFuture::registerDoFuture()
  [14:55:44.454]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:44.454]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:44.454]         b <- NULL
  [14:55:44.454]         ...future.env <- environment()
  [14:55:44.454]         local({
  [14:55:44.454]             for (name in names(...future.x_jj)) {
  [14:55:44.454]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:44.454]                   inherits = FALSE)
  [14:55:44.454]             }
  [14:55:44.454]         })
  [14:55:44.454]         tryCatch({
  [14:55:44.454]             plan_list <- future::plan("next")
  [14:55:44.454]             message(capture.output(print(plan_list)))
  [14:55:44.454]             stopifnot(inherits(plan_list, "future"))
  [14:55:44.454]             default <- getOption("future.plan", "sequential")
  [14:55:44.454]             if (is.function(default)) 
  [14:55:44.454]                 default <- class(default)
  [14:55:44.454]             stopifnot(inherits(plan_list, default))
  [14:55:44.454]             plan_b <- future::plan("list")
  [14:55:44.454]             str(plan_b)
  [14:55:44.454]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:55:44.454]                 default))
  [14:55:44.454]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:44.454]         }, error = identity)
  [14:55:44.454]     })
  [14:55:44.454] }
  [14:55:48.434]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [14:55:44.455] - identifying globals and packages ...
  [14:55:48.434]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [14:55:44.456] getGlobalsAndPackages() ...
  [14:55:48.435]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [14:55:44.456] Retrieving 'add' globals ...
  [14:55:48.435]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [14:55:44.473] - 'add' globals retrieved: [2] 'a', 'plan_a'
  [14:55:48.435]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [14:55:44.473] Retrieving 'add' globals ... DONE
  [14:55:48.436]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [14:55:44.473] Searching for globals...
  [14:55:48.436]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [14:55:44.534] - 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:55:48.436]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [14:55:44.534] Searching for globals ... DONE
  [14:55:48.437]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [14:55:44.535] Resolving globals: FALSE
  [14:55:48.437]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [14:55:44.537] The total size of the 3 globals is 36.01 KiB (36872 bytes)
  [14:55:48.437]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [14:55:44.539] The total size of the 3 globals exported for future expression ('{; doFuture::registerDoFuture(); lapply(seq_along(...future.x_ii), FUN = function(jj) {; ...future.x_jj <- ...future.x_ii[[jj]]; b <- NULL; ...future.env <- environment(); ...; }, error = identity); }); }') is 36.01 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: 'plan_a' (35.95 KiB of class 'list'), 'a' (56 bytes of class 'numeric') and '...future.x_ii' (0 bytes of class 'NULL')
  [14:55:48.438]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [14:55:44.539] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:48.438]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [14:55:44.540] - packages: [1] 'utils'
  [14:55:48.438]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [14:55:44.540] getGlobalsAndPackages() ... DONE
  [14:55:48.439]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [14:55:44.556] List of 3
  [14:55:44.556]  $ ...future.x_ii: NULL
  [14:55:44.556]  $ a             : int 1
  [14:55:44.556]  $ plan_a        :List of 1
  [14:55:44.556]   ..$ b:function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), 
  [14:55:44.556]     envir = parent.frame())  
  [14:55:44.556]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [14:55:44.556]   .. ..- attr(*, "init")= logi TRUE
  [14:55:44.556]   .. ..- attr(*, "untweakable")= chr "persistent"
  [14:55:44.556]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:44.556]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:44.556]  - attr(*, "where")=List of 3
  [14:55:44.556]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:44.556]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:44.556]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:44.556]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:44.556]  - attr(*, "resolved")= logi FALSE
  [14:55:44.556]  - attr(*, "total_size")= num 36872
  [14:55:48.439]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [14:55:44.568]   - R expression:
  [14:55:48.439]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [14:55:44.568] {
  [14:55:44.568]     doFuture::registerDoFuture()
  [14:55:44.568]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:44.568]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:44.568]         b <- NULL
  [14:55:44.568]         ...future.env <- environment()
  [14:55:44.568]         local({
  [14:55:44.568]             for (name in names(...future.x_jj)) {
  [14:55:44.568]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:44.568]                   inherits = FALSE)
  [14:55:44.568]             }
  [14:55:44.568]         })
  [14:55:44.568]         tryCatch({
  [14:55:44.568]             plan_list <- future::plan("next")
  [14:55:44.568]             message(capture.output(print(plan_list)))
  [14:55:44.568]             stopifnot(inherits(plan_list, "future"))
  [14:55:44.568]             default <- getOption("future.plan", "sequential")
  [14:55:44.568]             if (is.function(default)) 
  [14:55:44.568]                 default <- class(default)
  [14:55:44.568]             stopifnot(inherits(plan_list, default))
  [14:55:44.568]             plan_b <- future::plan("list")
  [14:55:44.568]             str(plan_b)
  [14:55:44.568]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:55:44.568]                 default))
  [14:55:44.568]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:44.568]         }, error = identity)
  [14:55:44.568]     })
  [14:55:44.568] }
  [14:55:48.440]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [14:55:44.569]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:48.440]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [14:55:44.569] List of 3
  [14:55:44.569]  $ ...future.x_ii: NULL
  [14:55:44.569]  $ a             : int 1
  [14:55:44.569]  $ plan_a        :List of 1
  [14:55:44.569]   ..$ b:function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), 
  [14:55:44.569]     envir = parent.frame())  
  [14:55:44.569]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [14:55:44.569]   .. ..- attr(*, "init")= logi TRUE
  [14:55:44.569]   .. ..- attr(*, "untweakable")= chr "persistent"
  [14:55:44.569]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:44.569]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:44.569]  - attr(*, "where")=List of 3
  [14:55:44.569]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:44.569]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:44.569]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:44.569]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:44.569]  - attr(*, "resolved")= logi FALSE
  [14:55:44.569]  - attr(*, "total_size")= num 36872
  [14:55:48.457]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [14:55:44.597]   - packages: [2] 'doFuture', 'utils'
  [14:55:48.457]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [14:55:44.597] - identifying globals and packages ... DONE
  [14:55:48.458]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [14:55:44.631] Number of chunks: 2
  [14:55:48.458]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [14:55:44.632] Number of futures (= number of chunks): 2
  [14:55:48.458]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [14:55:44.632] Launching 2 futures (chunks) ...
  [14:55:48.459]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [14:55:44.632] Chunk #1 of 2 ...
  [14:55:48.459]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [14:55:44.632]  - Finding globals in 'args_list' chunk #1 ...
  [14:55:48.459]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [14:55:44.633] getGlobalsAndPackages() ...
  [14:55:48.460]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [14:55:44.633] Searching for globals...
  [14:55:48.460]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [14:55:44.634] 
  [14:55:48.460]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [14:55:44.638] Searching for globals ... DONE
  [14:55:48.461]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [14:55:44.639] - globals: [0] <none>
  [14:55:48.461]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [14:55:44.639] getGlobalsAndPackages() ... DONE
  [14:55:48.461]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [14:55:44.639] 
  [14:55:48.462]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [14:55:44.640] 
  [14:55:48.462]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [14:55:44.640]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:55:48.462]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [14:55:44.640] getGlobalsAndPackages() ...
  [14:55:48.463]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [14:55:44.641] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:48.463]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [14:55:44.641] Resolving globals: FALSE
  [14:55:48.463]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [14:55:44.642] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:48.464]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [14:55:44.642] 
  [14:55:48.464]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [14:55:44.642] getGlobalsAndPackages() ... DONE
  [14:55:48.464]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [14:55:44.643] run() for 'Future' ...
  [14:55:48.465]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [14:55:44.643] - state: 'created'
  [14:55:48.465]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [14:55:44.644] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
  [14:55:48.465]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [14:55:48.466]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [local output] Base port: 36713
  [14:55:48.466]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [local output] Getting setup options for 2 cluster nodes ...
  [14:55:48.466]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [local output]  - Node 1 of 2 ...
  [14:55:48.467]  - Condition #54: 'simpleMessage', 'message', 'condition'
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmplLCzy6/worker.rank=1.parallelly.parent=206306.325e25ffe3dae.pid")), silent = TRUE)' -e "file.exists('/home/hornik/tmp/scratch/RtmplLCzy6/worker.rank=1.parallelly.parent=206306.325e25ffe3dae.pid')"'
  [14:55:48.467]  - Condition #55: 'simpleMessage', 'message', 'condition'
  - Possible to infer worker's PID: TRUE
  [14:55:48.467]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [local output] Rscript port: 36713
  
  [14:55:48.468]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [local output]  - Node 2 of 2 ...
  [14:55:48.468]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [local output] Rscript port: 36713
  
  [14:55:48.468]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [local output] Getting setup options for 2 cluster nodes ... done
  [14:55:48.468]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [local output]  - Parallel setup requested for some PSOCK nodes
  [14:55:48.469]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [local output] Setting up PSOCK nodes in parallel
  [14:55:48.469]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [14:55:45.562] List of 20
  [14:55:45.562]  $ local_cmd     : chr "'/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graph"| __truncated__
  [14:55:45.562]  $ worker        : chr "localhost"
  [14:55:45.562]   ..- attr(*, "localhost")= logi TRUE
  [14:55:45.562]  $ rank          : int 1
  [14:55:45.562]  $ rshlogfile    : NULL
  [14:55:45.562]  $ port          : int 36713
  [14:55:45.562]  $ connectTimeout: num 120
  [14:55:45.562]  $ timeout       : num 2592000
  [14:55:45.562]  $ useXDR        : logi FALSE
  [14:55:45.562]  $ pidfile       : chr "/home/hornik/tmp/scratch/RtmplLCzy6/worker.rank=1.parallelly.parent=206306.325e25ffe3dae.pid"
  [14:55:45.562]  $ setup_strategy: chr "parallel"
  [14:55:45.562]  $ outfile       : chr "/dev/null"
  [14:55:45.562]  $ rshcmd_label  : NULL
  [14:55:45.562]  $ rsh_call      : NULL
  [14:55:45.562]  $ cmd           : chr "'/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graph"| __truncated__
  [14:55:45.562]  $ localMachine  : logi TRUE
  [14:55:45.562]  $ manual        : logi FALSE
  [14:55:45.562]  $ dryrun        : logi FALSE
  [14:55:45.562]  $ quiet         : logi FALSE
  [14:55:45.562]  $ rshcmd        : NULL
  [14:55:45.562]  $ revtunnel     : logi TRUE
  [14:55:45.562]  - attr(*, "class")= chr [1:2] "makeNodePSOCKOptions" "makeNodeOptions"
  [14:55:48.469]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [local output] System call to launch all workers:
  [14:55:48.470]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [local output] '/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmplLCzy6/worker.rank=1.parallelly.parent=206306.325e25ffe3dae.pid")), silent = TRUE)' -e '.libPaths(c("/home/hornik/tmp/scratch/RtmpjgFNe5/RLIBS_244c05bdeca18","/home/hornik/tmp/R.check/r-devel-gcc/Work/build/library"))' -e 'workRSOCK <- tryCatch(parallel:::.workRSOCK, error=function(e) parallel:::.slaveRSOCK); workRSOCK()' MASTER=localhost PORT=36713 OUT=/dev/null TIMEOUT=2592000 XDR=FALSE SETUPTIMEOUT=120 SETUPSTRATEGY=parallel
  [14:55:48.470]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [local output] Starting PSOCK main server
  [14:55:48.470]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [local output] Workers launched
  [14:55:48.471]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [local output] Waiting for workers to connect back
  [14:55:48.471]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [local output] 0 workers out of 2 ready
  [14:55:48.471]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [local output] 0 workers out of 2 ready
  [14:55:48.472]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [local output] 1 workers out of 2 ready
  [14:55:48.472]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [local output] 1 workers out of 2 ready
  [14:55:48.488]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [local output] - collecting session information
  [14:55:48.489]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [14:55:46.422] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
  [14:55:48.489]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [14:55:46.423] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
  [14:55:48.490]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [14:55:46.423]   - Field: 'node'
  [14:55:48.490]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [14:55:46.423]   - Field: 'label'
  [14:55:48.490]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [14:55:46.424]   - Field: 'local'
  [14:55:48.491]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [14:55:46.424]   - Field: 'owner'
  [14:55:48.491]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [14:55:46.424]   - Field: 'envir'
  [14:55:48.491]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [14:55:46.425]   - Field: 'workers'
  [14:55:48.492]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [14:55:46.425]   - Field: 'packages'
  [14:55:48.492]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [14:55:46.425]   - Field: 'gc'
  [14:55:48.492]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [14:55:46.426]   - Field: 'conditions'
  [14:55:48.493]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [14:55:46.426]   - Field: 'persistent'
  [14:55:48.493]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [14:55:46.426]   - Field: 'expr'
  [14:55:48.493]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [14:55:46.426]   - Field: 'uuid'
  [14:55:48.494]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [14:55:46.427]   - Field: 'seed'
  [14:55:48.494]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [14:55:46.427]   - Field: 'version'
  [14:55:48.494]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [14:55:46.427]   - Field: 'result'
  [14:55:48.494]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [14:55:46.428]   - Field: 'asynchronous'
  [14:55:48.495]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [14:55:46.428]   - Field: 'calls'
  [14:55:48.495]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [14:55:46.428]   - Field: 'globals'
  [14:55:48.495]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [14:55:46.429]   - Field: 'stdout'
  [14:55:48.496]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [14:55:46.429]   - Field: 'earlySignal'
  [14:55:48.496]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [14:55:46.429]   - Field: 'lazy'
  [14:55:48.496]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [14:55:46.430]   - Field: 'state'
  [14:55:48.496]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [14:55:46.430] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
  [14:55:48.497]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [14:55:46.430] - Launch lazy future ...
  [14:55:48.497]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [14:55:46.432] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:55:48.497]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [14:55:46.432] Packages needed by future strategies (n = 0): <none>
  [14:55:48.498]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [14:55:46.434] {
  [14:55:46.434]     {
  [14:55:46.434]         ...future.startTime <- base::Sys.time()
  [14:55:46.434]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:55:46.434]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:55:46.434]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:55:46.434]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:55:46.434]             future.resolve.recursive = NULL, future.rng.onMisuse = NULL, 
  [14:55:46.434]             future.rng.onMisuse.keepFuture = NULL, future.stdout.windows.reencode = NULL, 
  [14:55:46.434]             width = 80L)
  [14:55:46.434]         {
  [14:55:46.434]             {
  [14:55:46.434]                 {
  [14:55:46.434]                   {
  [14:55:46.434]                     base::local({
  [14:55:46.434]                       has_future <- base::requireNamespace("future", 
  [14:55:46.434]                         quietly = TRUE)
  [14:55:46.434]                       if (has_future) {
  [14:55:46.434]                         ns <- base::getNamespace("future")
  [14:55:46.434]                         version <- ns[[".package"]][["version"]]
  [14:55:46.434]                         if (is.null(version)) 
  [14:55:46.434]                           version <- utils::packageVersion("future")
  [14:55:46.434]                       }
  [14:55:46.434]                       else {
  [14:55:46.434]                         version <- NULL
  [14:55:46.434]                       }
  [14:55:46.434]                       if (!has_future || version < "1.8.0") {
  [14:55:46.434]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:55:46.434]                           "", base::R.version$version.string), 
  [14:55:46.434]                           platform = base::sprintf("%s (%s-bit)", 
  [14:55:46.434]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:55:46.434]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:55:46.434]                             "release", "version")], collapse = " "), 
  [14:55:46.434]                           hostname = base::Sys.info()[["nodename"]])
  [14:55:46.434]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:55:46.434]                           info)
  [14:55:46.434]                         info <- base::paste(info, collapse = "; ")
  [14:55:46.434]                         if (!has_future) {
  [14:55:46.434]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:55:46.434]                             info)
  [14:55:46.434]                         }
  [14:55:46.434]                         else {
  [14:55:46.434]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:55:46.434]                             info, version)
  [14:55:46.434]                         }
  [14:55:46.434]                         base::stop(msg)
  [14:55:46.434]                       }
  [14:55:46.434]                     })
  [14:55:46.434]                   }
  [14:55:46.434]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:55:46.434]                   base::options(mc.cores = 1L)
  [14:55:46.434]                 }
  [14:55:46.434]                 base::local({
  [14:55:46.434]                   for (pkg in c("doFuture", "utils")) {
  [14:55:46.434]                     base::loadNamespace(pkg)
  [14:55:46.434]                     base::library(pkg, character.only = TRUE)
  [14:55:46.434]                   }
  [14:55:46.434]                 })
  [14:55:46.434]             }
  [14:55:46.434]             options(future.plan = NULL)
  [14:55:46.434]             Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:46.434]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:55:46.434]         }
  [14:55:46.434]     }
  [14:55:46.434]     if (FALSE) {
  [14:55:46.434]     }
  [14:55:46.434]     else {
  [14:55:46.434]         if (TRUE) {
  [14:55:46.434]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:55:46.434]                 open = "w")
  [14:55:46.434]         }
  [14:55:46.434]         else {
  [14:55:46.434]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:55:46.434]                 windows = "NUL", "/dev/null"), open = "w")
  [14:55:46.434]         }
  [14:55:46.434]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:55:46.434]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:55:46.434]             base::sink(type = "output", split = FALSE)
  [14:55:46.434]             base::close(...future.stdout)
  [14:55:46.434]         }, add = TRUE)
  [14:55:46.434]     }
  [14:55:46.434]     ...future.frame <- base::sys.nframe()
  [14:55:46.434]     ...future.conditions <- base::list()
  [14:55:46.434]     ...future.rng <- base::globalenv()$.Random.seed
  [14:55:46.434]     ...future.result <- base::tryCatch({
  [14:55:46.434]         base::withCallingHandlers({
  [14:55:46.434]             ...future.value <- base::withVisible(base::local({
  [14:55:46.434]                 ...future.sendCondition <- local({
  [14:55:46.434]                   sendCondition <- NULL
  [14:55:46.434]                   function(frame = 1L) {
  [14:55:46.434]                     if (is.function(sendCondition)) 
  [14:55:46.434]                       return(sendCondition)
  [14:55:46.434]                     ns <- getNamespace("parallel")
  [14:55:46.434]                     if (exists("sendData", mode = "function", 
  [14:55:46.434]                       envir = ns)) {
  [14:55:46.434]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:55:46.434]                         envir = ns)
  [14:55:46.434]                       envir <- sys.frame(frame)
  [14:55:46.434]                       master <- NULL
  [14:55:46.434]                       while (!identical(envir, .GlobalEnv) && 
  [14:55:46.434]                         !identical(envir, emptyenv())) {
  [14:55:46.434]                         if (exists("master", mode = "list", envir = envir, 
  [14:55:46.434]                           inherits = FALSE)) {
  [14:55:46.434]                           master <- get("master", mode = "list", 
  [14:55:46.434]                             envir = envir, inherits = FALSE)
  [14:55:46.434]                           if (inherits(master, c("SOCKnode", 
  [14:55:46.434]                             "SOCK0node"))) {
  [14:55:46.434]                             sendCondition <<- function(cond) {
  [14:55:46.434]                               data <- list(type = "VALUE", value = cond, 
  [14:55:46.434]                                 success = TRUE)
  [14:55:46.434]                               parallel_sendData(master, data)
  [14:55:46.434]                             }
  [14:55:46.434]                             return(sendCondition)
  [14:55:46.434]                           }
  [14:55:46.434]                         }
  [14:55:46.434]                         frame <- frame + 1L
  [14:55:46.434]                         envir <- sys.frame(frame)
  [14:55:46.434]                       }
  [14:55:46.434]                     }
  [14:55:46.434]                     sendCondition <<- function(cond) NULL
  [14:55:46.434]                   }
  [14:55:46.434]                 })
  [14:55:46.434]                 withCallingHandlers({
  [14:55:46.434]                   {
  [14:55:46.434]                     doFuture::registerDoFuture()
  [14:55:46.434]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:46.434]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:46.434]                       b <- NULL
  [14:55:46.434]                       ...future.env <- environment()
  [14:55:46.434]                       local({
  [14:55:46.434]                         for (name in names(...future.x_jj)) {
  [14:55:46.434]                           assign(name, ...future.x_jj[[name]], 
  [14:55:46.434]                             envir = ...future.env, inherits = FALSE)
  [14:55:46.434]                         }
  [14:55:46.434]                       })
  [14:55:46.434]                       tryCatch({
  [14:55:46.434]                         plan_list <- future::plan("next")
  [14:55:46.434]                         message(capture.output(print(plan_list)))
  [14:55:46.434]                         stopifnot(inherits(plan_list, "future"))
  [14:55:46.434]                         default <- getOption("future.plan", "sequential")
  [14:55:46.434]                         if (is.function(default)) 
  [14:55:46.434]                           default <- class(default)
  [14:55:46.434]                         stopifnot(inherits(plan_list, default))
  [14:55:46.434]                         plan_b <- future::plan("list")
  [14:55:46.434]                         str(plan_b)
  [14:55:46.434]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:46.434]                           inherits(plan_b[[1]], default))
  [14:55:46.434]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:46.434]                       }, error = identity)
  [14:55:46.434]                     })
  [14:55:46.434]                   }
  [14:55:46.434]                 }, immediateCondition = function(cond) {
  [14:55:46.434]                   sendCondition <- ...future.sendCondition()
  [14:55:46.434]                   sendCondition(cond)
  [14:55:46.434]                   muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:46.434]                   {
  [14:55:46.434]                     inherits <- base::inherits
  [14:55:46.434]                     invokeRestart <- base::invokeRestart
  [14:55:46.434]                     is.null <- base::is.null
  [14:55:46.434]                     muffled <- FALSE
  [14:55:46.434]                     if (inherits(cond, "message")) {
  [14:55:46.434]                       muffled <- grepl(pattern, "muffleMessage")
  [14:55:46.434]                       if (muffled) 
  [14:55:46.434]                         invokeRestart("muffleMessage")
  [14:55:46.434]                     }
  [14:55:46.434]                     else if (inherits(cond, "warning")) {
  [14:55:46.434]                       muffled <- grepl(pattern, "muffleWarning")
  [14:55:46.434]                       if (muffled) 
  [14:55:46.434]                         invokeRestart("muffleWarning")
  [14:55:46.434]                     }
  [14:55:46.434]                     else if (inherits(cond, "condition")) {
  [14:55:46.434]                       if (!is.null(pattern)) {
  [14:55:46.434]                         computeRestarts <- base::computeRestarts
  [14:55:46.434]                         grepl <- base::grepl
  [14:55:46.434]                         restarts <- computeRestarts(cond)
  [14:55:46.434]                         for (restart in restarts) {
  [14:55:46.434]                           name <- restart$name
  [14:55:46.434]                           if (is.null(name)) 
  [14:55:46.434]                             next
  [14:55:46.434]                           if (!grepl(pattern, name)) 
  [14:55:46.434]                             next
  [14:55:46.434]                           invokeRestart(restart)
  [14:55:46.434]                           muffled <- TRUE
  [14:55:46.434]                           break
  [14:55:46.434]                         }
  [14:55:46.434]                       }
  [14:55:46.434]                     }
  [14:55:46.434]                     invisible(muffled)
  [14:55:46.434]                   }
  [14:55:46.434]                   muffleCondition(cond)
  [14:55:46.434]                 })
  [14:55:46.434]             }))
  [14:55:46.434]             future::FutureResult(value = ...future.value$value, 
  [14:55:46.434]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:46.434]                   ...future.rng), started = ...future.startTime, 
  [14:55:46.434]                 version = "1.8")
  [14:55:46.434]         }, condition = base::local({
  [14:55:46.434]             c <- base::c
  [14:55:46.434]             inherits <- base::inherits
  [14:55:46.434]             invokeRestart <- base::invokeRestart
  [14:55:46.434]             length <- base::length
  [14:55:46.434]             list <- base::list
  [14:55:46.434]             seq.int <- base::seq.int
  [14:55:46.434]             signalCondition <- base::signalCondition
  [14:55:46.434]             sys.calls <- base::sys.calls
  [14:55:46.434]             `[[` <- base::`[[`
  [14:55:46.434]             `+` <- base::`+`
  [14:55:46.434]             `<<-` <- base::`<<-`
  [14:55:46.434]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:55:46.434]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:55:46.434]                   3L)]
  [14:55:46.434]             }
  [14:55:46.434]             function(cond) {
  [14:55:46.434]                 is_error <- inherits(cond, "error")
  [14:55:46.434]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:55:46.434]                   NULL)
  [14:55:46.434]                 if (is_error) {
  [14:55:46.434]                   sessionInformation <- function() {
  [14:55:46.434]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:55:46.434]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:55:46.434]                       search = base::search(), system = base::Sys.info())
  [14:55:46.434]                   }
  [14:55:46.434]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:46.434]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:55:46.434]                     cond$call), session = sessionInformation(), 
  [14:55:46.434]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:55:46.434]                   signalCondition(cond)
  [14:55:46.434]                 }
  [14:55:46.434]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:55:46.434]                 "immediateCondition"))) {
  [14:55:46.434]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:55:46.434]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:46.434]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:55:46.434]                   if (TRUE && !signal) {
  [14:55:46.434]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:46.434]                     {
  [14:55:46.434]                       inherits <- base::inherits
  [14:55:46.434]                       invokeRestart <- base::invokeRestart
  [14:55:46.434]                       is.null <- base::is.null
  [14:55:46.434]                       muffled <- FALSE
  [14:55:46.434]                       if (inherits(cond, "message")) {
  [14:55:46.434]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:46.434]                         if (muffled) 
  [14:55:46.434]                           invokeRestart("muffleMessage")
  [14:55:46.434]                       }
  [14:55:46.434]                       else if (inherits(cond, "warning")) {
  [14:55:46.434]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:46.434]                         if (muffled) 
  [14:55:46.434]                           invokeRestart("muffleWarning")
  [14:55:46.434]                       }
  [14:55:46.434]                       else if (inherits(cond, "condition")) {
  [14:55:46.434]                         if (!is.null(pattern)) {
  [14:55:46.434]                           computeRestarts <- base::computeRestarts
  [14:55:46.434]                           grepl <- base::grepl
  [14:55:46.434]                           restarts <- computeRestarts(cond)
  [14:55:46.434]                           for (restart in restarts) {
  [14:55:46.434]                             name <- restart$name
  [14:55:46.434]                             if (is.null(name)) 
  [14:55:46.434]                               next
  [14:55:46.434]                             if (!grepl(pattern, name)) 
  [14:55:46.434]                               next
  [14:55:46.434]                             invokeRestart(restart)
  [14:55:46.434]                             muffled <- TRUE
  [14:55:46.434]                             break
  [14:55:46.434]                           }
  [14:55:46.434]                         }
  [14:55:46.434]                       }
  [14:55:46.434]                       invisible(muffled)
  [14:55:46.434]                     }
  [14:55:46.434]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:46.434]                   }
  [14:55:46.434]                 }
  [14:55:46.434]                 else {
  [14:55:46.434]                   if (TRUE) {
  [14:55:46.434]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:46.434]                     {
  [14:55:46.434]                       inherits <- base::inherits
  [14:55:46.434]                       invokeRestart <- base::invokeRestart
  [14:55:46.434]                       is.null <- base::is.null
  [14:55:46.434]                       muffled <- FALSE
  [14:55:46.434]                       if (inherits(cond, "message")) {
  [14:55:46.434]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:46.434]                         if (muffled) 
  [14:55:46.434]                           invokeRestart("muffleMessage")
  [14:55:46.434]                       }
  [14:55:46.434]                       else if (inherits(cond, "warning")) {
  [14:55:46.434]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:46.434]                         if (muffled) 
  [14:55:46.434]                           invokeRestart("muffleWarning")
  [14:55:46.434]                       }
  [14:55:46.434]                       else if (inherits(cond, "condition")) {
  [14:55:46.434]                         if (!is.null(pattern)) {
  [14:55:46.434]                           computeRestarts <- base::computeRestarts
  [14:55:46.434]                           grepl <- base::grepl
  [14:55:46.434]                           restarts <- computeRestarts(cond)
  [14:55:46.434]                           for (restart in restarts) {
  [14:55:46.434]                             name <- restart$name
  [14:55:46.434]                             if (is.null(name)) 
  [14:55:46.434]                               next
  [14:55:46.434]                             if (!grepl(pattern, name)) 
  [14:55:46.434]                               next
  [14:55:46.434]                             invokeRestart(restart)
  [14:55:46.434]                             muffled <- TRUE
  [14:55:46.434]                             break
  [14:55:46.434]                           }
  [14:55:46.434]                         }
  [14:55:46.434]                       }
  [14:55:46.434]                       invisible(muffled)
  [14:55:46.434]                     }
  [14:55:46.434]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:46.434]                   }
  [14:55:46.434]                 }
  [14:55:46.434]             }
  [14:55:46.434]         }))
  [14:55:46.434]     }, error = function(ex) {
  [14:55:46.434]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:55:46.434]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:46.434]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:55:46.434]     }, finally = {
  [14:55:46.434]         {
  [14:55:46.434]             {
  [14:55:46.434]                 NULL
  [14:55:46.434]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:55:46.434]             }
  [14:55:46.434]             options(future.plan = NULL)
  [14:55:46.434]             if (is.na(NA_character_)) 
  [14:55:46.434]                 Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:46.434]             else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:55:46.434]             future::plan(list(b = function (..., workers = availableCores(), 
  [14:55:46.434]                 lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 
  [14:55:46.434]             {
  [14:55:46.434]                 if (is.function(workers)) 
  [14:55:46.434]                   workers <- workers()
  [14:55:46.434]                 workers <- as.integer(workers)
  [14:55:46.434]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:55:46.434]                   workers >= 1)
  [14:55:46.434]                 if (workers == 1L) {
  [14:55:46.434]                   return(sequential(..., lazy = TRUE, envir = envir))
  [14:55:46.434]                 }
  [14:55:46.434]                 future <- MultisessionFuture(..., workers = workers, 
  [14:55:46.434]                   lazy = lazy, rscript_libs = rscript_libs, envir = envir)
  [14:55:46.434]                 if (!future$lazy) 
  [14:55:46.434]                   future <- run(future)
  [14:55:46.434]                 invisible(future)
  [14:55:46.434]             }), .cleanup = FALSE, .init = FALSE)
  [14:55:46.434]         }
  [14:55:46.434]         base::options(...future.oldOptions)
  [14:55:46.434]     })
  [14:55:46.434]     if (TRUE) {
  [14:55:46.434]         base::sink(type = "output", split = FALSE)
  [14:55:46.434]         if (TRUE) {
  [14:55:46.434]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:55:46.434]         }
  [14:55:46.434]         else {
  [14:55:46.434]             ...future.result["stdout"] <- base::list(NULL)
  [14:55:46.434]         }
  [14:55:46.434]         base::close(...future.stdout)
  [14:55:46.434]         ...future.stdout <- NULL
  [14:55:46.434]     }
  [14:55:46.434]     ...future.result$conditions <- ...future.conditions
  [14:55:46.434]     ...future.result
  [14:55:46.434] }
  [14:55:48.498]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [14:55:46.643] Exporting 3 global objects (36.01 KiB) to cluster node #1 ...
  [14:55:48.498]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [14:55:46.644] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
  [14:55:48.498]  - Condition #104: 'simpleMessage', 'message', 'condition'
  [14:55:46.645] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
  [14:55:48.499]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [14:55:46.645] Exporting 'a' (56 bytes) to cluster node #1 ...
  [14:55:48.499]  - Condition #106: 'simpleMessage', 'message', 'condition'
  [14:55:46.646] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
  [14:55:48.499]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [14:55:46.647] Exporting 'plan_a' (35.95 KiB) to cluster node #1 ...
  [14:55:48.500]  - Condition #108: 'simpleMessage', 'message', 'condition'
  [14:55:46.648] Exporting 'plan_a' (35.95 KiB) to cluster node #1 ... DONE
  [14:55:48.500]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [14:55:46.648] Exporting 3 global objects (36.01 KiB) to cluster node #1 ... DONE
  [14:55:48.500]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [14:55:46.650] MultisessionFuture started
  [14:55:48.500]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [14:55:46.650] - Launch lazy future ... done
  [14:55:48.501]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [14:55:46.650] run() for 'MultisessionFuture' ... done
  [14:55:48.501]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [14:55:46.651] Chunk #1 of 2 ... DONE
  [14:55:48.501]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [14:55:46.651] Chunk #2 of 2 ...
  [14:55:48.502]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [14:55:46.651]  - Finding globals in 'args_list' chunk #2 ...
  [14:55:48.502]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [14:55:46.652] getGlobalsAndPackages() ...
  [14:55:48.502]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [14:55:46.652] Searching for globals...
  [14:55:48.502]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [14:55:46.653] 
  [14:55:48.503]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [14:55:46.653] Searching for globals ... DONE
  [14:55:48.503]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [14:55:46.654] - globals: [0] <none>
  [14:55:48.503]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [14:55:46.654] getGlobalsAndPackages() ... DONE
  [14:55:48.504]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [14:55:46.654] 
  [14:55:48.504]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [14:55:46.654] 
  [14:55:48.516]  - Condition #124: 'simpleMessage', 'message', 'condition'
  [14:55:46.655]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:55:48.517]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [14:55:46.655] getGlobalsAndPackages() ...
  [14:55:48.517]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [14:55:46.655] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:48.517]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [14:55:46.656] Resolving globals: FALSE
  [14:55:48.518]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [14:55:46.656] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:48.518]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [14:55:46.657] 
  [14:55:48.518]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [14:55:46.657] getGlobalsAndPackages() ... DONE
  [14:55:48.519]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [14:55:46.658] run() for 'Future' ...
  [14:55:48.519]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [14:55:46.658] - state: 'created'
  [14:55:48.519]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [14:55:46.658] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
  [14:55:48.520]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [14:55:46.692] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
  [14:55:48.520]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [14:55:46.693] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
  [14:55:48.520]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [14:55:46.693]   - Field: 'node'
  [14:55:48.521]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [14:55:46.693]   - Field: 'label'
  [14:55:48.521]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [14:55:46.694]   - Field: 'local'
  [14:55:48.521]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [14:55:46.694]   - Field: 'owner'
  [14:55:48.522]  - Condition #140: 'simpleMessage', 'message', 'condition'
  [14:55:46.694]   - Field: 'envir'
  [14:55:48.522]  - Condition #141: 'simpleMessage', 'message', 'condition'
  [14:55:46.695]   - Field: 'workers'
  [14:55:48.522]  - Condition #142: 'simpleMessage', 'message', 'condition'
  [14:55:46.695]   - Field: 'packages'
  [14:55:48.523]  - Condition #143: 'simpleMessage', 'message', 'condition'
  [14:55:46.695]   - Field: 'gc'
  [14:55:48.523]  - Condition #144: 'simpleMessage', 'message', 'condition'
  [14:55:46.695]   - Field: 'conditions'
  [14:55:48.523]  - Condition #145: 'simpleMessage', 'message', 'condition'
  [14:55:46.696]   - Field: 'persistent'
  [14:55:48.524]  - Condition #146: 'simpleMessage', 'message', 'condition'
  [14:55:46.696]   - Field: 'expr'
  [14:55:48.524]  - Condition #147: 'simpleMessage', 'message', 'condition'
  [14:55:46.698]   - Field: 'uuid'
  [14:55:48.524]  - Condition #148: 'simpleMessage', 'message', 'condition'
  [14:55:46.698]   - Field: 'seed'
  [14:55:48.525]  - Condition #149: 'simpleMessage', 'message', 'condition'
  [14:55:46.699]   - Field: 'version'
  [14:55:48.525]  - Condition #150: 'simpleMessage', 'message', 'condition'
  [14:55:46.699]   - Field: 'result'
  [14:55:48.525]  - Condition #151: 'simpleMessage', 'message', 'condition'
  [14:55:46.699]   - Field: 'asynchronous'
  [14:55:48.526]  - Condition #152: 'simpleMessage', 'message', 'condition'
  [14:55:46.699]   - Field: 'calls'
  [14:55:48.526]  - Condition #153: 'simpleMessage', 'message', 'condition'
  [14:55:46.700]   - Field: 'globals'
  [14:55:48.526]  - Condition #154: 'simpleMessage', 'message', 'condition'
  [14:55:46.700]   - Field: 'stdout'
  [14:55:48.526]  - Condition #155: 'simpleMessage', 'message', 'condition'
  [14:55:46.700]   - Field: 'earlySignal'
  [14:55:48.527]  - Condition #156: 'simpleMessage', 'message', 'condition'
  [14:55:46.701]   - Field: 'lazy'
  [14:55:48.527]  - Condition #157: 'simpleMessage', 'message', 'condition'
  [14:55:46.701]   - Field: 'state'
  [14:55:48.527]  - Condition #158: 'simpleMessage', 'message', 'condition'
  [14:55:46.701] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
  [14:55:48.528]  - Condition #159: 'simpleMessage', 'message', 'condition'
  [14:55:46.702] - Launch lazy future ...
  [14:55:48.528]  - Condition #160: 'simpleMessage', 'message', 'condition'
  [14:55:46.702] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:55:48.528]  - Condition #161: 'simpleMessage', 'message', 'condition'
  [14:55:46.703] Packages needed by future strategies (n = 0): <none>
  [14:55:48.529]  - Condition #162: 'simpleMessage', 'message', 'condition'
  [14:55:46.704] {
  [14:55:46.704]     {
  [14:55:46.704]         ...future.startTime <- base::Sys.time()
  [14:55:46.704]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:55:46.704]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:55:46.704]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:55:46.704]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:55:46.704]             future.resolve.recursive = NULL, future.rng.onMisuse = NULL, 
  [14:55:46.704]             future.rng.onMisuse.keepFuture = NULL, future.stdout.windows.reencode = NULL, 
  [14:55:46.704]             width = 80L)
  [14:55:46.704]         {
  [14:55:46.704]             {
  [14:55:46.704]                 {
  [14:55:46.704]                   {
  [14:55:46.704]                     base::local({
  [14:55:46.704]                       has_future <- base::requireNamespace("future", 
  [14:55:46.704]                         quietly = TRUE)
  [14:55:46.704]                       if (has_future) {
  [14:55:46.704]                         ns <- base::getNamespace("future")
  [14:55:46.704]                         version <- ns[[".package"]][["version"]]
  [14:55:46.704]                         if (is.null(version)) 
  [14:55:46.704]                           version <- utils::packageVersion("future")
  [14:55:46.704]                       }
  [14:55:46.704]                       else {
  [14:55:46.704]                         version <- NULL
  [14:55:46.704]                       }
  [14:55:46.704]                       if (!has_future || version < "1.8.0") {
  [14:55:46.704]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:55:46.704]                           "", base::R.version$version.string), 
  [14:55:46.704]                           platform = base::sprintf("%s (%s-bit)", 
  [14:55:46.704]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:55:46.704]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:55:46.704]                             "release", "version")], collapse = " "), 
  [14:55:46.704]                           hostname = base::Sys.info()[["nodename"]])
  [14:55:46.704]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:55:46.704]                           info)
  [14:55:46.704]                         info <- base::paste(info, collapse = "; ")
  [14:55:46.704]                         if (!has_future) {
  [14:55:46.704]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:55:46.704]                             info)
  [14:55:46.704]                         }
  [14:55:46.704]                         else {
  [14:55:46.704]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:55:46.704]                             info, version)
  [14:55:46.704]                         }
  [14:55:46.704]                         base::stop(msg)
  [14:55:46.704]                       }
  [14:55:46.704]                     })
  [14:55:46.704]                   }
  [14:55:46.704]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:55:46.704]                   base::options(mc.cores = 1L)
  [14:55:46.704]                 }
  [14:55:46.704]                 base::local({
  [14:55:46.704]                   for (pkg in c("doFuture", "utils")) {
  [14:55:46.704]                     base::loadNamespace(pkg)
  [14:55:46.704]                     base::library(pkg, character.only = TRUE)
  [14:55:46.704]                   }
  [14:55:46.704]                 })
  [14:55:46.704]             }
  [14:55:46.704]             options(future.plan = NULL)
  [14:55:46.704]             Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:46.704]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:55:46.704]         }
  [14:55:46.704]     }
  [14:55:46.704]     if (FALSE) {
  [14:55:46.704]     }
  [14:55:46.704]     else {
  [14:55:46.704]         if (TRUE) {
  [14:55:46.704]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:55:46.704]                 open = "w")
  [14:55:46.704]         }
  [14:55:46.704]         else {
  [14:55:46.704]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:55:46.704]                 windows = "NUL", "/dev/null"), open = "w")
  [14:55:46.704]         }
  [14:55:46.704]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:55:46.704]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:55:46.704]             base::sink(type = "output", split = FALSE)
  [14:55:46.704]             base::close(...future.stdout)
  [14:55:46.704]         }, add = TRUE)
  [14:55:46.704]     }
  [14:55:46.704]     ...future.frame <- base::sys.nframe()
  [14:55:46.704]     ...future.conditions <- base::list()
  [14:55:46.704]     ...future.rng <- base::globalenv()$.Random.seed
  [14:55:46.704]     ...future.result <- base::tryCatch({
  [14:55:46.704]         base::withCallingHandlers({
  [14:55:46.704]             ...future.value <- base::withVisible(base::local({
  [14:55:46.704]                 ...future.sendCondition <- local({
  [14:55:46.704]                   sendCondition <- NULL
  [14:55:46.704]                   function(frame = 1L) {
  [14:55:46.704]                     if (is.function(sendCondition)) 
  [14:55:46.704]                       return(sendCondition)
  [14:55:46.704]                     ns <- getNamespace("parallel")
  [14:55:46.704]                     if (exists("sendData", mode = "function", 
  [14:55:46.704]                       envir = ns)) {
  [14:55:46.704]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:55:46.704]                         envir = ns)
  [14:55:46.704]                       envir <- sys.frame(frame)
  [14:55:46.704]                       master <- NULL
  [14:55:46.704]                       while (!identical(envir, .GlobalEnv) && 
  [14:55:46.704]                         !identical(envir, emptyenv())) {
  [14:55:46.704]                         if (exists("master", mode = "list", envir = envir, 
  [14:55:46.704]                           inherits = FALSE)) {
  [14:55:46.704]                           master <- get("master", mode = "list", 
  [14:55:46.704]                             envir = envir, inherits = FALSE)
  [14:55:46.704]                           if (inherits(master, c("SOCKnode", 
  [14:55:46.704]                             "SOCK0node"))) {
  [14:55:46.704]                             sendCondition <<- function(cond) {
  [14:55:46.704]                               data <- list(type = "VALUE", value = cond, 
  [14:55:46.704]                                 success = TRUE)
  [14:55:46.704]                               parallel_sendData(master, data)
  [14:55:46.704]                             }
  [14:55:46.704]                             return(sendCondition)
  [14:55:46.704]                           }
  [14:55:46.704]                         }
  [14:55:46.704]                         frame <- frame + 1L
  [14:55:46.704]                         envir <- sys.frame(frame)
  [14:55:46.704]                       }
  [14:55:46.704]                     }
  [14:55:46.704]                     sendCondition <<- function(cond) NULL
  [14:55:46.704]                   }
  [14:55:46.704]                 })
  [14:55:46.704]                 withCallingHandlers({
  [14:55:46.704]                   {
  [14:55:46.704]                     doFuture::registerDoFuture()
  [14:55:46.704]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:46.704]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:46.704]                       b <- NULL
  [14:55:46.704]                       ...future.env <- environment()
  [14:55:46.704]                       local({
  [14:55:46.704]                         for (name in names(...future.x_jj)) {
  [14:55:46.704]                           assign(name, ...future.x_jj[[name]], 
  [14:55:46.704]                             envir = ...future.env, inherits = FALSE)
  [14:55:46.704]                         }
  [14:55:46.704]                       })
  [14:55:46.704]                       tryCatch({
  [14:55:46.704]                         plan_list <- future::plan("next")
  [14:55:46.704]                         message(capture.output(print(plan_list)))
  [14:55:46.704]                         stopifnot(inherits(plan_list, "future"))
  [14:55:46.704]                         default <- getOption("future.plan", "sequential")
  [14:55:46.704]                         if (is.function(default)) 
  [14:55:46.704]                           default <- class(default)
  [14:55:46.704]                         stopifnot(inherits(plan_list, default))
  [14:55:46.704]                         plan_b <- future::plan("list")
  [14:55:46.704]                         str(plan_b)
  [14:55:46.704]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:46.704]                           inherits(plan_b[[1]], default))
  [14:55:46.704]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:46.704]                       }, error = identity)
  [14:55:46.704]                     })
  [14:55:46.704]                   }
  [14:55:46.704]                 }, immediateCondition = function(cond) {
  [14:55:46.704]                   sendCondition <- ...future.sendCondition()
  [14:55:46.704]                   sendCondition(cond)
  [14:55:46.704]                   muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:46.704]                   {
  [14:55:46.704]                     inherits <- base::inherits
  [14:55:46.704]                     invokeRestart <- base::invokeRestart
  [14:55:46.704]                     is.null <- base::is.null
  [14:55:46.704]                     muffled <- FALSE
  [14:55:46.704]                     if (inherits(cond, "message")) {
  [14:55:46.704]                       muffled <- grepl(pattern, "muffleMessage")
  [14:55:46.704]                       if (muffled) 
  [14:55:46.704]                         invokeRestart("muffleMessage")
  [14:55:46.704]                     }
  [14:55:46.704]                     else if (inherits(cond, "warning")) {
  [14:55:46.704]                       muffled <- grepl(pattern, "muffleWarning")
  [14:55:46.704]                       if (muffled) 
  [14:55:46.704]                         invokeRestart("muffleWarning")
  [14:55:46.704]                     }
  [14:55:46.704]                     else if (inherits(cond, "condition")) {
  [14:55:46.704]                       if (!is.null(pattern)) {
  [14:55:46.704]                         computeRestarts <- base::computeRestarts
  [14:55:46.704]                         grepl <- base::grepl
  [14:55:46.704]                         restarts <- computeRestarts(cond)
  [14:55:46.704]                         for (restart in restarts) {
  [14:55:46.704]                           name <- restart$name
  [14:55:46.704]                           if (is.null(name)) 
  [14:55:46.704]                             next
  [14:55:46.704]                           if (!grepl(pattern, name)) 
  [14:55:46.704]                             next
  [14:55:46.704]                           invokeRestart(restart)
  [14:55:46.704]                           muffled <- TRUE
  [14:55:46.704]                           break
  [14:55:46.704]                         }
  [14:55:46.704]                       }
  [14:55:46.704]                     }
  [14:55:46.704]                     invisible(muffled)
  [14:55:46.704]                   }
  [14:55:46.704]                   muffleCondition(cond)
  [14:55:46.704]                 })
  [14:55:46.704]             }))
  [14:55:46.704]             future::FutureResult(value = ...future.value$value, 
  [14:55:46.704]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:46.704]                   ...future.rng), started = ...future.startTime, 
  [14:55:46.704]                 version = "1.8")
  [14:55:46.704]         }, condition = base::local({
  [14:55:46.704]             c <- base::c
  [14:55:46.704]             inherits <- base::inherits
  [14:55:46.704]             invokeRestart <- base::invokeRestart
  [14:55:46.704]             length <- base::length
  [14:55:46.704]             list <- base::list
  [14:55:46.704]             seq.int <- base::seq.int
  [14:55:46.704]             signalCondition <- base::signalCondition
  [14:55:46.704]             sys.calls <- base::sys.calls
  [14:55:46.704]             `[[` <- base::`[[`
  [14:55:46.704]             `+` <- base::`+`
  [14:55:46.704]             `<<-` <- base::`<<-`
  [14:55:46.704]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:55:46.704]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:55:46.704]                   3L)]
  [14:55:46.704]             }
  [14:55:46.704]             function(cond) {
  [14:55:46.704]                 is_error <- inherits(cond, "error")
  [14:55:46.704]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:55:46.704]                   NULL)
  [14:55:46.704]                 if (is_error) {
  [14:55:46.704]                   sessionInformation <- function() {
  [14:55:46.704]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:55:46.704]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:55:46.704]                       search = base::search(), system = base::Sys.info())
  [14:55:46.704]                   }
  [14:55:46.704]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:46.704]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:55:46.704]                     cond$call), session = sessionInformation(), 
  [14:55:46.704]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:55:46.704]                   signalCondition(cond)
  [14:55:46.704]                 }
  [14:55:46.704]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:55:46.704]                 "immediateCondition"))) {
  [14:55:46.704]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:55:46.704]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:46.704]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:55:46.704]                   if (TRUE && !signal) {
  [14:55:46.704]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:46.704]                     {
  [14:55:46.704]                       inherits <- base::inherits
  [14:55:46.704]                       invokeRestart <- base::invokeRestart
  [14:55:46.704]                       is.null <- base::is.null
  [14:55:46.704]                       muffled <- FALSE
  [14:55:46.704]                       if (inherits(cond, "message")) {
  [14:55:46.704]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:46.704]                         if (muffled) 
  [14:55:46.704]                           invokeRestart("muffleMessage")
  [14:55:46.704]                       }
  [14:55:46.704]                       else if (inherits(cond, "warning")) {
  [14:55:46.704]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:46.704]                         if (muffled) 
  [14:55:46.704]                           invokeRestart("muffleWarning")
  [14:55:46.704]                       }
  [14:55:46.704]                       else if (inherits(cond, "condition")) {
  [14:55:46.704]                         if (!is.null(pattern)) {
  [14:55:46.704]                           computeRestarts <- base::computeRestarts
  [14:55:46.704]                           grepl <- base::grepl
  [14:55:46.704]                           restarts <- computeRestarts(cond)
  [14:55:46.704]                           for (restart in restarts) {
  [14:55:46.704]                             name <- restart$name
  [14:55:46.704]                             if (is.null(name)) 
  [14:55:46.704]                               next
  [14:55:46.704]                             if (!grepl(pattern, name)) 
  [14:55:46.704]                               next
  [14:55:46.704]                             invokeRestart(restart)
  [14:55:46.704]                             muffled <- TRUE
  [14:55:46.704]                             break
  [14:55:46.704]                           }
  [14:55:46.704]                         }
  [14:55:46.704]                       }
  [14:55:46.704]                       invisible(muffled)
  [14:55:46.704]                     }
  [14:55:46.704]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:46.704]                   }
  [14:55:46.704]                 }
  [14:55:46.704]                 else {
  [14:55:46.704]                   if (TRUE) {
  [14:55:46.704]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:46.704]                     {
  [14:55:46.704]                       inherits <- base::inherits
  [14:55:46.704]                       invokeRestart <- base::invokeRestart
  [14:55:46.704]                       is.null <- base::is.null
  [14:55:46.704]                       muffled <- FALSE
  [14:55:46.704]                       if (inherits(cond, "message")) {
  [14:55:46.704]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:46.704]                         if (muffled) 
  [14:55:46.704]                           invokeRestart("muffleMessage")
  [14:55:46.704]                       }
  [14:55:46.704]                       else if (inherits(cond, "warning")) {
  [14:55:46.704]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:46.704]                         if (muffled) 
  [14:55:46.704]                           invokeRestart("muffleWarning")
  [14:55:46.704]                       }
  [14:55:46.704]                       else if (inherits(cond, "condition")) {
  [14:55:46.704]                         if (!is.null(pattern)) {
  [14:55:46.704]                           computeRestarts <- base::computeRestarts
  [14:55:46.704]                           grepl <- base::grepl
  [14:55:46.704]                           restarts <- computeRestarts(cond)
  [14:55:46.704]                           for (restart in restarts) {
  [14:55:46.704]                             name <- restart$name
  [14:55:46.704]                             if (is.null(name)) 
  [14:55:46.704]                               next
  [14:55:46.704]                             if (!grepl(pattern, name)) 
  [14:55:46.704]                               next
  [14:55:46.704]                             invokeRestart(restart)
  [14:55:46.704]                             muffled <- TRUE
  [14:55:46.704]                             break
  [14:55:46.704]                           }
  [14:55:46.704]                         }
  [14:55:46.704]                       }
  [14:55:46.704]                       invisible(muffled)
  [14:55:46.704]                     }
  [14:55:46.704]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:46.704]                   }
  [14:55:46.704]                 }
  [14:55:46.704]             }
  [14:55:46.704]         }))
  [14:55:46.704]     }, error = function(ex) {
  [14:55:46.704]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:55:46.704]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:46.704]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:55:46.704]     }, finally = {
  [14:55:46.704]         {
  [14:55:46.704]             {
  [14:55:46.704]                 NULL
  [14:55:46.704]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:55:46.704]             }
  [14:55:46.704]             options(future.plan = NULL)
  [14:55:46.704]             if (is.na(NA_character_)) 
  [14:55:46.704]                 Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:46.704]             else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:55:46.704]             future::plan(list(b = function (..., workers = availableCores(), 
  [14:55:46.704]                 lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 
  [14:55:46.704]             {
  [14:55:46.704]                 if (is.function(workers)) 
  [14:55:46.704]                   workers <- workers()
  [14:55:46.704]                 workers <- as.integer(workers)
  [14:55:46.704]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:55:46.704]                   workers >= 1)
  [14:55:46.704]                 if (workers == 1L) {
  [14:55:46.704]                   return(sequential(..., lazy = TRUE, envir = envir))
  [14:55:46.704]                 }
  [14:55:46.704]                 future <- MultisessionFuture(..., workers = workers, 
  [14:55:46.704]                   lazy = lazy, rscript_libs = rscript_libs, envir = envir)
  [14:55:46.704]                 if (!future$lazy) 
  [14:55:46.704]                   future <- run(future)
  [14:55:46.704]                 invisible(future)
  [14:55:46.704]             }), .cleanup = FALSE, .init = FALSE)
  [14:55:46.704]         }
  [14:55:46.704]         base::options(...future.oldOptions)
  [14:55:46.704]     })
  [14:55:46.704]     if (TRUE) {
  [14:55:46.704]         base::sink(type = "output", split = FALSE)
  [14:55:46.704]         if (TRUE) {
  [14:55:46.704]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:55:46.704]         }
  [14:55:46.704]         else {
  [14:55:46.704]             ...future.result["stdout"] <- base::list(NULL)
  [14:55:46.704]         }
  [14:55:46.704]         base::close(...future.stdout)
  [14:55:46.704]         ...future.stdout <- NULL
  [14:55:46.704]     }
  [14:55:46.704]     ...future.result$conditions <- ...future.conditions
  [14:55:46.704]     ...future.result
  [14:55:46.704] }
  [14:55:48.529]  - Condition #163: 'simpleMessage', 'message', 'condition'
  [14:55:46.973] Exporting 3 global objects (36.01 KiB) to cluster node #2 ...
  [14:55:48.529]  - Condition #164: 'simpleMessage', 'message', 'condition'
  [14:55:46.974] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ...
  [14:55:48.530]  - Condition #165: 'simpleMessage', 'message', 'condition'
  [14:55:46.997] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ... DONE
  [14:55:48.530]  - Condition #166: 'simpleMessage', 'message', 'condition'
  [14:55:46.997] Exporting 'a' (56 bytes) to cluster node #2 ...
  [14:55:48.530]  - Condition #167: 'simpleMessage', 'message', 'condition'
  [14:55:46.998] Exporting 'a' (56 bytes) to cluster node #2 ... DONE
  [14:55:48.530]  - Condition #168: 'simpleMessage', 'message', 'condition'
  [14:55:46.999] Exporting 'plan_a' (35.95 KiB) to cluster node #2 ...
  [14:55:48.531]  - Condition #169: 'simpleMessage', 'message', 'condition'
  [14:55:47.000] Exporting 'plan_a' (35.95 KiB) to cluster node #2 ... DONE
  [14:55:48.531]  - Condition #170: 'simpleMessage', 'message', 'condition'
  [14:55:47.000] Exporting 3 global objects (36.01 KiB) to cluster node #2 ... DONE
  [14:55:48.531]  - Condition #171: 'simpleMessage', 'message', 'condition'
  [14:55:47.001] MultisessionFuture started
  [14:55:48.532]  - Condition #172: 'simpleMessage', 'message', 'condition'
  [14:55:47.001] - Launch lazy future ... done
  [14:55:48.532]  - Condition #173: 'simpleMessage', 'message', 'condition'
  [14:55:47.002] run() for 'MultisessionFuture' ... done
  [14:55:48.532]  - Condition #174: 'simpleMessage', 'message', 'condition'
  [14:55:47.002] Chunk #2 of 2 ... DONE
  [14:55:48.533]  - Condition #175: 'simpleMessage', 'message', 'condition'
  [14:55:47.002] Launching 2 futures (chunks) ... DONE
  [14:55:48.533]  - Condition #176: 'simpleMessage', 'message', 'condition'
  [14:55:47.003] - resolving futures
  [14:55:48.533]  - Condition #177: 'simpleMessage', 'message', 'condition'
  [14:55:47.003]   - gathering results & relaying conditions (except errors)
  [14:55:48.533]  - Condition #178: 'simpleMessage', 'message', 'condition'
  [14:55:47.003] resolve() on list ...
  [14:55:48.534]  - Condition #179: 'simpleMessage', 'message', 'condition'
  [14:55:47.004]  recursive: 0
  [14:55:48.534]  - Condition #180: 'simpleMessage', 'message', 'condition'
  [14:55:47.004]  length: 2
  [14:55:48.534]  - Condition #181: 'simpleMessage', 'message', 'condition'
  [14:55:47.004] 
  [14:55:48.535]  - Condition #182: 'simpleMessage', 'message', 'condition'
  [14:55:47.253] receiveMessageFromWorker() for ClusterFuture ...
  [14:55:48.535]  - Condition #183: 'simpleMessage', 'message', 'condition'
  [14:55:47.254] - Validating connection of MultisessionFuture
  [14:55:48.535]  - Condition #184: 'simpleMessage', 'message', 'condition'
  [14:55:47.255] - received message: FutureResult
  [14:55:48.536]  - Condition #185: 'simpleMessage', 'message', 'condition'
  [14:55:47.255] - Received FutureResult
  [14:55:48.536]  - Condition #186: 'simpleMessage', 'message', 'condition'
  [14:55:47.255] - Erased future from FutureRegistry
  [14:55:48.536]  - Condition #187: 'simpleMessage', 'message', 'condition'
  [14:55:47.256] result() for ClusterFuture ...
  [14:55:48.537]  - Condition #188: 'simpleMessage', 'message', 'condition'
  [14:55:47.256] - result already collected: FutureResult
  [14:55:48.537]  - Condition #189: 'simpleMessage', 'message', 'condition'
  [14:55:47.256] result() for ClusterFuture ... done
  [14:55:48.537]  - Condition #190: 'simpleMessage', 'message', 'condition'
  [14:55:47.256] signalConditions() ...
  [14:55:48.538]  - Condition #191: 'simpleMessage', 'message', 'condition'
  [14:55:47.257]  - include = 'immediateCondition'
  [14:55:48.538]  - Condition #192: 'simpleMessage', 'message', 'condition'
  [14:55:47.257]  - exclude = 
  [14:55:48.538]  - Condition #193: 'simpleMessage', 'message', 'condition'
  [14:55:47.257]  - resignal = FALSE
  [14:55:48.539]  - Condition #194: 'simpleMessage', 'message', 'condition'
  [14:55:47.257]  - Number of conditions: 1
  [14:55:48.539]  - Condition #195: 'simpleMessage', 'message', 'condition'
  [14:55:47.258] signalConditions() ... done
  [14:55:48.539]  - Condition #196: 'simpleMessage', 'message', 'condition'
  [14:55:47.258] receiveMessageFromWorker() for ClusterFuture ... done
  [14:55:48.540]  - Condition #197: 'simpleMessage', 'message', 'condition'
  [14:55:47.258] Future #1
  [14:55:48.540]  - Condition #198: 'simpleMessage', 'message', 'condition'
  [14:55:47.259] result() for ClusterFuture ...
  [14:55:48.540]  - Condition #199: 'simpleMessage', 'message', 'condition'
  [14:55:47.259] - result already collected: FutureResult
  [14:55:48.541]  - Condition #200: 'simpleMessage', 'message', 'condition'
  [14:55:47.259] result() for ClusterFuture ... done
  [14:55:48.541]  - Condition #201: 'simpleMessage', 'message', 'condition'
  [14:55:47.259] result() for ClusterFuture ...
  [14:55:48.556]  - Condition #202: 'simpleMessage', 'message', 'condition'
  [14:55:47.260] - result already collected: FutureResult
  [14:55:48.557]  - Condition #203: 'simpleMessage', 'message', 'condition'
  [14:55:47.260] result() for ClusterFuture ... done
  [14:55:48.557]  - Condition #204: 'simpleMessage', 'message', 'condition'
  [14:55:47.260] signalConditions() ...
  [14:55:48.557]  - Condition #205: 'simpleMessage', 'message', 'condition'
  [14:55:47.261]  - include = 'immediateCondition'
  [14:55:48.558]  - Condition #206: 'simpleMessage', 'message', 'condition'
  [14:55:47.261]  - exclude = 
  [14:55:48.558]  - Condition #207: 'simpleMessage', 'message', 'condition'
  [14:55:47.261]  - resignal = FALSE
  [14:55:48.558]  - Condition #208: 'simpleMessage', 'message', 'condition'
  [14:55:47.261]  - Number of conditions: 1
  [14:55:48.558]  - Condition #209: 'simpleMessage', 'message', 'condition'
  [14:55:47.262] signalConditions() ... done
  [14:55:48.559]  - Condition #210: 'simpleMessage', 'message', 'condition'
  [14:55:47.262] signalConditionsASAP(MultisessionFuture, pos=1) ...
  [14:55:48.559]  - Condition #211: 'simpleMessage', 'message', 'condition'
  [14:55:47.262] - nx: 2
  [14:55:48.559]  - Condition #212: 'simpleMessage', 'message', 'condition'
  [14:55:47.262] - relay: TRUE
  [14:55:48.560]  - Condition #213: 'simpleMessage', 'message', 'condition'
  [14:55:47.263] - stdout: TRUE
  [14:55:48.560]  - Condition #214: 'simpleMessage', 'message', 'condition'
  [14:55:47.263] - signal: TRUE
  [14:55:48.560]  - Condition #215: 'simpleMessage', 'message', 'condition'
  [14:55:47.263] - resignal: FALSE
  [14:55:48.561]  - Condition #216: 'simpleMessage', 'message', 'condition'
  [14:55:47.264] - force: FALSE
  [14:55:48.561]  - Condition #217: 'simpleMessage', 'message', 'condition'
  [14:55:47.264] - relayed: [n=2] FALSE, FALSE
  [14:55:48.561]  - Condition #218: 'simpleMessage', 'message', 'condition'
  [14:55:47.264] - queued futures: [n=2] FALSE, FALSE
  [14:55:48.561]  - Condition #219: 'simpleMessage', 'message', 'condition'
  [14:55:47.266]  - until=1
  [14:55:48.562]  - Condition #220: 'simpleMessage', 'message', 'condition'
  [14:55:47.266]  - relaying element #1
  [14:55:48.562]  - Condition #221: 'simpleMessage', 'message', 'condition'
  [14:55:47.266] result() for ClusterFuture ...
  [14:55:48.562]  - Condition #222: 'simpleMessage', 'message', 'condition'
  [14:55:47.267] - result already collected: FutureResult
  [14:55:48.562]  - Condition #223: 'simpleMessage', 'message', 'condition'
  [14:55:47.267] result() for ClusterFuture ... done
  [14:55:48.563]  - Condition #224: 'simpleMessage', 'message', 'condition'
  [14:55:47.267] result() for ClusterFuture ...
  [14:55:48.563]  - Condition #225: 'simpleMessage', 'message', 'condition'
  [14:55:47.268] - result already collected: FutureResult
  [14:55:48.563]  - Condition #226: 'simpleMessage', 'message', 'condition'
  [14:55:47.268] result() for ClusterFuture ... done
  [14:55:48.564]  - Condition #227: 'simpleMessage', 'message', 'condition'
  [14:55:47.268] signalConditions() ...
  [14:55:48.564]  - Condition #228: 'simpleMessage', 'message', 'condition'
  [14:55:47.268]  - include = 'immediateCondition'
  [14:55:48.564]  - Condition #229: 'simpleMessage', 'message', 'condition'
  [14:55:47.269]  - exclude = 
  [14:55:48.565]  - Condition #230: 'simpleMessage', 'message', 'condition'
  [14:55:47.269]  - resignal = FALSE
  [14:55:48.565]  - Condition #231: 'simpleMessage', 'message', 'condition'
  [14:55:47.269]  - Number of conditions: 1
  [14:55:48.565]  - Condition #232: 'simpleMessage', 'message', 'condition'
  [14:55:47.269] signalConditions() ... done
  [14:55:48.566]  - Condition #233: 'simpleMessage', 'message', 'condition'
  [14:55:47.270] result() for ClusterFuture ...
  [14:55:48.566]  - Condition #234: 'simpleMessage', 'message', 'condition'
  [14:55:47.270] - result already collected: FutureResult
  [14:55:48.566]  - Condition #235: 'simpleMessage', 'message', 'condition'
  [14:55:47.270] result() for ClusterFuture ... done
  [14:55:48.566]  - Condition #236: 'simpleMessage', 'message', 'condition'
  [14:55:47.271] signalConditions() ...
  [14:55:48.567]  - Condition #237: 'simpleMessage', 'message', 'condition'
  [14:55:47.271]  - include = 'immediateCondition'
  [14:55:48.567]  - Condition #238: 'simpleMessage', 'message', 'condition'
  [14:55:47.271]  - exclude = 
  [14:55:48.567]  - Condition #239: 'simpleMessage', 'message', 'condition'
  [14:55:47.272]  - resignal = FALSE
  [14:55:48.568]  - Condition #240: 'simpleMessage', 'message', 'condition'
  [14:55:47.272]  - Number of conditions: 1
  [14:55:48.568]  - Condition #241: 'simpleMessage', 'message', 'condition'
  [14:55:47.272] signalConditions() ... done
  [14:55:48.585]  - Condition #242: 'simpleMessage', 'message', 'condition'
  [14:55:47.272] result() for ClusterFuture ...
  [14:55:48.585]  - Condition #243: 'simpleMessage', 'message', 'condition'
  [14:55:47.273] - result already collected: FutureResult
  [14:55:48.585]  - Condition #244: 'simpleMessage', 'message', 'condition'
  [14:55:47.273] result() for ClusterFuture ... done
  [14:55:48.586]  - Condition #245: 'simpleMessage', 'message', 'condition'
  [14:55:47.273] signalConditions() ...
  [14:55:48.586]  - Condition #246: 'simpleMessage', 'message', 'condition'
  [14:55:47.273]  - include = 'condition'
  [14:55:48.586]  - Condition #247: 'simpleMessage', 'message', 'condition'
  [14:55:47.274]  - exclude = 'immediateCondition'
  [14:55:48.587]  - Condition #248: 'simpleMessage', 'message', 'condition'
  [14:55:47.274]  - resignal = FALSE
  [14:55:48.587]  - Condition #249: 'simpleMessage', 'message', 'condition'
  [14:55:47.274]  - Number of conditions: 1
  [14:55:48.587]  - Condition #250: 'simpleMessage', 'message', 'condition'
  [14:55:47.275]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:55:48.588]  - Condition #251: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (..., envir = parent.frame())- tweaked: FALSE- call: NULL
  [14:55:48.588]  - Condition #252: 'simpleMessage', 'message', 'condition'
  [14:55:47.275] signalConditions() ... done
  [14:55:48.588]  - Condition #253: 'simpleMessage', 'message', 'condition'
  [14:55:47.275] - relayed: [n=2] TRUE, FALSE
  [14:55:48.589]  - Condition #254: 'simpleMessage', 'message', 'condition'
  [14:55:47.276] - queued futures: [n=2] TRUE, FALSE
  [14:55:48.589]  - Condition #255: 'simpleMessage', 'message', 'condition'
  [14:55:47.276] signalConditionsASAP(MultisessionFuture, pos=1) ... done
  [14:55:48.589]  - Condition #256: 'simpleMessage', 'message', 'condition'
  [14:55:47.300]  length: 1 (resolved future 1)
  [14:55:48.590]  - Condition #257: 'simpleMessage', 'message', 'condition'
  [14:55:47.637] receiveMessageFromWorker() for ClusterFuture ...
  [14:55:48.590]  - Condition #258: 'simpleMessage', 'message', 'condition'
  [14:55:47.637] - Validating connection of MultisessionFuture
  [14:55:48.590]  - Condition #259: 'simpleMessage', 'message', 'condition'
  [14:55:47.638] - received message: FutureResult
  [14:55:48.591]  - Condition #260: 'simpleMessage', 'message', 'condition'
  [14:55:47.638] - Received FutureResult
  [14:55:48.591]  - Condition #261: 'simpleMessage', 'message', 'condition'
  [14:55:47.639] - Erased future from FutureRegistry
  [14:55:48.591]  - Condition #262: 'simpleMessage', 'message', 'condition'
  [14:55:47.639] result() for ClusterFuture ...
  [14:55:48.592]  - Condition #263: 'simpleMessage', 'message', 'condition'
  [14:55:47.639] - result already collected: FutureResult
  [14:55:48.592]  - Condition #264: 'simpleMessage', 'message', 'condition'
  [14:55:47.640] result() for ClusterFuture ... done
  [14:55:48.616]  - Condition #265: 'simpleMessage', 'message', 'condition'
  [14:55:47.640] signalConditions() ...
  [14:55:48.617]  - Condition #266: 'simpleMessage', 'message', 'condition'
  [14:55:47.640]  - include = 'immediateCondition'
  [14:55:48.617]  - Condition #267: 'simpleMessage', 'message', 'condition'
  [14:55:47.640]  - exclude = 
  [14:55:48.617]  - Condition #268: 'simpleMessage', 'message', 'condition'
  [14:55:47.641]  - resignal = FALSE
  [14:55:48.618]  - Condition #269: 'simpleMessage', 'message', 'condition'
  [14:55:47.641]  - Number of conditions: 2
  [14:55:48.618]  - Condition #270: 'simpleMessage', 'message', 'condition'
  [14:55:47.641] signalConditions() ... done
  [14:55:48.618]  - Condition #271: 'simpleMessage', 'message', 'condition'
  [14:55:47.641] receiveMessageFromWorker() for ClusterFuture ... done
  [14:55:48.619]  - Condition #272: 'simpleMessage', 'message', 'condition'
  [14:55:47.642] Future #2
  [14:55:48.619]  - Condition #273: 'simpleMessage', 'message', 'condition'
  [14:55:47.642] result() for ClusterFuture ...
  [14:55:48.619]  - Condition #274: 'simpleMessage', 'message', 'condition'
  [14:55:47.642] - result already collected: FutureResult
  [14:55:48.620]  - Condition #275: 'simpleMessage', 'message', 'condition'
  [14:55:47.642] result() for ClusterFuture ... done
  [14:55:48.620]  - Condition #276: 'simpleMessage', 'message', 'condition'
  [14:55:47.643] result() for ClusterFuture ...
  [14:55:48.620]  - Condition #277: 'simpleMessage', 'message', 'condition'
  [14:55:47.643] - result already collected: FutureResult
  [14:55:48.621]  - Condition #278: 'simpleMessage', 'message', 'condition'
  [14:55:47.643] result() for ClusterFuture ... done
  [14:55:48.621]  - Condition #279: 'simpleMessage', 'message', 'condition'
  [14:55:47.644] signalConditions() ...
  [14:55:48.621]  - Condition #280: 'simpleMessage', 'message', 'condition'
  [14:55:47.644]  - include = 'immediateCondition'
  [14:55:48.622]  - Condition #281: 'simpleMessage', 'message', 'condition'
  [14:55:47.644]  - exclude = 
  [14:55:48.622]  - Condition #282: 'simpleMessage', 'message', 'condition'
  [14:55:47.644]  - resignal = FALSE
  [14:55:48.622]  - Condition #283: 'simpleMessage', 'message', 'condition'
  [14:55:47.645]  - Number of conditions: 2
  [14:55:48.623]  - Condition #284: 'simpleMessage', 'message', 'condition'
  [14:55:47.645] signalConditions() ... done
  [14:55:48.623]  - Condition #285: 'simpleMessage', 'message', 'condition'
  [14:55:47.645] signalConditionsASAP(MultisessionFuture, pos=2) ...
  [14:55:48.624]  - Condition #286: 'simpleMessage', 'message', 'condition'
  [14:55:47.646] - nx: 2
  [14:55:48.624]  - Condition #287: 'simpleMessage', 'message', 'condition'
  [14:55:47.646] - relay: TRUE
  [14:55:48.624]  - Condition #288: 'simpleMessage', 'message', 'condition'
  [14:55:47.646] - stdout: TRUE
  [14:55:48.625]  - Condition #289: 'simpleMessage', 'message', 'condition'
  [14:55:47.646] - signal: TRUE
  [14:55:48.625]  - Condition #290: 'simpleMessage', 'message', 'condition'
  [14:55:47.647] - resignal: FALSE
  [14:55:48.625]  - Condition #291: 'simpleMessage', 'message', 'condition'
  [14:55:47.647] - force: FALSE
  [14:55:48.625]  - Condition #292: 'simpleMessage', 'message', 'condition'
  [14:55:47.647] - relayed: [n=2] TRUE, FALSE
  [14:55:48.626]  - Condition #293: 'simpleMessage', 'message', 'condition'
  [14:55:47.647] - queued futures: [n=2] TRUE, FALSE
  [14:55:48.626]  - Condition #294: 'simpleMessage', 'message', 'condition'
  [14:55:47.648]  - until=2
  [14:55:48.626]  - Condition #295: 'simpleMessage', 'message', 'condition'
  [14:55:47.648]  - relaying element #2
  [14:55:48.627]  - Condition #296: 'simpleMessage', 'message', 'condition'
  [14:55:47.673] result() for ClusterFuture ...
  [14:55:48.627]  - Condition #297: 'simpleMessage', 'message', 'condition'
  [14:55:47.673] - result already collected: FutureResult
  [14:55:48.627]  - Condition #298: 'simpleMessage', 'message', 'condition'
  [14:55:47.673] result() for ClusterFuture ... done
  [14:55:48.628]  - Condition #299: 'simpleMessage', 'message', 'condition'
  [14:55:47.673] result() for ClusterFuture ...
  [14:55:48.644]  - Condition #300: 'simpleMessage', 'message', 'condition'
  [14:55:47.674] - result already collected: FutureResult
  [14:55:48.645]  - Condition #301: 'simpleMessage', 'message', 'condition'
  [14:55:47.674] result() for ClusterFuture ... done
  [14:55:48.645]  - Condition #302: 'simpleMessage', 'message', 'condition'
  [14:55:47.674] signalConditions() ...
  [14:55:48.645]  - Condition #303: 'simpleMessage', 'message', 'condition'
  [14:55:47.674]  - include = 'immediateCondition'
  [14:55:48.646]  - Condition #304: 'simpleMessage', 'message', 'condition'
  [14:55:47.675]  - exclude = 
  [14:55:48.646]  - Condition #305: 'simpleMessage', 'message', 'condition'
  [14:55:47.675]  - resignal = FALSE
  [14:55:48.646]  - Condition #306: 'simpleMessage', 'message', 'condition'
  [14:55:47.675]  - Number of conditions: 2
  [14:55:48.647]  - Condition #307: 'simpleMessage', 'message', 'condition'
  [14:55:47.675] signalConditions() ... done
  [14:55:48.647]  - Condition #308: 'simpleMessage', 'message', 'condition'
  [14:55:47.676] result() for ClusterFuture ...
  [14:55:48.647]  - Condition #309: 'simpleMessage', 'message', 'condition'
  [14:55:47.676] - result already collected: FutureResult
  [14:55:48.648]  - Condition #310: 'simpleMessage', 'message', 'condition'
  [14:55:47.676] result() for ClusterFuture ... done
  [14:55:48.648]  - Condition #311: 'simpleMessage', 'message', 'condition'
  [14:55:47.677] signalConditions() ...
  [14:55:48.648]  - Condition #312: 'simpleMessage', 'message', 'condition'
  [14:55:47.677]  - include = 'immediateCondition'
  [14:55:48.649]  - Condition #313: 'simpleMessage', 'message', 'condition'
  [14:55:47.677]  - exclude = 
  [14:55:48.649]  - Condition #314: 'simpleMessage', 'message', 'condition'
  [14:55:47.677]  - resignal = FALSE
  [14:55:48.649]  - Condition #315: 'simpleMessage', 'message', 'condition'
  [14:55:47.678]  - Number of conditions: 2
  [14:55:48.649]  - Condition #316: 'simpleMessage', 'message', 'condition'
  [14:55:47.678] signalConditions() ... done
  [14:55:48.650]  - Condition #317: 'simpleMessage', 'message', 'condition'
  [14:55:47.678] result() for ClusterFuture ...
  [14:55:48.650]  - Condition #318: 'simpleMessage', 'message', 'condition'
  [14:55:47.678] - result already collected: FutureResult
  [14:55:48.650]  - Condition #319: 'simpleMessage', 'message', 'condition'
  [14:55:47.679] result() for ClusterFuture ... done
  [14:55:48.651]  - Condition #320: 'simpleMessage', 'message', 'condition'
  [14:55:47.679] signalConditions() ...
  [14:55:48.651]  - Condition #321: 'simpleMessage', 'message', 'condition'
  [14:55:47.679]  - include = 'condition'
  [14:55:48.651]  - Condition #322: 'simpleMessage', 'message', 'condition'
  [14:55:47.679]  - exclude = 'immediateCondition'
  [14:55:48.652]  - Condition #323: 'simpleMessage', 'message', 'condition'
  [14:55:47.679]  - resignal = FALSE
  [14:55:48.652]  - Condition #324: 'simpleMessage', 'message', 'condition'
  [14:55:47.680]  - Number of conditions: 2
  [14:55:48.652]  - Condition #325: 'simpleMessage', 'message', 'condition'
  [14:55:47.680]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:55:48.653]  - Condition #326: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (..., envir = parent.frame())- tweaked: FALSE- call: NULL
  [14:55:48.653]  - Condition #327: 'simpleMessage', 'message', 'condition'
  [14:55:47.680]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:55:48.653]  - Condition #328: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (..., envir = parent.frame())- tweaked: FALSE- call: NULL
  [14:55:48.654]  - Condition #329: 'simpleMessage', 'message', 'condition'
  [14:55:47.681] signalConditions() ... done
  [14:55:48.654]  - Condition #330: 'simpleMessage', 'message', 'condition'
  [14:55:47.681] - relayed: [n=2] TRUE, TRUE
  [14:55:48.654]  - Condition #331: 'simpleMessage', 'message', 'condition'
  [14:55:47.681] - queued futures: [n=2] TRUE, TRUE
  [14:55:48.655]  - Condition #332: 'simpleMessage', 'message', 'condition'
  [14:55:47.681] signalConditionsASAP(MultisessionFuture, pos=2) ... done
  [14:55:48.655]  - Condition #333: 'simpleMessage', 'message', 'condition'
  [14:55:47.682]  length: 0 (resolved future 2)
  [14:55:48.655]  - Condition #334: 'simpleMessage', 'message', 'condition'
  [14:55:47.682] Relaying remaining futures
  [14:55:48.655]  - Condition #335: 'simpleMessage', 'message', 'condition'
  [14:55:47.682] signalConditionsASAP(NULL, pos=0) ...
  [14:55:48.656]  - Condition #336: 'simpleMessage', 'message', 'condition'
  [14:55:47.682] - nx: 2
  [14:55:48.656]  - Condition #337: 'simpleMessage', 'message', 'condition'
  [14:55:47.683] - relay: TRUE
  [14:55:48.656]  - Condition #338: 'simpleMessage', 'message', 'condition'
  [14:55:47.683] - stdout: TRUE
  [14:55:48.657]  - Condition #339: 'simpleMessage', 'message', 'condition'
  [14:55:47.683] - signal: TRUE
  [14:55:48.657]  - Condition #340: 'simpleMessage', 'message', 'condition'
  [14:55:47.683] - resignal: FALSE
  [14:55:48.657]  - Condition #341: 'simpleMessage', 'message', 'condition'
  [14:55:47.684] - force: FALSE
  [14:55:48.658]  - Condition #342: 'simpleMessage', 'message', 'condition'
  [14:55:47.684] - relayed: [n=2] TRUE, TRUE
  [14:55:48.658]  - Condition #343: 'simpleMessage', 'message', 'condition'
  [14:55:47.684] - queued futures: [n=2] TRUE, TRUE
  [14:55:48.658]  - Condition #344: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:55:48.659]  - Condition #345: 'simpleMessage', 'message', 'condition'
  [14:55:47.706] - relayed: [n=2] TRUE, TRUE
  [14:55:48.659]  - Condition #346: 'simpleMessage', 'message', 'condition'
  [14:55:47.707] - queued futures: [n=2] TRUE, TRUE
  [14:55:48.659]  - Condition #347: 'simpleMessage', 'message', 'condition'
  [14:55:47.707] signalConditionsASAP(NULL, pos=0) ... done
  [14:55:48.659]  - Condition #348: 'simpleMessage', 'message', 'condition'
  [14:55:47.707] resolve() on list ... DONE
  [14:55:48.660]  - Condition #349: 'simpleMessage', 'message', 'condition'
  [14:55:47.708] - collecting values of futures
  [14:55:48.660]  - Condition #350: 'simpleMessage', 'message', 'condition'
  [14:55:47.708] result() for ClusterFuture ...
  [14:55:48.677]  - Condition #351: 'simpleMessage', 'message', 'condition'
  [14:55:47.708] - result already collected: FutureResult
  [14:55:48.677]  - Condition #352: 'simpleMessage', 'message', 'condition'
  [14:55:47.708] result() for ClusterFuture ... done
  [14:55:48.677]  - Condition #353: 'simpleMessage', 'message', 'condition'
  [14:55:47.709] result() for ClusterFuture ...
  [14:55:48.678]  - Condition #354: 'simpleMessage', 'message', 'condition'
  [14:55:47.709] - result already collected: FutureResult
  [14:55:48.678]  - Condition #355: 'simpleMessage', 'message', 'condition'
  [14:55:47.709] result() for ClusterFuture ... done
  [14:55:48.678]  - Condition #356: 'simpleMessage', 'message', 'condition'
  [14:55:47.710] signalConditions() ...
  [14:55:48.679]  - Condition #357: 'simpleMessage', 'message', 'condition'
  [14:55:47.710]  - include = 'immediateCondition'
  [14:55:48.679]  - Condition #358: 'simpleMessage', 'message', 'condition'
  [14:55:47.710]  - exclude = 
  [14:55:48.679]  - Condition #359: 'simpleMessage', 'message', 'condition'
  [14:55:47.710]  - resignal = FALSE
  [14:55:48.679]  - Condition #360: 'simpleMessage', 'message', 'condition'
  [14:55:47.711]  - Number of conditions: 1
  [14:55:48.680]  - Condition #361: 'simpleMessage', 'message', 'condition'
  [14:55:47.711] signalConditions() ... done
  [14:55:48.680]  - Condition #362: 'simpleMessage', 'message', 'condition'
  [14:55:47.711] result() for ClusterFuture ...
  [14:55:48.680]  - Condition #363: 'simpleMessage', 'message', 'condition'
  [14:55:47.711] - result already collected: FutureResult
  [14:55:48.681]  - Condition #364: 'simpleMessage', 'message', 'condition'
  [14:55:47.712] result() for ClusterFuture ... done
  [14:55:48.681]  - Condition #365: 'simpleMessage', 'message', 'condition'
  [14:55:47.712] result() for ClusterFuture ...
  [14:55:48.681]  - Condition #366: 'simpleMessage', 'message', 'condition'
  [14:55:47.712] - result already collected: FutureResult
  [14:55:48.682]  - Condition #367: 'simpleMessage', 'message', 'condition'
  [14:55:47.713] result() for ClusterFuture ... done
  [14:55:48.682]  - Condition #368: 'simpleMessage', 'message', 'condition'
  [14:55:47.713] signalConditions() ...
  [14:55:48.682]  - Condition #369: 'simpleMessage', 'message', 'condition'
  [14:55:47.714]  - include = 'immediateCondition'
  [14:55:48.683]  - Condition #370: 'simpleMessage', 'message', 'condition'
  [14:55:47.714]  - exclude = 
  [14:55:48.683]  - Condition #371: 'simpleMessage', 'message', 'condition'
  [14:55:47.714]  - resignal = FALSE
  [14:55:48.683]  - Condition #372: 'simpleMessage', 'message', 'condition'
  [14:55:47.715]  - Number of conditions: 2
  [14:55:48.684]  - Condition #373: 'simpleMessage', 'message', 'condition'
  [14:55:47.715] signalConditions() ... done
  [14:55:48.684]  - Condition #374: 'simpleMessage', 'message', 'condition'
  [14:55:47.716] - accumulating results
  [14:55:48.684]  - Condition #375: 'simpleMessage', 'message', 'condition'
  [14:55:47.717] - processing errors (handler = 'stop')
  [14:55:48.684]  - Condition #376: 'simpleMessage', 'message', 'condition'
  [14:55:47.718] - extracting results
  [14:55:48.685]  - Condition #377: 'simpleMessage', 'message', 'condition'
  [14:55:47.718] doFuture() ... DONE
  [14:55:48.685]  - Condition #378: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:55:48.685]  - Condition #379: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:55:48.686]  - Condition #380: 'simpleMessage', 'message', 'condition'
  [14:55:47.724] doFuture() ...
  [14:55:48.686]  - Condition #381: 'simpleMessage', 'message', 'condition'
  [14:55:47.725] - dummy globals (as locals): [1] 'b'
  [14:55:48.686]  - Condition #382: 'simpleMessage', 'message', 'condition'
  [14:55:47.726] - R expression:
  [14:55:48.687]  - Condition #383: 'simpleMessage', 'message', 'condition'
  [14:55:47.726] {
  [14:55:47.726]     doFuture::registerDoFuture()
  [14:55:47.726]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:47.726]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:47.726]         b <- NULL
  [14:55:47.726]         ...future.env <- environment()
  [14:55:47.726]         local({
  [14:55:47.726]             for (name in names(...future.x_jj)) {
  [14:55:47.726]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:47.726]                   inherits = FALSE)
  [14:55:47.726]             }
  [14:55:47.726]         })
  [14:55:47.726]         tryCatch({
  [14:55:47.726]             plan_list <- future::plan("next")
  [14:55:47.726]             message(capture.output(print(plan_list)))
  [14:55:47.726]             stopifnot(inherits(plan_list, "future"))
  [14:55:47.726]             default <- getOption("future.plan", "sequential")
  [14:55:47.726]             if (is.function(default)) 
  [14:55:47.726]                 default <- class(default)
  [14:55:47.726]             stopifnot(inherits(plan_list, default))
  [14:55:47.726]             plan_b <- future::plan("list")
  [14:55:47.726]             str(plan_b)
  [14:55:47.726]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:55:47.726]                 default))
  [14:55:47.726]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:47.726]         }, error = identity)
  [14:55:47.726]     })
  [14:55:47.726] }
  [14:55:48.687]  - Condition #384: 'simpleMessage', 'message', 'condition'
  [14:55:47.727] - identifying globals and packages ...
  [14:55:48.692]  - Condition #385: 'simpleMessage', 'message', 'condition'
  [14:55:47.728] getGlobalsAndPackages() ...
  [14:55:48.709]  - Condition #386: 'simpleMessage', 'message', 'condition'
  [14:55:47.728] Retrieving 'add' globals ...
  [14:55:48.709]  - Condition #387: 'simpleMessage', 'message', 'condition'
  [14:55:47.728] - 'add' globals retrieved: [2] 'a', 'plan_a'
  [14:55:48.709]  - Condition #388: 'simpleMessage', 'message', 'condition'
  [14:55:47.729] Retrieving 'add' globals ... DONE
  [14:55:48.710]  - Condition #389: 'simpleMessage', 'message', 'condition'
  [14:55:47.729] Searching for globals...
  [14:55:48.710]  - Condition #390: 'simpleMessage', 'message', 'condition'
  [14:55:47.774] - 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:55:48.710]  - Condition #391: 'simpleMessage', 'message', 'condition'
  [14:55:47.775] Searching for globals ... DONE
  [14:55:48.710]  - Condition #392: 'simpleMessage', 'message', 'condition'
  [14:55:47.775] Resolving globals: FALSE
  [14:55:48.711]  - Condition #393: 'simpleMessage', 'message', 'condition'
  [14:55:47.778] The total size of the 3 globals is 36.01 KiB (36872 bytes)
  [14:55:48.711]  - Condition #394: 'simpleMessage', 'message', 'condition'
  [14:55:47.779] The total size of the 3 globals exported for future expression ('{; doFuture::registerDoFuture(); lapply(seq_along(...future.x_ii), FUN = function(jj) {; ...future.x_jj <- ...future.x_ii[[jj]]; b <- NULL; ...future.env <- environment(); ...; }, error = identity); }); }') is 36.01 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: 'plan_a' (35.95 KiB of class 'list'), 'a' (56 bytes of class 'numeric') and '...future.x_ii' (0 bytes of class 'NULL')
  [14:55:48.711]  - Condition #395: 'simpleMessage', 'message', 'condition'
  [14:55:47.779] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:48.712]  - Condition #396: 'simpleMessage', 'message', 'condition'
  [14:55:47.779] - packages: [1] 'utils'
  [14:55:48.712]  - Condition #397: 'simpleMessage', 'message', 'condition'
  [14:55:47.780] getGlobalsAndPackages() ... DONE
  [14:55:48.712]  - Condition #398: 'simpleMessage', 'message', 'condition'
  [14:55:47.780] List of 3
  [14:55:47.780]  $ ...future.x_ii: NULL
  [14:55:47.780]  $ a             : int 2
  [14:55:47.780]  $ plan_a        :List of 1
  [14:55:47.780]   ..$ b:function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), 
  [14:55:47.780]     envir = parent.frame())  
  [14:55:47.780]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [14:55:47.780]   .. ..- attr(*, "init")= logi TRUE
  [14:55:47.780]   .. ..- attr(*, "untweakable")= chr "persistent"
  [14:55:47.780]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:47.780]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:47.780]  - attr(*, "where")=List of 3
  [14:55:47.780]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:47.780]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:47.780]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:47.780]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:47.780]  - attr(*, "resolved")= logi FALSE
  [14:55:47.780]  - attr(*, "total_size")= num 36872
  [14:55:48.712]  - Condition #399: 'simpleMessage', 'message', 'condition'
  [14:55:47.791]   - R expression:
  [14:55:48.713]  - Condition #400: 'simpleMessage', 'message', 'condition'
  [14:55:47.791] {
  [14:55:47.791]     doFuture::registerDoFuture()
  [14:55:47.791]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:47.791]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:47.791]         b <- NULL
  [14:55:47.791]         ...future.env <- environment()
  [14:55:47.791]         local({
  [14:55:47.791]             for (name in names(...future.x_jj)) {
  [14:55:47.791]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:47.791]                   inherits = FALSE)
  [14:55:47.791]             }
  [14:55:47.791]         })
  [14:55:47.791]         tryCatch({
  [14:55:47.791]             plan_list <- future::plan("next")
  [14:55:47.791]             message(capture.output(print(plan_list)))
  [14:55:47.791]             stopifnot(inherits(plan_list, "future"))
  [14:55:47.791]             default <- getOption("future.plan", "sequential")
  [14:55:47.791]             if (is.function(default)) 
  [14:55:47.791]                 default <- class(default)
  [14:55:47.791]             stopifnot(inherits(plan_list, default))
  [14:55:47.791]             plan_b <- future::plan("list")
  [14:55:47.791]             str(plan_b)
  [14:55:47.791]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:55:47.791]                 default))
  [14:55:47.791]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:47.791]         }, error = identity)
  [14:55:47.791]     })
  [14:55:47.791] }
  [14:55:48.713]  - Condition #401: 'simpleMessage', 'message', 'condition'
  [14:55:47.792]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:48.713]  - Condition #402: 'simpleMessage', 'message', 'condition'
  [14:55:47.792] List of 3
  [14:55:47.792]  $ ...future.x_ii: NULL
  [14:55:47.792]  $ a             : int 2
  [14:55:47.792]  $ plan_a        :List of 1
  [14:55:47.792]   ..$ b:function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), 
  [14:55:47.792]     envir = parent.frame())  
  [14:55:47.792]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [14:55:47.792]   .. ..- attr(*, "init")= logi TRUE
  [14:55:47.792]   .. ..- attr(*, "untweakable")= chr "persistent"
  [14:55:47.792]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:47.792]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:47.792]  - attr(*, "where")=List of 3
  [14:55:47.792]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:47.792]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:47.792]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:47.792]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:47.792]  - attr(*, "resolved")= logi FALSE
  [14:55:47.792]  - attr(*, "total_size")= num 36872
  [14:55:48.714]  - Condition #403: 'simpleMessage', 'message', 'condition'
  [14:55:47.804]   - packages: [2] 'doFuture', 'utils'
  [14:55:48.714]  - Condition #404: 'simpleMessage', 'message', 'condition'
  [14:55:47.804] - identifying globals and packages ... DONE
  [14:55:48.714]  - Condition #405: 'simpleMessage', 'message', 'condition'
  [14:55:47.840] Number of chunks: 2
  [14:55:48.715]  - Condition #406: 'simpleMessage', 'message', 'condition'
  [14:55:47.840] Number of futures (= number of chunks): 2
  [14:55:48.715]  - Condition #407: 'simpleMessage', 'message', 'condition'
  [14:55:47.841] Launching 2 futures (chunks) ...
  [14:55:48.715]  - Condition #408: 'simpleMessage', 'message', 'condition'
  [14:55:47.841] Chunk #1 of 2 ...
  [14:55:48.716]  - Condition #409: 'simpleMessage', 'message', 'condition'
  [14:55:47.841]  - Finding globals in 'args_list' chunk #1 ...
  [14:55:48.716]  - Condition #410: 'simpleMessage', 'message', 'condition'
  [14:55:47.841] getGlobalsAndPackages() ...
  [14:55:48.716]  - Condition #411: 'simpleMessage', 'message', 'condition'
  [14:55:47.842] Searching for globals...
  [14:55:48.716]  - Condition #412: 'simpleMessage', 'message', 'condition'
  [14:55:47.843] 
  [14:55:48.717]  - Condition #413: 'simpleMessage', 'message', 'condition'
  [14:55:47.843] Searching for globals ... DONE
  [14:55:48.717]  - Condition #414: 'simpleMessage', 'message', 'condition'
  [14:55:47.843] - globals: [0] <none>
  [14:55:48.717]  - Condition #415: 'simpleMessage', 'message', 'condition'
  [14:55:47.843] getGlobalsAndPackages() ... DONE
  [14:55:48.718]  - Condition #416: 'simpleMessage', 'message', 'condition'
  [14:55:47.844] 
  [14:55:48.718]  - Condition #417: 'simpleMessage', 'message', 'condition'
  [14:55:47.844] 
  [14:55:48.718]  - Condition #418: 'simpleMessage', 'message', 'condition'
  [14:55:47.844]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:55:48.719]  - Condition #419: 'simpleMessage', 'message', 'condition'
  [14:55:47.845] getGlobalsAndPackages() ...
  [14:55:48.719]  - Condition #420: 'simpleMessage', 'message', 'condition'
  [14:55:47.845] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:48.719]  - Condition #421: 'simpleMessage', 'message', 'condition'
  [14:55:47.845] Resolving globals: FALSE
  [14:55:48.720]  - Condition #422: 'simpleMessage', 'message', 'condition'
  [14:55:47.846] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:48.720]  - Condition #423: 'simpleMessage', 'message', 'condition'
  [14:55:47.846] 
  [14:55:48.720]  - Condition #424: 'simpleMessage', 'message', 'condition'
  [14:55:47.847] getGlobalsAndPackages() ... DONE
  [14:55:48.721]  - Condition #425: 'simpleMessage', 'message', 'condition'
  [14:55:47.847] run() for 'Future' ...
  [14:55:48.721]  - Condition #426: 'simpleMessage', 'message', 'condition'
  [14:55:47.848] - state: 'created'
  [14:55:48.721]  - Condition #427: 'simpleMessage', 'message', 'condition'
  [14:55:47.848] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
  [14:55:48.722]  - Condition #428: 'simpleMessage', 'message', 'condition'
  [14:55:47.894] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
  [14:55:48.722]  - Condition #429: 'simpleMessage', 'message', 'condition'
  [14:55:47.894] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
  [14:55:48.722]  - Condition #430: 'simpleMessage', 'message', 'condition'
  [14:55:47.894]   - Field: 'node'
  [14:55:48.723]  - Condition #431: 'simpleMessage', 'message', 'condition'
  [14:55:47.895]   - Field: 'label'
  [14:55:48.723]  - Condition #432: 'simpleMessage', 'message', 'condition'
  [14:55:47.895]   - Field: 'local'
  [14:55:48.723]  - Condition #433: 'simpleMessage', 'message', 'condition'
  [14:55:47.895]   - Field: 'owner'
  [14:55:48.724]  - Condition #434: 'simpleMessage', 'message', 'condition'
  [14:55:47.896]   - Field: 'envir'
  [14:55:48.724]  - Condition #435: 'simpleMessage', 'message', 'condition'
  [14:55:47.896]   - Field: 'workers'
  [14:55:48.741]  - Condition #436: 'simpleMessage', 'message', 'condition'
  [14:55:47.896]   - Field: 'packages'
  [14:55:48.741]  - Condition #437: 'simpleMessage', 'message', 'condition'
  [14:55:47.896]   - Field: 'gc'
  [14:55:48.741]  - Condition #438: 'simpleMessage', 'message', 'condition'
  [14:55:47.897]   - Field: 'conditions'
  [14:55:48.742]  - Condition #439: 'simpleMessage', 'message', 'condition'
  [14:55:47.897]   - Field: 'persistent'
  [14:55:48.742]  - Condition #440: 'simpleMessage', 'message', 'condition'
  [14:55:47.897]   - Field: 'expr'
  [14:55:48.742]  - Condition #441: 'simpleMessage', 'message', 'condition'
  [14:55:47.898]   - Field: 'uuid'
  [14:55:48.742]  - Condition #442: 'simpleMessage', 'message', 'condition'
  [14:55:47.898]   - Field: 'seed'
  [14:55:48.743]  - Condition #443: 'simpleMessage', 'message', 'condition'
  [14:55:47.898]   - Field: 'version'
  [14:55:48.743]  - Condition #444: 'simpleMessage', 'message', 'condition'
  [14:55:47.898]   - Field: 'result'
  [14:55:48.743]  - Condition #445: 'simpleMessage', 'message', 'condition'
  [14:55:47.899]   - Field: 'asynchronous'
  [14:55:48.744]  - Condition #446: 'simpleMessage', 'message', 'condition'
  [14:55:47.899]   - Field: 'calls'
  [14:55:48.744]  - Condition #447: 'simpleMessage', 'message', 'condition'
  [14:55:47.899]   - Field: 'globals'
  [14:55:48.744]  - Condition #448: 'simpleMessage', 'message', 'condition'
  [14:55:47.899]   - Field: 'stdout'
  [14:55:48.745]  - Condition #449: 'simpleMessage', 'message', 'condition'
  [14:55:47.900]   - Field: 'earlySignal'
  [14:55:48.745]  - Condition #450: 'simpleMessage', 'message', 'condition'
  [14:55:47.900]   - Field: 'lazy'
  [14:55:48.745]  - Condition #451: 'simpleMessage', 'message', 'condition'
  [14:55:47.900]   - Field: 'state'
  [14:55:48.746]  - Condition #452: 'simpleMessage', 'message', 'condition'
  [14:55:47.901] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
  [14:55:48.746]  - Condition #453: 'simpleMessage', 'message', 'condition'
  [14:55:47.901] - Launch lazy future ...
  [14:55:48.746]  - Condition #454: 'simpleMessage', 'message', 'condition'
  [14:55:47.902] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:55:48.746]  - Condition #455: 'simpleMessage', 'message', 'condition'
  [14:55:47.902] Packages needed by future strategies (n = 0): <none>
  [14:55:48.747]  - Condition #456: 'simpleMessage', 'message', 'condition'
  [14:55:47.904] {
  [14:55:47.904]     {
  [14:55:47.904]         ...future.startTime <- base::Sys.time()
  [14:55:47.904]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:55:47.904]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:55:47.904]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:55:47.904]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:55:47.904]             future.resolve.recursive = NULL, future.rng.onMisuse = NULL, 
  [14:55:47.904]             future.rng.onMisuse.keepFuture = NULL, future.stdout.windows.reencode = NULL, 
  [14:55:47.904]             width = 80L)
  [14:55:47.904]         {
  [14:55:47.904]             {
  [14:55:47.904]                 {
  [14:55:47.904]                   {
  [14:55:47.904]                     base::local({
  [14:55:47.904]                       has_future <- base::requireNamespace("future", 
  [14:55:47.904]                         quietly = TRUE)
  [14:55:47.904]                       if (has_future) {
  [14:55:47.904]                         ns <- base::getNamespace("future")
  [14:55:47.904]                         version <- ns[[".package"]][["version"]]
  [14:55:47.904]                         if (is.null(version)) 
  [14:55:47.904]                           version <- utils::packageVersion("future")
  [14:55:47.904]                       }
  [14:55:47.904]                       else {
  [14:55:47.904]                         version <- NULL
  [14:55:47.904]                       }
  [14:55:47.904]                       if (!has_future || version < "1.8.0") {
  [14:55:47.904]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:55:47.904]                           "", base::R.version$version.string), 
  [14:55:47.904]                           platform = base::sprintf("%s (%s-bit)", 
  [14:55:47.904]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:55:47.904]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:55:47.904]                             "release", "version")], collapse = " "), 
  [14:55:47.904]                           hostname = base::Sys.info()[["nodename"]])
  [14:55:47.904]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:55:47.904]                           info)
  [14:55:47.904]                         info <- base::paste(info, collapse = "; ")
  [14:55:47.904]                         if (!has_future) {
  [14:55:47.904]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:55:47.904]                             info)
  [14:55:47.904]                         }
  [14:55:47.904]                         else {
  [14:55:47.904]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:55:47.904]                             info, version)
  [14:55:47.904]                         }
  [14:55:47.904]                         base::stop(msg)
  [14:55:47.904]                       }
  [14:55:47.904]                     })
  [14:55:47.904]                   }
  [14:55:47.904]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:55:47.904]                   base::options(mc.cores = 1L)
  [14:55:47.904]                 }
  [14:55:47.904]                 base::local({
  [14:55:47.904]                   for (pkg in c("doFuture", "utils")) {
  [14:55:47.904]                     base::loadNamespace(pkg)
  [14:55:47.904]                     base::library(pkg, character.only = TRUE)
  [14:55:47.904]                   }
  [14:55:47.904]                 })
  [14:55:47.904]             }
  [14:55:47.904]             options(future.plan = NULL)
  [14:55:47.904]             Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:47.904]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:55:47.904]         }
  [14:55:47.904]     }
  [14:55:47.904]     if (FALSE) {
  [14:55:47.904]     }
  [14:55:47.904]     else {
  [14:55:47.904]         if (TRUE) {
  [14:55:47.904]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:55:47.904]                 open = "w")
  [14:55:47.904]         }
  [14:55:47.904]         else {
  [14:55:47.904]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:55:47.904]                 windows = "NUL", "/dev/null"), open = "w")
  [14:55:47.904]         }
  [14:55:47.904]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:55:47.904]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:55:47.904]             base::sink(type = "output", split = FALSE)
  [14:55:47.904]             base::close(...future.stdout)
  [14:55:47.904]         }, add = TRUE)
  [14:55:47.904]     }
  [14:55:47.904]     ...future.frame <- base::sys.nframe()
  [14:55:47.904]     ...future.conditions <- base::list()
  [14:55:47.904]     ...future.rng <- base::globalenv()$.Random.seed
  [14:55:47.904]     ...future.result <- base::tryCatch({
  [14:55:47.904]         base::withCallingHandlers({
  [14:55:47.904]             ...future.value <- base::withVisible(base::local({
  [14:55:47.904]                 ...future.sendCondition <- local({
  [14:55:47.904]                   sendCondition <- NULL
  [14:55:47.904]                   function(frame = 1L) {
  [14:55:47.904]                     if (is.function(sendCondition)) 
  [14:55:47.904]                       return(sendCondition)
  [14:55:47.904]                     ns <- getNamespace("parallel")
  [14:55:47.904]                     if (exists("sendData", mode = "function", 
  [14:55:47.904]                       envir = ns)) {
  [14:55:47.904]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:55:47.904]                         envir = ns)
  [14:55:47.904]                       envir <- sys.frame(frame)
  [14:55:47.904]                       master <- NULL
  [14:55:47.904]                       while (!identical(envir, .GlobalEnv) && 
  [14:55:47.904]                         !identical(envir, emptyenv())) {
  [14:55:47.904]                         if (exists("master", mode = "list", envir = envir, 
  [14:55:47.904]                           inherits = FALSE)) {
  [14:55:47.904]                           master <- get("master", mode = "list", 
  [14:55:47.904]                             envir = envir, inherits = FALSE)
  [14:55:47.904]                           if (inherits(master, c("SOCKnode", 
  [14:55:47.904]                             "SOCK0node"))) {
  [14:55:47.904]                             sendCondition <<- function(cond) {
  [14:55:47.904]                               data <- list(type = "VALUE", value = cond, 
  [14:55:47.904]                                 success = TRUE)
  [14:55:47.904]                               parallel_sendData(master, data)
  [14:55:47.904]                             }
  [14:55:47.904]                             return(sendCondition)
  [14:55:47.904]                           }
  [14:55:47.904]                         }
  [14:55:47.904]                         frame <- frame + 1L
  [14:55:47.904]                         envir <- sys.frame(frame)
  [14:55:47.904]                       }
  [14:55:47.904]                     }
  [14:55:47.904]                     sendCondition <<- function(cond) NULL
  [14:55:47.904]                   }
  [14:55:47.904]                 })
  [14:55:47.904]                 withCallingHandlers({
  [14:55:47.904]                   {
  [14:55:47.904]                     doFuture::registerDoFuture()
  [14:55:47.904]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:47.904]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:47.904]                       b <- NULL
  [14:55:47.904]                       ...future.env <- environment()
  [14:55:47.904]                       local({
  [14:55:47.904]                         for (name in names(...future.x_jj)) {
  [14:55:47.904]                           assign(name, ...future.x_jj[[name]], 
  [14:55:47.904]                             envir = ...future.env, inherits = FALSE)
  [14:55:47.904]                         }
  [14:55:47.904]                       })
  [14:55:47.904]                       tryCatch({
  [14:55:47.904]                         plan_list <- future::plan("next")
  [14:55:47.904]                         message(capture.output(print(plan_list)))
  [14:55:47.904]                         stopifnot(inherits(plan_list, "future"))
  [14:55:47.904]                         default <- getOption("future.plan", "sequential")
  [14:55:47.904]                         if (is.function(default)) 
  [14:55:47.904]                           default <- class(default)
  [14:55:47.904]                         stopifnot(inherits(plan_list, default))
  [14:55:47.904]                         plan_b <- future::plan("list")
  [14:55:47.904]                         str(plan_b)
  [14:55:47.904]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:47.904]                           inherits(plan_b[[1]], default))
  [14:55:47.904]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:47.904]                       }, error = identity)
  [14:55:47.904]                     })
  [14:55:47.904]                   }
  [14:55:47.904]                 }, immediateCondition = function(cond) {
  [14:55:47.904]                   sendCondition <- ...future.sendCondition()
  [14:55:47.904]                   sendCondition(cond)
  [14:55:47.904]                   muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:47.904]                   {
  [14:55:47.904]                     inherits <- base::inherits
  [14:55:47.904]                     invokeRestart <- base::invokeRestart
  [14:55:47.904]                     is.null <- base::is.null
  [14:55:47.904]                     muffled <- FALSE
  [14:55:47.904]                     if (inherits(cond, "message")) {
  [14:55:47.904]                       muffled <- grepl(pattern, "muffleMessage")
  [14:55:47.904]                       if (muffled) 
  [14:55:47.904]                         invokeRestart("muffleMessage")
  [14:55:47.904]                     }
  [14:55:47.904]                     else if (inherits(cond, "warning")) {
  [14:55:47.904]                       muffled <- grepl(pattern, "muffleWarning")
  [14:55:47.904]                       if (muffled) 
  [14:55:47.904]                         invokeRestart("muffleWarning")
  [14:55:47.904]                     }
  [14:55:47.904]                     else if (inherits(cond, "condition")) {
  [14:55:47.904]                       if (!is.null(pattern)) {
  [14:55:47.904]                         computeRestarts <- base::computeRestarts
  [14:55:47.904]                         grepl <- base::grepl
  [14:55:47.904]                         restarts <- computeRestarts(cond)
  [14:55:47.904]                         for (restart in restarts) {
  [14:55:47.904]                           name <- restart$name
  [14:55:47.904]                           if (is.null(name)) 
  [14:55:47.904]                             next
  [14:55:47.904]                           if (!grepl(pattern, name)) 
  [14:55:47.904]                             next
  [14:55:47.904]                           invokeRestart(restart)
  [14:55:47.904]                           muffled <- TRUE
  [14:55:47.904]                           break
  [14:55:47.904]                         }
  [14:55:47.904]                       }
  [14:55:47.904]                     }
  [14:55:47.904]                     invisible(muffled)
  [14:55:47.904]                   }
  [14:55:47.904]                   muffleCondition(cond)
  [14:55:47.904]                 })
  [14:55:47.904]             }))
  [14:55:47.904]             future::FutureResult(value = ...future.value$value, 
  [14:55:47.904]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:47.904]                   ...future.rng), started = ...future.startTime, 
  [14:55:47.904]                 version = "1.8")
  [14:55:47.904]         }, condition = base::local({
  [14:55:47.904]             c <- base::c
  [14:55:47.904]             inherits <- base::inherits
  [14:55:47.904]             invokeRestart <- base::invokeRestart
  [14:55:47.904]             length <- base::length
  [14:55:47.904]             list <- base::list
  [14:55:47.904]             seq.int <- base::seq.int
  [14:55:47.904]             signalCondition <- base::signalCondition
  [14:55:47.904]             sys.calls <- base::sys.calls
  [14:55:47.904]             `[[` <- base::`[[`
  [14:55:47.904]             `+` <- base::`+`
  [14:55:47.904]             `<<-` <- base::`<<-`
  [14:55:47.904]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:55:47.904]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:55:47.904]                   3L)]
  [14:55:47.904]             }
  [14:55:47.904]             function(cond) {
  [14:55:47.904]                 is_error <- inherits(cond, "error")
  [14:55:47.904]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:55:47.904]                   NULL)
  [14:55:47.904]                 if (is_error) {
  [14:55:47.904]                   sessionInformation <- function() {
  [14:55:47.904]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:55:47.904]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:55:47.904]                       search = base::search(), system = base::Sys.info())
  [14:55:47.904]                   }
  [14:55:47.904]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:47.904]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:55:47.904]                     cond$call), session = sessionInformation(), 
  [14:55:47.904]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:55:47.904]                   signalCondition(cond)
  [14:55:47.904]                 }
  [14:55:47.904]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:55:47.904]                 "immediateCondition"))) {
  [14:55:47.904]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:55:47.904]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:47.904]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:55:47.904]                   if (TRUE && !signal) {
  [14:55:47.904]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:47.904]                     {
  [14:55:47.904]                       inherits <- base::inherits
  [14:55:47.904]                       invokeRestart <- base::invokeRestart
  [14:55:47.904]                       is.null <- base::is.null
  [14:55:47.904]                       muffled <- FALSE
  [14:55:47.904]                       if (inherits(cond, "message")) {
  [14:55:47.904]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:47.904]                         if (muffled) 
  [14:55:47.904]                           invokeRestart("muffleMessage")
  [14:55:47.904]                       }
  [14:55:47.904]                       else if (inherits(cond, "warning")) {
  [14:55:47.904]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:47.904]                         if (muffled) 
  [14:55:47.904]                           invokeRestart("muffleWarning")
  [14:55:47.904]                       }
  [14:55:47.904]                       else if (inherits(cond, "condition")) {
  [14:55:47.904]                         if (!is.null(pattern)) {
  [14:55:47.904]                           computeRestarts <- base::computeRestarts
  [14:55:47.904]                           grepl <- base::grepl
  [14:55:47.904]                           restarts <- computeRestarts(cond)
  [14:55:47.904]                           for (restart in restarts) {
  [14:55:47.904]                             name <- restart$name
  [14:55:47.904]                             if (is.null(name)) 
  [14:55:47.904]                               next
  [14:55:47.904]                             if (!grepl(pattern, name)) 
  [14:55:47.904]                               next
  [14:55:47.904]                             invokeRestart(restart)
  [14:55:47.904]                             muffled <- TRUE
  [14:55:47.904]                             break
  [14:55:47.904]                           }
  [14:55:47.904]                         }
  [14:55:47.904]                       }
  [14:55:47.904]                       invisible(muffled)
  [14:55:47.904]                     }
  [14:55:47.904]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:47.904]                   }
  [14:55:47.904]                 }
  [14:55:47.904]                 else {
  [14:55:47.904]                   if (TRUE) {
  [14:55:47.904]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:47.904]                     {
  [14:55:47.904]                       inherits <- base::inherits
  [14:55:47.904]                       invokeRestart <- base::invokeRestart
  [14:55:47.904]                       is.null <- base::is.null
  [14:55:47.904]                       muffled <- FALSE
  [14:55:47.904]                       if (inherits(cond, "message")) {
  [14:55:47.904]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:47.904]                         if (muffled) 
  [14:55:47.904]                           invokeRestart("muffleMessage")
  [14:55:47.904]                       }
  [14:55:47.904]                       else if (inherits(cond, "warning")) {
  [14:55:47.904]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:47.904]                         if (muffled) 
  [14:55:47.904]                           invokeRestart("muffleWarning")
  [14:55:47.904]                       }
  [14:55:47.904]                       else if (inherits(cond, "condition")) {
  [14:55:47.904]                         if (!is.null(pattern)) {
  [14:55:47.904]                           computeRestarts <- base::computeRestarts
  [14:55:47.904]                           grepl <- base::grepl
  [14:55:47.904]                           restarts <- computeRestarts(cond)
  [14:55:47.904]                           for (restart in restarts) {
  [14:55:47.904]                             name <- restart$name
  [14:55:47.904]                             if (is.null(name)) 
  [14:55:47.904]                               next
  [14:55:47.904]                             if (!grepl(pattern, name)) 
  [14:55:47.904]                               next
  [14:55:47.904]                             invokeRestart(restart)
  [14:55:47.904]                             muffled <- TRUE
  [14:55:47.904]                             break
  [14:55:47.904]                           }
  [14:55:47.904]                         }
  [14:55:47.904]                       }
  [14:55:47.904]                       invisible(muffled)
  [14:55:47.904]                     }
  [14:55:47.904]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:47.904]                   }
  [14:55:47.904]                 }
  [14:55:47.904]             }
  [14:55:47.904]         }))
  [14:55:47.904]     }, error = function(ex) {
  [14:55:47.904]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:55:47.904]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:47.904]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:55:47.904]     }, finally = {
  [14:55:47.904]         {
  [14:55:47.904]             {
  [14:55:47.904]                 NULL
  [14:55:47.904]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:55:47.904]             }
  [14:55:47.904]             options(future.plan = NULL)
  [14:55:47.904]             if (is.na(NA_character_)) 
  [14:55:47.904]                 Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:47.904]             else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:55:47.904]             future::plan(list(b = function (..., workers = availableCores(), 
  [14:55:47.904]                 lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 
  [14:55:47.904]             {
  [14:55:47.904]                 if (is.function(workers)) 
  [14:55:47.904]                   workers <- workers()
  [14:55:47.904]                 workers <- as.integer(workers)
  [14:55:47.904]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:55:47.904]                   workers >= 1)
  [14:55:47.904]                 if (workers == 1L) {
  [14:55:47.904]                   return(sequential(..., lazy = TRUE, envir = envir))
  [14:55:47.904]                 }
  [14:55:47.904]                 future <- MultisessionFuture(..., workers = workers, 
  [14:55:47.904]                   lazy = lazy, rscript_libs = rscript_libs, envir = envir)
  [14:55:47.904]                 if (!future$lazy) 
  [14:55:47.904]                   future <- run(future)
  [14:55:47.904]                 invisible(future)
  [14:55:47.904]             }), .cleanup = FALSE, .init = FALSE)
  [14:55:47.904]         }
  [14:55:47.904]         base::options(...future.oldOptions)
  [14:55:47.904]     })
  [14:55:47.904]     if (TRUE) {
  [14:55:47.904]         base::sink(type = "output", split = FALSE)
  [14:55:47.904]         if (TRUE) {
  [14:55:47.904]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:55:47.904]         }
  [14:55:47.904]         else {
  [14:55:47.904]             ...future.result["stdout"] <- base::list(NULL)
  [14:55:47.904]         }
  [14:55:47.904]         base::close(...future.stdout)
  [14:55:47.904]         ...future.stdout <- NULL
  [14:55:47.904]     }
  [14:55:47.904]     ...future.result$conditions <- ...future.conditions
  [14:55:47.904]     ...future.result
  [14:55:47.904] }
  [14:55:48.747]  - Condition #457: 'simpleMessage', 'message', 'condition'
  [14:55:47.909] Exporting 3 global objects (36.01 KiB) to cluster node #1 ...
  [14:55:48.747]  - Condition #458: 'simpleMessage', 'message', 'condition'
  [14:55:47.909] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
  [14:55:48.748]  - Condition #459: 'simpleMessage', 'message', 'condition'
  [14:55:47.910] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
  [14:55:48.764]  - Condition #460: 'simpleMessage', 'message', 'condition'
  [14:55:47.911] Exporting 'a' (56 bytes) to cluster node #1 ...
  [14:55:48.765]  - Condition #461: 'simpleMessage', 'message', 'condition'
  [14:55:47.911] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
  [14:55:48.765]  - Condition #462: 'simpleMessage', 'message', 'condition'
  [14:55:47.912] Exporting 'plan_a' (35.95 KiB) to cluster node #1 ...
  [14:55:48.765]  - Condition #463: 'simpleMessage', 'message', 'condition'
  [14:55:47.961] Exporting 'plan_a' (35.95 KiB) to cluster node #1 ... DONE
  [14:55:48.766]  - Condition #464: 'simpleMessage', 'message', 'condition'
  [14:55:47.961] Exporting 3 global objects (36.01 KiB) to cluster node #1 ... DONE
  [14:55:48.766]  - Condition #465: 'simpleMessage', 'message', 'condition'
  [14:55:47.963] MultisessionFuture started
  [14:55:48.766]  - Condition #466: 'simpleMessage', 'message', 'condition'
  [14:55:47.963] - Launch lazy future ... done
  [14:55:48.767]  - Condition #467: 'simpleMessage', 'message', 'condition'
  [14:55:47.963] run() for 'MultisessionFuture' ... done
  [14:55:48.767]  - Condition #468: 'simpleMessage', 'message', 'condition'
  [14:55:47.964] Chunk #1 of 2 ... DONE
  [14:55:48.767]  - Condition #469: 'simpleMessage', 'message', 'condition'
  [14:55:47.964] Chunk #2 of 2 ...
  [14:55:48.768]  - Condition #470: 'simpleMessage', 'message', 'condition'
  [14:55:47.964]  - Finding globals in 'args_list' chunk #2 ...
  [14:55:48.768]  - Condition #471: 'simpleMessage', 'message', 'condition'
  [14:55:47.964] getGlobalsAndPackages() ...
  [14:55:48.768]  - Condition #472: 'simpleMessage', 'message', 'condition'
  [14:55:47.965] Searching for globals...
  [14:55:48.769]  - Condition #473: 'simpleMessage', 'message', 'condition'
  [14:55:47.966] 
  [14:55:48.769]  - Condition #474: 'simpleMessage', 'message', 'condition'
  [14:55:47.981] Searching for globals ... DONE
  [14:55:48.769]  - Condition #475: 'simpleMessage', 'message', 'condition'
  [14:55:47.981] - globals: [0] <none>
  [14:55:48.769]  - Condition #476: 'simpleMessage', 'message', 'condition'
  [14:55:47.981] getGlobalsAndPackages() ... DONE
  [14:55:48.770]  - Condition #477: 'simpleMessage', 'message', 'condition'
  [14:55:47.981] 
  [14:55:48.770]  - Condition #478: 'simpleMessage', 'message', 'condition'
  [14:55:47.982] 
  [14:55:48.770]  - Condition #479: 'simpleMessage', 'message', 'condition'
  [14:55:47.982]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:55:48.771]  - Condition #480: 'simpleMessage', 'message', 'condition'
  [14:55:47.982] getGlobalsAndPackages() ...
  [14:55:48.771]  - Condition #481: 'simpleMessage', 'message', 'condition'
  [14:55:47.983] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:48.771]  - Condition #482: 'simpleMessage', 'message', 'condition'
  [14:55:47.983] Resolving globals: FALSE
  [14:55:48.772]  - Condition #483: 'simpleMessage', 'message', 'condition'
  [14:55:47.984] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:48.772]  - Condition #484: 'simpleMessage', 'message', 'condition'
  [14:55:47.984] 
  [14:55:48.772]  - Condition #485: 'simpleMessage', 'message', 'condition'
  [14:55:47.984] getGlobalsAndPackages() ... DONE
  [14:55:48.773]  - Condition #486: 'simpleMessage', 'message', 'condition'
  [14:55:47.985] run() for 'Future' ...
  [14:55:48.773]  - Condition #487: 'simpleMessage', 'message', 'condition'
  [14:55:47.985] - state: 'created'
  [14:55:48.773]  - Condition #488: 'simpleMessage', 'message', 'condition'
  [14:55:47.986] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
  [14:55:48.774]  - Condition #489: 'simpleMessage', 'message', 'condition'
  [14:55:48.011] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
  [14:55:48.774]  - Condition #490: 'simpleMessage', 'message', 'condition'
  [14:55:48.011] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
  [14:55:48.774]  - Condition #491: 'simpleMessage', 'message', 'condition'
  [14:55:48.012]   - Field: 'node'
  [14:55:48.774]  - Condition #492: 'simpleMessage', 'message', 'condition'
  [14:55:48.012]   - Field: 'label'
  [14:55:48.775]  - Condition #493: 'simpleMessage', 'message', 'condition'
  [14:55:48.012]   - Field: 'local'
  [14:55:48.775]  - Condition #494: 'simpleMessage', 'message', 'condition'
  [14:55:48.013]   - Field: 'owner'
  [14:55:48.775]  - Condition #495: 'simpleMessage', 'message', 'condition'
  [14:55:48.013]   - Field: 'envir'
  [14:55:48.776]  - Condition #496: 'simpleMessage', 'message', 'condition'
  [14:55:48.013]   - Field: 'workers'
  [14:55:48.776]  - Condition #497: 'simpleMessage', 'message', 'condition'
  [14:55:48.013]   - Field: 'packages'
  [14:55:48.777]  - Condition #498: 'simpleMessage', 'message', 'condition'
  [14:55:48.014]   - Field: 'gc'
  [14:55:48.777]  - Condition #499: 'simpleMessage', 'message', 'condition'
  [14:55:48.014]   - Field: 'conditions'
  [14:55:48.777]  - Condition #500: 'simpleMessage', 'message', 'condition'
  [14:55:48.014]   - Field: 'persistent'
  [14:55:48.778]  - Condition #501: 'simpleMessage', 'message', 'condition'
  [14:55:48.015]   - Field: 'expr'
  [14:55:48.778]  - Condition #502: 'simpleMessage', 'message', 'condition'
  [14:55:48.015]   - Field: 'uuid'
  [14:55:48.778]  - Condition #503: 'simpleMessage', 'message', 'condition'
  [14:55:48.015]   - Field: 'seed'
  [14:55:48.778]  - Condition #504: 'simpleMessage', 'message', 'condition'
  [14:55:48.016]   - Field: 'version'
  [14:55:48.779]  - Condition #505: 'simpleMessage', 'message', 'condition'
  [14:55:48.016]   - Field: 'result'
  [14:55:48.779]  - Condition #506: 'simpleMessage', 'message', 'condition'
  [14:55:48.016]   - Field: 'asynchronous'
  [14:55:48.779]  - Condition #507: 'simpleMessage', 'message', 'condition'
  [14:55:48.031]   - Field: 'calls'
  [14:55:48.780]  - Condition #508: 'simpleMessage', 'message', 'condition'
  [14:55:48.031]   - Field: 'globals'
  [14:55:48.780]  - Condition #509: 'simpleMessage', 'message', 'condition'
  [14:55:48.032]   - Field: 'stdout'
  [14:55:48.797]  - Condition #510: 'simpleMessage', 'message', 'condition'
  [14:55:48.032]   - Field: 'earlySignal'
  [14:55:48.797]  - Condition #511: 'simpleMessage', 'message', 'condition'
  [14:55:48.032]   - Field: 'lazy'
  [14:55:48.797]  - Condition #512: 'simpleMessage', 'message', 'condition'
  [14:55:48.033]   - Field: 'state'
  [14:55:48.798]  - Condition #513: 'simpleMessage', 'message', 'condition'
  [14:55:48.033] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
  [14:55:48.798]  - Condition #514: 'simpleMessage', 'message', 'condition'
  [14:55:48.033] - Launch lazy future ...
  [14:55:48.798]  - Condition #515: 'simpleMessage', 'message', 'condition'
  [14:55:48.034] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:55:48.799]  - Condition #516: 'simpleMessage', 'message', 'condition'
  [14:55:48.034] Packages needed by future strategies (n = 0): <none>
  [14:55:48.799]  - Condition #517: 'simpleMessage', 'message', 'condition'
  [14:55:48.036] {
  [14:55:48.036]     {
  [14:55:48.036]         ...future.startTime <- base::Sys.time()
  [14:55:48.036]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:55:48.036]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:55:48.036]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:55:48.036]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:55:48.036]             future.resolve.recursive = NULL, future.rng.onMisuse = NULL, 
  [14:55:48.036]             future.rng.onMisuse.keepFuture = NULL, future.stdout.windows.reencode = NULL, 
  [14:55:48.036]             width = 80L)
  [14:55:48.036]         {
  [14:55:48.036]             {
  [14:55:48.036]                 {
  [14:55:48.036]                   {
  [14:55:48.036]                     base::local({
  [14:55:48.036]                       has_future <- base::requireNamespace("future", 
  [14:55:48.036]                         quietly = TRUE)
  [14:55:48.036]                       if (has_future) {
  [14:55:48.036]                         ns <- base::getNamespace("future")
  [14:55:48.036]                         version <- ns[[".package"]][["version"]]
  [14:55:48.036]                         if (is.null(version)) 
  [14:55:48.036]                           version <- utils::packageVersion("future")
  [14:55:48.036]                       }
  [14:55:48.036]                       else {
  [14:55:48.036]                         version <- NULL
  [14:55:48.036]                       }
  [14:55:48.036]                       if (!has_future || version < "1.8.0") {
  [14:55:48.036]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:55:48.036]                           "", base::R.version$version.string), 
  [14:55:48.036]                           platform = base::sprintf("%s (%s-bit)", 
  [14:55:48.036]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:55:48.036]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:55:48.036]                             "release", "version")], collapse = " "), 
  [14:55:48.036]                           hostname = base::Sys.info()[["nodename"]])
  [14:55:48.036]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:55:48.036]                           info)
  [14:55:48.036]                         info <- base::paste(info, collapse = "; ")
  [14:55:48.036]                         if (!has_future) {
  [14:55:48.036]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:55:48.036]                             info)
  [14:55:48.036]                         }
  [14:55:48.036]                         else {
  [14:55:48.036]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:55:48.036]                             info, version)
  [14:55:48.036]                         }
  [14:55:48.036]                         base::stop(msg)
  [14:55:48.036]                       }
  [14:55:48.036]                     })
  [14:55:48.036]                   }
  [14:55:48.036]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:55:48.036]                   base::options(mc.cores = 1L)
  [14:55:48.036]                 }
  [14:55:48.036]                 base::local({
  [14:55:48.036]                   for (pkg in c("doFuture", "utils")) {
  [14:55:48.036]                     base::loadNamespace(pkg)
  [14:55:48.036]                     base::library(pkg, character.only = TRUE)
  [14:55:48.036]                   }
  [14:55:48.036]                 })
  [14:55:48.036]             }
  [14:55:48.036]             options(future.plan = NULL)
  [14:55:48.036]             Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:48.036]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:55:48.036]         }
  [14:55:48.036]     }
  [14:55:48.036]     if (FALSE) {
  [14:55:48.036]     }
  [14:55:48.036]     else {
  [14:55:48.036]         if (TRUE) {
  [14:55:48.036]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:55:48.036]                 open = "w")
  [14:55:48.036]         }
  [14:55:48.036]         else {
  [14:55:48.036]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:55:48.036]                 windows = "NUL", "/dev/null"), open = "w")
  [14:55:48.036]         }
  [14:55:48.036]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:55:48.036]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:55:48.036]             base::sink(type = "output", split = FALSE)
  [14:55:48.036]             base::close(...future.stdout)
  [14:55:48.036]         }, add = TRUE)
  [14:55:48.036]     }
  [14:55:48.036]     ...future.frame <- base::sys.nframe()
  [14:55:48.036]     ...future.conditions <- base::list()
  [14:55:48.036]     ...future.rng <- base::globalenv()$.Random.seed
  [14:55:48.036]     ...future.result <- base::tryCatch({
  [14:55:48.036]         base::withCallingHandlers({
  [14:55:48.036]             ...future.value <- base::withVisible(base::local({
  [14:55:48.036]                 ...future.sendCondition <- local({
  [14:55:48.036]                   sendCondition <- NULL
  [14:55:48.036]                   function(frame = 1L) {
  [14:55:48.036]                     if (is.function(sendCondition)) 
  [14:55:48.036]                       return(sendCondition)
  [14:55:48.036]                     ns <- getNamespace("parallel")
  [14:55:48.036]                     if (exists("sendData", mode = "function", 
  [14:55:48.036]                       envir = ns)) {
  [14:55:48.036]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:55:48.036]                         envir = ns)
  [14:55:48.036]                       envir <- sys.frame(frame)
  [14:55:48.036]                       master <- NULL
  [14:55:48.036]                       while (!identical(envir, .GlobalEnv) && 
  [14:55:48.036]                         !identical(envir, emptyenv())) {
  [14:55:48.036]                         if (exists("master", mode = "list", envir = envir, 
  [14:55:48.036]                           inherits = FALSE)) {
  [14:55:48.036]                           master <- get("master", mode = "list", 
  [14:55:48.036]                             envir = envir, inherits = FALSE)
  [14:55:48.036]                           if (inherits(master, c("SOCKnode", 
  [14:55:48.036]                             "SOCK0node"))) {
  [14:55:48.036]                             sendCondition <<- function(cond) {
  [14:55:48.036]                               data <- list(type = "VALUE", value = cond, 
  [14:55:48.036]                                 success = TRUE)
  [14:55:48.036]                               parallel_sendData(master, data)
  [14:55:48.036]                             }
  [14:55:48.036]                             return(sendCondition)
  [14:55:48.036]                           }
  [14:55:48.036]                         }
  [14:55:48.036]                         frame <- frame + 1L
  [14:55:48.036]                         envir <- sys.frame(frame)
  [14:55:48.036]                       }
  [14:55:48.036]                     }
  [14:55:48.036]                     sendCondition <<- function(cond) NULL
  [14:55:48.036]                   }
  [14:55:48.036]                 })
  [14:55:48.036]                 withCallingHandlers({
  [14:55:48.036]                   {
  [14:55:48.036]                     doFuture::registerDoFuture()
  [14:55:48.036]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:48.036]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:48.036]                       b <- NULL
  [14:55:48.036]                       ...future.env <- environment()
  [14:55:48.036]                       local({
  [14:55:48.036]                         for (name in names(...future.x_jj)) {
  [14:55:48.036]                           assign(name, ...future.x_jj[[name]], 
  [14:55:48.036]                             envir = ...future.env, inherits = FALSE)
  [14:55:48.036]                         }
  [14:55:48.036]                       })
  [14:55:48.036]                       tryCatch({
  [14:55:48.036]                         plan_list <- future::plan("next")
  [14:55:48.036]                         message(capture.output(print(plan_list)))
  [14:55:48.036]                         stopifnot(inherits(plan_list, "future"))
  [14:55:48.036]                         default <- getOption("future.plan", "sequential")
  [14:55:48.036]                         if (is.function(default)) 
  [14:55:48.036]                           default <- class(default)
  [14:55:48.036]                         stopifnot(inherits(plan_list, default))
  [14:55:48.036]                         plan_b <- future::plan("list")
  [14:55:48.036]                         str(plan_b)
  [14:55:48.036]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:48.036]                           inherits(plan_b[[1]], default))
  [14:55:48.036]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:48.036]                       }, error = identity)
  [14:55:48.036]                     })
  [14:55:48.036]                   }
  [14:55:48.036]                 }, immediateCondition = function(cond) {
  [14:55:48.036]                   sendCondition <- ...future.sendCondition()
  [14:55:48.036]                   sendCondition(cond)
  [14:55:48.036]                   muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:48.036]                   {
  [14:55:48.036]                     inherits <- base::inherits
  [14:55:48.036]                     invokeRestart <- base::invokeRestart
  [14:55:48.036]                     is.null <- base::is.null
  [14:55:48.036]                     muffled <- FALSE
  [14:55:48.036]                     if (inherits(cond, "message")) {
  [14:55:48.036]                       muffled <- grepl(pattern, "muffleMessage")
  [14:55:48.036]                       if (muffled) 
  [14:55:48.036]                         invokeRestart("muffleMessage")
  [14:55:48.036]                     }
  [14:55:48.036]                     else if (inherits(cond, "warning")) {
  [14:55:48.036]                       muffled <- grepl(pattern, "muffleWarning")
  [14:55:48.036]                       if (muffled) 
  [14:55:48.036]                         invokeRestart("muffleWarning")
  [14:55:48.036]                     }
  [14:55:48.036]                     else if (inherits(cond, "condition")) {
  [14:55:48.036]                       if (!is.null(pattern)) {
  [14:55:48.036]                         computeRestarts <- base::computeRestarts
  [14:55:48.036]                         grepl <- base::grepl
  [14:55:48.036]                         restarts <- computeRestarts(cond)
  [14:55:48.036]                         for (restart in restarts) {
  [14:55:48.036]                           name <- restart$name
  [14:55:48.036]                           if (is.null(name)) 
  [14:55:48.036]                             next
  [14:55:48.036]                           if (!grepl(pattern, name)) 
  [14:55:48.036]                             next
  [14:55:48.036]                           invokeRestart(restart)
  [14:55:48.036]                           muffled <- TRUE
  [14:55:48.036]                           break
  [14:55:48.036]                         }
  [14:55:48.036]                       }
  [14:55:48.036]                     }
  [14:55:48.036]                     invisible(muffled)
  [14:55:48.036]                   }
  [14:55:48.036]                   muffleCondition(cond)
  [14:55:48.036]                 })
  [14:55:48.036]             }))
  [14:55:48.036]             future::FutureResult(value = ...future.value$value, 
  [14:55:48.036]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:48.036]                   ...future.rng), started = ...future.startTime, 
  [14:55:48.036]                 version = "1.8")
  [14:55:48.036]         }, condition = base::local({
  [14:55:48.036]             c <- base::c
  [14:55:48.036]             inherits <- base::inherits
  [14:55:48.036]             invokeRestart <- base::invokeRestart
  [14:55:48.036]             length <- base::length
  [14:55:48.036]             list <- base::list
  [14:55:48.036]             seq.int <- base::seq.int
  [14:55:48.036]             signalCondition <- base::signalCondition
  [14:55:48.036]             sys.calls <- base::sys.calls
  [14:55:48.036]             `[[` <- base::`[[`
  [14:55:48.036]             `+` <- base::`+`
  [14:55:48.036]             `<<-` <- base::`<<-`
  [14:55:48.036]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:55:48.036]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:55:48.036]                   3L)]
  [14:55:48.036]             }
  [14:55:48.036]             function(cond) {
  [14:55:48.036]                 is_error <- inherits(cond, "error")
  [14:55:48.036]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:55:48.036]                   NULL)
  [14:55:48.036]                 if (is_error) {
  [14:55:48.036]                   sessionInformation <- function() {
  [14:55:48.036]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:55:48.036]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:55:48.036]                       search = base::search(), system = base::Sys.info())
  [14:55:48.036]                   }
  [14:55:48.036]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:48.036]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:55:48.036]                     cond$call), session = sessionInformation(), 
  [14:55:48.036]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:55:48.036]                   signalCondition(cond)
  [14:55:48.036]                 }
  [14:55:48.036]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:55:48.036]                 "immediateCondition"))) {
  [14:55:48.036]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:55:48.036]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:48.036]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:55:48.036]                   if (TRUE && !signal) {
  [14:55:48.036]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:48.036]                     {
  [14:55:48.036]                       inherits <- base::inherits
  [14:55:48.036]                       invokeRestart <- base::invokeRestart
  [14:55:48.036]                       is.null <- base::is.null
  [14:55:48.036]                       muffled <- FALSE
  [14:55:48.036]                       if (inherits(cond, "message")) {
  [14:55:48.036]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:48.036]                         if (muffled) 
  [14:55:48.036]                           invokeRestart("muffleMessage")
  [14:55:48.036]                       }
  [14:55:48.036]                       else if (inherits(cond, "warning")) {
  [14:55:48.036]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:48.036]                         if (muffled) 
  [14:55:48.036]                           invokeRestart("muffleWarning")
  [14:55:48.036]                       }
  [14:55:48.036]                       else if (inherits(cond, "condition")) {
  [14:55:48.036]                         if (!is.null(pattern)) {
  [14:55:48.036]                           computeRestarts <- base::computeRestarts
  [14:55:48.036]                           grepl <- base::grepl
  [14:55:48.036]                           restarts <- computeRestarts(cond)
  [14:55:48.036]                           for (restart in restarts) {
  [14:55:48.036]                             name <- restart$name
  [14:55:48.036]                             if (is.null(name)) 
  [14:55:48.036]                               next
  [14:55:48.036]                             if (!grepl(pattern, name)) 
  [14:55:48.036]                               next
  [14:55:48.036]                             invokeRestart(restart)
  [14:55:48.036]                             muffled <- TRUE
  [14:55:48.036]                             break
  [14:55:48.036]                           }
  [14:55:48.036]                         }
  [14:55:48.036]                       }
  [14:55:48.036]                       invisible(muffled)
  [14:55:48.036]                     }
  [14:55:48.036]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:48.036]                   }
  [14:55:48.036]                 }
  [14:55:48.036]                 else {
  [14:55:48.036]                   if (TRUE) {
  [14:55:48.036]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:48.036]                     {
  [14:55:48.036]                       inherits <- base::inherits
  [14:55:48.036]                       invokeRestart <- base::invokeRestart
  [14:55:48.036]                       is.null <- base::is.null
  [14:55:48.036]                       muffled <- FALSE
  [14:55:48.036]                       if (inherits(cond, "message")) {
  [14:55:48.036]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:48.036]                         if (muffled) 
  [14:55:48.036]                           invokeRestart("muffleMessage")
  [14:55:48.036]                       }
  [14:55:48.036]                       else if (inherits(cond, "warning")) {
  [14:55:48.036]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:48.036]                         if (muffled) 
  [14:55:48.036]                           invokeRestart("muffleWarning")
  [14:55:48.036]                       }
  [14:55:48.036]                       else if (inherits(cond, "condition")) {
  [14:55:48.036]                         if (!is.null(pattern)) {
  [14:55:48.036]                           computeRestarts <- base::computeRestarts
  [14:55:48.036]                           grepl <- base::grepl
  [14:55:48.036]                           restarts <- computeRestarts(cond)
  [14:55:48.036]                           for (restart in restarts) {
  [14:55:48.036]                             name <- restart$name
  [14:55:48.036]                             if (is.null(name)) 
  [14:55:48.036]                               next
  [14:55:48.036]                             if (!grepl(pattern, name)) 
  [14:55:48.036]                               next
  [14:55:48.036]                             invokeRestart(restart)
  [14:55:48.036]                             muffled <- TRUE
  [14:55:48.036]                             break
  [14:55:48.036]                           }
  [14:55:48.036]                         }
  [14:55:48.036]                       }
  [14:55:48.036]                       invisible(muffled)
  [14:55:48.036]                     }
  [14:55:48.036]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:48.036]                   }
  [14:55:48.036]                 }
  [14:55:48.036]             }
  [14:55:48.036]         }))
  [14:55:48.036]     }, error = function(ex) {
  [14:55:48.036]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:55:48.036]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:48.036]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:55:48.036]     }, finally = {
  [14:55:48.036]         {
  [14:55:48.036]             {
  [14:55:48.036]                 NULL
  [14:55:48.036]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:55:48.036]             }
  [14:55:48.036]             options(future.plan = NULL)
  [14:55:48.036]             if (is.na(NA_character_)) 
  [14:55:48.036]                 Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:48.036]             else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:55:48.036]             future::plan(list(b = function (..., workers = availableCores(), 
  [14:55:48.036]                 lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame()) 
  [14:55:48.036]             {
  [14:55:48.036]                 if (is.function(workers)) 
  [14:55:48.036]                   workers <- workers()
  [14:55:48.036]                 workers <- as.integer(workers)
  [14:55:48.036]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:55:48.036]                   workers >= 1)
  [14:55:48.036]                 if (workers == 1L) {
  [14:55:48.036]                   return(sequential(..., lazy = TRUE, envir = envir))
  [14:55:48.036]                 }
  [14:55:48.036]                 future <- MultisessionFuture(..., workers = workers, 
  [14:55:48.036]                   lazy = lazy, rscript_libs = rscript_libs, envir = envir)
  [14:55:48.036]                 if (!future$lazy) 
  [14:55:48.036]                   future <- run(future)
  [14:55:48.036]                 invisible(future)
  [14:55:48.036]             }), .cleanup = FALSE, .init = FALSE)
  [14:55:48.036]         }
  [14:55:48.036]         base::options(...future.oldOptions)
  [14:55:48.036]     })
  [14:55:48.036]     if (TRUE) {
  [14:55:48.036]         base::sink(type = "output", split = FALSE)
  [14:55:48.036]         if (TRUE) {
  [14:55:48.036]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:55:48.036]         }
  [14:55:48.036]         else {
  [14:55:48.036]             ...future.result["stdout"] <- base::list(NULL)
  [14:55:48.036]         }
  [14:55:48.036]         base::close(...future.stdout)
  [14:55:48.036]         ...future.stdout <- NULL
  [14:55:48.036]     }
  [14:55:48.036]     ...future.result$conditions <- ...future.conditions
  [14:55:48.036]     ...future.result
  [14:55:48.036] }
  [14:55:48.799]  - Condition #518: 'simpleMessage', 'message', 'condition'
  [14:55:48.057] Exporting 3 global objects (36.01 KiB) to cluster node #2 ...
  [14:55:48.800]  - Condition #519: 'simpleMessage', 'message', 'condition'
  [14:55:48.057] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ...
  [14:55:48.800]  - Condition #520: 'simpleMessage', 'message', 'condition'
  [14:55:48.058] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ... DONE
  [14:55:48.800]  - Condition #521: 'simpleMessage', 'message', 'condition'
  [14:55:48.058] Exporting 'a' (56 bytes) to cluster node #2 ...
  [14:55:48.801]  - Condition #522: 'simpleMessage', 'message', 'condition'
  [14:55:48.059] Exporting 'a' (56 bytes) to cluster node #2 ... DONE
  [14:55:48.801]  - Condition #523: 'simpleMessage', 'message', 'condition'
  [14:55:48.060] Exporting 'plan_a' (35.95 KiB) to cluster node #2 ...
  [14:55:48.801]  - Condition #524: 'simpleMessage', 'message', 'condition'
  [14:55:48.109] Exporting 'plan_a' (35.95 KiB) to cluster node #2 ... DONE
  [14:55:48.801]  - Condition #525: 'simpleMessage', 'message', 'condition'
  [14:55:48.109] Exporting 3 global objects (36.01 KiB) to cluster node #2 ... DONE
  [14:55:48.802]  - Condition #526: 'simpleMessage', 'message', 'condition'
  [14:55:48.110] MultisessionFuture started
  [14:55:48.802]  - Condition #527: 'simpleMessage', 'message', 'condition'
  [14:55:48.111] - Launch lazy future ... done
  [14:55:48.802]  - Condition #528: 'simpleMessage', 'message', 'condition'
  [14:55:48.111] run() for 'MultisessionFuture' ... done
  [14:55:48.803]  - Condition #529: 'simpleMessage', 'message', 'condition'
  [14:55:48.111] Chunk #2 of 2 ... DONE
  [14:55:48.803]  - Condition #530: 'simpleMessage', 'message', 'condition'
  [14:55:48.112] Launching 2 futures (chunks) ... DONE
  [14:55:48.803]  - Condition #531: 'simpleMessage', 'message', 'condition'
  [14:55:48.112] - resolving futures
  [14:55:48.804]  - Condition #532: 'simpleMessage', 'message', 'condition'
  [14:55:48.112]   - gathering results & relaying conditions (except errors)
  [14:55:48.804]  - Condition #533: 'simpleMessage', 'message', 'condition'
  [14:55:48.113] resolve() on list ...
  [14:55:48.804]  - Condition #534: 'simpleMessage', 'message', 'condition'
  [14:55:48.113]  recursive: 0
  [14:55:48.805]  - Condition #535: 'simpleMessage', 'message', 'condition'
  [14:55:48.113]  length: 2
  [14:55:48.805]  - Condition #536: 'simpleMessage', 'message', 'condition'
  [14:55:48.113] 
  [14:55:48.805]  - Condition #537: 'simpleMessage', 'message', 'condition'
  [14:55:48.115] receiveMessageFromWorker() for ClusterFuture ...
  [14:55:48.805]  - Condition #538: 'simpleMessage', 'message', 'condition'
  [14:55:48.115] - Validating connection of MultisessionFuture
  [14:55:48.806]  - Condition #539: 'simpleMessage', 'message', 'condition'
  [14:55:48.116] - received message: FutureResult
  [14:55:48.806]  - Condition #540: 'simpleMessage', 'message', 'condition'
  [14:55:48.116] - Received FutureResult
  [14:55:48.806]  - Condition #541: 'simpleMessage', 'message', 'condition'
  [14:55:48.127] - Erased future from FutureRegistry
  [14:55:48.807]  - Condition #542: 'simpleMessage', 'message', 'condition'
  [14:55:48.128] result() for ClusterFuture ...
  [14:55:48.807]  - Condition #543: 'simpleMessage', 'message', 'condition'
  [14:55:48.128] - result already collected: FutureResult
  [14:55:48.807]  - Condition #544: 'simpleMessage', 'message', 'condition'
  [14:55:48.128] result() for ClusterFuture ... done
  [14:55:48.808]  - Condition #545: 'simpleMessage', 'message', 'condition'
  [14:55:48.129] signalConditions() ...
  [14:55:48.808]  - Condition #546: 'simpleMessage', 'message', 'condition'
  [14:55:48.129]  - include = 'immediateCondition'
  [14:55:48.808]  - Condition #547: 'simpleMessage', 'message', 'condition'
  [14:55:48.129]  - exclude = 
  [14:55:48.808]  - Condition #548: 'simpleMessage', 'message', 'condition'
  [14:55:48.129]  - resignal = FALSE
  [14:55:48.809]  - Condition #549: 'simpleMessage', 'message', 'condition'
  [14:55:48.130]  - Number of conditions: 1
  [14:55:48.809]  - Condition #550: 'simpleMessage', 'message', 'condition'
  [14:55:48.130] signalConditions() ... done
  [14:55:48.809]  - Condition #551: 'simpleMessage', 'message', 'condition'
  [14:55:48.131] receiveMessageFromWorker() for ClusterFuture ... done
  [14:55:48.810]  - Condition #552: 'simpleMessage', 'message', 'condition'
  [14:55:48.131] Future #1
  [14:55:48.810]  - Condition #553: 'simpleMessage', 'message', 'condition'
  [14:55:48.131] result() for ClusterFuture ...
  [14:55:48.810]  - Condition #554: 'simpleMessage', 'message', 'condition'
  [14:55:48.131] - result already collected: FutureResult
  [14:55:48.811]  - Condition #555: 'simpleMessage', 'message', 'condition'
  [14:55:48.132] result() for ClusterFuture ... done
  [14:55:48.811]  - Condition #556: 'simpleMessage', 'message', 'condition'
  [14:55:48.132] result() for ClusterFuture ...
  [14:55:48.811]  - Condition #557: 'simpleMessage', 'message', 'condition'
  [14:55:48.132] - result already collected: FutureResult
  [14:55:48.812]  - Condition #558: 'simpleMessage', 'message', 'condition'
  [14:55:48.133] result() for ClusterFuture ... done
  [14:55:48.812]  - Condition #559: 'simpleMessage', 'message', 'condition'
  [14:55:48.133] signalConditions() ...
  [14:55:48.817]  - Condition #560: 'simpleMessage', 'message', 'condition'
  [14:55:48.133]  - include = 'immediateCondition'
  [14:55:48.818]  - Condition #561: 'simpleMessage', 'message', 'condition'
  [14:55:48.133]  - exclude = 
  [14:55:48.818]  - Condition #562: 'simpleMessage', 'message', 'condition'
  [14:55:48.134]  - resignal = FALSE
  [14:55:48.818]  - Condition #563: 'simpleMessage', 'message', 'condition'
  [14:55:48.134]  - Number of conditions: 1
  [14:55:48.819]  - Condition #564: 'simpleMessage', 'message', 'condition'
  [14:55:48.134] signalConditions() ... done
  [14:55:48.819]  - Condition #565: 'simpleMessage', 'message', 'condition'
  [14:55:48.135] signalConditionsASAP(MultisessionFuture, pos=1) ...
  [14:55:48.819]  - Condition #566: 'simpleMessage', 'message', 'condition'
  [14:55:48.135] - nx: 2
  [14:55:48.820]  - Condition #567: 'simpleMessage', 'message', 'condition'
  [14:55:48.135] - relay: TRUE
  [14:55:48.820]  - Condition #568: 'simpleMessage', 'message', 'condition'
  [14:55:48.135] - stdout: TRUE
  [14:55:48.820]  - Condition #569: 'simpleMessage', 'message', 'condition'
  [14:55:48.136] - signal: TRUE
  [14:55:48.821]  - Condition #570: 'simpleMessage', 'message', 'condition'
  [14:55:48.136] - resignal: FALSE
  [14:55:48.821]  - Condition #571: 'simpleMessage', 'message', 'condition'
  [14:55:48.136] - force: FALSE
  [14:55:48.821]  - Condition #572: 'simpleMessage', 'message', 'condition'
  [14:55:48.136] - relayed: [n=2] FALSE, FALSE
  [14:55:48.822]  - Condition #573: 'simpleMessage', 'message', 'condition'
  [14:55:48.136] - queued futures: [n=2] FALSE, FALSE
  [14:55:48.822]  - Condition #574: 'simpleMessage', 'message', 'condition'
  [14:55:48.137]  - until=1
  [14:55:48.822]  - Condition #575: 'simpleMessage', 'message', 'condition'
  [14:55:48.137]  - relaying element #1
  [14:55:48.822]  - Condition #576: 'simpleMessage', 'message', 'condition'
  [14:55:48.137] result() for ClusterFuture ...
  [14:55:48.823]  - Condition #577: 'simpleMessage', 'message', 'condition'
  [14:55:48.138] - result already collected: FutureResult
  [14:55:48.823]  - Condition #578: 'simpleMessage', 'message', 'condition'
  [14:55:48.138] result() for ClusterFuture ... done
  [14:55:48.823]  - Condition #579: 'simpleMessage', 'message', 'condition'
  [14:55:48.138] result() for ClusterFuture ...
  [14:55:48.824]  - Condition #580: 'simpleMessage', 'message', 'condition'
  [14:55:48.139] - result already collected: FutureResult
  [14:55:48.824]  - Condition #581: 'simpleMessage', 'message', 'condition'
  [14:55:48.139] result() for ClusterFuture ... done
  [14:55:48.824]  - Condition #582: 'simpleMessage', 'message', 'condition'
  [14:55:48.139] signalConditions() ...
  [14:55:48.825]  - Condition #583: 'simpleMessage', 'message', 'condition'
  [14:55:48.139]  - include = 'immediateCondition'
  [14:55:48.825]  - Condition #584: 'simpleMessage', 'message', 'condition'
  [14:55:48.140]  - exclude = 
  [14:55:48.825]  - Condition #585: 'simpleMessage', 'message', 'condition'
  [14:55:48.140]  - resignal = FALSE
  [14:55:48.825]  - Condition #586: 'simpleMessage', 'message', 'condition'
  [14:55:48.164]  - Number of conditions: 1
  [14:55:48.826]  - Condition #587: 'simpleMessage', 'message', 'condition'
  [14:55:48.165] signalConditions() ... done
  [14:55:48.826]  - Condition #588: 'simpleMessage', 'message', 'condition'
  [14:55:48.165] result() for ClusterFuture ...
  [14:55:48.826]  - Condition #589: 'simpleMessage', 'message', 'condition'
  [14:55:48.165] - result already collected: FutureResult
  [14:55:48.827]  - Condition #590: 'simpleMessage', 'message', 'condition'
  [14:55:48.166] result() for ClusterFuture ... done
  [14:55:48.827]  - Condition #591: 'simpleMessage', 'message', 'condition'
  [14:55:48.166] signalConditions() ...
  [14:55:48.827]  - Condition #592: 'simpleMessage', 'message', 'condition'
  [14:55:48.166]  - include = 'immediateCondition'
  [14:55:48.828]  - Condition #593: 'simpleMessage', 'message', 'condition'
  [14:55:48.167]  - exclude = 
  [14:55:48.828]  - Condition #594: 'simpleMessage', 'message', 'condition'
  [14:55:48.167]  - resignal = FALSE
  [14:55:48.828]  - Condition #595: 'simpleMessage', 'message', 'condition'
  [14:55:48.167]  - Number of conditions: 1
  [14:55:48.828]  - Condition #596: 'simpleMessage', 'message', 'condition'
  [14:55:48.167] signalConditions() ... done
  [14:55:48.829]  - Condition #597: 'simpleMessage', 'message', 'condition'
  [14:55:48.168] result() for ClusterFuture ...
  [14:55:48.829]  - Condition #598: 'simpleMessage', 'message', 'condition'
  [14:55:48.168] - result already collected: FutureResult
  [14:55:48.829]  - Condition #599: 'simpleMessage', 'message', 'condition'
  [14:55:48.168] result() for ClusterFuture ... done
  [14:55:48.830]  - Condition #600: 'simpleMessage', 'message', 'condition'
  [14:55:48.168] signalConditions() ...
  [14:55:48.830]  - Condition #601: 'simpleMessage', 'message', 'condition'
  [14:55:48.169]  - include = 'condition'
  [14:55:48.830]  - Condition #602: 'simpleMessage', 'message', 'condition'
  [14:55:48.169]  - exclude = 'immediateCondition'
  [14:55:48.830]  - Condition #603: 'simpleMessage', 'message', 'condition'
  [14:55:48.169]  - resignal = FALSE
  [14:55:48.831]  - Condition #604: 'simpleMessage', 'message', 'condition'
  [14:55:48.169]  - Number of conditions: 1
  [14:55:48.831]  - Condition #605: 'simpleMessage', 'message', 'condition'
  [14:55:48.170]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:55:48.831]  - Condition #606: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (..., envir = parent.frame())- tweaked: FALSE- call: NULL
  [14:55:48.832]  - Condition #607: 'simpleMessage', 'message', 'condition'
  [14:55:48.170] signalConditions() ... done
  [14:55:48.832]  - Condition #608: 'simpleMessage', 'message', 'condition'
  [14:55:48.171] - relayed: [n=2] TRUE, FALSE
  [14:55:48.832]  - Condition #609: 'simpleMessage', 'message', 'condition'
  [14:55:48.171] - queued futures: [n=2] TRUE, FALSE
  [14:55:48.833]  - Condition #610: 'simpleMessage', 'message', 'condition'
  [14:55:48.171] signalConditionsASAP(MultisessionFuture, pos=1) ... done
  [14:55:48.833]  - Condition #611: 'simpleMessage', 'message', 'condition'
  [14:55:48.171]  length: 1 (resolved future 1)
  [14:55:48.833]  - Condition #612: 'simpleMessage', 'message', 'condition'
  [14:55:48.302] receiveMessageFromWorker() for ClusterFuture ...
  [14:55:48.834]  - Condition #613: 'simpleMessage', 'message', 'condition'
  [14:55:48.302] - Validating connection of MultisessionFuture
  [14:55:48.834]  - Condition #614: 'simpleMessage', 'message', 'condition'
  [14:55:48.303] - received message: FutureResult
  [14:55:48.834]  - Condition #615: 'simpleMessage', 'message', 'condition'
  [14:55:48.303] - Received FutureResult
  [14:55:48.834]  - Condition #616: 'simpleMessage', 'message', 'condition'
  [14:55:48.304] - Erased future from FutureRegistry
  [14:55:48.835]  - Condition #617: 'simpleMessage', 'message', 'condition'
  [14:55:48.304] result() for ClusterFuture ...
  [14:55:48.835]  - Condition #618: 'simpleMessage', 'message', 'condition'
  [14:55:48.304] - result already collected: FutureResult
  [14:55:48.835]  - Condition #619: 'simpleMessage', 'message', 'condition'
  [14:55:48.304] result() for ClusterFuture ... done
  [14:55:48.836]  - Condition #620: 'simpleMessage', 'message', 'condition'
  [14:55:48.305] signalConditions() ...
  [14:55:48.836]  - Condition #621: 'simpleMessage', 'message', 'condition'
  [14:55:48.305]  - include = 'immediateCondition'
  [14:55:48.836]  - Condition #622: 'simpleMessage', 'message', 'condition'
  [14:55:48.305]  - exclude = 
  [14:55:48.837]  - Condition #623: 'simpleMessage', 'message', 'condition'
  [14:55:48.305]  - resignal = FALSE
  [14:55:48.837]  - Condition #624: 'simpleMessage', 'message', 'condition'
  [14:55:48.306]  - Number of conditions: 2
  [14:55:48.837]  - Condition #625: 'simpleMessage', 'message', 'condition'
  [14:55:48.306] signalConditions() ... done
  [14:55:48.838]  - Condition #626: 'simpleMessage', 'message', 'condition'
  [14:55:48.306] receiveMessageFromWorker() for ClusterFuture ... done
  [14:55:48.838]  - Condition #627: 'simpleMessage', 'message', 'condition'
  [14:55:48.307] Future #2
  [14:55:48.838]  - Condition #628: 'simpleMessage', 'message', 'condition'
  [14:55:48.307] result() for ClusterFuture ...
  [14:55:48.838]  - Condition #629: 'simpleMessage', 'message', 'condition'
  [14:55:48.307] - result already collected: FutureResult
  [14:55:48.839]  - Condition #630: 'simpleMessage', 'message', 'condition'
  [14:55:48.307] result() for ClusterFuture ... done
  [14:55:48.839]  - Condition #631: 'simpleMessage', 'message', 'condition'
  [14:55:48.308] result() for ClusterFuture ...
  [14:55:48.839]  - Condition #632: 'simpleMessage', 'message', 'condition'
  [14:55:48.308] - result already collected: FutureResult
  [14:55:48.840]  - Condition #633: 'simpleMessage', 'message', 'condition'
  [14:55:48.308] result() for ClusterFuture ... done
  [14:55:48.840]  - Condition #634: 'simpleMessage', 'message', 'condition'
  [14:55:48.309] signalConditions() ...
  [14:55:48.840]  - Condition #635: 'simpleMessage', 'message', 'condition'
  [14:55:48.309]  - include = 'immediateCondition'
  [14:55:48.840]  - Condition #636: 'simpleMessage', 'message', 'condition'
  [14:55:48.309]  - exclude = 
  [14:55:48.841]  - Condition #637: 'simpleMessage', 'message', 'condition'
  [14:55:48.309]  - resignal = FALSE
  [14:55:48.841]  - Condition #638: 'simpleMessage', 'message', 'condition'
  [14:55:48.310]  - Number of conditions: 2
  [14:55:48.841]  - Condition #639: 'simpleMessage', 'message', 'condition'
  [14:55:48.310] signalConditions() ... done
  [14:55:48.842]  - Condition #640: 'simpleMessage', 'message', 'condition'
  [14:55:48.310] signalConditionsASAP(MultisessionFuture, pos=2) ...
  [14:55:48.842]  - Condition #641: 'simpleMessage', 'message', 'condition'
  [14:55:48.311] - nx: 2
  [14:55:48.842]  - Condition #642: 'simpleMessage', 'message', 'condition'
  [14:55:48.311] - relay: TRUE
  [14:55:48.843]  - Condition #643: 'simpleMessage', 'message', 'condition'
  [14:55:48.311] - stdout: TRUE
  [14:55:48.843]  - Condition #644: 'simpleMessage', 'message', 'condition'
  [14:55:48.311] - signal: TRUE
  [14:55:48.843]  - Condition #645: 'simpleMessage', 'message', 'condition'
  [14:55:48.312] - resignal: FALSE
  [14:55:48.843]  - Condition #646: 'simpleMessage', 'message', 'condition'
  [14:55:48.312] - force: FALSE
  [14:55:48.844]  - Condition #647: 'simpleMessage', 'message', 'condition'
  [14:55:48.312] - relayed: [n=2] TRUE, FALSE
  [14:55:48.844]  - Condition #648: 'simpleMessage', 'message', 'condition'
  [14:55:48.313] - queued futures: [n=2] TRUE, FALSE
  [14:55:48.844]  - Condition #649: 'simpleMessage', 'message', 'condition'
  [14:55:48.313]  - until=2
  [14:55:48.845]  - Condition #650: 'simpleMessage', 'message', 'condition'
  [14:55:48.313]  - relaying element #2
  [14:55:48.845]  - Condition #651: 'simpleMessage', 'message', 'condition'
  [14:55:48.313] result() for ClusterFuture ...
  [14:55:48.845]  - Condition #652: 'simpleMessage', 'message', 'condition'
  [14:55:48.314] - result already collected: FutureResult
  [14:55:48.845]  - Condition #653: 'simpleMessage', 'message', 'condition'
  [14:55:48.314] result() for ClusterFuture ... done
  [14:55:48.846]  - Condition #654: 'simpleMessage', 'message', 'condition'
  [14:55:48.314] result() for ClusterFuture ...
  [14:55:48.846]  - Condition #655: 'simpleMessage', 'message', 'condition'
  [14:55:48.315] - result already collected: FutureResult
  [14:55:48.846]  - Condition #656: 'simpleMessage', 'message', 'condition'
  [14:55:48.315] result() for ClusterFuture ... done
  [14:55:48.847]  - Condition #657: 'simpleMessage', 'message', 'condition'
  [14:55:48.315] signalConditions() ...
  [14:55:48.847]  - Condition #658: 'simpleMessage', 'message', 'condition'
  [14:55:48.315]  - include = 'immediateCondition'
  [14:55:48.847]  - Condition #659: 'simpleMessage', 'message', 'condition'
  [14:55:48.316]  - exclude = 
  [14:55:48.848]  - Condition #660: 'simpleMessage', 'message', 'condition'
  [14:55:48.316]  - resignal = FALSE
  [14:55:48.848]  - Condition #661: 'simpleMessage', 'message', 'condition'
  [14:55:48.340]  - Number of conditions: 2
  [14:55:48.848]  - Condition #662: 'simpleMessage', 'message', 'condition'
  [14:55:48.341] signalConditions() ... done
  [14:55:48.849]  - Condition #663: 'simpleMessage', 'message', 'condition'
  [14:55:48.341] result() for ClusterFuture ...
  [14:55:48.849]  - Condition #664: 'simpleMessage', 'message', 'condition'
  [14:55:48.341] - result already collected: FutureResult
  [14:55:48.849]  - Condition #665: 'simpleMessage', 'message', 'condition'
  [14:55:48.342] result() for ClusterFuture ... done
  [14:55:48.849]  - Condition #666: 'simpleMessage', 'message', 'condition'
  [14:55:48.342] signalConditions() ...
  [14:55:48.850]  - Condition #667: 'simpleMessage', 'message', 'condition'
  [14:55:48.342]  - include = 'immediateCondition'
  [14:55:48.850]  - Condition #668: 'simpleMessage', 'message', 'condition'
  [14:55:48.343]  - exclude = 
  [14:55:48.850]  - Condition #669: 'simpleMessage', 'message', 'condition'
  [14:55:48.343]  - resignal = FALSE
  [14:55:48.851]  - Condition #670: 'simpleMessage', 'message', 'condition'
  [14:55:48.343]  - Number of conditions: 2
  [14:55:48.851]  - Condition #671: 'simpleMessage', 'message', 'condition'
  [14:55:48.344] signalConditions() ... done
  [14:55:48.851]  - Condition #672: 'simpleMessage', 'message', 'condition'
  [14:55:48.344] result() for ClusterFuture ...
  [14:55:48.851]  - Condition #673: 'simpleMessage', 'message', 'condition'
  [14:55:48.344] - result already collected: FutureResult
  [14:55:48.852]  - Condition #674: 'simpleMessage', 'message', 'condition'
  [14:55:48.344] result() for ClusterFuture ... done
  [14:55:48.852]  - Condition #675: 'simpleMessage', 'message', 'condition'
  [14:55:48.345] signalConditions() ...
  [14:55:48.852]  - Condition #676: 'simpleMessage', 'message', 'condition'
  [14:55:48.345]  - include = 'condition'
  [14:55:48.853]  - Condition #677: 'simpleMessage', 'message', 'condition'
  [14:55:48.345]  - exclude = 'immediateCondition'
  [14:55:48.853]  - Condition #678: 'simpleMessage', 'message', 'condition'
  [14:55:48.345]  - resignal = FALSE
  [14:55:48.853]  - Condition #679: 'simpleMessage', 'message', 'condition'
  [14:55:48.346]  - Number of conditions: 2
  [14:55:48.854]  - Condition #680: 'simpleMessage', 'message', 'condition'
  [14:55:48.346]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:55:48.854]  - Condition #681: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (..., envir = parent.frame())- tweaked: FALSE- call: NULL
  [14:55:48.854]  - Condition #682: 'simpleMessage', 'message', 'condition'
  [14:55:48.346]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:55:48.855]  - Condition #683: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (..., envir = parent.frame())- tweaked: FALSE- call: NULL
  [14:55:48.855]  - Condition #684: 'simpleMessage', 'message', 'condition'
  [14:55:48.347] signalConditions() ... done
  [14:55:48.855]  - Condition #685: 'simpleMessage', 'message', 'condition'
  [14:55:48.347] - relayed: [n=2] TRUE, TRUE
  [14:55:48.855]  - Condition #686: 'simpleMessage', 'message', 'condition'
  [14:55:48.347] - queued futures: [n=2] TRUE, TRUE
  [14:55:48.856]  - Condition #687: 'simpleMessage', 'message', 'condition'
  [14:55:48.348] signalConditionsASAP(MultisessionFuture, pos=2) ... done
  [14:55:48.856]  - Condition #688: 'simpleMessage', 'message', 'condition'
  [14:55:48.348]  length: 0 (resolved future 2)
  [14:55:48.856]  - Condition #689: 'simpleMessage', 'message', 'condition'
  [14:55:48.348] Relaying remaining futures
  [14:55:48.857]  - Condition #690: 'simpleMessage', 'message', 'condition'
  [14:55:48.349] signalConditionsASAP(NULL, pos=0) ...
  [14:55:48.857]  - Condition #691: 'simpleMessage', 'message', 'condition'
  [14:55:48.349] - nx: 2
  [14:55:48.857]  - Condition #692: 'simpleMessage', 'message', 'condition'
  [14:55:48.349] - relay: TRUE
  [14:55:48.858]  - Condition #693: 'simpleMessage', 'message', 'condition'
  [14:55:48.349] - stdout: TRUE
  [14:55:48.858]  - Condition #694: 'simpleMessage', 'message', 'condition'
  [14:55:48.350] - signal: TRUE
  [14:55:48.858]  - Condition #695: 'simpleMessage', 'message', 'condition'
  [14:55:48.350] - resignal: FALSE
  [14:55:48.858]  - Condition #696: 'simpleMessage', 'message', 'condition'
  [14:55:48.350] - force: FALSE
  [14:55:48.859]  - Condition #697: 'simpleMessage', 'message', 'condition'
  [14:55:48.350] - relayed: [n=2] TRUE, TRUE
  [14:55:48.859]  - Condition #698: 'simpleMessage', 'message', 'condition'
  [14:55:48.351] - queued futures: [n=2] TRUE, TRUE
  [14:55:48.859]  - Condition #699: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:55:48.860]  - Condition #700: 'simpleMessage', 'message', 'condition'
  [14:55:48.351] - relayed: [n=2] TRUE, TRUE
  [14:55:48.860]  - Condition #701: 'simpleMessage', 'message', 'condition'
  [14:55:48.351] - queued futures: [n=2] TRUE, TRUE
  [14:55:48.860]  - Condition #702: 'simpleMessage', 'message', 'condition'
  [14:55:48.352] signalConditionsASAP(NULL, pos=0) ... done
  [14:55:48.861]  - Condition #703: 'simpleMessage', 'message', 'condition'
  [14:55:48.352] resolve() on list ... DONE
  [14:55:48.861]  - Condition #704: 'simpleMessage', 'message', 'condition'
  [14:55:48.361] - collecting values of futures
  [14:55:48.861]  - Condition #705: 'simpleMessage', 'message', 'condition'
  [14:55:48.361] result() for ClusterFuture ...
  [14:55:48.862]  - Condition #706: 'simpleMessage', 'message', 'condition'
  [14:55:48.361] - result already collected: FutureResult
  [14:55:48.862]  - Condition #707: 'simpleMessage', 'message', 'condition'
  [14:55:48.362] result() for ClusterFuture ... done
  [14:55:48.862]  - Condition #708: 'simpleMessage', 'message', 'condition'
  [14:55:48.362] result() for ClusterFuture ...
  [14:55:48.863]  - Condition #709: 'simpleMessage', 'message', 'condition'
  [14:55:48.362] - result already collected: FutureResult
  [14:55:48.863]  - Condition #710: 'simpleMessage', 'message', 'condition'
  [14:55:48.362] result() for ClusterFuture ... done
  [14:55:48.863]  - Condition #711: 'simpleMessage', 'message', 'condition'
  [14:55:48.363] signalConditions() ...
  [14:55:48.864]  - Condition #712: 'simpleMessage', 'message', 'condition'
  [14:55:48.363]  - include = 'immediateCondition'
  [14:55:48.864]  - Condition #713: 'simpleMessage', 'message', 'condition'
  [14:55:48.363]  - exclude = 
  [14:55:48.864]  - Condition #714: 'simpleMessage', 'message', 'condition'
  [14:55:48.363]  - resignal = FALSE
  [14:55:48.865]  - Condition #715: 'simpleMessage', 'message', 'condition'
  [14:55:48.363]  - Number of conditions: 1
  [14:55:48.865]  - Condition #716: 'simpleMessage', 'message', 'condition'
  [14:55:48.364] signalConditions() ... done
  [14:55:48.865]  - Condition #717: 'simpleMessage', 'message', 'condition'
  [14:55:48.364] result() for ClusterFuture ...
  [14:55:48.866]  - Condition #718: 'simpleMessage', 'message', 'condition'
  [14:55:48.364] - result already collected: FutureResult
  [14:55:48.866]  - Condition #719: 'simpleMessage', 'message', 'condition'
  [14:55:48.365] result() for ClusterFuture ... done
  [14:55:48.866]  - Condition #720: 'simpleMessage', 'message', 'condition'
  [14:55:48.365] result() for ClusterFuture ...
  [14:55:48.867]  - Condition #721: 'simpleMessage', 'message', 'condition'
  [14:55:48.365] - result already collected: FutureResult
  [14:55:48.867]  - Condition #722: 'simpleMessage', 'message', 'condition'
  [14:55:48.365] result() for ClusterFuture ... done
  [14:55:48.867]  - Condition #723: 'simpleMessage', 'message', 'condition'
  [14:55:48.366] signalConditions() ...
  [14:55:48.868]  - Condition #724: 'simpleMessage', 'message', 'condition'
  [14:55:48.366]  - include = 'immediateCondition'
  [14:55:48.868]  - Condition #725: 'simpleMessage', 'message', 'condition'
  [14:55:48.366]  - exclude = 
  [14:55:48.869]  - Condition #726: 'simpleMessage', 'message', 'condition'
  [14:55:48.366]  - resignal = FALSE
  [14:55:48.869]  - Condition #727: 'simpleMessage', 'message', 'condition'
  [14:55:48.367]  - Number of conditions: 2
  [14:55:48.870]  - Condition #728: 'simpleMessage', 'message', 'condition'
  [14:55:48.367] signalConditions() ... done
  [14:55:48.870]  - Condition #729: 'simpleMessage', 'message', 'condition'
  [14:55:48.367] - accumulating results
  [14:55:48.870]  - Condition #730: 'simpleMessage', 'message', 'condition'
  [14:55:48.374] - processing errors (handler = 'stop')
  [14:55:48.871]  - Condition #731: 'simpleMessage', 'message', 'condition'
  [14:55:48.374] - extracting results
  [14:55:48.871]  - Condition #732: 'simpleMessage', 'message', 'condition'
  [14:55:48.374] doFuture() ... DONE
  [14:55:48.871]  - Condition #733: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:55:48.873] signalConditions() ... done
  [14:55:48.873] - relayed: [n=1] TRUE
  [14:55:48.873] - queued futures: [n=1] TRUE
  [14:55:48.873] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:55:48.873]  length: 0 (resolved future 1)
  [14:55:48.874] Relaying remaining futures
  [14:55:48.874] signalConditionsASAP(NULL, pos=0) ...
  [14:55:48.874] - nx: 1
  [14:55:48.874] - relay: TRUE
  [14:55:48.874] - stdout: TRUE
  [14:55:48.875] - signal: TRUE
  [14:55:48.875] - resignal: FALSE
  [14:55:48.875] - force: FALSE
  [14:55:48.875] - relayed: [n=1] TRUE
  [14:55:48.875] - queued futures: [n=1] TRUE
   - flush all
  [14:55:48.876] - relayed: [n=1] TRUE
  [14:55:48.876] - queued futures: [n=1] TRUE
  [14:55:48.876] signalConditionsASAP(NULL, pos=0) ... done
  [14:55:48.876] resolve() on list ... DONE
  [14:55:48.876] - collecting values of futures
  [14:55:48.877] signalConditions() ...
  [14:55:48.877]  - include = 'immediateCondition'
  [14:55:48.877]  - exclude = 
  [14:55:48.877]  - resignal = FALSE
  [14:55:48.877]  - Number of conditions: 733
  [14:55:48.879] signalConditions() ... done
  [14:55:48.879] - accumulating results
  [14:55:48.880] - processing errors (handler = 'stop')
  [14:55:48.880] - extracting results
  [14:55:48.880] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('sequential', 'multisession')) ... DONE
  - plan(list('sequential', 'cluster')) ...
  [14:55:48.881] plan(): Setting new future strategy stack:
  [14:55:48.881] List of future strategies:
  [14:55:48.881] 1. sequential:
  [14:55:48.881]    - args: function (..., envir = parent.frame())
  [14:55:48.881]    - tweaked: FALSE
  [14:55:48.881]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:48.881] 2. cluster:
  [14:55:48.881]    - args: function (..., workers = availableWorkers(), envir = parent.frame())
  [14:55:48.881]    - tweaked: FALSE
  [14:55:48.881]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:48.884] plan(): nbrOfWorkers() = 1
  foreach() - level 1 ...
  [14:55:48.884] doFuture() ...
  [14:55:48.885] - dummy globals (as locals): [1] 'a'
  [14:55:48.886] - R expression:
  [14:55:48.886] {
  [14:55:48.886]     doFuture::registerDoFuture()
  [14:55:48.886]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:48.886]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:48.886]         a <- NULL
  [14:55:48.886]         ...future.env <- environment()
  [14:55:48.886]         local({
  [14:55:48.886]             for (name in names(...future.x_jj)) {
  [14:55:48.886]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:48.886]                   inherits = FALSE)
  [14:55:48.886]             }
  [14:55:48.886]         })
  [14:55:48.886]         tryCatch({
  [14:55:48.886]             plan_list <- future::plan("next")
  [14:55:48.886]             stopifnot(inherits(plan_list, strategy2))
  [14:55:48.886]             plan_a <- future::plan("list")
  [14:55:48.886]             str(plan_a)
  [14:55:48.886]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:55:48.886]             message("foreach() - level 2 ...")
  [14:55:48.886]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:55:48.886]                 {
  [14:55:48.886]                   plan_list <- future::plan("next")
  [14:55:48.886]                   message(capture.output(print(plan_list)))
  [14:55:48.886]                   stopifnot(inherits(plan_list, "future"))
  [14:55:48.886]                   default <- getOption("future.plan", "sequential")
  [14:55:48.886]                   if (is.function(default)) 
  [14:55:48.886]                     default <- class(default)
  [14:55:48.886]                   stopifnot(inherits(plan_list, default))
  [14:55:48.886]                   plan_b <- future::plan("list")
  [14:55:48.886]                   str(plan_b)
  [14:55:48.886]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:48.886]                     inherits(plan_b[[1]], default))
  [14:55:48.886]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:48.886]                 }
  [14:55:48.886]             message("foreach() - level 2 ... DONE")
  [14:55:48.886]             y
  [14:55:48.886]         }, error = identity)
  [14:55:48.886]     })
  [14:55:48.886] }
  [14:55:48.887] - identifying globals and packages ...
  [14:55:48.887] getGlobalsAndPackages() ...
  [14:55:48.887] Retrieving 'add' globals ...
  [14:55:48.888] - 'add' globals retrieved: [2] 'bs', 'strategy2'
  [14:55:48.888] Retrieving 'add' globals ... DONE
  [14:55:48.888] Searching for globals...
  [14:55:48.929] - 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:55:48.930] Searching for globals ... DONE
  [14:55:48.930] Resolving globals: FALSE
  [14:55:48.932] The total size of the 3 globals is 176 bytes (176 bytes)
  [14:55:48.934] The total size of the 3 globals exported for future expression ('{; doFuture::registerDoFuture(); lapply(seq_along(...future.x_ii), FUN = function(jj) {; ...future.x_jj <- ...future.x_ii[[jj]]; a <- NULL; ...future.env <- environment(); ...; }, error = identity); }); }') is 176 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: 'strategy2' (112 bytes of class 'character'), 'bs' (64 bytes of class 'numeric') and '...future.x_ii' (0 bytes of class 'NULL')
  [14:55:48.934] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:55:48.934] - packages: [2] 'utils', 'foreach'
  [14:55:48.935] getGlobalsAndPackages() ... DONE
  [14:55:48.935] List of 3
  [14:55:48.935]  $ ...future.x_ii: NULL
  [14:55:48.935]  $ strategy2     : chr "cluster"
  [14:55:48.935]  $ bs            : int [1:3] 3 2 1
  [14:55:48.935]  - attr(*, "where")=List of 3
  [14:55:48.935]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:48.935]   ..$ strategy2     :<environment: R_EmptyEnv> 
  [14:55:48.935]   ..$ bs            :<environment: R_EmptyEnv> 
  [14:55:48.935]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:48.935]  - attr(*, "resolved")= logi FALSE
  [14:55:48.935]  - attr(*, "total_size")= num 176
  [14:55:48.952]   - R expression:
  [14:55:48.953] {
  [14:55:48.953]     doFuture::registerDoFuture()
  [14:55:48.953]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:48.953]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:48.953]         a <- NULL
  [14:55:48.953]         ...future.env <- environment()
  [14:55:48.953]         local({
  [14:55:48.953]             for (name in names(...future.x_jj)) {
  [14:55:48.953]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:48.953]                   inherits = FALSE)
  [14:55:48.953]             }
  [14:55:48.953]         })
  [14:55:48.953]         tryCatch({
  [14:55:48.953]             plan_list <- future::plan("next")
  [14:55:48.953]             stopifnot(inherits(plan_list, strategy2))
  [14:55:48.953]             plan_a <- future::plan("list")
  [14:55:48.953]             str(plan_a)
  [14:55:48.953]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:55:48.953]             message("foreach() - level 2 ...")
  [14:55:48.953]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:55:48.953]                 {
  [14:55:48.953]                   plan_list <- future::plan("next")
  [14:55:48.953]                   message(capture.output(print(plan_list)))
  [14:55:48.953]                   stopifnot(inherits(plan_list, "future"))
  [14:55:48.953]                   default <- getOption("future.plan", "sequential")
  [14:55:48.953]                   if (is.function(default)) 
  [14:55:48.953]                     default <- class(default)
  [14:55:48.953]                   stopifnot(inherits(plan_list, default))
  [14:55:48.953]                   plan_b <- future::plan("list")
  [14:55:48.953]                   str(plan_b)
  [14:55:48.953]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:48.953]                     inherits(plan_b[[1]], default))
  [14:55:48.953]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:48.953]                 }
  [14:55:48.953]             message("foreach() - level 2 ... DONE")
  [14:55:48.953]             y
  [14:55:48.953]         }, error = identity)
  [14:55:48.953]     })
  [14:55:48.953] }
  [14:55:48.954]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:55:48.954] List of 3
  [14:55:48.954]  $ ...future.x_ii: NULL
  [14:55:48.954]  $ strategy2     : chr "cluster"
  [14:55:48.954]  $ bs            : int [1:3] 3 2 1
  [14:55:48.954]  - attr(*, "where")=List of 3
  [14:55:48.954]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:48.954]   ..$ strategy2     :<environment: R_EmptyEnv> 
  [14:55:48.954]   ..$ bs            :<environment: R_EmptyEnv> 
  [14:55:48.954]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:48.954]  - attr(*, "resolved")= logi FALSE
  [14:55:48.954]  - attr(*, "total_size")= num 176
  [14:55:48.961]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [14:55:48.962] - identifying globals and packages ... DONE
  [14:55:48.962] Number of chunks: 1
  [14:55:48.962] Number of futures (= number of chunks): 1
  [14:55:48.963] Launching 1 futures (chunks) ...
  [14:55:48.963] Chunk #1 of 1 ...
  [14:55:48.963]  - Finding globals in 'args_list' chunk #1 ...
  [14:55:48.963] getGlobalsAndPackages() ...
  [14:55:48.964] Searching for globals...
  [14:55:48.965] 
  [14:55:48.965] Searching for globals ... DONE
  [14:55:48.965] - globals: [0] <none>
  [14:55:48.965] getGlobalsAndPackages() ... DONE
  [14:55:48.965] 
  [14:55:48.966] 
  [14:55:48.966]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:55:48.966] getGlobalsAndPackages() ...
  [14:55:48.966] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:55:48.967] Resolving globals: FALSE
  [14:55:48.967] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:55:48.968] 
  [14:55:48.968] getGlobalsAndPackages() ... DONE
  [14:55:48.968] run() for 'Future' ...
  [14:55:48.969] - state: 'created'
  [14:55:48.969] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:55:48.970] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:55:48.970] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:55:48.970]   - Field: 'label'
  [14:55:48.970]   - Field: 'local'
  [14:55:48.971]   - Field: 'owner'
  [14:55:48.971]   - Field: 'envir'
  [14:55:48.971]   - Field: 'packages'
  [14:55:48.971]   - Field: 'gc'
  [14:55:48.972]   - Field: 'conditions'
  [14:55:48.972]   - Field: 'persistent'
  [14:55:48.972]   - Field: 'expr'
  [14:55:48.972]   - Field: 'uuid'
  [14:55:48.973]   - Field: 'seed'
  [14:55:48.973]   - Field: 'version'
  [14:55:48.973]   - Field: 'result'
  [14:55:48.973]   - Field: 'asynchronous'
  [14:55:48.973]   - Field: 'calls'
  [14:55:48.974]   - Field: 'globals'
  [14:55:48.974]   - Field: 'stdout'
  [14:55:48.974]   - Field: 'earlySignal'
  [14:55:48.974]   - Field: 'lazy'
  [14:55:48.975]   - Field: 'state'
  [14:55:48.975] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:55:48.975] - Launch lazy future ...
  [14:55:48.976] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [14:55:48.976] Packages needed by future strategies (n = 1): 'future'
  [14:55:48.977] {
  [14:55:48.977]     {
  [14:55:48.977]         ...future.startTime <- base::Sys.time()
  [14:55:48.977]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:55:48.977]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:55:48.977]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:55:48.977]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:55:48.977]             future.resolve.recursive = NULL, future.rng.onMisuse = NULL, 
  [14:55:48.977]             future.rng.onMisuse.keepFuture = NULL, future.stdout.windows.reencode = NULL, 
  [14:55:48.977]             width = 80L)
  [14:55:48.977]         {
  [14:55:48.977]             {
  [14:55:48.977]                 {
  [14:55:48.977]                   base::local({
  [14:55:48.977]                     has_future <- base::requireNamespace("future", 
  [14:55:48.977]                       quietly = TRUE)
  [14:55:48.977]                     if (has_future) {
  [14:55:48.977]                       ns <- base::getNamespace("future")
  [14:55:48.977]                       version <- ns[[".package"]][["version"]]
  [14:55:48.977]                       if (is.null(version)) 
  [14:55:48.977]                         version <- utils::packageVersion("future")
  [14:55:48.977]                     }
  [14:55:48.977]                     else {
  [14:55:48.977]                       version <- NULL
  [14:55:48.977]                     }
  [14:55:48.977]                     if (!has_future || version < "1.8.0") {
  [14:55:48.977]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:55:48.977]                         "", base::R.version$version.string), 
  [14:55:48.977]                         platform = base::sprintf("%s (%s-bit)", 
  [14:55:48.977]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:55:48.977]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:55:48.977]                           "release", "version")], collapse = " "), 
  [14:55:48.977]                         hostname = base::Sys.info()[["nodename"]])
  [14:55:48.977]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:55:48.977]                         info)
  [14:55:48.977]                       info <- base::paste(info, collapse = "; ")
  [14:55:48.977]                       if (!has_future) {
  [14:55:48.977]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:55:48.977]                           info)
  [14:55:48.977]                       }
  [14:55:48.977]                       else {
  [14:55:48.977]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:55:48.977]                           info, version)
  [14:55:48.977]                       }
  [14:55:48.977]                       base::stop(msg)
  [14:55:48.977]                     }
  [14:55:48.977]                   })
  [14:55:48.977]                 }
  [14:55:48.977]                 base::local({
  [14:55:48.977]                   for (pkg in c("doFuture", "utils", "foreach", 
  [14:55:48.977]                   "future")) {
  [14:55:48.977]                     base::loadNamespace(pkg)
  [14:55:48.977]                     base::library(pkg, character.only = TRUE)
  [14:55:48.977]                   }
  [14:55:48.977]                 })
  [14:55:48.977]             }
  [14:55:48.977]             options(future.plan = NULL)
  [14:55:48.977]             Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:48.977]             future::plan(list(b = function (..., workers = availableWorkers(), 
  [14:55:48.977]                 envir = parent.frame()) 
  [14:55:48.977]             {
  [14:55:48.977]                 future <- ClusterFuture(..., workers = workers, 
  [14:55:48.977]                   envir = envir)
  [14:55:48.977]                 if (!future$lazy) 
  [14:55:48.977]                   future <- run(future)
  [14:55:48.977]                 invisible(future)
  [14:55:48.977]             }), .cleanup = FALSE, .init = FALSE)
  [14:55:48.977]         }
  [14:55:48.977]     }
  [14:55:48.977]     if (FALSE) {
  [14:55:48.977]     }
  [14:55:48.977]     else {
  [14:55:48.977]         if (TRUE) {
  [14:55:48.977]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:55:48.977]                 open = "w")
  [14:55:48.977]         }
  [14:55:48.977]         else {
  [14:55:48.977]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:55:48.977]                 windows = "NUL", "/dev/null"), open = "w")
  [14:55:48.977]         }
  [14:55:48.977]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:55:48.977]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:55:48.977]             base::sink(type = "output", split = FALSE)
  [14:55:48.977]             base::close(...future.stdout)
  [14:55:48.977]         }, add = TRUE)
  [14:55:48.977]     }
  [14:55:48.977]     ...future.frame <- base::sys.nframe()
  [14:55:48.977]     ...future.conditions <- base::list()
  [14:55:48.977]     ...future.rng <- base::globalenv()$.Random.seed
  [14:55:48.977]     ...future.result <- base::tryCatch({
  [14:55:48.977]         base::withCallingHandlers({
  [14:55:48.977]             ...future.value <- base::withVisible(base::local({
  [14:55:48.977]                 doFuture::registerDoFuture()
  [14:55:48.977]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:48.977]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:48.977]                   a <- NULL
  [14:55:48.977]                   ...future.env <- environment()
  [14:55:48.977]                   local({
  [14:55:48.977]                     for (name in names(...future.x_jj)) {
  [14:55:48.977]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:48.977]                         inherits = FALSE)
  [14:55:48.977]                     }
  [14:55:48.977]                   })
  [14:55:48.977]                   tryCatch({
  [14:55:48.977]                     plan_list <- future::plan("next")
  [14:55:48.977]                     stopifnot(inherits(plan_list, strategy2))
  [14:55:48.977]                     plan_a <- future::plan("list")
  [14:55:48.977]                     str(plan_a)
  [14:55:48.977]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [14:55:48.977]                     message("foreach() - level 2 ...")
  [14:55:48.977]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:55:48.977]                       {
  [14:55:48.977]                         plan_list <- future::plan("next")
  [14:55:48.977]                         message(capture.output(print(plan_list)))
  [14:55:48.977]                         stopifnot(inherits(plan_list, "future"))
  [14:55:48.977]                         default <- getOption("future.plan", "sequential")
  [14:55:48.977]                         if (is.function(default)) 
  [14:55:48.977]                           default <- class(default)
  [14:55:48.977]                         stopifnot(inherits(plan_list, default))
  [14:55:48.977]                         plan_b <- future::plan("list")
  [14:55:48.977]                         str(plan_b)
  [14:55:48.977]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:48.977]                           inherits(plan_b[[1]], default))
  [14:55:48.977]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:48.977]                       }
  [14:55:48.977]                     message("foreach() - level 2 ... DONE")
  [14:55:48.977]                     y
  [14:55:48.977]                   }, error = identity)
  [14:55:48.977]                 })
  [14:55:48.977]             }))
  [14:55:48.977]             future::FutureResult(value = ...future.value$value, 
  [14:55:48.977]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:48.977]                   ...future.rng), started = ...future.startTime, 
  [14:55:48.977]                 version = "1.8")
  [14:55:48.977]         }, condition = base::local({
  [14:55:48.977]             c <- base::c
  [14:55:48.977]             inherits <- base::inherits
  [14:55:48.977]             invokeRestart <- base::invokeRestart
  [14:55:48.977]             length <- base::length
  [14:55:48.977]             list <- base::list
  [14:55:48.977]             seq.int <- base::seq.int
  [14:55:48.977]             signalCondition <- base::signalCondition
  [14:55:48.977]             sys.calls <- base::sys.calls
  [14:55:48.977]             `[[` <- base::`[[`
  [14:55:48.977]             `+` <- base::`+`
  [14:55:48.977]             `<<-` <- base::`<<-`
  [14:55:48.977]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:55:48.977]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:55:48.977]                   3L)]
  [14:55:48.977]             }
  [14:55:48.977]             function(cond) {
  [14:55:48.977]                 is_error <- inherits(cond, "error")
  [14:55:48.977]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:55:48.977]                   NULL)
  [14:55:48.977]                 if (is_error) {
  [14:55:48.977]                   sessionInformation <- function() {
  [14:55:48.977]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:55:48.977]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:55:48.977]                       search = base::search(), system = base::Sys.info())
  [14:55:48.977]                   }
  [14:55:48.977]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:48.977]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:55:48.977]                     cond$call), session = sessionInformation(), 
  [14:55:48.977]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:55:48.977]                   signalCondition(cond)
  [14:55:48.977]                 }
  [14:55:48.977]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:55:48.977]                 "immediateCondition"))) {
  [14:55:48.977]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:55:48.977]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:48.977]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:55:48.977]                   if (TRUE && !signal) {
  [14:55:48.977]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:48.977]                     {
  [14:55:48.977]                       inherits <- base::inherits
  [14:55:48.977]                       invokeRestart <- base::invokeRestart
  [14:55:48.977]                       is.null <- base::is.null
  [14:55:48.977]                       muffled <- FALSE
  [14:55:48.977]                       if (inherits(cond, "message")) {
  [14:55:48.977]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:48.977]                         if (muffled) 
  [14:55:48.977]                           invokeRestart("muffleMessage")
  [14:55:48.977]                       }
  [14:55:48.977]                       else if (inherits(cond, "warning")) {
  [14:55:48.977]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:48.977]                         if (muffled) 
  [14:55:48.977]                           invokeRestart("muffleWarning")
  [14:55:48.977]                       }
  [14:55:48.977]                       else if (inherits(cond, "condition")) {
  [14:55:48.977]                         if (!is.null(pattern)) {
  [14:55:48.977]                           computeRestarts <- base::computeRestarts
  [14:55:48.977]                           grepl <- base::grepl
  [14:55:48.977]                           restarts <- computeRestarts(cond)
  [14:55:48.977]                           for (restart in restarts) {
  [14:55:48.977]                             name <- restart$name
  [14:55:48.977]                             if (is.null(name)) 
  [14:55:48.977]                               next
  [14:55:48.977]                             if (!grepl(pattern, name)) 
  [14:55:48.977]                               next
  [14:55:48.977]                             invokeRestart(restart)
  [14:55:48.977]                             muffled <- TRUE
  [14:55:48.977]                             break
  [14:55:48.977]                           }
  [14:55:48.977]                         }
  [14:55:48.977]                       }
  [14:55:48.977]                       invisible(muffled)
  [14:55:48.977]                     }
  [14:55:48.977]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:48.977]                   }
  [14:55:48.977]                 }
  [14:55:48.977]                 else {
  [14:55:48.977]                   if (TRUE) {
  [14:55:48.977]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:48.977]                     {
  [14:55:48.977]                       inherits <- base::inherits
  [14:55:48.977]                       invokeRestart <- base::invokeRestart
  [14:55:48.977]                       is.null <- base::is.null
  [14:55:48.977]                       muffled <- FALSE
  [14:55:48.977]                       if (inherits(cond, "message")) {
  [14:55:48.977]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:48.977]                         if (muffled) 
  [14:55:48.977]                           invokeRestart("muffleMessage")
  [14:55:48.977]                       }
  [14:55:48.977]                       else if (inherits(cond, "warning")) {
  [14:55:48.977]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:48.977]                         if (muffled) 
  [14:55:48.977]                           invokeRestart("muffleWarning")
  [14:55:48.977]                       }
  [14:55:48.977]                       else if (inherits(cond, "condition")) {
  [14:55:48.977]                         if (!is.null(pattern)) {
  [14:55:48.977]                           computeRestarts <- base::computeRestarts
  [14:55:48.977]                           grepl <- base::grepl
  [14:55:48.977]                           restarts <- computeRestarts(cond)
  [14:55:48.977]                           for (restart in restarts) {
  [14:55:48.977]                             name <- restart$name
  [14:55:48.977]                             if (is.null(name)) 
  [14:55:48.977]                               next
  [14:55:48.977]                             if (!grepl(pattern, name)) 
  [14:55:48.977]                               next
  [14:55:48.977]                             invokeRestart(restart)
  [14:55:48.977]                             muffled <- TRUE
  [14:55:48.977]                             break
  [14:55:48.977]                           }
  [14:55:48.977]                         }
  [14:55:48.977]                       }
  [14:55:48.977]                       invisible(muffled)
  [14:55:48.977]                     }
  [14:55:48.977]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:48.977]                   }
  [14:55:48.977]                 }
  [14:55:48.977]             }
  [14:55:48.977]         }))
  [14:55:48.977]     }, error = function(ex) {
  [14:55:48.977]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:55:48.977]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:48.977]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:55:48.977]     }, finally = {
  [14:55:48.977]         {
  [14:55:48.977]             {
  [14:55:48.977]                 NULL
  [14:55:48.977]                 RNGkind("Mersenne-Twister")
  [14:55:48.977]                 base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:55:48.977]                   inherits = FALSE)
  [14:55:48.977]             }
  [14:55:48.977]             options(future.plan = NULL)
  [14:55:48.977]             if (is.na(NA_character_)) 
  [14:55:48.977]                 Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:48.977]             else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:55:48.977]             future::plan(list(a = function (..., envir = parent.frame()) 
  [14:55:48.977]             {
  [14:55:48.977]                 future <- SequentialFuture(..., envir = envir)
  [14:55:48.977]                 if (!future$lazy) 
  [14:55:48.977]                   future <- run(future)
  [14:55:48.977]                 invisible(future)
  [14:55:48.977]             }, b = function (..., workers = availableWorkers(), 
  [14:55:48.977]                 envir = parent.frame()) 
  [14:55:48.977]             {
  [14:55:48.977]                 future <- ClusterFuture(..., workers = workers, 
  [14:55:48.977]                   envir = envir)
  [14:55:48.977]                 if (!future$lazy) 
  [14:55:48.977]                   future <- run(future)
  [14:55:48.977]                 invisible(future)
  [14:55:48.977]             }), .cleanup = FALSE, .init = FALSE)
  [14:55:48.977]         }
  [14:55:48.977]         base::options(...future.oldOptions)
  [14:55:48.977]     })
  [14:55:48.977]     if (TRUE) {
  [14:55:48.977]         base::sink(type = "output", split = FALSE)
  [14:55:48.977]         if (TRUE) {
  [14:55:48.977]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:55:48.977]         }
  [14:55:48.977]         else {
  [14:55:48.977]             ...future.result["stdout"] <- base::list(NULL)
  [14:55:48.977]         }
  [14:55:48.977]         base::close(...future.stdout)
  [14:55:48.977]         ...future.stdout <- NULL
  [14:55:48.977]     }
  [14:55:48.977]     ...future.result$conditions <- ...future.conditions
  [14:55:48.977]     ...future.result
  [14:55:48.977] }
  [14:55:48.981] assign_globals() ...
  [14:55:48.981] List of 3
  [14:55:48.981]  $ ...future.x_ii:List of 2
  [14:55:48.981]   ..$ :List of 1
  [14:55:48.981]   .. ..$ a: int 1
  [14:55:48.981]   ..$ :List of 1
  [14:55:48.981]   .. ..$ a: int 2
  [14:55:48.981]  $ strategy2     : chr "cluster"
  [14:55:48.981]  $ bs            : int [1:3] 3 2 1
  [14:55:48.981]  - attr(*, "where")=List of 3
  [14:55:48.981]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:48.981]   ..$ strategy2     :<environment: R_EmptyEnv> 
  [14:55:48.981]   ..$ bs            :<environment: R_EmptyEnv> 
  [14:55:48.981]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:48.981]  - attr(*, "resolved")= logi FALSE
  [14:55:48.981]  - attr(*, "total_size")= num 176
  [14:55:48.981]  - attr(*, "already-done")= logi TRUE
  [14:55:48.992] - copied '...future.x_ii' to environment
  [14:55:48.992] - copied 'strategy2' to environment
  [14:55:48.992] - copied 'bs' to environment
  [14:55:48.993] List of 3
  [14:55:48.993]  $ ...future.x_ii:List of 2
  [14:55:48.993]   ..$ :List of 1
  [14:55:48.993]   .. ..$ a: int 1
  [14:55:48.993]   ..$ :List of 1
  [14:55:48.993]   .. ..$ a: int 2
  [14:55:48.993]  $ strategy2     : chr "cluster"
  [14:55:48.993]  $ bs            : int [1:3] 3 2 1
  [14:55:48.993]  - attr(*, "where")=List of 3
  [14:55:48.993]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:48.993]   ..$ strategy2     :<environment: R_EmptyEnv> 
  [14:55:48.993]   ..$ bs            :<environment: R_EmptyEnv> 
  [14:55:48.993]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:48.993]  - attr(*, "resolved")= logi FALSE
  [14:55:48.993]  - attr(*, "total_size")= num 176
  [14:55:48.993]  - attr(*, "already-done")= logi TRUE
  [14:55:49.003] assign_globals() ... done
  [14:55:49.005] plan(): Setting new future strategy stack:
  [14:55:49.005] List of future strategies:
  [14:55:49.005] 1. cluster:
  [14:55:49.005]    - args: function (..., workers = availableWorkers(), envir = parent.frame())
  [14:55:49.005]    - tweaked: FALSE
  [14:55:49.005]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:49.018] plan(): nbrOfWorkers() = 2
  [14:55:51.503] plan(): Setting new future strategy stack:
  [14:55:51.504] List of future strategies:
  [14:55:51.504] 1. sequential:
  [14:55:51.504]    - args: function (..., envir = parent.frame())
  [14:55:51.504]    - tweaked: FALSE
  [14:55:51.504]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:51.504] 2. cluster:
  [14:55:51.504]    - args: function (..., workers = availableWorkers(), envir = parent.frame())
  [14:55:51.504]    - tweaked: FALSE
  [14:55:51.504]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:51.505] plan(): nbrOfWorkers() = 1
  [14:55:51.506] SequentialFuture started (and completed)
  [14:55:51.506] signalConditions() ...
  [14:55:51.506]  - include = 'immediateCondition'
  [14:55:51.506]  - exclude = 
  [14:55:51.507]  - resignal = FALSE
  [14:55:51.507]  - Number of conditions: 731
  [14:55:51.509] signalConditions() ... done
  [14:55:51.509] - Launch lazy future ... done
  [14:55:51.509] run() for 'SequentialFuture' ... done
  [14:55:51.510] Chunk #1 of 1 ... DONE
  [14:55:51.510] Launching 1 futures (chunks) ... DONE
  [14:55:51.510] - resolving futures
  [14:55:51.510]   - gathering results & relaying conditions (except errors)
  [14:55:51.511] resolve() on list ...
  [14:55:51.511]  recursive: 0
  [14:55:51.511]  length: 1
  [14:55:51.511] 
  [14:55:51.511] resolved() for 'SequentialFuture' ...
  [14:55:51.512] - state: 'finished'
  [14:55:51.512] - run: TRUE
  [14:55:51.512] - result: 'FutureResult'
  [14:55:51.528] resolved() for 'SequentialFuture' ... done
  [14:55:51.529] Future #1
  [14:55:51.529] signalConditions() ...
  [14:55:51.529]  - include = 'immediateCondition'
  [14:55:51.530]  - exclude = 
  [14:55:51.530]  - resignal = FALSE
  [14:55:51.530]  - Number of conditions: 731
  [14:55:51.532] signalConditions() ... done
  [14:55:51.532] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:55:51.533] - nx: 1
  [14:55:51.533] - relay: TRUE
  [14:55:51.533] - stdout: TRUE
  [14:55:51.533] - signal: TRUE
  [14:55:51.533] - resignal: FALSE
  [14:55:51.534] - force: FALSE
  [14:55:51.534] - relayed: [n=1] FALSE
  [14:55:51.534] - queued futures: [n=1] FALSE
  [14:55:51.534]  - until=1
  [14:55:51.535]  - relaying element #1
  [14:55:51.535] signalConditions() ...
  [14:55:51.535]  - include = 'immediateCondition'
  [14:55:51.535]  - exclude = 
  [14:55:51.535]  - resignal = FALSE
  [14:55:51.536]  - Number of conditions: 731
  [14:55:51.538] signalConditions() ... done
  List of 1
   $ b:function (..., workers = availableWorkers(), envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
    ..- attr(*, "init")= logi TRUE
    ..- attr(*, "tweakable")= language c(makeClusterPSOCK_args(), "persistent")
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (..., envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (..., envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (..., envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ b:function (..., workers = availableWorkers(), envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
    ..- attr(*, "init")= logi TRUE
    ..- attr(*, "tweakable")= language c(makeClusterPSOCK_args(), "persistent")
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (..., envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (..., envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (..., envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:51.538] signalConditions() ...
  [14:55:51.538]  - include = 'immediateCondition'
  [14:55:51.539]  - exclude = 
  [14:55:51.539]  - resignal = FALSE
  [14:55:51.539]  - Number of conditions: 731
  [14:55:51.541] signalConditions() ... done
  [14:55:51.541] signalConditions() ...
  [14:55:51.542]  - include = 'condition'
  [14:55:51.542]  - exclude = 'immediateCondition'
  [14:55:51.542]  - resignal = FALSE
  [14:55:51.542]  - Number of conditions: 731
  [14:55:51.542]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:55:51.543]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:55:49.028] doFuture() ...
  [14:55:51.543]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:55:49.065] - dummy globals (as locals): [1] 'b'
  [14:55:51.543]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [14:55:49.066] - R expression:
  [14:55:51.544]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [14:55:49.067] {
  [14:55:49.067]     doFuture::registerDoFuture()
  [14:55:49.067]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:49.067]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:49.067]         b <- NULL
  [14:55:49.067]         ...future.env <- environment()
  [14:55:49.067]         local({
  [14:55:49.067]             for (name in names(...future.x_jj)) {
  [14:55:49.067]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:49.067]                   inherits = FALSE)
  [14:55:49.067]             }
  [14:55:49.067]         })
  [14:55:49.067]         tryCatch({
  [14:55:49.067]             plan_list <- future::plan("next")
  [14:55:49.067]             message(capture.output(print(plan_list)))
  [14:55:49.067]             stopifnot(inherits(plan_list, "future"))
  [14:55:49.067]             default <- getOption("future.plan", "sequential")
  [14:55:49.067]             if (is.function(default)) 
  [14:55:49.067]                 default <- class(default)
  [14:55:49.067]             stopifnot(inherits(plan_list, default))
  [14:55:49.067]             plan_b <- future::plan("list")
  [14:55:49.067]             str(plan_b)
  [14:55:49.067]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:55:49.067]                 default))
  [14:55:49.067]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:49.067]         }, error = identity)
  [14:55:49.067]     })
  [14:55:49.067] }
  [14:55:51.544]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [14:55:49.068] - identifying globals and packages ...
  [14:55:51.560]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [14:55:49.068] getGlobalsAndPackages() ...
  [14:55:51.561]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [14:55:49.069] Retrieving 'add' globals ...
  [14:55:51.561]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [14:55:49.070] - 'add' globals retrieved: [2] 'a', 'plan_a'
  [14:55:51.562]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [14:55:49.070] Retrieving 'add' globals ... DONE
  [14:55:51.562]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [14:55:49.071] Searching for globals...
  [14:55:51.562]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [14:55:49.158] - 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:55:51.562]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [14:55:49.158] Searching for globals ... DONE
  [14:55:51.563]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [14:55:49.159] Resolving globals: FALSE
  [14:55:51.563]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [14:55:49.161] The total size of the 3 globals is 14.17 KiB (14512 bytes)
  [14:55:51.563]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [14:55:49.163] The total size of the 3 globals exported for future expression ('{; doFuture::registerDoFuture(); lapply(seq_along(...future.x_ii), FUN = function(jj) {; ...future.x_jj <- ...future.x_ii[[jj]]; b <- NULL; ...future.env <- environment(); ...; }, error = identity); }); }') is 14.17 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: 'plan_a' (14.12 KiB of class 'list'), 'a' (56 bytes of class 'numeric') and '...future.x_ii' (0 bytes of class 'NULL')
  [14:55:51.564]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [14:55:49.163] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:51.564]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [14:55:49.163] - packages: [1] 'utils'
  [14:55:51.564]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [14:55:49.164] getGlobalsAndPackages() ... DONE
  [14:55:51.565]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [14:55:49.164] List of 3
  [14:55:49.164]  $ ...future.x_ii: NULL
  [14:55:49.164]  $ a             : int 1
  [14:55:49.164]  $ plan_a        :List of 1
  [14:55:49.164]   ..$ b:function (..., workers = availableWorkers(), envir = parent.frame())  
  [14:55:49.164]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [14:55:49.164]   .. ..- attr(*, "init")= logi TRUE
  [14:55:49.164]   .. ..- attr(*, "tweakable")= language c(makeClusterPSOCK_args(), "persistent")
  [14:55:49.164]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:49.164]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:49.164]  - attr(*, "where")=List of 3
  [14:55:49.164]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:49.164]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:49.164]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:49.164]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:49.164]  - attr(*, "resolved")= logi FALSE
  [14:55:49.164]  - attr(*, "total_size")= num 14512
  [14:55:51.565]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [14:55:49.177]   - R expression:
  [14:55:51.565]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [14:55:49.178] {
  [14:55:49.178]     doFuture::registerDoFuture()
  [14:55:49.178]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:49.178]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:49.178]         b <- NULL
  [14:55:49.178]         ...future.env <- environment()
  [14:55:49.178]         local({
  [14:55:49.178]             for (name in names(...future.x_jj)) {
  [14:55:49.178]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:49.178]                   inherits = FALSE)
  [14:55:49.178]             }
  [14:55:49.178]         })
  [14:55:49.178]         tryCatch({
  [14:55:49.178]             plan_list <- future::plan("next")
  [14:55:49.178]             message(capture.output(print(plan_list)))
  [14:55:49.178]             stopifnot(inherits(plan_list, "future"))
  [14:55:49.178]             default <- getOption("future.plan", "sequential")
  [14:55:49.178]             if (is.function(default)) 
  [14:55:49.178]                 default <- class(default)
  [14:55:49.178]             stopifnot(inherits(plan_list, default))
  [14:55:49.178]             plan_b <- future::plan("list")
  [14:55:49.178]             str(plan_b)
  [14:55:49.178]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:55:49.178]                 default))
  [14:55:49.178]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:49.178]         }, error = identity)
  [14:55:49.178]     })
  [14:55:49.178] }
  [14:55:51.566]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [14:55:49.179]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:51.566]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [14:55:49.179] List of 3
  [14:55:49.179]  $ ...future.x_ii: NULL
  [14:55:49.179]  $ a             : int 1
  [14:55:49.179]  $ plan_a        :List of 1
  [14:55:49.179]   ..$ b:function (..., workers = availableWorkers(), envir = parent.frame())  
  [14:55:49.179]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [14:55:49.179]   .. ..- attr(*, "init")= logi TRUE
  [14:55:49.179]   .. ..- attr(*, "tweakable")= language c(makeClusterPSOCK_args(), "persistent")
  [14:55:49.179]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:49.179]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:49.179]  - attr(*, "where")=List of 3
  [14:55:49.179]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:49.179]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:49.179]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:49.179]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:49.179]  - attr(*, "resolved")= logi FALSE
  [14:55:49.179]  - attr(*, "total_size")= num 14512
  [14:55:51.566]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [14:55:49.193]   - packages: [2] 'doFuture', 'utils'
  [14:55:51.567]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [14:55:49.194] - identifying globals and packages ... DONE
  [14:55:51.567]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [14:55:49.197] Number of chunks: 2
  [14:55:51.567]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [14:55:49.198] Number of futures (= number of chunks): 2
  [14:55:51.568]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [14:55:49.198] Launching 2 futures (chunks) ...
  [14:55:51.568]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [14:55:49.198] Chunk #1 of 2 ...
  [14:55:51.568]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [14:55:49.199]  - Finding globals in 'args_list' chunk #1 ...
  [14:55:51.569]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [14:55:49.199] getGlobalsAndPackages() ...
  [14:55:51.569]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [14:55:49.199] Searching for globals...
  [14:55:51.569]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [14:55:49.200] 
  [14:55:51.569]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [14:55:49.202] Searching for globals ... DONE
  [14:55:51.570]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [14:55:49.202] - globals: [0] <none>
  [14:55:51.570]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [14:55:49.202] getGlobalsAndPackages() ... DONE
  [14:55:51.570]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [14:55:49.203] 
  [14:55:51.571]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [14:55:49.203] 
  [14:55:51.571]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [14:55:49.203]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:55:51.571]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [14:55:49.203] getGlobalsAndPackages() ...
  [14:55:51.572]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [14:55:49.204] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:51.572]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [14:55:49.204] Resolving globals: FALSE
  [14:55:51.572]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [14:55:49.205] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:51.573]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [14:55:49.205] 
  [14:55:51.573]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [14:55:49.205] getGlobalsAndPackages() ... DONE
  [14:55:51.573]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [14:55:49.206] run() for 'Future' ...
  [14:55:51.574]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [14:55:49.206] - state: 'created'
  [14:55:51.574]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [14:55:49.207] - Future backend: 'FutureStrategy', 'cluster', 'multiprocess', 'future', 'function'
  [14:55:51.574]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [14:55:51.575]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [local output] Base port: 39650
  [14:55:51.575]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [local output] Getting setup options for 2 cluster nodes ...
  [14:55:51.575]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [local output]  - Node 1 of 2 ...
  [14:55:51.575]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [local output] Rscript port: 39650
  
  [14:55:51.576]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [local output]  - Node 2 of 2 ...
  [14:55:51.576]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [local output] Rscript port: 39650
  
  [14:55:51.593]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [local output] Getting setup options for 2 cluster nodes ... done
  [14:55:51.593]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [local output]  - Parallel setup requested for some PSOCK nodes
  [14:55:51.593]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [local output] Setting up PSOCK nodes in parallel
  [14:55:51.594]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [14:55:49.221] List of 20
  [14:55:49.221]  $ local_cmd     : chr "'/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graph"| __truncated__
  [14:55:49.221]  $ worker        : chr "localhost"
  [14:55:49.221]   ..- attr(*, "localhost")= logi TRUE
  [14:55:49.221]  $ rank          : int 1
  [14:55:49.221]  $ rshlogfile    : NULL
  [14:55:49.221]  $ port          : int 39650
  [14:55:49.221]  $ connectTimeout: num 120
  [14:55:49.221]  $ timeout       : num 2592000
  [14:55:49.221]  $ useXDR        : logi FALSE
  [14:55:49.221]  $ pidfile       : chr "/home/hornik/tmp/scratch/RtmplLCzy6/worker.rank=1.parallelly.parent=206306.325e259cb1cb4.pid"
  [14:55:49.221]  $ setup_strategy: chr "parallel"
  [14:55:49.221]  $ outfile       : chr "/dev/null"
  [14:55:49.221]  $ rshcmd_label  : NULL
  [14:55:49.221]  $ rsh_call      : NULL
  [14:55:49.221]  $ cmd           : chr "'/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graph"| __truncated__
  [14:55:49.221]  $ localMachine  : logi TRUE
  [14:55:49.221]  $ manual        : logi FALSE
  [14:55:49.221]  $ dryrun        : logi FALSE
  [14:55:49.221]  $ quiet         : logi FALSE
  [14:55:49.221]  $ rshcmd        : NULL
  [14:55:49.221]  $ revtunnel     : logi TRUE
  [14:55:49.221]  - attr(*, "class")= chr [1:2] "makeNodePSOCKOptions" "makeNodeOptions"
  [14:55:51.594]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [local output] System call to launch all workers:
  [14:55:51.594]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [local output] '/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmplLCzy6/worker.rank=1.parallelly.parent=206306.325e259cb1cb4.pid")), silent = TRUE)' -e 'workRSOCK <- tryCatch(parallel:::.workRSOCK, error=function(e) parallel:::.slaveRSOCK); workRSOCK()' MASTER=localhost PORT=39650 OUT=/dev/null TIMEOUT=2592000 XDR=FALSE SETUPTIMEOUT=120 SETUPSTRATEGY=parallel
  [14:55:51.594]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [local output] Starting PSOCK main server
  [14:55:51.595]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [local output] Workers launched
  [14:55:51.595]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [local output] Waiting for workers to connect back
  [14:55:51.595]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [local output] 0 workers out of 2 ready
  [14:55:51.596]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [local output] 0 workers out of 2 ready
  [14:55:51.596]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [local output] 1 workers out of 2 ready
  [14:55:51.596]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [local output] 1 workers out of 2 ready
  [14:55:51.597]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [local output] - collecting session information
  [14:55:51.597]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [14:55:50.014] - Future class: 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
  [14:55:51.597]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [14:55:50.015] - Copy elements of temporary 'ClusterFuture' to final 'Future' object ...
  [14:55:51.598]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [14:55:50.015]   - Field: 'node'
  [14:55:51.598]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [14:55:50.015]   - Field: 'label'
  [14:55:51.598]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [14:55:50.016]   - Field: 'local'
  [14:55:51.598]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [14:55:50.016]   - Field: 'owner'
  [14:55:51.599]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [14:55:50.016]   - Field: 'envir'
  [14:55:51.599]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [14:55:50.017]   - Field: 'workers'
  [14:55:51.599]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [14:55:50.017]   - Field: 'packages'
  [14:55:51.600]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [14:55:50.017]   - Field: 'gc'
  [14:55:51.600]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [14:55:50.017]   - Field: 'conditions'
  [14:55:51.600]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [14:55:50.018]   - Field: 'persistent'
  [14:55:51.601]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [14:55:50.018]   - Field: 'expr'
  [14:55:51.601]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [14:55:50.018]   - Field: 'uuid'
  [14:55:51.601]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [14:55:50.019]   - Field: 'seed'
  [14:55:51.602]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [14:55:50.019]   - Field: 'version'
  [14:55:51.602]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [14:55:50.019]   - Field: 'result'
  [14:55:51.602]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [14:55:50.020]   - Field: 'asynchronous'
  [14:55:51.602]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [14:55:50.020]   - Field: 'calls'
  [14:55:51.603]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [14:55:50.020]   - Field: 'globals'
  [14:55:51.603]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [14:55:50.020]   - Field: 'stdout'
  [14:55:51.603]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [14:55:50.021]   - Field: 'earlySignal'
  [14:55:51.604]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [14:55:50.021]   - Field: 'lazy'
  [14:55:51.604]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [14:55:50.021]   - Field: 'state'
  [14:55:51.604]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [14:55:50.022] - Copy elements of temporary 'ClusterFuture' to final 'Future' object ... done
  [14:55:51.605]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [14:55:50.022] - Launch lazy future ...
  [14:55:51.605]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [14:55:50.023] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:55:51.605]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [14:55:50.023] Packages needed by future strategies (n = 0): <none>
  [14:55:51.606]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [14:55:50.025] {
  [14:55:50.025]     {
  [14:55:50.025]         ...future.startTime <- base::Sys.time()
  [14:55:50.025]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:55:50.025]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:55:50.025]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:55:50.025]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:55:50.025]             future.resolve.recursive = NULL, future.rng.onMisuse = NULL, 
  [14:55:50.025]             future.rng.onMisuse.keepFuture = NULL, future.stdout.windows.reencode = NULL, 
  [14:55:50.025]             width = 80L)
  [14:55:50.025]         {
  [14:55:50.025]             {
  [14:55:50.025]                 {
  [14:55:50.025]                   base::local({
  [14:55:50.025]                     has_future <- base::requireNamespace("future", 
  [14:55:50.025]                       quietly = TRUE)
  [14:55:50.025]                     if (has_future) {
  [14:55:50.025]                       ns <- base::getNamespace("future")
  [14:55:50.025]                       version <- ns[[".package"]][["version"]]
  [14:55:50.025]                       if (is.null(version)) 
  [14:55:50.025]                         version <- utils::packageVersion("future")
  [14:55:50.025]                     }
  [14:55:50.025]                     else {
  [14:55:50.025]                       version <- NULL
  [14:55:50.025]                     }
  [14:55:50.025]                     if (!has_future || version < "1.8.0") {
  [14:55:50.025]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:55:50.025]                         "", base::R.version$version.string), 
  [14:55:50.025]                         platform = base::sprintf("%s (%s-bit)", 
  [14:55:50.025]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:55:50.025]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:55:50.025]                           "release", "version")], collapse = " "), 
  [14:55:50.025]                         hostname = base::Sys.info()[["nodename"]])
  [14:55:50.025]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:55:50.025]                         info)
  [14:55:50.025]                       info <- base::paste(info, collapse = "; ")
  [14:55:50.025]                       if (!has_future) {
  [14:55:50.025]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:55:50.025]                           info)
  [14:55:50.025]                       }
  [14:55:50.025]                       else {
  [14:55:50.025]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:55:50.025]                           info, version)
  [14:55:50.025]                       }
  [14:55:50.025]                       base::stop(msg)
  [14:55:50.025]                     }
  [14:55:50.025]                   })
  [14:55:50.025]                 }
  [14:55:50.025]                 base::local({
  [14:55:50.025]                   for (pkg in c("doFuture", "utils")) {
  [14:55:50.025]                     base::loadNamespace(pkg)
  [14:55:50.025]                     base::library(pkg, character.only = TRUE)
  [14:55:50.025]                   }
  [14:55:50.025]                 })
  [14:55:50.025]             }
  [14:55:50.025]             options(future.plan = NULL)
  [14:55:50.025]             Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:50.025]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:55:50.025]         }
  [14:55:50.025]     }
  [14:55:50.025]     if (FALSE) {
  [14:55:50.025]     }
  [14:55:50.025]     else {
  [14:55:50.025]         if (TRUE) {
  [14:55:50.025]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:55:50.025]                 open = "w")
  [14:55:50.025]         }
  [14:55:50.025]         else {
  [14:55:50.025]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:55:50.025]                 windows = "NUL", "/dev/null"), open = "w")
  [14:55:50.025]         }
  [14:55:50.025]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:55:50.025]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:55:50.025]             base::sink(type = "output", split = FALSE)
  [14:55:50.025]             base::close(...future.stdout)
  [14:55:50.025]         }, add = TRUE)
  [14:55:50.025]     }
  [14:55:50.025]     ...future.frame <- base::sys.nframe()
  [14:55:50.025]     ...future.conditions <- base::list()
  [14:55:50.025]     ...future.rng <- base::globalenv()$.Random.seed
  [14:55:50.025]     ...future.result <- base::tryCatch({
  [14:55:50.025]         base::withCallingHandlers({
  [14:55:50.025]             ...future.value <- base::withVisible(base::local({
  [14:55:50.025]                 ...future.sendCondition <- local({
  [14:55:50.025]                   sendCondition <- NULL
  [14:55:50.025]                   function(frame = 1L) {
  [14:55:50.025]                     if (is.function(sendCondition)) 
  [14:55:50.025]                       return(sendCondition)
  [14:55:50.025]                     ns <- getNamespace("parallel")
  [14:55:50.025]                     if (exists("sendData", mode = "function", 
  [14:55:50.025]                       envir = ns)) {
  [14:55:50.025]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:55:50.025]                         envir = ns)
  [14:55:50.025]                       envir <- sys.frame(frame)
  [14:55:50.025]                       master <- NULL
  [14:55:50.025]                       while (!identical(envir, .GlobalEnv) && 
  [14:55:50.025]                         !identical(envir, emptyenv())) {
  [14:55:50.025]                         if (exists("master", mode = "list", envir = envir, 
  [14:55:50.025]                           inherits = FALSE)) {
  [14:55:50.025]                           master <- get("master", mode = "list", 
  [14:55:50.025]                             envir = envir, inherits = FALSE)
  [14:55:50.025]                           if (inherits(master, c("SOCKnode", 
  [14:55:50.025]                             "SOCK0node"))) {
  [14:55:50.025]                             sendCondition <<- function(cond) {
  [14:55:50.025]                               data <- list(type = "VALUE", value = cond, 
  [14:55:50.025]                                 success = TRUE)
  [14:55:50.025]                               parallel_sendData(master, data)
  [14:55:50.025]                             }
  [14:55:50.025]                             return(sendCondition)
  [14:55:50.025]                           }
  [14:55:50.025]                         }
  [14:55:50.025]                         frame <- frame + 1L
  [14:55:50.025]                         envir <- sys.frame(frame)
  [14:55:50.025]                       }
  [14:55:50.025]                     }
  [14:55:50.025]                     sendCondition <<- function(cond) NULL
  [14:55:50.025]                   }
  [14:55:50.025]                 })
  [14:55:50.025]                 withCallingHandlers({
  [14:55:50.025]                   {
  [14:55:50.025]                     doFuture::registerDoFuture()
  [14:55:50.025]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:50.025]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:50.025]                       b <- NULL
  [14:55:50.025]                       ...future.env <- environment()
  [14:55:50.025]                       local({
  [14:55:50.025]                         for (name in names(...future.x_jj)) {
  [14:55:50.025]                           assign(name, ...future.x_jj[[name]], 
  [14:55:50.025]                             envir = ...future.env, inherits = FALSE)
  [14:55:50.025]                         }
  [14:55:50.025]                       })
  [14:55:50.025]                       tryCatch({
  [14:55:50.025]                         plan_list <- future::plan("next")
  [14:55:50.025]                         message(capture.output(print(plan_list)))
  [14:55:50.025]                         stopifnot(inherits(plan_list, "future"))
  [14:55:50.025]                         default <- getOption("future.plan", "sequential")
  [14:55:50.025]                         if (is.function(default)) 
  [14:55:50.025]                           default <- class(default)
  [14:55:50.025]                         stopifnot(inherits(plan_list, default))
  [14:55:50.025]                         plan_b <- future::plan("list")
  [14:55:50.025]                         str(plan_b)
  [14:55:50.025]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:50.025]                           inherits(plan_b[[1]], default))
  [14:55:50.025]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:50.025]                       }, error = identity)
  [14:55:50.025]                     })
  [14:55:50.025]                   }
  [14:55:50.025]                 }, immediateCondition = function(cond) {
  [14:55:50.025]                   sendCondition <- ...future.sendCondition()
  [14:55:50.025]                   sendCondition(cond)
  [14:55:50.025]                   muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:50.025]                   {
  [14:55:50.025]                     inherits <- base::inherits
  [14:55:50.025]                     invokeRestart <- base::invokeRestart
  [14:55:50.025]                     is.null <- base::is.null
  [14:55:50.025]                     muffled <- FALSE
  [14:55:50.025]                     if (inherits(cond, "message")) {
  [14:55:50.025]                       muffled <- grepl(pattern, "muffleMessage")
  [14:55:50.025]                       if (muffled) 
  [14:55:50.025]                         invokeRestart("muffleMessage")
  [14:55:50.025]                     }
  [14:55:50.025]                     else if (inherits(cond, "warning")) {
  [14:55:50.025]                       muffled <- grepl(pattern, "muffleWarning")
  [14:55:50.025]                       if (muffled) 
  [14:55:50.025]                         invokeRestart("muffleWarning")
  [14:55:50.025]                     }
  [14:55:50.025]                     else if (inherits(cond, "condition")) {
  [14:55:50.025]                       if (!is.null(pattern)) {
  [14:55:50.025]                         computeRestarts <- base::computeRestarts
  [14:55:50.025]                         grepl <- base::grepl
  [14:55:50.025]                         restarts <- computeRestarts(cond)
  [14:55:50.025]                         for (restart in restarts) {
  [14:55:50.025]                           name <- restart$name
  [14:55:50.025]                           if (is.null(name)) 
  [14:55:50.025]                             next
  [14:55:50.025]                           if (!grepl(pattern, name)) 
  [14:55:50.025]                             next
  [14:55:50.025]                           invokeRestart(restart)
  [14:55:50.025]                           muffled <- TRUE
  [14:55:50.025]                           break
  [14:55:50.025]                         }
  [14:55:50.025]                       }
  [14:55:50.025]                     }
  [14:55:50.025]                     invisible(muffled)
  [14:55:50.025]                   }
  [14:55:50.025]                   muffleCondition(cond)
  [14:55:50.025]                 })
  [14:55:50.025]             }))
  [14:55:50.025]             future::FutureResult(value = ...future.value$value, 
  [14:55:50.025]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:50.025]                   ...future.rng), started = ...future.startTime, 
  [14:55:50.025]                 version = "1.8")
  [14:55:50.025]         }, condition = base::local({
  [14:55:50.025]             c <- base::c
  [14:55:50.025]             inherits <- base::inherits
  [14:55:50.025]             invokeRestart <- base::invokeRestart
  [14:55:50.025]             length <- base::length
  [14:55:50.025]             list <- base::list
  [14:55:50.025]             seq.int <- base::seq.int
  [14:55:50.025]             signalCondition <- base::signalCondition
  [14:55:50.025]             sys.calls <- base::sys.calls
  [14:55:50.025]             `[[` <- base::`[[`
  [14:55:50.025]             `+` <- base::`+`
  [14:55:50.025]             `<<-` <- base::`<<-`
  [14:55:50.025]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:55:50.025]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:55:50.025]                   3L)]
  [14:55:50.025]             }
  [14:55:50.025]             function(cond) {
  [14:55:50.025]                 is_error <- inherits(cond, "error")
  [14:55:50.025]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:55:50.025]                   NULL)
  [14:55:50.025]                 if (is_error) {
  [14:55:50.025]                   sessionInformation <- function() {
  [14:55:50.025]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:55:50.025]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:55:50.025]                       search = base::search(), system = base::Sys.info())
  [14:55:50.025]                   }
  [14:55:50.025]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:50.025]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:55:50.025]                     cond$call), session = sessionInformation(), 
  [14:55:50.025]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:55:50.025]                   signalCondition(cond)
  [14:55:50.025]                 }
  [14:55:50.025]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:55:50.025]                 "immediateCondition"))) {
  [14:55:50.025]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:55:50.025]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:50.025]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:55:50.025]                   if (TRUE && !signal) {
  [14:55:50.025]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:50.025]                     {
  [14:55:50.025]                       inherits <- base::inherits
  [14:55:50.025]                       invokeRestart <- base::invokeRestart
  [14:55:50.025]                       is.null <- base::is.null
  [14:55:50.025]                       muffled <- FALSE
  [14:55:50.025]                       if (inherits(cond, "message")) {
  [14:55:50.025]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:50.025]                         if (muffled) 
  [14:55:50.025]                           invokeRestart("muffleMessage")
  [14:55:50.025]                       }
  [14:55:50.025]                       else if (inherits(cond, "warning")) {
  [14:55:50.025]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:50.025]                         if (muffled) 
  [14:55:50.025]                           invokeRestart("muffleWarning")
  [14:55:50.025]                       }
  [14:55:50.025]                       else if (inherits(cond, "condition")) {
  [14:55:50.025]                         if (!is.null(pattern)) {
  [14:55:50.025]                           computeRestarts <- base::computeRestarts
  [14:55:50.025]                           grepl <- base::grepl
  [14:55:50.025]                           restarts <- computeRestarts(cond)
  [14:55:50.025]                           for (restart in restarts) {
  [14:55:50.025]                             name <- restart$name
  [14:55:50.025]                             if (is.null(name)) 
  [14:55:50.025]                               next
  [14:55:50.025]                             if (!grepl(pattern, name)) 
  [14:55:50.025]                               next
  [14:55:50.025]                             invokeRestart(restart)
  [14:55:50.025]                             muffled <- TRUE
  [14:55:50.025]                             break
  [14:55:50.025]                           }
  [14:55:50.025]                         }
  [14:55:50.025]                       }
  [14:55:50.025]                       invisible(muffled)
  [14:55:50.025]                     }
  [14:55:50.025]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:50.025]                   }
  [14:55:50.025]                 }
  [14:55:50.025]                 else {
  [14:55:50.025]                   if (TRUE) {
  [14:55:50.025]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:50.025]                     {
  [14:55:50.025]                       inherits <- base::inherits
  [14:55:50.025]                       invokeRestart <- base::invokeRestart
  [14:55:50.025]                       is.null <- base::is.null
  [14:55:50.025]                       muffled <- FALSE
  [14:55:50.025]                       if (inherits(cond, "message")) {
  [14:55:50.025]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:50.025]                         if (muffled) 
  [14:55:50.025]                           invokeRestart("muffleMessage")
  [14:55:50.025]                       }
  [14:55:50.025]                       else if (inherits(cond, "warning")) {
  [14:55:50.025]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:50.025]                         if (muffled) 
  [14:55:50.025]                           invokeRestart("muffleWarning")
  [14:55:50.025]                       }
  [14:55:50.025]                       else if (inherits(cond, "condition")) {
  [14:55:50.025]                         if (!is.null(pattern)) {
  [14:55:50.025]                           computeRestarts <- base::computeRestarts
  [14:55:50.025]                           grepl <- base::grepl
  [14:55:50.025]                           restarts <- computeRestarts(cond)
  [14:55:50.025]                           for (restart in restarts) {
  [14:55:50.025]                             name <- restart$name
  [14:55:50.025]                             if (is.null(name)) 
  [14:55:50.025]                               next
  [14:55:50.025]                             if (!grepl(pattern, name)) 
  [14:55:50.025]                               next
  [14:55:50.025]                             invokeRestart(restart)
  [14:55:50.025]                             muffled <- TRUE
  [14:55:50.025]                             break
  [14:55:50.025]                           }
  [14:55:50.025]                         }
  [14:55:50.025]                       }
  [14:55:50.025]                       invisible(muffled)
  [14:55:50.025]                     }
  [14:55:50.025]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:50.025]                   }
  [14:55:50.025]                 }
  [14:55:50.025]             }
  [14:55:50.025]         }))
  [14:55:50.025]     }, error = function(ex) {
  [14:55:50.025]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:55:50.025]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:50.025]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:55:50.025]     }, finally = {
  [14:55:50.025]         {
  [14:55:50.025]             NULL
  [14:55:50.025]             options(future.plan = NULL)
  [14:55:50.025]             if (is.na(NA_character_)) 
  [14:55:50.025]                 Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:50.025]             else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:55:50.025]             future::plan(list(b = function (..., workers = availableWorkers(), 
  [14:55:50.025]                 envir = parent.frame()) 
  [14:55:50.025]             {
  [14:55:50.025]                 future <- ClusterFuture(..., workers = workers, 
  [14:55:50.025]                   envir = envir)
  [14:55:50.025]                 if (!future$lazy) 
  [14:55:50.025]                   future <- run(future)
  [14:55:50.025]                 invisible(future)
  [14:55:50.025]             }), .cleanup = FALSE, .init = FALSE)
  [14:55:50.025]         }
  [14:55:50.025]         base::options(...future.oldOptions)
  [14:55:50.025]     })
  [14:55:50.025]     if (TRUE) {
  [14:55:50.025]         base::sink(type = "output", split = FALSE)
  [14:55:50.025]         if (TRUE) {
  [14:55:50.025]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:55:50.025]         }
  [14:55:50.025]         else {
  [14:55:50.025]             ...future.result["stdout"] <- base::list(NULL)
  [14:55:50.025]         }
  [14:55:50.025]         base::close(...future.stdout)
  [14:55:50.025]         ...future.stdout <- NULL
  [14:55:50.025]     }
  [14:55:50.025]     ...future.result$conditions <- ...future.conditions
  [14:55:50.025]     ...future.result
  [14:55:50.025] }
  [14:55:51.606]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [14:55:50.193] Exporting 3 global objects (14.17 KiB) to cluster node #1 ...
  [14:55:51.606]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [14:55:50.194] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
  [14:55:51.607]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [14:55:50.209] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
  [14:55:51.607]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [14:55:50.209] Exporting 'a' (56 bytes) to cluster node #1 ...
  [14:55:51.607]  - Condition #104: 'simpleMessage', 'message', 'condition'
  [14:55:50.210] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
  [14:55:51.608]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [14:55:50.210] Exporting 'plan_a' (14.12 KiB) to cluster node #1 ...
  [14:55:51.608]  - Condition #106: 'simpleMessage', 'message', 'condition'
  [14:55:50.211] Exporting 'plan_a' (14.12 KiB) to cluster node #1 ... DONE
  [14:55:51.624]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [14:55:50.212] Exporting 3 global objects (14.17 KiB) to cluster node #1 ... DONE
  [14:55:51.625]  - Condition #108: 'simpleMessage', 'message', 'condition'
  [14:55:50.213] ClusterFuture started
  [14:55:51.625]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [14:55:50.213] - Launch lazy future ... done
  [14:55:51.625]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [14:55:50.213] run() for 'ClusterFuture' ... done
  [14:55:51.626]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [14:55:50.213] Chunk #1 of 2 ... DONE
  [14:55:51.626]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [14:55:50.214] Chunk #2 of 2 ...
  [14:55:51.626]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [14:55:50.214]  - Finding globals in 'args_list' chunk #2 ...
  [14:55:51.627]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [14:55:50.214] getGlobalsAndPackages() ...
  [14:55:51.627]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [14:55:50.215] Searching for globals...
  [14:55:51.627]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [14:55:50.215] 
  [14:55:51.628]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [14:55:50.216] Searching for globals ... DONE
  [14:55:51.628]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [14:55:50.216] - globals: [0] <none>
  [14:55:51.628]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [14:55:50.216] getGlobalsAndPackages() ... DONE
  [14:55:51.629]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [14:55:50.216] 
  [14:55:51.629]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [14:55:50.217] 
  [14:55:51.629]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [14:55:50.217]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:55:51.629]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [14:55:50.217] getGlobalsAndPackages() ...
  [14:55:51.630]  - Condition #124: 'simpleMessage', 'message', 'condition'
  [14:55:50.217] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:51.630]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [14:55:50.218] Resolving globals: FALSE
  [14:55:51.630]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [14:55:50.218] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:51.631]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [14:55:50.218] 
  [14:55:51.631]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [14:55:50.219] getGlobalsAndPackages() ... DONE
  [14:55:51.631]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [14:55:50.219] run() for 'Future' ...
  [14:55:51.632]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [14:55:50.220] - state: 'created'
  [14:55:51.632]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [14:55:50.220] - Future backend: 'FutureStrategy', 'cluster', 'multiprocess', 'future', 'function'
  [14:55:51.632]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [14:55:50.223] - Future class: 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
  [14:55:51.633]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [14:55:50.224] - Copy elements of temporary 'ClusterFuture' to final 'Future' object ...
  [14:55:51.633]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [14:55:50.224]   - Field: 'node'
  [14:55:51.633]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [14:55:50.236]   - Field: 'label'
  [14:55:51.634]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [14:55:50.237]   - Field: 'local'
  [14:55:51.634]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [14:55:50.237]   - Field: 'owner'
  [14:55:51.634]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [14:55:50.237]   - Field: 'envir'
  [14:55:51.634]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [14:55:50.237]   - Field: 'workers'
  [14:55:51.635]  - Condition #140: 'simpleMessage', 'message', 'condition'
  [14:55:50.238]   - Field: 'packages'
  [14:55:51.635]  - Condition #141: 'simpleMessage', 'message', 'condition'
  [14:55:50.238]   - Field: 'gc'
  [14:55:51.635]  - Condition #142: 'simpleMessage', 'message', 'condition'
  [14:55:50.238]   - Field: 'conditions'
  [14:55:51.636]  - Condition #143: 'simpleMessage', 'message', 'condition'
  [14:55:50.239]   - Field: 'persistent'
  [14:55:51.636]  - Condition #144: 'simpleMessage', 'message', 'condition'
  [14:55:50.239]   - Field: 'expr'
  [14:55:51.636]  - Condition #145: 'simpleMessage', 'message', 'condition'
  [14:55:50.239]   - Field: 'uuid'
  [14:55:51.637]  - Condition #146: 'simpleMessage', 'message', 'condition'
  [14:55:50.239]   - Field: 'seed'
  [14:55:51.637]  - Condition #147: 'simpleMessage', 'message', 'condition'
  [14:55:50.240]   - Field: 'version'
  [14:55:51.637]  - Condition #148: 'simpleMessage', 'message', 'condition'
  [14:55:50.240]   - Field: 'result'
  [14:55:51.638]  - Condition #149: 'simpleMessage', 'message', 'condition'
  [14:55:50.240]   - Field: 'asynchronous'
  [14:55:51.638]  - Condition #150: 'simpleMessage', 'message', 'condition'
  [14:55:50.240]   - Field: 'calls'
  [14:55:51.638]  - Condition #151: 'simpleMessage', 'message', 'condition'
  [14:55:50.241]   - Field: 'globals'
  [14:55:51.669]  - Condition #152: 'simpleMessage', 'message', 'condition'
  [14:55:50.241]   - Field: 'stdout'
  [14:55:51.669]  - Condition #153: 'simpleMessage', 'message', 'condition'
  [14:55:50.241]   - Field: 'earlySignal'
  [14:55:51.670]  - Condition #154: 'simpleMessage', 'message', 'condition'
  [14:55:50.242]   - Field: 'lazy'
  [14:55:51.670]  - Condition #155: 'simpleMessage', 'message', 'condition'
  [14:55:50.242]   - Field: 'state'
  [14:55:51.670]  - Condition #156: 'simpleMessage', 'message', 'condition'
  [14:55:50.242] - Copy elements of temporary 'ClusterFuture' to final 'Future' object ... done
  [14:55:51.671]  - Condition #157: 'simpleMessage', 'message', 'condition'
  [14:55:50.242] - Launch lazy future ...
  [14:55:51.671]  - Condition #158: 'simpleMessage', 'message', 'condition'
  [14:55:50.243] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:55:51.672]  - Condition #159: 'simpleMessage', 'message', 'condition'
  [14:55:50.243] Packages needed by future strategies (n = 0): <none>
  [14:55:51.672]  - Condition #160: 'simpleMessage', 'message', 'condition'
  [14:55:50.245] {
  [14:55:50.245]     {
  [14:55:50.245]         ...future.startTime <- base::Sys.time()
  [14:55:50.245]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:55:50.245]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:55:50.245]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:55:50.245]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:55:50.245]             future.resolve.recursive = NULL, future.rng.onMisuse = NULL, 
  [14:55:50.245]             future.rng.onMisuse.keepFuture = NULL, future.stdout.windows.reencode = NULL, 
  [14:55:50.245]             width = 80L)
  [14:55:50.245]         {
  [14:55:50.245]             {
  [14:55:50.245]                 {
  [14:55:50.245]                   base::local({
  [14:55:50.245]                     has_future <- base::requireNamespace("future", 
  [14:55:50.245]                       quietly = TRUE)
  [14:55:50.245]                     if (has_future) {
  [14:55:50.245]                       ns <- base::getNamespace("future")
  [14:55:50.245]                       version <- ns[[".package"]][["version"]]
  [14:55:50.245]                       if (is.null(version)) 
  [14:55:50.245]                         version <- utils::packageVersion("future")
  [14:55:50.245]                     }
  [14:55:50.245]                     else {
  [14:55:50.245]                       version <- NULL
  [14:55:50.245]                     }
  [14:55:50.245]                     if (!has_future || version < "1.8.0") {
  [14:55:50.245]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:55:50.245]                         "", base::R.version$version.string), 
  [14:55:50.245]                         platform = base::sprintf("%s (%s-bit)", 
  [14:55:50.245]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:55:50.245]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:55:50.245]                           "release", "version")], collapse = " "), 
  [14:55:50.245]                         hostname = base::Sys.info()[["nodename"]])
  [14:55:50.245]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:55:50.245]                         info)
  [14:55:50.245]                       info <- base::paste(info, collapse = "; ")
  [14:55:50.245]                       if (!has_future) {
  [14:55:50.245]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:55:50.245]                           info)
  [14:55:50.245]                       }
  [14:55:50.245]                       else {
  [14:55:50.245]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:55:50.245]                           info, version)
  [14:55:50.245]                       }
  [14:55:50.245]                       base::stop(msg)
  [14:55:50.245]                     }
  [14:55:50.245]                   })
  [14:55:50.245]                 }
  [14:55:50.245]                 base::local({
  [14:55:50.245]                   for (pkg in c("doFuture", "utils")) {
  [14:55:50.245]                     base::loadNamespace(pkg)
  [14:55:50.245]                     base::library(pkg, character.only = TRUE)
  [14:55:50.245]                   }
  [14:55:50.245]                 })
  [14:55:50.245]             }
  [14:55:50.245]             options(future.plan = NULL)
  [14:55:50.245]             Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:50.245]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:55:50.245]         }
  [14:55:50.245]     }
  [14:55:50.245]     if (FALSE) {
  [14:55:50.245]     }
  [14:55:50.245]     else {
  [14:55:50.245]         if (TRUE) {
  [14:55:50.245]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:55:50.245]                 open = "w")
  [14:55:50.245]         }
  [14:55:50.245]         else {
  [14:55:50.245]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:55:50.245]                 windows = "NUL", "/dev/null"), open = "w")
  [14:55:50.245]         }
  [14:55:50.245]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:55:50.245]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:55:50.245]             base::sink(type = "output", split = FALSE)
  [14:55:50.245]             base::close(...future.stdout)
  [14:55:50.245]         }, add = TRUE)
  [14:55:50.245]     }
  [14:55:50.245]     ...future.frame <- base::sys.nframe()
  [14:55:50.245]     ...future.conditions <- base::list()
  [14:55:50.245]     ...future.rng <- base::globalenv()$.Random.seed
  [14:55:50.245]     ...future.result <- base::tryCatch({
  [14:55:50.245]         base::withCallingHandlers({
  [14:55:50.245]             ...future.value <- base::withVisible(base::local({
  [14:55:50.245]                 ...future.sendCondition <- local({
  [14:55:50.245]                   sendCondition <- NULL
  [14:55:50.245]                   function(frame = 1L) {
  [14:55:50.245]                     if (is.function(sendCondition)) 
  [14:55:50.245]                       return(sendCondition)
  [14:55:50.245]                     ns <- getNamespace("parallel")
  [14:55:50.245]                     if (exists("sendData", mode = "function", 
  [14:55:50.245]                       envir = ns)) {
  [14:55:50.245]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:55:50.245]                         envir = ns)
  [14:55:50.245]                       envir <- sys.frame(frame)
  [14:55:50.245]                       master <- NULL
  [14:55:50.245]                       while (!identical(envir, .GlobalEnv) && 
  [14:55:50.245]                         !identical(envir, emptyenv())) {
  [14:55:50.245]                         if (exists("master", mode = "list", envir = envir, 
  [14:55:50.245]                           inherits = FALSE)) {
  [14:55:50.245]                           master <- get("master", mode = "list", 
  [14:55:50.245]                             envir = envir, inherits = FALSE)
  [14:55:50.245]                           if (inherits(master, c("SOCKnode", 
  [14:55:50.245]                             "SOCK0node"))) {
  [14:55:50.245]                             sendCondition <<- function(cond) {
  [14:55:50.245]                               data <- list(type = "VALUE", value = cond, 
  [14:55:50.245]                                 success = TRUE)
  [14:55:50.245]                               parallel_sendData(master, data)
  [14:55:50.245]                             }
  [14:55:50.245]                             return(sendCondition)
  [14:55:50.245]                           }
  [14:55:50.245]                         }
  [14:55:50.245]                         frame <- frame + 1L
  [14:55:50.245]                         envir <- sys.frame(frame)
  [14:55:50.245]                       }
  [14:55:50.245]                     }
  [14:55:50.245]                     sendCondition <<- function(cond) NULL
  [14:55:50.245]                   }
  [14:55:50.245]                 })
  [14:55:50.245]                 withCallingHandlers({
  [14:55:50.245]                   {
  [14:55:50.245]                     doFuture::registerDoFuture()
  [14:55:50.245]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:50.245]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:50.245]                       b <- NULL
  [14:55:50.245]                       ...future.env <- environment()
  [14:55:50.245]                       local({
  [14:55:50.245]                         for (name in names(...future.x_jj)) {
  [14:55:50.245]                           assign(name, ...future.x_jj[[name]], 
  [14:55:50.245]                             envir = ...future.env, inherits = FALSE)
  [14:55:50.245]                         }
  [14:55:50.245]                       })
  [14:55:50.245]                       tryCatch({
  [14:55:50.245]                         plan_list <- future::plan("next")
  [14:55:50.245]                         message(capture.output(print(plan_list)))
  [14:55:50.245]                         stopifnot(inherits(plan_list, "future"))
  [14:55:50.245]                         default <- getOption("future.plan", "sequential")
  [14:55:50.245]                         if (is.function(default)) 
  [14:55:50.245]                           default <- class(default)
  [14:55:50.245]                         stopifnot(inherits(plan_list, default))
  [14:55:50.245]                         plan_b <- future::plan("list")
  [14:55:50.245]                         str(plan_b)
  [14:55:50.245]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:50.245]                           inherits(plan_b[[1]], default))
  [14:55:50.245]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:50.245]                       }, error = identity)
  [14:55:50.245]                     })
  [14:55:50.245]                   }
  [14:55:50.245]                 }, immediateCondition = function(cond) {
  [14:55:50.245]                   sendCondition <- ...future.sendCondition()
  [14:55:50.245]                   sendCondition(cond)
  [14:55:50.245]                   muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:50.245]                   {
  [14:55:50.245]                     inherits <- base::inherits
  [14:55:50.245]                     invokeRestart <- base::invokeRestart
  [14:55:50.245]                     is.null <- base::is.null
  [14:55:50.245]                     muffled <- FALSE
  [14:55:50.245]                     if (inherits(cond, "message")) {
  [14:55:50.245]                       muffled <- grepl(pattern, "muffleMessage")
  [14:55:50.245]                       if (muffled) 
  [14:55:50.245]                         invokeRestart("muffleMessage")
  [14:55:50.245]                     }
  [14:55:50.245]                     else if (inherits(cond, "warning")) {
  [14:55:50.245]                       muffled <- grepl(pattern, "muffleWarning")
  [14:55:50.245]                       if (muffled) 
  [14:55:50.245]                         invokeRestart("muffleWarning")
  [14:55:50.245]                     }
  [14:55:50.245]                     else if (inherits(cond, "condition")) {
  [14:55:50.245]                       if (!is.null(pattern)) {
  [14:55:50.245]                         computeRestarts <- base::computeRestarts
  [14:55:50.245]                         grepl <- base::grepl
  [14:55:50.245]                         restarts <- computeRestarts(cond)
  [14:55:50.245]                         for (restart in restarts) {
  [14:55:50.245]                           name <- restart$name
  [14:55:50.245]                           if (is.null(name)) 
  [14:55:50.245]                             next
  [14:55:50.245]                           if (!grepl(pattern, name)) 
  [14:55:50.245]                             next
  [14:55:50.245]                           invokeRestart(restart)
  [14:55:50.245]                           muffled <- TRUE
  [14:55:50.245]                           break
  [14:55:50.245]                         }
  [14:55:50.245]                       }
  [14:55:50.245]                     }
  [14:55:50.245]                     invisible(muffled)
  [14:55:50.245]                   }
  [14:55:50.245]                   muffleCondition(cond)
  [14:55:50.245]                 })
  [14:55:50.245]             }))
  [14:55:50.245]             future::FutureResult(value = ...future.value$value, 
  [14:55:50.245]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:50.245]                   ...future.rng), started = ...future.startTime, 
  [14:55:50.245]                 version = "1.8")
  [14:55:50.245]         }, condition = base::local({
  [14:55:50.245]             c <- base::c
  [14:55:50.245]             inherits <- base::inherits
  [14:55:50.245]             invokeRestart <- base::invokeRestart
  [14:55:50.245]             length <- base::length
  [14:55:50.245]             list <- base::list
  [14:55:50.245]             seq.int <- base::seq.int
  [14:55:50.245]             signalCondition <- base::signalCondition
  [14:55:50.245]             sys.calls <- base::sys.calls
  [14:55:50.245]             `[[` <- base::`[[`
  [14:55:50.245]             `+` <- base::`+`
  [14:55:50.245]             `<<-` <- base::`<<-`
  [14:55:50.245]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:55:50.245]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:55:50.245]                   3L)]
  [14:55:50.245]             }
  [14:55:50.245]             function(cond) {
  [14:55:50.245]                 is_error <- inherits(cond, "error")
  [14:55:50.245]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:55:50.245]                   NULL)
  [14:55:50.245]                 if (is_error) {
  [14:55:50.245]                   sessionInformation <- function() {
  [14:55:50.245]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:55:50.245]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:55:50.245]                       search = base::search(), system = base::Sys.info())
  [14:55:50.245]                   }
  [14:55:50.245]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:50.245]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:55:50.245]                     cond$call), session = sessionInformation(), 
  [14:55:50.245]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:55:50.245]                   signalCondition(cond)
  [14:55:50.245]                 }
  [14:55:50.245]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:55:50.245]                 "immediateCondition"))) {
  [14:55:50.245]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:55:50.245]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:50.245]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:55:50.245]                   if (TRUE && !signal) {
  [14:55:50.245]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:50.245]                     {
  [14:55:50.245]                       inherits <- base::inherits
  [14:55:50.245]                       invokeRestart <- base::invokeRestart
  [14:55:50.245]                       is.null <- base::is.null
  [14:55:50.245]                       muffled <- FALSE
  [14:55:50.245]                       if (inherits(cond, "message")) {
  [14:55:50.245]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:50.245]                         if (muffled) 
  [14:55:50.245]                           invokeRestart("muffleMessage")
  [14:55:50.245]                       }
  [14:55:50.245]                       else if (inherits(cond, "warning")) {
  [14:55:50.245]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:50.245]                         if (muffled) 
  [14:55:50.245]                           invokeRestart("muffleWarning")
  [14:55:50.245]                       }
  [14:55:50.245]                       else if (inherits(cond, "condition")) {
  [14:55:50.245]                         if (!is.null(pattern)) {
  [14:55:50.245]                           computeRestarts <- base::computeRestarts
  [14:55:50.245]                           grepl <- base::grepl
  [14:55:50.245]                           restarts <- computeRestarts(cond)
  [14:55:50.245]                           for (restart in restarts) {
  [14:55:50.245]                             name <- restart$name
  [14:55:50.245]                             if (is.null(name)) 
  [14:55:50.245]                               next
  [14:55:50.245]                             if (!grepl(pattern, name)) 
  [14:55:50.245]                               next
  [14:55:50.245]                             invokeRestart(restart)
  [14:55:50.245]                             muffled <- TRUE
  [14:55:50.245]                             break
  [14:55:50.245]                           }
  [14:55:50.245]                         }
  [14:55:50.245]                       }
  [14:55:50.245]                       invisible(muffled)
  [14:55:50.245]                     }
  [14:55:50.245]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:50.245]                   }
  [14:55:50.245]                 }
  [14:55:50.245]                 else {
  [14:55:50.245]                   if (TRUE) {
  [14:55:50.245]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:50.245]                     {
  [14:55:50.245]                       inherits <- base::inherits
  [14:55:50.245]                       invokeRestart <- base::invokeRestart
  [14:55:50.245]                       is.null <- base::is.null
  [14:55:50.245]                       muffled <- FALSE
  [14:55:50.245]                       if (inherits(cond, "message")) {
  [14:55:50.245]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:50.245]                         if (muffled) 
  [14:55:50.245]                           invokeRestart("muffleMessage")
  [14:55:50.245]                       }
  [14:55:50.245]                       else if (inherits(cond, "warning")) {
  [14:55:50.245]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:50.245]                         if (muffled) 
  [14:55:50.245]                           invokeRestart("muffleWarning")
  [14:55:50.245]                       }
  [14:55:50.245]                       else if (inherits(cond, "condition")) {
  [14:55:50.245]                         if (!is.null(pattern)) {
  [14:55:50.245]                           computeRestarts <- base::computeRestarts
  [14:55:50.245]                           grepl <- base::grepl
  [14:55:50.245]                           restarts <- computeRestarts(cond)
  [14:55:50.245]                           for (restart in restarts) {
  [14:55:50.245]                             name <- restart$name
  [14:55:50.245]                             if (is.null(name)) 
  [14:55:50.245]                               next
  [14:55:50.245]                             if (!grepl(pattern, name)) 
  [14:55:50.245]                               next
  [14:55:50.245]                             invokeRestart(restart)
  [14:55:50.245]                             muffled <- TRUE
  [14:55:50.245]                             break
  [14:55:50.245]                           }
  [14:55:50.245]                         }
  [14:55:50.245]                       }
  [14:55:50.245]                       invisible(muffled)
  [14:55:50.245]                     }
  [14:55:50.245]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:50.245]                   }
  [14:55:50.245]                 }
  [14:55:50.245]             }
  [14:55:50.245]         }))
  [14:55:50.245]     }, error = function(ex) {
  [14:55:50.245]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:55:50.245]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:50.245]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:55:50.245]     }, finally = {
  [14:55:50.245]         {
  [14:55:50.245]             NULL
  [14:55:50.245]             options(future.plan = NULL)
  [14:55:50.245]             if (is.na(NA_character_)) 
  [14:55:50.245]                 Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:50.245]             else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:55:50.245]             future::plan(list(b = function (..., workers = availableWorkers(), 
  [14:55:50.245]                 envir = parent.frame()) 
  [14:55:50.245]             {
  [14:55:50.245]                 future <- ClusterFuture(..., workers = workers, 
  [14:55:50.245]                   envir = envir)
  [14:55:50.245]                 if (!future$lazy) 
  [14:55:50.245]                   future <- run(future)
  [14:55:50.245]                 invisible(future)
  [14:55:50.245]             }), .cleanup = FALSE, .init = FALSE)
  [14:55:50.245]         }
  [14:55:50.245]         base::options(...future.oldOptions)
  [14:55:50.245]     })
  [14:55:50.245]     if (TRUE) {
  [14:55:50.245]         base::sink(type = "output", split = FALSE)
  [14:55:50.245]         if (TRUE) {
  [14:55:50.245]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:55:50.245]         }
  [14:55:50.245]         else {
  [14:55:50.245]             ...future.result["stdout"] <- base::list(NULL)
  [14:55:50.245]         }
  [14:55:50.245]         base::close(...future.stdout)
  [14:55:50.245]         ...future.stdout <- NULL
  [14:55:50.245]     }
  [14:55:50.245]     ...future.result$conditions <- ...future.conditions
  [14:55:50.245]     ...future.result
  [14:55:50.245] }
  [14:55:51.676]  - Condition #161: 'simpleMessage', 'message', 'condition'
  [14:55:50.491] Exporting 3 global objects (14.17 KiB) to cluster node #2 ...
  [14:55:51.676]  - Condition #162: 'simpleMessage', 'message', 'condition'
  [14:55:50.492] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ...
  [14:55:51.676]  - Condition #163: 'simpleMessage', 'message', 'condition'
  [14:55:50.505] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ... DONE
  [14:55:51.677]  - Condition #164: 'simpleMessage', 'message', 'condition'
  [14:55:50.505] Exporting 'a' (56 bytes) to cluster node #2 ...
  [14:55:51.677]  - Condition #165: 'simpleMessage', 'message', 'condition'
  [14:55:50.506] Exporting 'a' (56 bytes) to cluster node #2 ... DONE
  [14:55:51.677]  - Condition #166: 'simpleMessage', 'message', 'condition'
  [14:55:50.507] Exporting 'plan_a' (14.12 KiB) to cluster node #2 ...
  [14:55:51.677]  - Condition #167: 'simpleMessage', 'message', 'condition'
  [14:55:50.508] Exporting 'plan_a' (14.12 KiB) to cluster node #2 ... DONE
  [14:55:51.678]  - Condition #168: 'simpleMessage', 'message', 'condition'
  [14:55:50.508] Exporting 3 global objects (14.17 KiB) to cluster node #2 ... DONE
  [14:55:51.678]  - Condition #169: 'simpleMessage', 'message', 'condition'
  [14:55:50.509] ClusterFuture started
  [14:55:51.681]  - Condition #170: 'simpleMessage', 'message', 'condition'
  [14:55:50.510] - Launch lazy future ... done
  [14:55:51.681]  - Condition #171: 'simpleMessage', 'message', 'condition'
  [14:55:50.510] run() for 'ClusterFuture' ... done
  [14:55:51.681]  - Condition #172: 'simpleMessage', 'message', 'condition'
  [14:55:50.510] Chunk #2 of 2 ... DONE
  [14:55:51.682]  - Condition #173: 'simpleMessage', 'message', 'condition'
  [14:55:50.511] Launching 2 futures (chunks) ... DONE
  [14:55:51.682]  - Condition #174: 'simpleMessage', 'message', 'condition'
  [14:55:50.511] - resolving futures
  [14:55:51.683]  - Condition #175: 'simpleMessage', 'message', 'condition'
  [14:55:50.511]   - gathering results & relaying conditions (except errors)
  [14:55:51.683]  - Condition #176: 'simpleMessage', 'message', 'condition'
  [14:55:50.511] resolve() on list ...
  [14:55:51.689]  - Condition #177: 'simpleMessage', 'message', 'condition'
  [14:55:50.512]  recursive: 0
  [14:55:51.690]  - Condition #178: 'simpleMessage', 'message', 'condition'
  [14:55:50.512]  length: 2
  [14:55:51.690]  - Condition #179: 'simpleMessage', 'message', 'condition'
  [14:55:50.512] 
  [14:55:51.690]  - Condition #180: 'simpleMessage', 'message', 'condition'
  [14:55:50.637] receiveMessageFromWorker() for ClusterFuture ...
  [14:55:51.691]  - Condition #181: 'simpleMessage', 'message', 'condition'
  [14:55:50.637] - Validating connection of ClusterFuture
  [14:55:51.691]  - Condition #182: 'simpleMessage', 'message', 'condition'
  [14:55:50.638] - received message: FutureResult
  [14:55:51.691]  - Condition #183: 'simpleMessage', 'message', 'condition'
  [14:55:50.638] - Received FutureResult
  [14:55:51.692]  - Condition #184: 'simpleMessage', 'message', 'condition'
  [14:55:50.638] - Erased future from FutureRegistry
  [14:55:51.692]  - Condition #185: 'simpleMessage', 'message', 'condition'
  [14:55:50.638] result() for ClusterFuture ...
  [14:55:51.692]  - Condition #186: 'simpleMessage', 'message', 'condition'
  [14:55:50.639] - result already collected: FutureResult
  [14:55:51.692]  - Condition #187: 'simpleMessage', 'message', 'condition'
  [14:55:50.639] result() for ClusterFuture ... done
  [14:55:51.693]  - Condition #188: 'simpleMessage', 'message', 'condition'
  [14:55:50.639] signalConditions() ...
  [14:55:51.693]  - Condition #189: 'simpleMessage', 'message', 'condition'
  [14:55:50.640]  - include = 'immediateCondition'
  [14:55:51.693]  - Condition #190: 'simpleMessage', 'message', 'condition'
  [14:55:50.640]  - exclude = 
  [14:55:51.694]  - Condition #191: 'simpleMessage', 'message', 'condition'
  [14:55:50.640]  - resignal = FALSE
  [14:55:51.694]  - Condition #192: 'simpleMessage', 'message', 'condition'
  [14:55:50.640]  - Number of conditions: 1
  [14:55:51.694]  - Condition #193: 'simpleMessage', 'message', 'condition'
  [14:55:50.641] signalConditions() ... done
  [14:55:51.701]  - Condition #194: 'simpleMessage', 'message', 'condition'
  [14:55:50.641] receiveMessageFromWorker() for ClusterFuture ... done
  [14:55:51.701]  - Condition #195: 'simpleMessage', 'message', 'condition'
  [14:55:50.641] Future #1
  [14:55:51.707]  - Condition #196: 'simpleMessage', 'message', 'condition'
  [14:55:50.642] result() for ClusterFuture ...
  [14:55:51.707]  - Condition #197: 'simpleMessage', 'message', 'condition'
  [14:55:50.642] - result already collected: FutureResult
  [14:55:51.708]  - Condition #198: 'simpleMessage', 'message', 'condition'
  [14:55:50.642] result() for ClusterFuture ... done
  [14:55:51.708]  - Condition #199: 'simpleMessage', 'message', 'condition'
  [14:55:50.642] result() for ClusterFuture ...
  [14:55:51.708]  - Condition #200: 'simpleMessage', 'message', 'condition'
  [14:55:50.643] - result already collected: FutureResult
  [14:55:51.709]  - Condition #201: 'simpleMessage', 'message', 'condition'
  [14:55:50.643] result() for ClusterFuture ... done
  [14:55:51.709]  - Condition #202: 'simpleMessage', 'message', 'condition'
  [14:55:50.643] signalConditions() ...
  [14:55:51.709]  - Condition #203: 'simpleMessage', 'message', 'condition'
  [14:55:50.643]  - include = 'immediateCondition'
  [14:55:51.710]  - Condition #204: 'simpleMessage', 'message', 'condition'
  [14:55:50.644]  - exclude = 
  [14:55:51.710]  - Condition #205: 'simpleMessage', 'message', 'condition'
  [14:55:50.644]  - resignal = FALSE
  [14:55:51.710]  - Condition #206: 'simpleMessage', 'message', 'condition'
  [14:55:50.644]  - Number of conditions: 1
  [14:55:51.710]  - Condition #207: 'simpleMessage', 'message', 'condition'
  [14:55:50.644] signalConditions() ... done
  [14:55:51.711]  - Condition #208: 'simpleMessage', 'message', 'condition'
  [14:55:50.645] signalConditionsASAP(ClusterFuture, pos=1) ...
  [14:55:51.711]  - Condition #209: 'simpleMessage', 'message', 'condition'
  [14:55:50.645] - nx: 2
  [14:55:51.711]  - Condition #210: 'simpleMessage', 'message', 'condition'
  [14:55:50.645] - relay: TRUE
  [14:55:51.712]  - Condition #211: 'simpleMessage', 'message', 'condition'
  [14:55:50.645] - stdout: TRUE
  [14:55:51.712]  - Condition #212: 'simpleMessage', 'message', 'condition'
  [14:55:50.646] - signal: TRUE
  [14:55:51.713]  - Condition #213: 'simpleMessage', 'message', 'condition'
  [14:55:50.646] - resignal: FALSE
  [14:55:51.714]  - Condition #214: 'simpleMessage', 'message', 'condition'
  [14:55:50.646] - force: FALSE
  [14:55:51.714]  - Condition #215: 'simpleMessage', 'message', 'condition'
  [14:55:50.646] - relayed: [n=2] FALSE, FALSE
  [14:55:51.714]  - Condition #216: 'simpleMessage', 'message', 'condition'
  [14:55:50.647] - queued futures: [n=2] FALSE, FALSE
  [14:55:51.715]  - Condition #217: 'simpleMessage', 'message', 'condition'
  [14:55:50.647]  - until=1
  [14:55:51.715]  - Condition #218: 'simpleMessage', 'message', 'condition'
  [14:55:50.647]  - relaying element #1
  [14:55:51.715]  - Condition #219: 'simpleMessage', 'message', 'condition'
  [14:55:50.647] result() for ClusterFuture ...
  [14:55:51.716]  - Condition #220: 'simpleMessage', 'message', 'condition'
  [14:55:50.648] - result already collected: FutureResult
  [14:55:51.716]  - Condition #221: 'simpleMessage', 'message', 'condition'
  [14:55:50.648] result() for ClusterFuture ... done
  [14:55:51.716]  - Condition #222: 'simpleMessage', 'message', 'condition'
  [14:55:50.653] result() for ClusterFuture ...
  [14:55:51.716]  - Condition #223: 'simpleMessage', 'message', 'condition'
  [14:55:50.654] - result already collected: FutureResult
  [14:55:51.722]  - Condition #224: 'simpleMessage', 'message', 'condition'
  [14:55:50.654] result() for ClusterFuture ... done
  [14:55:51.722]  - Condition #225: 'simpleMessage', 'message', 'condition'
  [14:55:50.654] signalConditions() ...
  [14:55:51.722]  - Condition #226: 'simpleMessage', 'message', 'condition'
  [14:55:50.654]  - include = 'immediateCondition'
  [14:55:51.723]  - Condition #227: 'simpleMessage', 'message', 'condition'
  [14:55:50.655]  - exclude = 
  [14:55:51.723]  - Condition #228: 'simpleMessage', 'message', 'condition'
  [14:55:50.655]  - resignal = FALSE
  [14:55:51.723]  - Condition #229: 'simpleMessage', 'message', 'condition'
  [14:55:50.655]  - Number of conditions: 1
  [14:55:51.724]  - Condition #230: 'simpleMessage', 'message', 'condition'
  [14:55:50.655] signalConditions() ... done
  [14:55:51.724]  - Condition #231: 'simpleMessage', 'message', 'condition'
  [14:55:50.656] result() for ClusterFuture ...
  [14:55:51.724]  - Condition #232: 'simpleMessage', 'message', 'condition'
  [14:55:50.656] - result already collected: FutureResult
  [14:55:51.724]  - Condition #233: 'simpleMessage', 'message', 'condition'
  [14:55:50.656] result() for ClusterFuture ... done
  [14:55:51.725]  - Condition #234: 'simpleMessage', 'message', 'condition'
  [14:55:50.657] signalConditions() ...
  [14:55:51.725]  - Condition #235: 'simpleMessage', 'message', 'condition'
  [14:55:50.657]  - include = 'immediateCondition'
  [14:55:51.725]  - Condition #236: 'simpleMessage', 'message', 'condition'
  [14:55:50.657]  - exclude = 
  [14:55:51.726]  - Condition #237: 'simpleMessage', 'message', 'condition'
  [14:55:50.657]  - resignal = FALSE
  [14:55:51.726]  - Condition #238: 'simpleMessage', 'message', 'condition'
  [14:55:50.658]  - Number of conditions: 1
  [14:55:51.726]  - Condition #239: 'simpleMessage', 'message', 'condition'
  [14:55:50.662] signalConditions() ... done
  [14:55:51.727]  - Condition #240: 'simpleMessage', 'message', 'condition'
  [14:55:50.662] result() for ClusterFuture ...
  [14:55:51.727]  - Condition #241: 'simpleMessage', 'message', 'condition'
  [14:55:50.662] - result already collected: FutureResult
  [14:55:51.727]  - Condition #242: 'simpleMessage', 'message', 'condition'
  [14:55:50.662] result() for ClusterFuture ... done
  [14:55:51.734]  - Condition #243: 'simpleMessage', 'message', 'condition'
  [14:55:50.663] signalConditions() ...
  [14:55:51.735]  - Condition #244: 'simpleMessage', 'message', 'condition'
  [14:55:50.663]  - include = 'condition'
  [14:55:51.735]  - Condition #245: 'simpleMessage', 'message', 'condition'
  [14:55:50.663]  - exclude = 'immediateCondition'
  [14:55:51.735]  - Condition #246: 'simpleMessage', 'message', 'condition'
  [14:55:50.663]  - resignal = FALSE
  [14:55:51.736]  - Condition #247: 'simpleMessage', 'message', 'condition'
  [14:55:50.664]  - Number of conditions: 1
  [14:55:51.736]  - Condition #248: 'simpleMessage', 'message', 'condition'
  [14:55:50.664]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:55:51.736]  - Condition #249: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (..., envir = parent.frame())- tweaked: FALSE- call: NULL
  [14:55:51.737]  - Condition #250: 'simpleMessage', 'message', 'condition'
  [14:55:50.688] signalConditions() ... done
  [14:55:51.737]  - Condition #251: 'simpleMessage', 'message', 'condition'
  [14:55:50.689] - relayed: [n=2] TRUE, FALSE
  [14:55:51.737]  - Condition #252: 'simpleMessage', 'message', 'condition'
  [14:55:50.689] - queued futures: [n=2] TRUE, FALSE
  [14:55:51.738]  - Condition #253: 'simpleMessage', 'message', 'condition'
  [14:55:50.689] signalConditionsASAP(ClusterFuture, pos=1) ... done
  [14:55:51.738]  - Condition #254: 'simpleMessage', 'message', 'condition'
  [14:55:50.690]  length: 1 (resolved future 1)
  [14:55:51.738]  - Condition #255: 'simpleMessage', 'message', 'condition'
  [14:55:51.025] receiveMessageFromWorker() for ClusterFuture ...
  [14:55:51.738]  - Condition #256: 'simpleMessage', 'message', 'condition'
  [14:55:51.026] - Validating connection of ClusterFuture
  [14:55:51.739]  - Condition #257: 'simpleMessage', 'message', 'condition'
  [14:55:51.026] - received message: FutureResult
  [14:55:51.739]  - Condition #258: 'simpleMessage', 'message', 'condition'
  [14:55:51.027] - Received FutureResult
  [14:55:51.739]  - Condition #259: 'simpleMessage', 'message', 'condition'
  [14:55:51.027] - Erased future from FutureRegistry
  [14:55:51.740]  - Condition #260: 'simpleMessage', 'message', 'condition'
  [14:55:51.027] result() for ClusterFuture ...
  [14:55:51.747]  - Condition #261: 'simpleMessage', 'message', 'condition'
  [14:55:51.027] - result already collected: FutureResult
  [14:55:51.747]  - Condition #262: 'simpleMessage', 'message', 'condition'
  [14:55:51.028] result() for ClusterFuture ... done
  [14:55:51.748]  - Condition #263: 'simpleMessage', 'message', 'condition'
  [14:55:51.028] signalConditions() ...
  [14:55:51.748]  - Condition #264: 'simpleMessage', 'message', 'condition'
  [14:55:51.028]  - include = 'immediateCondition'
  [14:55:51.748]  - Condition #265: 'simpleMessage', 'message', 'condition'
  [14:55:51.028]  - exclude = 
  [14:55:51.749]  - Condition #266: 'simpleMessage', 'message', 'condition'
  [14:55:51.029]  - resignal = FALSE
  [14:55:51.749]  - Condition #267: 'simpleMessage', 'message', 'condition'
  [14:55:51.029]  - Number of conditions: 2
  [14:55:51.749]  - Condition #268: 'simpleMessage', 'message', 'condition'
  [14:55:51.029] signalConditions() ... done
  [14:55:51.749]  - Condition #269: 'simpleMessage', 'message', 'condition'
  [14:55:51.029] receiveMessageFromWorker() for ClusterFuture ... done
  [14:55:51.750]  - Condition #270: 'simpleMessage', 'message', 'condition'
  [14:55:51.030] Future #2
  [14:55:51.750]  - Condition #271: 'simpleMessage', 'message', 'condition'
  [14:55:51.030] result() for ClusterFuture ...
  [14:55:51.750]  - Condition #272: 'simpleMessage', 'message', 'condition'
  [14:55:51.030] - result already collected: FutureResult
  [14:55:51.751]  - Condition #273: 'simpleMessage', 'message', 'condition'
  [14:55:51.031] result() for ClusterFuture ... done
  [14:55:51.751]  - Condition #274: 'simpleMessage', 'message', 'condition'
  [14:55:51.031] result() for ClusterFuture ...
  [14:55:51.751]  - Condition #275: 'simpleMessage', 'message', 'condition'
  [14:55:51.031] - result already collected: FutureResult
  [14:55:51.752]  - Condition #276: 'simpleMessage', 'message', 'condition'
  [14:55:51.031] result() for ClusterFuture ... done
  [14:55:51.752]  - Condition #277: 'simpleMessage', 'message', 'condition'
  [14:55:51.032] signalConditions() ...
  [14:55:51.763]  - Condition #278: 'simpleMessage', 'message', 'condition'
  [14:55:51.032]  - include = 'immediateCondition'
  [14:55:51.763]  - Condition #279: 'simpleMessage', 'message', 'condition'
  [14:55:51.032]  - exclude = 
  [14:55:51.764]  - Condition #280: 'simpleMessage', 'message', 'condition'
  [14:55:51.032]  - resignal = FALSE
  [14:55:51.764]  - Condition #281: 'simpleMessage', 'message', 'condition'
  [14:55:51.033]  - Number of conditions: 2
  [14:55:51.764]  - Condition #282: 'simpleMessage', 'message', 'condition'
  [14:55:51.033] signalConditions() ... done
  [14:55:51.765]  - Condition #283: 'simpleMessage', 'message', 'condition'
  [14:55:51.033] signalConditionsASAP(ClusterFuture, pos=2) ...
  [14:55:51.765]  - Condition #284: 'simpleMessage', 'message', 'condition'
  [14:55:51.033] - nx: 2
  [14:55:51.765]  - Condition #285: 'simpleMessage', 'message', 'condition'
  [14:55:51.034] - relay: TRUE
  [14:55:51.766]  - Condition #286: 'simpleMessage', 'message', 'condition'
  [14:55:51.034] - stdout: TRUE
  [14:55:51.766]  - Condition #287: 'simpleMessage', 'message', 'condition'
  [14:55:51.034] - signal: TRUE
  [14:55:51.766]  - Condition #288: 'simpleMessage', 'message', 'condition'
  [14:55:51.034] - resignal: FALSE
  [14:55:51.767]  - Condition #289: 'simpleMessage', 'message', 'condition'
  [14:55:51.035] - force: FALSE
  [14:55:51.767]  - Condition #290: 'simpleMessage', 'message', 'condition'
  [14:55:51.035] - relayed: [n=2] TRUE, FALSE
  [14:55:51.767]  - Condition #291: 'simpleMessage', 'message', 'condition'
  [14:55:51.035] - queued futures: [n=2] TRUE, FALSE
  [14:55:51.768]  - Condition #292: 'simpleMessage', 'message', 'condition'
  [14:55:51.036]  - until=2
  [14:55:51.768]  - Condition #293: 'simpleMessage', 'message', 'condition'
  [14:55:51.036]  - relaying element #2
  [14:55:51.768]  - Condition #294: 'simpleMessage', 'message', 'condition'
  [14:55:51.036] result() for ClusterFuture ...
  [14:55:51.769]  - Condition #295: 'simpleMessage', 'message', 'condition'
  [14:55:51.041] - result already collected: FutureResult
  [14:55:51.769]  - Condition #296: 'simpleMessage', 'message', 'condition'
  [14:55:51.041] result() for ClusterFuture ... done
  [14:55:51.769]  - Condition #297: 'simpleMessage', 'message', 'condition'
  [14:55:51.041] result() for ClusterFuture ...
  [14:55:51.770]  - Condition #298: 'simpleMessage', 'message', 'condition'
  [14:55:51.041] - result already collected: FutureResult
  [14:55:51.770]  - Condition #299: 'simpleMessage', 'message', 'condition'
  [14:55:51.042] result() for ClusterFuture ... done
  [14:55:51.770]  - Condition #300: 'simpleMessage', 'message', 'condition'
  [14:55:51.042] signalConditions() ...
  [14:55:51.771]  - Condition #301: 'simpleMessage', 'message', 'condition'
  [14:55:51.042]  - include = 'immediateCondition'
  [14:55:51.771]  - Condition #302: 'simpleMessage', 'message', 'condition'
  [14:55:51.042]  - exclude = 
  [14:55:51.771]  - Condition #303: 'simpleMessage', 'message', 'condition'
  [14:55:51.042]  - resignal = FALSE
  [14:55:51.772]  - Condition #304: 'simpleMessage', 'message', 'condition'
  [14:55:51.043]  - Number of conditions: 2
  [14:55:51.772]  - Condition #305: 'simpleMessage', 'message', 'condition'
  [14:55:51.043] signalConditions() ... done
  [14:55:51.778]  - Condition #306: 'simpleMessage', 'message', 'condition'
  [14:55:51.043] result() for ClusterFuture ...
  [14:55:51.779]  - Condition #307: 'simpleMessage', 'message', 'condition'
  [14:55:51.043] - result already collected: FutureResult
  [14:55:51.779]  - Condition #308: 'simpleMessage', 'message', 'condition'
  [14:55:51.044] result() for ClusterFuture ... done
  [14:55:51.779]  - Condition #309: 'simpleMessage', 'message', 'condition'
  [14:55:51.044] signalConditions() ...
  [14:55:51.780]  - Condition #310: 'simpleMessage', 'message', 'condition'
  [14:55:51.044]  - include = 'immediateCondition'
  [14:55:51.780]  - Condition #311: 'simpleMessage', 'message', 'condition'
  [14:55:51.044]  - exclude = 
  [14:55:51.780]  - Condition #312: 'simpleMessage', 'message', 'condition'
  [14:55:51.044]  - resignal = FALSE
  [14:55:51.781]  - Condition #313: 'simpleMessage', 'message', 'condition'
  [14:55:51.045]  - Number of conditions: 2
  [14:55:51.781]  - Condition #314: 'simpleMessage', 'message', 'condition'
  [14:55:51.045] signalConditions() ... done
  [14:55:51.781]  - Condition #315: 'simpleMessage', 'message', 'condition'
  [14:55:51.045] result() for ClusterFuture ...
  [14:55:51.782]  - Condition #316: 'simpleMessage', 'message', 'condition'
  [14:55:51.046] - result already collected: FutureResult
  [14:55:51.782]  - Condition #317: 'simpleMessage', 'message', 'condition'
  [14:55:51.046] result() for ClusterFuture ... done
  [14:55:51.782]  - Condition #318: 'simpleMessage', 'message', 'condition'
  [14:55:51.046] signalConditions() ...
  [14:55:51.783]  - Condition #319: 'simpleMessage', 'message', 'condition'
  [14:55:51.046]  - include = 'condition'
  [14:55:51.783]  - Condition #320: 'simpleMessage', 'message', 'condition'
  [14:55:51.047]  - exclude = 'immediateCondition'
  [14:55:51.783]  - Condition #321: 'simpleMessage', 'message', 'condition'
  [14:55:51.047]  - resignal = FALSE
  [14:55:51.783]  - Condition #322: 'simpleMessage', 'message', 'condition'
  [14:55:51.047]  - Number of conditions: 2
  [14:55:51.784]  - Condition #323: 'simpleMessage', 'message', 'condition'
  [14:55:51.047]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:55:51.784]  - Condition #324: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (..., envir = parent.frame())- tweaked: FALSE- call: NULL
  [14:55:51.784]  - Condition #325: 'simpleMessage', 'message', 'condition'
  [14:55:51.048]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:55:51.785]  - Condition #326: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (..., envir = parent.frame())- tweaked: FALSE- call: NULL
  [14:55:51.785]  - Condition #327: 'simpleMessage', 'message', 'condition'
  [14:55:51.048] signalConditions() ... done
  [14:55:51.786]  - Condition #328: 'simpleMessage', 'message', 'condition'
  [14:55:51.048] - relayed: [n=2] TRUE, TRUE
  [14:55:51.786]  - Condition #329: 'simpleMessage', 'message', 'condition'
  [14:55:51.049] - queued futures: [n=2] TRUE, TRUE
  [14:55:51.786]  - Condition #330: 'simpleMessage', 'message', 'condition'
  [14:55:51.049] signalConditionsASAP(ClusterFuture, pos=2) ... done
  [14:55:51.786]  - Condition #331: 'simpleMessage', 'message', 'condition'
  [14:55:51.049]  length: 0 (resolved future 2)
  [14:55:51.787]  - Condition #332: 'simpleMessage', 'message', 'condition'
  [14:55:51.050] Relaying remaining futures
  [14:55:51.787]  - Condition #333: 'simpleMessage', 'message', 'condition'
  [14:55:51.050] signalConditionsASAP(NULL, pos=0) ...
  [14:55:51.787]  - Condition #334: 'simpleMessage', 'message', 'condition'
  [14:55:51.050] - nx: 2
  [14:55:51.788]  - Condition #335: 'simpleMessage', 'message', 'condition'
  [14:55:51.050] - relay: TRUE
  [14:55:51.796]  - Condition #336: 'simpleMessage', 'message', 'condition'
  [14:55:51.051] - stdout: TRUE
  [14:55:51.797]  - Condition #337: 'simpleMessage', 'message', 'condition'
  [14:55:51.051] - signal: TRUE
  [14:55:51.797]  - Condition #338: 'simpleMessage', 'message', 'condition'
  [14:55:51.051] - resignal: FALSE
  [14:55:51.797]  - Condition #339: 'simpleMessage', 'message', 'condition'
  [14:55:51.051] - force: FALSE
  [14:55:51.798]  - Condition #340: 'simpleMessage', 'message', 'condition'
  [14:55:51.051] - relayed: [n=2] TRUE, TRUE
  [14:55:51.798]  - Condition #341: 'simpleMessage', 'message', 'condition'
  [14:55:51.052] - queued futures: [n=2] TRUE, TRUE
  [14:55:51.798]  - Condition #342: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:55:51.799]  - Condition #343: 'simpleMessage', 'message', 'condition'
  [14:55:51.066] - relayed: [n=2] TRUE, TRUE
  [14:55:51.799]  - Condition #344: 'simpleMessage', 'message', 'condition'
  [14:55:51.066] - queued futures: [n=2] TRUE, TRUE
  [14:55:51.799]  - Condition #345: 'simpleMessage', 'message', 'condition'
  [14:55:51.066] signalConditionsASAP(NULL, pos=0) ... done
  [14:55:51.800]  - Condition #346: 'simpleMessage', 'message', 'condition'
  [14:55:51.067] resolve() on list ... DONE
  [14:55:51.800]  - Condition #347: 'simpleMessage', 'message', 'condition'
  [14:55:51.067] - collecting values of futures
  [14:55:51.800]  - Condition #348: 'simpleMessage', 'message', 'condition'
  [14:55:51.067] result() for ClusterFuture ...
  [14:55:51.801]  - Condition #349: 'simpleMessage', 'message', 'condition'
  [14:55:51.067] - result already collected: FutureResult
  [14:55:51.801]  - Condition #350: 'simpleMessage', 'message', 'condition'
  [14:55:51.068] result() for ClusterFuture ... done
  [14:55:51.801]  - Condition #351: 'simpleMessage', 'message', 'condition'
  [14:55:51.068] result() for ClusterFuture ...
  [14:55:51.802]  - Condition #352: 'simpleMessage', 'message', 'condition'
  [14:55:51.068] - result already collected: FutureResult
  [14:55:51.813]  - Condition #353: 'simpleMessage', 'message', 'condition'
  [14:55:51.069] result() for ClusterFuture ... done
  [14:55:51.813]  - Condition #354: 'simpleMessage', 'message', 'condition'
  [14:55:51.069] signalConditions() ...
  [14:55:51.813]  - Condition #355: 'simpleMessage', 'message', 'condition'
  [14:55:51.069]  - include = 'immediateCondition'
  [14:55:51.814]  - Condition #356: 'simpleMessage', 'message', 'condition'
  [14:55:51.069]  - exclude = 
  [14:55:51.814]  - Condition #357: 'simpleMessage', 'message', 'condition'
  [14:55:51.070]  - resignal = FALSE
  [14:55:51.814]  - Condition #358: 'simpleMessage', 'message', 'condition'
  [14:55:51.070]  - Number of conditions: 1
  [14:55:51.815]  - Condition #359: 'simpleMessage', 'message', 'condition'
  [14:55:51.070] signalConditions() ... done
  [14:55:51.815]  - Condition #360: 'simpleMessage', 'message', 'condition'
  [14:55:51.070] result() for ClusterFuture ...
  [14:55:51.815]  - Condition #361: 'simpleMessage', 'message', 'condition'
  [14:55:51.071] - result already collected: FutureResult
  [14:55:51.816]  - Condition #362: 'simpleMessage', 'message', 'condition'
  [14:55:51.071] result() for ClusterFuture ... done
  [14:55:51.816]  - Condition #363: 'simpleMessage', 'message', 'condition'
  [14:55:51.071] result() for ClusterFuture ...
  [14:55:51.816]  - Condition #364: 'simpleMessage', 'message', 'condition'
  [14:55:51.071] - result already collected: FutureResult
  [14:55:51.817]  - Condition #365: 'simpleMessage', 'message', 'condition'
  [14:55:51.072] result() for ClusterFuture ... done
  [14:55:51.817]  - Condition #366: 'simpleMessage', 'message', 'condition'
  [14:55:51.072] signalConditions() ...
  [14:55:51.817]  - Condition #367: 'simpleMessage', 'message', 'condition'
  [14:55:51.072]  - include = 'immediateCondition'
  [14:55:51.818]  - Condition #368: 'simpleMessage', 'message', 'condition'
  [14:55:51.073]  - exclude = 
  [14:55:51.818]  - Condition #369: 'simpleMessage', 'message', 'condition'
  [14:55:51.073]  - resignal = FALSE
  [14:55:51.818]  - Condition #370: 'simpleMessage', 'message', 'condition'
  [14:55:51.073]  - Number of conditions: 2
  [14:55:51.819]  - Condition #371: 'simpleMessage', 'message', 'condition'
  [14:55:51.073] signalConditions() ... done
  [14:55:51.819]  - Condition #372: 'simpleMessage', 'message', 'condition'
  [14:55:51.074] - accumulating results
  [14:55:51.819]  - Condition #373: 'simpleMessage', 'message', 'condition'
  [14:55:51.075] - processing errors (handler = 'stop')
  [14:55:51.820]  - Condition #374: 'simpleMessage', 'message', 'condition'
  [14:55:51.075] - extracting results
  [14:55:51.820]  - Condition #375: 'simpleMessage', 'message', 'condition'
  [14:55:51.075] doFuture() ... DONE
  [14:55:51.820]  - Condition #376: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:55:51.821]  - Condition #377: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:55:51.821]  - Condition #378: 'simpleMessage', 'message', 'condition'
  [14:55:51.095] doFuture() ...
  [14:55:51.821]  - Condition #379: 'simpleMessage', 'message', 'condition'
  [14:55:51.096] - dummy globals (as locals): [1] 'b'
  [14:55:51.822]  - Condition #380: 'simpleMessage', 'message', 'condition'
  [14:55:51.097] - R expression:
  [14:55:51.822]  - Condition #381: 'simpleMessage', 'message', 'condition'
  [14:55:51.097] {
  [14:55:51.097]     doFuture::registerDoFuture()
  [14:55:51.097]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:51.097]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:51.097]         b <- NULL
  [14:55:51.097]         ...future.env <- environment()
  [14:55:51.097]         local({
  [14:55:51.097]             for (name in names(...future.x_jj)) {
  [14:55:51.097]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:51.097]                   inherits = FALSE)
  [14:55:51.097]             }
  [14:55:51.097]         })
  [14:55:51.097]         tryCatch({
  [14:55:51.097]             plan_list <- future::plan("next")
  [14:55:51.097]             message(capture.output(print(plan_list)))
  [14:55:51.097]             stopifnot(inherits(plan_list, "future"))
  [14:55:51.097]             default <- getOption("future.plan", "sequential")
  [14:55:51.097]             if (is.function(default)) 
  [14:55:51.097]                 default <- class(default)
  [14:55:51.097]             stopifnot(inherits(plan_list, default))
  [14:55:51.097]             plan_b <- future::plan("list")
  [14:55:51.097]             str(plan_b)
  [14:55:51.097]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:55:51.097]                 default))
  [14:55:51.097]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:51.097]         }, error = identity)
  [14:55:51.097]     })
  [14:55:51.097] }
  [14:55:51.822]  - Condition #382: 'simpleMessage', 'message', 'condition'
  [14:55:51.098] - identifying globals and packages ...
  [14:55:51.823]  - Condition #383: 'simpleMessage', 'message', 'condition'
  [14:55:51.098] getGlobalsAndPackages() ...
  [14:55:51.823]  - Condition #384: 'simpleMessage', 'message', 'condition'
  [14:55:51.098] Retrieving 'add' globals ...
  [14:55:51.823]  - Condition #385: 'simpleMessage', 'message', 'condition'
  [14:55:51.099] - 'add' globals retrieved: [2] 'a', 'plan_a'
  [14:55:51.824]  - Condition #386: 'simpleMessage', 'message', 'condition'
  [14:55:51.099] Retrieving 'add' globals ... DONE
  [14:55:51.824]  - Condition #387: 'simpleMessage', 'message', 'condition'
  [14:55:51.099] Searching for globals...
  [14:55:51.824]  - Condition #388: 'simpleMessage', 'message', 'condition'
  [14:55:51.122] - 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:55:51.825]  - Condition #389: 'simpleMessage', 'message', 'condition'
  [14:55:51.122] Searching for globals ... DONE
  [14:55:51.825]  - Condition #390: 'simpleMessage', 'message', 'condition'
  [14:55:51.123] Resolving globals: FALSE
  [14:55:51.825]  - Condition #391: 'simpleMessage', 'message', 'condition'
  [14:55:51.125] The total size of the 3 globals is 14.17 KiB (14512 bytes)
  [14:55:51.826]  - Condition #392: 'simpleMessage', 'message', 'condition'
  [14:55:51.126] The total size of the 3 globals exported for future expression ('{; doFuture::registerDoFuture(); lapply(seq_along(...future.x_ii), FUN = function(jj) {; ...future.x_jj <- ...future.x_ii[[jj]]; b <- NULL; ...future.env <- environment(); ...; }, error = identity); }); }') is 14.17 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: 'plan_a' (14.12 KiB of class 'list'), 'a' (56 bytes of class 'numeric') and '...future.x_ii' (0 bytes of class 'NULL')
  [14:55:51.826]  - Condition #393: 'simpleMessage', 'message', 'condition'
  [14:55:51.126] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:51.826]  - Condition #394: 'simpleMessage', 'message', 'condition'
  [14:55:51.127] - packages: [1] 'utils'
  [14:55:51.827]  - Condition #395: 'simpleMessage', 'message', 'condition'
  [14:55:51.127] getGlobalsAndPackages() ... DONE
  [14:55:51.827]  - Condition #396: 'simpleMessage', 'message', 'condition'
  [14:55:51.127] List of 3
  [14:55:51.127]  $ ...future.x_ii: NULL
  [14:55:51.127]  $ a             : int 2
  [14:55:51.127]  $ plan_a        :List of 1
  [14:55:51.127]   ..$ b:function (..., workers = availableWorkers(), envir = parent.frame())  
  [14:55:51.127]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [14:55:51.127]   .. ..- attr(*, "init")= logi TRUE
  [14:55:51.127]   .. ..- attr(*, "tweakable")= language c(makeClusterPSOCK_args(), "persistent")
  [14:55:51.127]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:51.127]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:51.127]  - attr(*, "where")=List of 3
  [14:55:51.127]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:51.127]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:51.127]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:51.127]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:51.127]  - attr(*, "resolved")= logi FALSE
  [14:55:51.127]  - attr(*, "total_size")= num 14512
  [14:55:51.838]  - Condition #397: 'simpleMessage', 'message', 'condition'
  [14:55:51.139]   - R expression:
  [14:55:51.838]  - Condition #398: 'simpleMessage', 'message', 'condition'
  [14:55:51.139] {
  [14:55:51.139]     doFuture::registerDoFuture()
  [14:55:51.139]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:51.139]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:51.139]         b <- NULL
  [14:55:51.139]         ...future.env <- environment()
  [14:55:51.139]         local({
  [14:55:51.139]             for (name in names(...future.x_jj)) {
  [14:55:51.139]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:51.139]                   inherits = FALSE)
  [14:55:51.139]             }
  [14:55:51.139]         })
  [14:55:51.139]         tryCatch({
  [14:55:51.139]             plan_list <- future::plan("next")
  [14:55:51.139]             message(capture.output(print(plan_list)))
  [14:55:51.139]             stopifnot(inherits(plan_list, "future"))
  [14:55:51.139]             default <- getOption("future.plan", "sequential")
  [14:55:51.139]             if (is.function(default)) 
  [14:55:51.139]                 default <- class(default)
  [14:55:51.139]             stopifnot(inherits(plan_list, default))
  [14:55:51.139]             plan_b <- future::plan("list")
  [14:55:51.139]             str(plan_b)
  [14:55:51.139]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:55:51.139]                 default))
  [14:55:51.139]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:51.139]         }, error = identity)
  [14:55:51.139]     })
  [14:55:51.139] }
  [14:55:51.838]  - Condition #399: 'simpleMessage', 'message', 'condition'
  [14:55:51.140]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:51.839]  - Condition #400: 'simpleMessage', 'message', 'condition'
  [14:55:51.140] List of 3
  [14:55:51.140]  $ ...future.x_ii: NULL
  [14:55:51.140]  $ a             : int 2
  [14:55:51.140]  $ plan_a        :List of 1
  [14:55:51.140]   ..$ b:function (..., workers = availableWorkers(), envir = parent.frame())  
  [14:55:51.140]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [14:55:51.140]   .. ..- attr(*, "init")= logi TRUE
  [14:55:51.140]   .. ..- attr(*, "tweakable")= language c(makeClusterPSOCK_args(), "persistent")
  [14:55:51.140]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:51.140]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:51.140]  - attr(*, "where")=List of 3
  [14:55:51.140]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:51.140]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:51.140]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:51.140]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:51.140]  - attr(*, "resolved")= logi FALSE
  [14:55:51.140]  - attr(*, "total_size")= num 14512
  [14:55:51.839]  - Condition #401: 'simpleMessage', 'message', 'condition'
  [14:55:51.150]   - packages: [2] 'doFuture', 'utils'
  [14:55:51.839]  - Condition #402: 'simpleMessage', 'message', 'condition'
  [14:55:51.151] - identifying globals and packages ... DONE
  [14:55:51.840]  - Condition #403: 'simpleMessage', 'message', 'condition'
  [14:55:51.154] Number of chunks: 2
  [14:55:51.840]  - Condition #404: 'simpleMessage', 'message', 'condition'
  [14:55:51.155] Number of futures (= number of chunks): 2
  [14:55:51.840]  - Condition #405: 'simpleMessage', 'message', 'condition'
  [14:55:51.155] Launching 2 futures (chunks) ...
  [14:55:51.841]  - Condition #406: 'simpleMessage', 'message', 'condition'
  [14:55:51.155] Chunk #1 of 2 ...
  [14:55:51.841]  - Condition #407: 'simpleMessage', 'message', 'condition'
  [14:55:51.155]  - Finding globals in 'args_list' chunk #1 ...
  [14:55:51.841]  - Condition #408: 'simpleMessage', 'message', 'condition'
  [14:55:51.156] getGlobalsAndPackages() ...
  [14:55:51.849]  - Condition #409: 'simpleMessage', 'message', 'condition'
  [14:55:51.156] Searching for globals...
  [14:55:51.849]  - Condition #410: 'simpleMessage', 'message', 'condition'
  [14:55:51.157] 
  [14:55:51.857]  - Condition #411: 'simpleMessage', 'message', 'condition'
  [14:55:51.157] Searching for globals ... DONE
  [14:55:51.857]  - Condition #412: 'simpleMessage', 'message', 'condition'
  [14:55:51.157] - globals: [0] <none>
  [14:55:51.857]  - Condition #413: 'simpleMessage', 'message', 'condition'
  [14:55:51.157] getGlobalsAndPackages() ... DONE
  [14:55:51.858]  - Condition #414: 'simpleMessage', 'message', 'condition'
  [14:55:51.158] 
  [14:55:51.858]  - Condition #415: 'simpleMessage', 'message', 'condition'
  [14:55:51.158] 
  [14:55:51.858]  - Condition #416: 'simpleMessage', 'message', 'condition'
  [14:55:51.158]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:55:51.859]  - Condition #417: 'simpleMessage', 'message', 'condition'
  [14:55:51.158] getGlobalsAndPackages() ...
  [14:55:51.859]  - Condition #418: 'simpleMessage', 'message', 'condition'
  [14:55:51.159] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:51.859]  - Condition #419: 'simpleMessage', 'message', 'condition'
  [14:55:51.159] Resolving globals: FALSE
  [14:55:51.860]  - Condition #420: 'simpleMessage', 'message', 'condition'
  [14:55:51.160] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:51.860]  - Condition #421: 'simpleMessage', 'message', 'condition'
  [14:55:51.160] 
  [14:55:51.860]  - Condition #422: 'simpleMessage', 'message', 'condition'
  [14:55:51.160] getGlobalsAndPackages() ... DONE
  [14:55:51.861]  - Condition #423: 'simpleMessage', 'message', 'condition'
  [14:55:51.161] run() for 'Future' ...
  [14:55:51.861]  - Condition #424: 'simpleMessage', 'message', 'condition'
  [14:55:51.161] - state: 'created'
  [14:55:51.861]  - Condition #425: 'simpleMessage', 'message', 'condition'
  [14:55:51.161] - Future backend: 'FutureStrategy', 'cluster', 'multiprocess', 'future', 'function'
  [14:55:51.862]  - Condition #426: 'simpleMessage', 'message', 'condition'
  [14:55:51.165] - Future class: 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
  [14:55:51.862]  - Condition #427: 'simpleMessage', 'message', 'condition'
  [14:55:51.166] - Copy elements of temporary 'ClusterFuture' to final 'Future' object ...
  [14:55:51.862]  - Condition #428: 'simpleMessage', 'message', 'condition'
  [14:55:51.166]   - Field: 'node'
  [14:55:51.863]  - Condition #429: 'simpleMessage', 'message', 'condition'
  [14:55:51.166]   - Field: 'label'
  [14:55:51.863]  - Condition #430: 'simpleMessage', 'message', 'condition'
  [14:55:51.167]   - Field: 'local'
  [14:55:51.863]  - Condition #431: 'simpleMessage', 'message', 'condition'
  [14:55:51.167]   - Field: 'owner'
  [14:55:51.863]  - Condition #432: 'simpleMessage', 'message', 'condition'
  [14:55:51.167]   - Field: 'envir'
  [14:55:51.864]  - Condition #433: 'simpleMessage', 'message', 'condition'
  [14:55:51.167]   - Field: 'workers'
  [14:55:51.864]  - Condition #434: 'simpleMessage', 'message', 'condition'
  [14:55:51.168]   - Field: 'packages'
  [14:55:51.864]  - Condition #435: 'simpleMessage', 'message', 'condition'
  [14:55:51.168]   - Field: 'gc'
  [14:55:51.865]  - Condition #436: 'simpleMessage', 'message', 'condition'
  [14:55:51.168]   - Field: 'conditions'
  [14:55:51.865]  - Condition #437: 'simpleMessage', 'message', 'condition'
  [14:55:51.170]   - Field: 'persistent'
  [14:55:51.865]  - Condition #438: 'simpleMessage', 'message', 'condition'
  [14:55:51.170]   - Field: 'expr'
  [14:55:51.866]  - Condition #439: 'simpleMessage', 'message', 'condition'
  [14:55:51.171]   - Field: 'uuid'
  [14:55:51.866]  - Condition #440: 'simpleMessage', 'message', 'condition'
  [14:55:51.171]   - Field: 'seed'
  [14:55:51.866]  - Condition #441: 'simpleMessage', 'message', 'condition'
  [14:55:51.171]   - Field: 'version'
  [14:55:51.867]  - Condition #442: 'simpleMessage', 'message', 'condition'
  [14:55:51.171]   - Field: 'result'
  [14:55:51.867]  - Condition #443: 'simpleMessage', 'message', 'condition'
  [14:55:51.172]   - Field: 'asynchronous'
  [14:55:51.867]  - Condition #444: 'simpleMessage', 'message', 'condition'
  [14:55:51.172]   - Field: 'calls'
  [14:55:51.868]  - Condition #445: 'simpleMessage', 'message', 'condition'
  [14:55:51.172]   - Field: 'globals'
  [14:55:51.868]  - Condition #446: 'simpleMessage', 'message', 'condition'
  [14:55:51.172]   - Field: 'stdout'
  [14:55:51.874]  - Condition #447: 'simpleMessage', 'message', 'condition'
  [14:55:51.173]   - Field: 'earlySignal'
  [14:55:51.874]  - Condition #448: 'simpleMessage', 'message', 'condition'
  [14:55:51.173]   - Field: 'lazy'
  [14:55:51.875]  - Condition #449: 'simpleMessage', 'message', 'condition'
  [14:55:51.173]   - Field: 'state'
  [14:55:51.875]  - Condition #450: 'simpleMessage', 'message', 'condition'
  [14:55:51.173] - Copy elements of temporary 'ClusterFuture' to final 'Future' object ... done
  [14:55:51.875]  - Condition #451: 'simpleMessage', 'message', 'condition'
  [14:55:51.174] - Launch lazy future ...
  [14:55:51.876]  - Condition #452: 'simpleMessage', 'message', 'condition'
  [14:55:51.174] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:55:51.876]  - Condition #453: 'simpleMessage', 'message', 'condition'
  [14:55:51.175] Packages needed by future strategies (n = 0): <none>
  [14:55:51.876]  - Condition #454: 'simpleMessage', 'message', 'condition'
  [14:55:51.176] {
  [14:55:51.176]     {
  [14:55:51.176]         ...future.startTime <- base::Sys.time()
  [14:55:51.176]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:55:51.176]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:55:51.176]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:55:51.176]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:55:51.176]             future.resolve.recursive = NULL, future.rng.onMisuse = NULL, 
  [14:55:51.176]             future.rng.onMisuse.keepFuture = NULL, future.stdout.windows.reencode = NULL, 
  [14:55:51.176]             width = 80L)
  [14:55:51.176]         {
  [14:55:51.176]             {
  [14:55:51.176]                 {
  [14:55:51.176]                   base::local({
  [14:55:51.176]                     has_future <- base::requireNamespace("future", 
  [14:55:51.176]                       quietly = TRUE)
  [14:55:51.176]                     if (has_future) {
  [14:55:51.176]                       ns <- base::getNamespace("future")
  [14:55:51.176]                       version <- ns[[".package"]][["version"]]
  [14:55:51.176]                       if (is.null(version)) 
  [14:55:51.176]                         version <- utils::packageVersion("future")
  [14:55:51.176]                     }
  [14:55:51.176]                     else {
  [14:55:51.176]                       version <- NULL
  [14:55:51.176]                     }
  [14:55:51.176]                     if (!has_future || version < "1.8.0") {
  [14:55:51.176]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:55:51.176]                         "", base::R.version$version.string), 
  [14:55:51.176]                         platform = base::sprintf("%s (%s-bit)", 
  [14:55:51.176]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:55:51.176]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:55:51.176]                           "release", "version")], collapse = " "), 
  [14:55:51.176]                         hostname = base::Sys.info()[["nodename"]])
  [14:55:51.176]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:55:51.176]                         info)
  [14:55:51.176]                       info <- base::paste(info, collapse = "; ")
  [14:55:51.176]                       if (!has_future) {
  [14:55:51.176]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:55:51.176]                           info)
  [14:55:51.176]                       }
  [14:55:51.176]                       else {
  [14:55:51.176]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:55:51.176]                           info, version)
  [14:55:51.176]                       }
  [14:55:51.176]                       base::stop(msg)
  [14:55:51.176]                     }
  [14:55:51.176]                   })
  [14:55:51.176]                 }
  [14:55:51.176]                 base::local({
  [14:55:51.176]                   for (pkg in c("doFuture", "utils")) {
  [14:55:51.176]                     base::loadNamespace(pkg)
  [14:55:51.176]                     base::library(pkg, character.only = TRUE)
  [14:55:51.176]                   }
  [14:55:51.176]                 })
  [14:55:51.176]             }
  [14:55:51.176]             options(future.plan = NULL)
  [14:55:51.176]             Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:51.176]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:55:51.176]         }
  [14:55:51.176]     }
  [14:55:51.176]     if (FALSE) {
  [14:55:51.176]     }
  [14:55:51.176]     else {
  [14:55:51.176]         if (TRUE) {
  [14:55:51.176]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:55:51.176]                 open = "w")
  [14:55:51.176]         }
  [14:55:51.176]         else {
  [14:55:51.176]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:55:51.176]                 windows = "NUL", "/dev/null"), open = "w")
  [14:55:51.176]         }
  [14:55:51.176]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:55:51.176]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:55:51.176]             base::sink(type = "output", split = FALSE)
  [14:55:51.176]             base::close(...future.stdout)
  [14:55:51.176]         }, add = TRUE)
  [14:55:51.176]     }
  [14:55:51.176]     ...future.frame <- base::sys.nframe()
  [14:55:51.176]     ...future.conditions <- base::list()
  [14:55:51.176]     ...future.rng <- base::globalenv()$.Random.seed
  [14:55:51.176]     ...future.result <- base::tryCatch({
  [14:55:51.176]         base::withCallingHandlers({
  [14:55:51.176]             ...future.value <- base::withVisible(base::local({
  [14:55:51.176]                 ...future.sendCondition <- local({
  [14:55:51.176]                   sendCondition <- NULL
  [14:55:51.176]                   function(frame = 1L) {
  [14:55:51.176]                     if (is.function(sendCondition)) 
  [14:55:51.176]                       return(sendCondition)
  [14:55:51.176]                     ns <- getNamespace("parallel")
  [14:55:51.176]                     if (exists("sendData", mode = "function", 
  [14:55:51.176]                       envir = ns)) {
  [14:55:51.176]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:55:51.176]                         envir = ns)
  [14:55:51.176]                       envir <- sys.frame(frame)
  [14:55:51.176]                       master <- NULL
  [14:55:51.176]                       while (!identical(envir, .GlobalEnv) && 
  [14:55:51.176]                         !identical(envir, emptyenv())) {
  [14:55:51.176]                         if (exists("master", mode = "list", envir = envir, 
  [14:55:51.176]                           inherits = FALSE)) {
  [14:55:51.176]                           master <- get("master", mode = "list", 
  [14:55:51.176]                             envir = envir, inherits = FALSE)
  [14:55:51.176]                           if (inherits(master, c("SOCKnode", 
  [14:55:51.176]                             "SOCK0node"))) {
  [14:55:51.176]                             sendCondition <<- function(cond) {
  [14:55:51.176]                               data <- list(type = "VALUE", value = cond, 
  [14:55:51.176]                                 success = TRUE)
  [14:55:51.176]                               parallel_sendData(master, data)
  [14:55:51.176]                             }
  [14:55:51.176]                             return(sendCondition)
  [14:55:51.176]                           }
  [14:55:51.176]                         }
  [14:55:51.176]                         frame <- frame + 1L
  [14:55:51.176]                         envir <- sys.frame(frame)
  [14:55:51.176]                       }
  [14:55:51.176]                     }
  [14:55:51.176]                     sendCondition <<- function(cond) NULL
  [14:55:51.176]                   }
  [14:55:51.176]                 })
  [14:55:51.176]                 withCallingHandlers({
  [14:55:51.176]                   {
  [14:55:51.176]                     doFuture::registerDoFuture()
  [14:55:51.176]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:51.176]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:51.176]                       b <- NULL
  [14:55:51.176]                       ...future.env <- environment()
  [14:55:51.176]                       local({
  [14:55:51.176]                         for (name in names(...future.x_jj)) {
  [14:55:51.176]                           assign(name, ...future.x_jj[[name]], 
  [14:55:51.176]                             envir = ...future.env, inherits = FALSE)
  [14:55:51.176]                         }
  [14:55:51.176]                       })
  [14:55:51.176]                       tryCatch({
  [14:55:51.176]                         plan_list <- future::plan("next")
  [14:55:51.176]                         message(capture.output(print(plan_list)))
  [14:55:51.176]                         stopifnot(inherits(plan_list, "future"))
  [14:55:51.176]                         default <- getOption("future.plan", "sequential")
  [14:55:51.176]                         if (is.function(default)) 
  [14:55:51.176]                           default <- class(default)
  [14:55:51.176]                         stopifnot(inherits(plan_list, default))
  [14:55:51.176]                         plan_b <- future::plan("list")
  [14:55:51.176]                         str(plan_b)
  [14:55:51.176]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:51.176]                           inherits(plan_b[[1]], default))
  [14:55:51.176]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:51.176]                       }, error = identity)
  [14:55:51.176]                     })
  [14:55:51.176]                   }
  [14:55:51.176]                 }, immediateCondition = function(cond) {
  [14:55:51.176]                   sendCondition <- ...future.sendCondition()
  [14:55:51.176]                   sendCondition(cond)
  [14:55:51.176]                   muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:51.176]                   {
  [14:55:51.176]                     inherits <- base::inherits
  [14:55:51.176]                     invokeRestart <- base::invokeRestart
  [14:55:51.176]                     is.null <- base::is.null
  [14:55:51.176]                     muffled <- FALSE
  [14:55:51.176]                     if (inherits(cond, "message")) {
  [14:55:51.176]                       muffled <- grepl(pattern, "muffleMessage")
  [14:55:51.176]                       if (muffled) 
  [14:55:51.176]                         invokeRestart("muffleMessage")
  [14:55:51.176]                     }
  [14:55:51.176]                     else if (inherits(cond, "warning")) {
  [14:55:51.176]                       muffled <- grepl(pattern, "muffleWarning")
  [14:55:51.176]                       if (muffled) 
  [14:55:51.176]                         invokeRestart("muffleWarning")
  [14:55:51.176]                     }
  [14:55:51.176]                     else if (inherits(cond, "condition")) {
  [14:55:51.176]                       if (!is.null(pattern)) {
  [14:55:51.176]                         computeRestarts <- base::computeRestarts
  [14:55:51.176]                         grepl <- base::grepl
  [14:55:51.176]                         restarts <- computeRestarts(cond)
  [14:55:51.176]                         for (restart in restarts) {
  [14:55:51.176]                           name <- restart$name
  [14:55:51.176]                           if (is.null(name)) 
  [14:55:51.176]                             next
  [14:55:51.176]                           if (!grepl(pattern, name)) 
  [14:55:51.176]                             next
  [14:55:51.176]                           invokeRestart(restart)
  [14:55:51.176]                           muffled <- TRUE
  [14:55:51.176]                           break
  [14:55:51.176]                         }
  [14:55:51.176]                       }
  [14:55:51.176]                     }
  [14:55:51.176]                     invisible(muffled)
  [14:55:51.176]                   }
  [14:55:51.176]                   muffleCondition(cond)
  [14:55:51.176]                 })
  [14:55:51.176]             }))
  [14:55:51.176]             future::FutureResult(value = ...future.value$value, 
  [14:55:51.176]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:51.176]                   ...future.rng), started = ...future.startTime, 
  [14:55:51.176]                 version = "1.8")
  [14:55:51.176]         }, condition = base::local({
  [14:55:51.176]             c <- base::c
  [14:55:51.176]             inherits <- base::inherits
  [14:55:51.176]             invokeRestart <- base::invokeRestart
  [14:55:51.176]             length <- base::length
  [14:55:51.176]             list <- base::list
  [14:55:51.176]             seq.int <- base::seq.int
  [14:55:51.176]             signalCondition <- base::signalCondition
  [14:55:51.176]             sys.calls <- base::sys.calls
  [14:55:51.176]             `[[` <- base::`[[`
  [14:55:51.176]             `+` <- base::`+`
  [14:55:51.176]             `<<-` <- base::`<<-`
  [14:55:51.176]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:55:51.176]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:55:51.176]                   3L)]
  [14:55:51.176]             }
  [14:55:51.176]             function(cond) {
  [14:55:51.176]                 is_error <- inherits(cond, "error")
  [14:55:51.176]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:55:51.176]                   NULL)
  [14:55:51.176]                 if (is_error) {
  [14:55:51.176]                   sessionInformation <- function() {
  [14:55:51.176]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:55:51.176]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:55:51.176]                       search = base::search(), system = base::Sys.info())
  [14:55:51.176]                   }
  [14:55:51.176]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:51.176]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:55:51.176]                     cond$call), session = sessionInformation(), 
  [14:55:51.176]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:55:51.176]                   signalCondition(cond)
  [14:55:51.176]                 }
  [14:55:51.176]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:55:51.176]                 "immediateCondition"))) {
  [14:55:51.176]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:55:51.176]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:51.176]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:55:51.176]                   if (TRUE && !signal) {
  [14:55:51.176]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:51.176]                     {
  [14:55:51.176]                       inherits <- base::inherits
  [14:55:51.176]                       invokeRestart <- base::invokeRestart
  [14:55:51.176]                       is.null <- base::is.null
  [14:55:51.176]                       muffled <- FALSE
  [14:55:51.176]                       if (inherits(cond, "message")) {
  [14:55:51.176]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:51.176]                         if (muffled) 
  [14:55:51.176]                           invokeRestart("muffleMessage")
  [14:55:51.176]                       }
  [14:55:51.176]                       else if (inherits(cond, "warning")) {
  [14:55:51.176]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:51.176]                         if (muffled) 
  [14:55:51.176]                           invokeRestart("muffleWarning")
  [14:55:51.176]                       }
  [14:55:51.176]                       else if (inherits(cond, "condition")) {
  [14:55:51.176]                         if (!is.null(pattern)) {
  [14:55:51.176]                           computeRestarts <- base::computeRestarts
  [14:55:51.176]                           grepl <- base::grepl
  [14:55:51.176]                           restarts <- computeRestarts(cond)
  [14:55:51.176]                           for (restart in restarts) {
  [14:55:51.176]                             name <- restart$name
  [14:55:51.176]                             if (is.null(name)) 
  [14:55:51.176]                               next
  [14:55:51.176]                             if (!grepl(pattern, name)) 
  [14:55:51.176]                               next
  [14:55:51.176]                             invokeRestart(restart)
  [14:55:51.176]                             muffled <- TRUE
  [14:55:51.176]                             break
  [14:55:51.176]                           }
  [14:55:51.176]                         }
  [14:55:51.176]                       }
  [14:55:51.176]                       invisible(muffled)
  [14:55:51.176]                     }
  [14:55:51.176]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:51.176]                   }
  [14:55:51.176]                 }
  [14:55:51.176]                 else {
  [14:55:51.176]                   if (TRUE) {
  [14:55:51.176]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:51.176]                     {
  [14:55:51.176]                       inherits <- base::inherits
  [14:55:51.176]                       invokeRestart <- base::invokeRestart
  [14:55:51.176]                       is.null <- base::is.null
  [14:55:51.176]                       muffled <- FALSE
  [14:55:51.176]                       if (inherits(cond, "message")) {
  [14:55:51.176]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:51.176]                         if (muffled) 
  [14:55:51.176]                           invokeRestart("muffleMessage")
  [14:55:51.176]                       }
  [14:55:51.176]                       else if (inherits(cond, "warning")) {
  [14:55:51.176]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:51.176]                         if (muffled) 
  [14:55:51.176]                           invokeRestart("muffleWarning")
  [14:55:51.176]                       }
  [14:55:51.176]                       else if (inherits(cond, "condition")) {
  [14:55:51.176]                         if (!is.null(pattern)) {
  [14:55:51.176]                           computeRestarts <- base::computeRestarts
  [14:55:51.176]                           grepl <- base::grepl
  [14:55:51.176]                           restarts <- computeRestarts(cond)
  [14:55:51.176]                           for (restart in restarts) {
  [14:55:51.176]                             name <- restart$name
  [14:55:51.176]                             if (is.null(name)) 
  [14:55:51.176]                               next
  [14:55:51.176]                             if (!grepl(pattern, name)) 
  [14:55:51.176]                               next
  [14:55:51.176]                             invokeRestart(restart)
  [14:55:51.176]                             muffled <- TRUE
  [14:55:51.176]                             break
  [14:55:51.176]                           }
  [14:55:51.176]                         }
  [14:55:51.176]                       }
  [14:55:51.176]                       invisible(muffled)
  [14:55:51.176]                     }
  [14:55:51.176]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:51.176]                   }
  [14:55:51.176]                 }
  [14:55:51.176]             }
  [14:55:51.176]         }))
  [14:55:51.176]     }, error = function(ex) {
  [14:55:51.176]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:55:51.176]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:51.176]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:55:51.176]     }, finally = {
  [14:55:51.176]         {
  [14:55:51.176]             NULL
  [14:55:51.176]             options(future.plan = NULL)
  [14:55:51.176]             if (is.na(NA_character_)) 
  [14:55:51.176]                 Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:51.176]             else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:55:51.176]             future::plan(list(b = function (..., workers = availableWorkers(), 
  [14:55:51.176]                 envir = parent.frame()) 
  [14:55:51.176]             {
  [14:55:51.176]                 future <- ClusterFuture(..., workers = workers, 
  [14:55:51.176]                   envir = envir)
  [14:55:51.176]                 if (!future$lazy) 
  [14:55:51.176]                   future <- run(future)
  [14:55:51.176]                 invisible(future)
  [14:55:51.176]             }), .cleanup = FALSE, .init = FALSE)
  [14:55:51.176]         }
  [14:55:51.176]         base::options(...future.oldOptions)
  [14:55:51.176]     })
  [14:55:51.176]     if (TRUE) {
  [14:55:51.176]         base::sink(type = "output", split = FALSE)
  [14:55:51.176]         if (TRUE) {
  [14:55:51.176]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:55:51.176]         }
  [14:55:51.176]         else {
  [14:55:51.176]             ...future.result["stdout"] <- base::list(NULL)
  [14:55:51.176]         }
  [14:55:51.176]         base::close(...future.stdout)
  [14:55:51.176]         ...future.stdout <- NULL
  [14:55:51.176]     }
  [14:55:51.176]     ...future.result$conditions <- ...future.conditions
  [14:55:51.176]     ...future.result
  [14:55:51.176] }
  [14:55:51.877]  - Condition #455: 'simpleMessage', 'message', 'condition'
  [14:55:51.181] Exporting 3 global objects (14.17 KiB) to cluster node #1 ...
  [14:55:51.877]  - Condition #456: 'simpleMessage', 'message', 'condition'
  [14:55:51.181] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
  [14:55:51.877]  - Condition #457: 'simpleMessage', 'message', 'condition'
  [14:55:51.182] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
  [14:55:51.887]  - Condition #458: 'simpleMessage', 'message', 'condition'
  [14:55:51.182] Exporting 'a' (56 bytes) to cluster node #1 ...
  [14:55:51.887]  - Condition #459: 'simpleMessage', 'message', 'condition'
  [14:55:51.183] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
  [14:55:51.887]  - Condition #460: 'simpleMessage', 'message', 'condition'
  [14:55:51.184] Exporting 'plan_a' (14.12 KiB) to cluster node #1 ...
  [14:55:51.888]  - Condition #461: 'simpleMessage', 'message', 'condition'
  [14:55:51.185] Exporting 'plan_a' (14.12 KiB) to cluster node #1 ... DONE
  [14:55:51.888]  - Condition #462: 'simpleMessage', 'message', 'condition'
  [14:55:51.185] Exporting 3 global objects (14.17 KiB) to cluster node #1 ... DONE
  [14:55:51.888]  - Condition #463: 'simpleMessage', 'message', 'condition'
  [14:55:51.199] ClusterFuture started
  [14:55:51.889]  - Condition #464: 'simpleMessage', 'message', 'condition'
  [14:55:51.199] - Launch lazy future ... done
  [14:55:51.889]  - Condition #465: 'simpleMessage', 'message', 'condition'
  [14:55:51.200] run() for 'ClusterFuture' ... done
  [14:55:51.889]  - Condition #466: 'simpleMessage', 'message', 'condition'
  [14:55:51.200] Chunk #1 of 2 ... DONE
  [14:55:51.890]  - Condition #467: 'simpleMessage', 'message', 'condition'
  [14:55:51.200] Chunk #2 of 2 ...
  [14:55:51.890]  - Condition #468: 'simpleMessage', 'message', 'condition'
  [14:55:51.201]  - Finding globals in 'args_list' chunk #2 ...
  [14:55:51.890]  - Condition #469: 'simpleMessage', 'message', 'condition'
  [14:55:51.201] getGlobalsAndPackages() ...
  [14:55:51.891]  - Condition #470: 'simpleMessage', 'message', 'condition'
  [14:55:51.201] Searching for globals...
  [14:55:51.891]  - Condition #471: 'simpleMessage', 'message', 'condition'
  [14:55:51.202] 
  [14:55:51.891]  - Condition #472: 'simpleMessage', 'message', 'condition'
  [14:55:51.202] Searching for globals ... DONE
  [14:55:51.892]  - Condition #473: 'simpleMessage', 'message', 'condition'
  [14:55:51.203] - globals: [0] <none>
  [14:55:51.892]  - Condition #474: 'simpleMessage', 'message', 'condition'
  [14:55:51.203] getGlobalsAndPackages() ... DONE
  [14:55:51.892]  - Condition #475: 'simpleMessage', 'message', 'condition'
  [14:55:51.203] 
  [14:55:51.893]  - Condition #476: 'simpleMessage', 'message', 'condition'
  [14:55:51.203] 
  [14:55:51.893]  - Condition #477: 'simpleMessage', 'message', 'condition'
  [14:55:51.204]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:55:51.893]  - Condition #478: 'simpleMessage', 'message', 'condition'
  [14:55:51.204] getGlobalsAndPackages() ...
  [14:55:51.894]  - Condition #479: 'simpleMessage', 'message', 'condition'
  [14:55:51.204] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:51.894]  - Condition #480: 'simpleMessage', 'message', 'condition'
  [14:55:51.205] Resolving globals: FALSE
  [14:55:51.894]  - Condition #481: 'simpleMessage', 'message', 'condition'
  [14:55:51.205] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:51.895]  - Condition #482: 'simpleMessage', 'message', 'condition'
  [14:55:51.206] 
  [14:55:51.895]  - Condition #483: 'simpleMessage', 'message', 'condition'
  [14:55:51.206] getGlobalsAndPackages() ... DONE
  [14:55:51.895]  - Condition #484: 'simpleMessage', 'message', 'condition'
  [14:55:51.207] run() for 'Future' ...
  [14:55:51.895]  - Condition #485: 'simpleMessage', 'message', 'condition'
  [14:55:51.207] - state: 'created'
  [14:55:51.896]  - Condition #486: 'simpleMessage', 'message', 'condition'
  [14:55:51.207] - Future backend: 'FutureStrategy', 'cluster', 'multiprocess', 'future', 'function'
  [14:55:51.896]  - Condition #487: 'simpleMessage', 'message', 'condition'
  [14:55:51.215] - Future class: 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
  [14:55:51.896]  - Condition #488: 'simpleMessage', 'message', 'condition'
  [14:55:51.216] - Copy elements of temporary 'ClusterFuture' to final 'Future' object ...
  [14:55:51.897]  - Condition #489: 'simpleMessage', 'message', 'condition'
  [14:55:51.216]   - Field: 'node'
  [14:55:51.897]  - Condition #490: 'simpleMessage', 'message', 'condition'
  [14:55:51.217]   - Field: 'label'
  [14:55:51.897]  - Condition #491: 'simpleMessage', 'message', 'condition'
  [14:55:51.217]   - Field: 'local'
  [14:55:51.898]  - Condition #492: 'simpleMessage', 'message', 'condition'
  [14:55:51.217]   - Field: 'owner'
  [14:55:51.898]  - Condition #493: 'simpleMessage', 'message', 'condition'
  [14:55:51.217]   - Field: 'envir'
  [14:55:51.898]  - Condition #494: 'simpleMessage', 'message', 'condition'
  [14:55:51.218]   - Field: 'workers'
  [14:55:51.899]  - Condition #495: 'simpleMessage', 'message', 'condition'
  [14:55:51.218]   - Field: 'packages'
  [14:55:51.899]  - Condition #496: 'simpleMessage', 'message', 'condition'
  [14:55:51.218]   - Field: 'gc'
  [14:55:51.899]  - Condition #497: 'simpleMessage', 'message', 'condition'
  [14:55:51.218]   - Field: 'conditions'
  [14:55:51.900]  - Condition #498: 'simpleMessage', 'message', 'condition'
  [14:55:51.219]   - Field: 'persistent'
  [14:55:51.900]  - Condition #499: 'simpleMessage', 'message', 'condition'
  [14:55:51.219]   - Field: 'expr'
  [14:55:51.913]  - Condition #500: 'simpleMessage', 'message', 'condition'
  [14:55:51.219]   - Field: 'uuid'
  [14:55:51.913]  - Condition #501: 'simpleMessage', 'message', 'condition'
  [14:55:51.220]   - Field: 'seed'
  [14:55:51.914]  - Condition #502: 'simpleMessage', 'message', 'condition'
  [14:55:51.220]   - Field: 'version'
  [14:55:51.914]  - Condition #503: 'simpleMessage', 'message', 'condition'
  [14:55:51.221]   - Field: 'result'
  [14:55:51.914]  - Condition #504: 'simpleMessage', 'message', 'condition'
  [14:55:51.222]   - Field: 'asynchronous'
  [14:55:51.915]  - Condition #505: 'simpleMessage', 'message', 'condition'
  [14:55:51.222]   - Field: 'calls'
  [14:55:51.915]  - Condition #506: 'simpleMessage', 'message', 'condition'
  [14:55:51.222]   - Field: 'globals'
  [14:55:51.915]  - Condition #507: 'simpleMessage', 'message', 'condition'
  [14:55:51.223]   - Field: 'stdout'
  [14:55:51.916]  - Condition #508: 'simpleMessage', 'message', 'condition'
  [14:55:51.223]   - Field: 'earlySignal'
  [14:55:51.916]  - Condition #509: 'simpleMessage', 'message', 'condition'
  [14:55:51.223]   - Field: 'lazy'
  [14:55:51.916]  - Condition #510: 'simpleMessage', 'message', 'condition'
  [14:55:51.223]   - Field: 'state'
  [14:55:51.917]  - Condition #511: 'simpleMessage', 'message', 'condition'
  [14:55:51.224] - Copy elements of temporary 'ClusterFuture' to final 'Future' object ... done
  [14:55:51.917]  - Condition #512: 'simpleMessage', 'message', 'condition'
  [14:55:51.224] - Launch lazy future ...
  [14:55:51.917]  - Condition #513: 'simpleMessage', 'message', 'condition'
  [14:55:51.224] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:55:51.918]  - Condition #514: 'simpleMessage', 'message', 'condition'
  [14:55:51.225] Packages needed by future strategies (n = 0): <none>
  [14:55:51.918]  - Condition #515: 'simpleMessage', 'message', 'condition'
  [14:55:51.226] {
  [14:55:51.226]     {
  [14:55:51.226]         ...future.startTime <- base::Sys.time()
  [14:55:51.226]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:55:51.226]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:55:51.226]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:55:51.226]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:55:51.226]             future.resolve.recursive = NULL, future.rng.onMisuse = NULL, 
  [14:55:51.226]             future.rng.onMisuse.keepFuture = NULL, future.stdout.windows.reencode = NULL, 
  [14:55:51.226]             width = 80L)
  [14:55:51.226]         {
  [14:55:51.226]             {
  [14:55:51.226]                 {
  [14:55:51.226]                   base::local({
  [14:55:51.226]                     has_future <- base::requireNamespace("future", 
  [14:55:51.226]                       quietly = TRUE)
  [14:55:51.226]                     if (has_future) {
  [14:55:51.226]                       ns <- base::getNamespace("future")
  [14:55:51.226]                       version <- ns[[".package"]][["version"]]
  [14:55:51.226]                       if (is.null(version)) 
  [14:55:51.226]                         version <- utils::packageVersion("future")
  [14:55:51.226]                     }
  [14:55:51.226]                     else {
  [14:55:51.226]                       version <- NULL
  [14:55:51.226]                     }
  [14:55:51.226]                     if (!has_future || version < "1.8.0") {
  [14:55:51.226]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:55:51.226]                         "", base::R.version$version.string), 
  [14:55:51.226]                         platform = base::sprintf("%s (%s-bit)", 
  [14:55:51.226]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:55:51.226]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:55:51.226]                           "release", "version")], collapse = " "), 
  [14:55:51.226]                         hostname = base::Sys.info()[["nodename"]])
  [14:55:51.226]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:55:51.226]                         info)
  [14:55:51.226]                       info <- base::paste(info, collapse = "; ")
  [14:55:51.226]                       if (!has_future) {
  [14:55:51.226]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:55:51.226]                           info)
  [14:55:51.226]                       }
  [14:55:51.226]                       else {
  [14:55:51.226]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:55:51.226]                           info, version)
  [14:55:51.226]                       }
  [14:55:51.226]                       base::stop(msg)
  [14:55:51.226]                     }
  [14:55:51.226]                   })
  [14:55:51.226]                 }
  [14:55:51.226]                 base::local({
  [14:55:51.226]                   for (pkg in c("doFuture", "utils")) {
  [14:55:51.226]                     base::loadNamespace(pkg)
  [14:55:51.226]                     base::library(pkg, character.only = TRUE)
  [14:55:51.226]                   }
  [14:55:51.226]                 })
  [14:55:51.226]             }
  [14:55:51.226]             options(future.plan = NULL)
  [14:55:51.226]             Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:51.226]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:55:51.226]         }
  [14:55:51.226]     }
  [14:55:51.226]     if (FALSE) {
  [14:55:51.226]     }
  [14:55:51.226]     else {
  [14:55:51.226]         if (TRUE) {
  [14:55:51.226]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:55:51.226]                 open = "w")
  [14:55:51.226]         }
  [14:55:51.226]         else {
  [14:55:51.226]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:55:51.226]                 windows = "NUL", "/dev/null"), open = "w")
  [14:55:51.226]         }
  [14:55:51.226]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:55:51.226]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:55:51.226]             base::sink(type = "output", split = FALSE)
  [14:55:51.226]             base::close(...future.stdout)
  [14:55:51.226]         }, add = TRUE)
  [14:55:51.226]     }
  [14:55:51.226]     ...future.frame <- base::sys.nframe()
  [14:55:51.226]     ...future.conditions <- base::list()
  [14:55:51.226]     ...future.rng <- base::globalenv()$.Random.seed
  [14:55:51.226]     ...future.result <- base::tryCatch({
  [14:55:51.226]         base::withCallingHandlers({
  [14:55:51.226]             ...future.value <- base::withVisible(base::local({
  [14:55:51.226]                 ...future.sendCondition <- local({
  [14:55:51.226]                   sendCondition <- NULL
  [14:55:51.226]                   function(frame = 1L) {
  [14:55:51.226]                     if (is.function(sendCondition)) 
  [14:55:51.226]                       return(sendCondition)
  [14:55:51.226]                     ns <- getNamespace("parallel")
  [14:55:51.226]                     if (exists("sendData", mode = "function", 
  [14:55:51.226]                       envir = ns)) {
  [14:55:51.226]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:55:51.226]                         envir = ns)
  [14:55:51.226]                       envir <- sys.frame(frame)
  [14:55:51.226]                       master <- NULL
  [14:55:51.226]                       while (!identical(envir, .GlobalEnv) && 
  [14:55:51.226]                         !identical(envir, emptyenv())) {
  [14:55:51.226]                         if (exists("master", mode = "list", envir = envir, 
  [14:55:51.226]                           inherits = FALSE)) {
  [14:55:51.226]                           master <- get("master", mode = "list", 
  [14:55:51.226]                             envir = envir, inherits = FALSE)
  [14:55:51.226]                           if (inherits(master, c("SOCKnode", 
  [14:55:51.226]                             "SOCK0node"))) {
  [14:55:51.226]                             sendCondition <<- function(cond) {
  [14:55:51.226]                               data <- list(type = "VALUE", value = cond, 
  [14:55:51.226]                                 success = TRUE)
  [14:55:51.226]                               parallel_sendData(master, data)
  [14:55:51.226]                             }
  [14:55:51.226]                             return(sendCondition)
  [14:55:51.226]                           }
  [14:55:51.226]                         }
  [14:55:51.226]                         frame <- frame + 1L
  [14:55:51.226]                         envir <- sys.frame(frame)
  [14:55:51.226]                       }
  [14:55:51.226]                     }
  [14:55:51.226]                     sendCondition <<- function(cond) NULL
  [14:55:51.226]                   }
  [14:55:51.226]                 })
  [14:55:51.226]                 withCallingHandlers({
  [14:55:51.226]                   {
  [14:55:51.226]                     doFuture::registerDoFuture()
  [14:55:51.226]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:51.226]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:51.226]                       b <- NULL
  [14:55:51.226]                       ...future.env <- environment()
  [14:55:51.226]                       local({
  [14:55:51.226]                         for (name in names(...future.x_jj)) {
  [14:55:51.226]                           assign(name, ...future.x_jj[[name]], 
  [14:55:51.226]                             envir = ...future.env, inherits = FALSE)
  [14:55:51.226]                         }
  [14:55:51.226]                       })
  [14:55:51.226]                       tryCatch({
  [14:55:51.226]                         plan_list <- future::plan("next")
  [14:55:51.226]                         message(capture.output(print(plan_list)))
  [14:55:51.226]                         stopifnot(inherits(plan_list, "future"))
  [14:55:51.226]                         default <- getOption("future.plan", "sequential")
  [14:55:51.226]                         if (is.function(default)) 
  [14:55:51.226]                           default <- class(default)
  [14:55:51.226]                         stopifnot(inherits(plan_list, default))
  [14:55:51.226]                         plan_b <- future::plan("list")
  [14:55:51.226]                         str(plan_b)
  [14:55:51.226]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:51.226]                           inherits(plan_b[[1]], default))
  [14:55:51.226]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:51.226]                       }, error = identity)
  [14:55:51.226]                     })
  [14:55:51.226]                   }
  [14:55:51.226]                 }, immediateCondition = function(cond) {
  [14:55:51.226]                   sendCondition <- ...future.sendCondition()
  [14:55:51.226]                   sendCondition(cond)
  [14:55:51.226]                   muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:51.226]                   {
  [14:55:51.226]                     inherits <- base::inherits
  [14:55:51.226]                     invokeRestart <- base::invokeRestart
  [14:55:51.226]                     is.null <- base::is.null
  [14:55:51.226]                     muffled <- FALSE
  [14:55:51.226]                     if (inherits(cond, "message")) {
  [14:55:51.226]                       muffled <- grepl(pattern, "muffleMessage")
  [14:55:51.226]                       if (muffled) 
  [14:55:51.226]                         invokeRestart("muffleMessage")
  [14:55:51.226]                     }
  [14:55:51.226]                     else if (inherits(cond, "warning")) {
  [14:55:51.226]                       muffled <- grepl(pattern, "muffleWarning")
  [14:55:51.226]                       if (muffled) 
  [14:55:51.226]                         invokeRestart("muffleWarning")
  [14:55:51.226]                     }
  [14:55:51.226]                     else if (inherits(cond, "condition")) {
  [14:55:51.226]                       if (!is.null(pattern)) {
  [14:55:51.226]                         computeRestarts <- base::computeRestarts
  [14:55:51.226]                         grepl <- base::grepl
  [14:55:51.226]                         restarts <- computeRestarts(cond)
  [14:55:51.226]                         for (restart in restarts) {
  [14:55:51.226]                           name <- restart$name
  [14:55:51.226]                           if (is.null(name)) 
  [14:55:51.226]                             next
  [14:55:51.226]                           if (!grepl(pattern, name)) 
  [14:55:51.226]                             next
  [14:55:51.226]                           invokeRestart(restart)
  [14:55:51.226]                           muffled <- TRUE
  [14:55:51.226]                           break
  [14:55:51.226]                         }
  [14:55:51.226]                       }
  [14:55:51.226]                     }
  [14:55:51.226]                     invisible(muffled)
  [14:55:51.226]                   }
  [14:55:51.226]                   muffleCondition(cond)
  [14:55:51.226]                 })
  [14:55:51.226]             }))
  [14:55:51.226]             future::FutureResult(value = ...future.value$value, 
  [14:55:51.226]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:51.226]                   ...future.rng), started = ...future.startTime, 
  [14:55:51.226]                 version = "1.8")
  [14:55:51.226]         }, condition = base::local({
  [14:55:51.226]             c <- base::c
  [14:55:51.226]             inherits <- base::inherits
  [14:55:51.226]             invokeRestart <- base::invokeRestart
  [14:55:51.226]             length <- base::length
  [14:55:51.226]             list <- base::list
  [14:55:51.226]             seq.int <- base::seq.int
  [14:55:51.226]             signalCondition <- base::signalCondition
  [14:55:51.226]             sys.calls <- base::sys.calls
  [14:55:51.226]             `[[` <- base::`[[`
  [14:55:51.226]             `+` <- base::`+`
  [14:55:51.226]             `<<-` <- base::`<<-`
  [14:55:51.226]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:55:51.226]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:55:51.226]                   3L)]
  [14:55:51.226]             }
  [14:55:51.226]             function(cond) {
  [14:55:51.226]                 is_error <- inherits(cond, "error")
  [14:55:51.226]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:55:51.226]                   NULL)
  [14:55:51.226]                 if (is_error) {
  [14:55:51.226]                   sessionInformation <- function() {
  [14:55:51.226]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:55:51.226]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:55:51.226]                       search = base::search(), system = base::Sys.info())
  [14:55:51.226]                   }
  [14:55:51.226]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:51.226]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:55:51.226]                     cond$call), session = sessionInformation(), 
  [14:55:51.226]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:55:51.226]                   signalCondition(cond)
  [14:55:51.226]                 }
  [14:55:51.226]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:55:51.226]                 "immediateCondition"))) {
  [14:55:51.226]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:55:51.226]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:51.226]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:55:51.226]                   if (TRUE && !signal) {
  [14:55:51.226]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:51.226]                     {
  [14:55:51.226]                       inherits <- base::inherits
  [14:55:51.226]                       invokeRestart <- base::invokeRestart
  [14:55:51.226]                       is.null <- base::is.null
  [14:55:51.226]                       muffled <- FALSE
  [14:55:51.226]                       if (inherits(cond, "message")) {
  [14:55:51.226]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:51.226]                         if (muffled) 
  [14:55:51.226]                           invokeRestart("muffleMessage")
  [14:55:51.226]                       }
  [14:55:51.226]                       else if (inherits(cond, "warning")) {
  [14:55:51.226]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:51.226]                         if (muffled) 
  [14:55:51.226]                           invokeRestart("muffleWarning")
  [14:55:51.226]                       }
  [14:55:51.226]                       else if (inherits(cond, "condition")) {
  [14:55:51.226]                         if (!is.null(pattern)) {
  [14:55:51.226]                           computeRestarts <- base::computeRestarts
  [14:55:51.226]                           grepl <- base::grepl
  [14:55:51.226]                           restarts <- computeRestarts(cond)
  [14:55:51.226]                           for (restart in restarts) {
  [14:55:51.226]                             name <- restart$name
  [14:55:51.226]                             if (is.null(name)) 
  [14:55:51.226]                               next
  [14:55:51.226]                             if (!grepl(pattern, name)) 
  [14:55:51.226]                               next
  [14:55:51.226]                             invokeRestart(restart)
  [14:55:51.226]                             muffled <- TRUE
  [14:55:51.226]                             break
  [14:55:51.226]                           }
  [14:55:51.226]                         }
  [14:55:51.226]                       }
  [14:55:51.226]                       invisible(muffled)
  [14:55:51.226]                     }
  [14:55:51.226]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:51.226]                   }
  [14:55:51.226]                 }
  [14:55:51.226]                 else {
  [14:55:51.226]                   if (TRUE) {
  [14:55:51.226]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:51.226]                     {
  [14:55:51.226]                       inherits <- base::inherits
  [14:55:51.226]                       invokeRestart <- base::invokeRestart
  [14:55:51.226]                       is.null <- base::is.null
  [14:55:51.226]                       muffled <- FALSE
  [14:55:51.226]                       if (inherits(cond, "message")) {
  [14:55:51.226]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:51.226]                         if (muffled) 
  [14:55:51.226]                           invokeRestart("muffleMessage")
  [14:55:51.226]                       }
  [14:55:51.226]                       else if (inherits(cond, "warning")) {
  [14:55:51.226]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:51.226]                         if (muffled) 
  [14:55:51.226]                           invokeRestart("muffleWarning")
  [14:55:51.226]                       }
  [14:55:51.226]                       else if (inherits(cond, "condition")) {
  [14:55:51.226]                         if (!is.null(pattern)) {
  [14:55:51.226]                           computeRestarts <- base::computeRestarts
  [14:55:51.226]                           grepl <- base::grepl
  [14:55:51.226]                           restarts <- computeRestarts(cond)
  [14:55:51.226]                           for (restart in restarts) {
  [14:55:51.226]                             name <- restart$name
  [14:55:51.226]                             if (is.null(name)) 
  [14:55:51.226]                               next
  [14:55:51.226]                             if (!grepl(pattern, name)) 
  [14:55:51.226]                               next
  [14:55:51.226]                             invokeRestart(restart)
  [14:55:51.226]                             muffled <- TRUE
  [14:55:51.226]                             break
  [14:55:51.226]                           }
  [14:55:51.226]                         }
  [14:55:51.226]                       }
  [14:55:51.226]                       invisible(muffled)
  [14:55:51.226]                     }
  [14:55:51.226]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:51.226]                   }
  [14:55:51.226]                 }
  [14:55:51.226]             }
  [14:55:51.226]         }))
  [14:55:51.226]     }, error = function(ex) {
  [14:55:51.226]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:55:51.226]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:51.226]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:55:51.226]     }, finally = {
  [14:55:51.226]         {
  [14:55:51.226]             NULL
  [14:55:51.226]             options(future.plan = NULL)
  [14:55:51.226]             if (is.na(NA_character_)) 
  [14:55:51.226]                 Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:51.226]             else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:55:51.226]             future::plan(list(b = function (..., workers = availableWorkers(), 
  [14:55:51.226]                 envir = parent.frame()) 
  [14:55:51.226]             {
  [14:55:51.226]                 future <- ClusterFuture(..., workers = workers, 
  [14:55:51.226]                   envir = envir)
  [14:55:51.226]                 if (!future$lazy) 
  [14:55:51.226]                   future <- run(future)
  [14:55:51.226]                 invisible(future)
  [14:55:51.226]             }), .cleanup = FALSE, .init = FALSE)
  [14:55:51.226]         }
  [14:55:51.226]         base::options(...future.oldOptions)
  [14:55:51.226]     })
  [14:55:51.226]     if (TRUE) {
  [14:55:51.226]         base::sink(type = "output", split = FALSE)
  [14:55:51.226]         if (TRUE) {
  [14:55:51.226]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:55:51.226]         }
  [14:55:51.226]         else {
  [14:55:51.226]             ...future.result["stdout"] <- base::list(NULL)
  [14:55:51.226]         }
  [14:55:51.226]         base::close(...future.stdout)
  [14:55:51.226]         ...future.stdout <- NULL
  [14:55:51.226]     }
  [14:55:51.226]     ...future.result$conditions <- ...future.conditions
  [14:55:51.226]     ...future.result
  [14:55:51.226] }
  [14:55:51.918]  - Condition #516: 'simpleMessage', 'message', 'condition'
  [14:55:51.242] Exporting 3 global objects (14.17 KiB) to cluster node #2 ...
  [14:55:51.919]  - Condition #517: 'simpleMessage', 'message', 'condition'
  [14:55:51.242] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ...
  [14:55:51.919]  - Condition #518: 'simpleMessage', 'message', 'condition'
  [14:55:51.251] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ... DONE
  [14:55:51.919]  - Condition #519: 'simpleMessage', 'message', 'condition'
  [14:55:51.252] Exporting 'a' (56 bytes) to cluster node #2 ...
  [14:55:51.920]  - Condition #520: 'simpleMessage', 'message', 'condition'
  [14:55:51.253] Exporting 'a' (56 bytes) to cluster node #2 ... DONE
  [14:55:51.920]  - Condition #521: 'simpleMessage', 'message', 'condition'
  [14:55:51.253] Exporting 'plan_a' (14.12 KiB) to cluster node #2 ...
  [14:55:51.920]  - Condition #522: 'simpleMessage', 'message', 'condition'
  [14:55:51.254] Exporting 'plan_a' (14.12 KiB) to cluster node #2 ... DONE
  [14:55:51.921]  - Condition #523: 'simpleMessage', 'message', 'condition'
  [14:55:51.254] Exporting 3 global objects (14.17 KiB) to cluster node #2 ... DONE
  [14:55:51.921]  - Condition #524: 'simpleMessage', 'message', 'condition'
  [14:55:51.256] ClusterFuture started
  [14:55:51.921]  - Condition #525: 'simpleMessage', 'message', 'condition'
  [14:55:51.256] - Launch lazy future ... done
  [14:55:51.922]  - Condition #526: 'simpleMessage', 'message', 'condition'
  [14:55:51.257] run() for 'ClusterFuture' ... done
  [14:55:51.922]  - Condition #527: 'simpleMessage', 'message', 'condition'
  [14:55:51.257] Chunk #2 of 2 ... DONE
  [14:55:51.922]  - Condition #528: 'simpleMessage', 'message', 'condition'
  [14:55:51.257] Launching 2 futures (chunks) ... DONE
  [14:55:51.923]  - Condition #529: 'simpleMessage', 'message', 'condition'
  [14:55:51.258] - resolving futures
  [14:55:51.923]  - Condition #530: 'simpleMessage', 'message', 'condition'
  [14:55:51.258]   - gathering results & relaying conditions (except errors)
  [14:55:51.923]  - Condition #531: 'simpleMessage', 'message', 'condition'
  [14:55:51.258] resolve() on list ...
  [14:55:51.924]  - Condition #532: 'simpleMessage', 'message', 'condition'
  [14:55:51.258]  recursive: 0
  [14:55:51.924]  - Condition #533: 'simpleMessage', 'message', 'condition'
  [14:55:51.259]  length: 2
  [14:55:51.929]  - Condition #534: 'simpleMessage', 'message', 'condition'
  [14:55:51.259] 
  [14:55:51.929]  - Condition #535: 'simpleMessage', 'message', 'condition'
  [14:55:51.260] receiveMessageFromWorker() for ClusterFuture ...
  [14:55:51.930]  - Condition #536: 'simpleMessage', 'message', 'condition'
  [14:55:51.260] - Validating connection of ClusterFuture
  [14:55:51.930]  - Condition #537: 'simpleMessage', 'message', 'condition'
  [14:55:51.261] - received message: FutureResult
  [14:55:51.930]  - Condition #538: 'simpleMessage', 'message', 'condition'
  [14:55:51.261] - Received FutureResult
  [14:55:51.931]  - Condition #539: 'simpleMessage', 'message', 'condition'
  [14:55:51.261] - Erased future from FutureRegistry
  [14:55:51.931]  - Condition #540: 'simpleMessage', 'message', 'condition'
  [14:55:51.262] result() for ClusterFuture ...
  [14:55:51.931]  - Condition #541: 'simpleMessage', 'message', 'condition'
  [14:55:51.262] - result already collected: FutureResult
  [14:55:51.932]  - Condition #542: 'simpleMessage', 'message', 'condition'
  [14:55:51.262] result() for ClusterFuture ... done
  [14:55:51.932]  - Condition #543: 'simpleMessage', 'message', 'condition'
  [14:55:51.263] signalConditions() ...
  [14:55:51.932]  - Condition #544: 'simpleMessage', 'message', 'condition'
  [14:55:51.263]  - include = 'immediateCondition'
  [14:55:51.933]  - Condition #545: 'simpleMessage', 'message', 'condition'
  [14:55:51.263]  - exclude = 
  [14:55:51.933]  - Condition #546: 'simpleMessage', 'message', 'condition'
  [14:55:51.263]  - resignal = FALSE
  [14:55:51.933]  - Condition #547: 'simpleMessage', 'message', 'condition'
  [14:55:51.263]  - Number of conditions: 1
  [14:55:51.934]  - Condition #548: 'simpleMessage', 'message', 'condition'
  [14:55:51.264] signalConditions() ... done
  [14:55:51.934]  - Condition #549: 'simpleMessage', 'message', 'condition'
  [14:55:51.264] receiveMessageFromWorker() for ClusterFuture ... done
  [14:55:51.934]  - Condition #550: 'simpleMessage', 'message', 'condition'
  [14:55:51.264] Future #1
  [14:55:51.935]  - Condition #551: 'simpleMessage', 'message', 'condition'
  [14:55:51.265] result() for ClusterFuture ...
  [14:55:51.935]  - Condition #552: 'simpleMessage', 'message', 'condition'
  [14:55:51.265] - result already collected: FutureResult
  [14:55:51.935]  - Condition #553: 'simpleMessage', 'message', 'condition'
  [14:55:51.265] result() for ClusterFuture ... done
  [14:55:51.936]  - Condition #554: 'simpleMessage', 'message', 'condition'
  [14:55:51.266] result() for ClusterFuture ...
  [14:55:51.937]  - Condition #555: 'simpleMessage', 'message', 'condition'
  [14:55:51.266] - result already collected: FutureResult
  [14:55:51.937]  - Condition #556: 'simpleMessage', 'message', 'condition'
  [14:55:51.266] result() for ClusterFuture ... done
  [14:55:51.937]  - Condition #557: 'simpleMessage', 'message', 'condition'
  [14:55:51.266] signalConditions() ...
  [14:55:51.938]  - Condition #558: 'simpleMessage', 'message', 'condition'
  [14:55:51.267]  - include = 'immediateCondition'
  [14:55:51.938]  - Condition #559: 'simpleMessage', 'message', 'condition'
  [14:55:51.267]  - exclude = 
  [14:55:51.938]  - Condition #560: 'simpleMessage', 'message', 'condition'
  [14:55:51.267]  - resignal = FALSE
  [14:55:51.939]  - Condition #561: 'simpleMessage', 'message', 'condition'
  [14:55:51.267]  - Number of conditions: 1
  [14:55:51.939]  - Condition #562: 'simpleMessage', 'message', 'condition'
  [14:55:51.268] signalConditions() ... done
  [14:55:51.939]  - Condition #563: 'simpleMessage', 'message', 'condition'
  [14:55:51.268] signalConditionsASAP(ClusterFuture, pos=1) ...
  [14:55:51.940]  - Condition #564: 'simpleMessage', 'message', 'condition'
  [14:55:51.284] - nx: 2
  [14:55:51.940]  - Condition #565: 'simpleMessage', 'message', 'condition'
  [14:55:51.285] - relay: TRUE
  [14:55:51.940]  - Condition #566: 'simpleMessage', 'message', 'condition'
  [14:55:51.285] - stdout: TRUE
  [14:55:51.941]  - Condition #567: 'simpleMessage', 'message', 'condition'
  [14:55:51.285] - signal: TRUE
  [14:55:51.941]  - Condition #568: 'simpleMessage', 'message', 'condition'
  [14:55:51.285] - resignal: FALSE
  [14:55:51.941]  - Condition #569: 'simpleMessage', 'message', 'condition'
  [14:55:51.286] - force: FALSE
  [14:55:51.942]  - Condition #570: 'simpleMessage', 'message', 'condition'
  [14:55:51.286] - relayed: [n=2] FALSE, FALSE
  [14:55:51.942]  - Condition #571: 'simpleMessage', 'message', 'condition'
  [14:55:51.286] - queued futures: [n=2] FALSE, FALSE
  [14:55:51.942]  - Condition #572: 'simpleMessage', 'message', 'condition'
  [14:55:51.286]  - until=1
  [14:55:51.943]  - Condition #573: 'simpleMessage', 'message', 'condition'
  [14:55:51.287]  - relaying element #1
  [14:55:51.943]  - Condition #574: 'simpleMessage', 'message', 'condition'
  [14:55:51.287] result() for ClusterFuture ...
  [14:55:51.943]  - Condition #575: 'simpleMessage', 'message', 'condition'
  [14:55:51.287] - result already collected: FutureResult
  [14:55:51.944]  - Condition #576: 'simpleMessage', 'message', 'condition'
  [14:55:51.287] result() for ClusterFuture ... done
  [14:55:51.944]  - Condition #577: 'simpleMessage', 'message', 'condition'
  [14:55:51.288] result() for ClusterFuture ...
  [14:55:51.944]  - Condition #578: 'simpleMessage', 'message', 'condition'
  [14:55:51.288] - result already collected: FutureResult
  [14:55:51.945]  - Condition #579: 'simpleMessage', 'message', 'condition'
  [14:55:51.288] result() for ClusterFuture ... done
  [14:55:51.945]  - Condition #580: 'simpleMessage', 'message', 'condition'
  [14:55:51.288] signalConditions() ...
  [14:55:51.945]  - Condition #581: 'simpleMessage', 'message', 'condition'
  [14:55:51.289]  - include = 'immediateCondition'
  [14:55:51.946]  - Condition #582: 'simpleMessage', 'message', 'condition'
  [14:55:51.289]  - exclude = 
  [14:55:51.946]  - Condition #583: 'simpleMessage', 'message', 'condition'
  [14:55:51.289]  - resignal = FALSE
  [14:55:51.946]  - Condition #584: 'simpleMessage', 'message', 'condition'
  [14:55:51.289]  - Number of conditions: 1
  [14:55:51.947]  - Condition #585: 'simpleMessage', 'message', 'condition'
  [14:55:51.290] signalConditions() ... done
  [14:55:51.951]  - Condition #586: 'simpleMessage', 'message', 'condition'
  [14:55:51.290] result() for ClusterFuture ...
  [14:55:51.960]  - Condition #587: 'simpleMessage', 'message', 'condition'
  [14:55:51.290] - result already collected: FutureResult
  [14:55:51.961]  - Condition #588: 'simpleMessage', 'message', 'condition'
  [14:55:51.291] result() for ClusterFuture ... done
  [14:55:51.961]  - Condition #589: 'simpleMessage', 'message', 'condition'
  [14:55:51.291] signalConditions() ...
  [14:55:51.961]  - Condition #590: 'simpleMessage', 'message', 'condition'
  [14:55:51.291]  - include = 'immediateCondition'
  [14:55:51.962]  - Condition #591: 'simpleMessage', 'message', 'condition'
  [14:55:51.291]  - exclude = 
  [14:55:51.962]  - Condition #592: 'simpleMessage', 'message', 'condition'
  [14:55:51.292]  - resignal = FALSE
  [14:55:51.962]  - Condition #593: 'simpleMessage', 'message', 'condition'
  [14:55:51.292]  - Number of conditions: 1
  [14:55:51.966]  - Condition #594: 'simpleMessage', 'message', 'condition'
  [14:55:51.292] signalConditions() ... done
  [14:55:51.967]  - Condition #595: 'simpleMessage', 'message', 'condition'
  [14:55:51.293] result() for ClusterFuture ...
  [14:55:51.967]  - Condition #596: 'simpleMessage', 'message', 'condition'
  [14:55:51.293] - result already collected: FutureResult
  [14:55:51.967]  - Condition #597: 'simpleMessage', 'message', 'condition'
  [14:55:51.293] result() for ClusterFuture ... done
  [14:55:51.968]  - Condition #598: 'simpleMessage', 'message', 'condition'
  [14:55:51.293] signalConditions() ...
  [14:55:51.968]  - Condition #599: 'simpleMessage', 'message', 'condition'
  [14:55:51.294]  - include = 'condition'
  [14:55:51.975]  - Condition #600: 'simpleMessage', 'message', 'condition'
  [14:55:51.294]  - exclude = 'immediateCondition'
  [14:55:51.976]  - Condition #601: 'simpleMessage', 'message', 'condition'
  [14:55:51.294]  - resignal = FALSE
  [14:55:51.976]  - Condition #602: 'simpleMessage', 'message', 'condition'
  [14:55:51.294]  - Number of conditions: 1
  [14:55:51.977]  - Condition #603: 'simpleMessage', 'message', 'condition'
  [14:55:51.295]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:55:51.977]  - Condition #604: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (..., envir = parent.frame())- tweaked: FALSE- call: NULL
  [14:55:51.977]  - Condition #605: 'simpleMessage', 'message', 'condition'
  [14:55:51.295] signalConditions() ... done
  [14:55:51.978]  - Condition #606: 'simpleMessage', 'message', 'condition'
  [14:55:51.295] - relayed: [n=2] TRUE, FALSE
  [14:55:51.978]  - Condition #607: 'simpleMessage', 'message', 'condition'
  [14:55:51.296] - queued futures: [n=2] TRUE, FALSE
  [14:55:51.978]  - Condition #608: 'simpleMessage', 'message', 'condition'
  [14:55:51.296] signalConditionsASAP(ClusterFuture, pos=1) ... done
  [14:55:51.979]  - Condition #609: 'simpleMessage', 'message', 'condition'
  [14:55:51.324]  length: 1 (resolved future 1)
  [14:55:51.979]  - Condition #610: 'simpleMessage', 'message', 'condition'
  [14:55:51.437] receiveMessageFromWorker() for ClusterFuture ...
  [14:55:51.979]  - Condition #611: 'simpleMessage', 'message', 'condition'
  [14:55:51.438] - Validating connection of ClusterFuture
  [14:55:51.979]  - Condition #612: 'simpleMessage', 'message', 'condition'
  [14:55:51.438] - received message: FutureResult
  [14:55:51.980]  - Condition #613: 'simpleMessage', 'message', 'condition'
  [14:55:51.439] - Received FutureResult
  [14:55:51.980]  - Condition #614: 'simpleMessage', 'message', 'condition'
  [14:55:51.439] - Erased future from FutureRegistry
  [14:55:51.980]  - Condition #615: 'simpleMessage', 'message', 'condition'
  [14:55:51.439] result() for ClusterFuture ...
  [14:55:51.981]  - Condition #616: 'simpleMessage', 'message', 'condition'
  [14:55:51.439] - result already collected: FutureResult
  [14:55:51.981]  - Condition #617: 'simpleMessage', 'message', 'condition'
  [14:55:51.440] result() for ClusterFuture ... done
  [14:55:51.981]  - Condition #618: 'simpleMessage', 'message', 'condition'
  [14:55:51.440] signalConditions() ...
  [14:55:51.982]  - Condition #619: 'simpleMessage', 'message', 'condition'
  [14:55:51.440]  - include = 'immediateCondition'
  [14:55:51.982]  - Condition #620: 'simpleMessage', 'message', 'condition'
  [14:55:51.440]  - exclude = 
  [14:55:51.982]  - Condition #621: 'simpleMessage', 'message', 'condition'
  [14:55:51.441]  - resignal = FALSE
  [14:55:51.982]  - Condition #622: 'simpleMessage', 'message', 'condition'
  [14:55:51.441]  - Number of conditions: 2
  [14:55:51.983]  - Condition #623: 'simpleMessage', 'message', 'condition'
  [14:55:51.441] signalConditions() ... done
  [14:55:51.983]  - Condition #624: 'simpleMessage', 'message', 'condition'
  [14:55:51.442] receiveMessageFromWorker() for ClusterFuture ... done
  [14:55:51.983]  - Condition #625: 'simpleMessage', 'message', 'condition'
  [14:55:51.442] Future #2
  [14:55:51.984]  - Condition #626: 'simpleMessage', 'message', 'condition'
  [14:55:51.442] result() for ClusterFuture ...
  [14:55:51.984]  - Condition #627: 'simpleMessage', 'message', 'condition'
  [14:55:51.442] - result already collected: FutureResult
  [14:55:51.984]  - Condition #628: 'simpleMessage', 'message', 'condition'
  [14:55:51.443] result() for ClusterFuture ... done
  [14:55:51.989]  - Condition #629: 'simpleMessage', 'message', 'condition'
  [14:55:51.443] result() for ClusterFuture ...
  [14:55:51.990]  - Condition #630: 'simpleMessage', 'message', 'condition'
  [14:55:51.443] - result already collected: FutureResult
  [14:55:51.990]  - Condition #631: 'simpleMessage', 'message', 'condition'
  [14:55:51.444] result() for ClusterFuture ... done
  [14:55:51.990]  - Condition #632: 'simpleMessage', 'message', 'condition'
  [14:55:51.444] signalConditions() ...
  [14:55:51.991]  - Condition #633: 'simpleMessage', 'message', 'condition'
  [14:55:51.444]  - include = 'immediateCondition'
  [14:55:51.991]  - Condition #634: 'simpleMessage', 'message', 'condition'
  [14:55:51.444]  - exclude = 
  [14:55:51.991]  - Condition #635: 'simpleMessage', 'message', 'condition'
  [14:55:51.445]  - resignal = FALSE
  [14:55:51.991]  - Condition #636: 'simpleMessage', 'message', 'condition'
  [14:55:51.445]  - Number of conditions: 2
  [14:55:51.992]  - Condition #637: 'simpleMessage', 'message', 'condition'
  [14:55:51.445] signalConditions() ... done
  [14:55:51.992]  - Condition #638: 'simpleMessage', 'message', 'condition'
  [14:55:51.445] signalConditionsASAP(ClusterFuture, pos=2) ...
  [14:55:51.992]  - Condition #639: 'simpleMessage', 'message', 'condition'
  [14:55:51.446] - nx: 2
  [14:55:51.993]  - Condition #640: 'simpleMessage', 'message', 'condition'
  [14:55:51.446] - relay: TRUE
  [14:55:51.993]  - Condition #641: 'simpleMessage', 'message', 'condition'
  [14:55:51.446] - stdout: TRUE
  [14:55:51.993]  - Condition #642: 'simpleMessage', 'message', 'condition'
  [14:55:51.446] - signal: TRUE
  [14:55:51.993]  - Condition #643: 'simpleMessage', 'message', 'condition'
  [14:55:51.447] - resignal: FALSE
  [14:55:51.994]  - Condition #644: 'simpleMessage', 'message', 'condition'
  [14:55:51.447] - force: FALSE
  [14:55:51.994]  - Condition #645: 'simpleMessage', 'message', 'condition'
  [14:55:51.447] - relayed: [n=2] TRUE, FALSE
  [14:55:51.994]  - Condition #646: 'simpleMessage', 'message', 'condition'
  [14:55:51.447] - queued futures: [n=2] TRUE, FALSE
  [14:55:51.995]  - Condition #647: 'simpleMessage', 'message', 'condition'
  [14:55:51.448]  - until=2
  [14:55:51.995]  - Condition #648: 'simpleMessage', 'message', 'condition'
  [14:55:51.448]  - relaying element #2
  [14:55:51.995]  - Condition #649: 'simpleMessage', 'message', 'condition'
  [14:55:51.464] result() for ClusterFuture ...
  [14:55:51.996]  - Condition #650: 'simpleMessage', 'message', 'condition'
  [14:55:51.465] - result already collected: FutureResult
  [14:55:51.996]  - Condition #651: 'simpleMessage', 'message', 'condition'
  [14:55:51.465] result() for ClusterFuture ... done
  [14:55:52.001]  - Condition #652: 'simpleMessage', 'message', 'condition'
  [14:55:51.465] result() for ClusterFuture ...
  [14:55:52.001]  - Condition #653: 'simpleMessage', 'message', 'condition'
  [14:55:51.465] - result already collected: FutureResult
  [14:55:52.002]  - Condition #654: 'simpleMessage', 'message', 'condition'
  [14:55:51.466] result() for ClusterFuture ... done
  [14:55:52.002]  - Condition #655: 'simpleMessage', 'message', 'condition'
  [14:55:51.466] signalConditions() ...
  [14:55:52.002]  - Condition #656: 'simpleMessage', 'message', 'condition'
  [14:55:51.466]  - include = 'immediateCondition'
  [14:55:52.003]  - Condition #657: 'simpleMessage', 'message', 'condition'
  [14:55:51.466]  - exclude = 
  [14:55:52.003]  - Condition #658: 'simpleMessage', 'message', 'condition'
  [14:55:51.467]  - resignal = FALSE
  [14:55:52.003]  - Condition #659: 'simpleMessage', 'message', 'condition'
  [14:55:51.467]  - Number of conditions: 2
  [14:55:52.004]  - Condition #660: 'simpleMessage', 'message', 'condition'
  [14:55:51.467] signalConditions() ... done
  [14:55:52.004]  - Condition #661: 'simpleMessage', 'message', 'condition'
  [14:55:51.467] result() for ClusterFuture ...
  [14:55:52.004]  - Condition #662: 'simpleMessage', 'message', 'condition'
  [14:55:51.468] - result already collected: FutureResult
  [14:55:52.005]  - Condition #663: 'simpleMessage', 'message', 'condition'
  [14:55:51.468] result() for ClusterFuture ... done
  [14:55:52.005]  - Condition #664: 'simpleMessage', 'message', 'condition'
  [14:55:51.468] signalConditions() ...
  [14:55:52.005]  - Condition #665: 'simpleMessage', 'message', 'condition'
  [14:55:51.468]  - include = 'immediateCondition'
  [14:55:52.005]  - Condition #666: 'simpleMessage', 'message', 'condition'
  [14:55:51.469]  - exclude = 
  [14:55:52.006]  - Condition #667: 'simpleMessage', 'message', 'condition'
  [14:55:51.469]  - resignal = FALSE
  [14:55:52.006]  - Condition #668: 'simpleMessage', 'message', 'condition'
  [14:55:51.469]  - Number of conditions: 2
  [14:55:52.006]  - Condition #669: 'simpleMessage', 'message', 'condition'
  [14:55:51.469] signalConditions() ... done
  [14:55:52.007]  - Condition #670: 'simpleMessage', 'message', 'condition'
  [14:55:51.470] result() for ClusterFuture ...
  [14:55:52.007]  - Condition #671: 'simpleMessage', 'message', 'condition'
  [14:55:51.470] - result already collected: FutureResult
  [14:55:52.007]  - Condition #672: 'simpleMessage', 'message', 'condition'
  [14:55:51.470] result() for ClusterFuture ... done
  [14:55:52.008]  - Condition #673: 'simpleMessage', 'message', 'condition'
  [14:55:51.471] signalConditions() ...
  [14:55:52.008]  - Condition #674: 'simpleMessage', 'message', 'condition'
  [14:55:51.471]  - include = 'condition'
  [14:55:52.008]  - Condition #675: 'simpleMessage', 'message', 'condition'
  [14:55:51.471]  - exclude = 'immediateCondition'
  [14:55:52.009]  - Condition #676: 'simpleMessage', 'message', 'condition'
  [14:55:51.471]  - resignal = FALSE
  [14:55:52.009]  - Condition #677: 'simpleMessage', 'message', 'condition'
  [14:55:51.472]  - Number of conditions: 2
  [14:55:52.009]  - Condition #678: 'simpleMessage', 'message', 'condition'
  [14:55:51.472]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:55:52.022]  - Condition #679: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (..., envir = parent.frame())- tweaked: FALSE- call: NULL
  [14:55:52.023]  - Condition #680: 'simpleMessage', 'message', 'condition'
  [14:55:51.472]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:55:52.023]  - Condition #681: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (..., envir = parent.frame())- tweaked: FALSE- call: NULL
  [14:55:52.023]  - Condition #682: 'simpleMessage', 'message', 'condition'
  [14:55:51.473] signalConditions() ... done
  [14:55:52.024]  - Condition #683: 'simpleMessage', 'message', 'condition'
  [14:55:51.473] - relayed: [n=2] TRUE, TRUE
  [14:55:52.024]  - Condition #684: 'simpleMessage', 'message', 'condition'
  [14:55:51.473] - queued futures: [n=2] TRUE, TRUE
  [14:55:52.024]  - Condition #685: 'simpleMessage', 'message', 'condition'
  [14:55:51.473] signalConditionsASAP(ClusterFuture, pos=2) ... done
  [14:55:52.025]  - Condition #686: 'simpleMessage', 'message', 'condition'
  [14:55:51.474]  length: 0 (resolved future 2)
  [14:55:52.025]  - Condition #687: 'simpleMessage', 'message', 'condition'
  [14:55:51.474] Relaying remaining futures
  [14:55:52.025]  - Condition #688: 'simpleMessage', 'message', 'condition'
  [14:55:51.474] signalConditionsASAP(NULL, pos=0) ...
  [14:55:52.026]  - Condition #689: 'simpleMessage', 'message', 'condition'
  [14:55:51.474] - nx: 2
  [14:55:52.026]  - Condition #690: 'simpleMessage', 'message', 'condition'
  [14:55:51.475] - relay: TRUE
  [14:55:52.026]  - Condition #691: 'simpleMessage', 'message', 'condition'
  [14:55:51.475] - stdout: TRUE
  [14:55:52.027]  - Condition #692: 'simpleMessage', 'message', 'condition'
  [14:55:51.475] - signal: TRUE
  [14:55:52.027]  - Condition #693: 'simpleMessage', 'message', 'condition'
  [14:55:51.475] - resignal: FALSE
  [14:55:52.027]  - Condition #694: 'simpleMessage', 'message', 'condition'
  [14:55:51.476] - force: FALSE
  [14:55:52.027]  - Condition #695: 'simpleMessage', 'message', 'condition'
  [14:55:51.476] - relayed: [n=2] TRUE, TRUE
  [14:55:52.028]  - Condition #696: 'simpleMessage', 'message', 'condition'
  [14:55:51.476] - queued futures: [n=2] TRUE, TRUE
  [14:55:52.028]  - Condition #697: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:55:52.028]  - Condition #698: 'simpleMessage', 'message', 'condition'
  [14:55:51.477] - relayed: [n=2] TRUE, TRUE
  [14:55:52.029]  - Condition #699: 'simpleMessage', 'message', 'condition'
  [14:55:51.477] - queued futures: [n=2] TRUE, TRUE
  [14:55:52.029]  - Condition #700: 'simpleMessage', 'message', 'condition'
  [14:55:51.477] signalConditionsASAP(NULL, pos=0) ... done
  [14:55:52.029]  - Condition #701: 'simpleMessage', 'message', 'condition'
  [14:55:51.477] resolve() on list ... DONE
  [14:55:52.030]  - Condition #702: 'simpleMessage', 'message', 'condition'
  [14:55:51.478] - collecting values of futures
  [14:55:52.030]  - Condition #703: 'simpleMessage', 'message', 'condition'
  [14:55:51.478] result() for ClusterFuture ...
  [14:55:52.030]  - Condition #704: 'simpleMessage', 'message', 'condition'
  [14:55:51.478] - result already collected: FutureResult
  [14:55:52.031]  - Condition #705: 'simpleMessage', 'message', 'condition'
  [14:55:51.479] result() for ClusterFuture ... done
  [14:55:52.031]  - Condition #706: 'simpleMessage', 'message', 'condition'
  [14:55:51.479] result() for ClusterFuture ...
  [14:55:52.031]  - Condition #707: 'simpleMessage', 'message', 'condition'
  [14:55:51.479] - result already collected: FutureResult
  [14:55:52.031]  - Condition #708: 'simpleMessage', 'message', 'condition'
  [14:55:51.479] result() for ClusterFuture ... done
  [14:55:52.032]  - Condition #709: 'simpleMessage', 'message', 'condition'
  [14:55:51.480] signalConditions() ...
  [14:55:52.032]  - Condition #710: 'simpleMessage', 'message', 'condition'
  [14:55:51.480]  - include = 'immediateCondition'
  [14:55:52.032]  - Condition #711: 'simpleMessage', 'message', 'condition'
  [14:55:51.480]  - exclude = 
  [14:55:52.033]  - Condition #712: 'simpleMessage', 'message', 'condition'
  [14:55:51.497]  - resignal = FALSE
  [14:55:52.033]  - Condition #713: 'simpleMessage', 'message', 'condition'
  [14:55:51.497]  - Number of conditions: 1
  [14:55:52.033]  - Condition #714: 'simpleMessage', 'message', 'condition'
  [14:55:51.497] signalConditions() ... done
  [14:55:52.034]  - Condition #715: 'simpleMessage', 'message', 'condition'
  [14:55:51.498] result() for ClusterFuture ...
  [14:55:52.034]  - Condition #716: 'simpleMessage', 'message', 'condition'
  [14:55:51.498] - result already collected: FutureResult
  [14:55:52.034]  - Condition #717: 'simpleMessage', 'message', 'condition'
  [14:55:51.498] result() for ClusterFuture ... done
  [14:55:52.035]  - Condition #718: 'simpleMessage', 'message', 'condition'
  [14:55:51.498] result() for ClusterFuture ...
  [14:55:52.035]  - Condition #719: 'simpleMessage', 'message', 'condition'
  [14:55:51.499] - result already collected: FutureResult
  [14:55:52.035]  - Condition #720: 'simpleMessage', 'message', 'condition'
  [14:55:51.499] result() for ClusterFuture ... done
  [14:55:52.035]  - Condition #721: 'simpleMessage', 'message', 'condition'
  [14:55:51.499] signalConditions() ...
  [14:55:52.036]  - Condition #722: 'simpleMessage', 'message', 'condition'
  [14:55:51.499]  - include = 'immediateCondition'
  [14:55:52.036]  - Condition #723: 'simpleMessage', 'message', 'condition'
  [14:55:51.500]  - exclude = 
  [14:55:52.036]  - Condition #724: 'simpleMessage', 'message', 'condition'
  [14:55:51.500]  - resignal = FALSE
  [14:55:52.037]  - Condition #725: 'simpleMessage', 'message', 'condition'
  [14:55:51.500]  - Number of conditions: 2
  [14:55:52.037]  - Condition #726: 'simpleMessage', 'message', 'condition'
  [14:55:51.501] signalConditions() ... done
  [14:55:52.037]  - Condition #727: 'simpleMessage', 'message', 'condition'
  [14:55:51.501] - accumulating results
  [14:55:52.038]  - Condition #728: 'simpleMessage', 'message', 'condition'
  [14:55:51.502] - processing errors (handler = 'stop')
  [14:55:52.038]  - Condition #729: 'simpleMessage', 'message', 'condition'
  [14:55:51.502] - extracting results
  [14:55:52.038]  - Condition #730: 'simpleMessage', 'message', 'condition'
  [14:55:51.503] doFuture() ... DONE
  [14:55:52.038]  - Condition #731: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:55:52.039] signalConditions() ... done
  [14:55:52.040] - relayed: [n=1] TRUE
  [14:55:52.040] - queued futures: [n=1] TRUE
  [14:55:52.040] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:55:52.040]  length: 0 (resolved future 1)
  [14:55:52.041] Relaying remaining futures
  [14:55:52.041] signalConditionsASAP(NULL, pos=0) ...
  [14:55:52.041] - nx: 1
  [14:55:52.041] - relay: TRUE
  [14:55:52.041] - stdout: TRUE
  [14:55:52.041] - signal: TRUE
  [14:55:52.042] - resignal: FALSE
  [14:55:52.042] - force: FALSE
  [14:55:52.042] - relayed: [n=1] TRUE
  [14:55:52.042] - queued futures: [n=1] TRUE
   - flush all
  [14:55:52.042] - relayed: [n=1] TRUE
  [14:55:52.043] - queued futures: [n=1] TRUE
  [14:55:52.043] signalConditionsASAP(NULL, pos=0) ... done
  [14:55:52.043] resolve() on list ... DONE
  [14:55:52.043] - collecting values of futures
  [14:55:52.043] signalConditions() ...
  [14:55:52.044]  - include = 'immediateCondition'
  [14:55:52.044]  - exclude = 
  [14:55:52.044]  - resignal = FALSE
  [14:55:52.046]  - Number of conditions: 731
  [14:55:52.047] signalConditions() ... done
  [14:55:52.047] - accumulating results
  [14:55:52.048] - processing errors (handler = 'stop')
  [14:55:52.048] - extracting results
  [14:55:52.048] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('sequential', 'cluster')) ... DONE
  - plan(list('multicore', 'sequential')) ...
  [14:55:52.049] plan(): Setting new future strategy stack:
  [14:55:52.050] List of future strategies:
  [14:55:52.050] 1. multicore:
  [14:55:52.050]    - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame())
  [14:55:52.050]    - tweaked: FALSE
  [14:55:52.050]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:52.050] 2. sequential:
  [14:55:52.050]    - args: function (..., envir = parent.frame())
  [14:55:52.050]    - tweaked: FALSE
  [14:55:52.050]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:52.068] plan(): nbrOfWorkers() = 2
  foreach() - level 1 ...
  [14:55:52.068] doFuture() ...
  [14:55:52.069] - dummy globals (as locals): [1] 'a'
  [14:55:52.070] - R expression:
  [14:55:52.070] {
  [14:55:52.070]     doFuture::registerDoFuture()
  [14:55:52.070]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:52.070]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:52.070]         a <- NULL
  [14:55:52.070]         ...future.env <- environment()
  [14:55:52.070]         local({
  [14:55:52.070]             for (name in names(...future.x_jj)) {
  [14:55:52.070]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:52.070]                   inherits = FALSE)
  [14:55:52.070]             }
  [14:55:52.070]         })
  [14:55:52.070]         tryCatch({
  [14:55:52.070]             plan_list <- future::plan("next")
  [14:55:52.070]             stopifnot(inherits(plan_list, strategy2))
  [14:55:52.070]             plan_a <- future::plan("list")
  [14:55:52.070]             str(plan_a)
  [14:55:52.070]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:55:52.070]             message("foreach() - level 2 ...")
  [14:55:52.070]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:55:52.070]                 {
  [14:55:52.070]                   plan_list <- future::plan("next")
  [14:55:52.070]                   message(capture.output(print(plan_list)))
  [14:55:52.070]                   stopifnot(inherits(plan_list, "future"))
  [14:55:52.070]                   default <- getOption("future.plan", "sequential")
  [14:55:52.070]                   if (is.function(default)) 
  [14:55:52.070]                     default <- class(default)
  [14:55:52.070]                   stopifnot(inherits(plan_list, default))
  [14:55:52.070]                   plan_b <- future::plan("list")
  [14:55:52.070]                   str(plan_b)
  [14:55:52.070]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:52.070]                     inherits(plan_b[[1]], default))
  [14:55:52.070]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:52.070]                 }
  [14:55:52.070]             message("foreach() - level 2 ... DONE")
  [14:55:52.070]             y
  [14:55:52.070]         }, error = identity)
  [14:55:52.070]     })
  [14:55:52.070] }
  [14:55:52.071] - identifying globals and packages ...
  [14:55:52.071] getGlobalsAndPackages() ...
  [14:55:52.071] Retrieving 'add' globals ...
  [14:55:52.072] - 'add' globals retrieved: [2] 'bs', 'strategy2'
  [14:55:52.072] Retrieving 'add' globals ... DONE
  [14:55:52.072] Searching for globals...
  [14:55:52.113] - 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:55:52.113] Searching for globals ... DONE
  [14:55:52.114] Resolving globals: FALSE
  [14:55:52.116] The total size of the 3 globals is 184 bytes (184 bytes)
  [14:55:52.117] The total size of the 3 globals exported for future expression ('{; doFuture::registerDoFuture(); lapply(seq_along(...future.x_ii), FUN = function(jj) {; ...future.x_jj <- ...future.x_ii[[jj]]; a <- NULL; ...future.env <- environment(); ...; }, error = identity); }); }') is 184 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: 'strategy2' (120 bytes of class 'character'), 'bs' (64 bytes of class 'numeric') and '...future.x_ii' (0 bytes of class 'NULL')
  [14:55:52.117] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:55:52.117] - packages: [2] 'utils', 'foreach'
  [14:55:52.118] getGlobalsAndPackages() ... DONE
  [14:55:52.118] List of 3
  [14:55:52.118]  $ ...future.x_ii: NULL
  [14:55:52.118]  $ strategy2     : chr "sequential"
  [14:55:52.118]  $ bs            : int [1:3] 3 2 1
  [14:55:52.118]  - attr(*, "where")=List of 3
  [14:55:52.118]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:52.118]   ..$ strategy2     :<environment: R_EmptyEnv> 
  [14:55:52.118]   ..$ bs            :<environment: R_EmptyEnv> 
  [14:55:52.118]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:52.118]  - attr(*, "resolved")= logi FALSE
  [14:55:52.118]  - attr(*, "total_size")= num 184
  [14:55:52.125]   - R expression:
  [14:55:52.125] {
  [14:55:52.125]     doFuture::registerDoFuture()
  [14:55:52.125]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:52.125]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:52.125]         a <- NULL
  [14:55:52.125]         ...future.env <- environment()
  [14:55:52.125]         local({
  [14:55:52.125]             for (name in names(...future.x_jj)) {
  [14:55:52.125]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:52.125]                   inherits = FALSE)
  [14:55:52.125]             }
  [14:55:52.125]         })
  [14:55:52.125]         tryCatch({
  [14:55:52.125]             plan_list <- future::plan("next")
  [14:55:52.125]             stopifnot(inherits(plan_list, strategy2))
  [14:55:52.125]             plan_a <- future::plan("list")
  [14:55:52.125]             str(plan_a)
  [14:55:52.125]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:55:52.125]             message("foreach() - level 2 ...")
  [14:55:52.125]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:55:52.125]                 {
  [14:55:52.125]                   plan_list <- future::plan("next")
  [14:55:52.125]                   message(capture.output(print(plan_list)))
  [14:55:52.125]                   stopifnot(inherits(plan_list, "future"))
  [14:55:52.125]                   default <- getOption("future.plan", "sequential")
  [14:55:52.125]                   if (is.function(default)) 
  [14:55:52.125]                     default <- class(default)
  [14:55:52.125]                   stopifnot(inherits(plan_list, default))
  [14:55:52.125]                   plan_b <- future::plan("list")
  [14:55:52.125]                   str(plan_b)
  [14:55:52.125]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:52.125]                     inherits(plan_b[[1]], default))
  [14:55:52.125]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:52.125]                 }
  [14:55:52.125]             message("foreach() - level 2 ... DONE")
  [14:55:52.125]             y
  [14:55:52.125]         }, error = identity)
  [14:55:52.125]     })
  [14:55:52.125] }
  [14:55:52.126]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:55:52.126] List of 3
  [14:55:52.126]  $ ...future.x_ii: NULL
  [14:55:52.126]  $ strategy2     : chr "sequential"
  [14:55:52.126]  $ bs            : int [1:3] 3 2 1
  [14:55:52.126]  - attr(*, "where")=List of 3
  [14:55:52.126]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:52.126]   ..$ strategy2     :<environment: R_EmptyEnv> 
  [14:55:52.126]   ..$ bs            :<environment: R_EmptyEnv> 
  [14:55:52.126]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:52.126]  - attr(*, "resolved")= logi FALSE
  [14:55:52.126]  - attr(*, "total_size")= num 184
  [14:55:52.133]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [14:55:52.133] - identifying globals and packages ... DONE
  [14:55:52.174] Number of chunks: 2
  [14:55:52.175] Number of futures (= number of chunks): 2
  [14:55:52.175] Launching 2 futures (chunks) ...
  [14:55:52.175] Chunk #1 of 2 ...
  [14:55:52.175]  - Finding globals in 'args_list' chunk #1 ...
  [14:55:52.175] getGlobalsAndPackages() ...
  [14:55:52.176] Searching for globals...
  [14:55:52.176] 
  [14:55:52.177] Searching for globals ... DONE
  [14:55:52.177] - globals: [0] <none>
  [14:55:52.177] getGlobalsAndPackages() ... DONE
  [14:55:52.177] 
  [14:55:52.178] 
  [14:55:52.178]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:55:52.178] getGlobalsAndPackages() ...
  [14:55:52.178] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:55:52.179] Resolving globals: FALSE
  [14:55:52.179] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:55:52.180] 
  [14:55:52.180] getGlobalsAndPackages() ... DONE
  [14:55:52.181] run() for 'Future' ...
  [14:55:52.181] - state: 'created'
  [14:55:52.181] - Future backend: 'FutureStrategy', 'multicore', 'multiprocess', 'future', 'function'
  [14:55:52.211] assign_globals() ...
  [14:55:52.211] List of 3
  [14:55:52.211]  $ ...future.x_ii:List of 1
  [14:55:52.211]   ..$ :List of 1
  [14:55:52.211]   .. ..$ a: int 1
  [14:55:52.211]  $ strategy2     : chr "sequential"
  [14:55:52.211]  $ bs            : int [1:3] 3 2 1
  [14:55:52.211]  - attr(*, "where")=List of 3
  [14:55:52.211]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:52.211]   ..$ strategy2     :<environment: R_EmptyEnv> 
  [14:55:52.211]   ..$ bs            :<environment: R_EmptyEnv> 
  [14:55:52.211]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:52.211]  - attr(*, "resolved")= logi FALSE
  [14:55:52.211]  - attr(*, "total_size")= num 184
  [14:55:52.211]  - attr(*, "already-done")= logi TRUE
  [14:55:52.245] - copied '...future.x_ii' to environment
  [14:55:52.245] - copied 'strategy2' to environment
  [14:55:52.245] - copied 'bs' to environment
  [14:55:52.245] List of 3
  [14:55:52.245]  $ ...future.x_ii:List of 1
  [14:55:52.245]   ..$ :List of 1
  [14:55:52.245]   .. ..$ a: int 1
  [14:55:52.245]  $ strategy2     : chr "sequential"
  [14:55:52.245]  $ bs            : int [1:3] 3 2 1
  [14:55:52.245]  - attr(*, "where")=List of 3
  [14:55:52.245]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:52.245]   ..$ strategy2     :<environment: R_EmptyEnv> 
  [14:55:52.245]   ..$ bs            :<environment: R_EmptyEnv> 
  [14:55:52.245]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:52.245]  - attr(*, "resolved")= logi FALSE
  [14:55:52.245]  - attr(*, "total_size")= num 184
  [14:55:52.245]  - attr(*, "already-done")= logi TRUE
  [14:55:52.267] assign_globals() ... done
  [14:55:52.268] - Future class: 'MulticoreFuture', 'MultiprocessFuture', 'Future', 'environment'
  [14:55:52.268] - Copy elements of temporary 'MulticoreFuture' to final 'Future' object ...
  [14:55:52.268]   - Field: 'label'
  [14:55:52.268]   - Field: 'local'
  [14:55:52.269]   - Field: 'owner'
  [14:55:52.269]   - Field: 'envir'
  [14:55:52.269]   - Field: 'workers'
  [14:55:52.269]   - Field: 'packages'
  [14:55:52.270]   - Field: 'gc'
  [14:55:52.270]   - Field: 'job'
  [14:55:52.270]   - Field: 'conditions'
  [14:55:52.270]   - Field: 'persistent'
  [14:55:52.271]   - Field: 'expr'
  [14:55:52.271]   - Field: 'uuid'
  [14:55:52.271]   - Field: 'seed'
  [14:55:52.271]   - Field: 'version'
  [14:55:52.271]   - Field: 'result'
  [14:55:52.272]   - Field: 'asynchronous'
  [14:55:52.272]   - Field: 'calls'
  [14:55:52.272]   - Field: 'globals'
  [14:55:52.272]   - Field: 'stdout'
  [14:55:52.273]   - Field: 'earlySignal'
  [14:55:52.273]   - Field: 'lazy'
  [14:55:52.273]   - Field: 'state'
  [14:55:52.273] - Copy elements of temporary 'MulticoreFuture' to final 'Future' object ... done
  [14:55:52.274] - Launch lazy future ...
  [14:55:52.274] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [14:55:52.275] Packages needed by future strategies (n = 1): 'future'
  [14:55:52.276] {
  [14:55:52.276]     {
  [14:55:52.276]         ...future.startTime <- base::Sys.time()
  [14:55:52.276]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:55:52.276]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:55:52.276]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:55:52.276]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:55:52.276]             future.resolve.recursive = NULL, future.rng.onMisuse = NULL, 
  [14:55:52.276]             future.rng.onMisuse.keepFuture = NULL, future.stdout.windows.reencode = NULL, 
  [14:55:52.276]             width = 80L)
  [14:55:52.276]         {
  [14:55:52.276]             {
  [14:55:52.276]                 {
  [14:55:52.276]                   {
  [14:55:52.276]                     base::local({
  [14:55:52.276]                       has_future <- base::requireNamespace("future", 
  [14:55:52.276]                         quietly = TRUE)
  [14:55:52.276]                       if (has_future) {
  [14:55:52.276]                         ns <- base::getNamespace("future")
  [14:55:52.276]                         version <- ns[[".package"]][["version"]]
  [14:55:52.276]                         if (is.null(version)) 
  [14:55:52.276]                           version <- utils::packageVersion("future")
  [14:55:52.276]                       }
  [14:55:52.276]                       else {
  [14:55:52.276]                         version <- NULL
  [14:55:52.276]                       }
  [14:55:52.276]                       if (!has_future || version < "1.8.0") {
  [14:55:52.276]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:55:52.276]                           "", base::R.version$version.string), 
  [14:55:52.276]                           platform = base::sprintf("%s (%s-bit)", 
  [14:55:52.276]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:55:52.276]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:55:52.276]                             "release", "version")], collapse = " "), 
  [14:55:52.276]                           hostname = base::Sys.info()[["nodename"]])
  [14:55:52.276]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:55:52.276]                           info)
  [14:55:52.276]                         info <- base::paste(info, collapse = "; ")
  [14:55:52.276]                         if (!has_future) {
  [14:55:52.276]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:55:52.276]                             info)
  [14:55:52.276]                         }
  [14:55:52.276]                         else {
  [14:55:52.276]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:55:52.276]                             info, version)
  [14:55:52.276]                         }
  [14:55:52.276]                         base::stop(msg)
  [14:55:52.276]                       }
  [14:55:52.276]                     })
  [14:55:52.276]                   }
  [14:55:52.276]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:55:52.276]                   base::options(mc.cores = 1L)
  [14:55:52.276]                 }
  [14:55:52.276]                 base::local({
  [14:55:52.276]                   for (pkg in c("doFuture", "utils", "foreach", 
  [14:55:52.276]                   "future")) {
  [14:55:52.276]                     base::loadNamespace(pkg)
  [14:55:52.276]                     base::library(pkg, character.only = TRUE)
  [14:55:52.276]                   }
  [14:55:52.276]                 })
  [14:55:52.276]             }
  [14:55:52.276]             options(future.plan = NULL)
  [14:55:52.276]             Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:52.276]             future::plan(list(b = function (..., envir = parent.frame()) 
  [14:55:52.276]             {
  [14:55:52.276]                 future <- SequentialFuture(..., envir = envir)
  [14:55:52.276]                 if (!future$lazy) 
  [14:55:52.276]                   future <- run(future)
  [14:55:52.276]                 invisible(future)
  [14:55:52.276]             }), .cleanup = FALSE, .init = FALSE)
  [14:55:52.276]         }
  [14:55:52.276]     }
  [14:55:52.276]     if (FALSE) {
  [14:55:52.276]     }
  [14:55:52.276]     else {
  [14:55:52.276]         if (TRUE) {
  [14:55:52.276]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:55:52.276]                 open = "w")
  [14:55:52.276]         }
  [14:55:52.276]         else {
  [14:55:52.276]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:55:52.276]                 windows = "NUL", "/dev/null"), open = "w")
  [14:55:52.276]         }
  [14:55:52.276]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:55:52.276]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:55:52.276]             base::sink(type = "output", split = FALSE)
  [14:55:52.276]             base::close(...future.stdout)
  [14:55:52.276]         }, add = TRUE)
  [14:55:52.276]     }
  [14:55:52.276]     ...future.frame <- base::sys.nframe()
  [14:55:52.276]     ...future.conditions <- base::list()
  [14:55:52.276]     ...future.rng <- base::globalenv()$.Random.seed
  [14:55:52.276]     ...future.result <- base::tryCatch({
  [14:55:52.276]         base::withCallingHandlers({
  [14:55:52.276]             ...future.value <- base::withVisible(base::local({
  [14:55:52.276]                 withCallingHandlers({
  [14:55:52.276]                   {
  [14:55:52.276]                     doFuture::registerDoFuture()
  [14:55:52.276]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:52.276]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:52.276]                       a <- NULL
  [14:55:52.276]                       ...future.env <- environment()
  [14:55:52.276]                       local({
  [14:55:52.276]                         for (name in names(...future.x_jj)) {
  [14:55:52.276]                           assign(name, ...future.x_jj[[name]], 
  [14:55:52.276]                             envir = ...future.env, inherits = FALSE)
  [14:55:52.276]                         }
  [14:55:52.276]                       })
  [14:55:52.276]                       tryCatch({
  [14:55:52.276]                         plan_list <- future::plan("next")
  [14:55:52.276]                         stopifnot(inherits(plan_list, strategy2))
  [14:55:52.276]                         plan_a <- future::plan("list")
  [14:55:52.276]                         str(plan_a)
  [14:55:52.276]                         stopifnot(inherits(plan_a[[1]], strategy2))
  [14:55:52.276]                         message("foreach() - level 2 ...")
  [14:55:52.276]                         y <- foreach(b = bs, .export = c("a", 
  [14:55:52.276]                           "plan_a")) %dopar% {
  [14:55:52.276]                           plan_list <- future::plan("next")
  [14:55:52.276]                           message(capture.output(print(plan_list)))
  [14:55:52.276]                           stopifnot(inherits(plan_list, "future"))
  [14:55:52.276]                           default <- getOption("future.plan", 
  [14:55:52.276]                             "sequential")
  [14:55:52.276]                           if (is.function(default)) 
  [14:55:52.276]                             default <- class(default)
  [14:55:52.276]                           stopifnot(inherits(plan_list, default))
  [14:55:52.276]                           plan_b <- future::plan("list")
  [14:55:52.276]                           str(plan_b)
  [14:55:52.276]                           stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:52.276]                             inherits(plan_b[[1]], default))
  [14:55:52.276]                           list(a = a, plan_a = plan_a, b = b, 
  [14:55:52.276]                             plan_b = plan_b)
  [14:55:52.276]                         }
  [14:55:52.276]                         message("foreach() - level 2 ... DONE")
  [14:55:52.276]                         y
  [14:55:52.276]                       }, error = identity)
  [14:55:52.276]                     })
  [14:55:52.276]                   }
  [14:55:52.276]                 }, immediateCondition = function(cond) {
  [14:55:52.276]                   obj <- list(time = Sys.time(), condition = cond)
  [14:55:52.276]                   file <- tempfile(class(cond)[1], tmpdir = "/home/hornik/tmp/scratch/RtmplLCzy6/.future/immediateConditions", 
  [14:55:52.276]                     fileext = ".rds")
  [14:55:52.276]                   save_rds <- function (object, pathname, ...) 
  [14:55:52.276]                   {
  [14:55:52.276]                     pathname_tmp <- sprintf("%s.tmp", pathname)
  [14:55:52.276]                     if (file_test("-f", pathname_tmp)) {
  [14:55:52.276]                       fi_tmp <- file.info(pathname_tmp)
  [14:55:52.276]                       stopf("Cannot save RDS file because a temporary save file already exists: %s (%0.f bytes; last modified on %s)", 
  [14:55:52.276]                         sQuote(pathname_tmp), fi_tmp[["size"]], 
  [14:55:52.276]                         fi_tmp[["mtime"]])
  [14:55:52.276]                     }
  [14:55:52.276]                     tryCatch({
  [14:55:52.276]                       saveRDS(object, file = pathname_tmp, ...)
  [14:55:52.276]                     }, error = function(ex) {
  [14:55:52.276]                       msg <- conditionMessage(ex)
  [14:55:52.276]                       fi_tmp <- file.info(pathname_tmp)
  [14:55:52.276]                       msg <- sprintf("saveRDS() failed to save to temporary file %s (%.0f bytes; last modified on %s). The reason was: %s", 
  [14:55:52.276]                         sQuote(pathname_tmp), fi_tmp[["size"]], 
  [14:55:52.276]                         fi_tmp[["mtime"]], msg)
  [14:55:52.276]                       ex$message <- msg
  [14:55:52.276]                       stop(ex)
  [14:55:52.276]                     })
  [14:55:52.276]                     stopifnot(file_test("-f", pathname_tmp))
  [14:55:52.276]                     res <- file.rename(from = pathname_tmp, to = pathname)
  [14:55:52.276]                     if (!res || file_test("-f", pathname_tmp)) {
  [14:55:52.276]                       fi_tmp <- file.info(pathname_tmp)
  [14:55:52.276]                       fi <- file.info(pathname)
  [14:55:52.276]                       msg <- sprintf("save_rds() failed to rename temporary save file %s (%0.f bytes; last modified on %s) to %s (%0.f bytes; last modified on %s)", 
  [14:55:52.276]                         sQuote(pathname_tmp), fi_tmp[["size"]], 
  [14:55:52.276]                         fi_tmp[["mtime"]], sQuote(pathname), 
  [14:55:52.276]                         fi[["size"]], fi[["mtime"]])
  [14:55:52.276]                       stop(msg)
  [14:55:52.276]                     }
  [14:55:52.276]                     invisible(pathname)
  [14:55:52.276]                   }
  [14:55:52.276]                   save_rds(obj, file)
  [14:55:52.276]                   muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:52.276]                   {
  [14:55:52.276]                     inherits <- base::inherits
  [14:55:52.276]                     invokeRestart <- base::invokeRestart
  [14:55:52.276]                     is.null <- base::is.null
  [14:55:52.276]                     muffled <- FALSE
  [14:55:52.276]                     if (inherits(cond, "message")) {
  [14:55:52.276]                       muffled <- grepl(pattern, "muffleMessage")
  [14:55:52.276]                       if (muffled) 
  [14:55:52.276]                         invokeRestart("muffleMessage")
  [14:55:52.276]                     }
  [14:55:52.276]                     else if (inherits(cond, "warning")) {
  [14:55:52.276]                       muffled <- grepl(pattern, "muffleWarning")
  [14:55:52.276]                       if (muffled) 
  [14:55:52.276]                         invokeRestart("muffleWarning")
  [14:55:52.276]                     }
  [14:55:52.276]                     else if (inherits(cond, "condition")) {
  [14:55:52.276]                       if (!is.null(pattern)) {
  [14:55:52.276]                         computeRestarts <- base::computeRestarts
  [14:55:52.276]                         grepl <- base::grepl
  [14:55:52.276]                         restarts <- computeRestarts(cond)
  [14:55:52.276]                         for (restart in restarts) {
  [14:55:52.276]                           name <- restart$name
  [14:55:52.276]                           if (is.null(name)) 
  [14:55:52.276]                             next
  [14:55:52.276]                           if (!grepl(pattern, name)) 
  [14:55:52.276]                             next
  [14:55:52.276]                           invokeRestart(restart)
  [14:55:52.276]                           muffled <- TRUE
  [14:55:52.276]                           break
  [14:55:52.276]                         }
  [14:55:52.276]                       }
  [14:55:52.276]                     }
  [14:55:52.276]                     invisible(muffled)
  [14:55:52.276]                   }
  [14:55:52.276]                   muffleCondition(cond)
  [14:55:52.276]                 })
  [14:55:52.276]             }))
  [14:55:52.276]             future::FutureResult(value = ...future.value$value, 
  [14:55:52.276]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:52.276]                   ...future.rng), started = ...future.startTime, 
  [14:55:52.276]                 version = "1.8")
  [14:55:52.276]         }, condition = base::local({
  [14:55:52.276]             c <- base::c
  [14:55:52.276]             inherits <- base::inherits
  [14:55:52.276]             invokeRestart <- base::invokeRestart
  [14:55:52.276]             length <- base::length
  [14:55:52.276]             list <- base::list
  [14:55:52.276]             seq.int <- base::seq.int
  [14:55:52.276]             signalCondition <- base::signalCondition
  [14:55:52.276]             sys.calls <- base::sys.calls
  [14:55:52.276]             `[[` <- base::`[[`
  [14:55:52.276]             `+` <- base::`+`
  [14:55:52.276]             `<<-` <- base::`<<-`
  [14:55:52.276]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:55:52.276]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:55:52.276]                   3L)]
  [14:55:52.276]             }
  [14:55:52.276]             function(cond) {
  [14:55:52.276]                 is_error <- inherits(cond, "error")
  [14:55:52.276]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:55:52.276]                   NULL)
  [14:55:52.276]                 if (is_error) {
  [14:55:52.276]                   sessionInformation <- function() {
  [14:55:52.276]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:55:52.276]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:55:52.276]                       search = base::search(), system = base::Sys.info())
  [14:55:52.276]                   }
  [14:55:52.276]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:52.276]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:55:52.276]                     cond$call), session = sessionInformation(), 
  [14:55:52.276]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:55:52.276]                   signalCondition(cond)
  [14:55:52.276]                 }
  [14:55:52.276]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:55:52.276]                 "immediateCondition"))) {
  [14:55:52.276]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:55:52.276]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:52.276]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:55:52.276]                   if (TRUE && !signal) {
  [14:55:52.276]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:52.276]                     {
  [14:55:52.276]                       inherits <- base::inherits
  [14:55:52.276]                       invokeRestart <- base::invokeRestart
  [14:55:52.276]                       is.null <- base::is.null
  [14:55:52.276]                       muffled <- FALSE
  [14:55:52.276]                       if (inherits(cond, "message")) {
  [14:55:52.276]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:52.276]                         if (muffled) 
  [14:55:52.276]                           invokeRestart("muffleMessage")
  [14:55:52.276]                       }
  [14:55:52.276]                       else if (inherits(cond, "warning")) {
  [14:55:52.276]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:52.276]                         if (muffled) 
  [14:55:52.276]                           invokeRestart("muffleWarning")
  [14:55:52.276]                       }
  [14:55:52.276]                       else if (inherits(cond, "condition")) {
  [14:55:52.276]                         if (!is.null(pattern)) {
  [14:55:52.276]                           computeRestarts <- base::computeRestarts
  [14:55:52.276]                           grepl <- base::grepl
  [14:55:52.276]                           restarts <- computeRestarts(cond)
  [14:55:52.276]                           for (restart in restarts) {
  [14:55:52.276]                             name <- restart$name
  [14:55:52.276]                             if (is.null(name)) 
  [14:55:52.276]                               next
  [14:55:52.276]                             if (!grepl(pattern, name)) 
  [14:55:52.276]                               next
  [14:55:52.276]                             invokeRestart(restart)
  [14:55:52.276]                             muffled <- TRUE
  [14:55:52.276]                             break
  [14:55:52.276]                           }
  [14:55:52.276]                         }
  [14:55:52.276]                       }
  [14:55:52.276]                       invisible(muffled)
  [14:55:52.276]                     }
  [14:55:52.276]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:52.276]                   }
  [14:55:52.276]                 }
  [14:55:52.276]                 else {
  [14:55:52.276]                   if (TRUE) {
  [14:55:52.276]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:52.276]                     {
  [14:55:52.276]                       inherits <- base::inherits
  [14:55:52.276]                       invokeRestart <- base::invokeRestart
  [14:55:52.276]                       is.null <- base::is.null
  [14:55:52.276]                       muffled <- FALSE
  [14:55:52.276]                       if (inherits(cond, "message")) {
  [14:55:52.276]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:52.276]                         if (muffled) 
  [14:55:52.276]                           invokeRestart("muffleMessage")
  [14:55:52.276]                       }
  [14:55:52.276]                       else if (inherits(cond, "warning")) {
  [14:55:52.276]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:52.276]                         if (muffled) 
  [14:55:52.276]                           invokeRestart("muffleWarning")
  [14:55:52.276]                       }
  [14:55:52.276]                       else if (inherits(cond, "condition")) {
  [14:55:52.276]                         if (!is.null(pattern)) {
  [14:55:52.276]                           computeRestarts <- base::computeRestarts
  [14:55:52.276]                           grepl <- base::grepl
  [14:55:52.276]                           restarts <- computeRestarts(cond)
  [14:55:52.276]                           for (restart in restarts) {
  [14:55:52.276]                             name <- restart$name
  [14:55:52.276]                             if (is.null(name)) 
  [14:55:52.276]                               next
  [14:55:52.276]                             if (!grepl(pattern, name)) 
  [14:55:52.276]                               next
  [14:55:52.276]                             invokeRestart(restart)
  [14:55:52.276]                             muffled <- TRUE
  [14:55:52.276]                             break
  [14:55:52.276]                           }
  [14:55:52.276]                         }
  [14:55:52.276]                       }
  [14:55:52.276]                       invisible(muffled)
  [14:55:52.276]                     }
  [14:55:52.276]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:52.276]                   }
  [14:55:52.276]                 }
  [14:55:52.276]             }
  [14:55:52.276]         }))
  [14:55:52.276]     }, error = function(ex) {
  [14:55:52.276]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:55:52.276]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:52.276]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:55:52.276]     }, finally = {
  [14:55:52.276]         {
  [14:55:52.276]             {
  [14:55:52.276]                 NULL
  [14:55:52.276]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:55:52.276]             }
  [14:55:52.276]             options(future.plan = NULL)
  [14:55:52.276]             if (is.na(NA_character_)) 
  [14:55:52.276]                 Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:52.276]             else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:55:52.276]             future::plan(list(a = function (..., workers = availableCores(constraints = "multicore"), 
  [14:55:52.276]                 envir = parent.frame()) 
  [14:55:52.276]             {
  [14:55:52.276]                 default_workers <- missing(workers)
  [14:55:52.276]                 if (is.function(workers)) 
  [14:55:52.276]                   workers <- workers()
  [14:55:52.276]                 workers <- as.integer(workers)
  [14:55:52.276]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:55:52.276]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:55:52.276]                   if (default_workers) 
  [14:55:52.276]                     supportsMulticore(warn = TRUE)
  [14:55:52.276]                   return(sequential(..., envir = envir))
  [14:55:52.276]                 }
  [14:55:52.276]                 oopts <- options(mc.cores = workers)
  [14:55:52.276]                 on.exit(options(oopts))
  [14:55:52.276]                 future <- MulticoreFuture(..., workers = workers, 
  [14:55:52.276]                   envir = envir)
  [14:55:52.276]                 if (!future$lazy) 
  [14:55:52.276]                   future <- run(future)
  [14:55:52.276]                 invisible(future)
  [14:55:52.276]             }, b = function (..., envir = parent.frame()) 
  [14:55:52.276]             {
  [14:55:52.276]                 future <- SequentialFuture(..., envir = envir)
  [14:55:52.276]                 if (!future$lazy) 
  [14:55:52.276]                   future <- run(future)
  [14:55:52.276]                 invisible(future)
  [14:55:52.276]             }), .cleanup = FALSE, .init = FALSE)
  [14:55:52.276]         }
  [14:55:52.276]         base::options(...future.oldOptions)
  [14:55:52.276]     })
  [14:55:52.276]     if (TRUE) {
  [14:55:52.276]         base::sink(type = "output", split = FALSE)
  [14:55:52.276]         if (TRUE) {
  [14:55:52.276]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:55:52.276]         }
  [14:55:52.276]         else {
  [14:55:52.276]             ...future.result["stdout"] <- base::list(NULL)
  [14:55:52.276]         }
  [14:55:52.276]         base::close(...future.stdout)
  [14:55:52.276]         ...future.stdout <- NULL
  [14:55:52.276]     }
  [14:55:52.276]     ...future.result$conditions <- ...future.conditions
  [14:55:52.276]     ...future.result
  [14:55:52.276] }
  [14:55:52.296] requestCore(): workers = 2
  [14:55:52.301] MulticoreFuture started
  [14:55:52.301] - Launch lazy future ... done
  [14:55:52.302] run() for 'MulticoreFuture' ... done
  [14:55:52.302] Chunk #1 of 2 ... DONE
  [14:55:52.303] Chunk #2 of 2 ...
  [14:55:52.303]  - Finding globals in 'args_list' chunk #2 ...
  [14:55:52.303] getGlobalsAndPackages() ...
  [14:55:52.304] Searching for globals...
  [14:55:52.305] 
  [14:55:52.305] Searching for globals ... DONE
  [14:55:52.306] - globals: [0] <none>
  [14:55:52.306] getGlobalsAndPackages() ... DONE
  [14:55:52.306] 
  [14:55:52.307] 
  [14:55:52.307]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:55:52.307] getGlobalsAndPackages() ...
  [14:55:52.308] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:55:52.308] Resolving globals: FALSE
  [14:55:52.324] plan(): Setting new future strategy stack:
  [14:55:52.325] List of future strategies:
  [14:55:52.325] 1. sequential:
  [14:55:52.325]    - args: function (..., envir = parent.frame())
  [14:55:52.325]    - tweaked: FALSE
  [14:55:52.325]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:52.326] plan(): nbrOfWorkers() = 1
  [14:55:52.310] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:55:52.337] 
  [14:55:52.337] getGlobalsAndPackages() ... DONE
  [14:55:52.338] run() for 'Future' ...
  [14:55:52.338] - state: 'created'
  [14:55:52.339] - Future backend: 'FutureStrategy', 'multicore', 'multiprocess', 'future', 'function'
  [14:55:52.372] assign_globals() ...
  [14:55:52.373] List of 3
  [14:55:52.373]  $ ...future.x_ii:List of 1
  [14:55:52.373]   ..$ :List of 1
  [14:55:52.373]   .. ..$ a: int 2
  [14:55:52.373]  $ strategy2     : chr "sequential"
  [14:55:52.373]  $ bs            : int [1:3] 3 2 1
  [14:55:52.373]  - attr(*, "where")=List of 3
  [14:55:52.373]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:52.373]   ..$ strategy2     :<environment: R_EmptyEnv> 
  [14:55:52.373]   ..$ bs            :<environment: R_EmptyEnv> 
  [14:55:52.373]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:52.373]  - attr(*, "resolved")= logi FALSE
  [14:55:52.373]  - attr(*, "total_size")= num 184
  [14:55:52.373]  - attr(*, "already-done")= logi TRUE
  [14:55:52.384] - copied '...future.x_ii' to environment
  [14:55:52.384] - copied 'strategy2' to environment
  [14:55:52.397] - copied 'bs' to environment
  [14:55:52.397] List of 3
  [14:55:52.397]  $ ...future.x_ii:List of 1
  [14:55:52.397]   ..$ :List of 1
  [14:55:52.397]   .. ..$ a: int 2
  [14:55:52.397]  $ strategy2     : chr "sequential"
  [14:55:52.397]  $ bs            : int [1:3] 3 2 1
  [14:55:52.397]  - attr(*, "where")=List of 3
  [14:55:52.397]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:52.397]   ..$ strategy2     :<environment: R_EmptyEnv> 
  [14:55:52.397]   ..$ bs            :<environment: R_EmptyEnv> 
  [14:55:52.397]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:52.397]  - attr(*, "resolved")= logi FALSE
  [14:55:52.397]  - attr(*, "total_size")= num 184
  [14:55:52.397]  - attr(*, "already-done")= logi TRUE
  [14:55:52.408] assign_globals() ... done
  [14:55:52.425] - Future class: 'MulticoreFuture', 'MultiprocessFuture', 'Future', 'environment'
  [14:55:52.425] - Copy elements of temporary 'MulticoreFuture' to final 'Future' object ...
  [14:55:52.425]   - Field: 'label'
  [14:55:52.426]   - Field: 'local'
  [14:55:52.426]   - Field: 'owner'
  [14:55:52.426]   - Field: 'envir'
  [14:55:52.426]   - Field: 'workers'
  [14:55:52.427]   - Field: 'packages'
  [14:55:52.427]   - Field: 'gc'
  [14:55:52.427]   - Field: 'job'
  [14:55:52.427]   - Field: 'conditions'
  [14:55:52.428]   - Field: 'persistent'
  [14:55:52.428]   - Field: 'expr'
  [14:55:52.428]   - Field: 'uuid'
  [14:55:52.428]   - Field: 'seed'
  [14:55:52.429]   - Field: 'version'
  [14:55:52.429]   - Field: 'result'
  [14:55:52.429]   - Field: 'asynchronous'
  [14:55:52.429]   - Field: 'calls'
  [14:55:52.430]   - Field: 'globals'
  [14:55:52.430]   - Field: 'stdout'
  [14:55:52.430]   - Field: 'earlySignal'
  [14:55:52.430]   - Field: 'lazy'
  [14:55:52.431]   - Field: 'state'
  [14:55:52.431] - Copy elements of temporary 'MulticoreFuture' to final 'Future' object ... done
  [14:55:52.431] - Launch lazy future ...
  [14:55:52.432] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [14:55:52.432] Packages needed by future strategies (n = 1): 'future'
  [14:55:52.434] {
  [14:55:52.434]     {
  [14:55:52.434]         ...future.startTime <- base::Sys.time()
  [14:55:52.434]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:55:52.434]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:55:52.434]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:55:52.434]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:55:52.434]             future.resolve.recursive = NULL, future.rng.onMisuse = NULL, 
  [14:55:52.434]             future.rng.onMisuse.keepFuture = NULL, future.stdout.windows.reencode = NULL, 
  [14:55:52.434]             width = 80L)
  [14:55:52.434]         {
  [14:55:52.434]             {
  [14:55:52.434]                 {
  [14:55:52.434]                   {
  [14:55:52.434]                     base::local({
  [14:55:52.434]                       has_future <- base::requireNamespace("future", 
  [14:55:52.434]                         quietly = TRUE)
  [14:55:52.434]                       if (has_future) {
  [14:55:52.434]                         ns <- base::getNamespace("future")
  [14:55:52.434]                         version <- ns[[".package"]][["version"]]
  [14:55:52.434]                         if (is.null(version)) 
  [14:55:52.434]                           version <- utils::packageVersion("future")
  [14:55:52.434]                       }
  [14:55:52.434]                       else {
  [14:55:52.434]                         version <- NULL
  [14:55:52.434]                       }
  [14:55:52.434]                       if (!has_future || version < "1.8.0") {
  [14:55:52.434]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:55:52.434]                           "", base::R.version$version.string), 
  [14:55:52.434]                           platform = base::sprintf("%s (%s-bit)", 
  [14:55:52.434]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:55:52.434]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:55:52.434]                             "release", "version")], collapse = " "), 
  [14:55:52.434]                           hostname = base::Sys.info()[["nodename"]])
  [14:55:52.434]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:55:52.434]                           info)
  [14:55:52.434]                         info <- base::paste(info, collapse = "; ")
  [14:55:52.434]                         if (!has_future) {
  [14:55:52.434]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:55:52.434]                             info)
  [14:55:52.434]                         }
  [14:55:52.434]                         else {
  [14:55:52.434]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:55:52.434]                             info, version)
  [14:55:52.434]                         }
  [14:55:52.434]                         base::stop(msg)
  [14:55:52.434]                       }
  [14:55:52.434]                     })
  [14:55:52.434]                   }
  [14:55:52.434]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:55:52.434]                   base::options(mc.cores = 1L)
  [14:55:52.434]                 }
  [14:55:52.434]                 base::local({
  [14:55:52.434]                   for (pkg in c("doFuture", "utils", "foreach", 
  [14:55:52.434]                   "future")) {
  [14:55:52.434]                     base::loadNamespace(pkg)
  [14:55:52.434]                     base::library(pkg, character.only = TRUE)
  [14:55:52.434]                   }
  [14:55:52.434]                 })
  [14:55:52.434]             }
  [14:55:52.434]             options(future.plan = NULL)
  [14:55:52.434]             Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:52.434]             future::plan(list(b = function (..., envir = parent.frame()) 
  [14:55:52.434]             {
  [14:55:52.434]                 future <- SequentialFuture(..., envir = envir)
  [14:55:52.434]                 if (!future$lazy) 
  [14:55:52.434]                   future <- run(future)
  [14:55:52.434]                 invisible(future)
  [14:55:52.434]             }), .cleanup = FALSE, .init = FALSE)
  [14:55:52.434]         }
  [14:55:52.434]     }
  [14:55:52.434]     if (FALSE) {
  [14:55:52.434]     }
  [14:55:52.434]     else {
  [14:55:52.434]         if (TRUE) {
  [14:55:52.434]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:55:52.434]                 open = "w")
  [14:55:52.434]         }
  [14:55:52.434]         else {
  [14:55:52.434]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:55:52.434]                 windows = "NUL", "/dev/null"), open = "w")
  [14:55:52.434]         }
  [14:55:52.434]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:55:52.434]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:55:52.434]             base::sink(type = "output", split = FALSE)
  [14:55:52.434]             base::close(...future.stdout)
  [14:55:52.434]         }, add = TRUE)
  [14:55:52.434]     }
  [14:55:52.434]     ...future.frame <- base::sys.nframe()
  [14:55:52.434]     ...future.conditions <- base::list()
  [14:55:52.434]     ...future.rng <- base::globalenv()$.Random.seed
  [14:55:52.434]     ...future.result <- base::tryCatch({
  [14:55:52.434]         base::withCallingHandlers({
  [14:55:52.434]             ...future.value <- base::withVisible(base::local({
  [14:55:52.434]                 withCallingHandlers({
  [14:55:52.434]                   {
  [14:55:52.434]                     doFuture::registerDoFuture()
  [14:55:52.434]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:52.434]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:52.434]                       a <- NULL
  [14:55:52.434]                       ...future.env <- environment()
  [14:55:52.434]                       local({
  [14:55:52.434]                         for (name in names(...future.x_jj)) {
  [14:55:52.434]                           assign(name, ...future.x_jj[[name]], 
  [14:55:52.434]                             envir = ...future.env, inherits = FALSE)
  [14:55:52.434]                         }
  [14:55:52.434]                       })
  [14:55:52.434]                       tryCatch({
  [14:55:52.434]                         plan_list <- future::plan("next")
  [14:55:52.434]                         stopifnot(inherits(plan_list, strategy2))
  [14:55:52.434]                         plan_a <- future::plan("list")
  [14:55:52.434]                         str(plan_a)
  [14:55:52.434]                         stopifnot(inherits(plan_a[[1]], strategy2))
  [14:55:52.434]                         message("foreach() - level 2 ...")
  [14:55:52.434]                         y <- foreach(b = bs, .export = c("a", 
  [14:55:52.434]                           "plan_a")) %dopar% {
  [14:55:52.434]                           plan_list <- future::plan("next")
  [14:55:52.434]                           message(capture.output(print(plan_list)))
  [14:55:52.434]                           stopifnot(inherits(plan_list, "future"))
  [14:55:52.434]                           default <- getOption("future.plan", 
  [14:55:52.434]                             "sequential")
  [14:55:52.434]                           if (is.function(default)) 
  [14:55:52.434]                             default <- class(default)
  [14:55:52.434]                           stopifnot(inherits(plan_list, default))
  [14:55:52.434]                           plan_b <- future::plan("list")
  [14:55:52.434]                           str(plan_b)
  [14:55:52.434]                           stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:52.434]                             inherits(plan_b[[1]], default))
  [14:55:52.434]                           list(a = a, plan_a = plan_a, b = b, 
  [14:55:52.434]                             plan_b = plan_b)
  [14:55:52.434]                         }
  [14:55:52.434]                         message("foreach() - level 2 ... DONE")
  [14:55:52.434]                         y
  [14:55:52.434]                       }, error = identity)
  [14:55:52.434]                     })
  [14:55:52.434]                   }
  [14:55:52.434]                 }, immediateCondition = function(cond) {
  [14:55:52.434]                   obj <- list(time = Sys.time(), condition = cond)
  [14:55:52.434]                   file <- tempfile(class(cond)[1], tmpdir = "/home/hornik/tmp/scratch/RtmplLCzy6/.future/immediateConditions", 
  [14:55:52.434]                     fileext = ".rds")
  [14:55:52.434]                   save_rds <- function (object, pathname, ...) 
  [14:55:52.434]                   {
  [14:55:52.434]                     pathname_tmp <- sprintf("%s.tmp", pathname)
  [14:55:52.434]                     if (file_test("-f", pathname_tmp)) {
  [14:55:52.434]                       fi_tmp <- file.info(pathname_tmp)
  [14:55:52.434]                       stopf("Cannot save RDS file because a temporary save file already exists: %s (%0.f bytes; last modified on %s)", 
  [14:55:52.434]                         sQuote(pathname_tmp), fi_tmp[["size"]], 
  [14:55:52.434]                         fi_tmp[["mtime"]])
  [14:55:52.434]                     }
  [14:55:52.434]                     tryCatch({
  [14:55:52.434]                       saveRDS(object, file = pathname_tmp, ...)
  [14:55:52.434]                     }, error = function(ex) {
  [14:55:52.434]                       msg <- conditionMessage(ex)
  [14:55:52.434]                       fi_tmp <- file.info(pathname_tmp)
  [14:55:52.434]                       msg <- sprintf("saveRDS() failed to save to temporary file %s (%.0f bytes; last modified on %s). The reason was: %s", 
  [14:55:52.434]                         sQuote(pathname_tmp), fi_tmp[["size"]], 
  [14:55:52.434]                         fi_tmp[["mtime"]], msg)
  [14:55:52.434]                       ex$message <- msg
  [14:55:52.434]                       stop(ex)
  [14:55:52.434]                     })
  [14:55:52.434]                     stopifnot(file_test("-f", pathname_tmp))
  [14:55:52.434]                     res <- file.rename(from = pathname_tmp, to = pathname)
  [14:55:52.434]                     if (!res || file_test("-f", pathname_tmp)) {
  [14:55:52.434]                       fi_tmp <- file.info(pathname_tmp)
  [14:55:52.434]                       fi <- file.info(pathname)
  [14:55:52.434]                       msg <- sprintf("save_rds() failed to rename temporary save file %s (%0.f bytes; last modified on %s) to %s (%0.f bytes; last modified on %s)", 
  [14:55:52.434]                         sQuote(pathname_tmp), fi_tmp[["size"]], 
  [14:55:52.434]                         fi_tmp[["mtime"]], sQuote(pathname), 
  [14:55:52.434]                         fi[["size"]], fi[["mtime"]])
  [14:55:52.434]                       stop(msg)
  [14:55:52.434]                     }
  [14:55:52.434]                     invisible(pathname)
  [14:55:52.434]                   }
  [14:55:52.434]                   save_rds(obj, file)
  [14:55:52.434]                   muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:52.434]                   {
  [14:55:52.434]                     inherits <- base::inherits
  [14:55:52.434]                     invokeRestart <- base::invokeRestart
  [14:55:52.434]                     is.null <- base::is.null
  [14:55:52.434]                     muffled <- FALSE
  [14:55:52.434]                     if (inherits(cond, "message")) {
  [14:55:52.434]                       muffled <- grepl(pattern, "muffleMessage")
  [14:55:52.434]                       if (muffled) 
  [14:55:52.434]                         invokeRestart("muffleMessage")
  [14:55:52.434]                     }
  [14:55:52.434]                     else if (inherits(cond, "warning")) {
  [14:55:52.434]                       muffled <- grepl(pattern, "muffleWarning")
  [14:55:52.434]                       if (muffled) 
  [14:55:52.434]                         invokeRestart("muffleWarning")
  [14:55:52.434]                     }
  [14:55:52.434]                     else if (inherits(cond, "condition")) {
  [14:55:52.434]                       if (!is.null(pattern)) {
  [14:55:52.434]                         computeRestarts <- base::computeRestarts
  [14:55:52.434]                         grepl <- base::grepl
  [14:55:52.434]                         restarts <- computeRestarts(cond)
  [14:55:52.434]                         for (restart in restarts) {
  [14:55:52.434]                           name <- restart$name
  [14:55:52.434]                           if (is.null(name)) 
  [14:55:52.434]                             next
  [14:55:52.434]                           if (!grepl(pattern, name)) 
  [14:55:52.434]                             next
  [14:55:52.434]                           invokeRestart(restart)
  [14:55:52.434]                           muffled <- TRUE
  [14:55:52.434]                           break
  [14:55:52.434]                         }
  [14:55:52.434]                       }
  [14:55:52.434]                     }
  [14:55:52.434]                     invisible(muffled)
  [14:55:52.434]                   }
  [14:55:52.434]                   muffleCondition(cond)
  [14:55:52.434]                 })
  [14:55:52.434]             }))
  [14:55:52.434]             future::FutureResult(value = ...future.value$value, 
  [14:55:52.434]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:52.434]                   ...future.rng), started = ...future.startTime, 
  [14:55:52.434]                 version = "1.8")
  [14:55:52.434]         }, condition = base::local({
  [14:55:52.434]             c <- base::c
  [14:55:52.434]             inherits <- base::inherits
  [14:55:52.434]             invokeRestart <- base::invokeRestart
  [14:55:52.434]             length <- base::length
  [14:55:52.434]             list <- base::list
  [14:55:52.434]             seq.int <- base::seq.int
  [14:55:52.434]             signalCondition <- base::signalCondition
  [14:55:52.434]             sys.calls <- base::sys.calls
  [14:55:52.434]             `[[` <- base::`[[`
  [14:55:52.434]             `+` <- base::`+`
  [14:55:52.434]             `<<-` <- base::`<<-`
  [14:55:52.434]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:55:52.434]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:55:52.434]                   3L)]
  [14:55:52.434]             }
  [14:55:52.434]             function(cond) {
  [14:55:52.434]                 is_error <- inherits(cond, "error")
  [14:55:52.434]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:55:52.434]                   NULL)
  [14:55:52.434]                 if (is_error) {
  [14:55:52.434]                   sessionInformation <- function() {
  [14:55:52.434]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:55:52.434]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:55:52.434]                       search = base::search(), system = base::Sys.info())
  [14:55:52.434]                   }
  [14:55:52.434]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:52.434]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:55:52.434]                     cond$call), session = sessionInformation(), 
  [14:55:52.434]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:55:52.434]                   signalCondition(cond)
  [14:55:52.434]                 }
  [14:55:52.434]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:55:52.434]                 "immediateCondition"))) {
  [14:55:52.434]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:55:52.434]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:52.434]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:55:52.434]                   if (TRUE && !signal) {
  [14:55:52.434]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:52.434]                     {
  [14:55:52.434]                       inherits <- base::inherits
  [14:55:52.434]                       invokeRestart <- base::invokeRestart
  [14:55:52.434]                       is.null <- base::is.null
  [14:55:52.434]                       muffled <- FALSE
  [14:55:52.434]                       if (inherits(cond, "message")) {
  [14:55:52.434]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:52.434]                         if (muffled) 
  [14:55:52.434]                           invokeRestart("muffleMessage")
  [14:55:52.434]                       }
  [14:55:52.434]                       else if (inherits(cond, "warning")) {
  [14:55:52.434]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:52.434]                         if (muffled) 
  [14:55:52.434]                           invokeRestart("muffleWarning")
  [14:55:52.434]                       }
  [14:55:52.434]                       else if (inherits(cond, "condition")) {
  [14:55:52.434]                         if (!is.null(pattern)) {
  [14:55:52.434]                           computeRestarts <- base::computeRestarts
  [14:55:52.434]                           grepl <- base::grepl
  [14:55:52.434]                           restarts <- computeRestarts(cond)
  [14:55:52.434]                           for (restart in restarts) {
  [14:55:52.434]                             name <- restart$name
  [14:55:52.434]                             if (is.null(name)) 
  [14:55:52.434]                               next
  [14:55:52.434]                             if (!grepl(pattern, name)) 
  [14:55:52.434]                               next
  [14:55:52.434]                             invokeRestart(restart)
  [14:55:52.434]                             muffled <- TRUE
  [14:55:52.434]                             break
  [14:55:52.434]                           }
  [14:55:52.434]                         }
  [14:55:52.434]                       }
  [14:55:52.434]                       invisible(muffled)
  [14:55:52.434]                     }
  [14:55:52.434]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:52.434]                   }
  [14:55:52.434]                 }
  [14:55:52.434]                 else {
  [14:55:52.434]                   if (TRUE) {
  [14:55:52.434]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:52.434]                     {
  [14:55:52.434]                       inherits <- base::inherits
  [14:55:52.434]                       invokeRestart <- base::invokeRestart
  [14:55:52.434]                       is.null <- base::is.null
  [14:55:52.434]                       muffled <- FALSE
  [14:55:52.434]                       if (inherits(cond, "message")) {
  [14:55:52.434]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:52.434]                         if (muffled) 
  [14:55:52.434]                           invokeRestart("muffleMessage")
  [14:55:52.434]                       }
  [14:55:52.434]                       else if (inherits(cond, "warning")) {
  [14:55:52.434]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:52.434]                         if (muffled) 
  [14:55:52.434]                           invokeRestart("muffleWarning")
  [14:55:52.434]                       }
  [14:55:52.434]                       else if (inherits(cond, "condition")) {
  [14:55:52.434]                         if (!is.null(pattern)) {
  [14:55:52.434]                           computeRestarts <- base::computeRestarts
  [14:55:52.434]                           grepl <- base::grepl
  [14:55:52.434]                           restarts <- computeRestarts(cond)
  [14:55:52.434]                           for (restart in restarts) {
  [14:55:52.434]                             name <- restart$name
  [14:55:52.434]                             if (is.null(name)) 
  [14:55:52.434]                               next
  [14:55:52.434]                             if (!grepl(pattern, name)) 
  [14:55:52.434]                               next
  [14:55:52.434]                             invokeRestart(restart)
  [14:55:52.434]                             muffled <- TRUE
  [14:55:52.434]                             break
  [14:55:52.434]                           }
  [14:55:52.434]                         }
  [14:55:52.434]                       }
  [14:55:52.434]                       invisible(muffled)
  [14:55:52.434]                     }
  [14:55:52.434]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:52.434]                   }
  [14:55:52.434]                 }
  [14:55:52.434]             }
  [14:55:52.434]         }))
  [14:55:52.434]     }, error = function(ex) {
  [14:55:52.434]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:55:52.434]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:52.434]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:55:52.434]     }, finally = {
  [14:55:52.434]         {
  [14:55:52.434]             {
  [14:55:52.434]                 NULL
  [14:55:52.434]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:55:52.434]             }
  [14:55:52.434]             options(future.plan = NULL)
  [14:55:52.434]             if (is.na(NA_character_)) 
  [14:55:52.434]                 Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:52.434]             else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:55:52.434]             future::plan(list(a = function (..., workers = availableCores(constraints = "multicore"), 
  [14:55:52.434]                 envir = parent.frame()) 
  [14:55:52.434]             {
  [14:55:52.434]                 default_workers <- missing(workers)
  [14:55:52.434]                 if (is.function(workers)) 
  [14:55:52.434]                   workers <- workers()
  [14:55:52.434]                 workers <- as.integer(workers)
  [14:55:52.434]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:55:52.434]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:55:52.434]                   if (default_workers) 
  [14:55:52.434]                     supportsMulticore(warn = TRUE)
  [14:55:52.434]                   return(sequential(..., envir = envir))
  [14:55:52.434]                 }
  [14:55:52.434]                 oopts <- options(mc.cores = workers)
  [14:55:52.434]                 on.exit(options(oopts))
  [14:55:52.434]                 future <- MulticoreFuture(..., workers = workers, 
  [14:55:52.434]                   envir = envir)
  [14:55:52.434]                 if (!future$lazy) 
  [14:55:52.434]                   future <- run(future)
  [14:55:52.434]                 invisible(future)
  [14:55:52.434]             }, b = function (..., envir = parent.frame()) 
  [14:55:52.434]             {
  [14:55:52.434]                 future <- SequentialFuture(..., envir = envir)
  [14:55:52.434]                 if (!future$lazy) 
  [14:55:52.434]                   future <- run(future)
  [14:55:52.434]                 invisible(future)
  [14:55:52.434]             }), .cleanup = FALSE, .init = FALSE)
  [14:55:52.434]         }
  [14:55:52.434]         base::options(...future.oldOptions)
  [14:55:52.434]     })
  [14:55:52.434]     if (TRUE) {
  [14:55:52.434]         base::sink(type = "output", split = FALSE)
  [14:55:52.434]         if (TRUE) {
  [14:55:52.434]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:55:52.434]         }
  [14:55:52.434]         else {
  [14:55:52.434]             ...future.result["stdout"] <- base::list(NULL)
  [14:55:52.434]         }
  [14:55:52.434]         base::close(...future.stdout)
  [14:55:52.434]         ...future.stdout <- NULL
  [14:55:52.434]     }
  [14:55:52.434]     ...future.result$conditions <- ...future.conditions
  [14:55:52.434]     ...future.result
  [14:55:52.434] }
  [14:55:52.439] requestCore(): workers = 2
  [14:55:52.456] MulticoreFuture started
  [14:55:52.457] - Launch lazy future ... done
  [14:55:52.457] run() for 'MulticoreFuture' ... done
  [14:55:52.457] Chunk #2 of 2 ... DONE
  [14:55:52.458] Launching 2 futures (chunks) ... DONE
  [14:55:52.458] - resolving futures
  [14:55:52.458]   - gathering results & relaying conditions (except errors)
  [14:55:52.459] resolve() on list ...
  [14:55:52.459]  recursive: 0
  [14:55:52.459]  length: 2
  [14:55:52.460] 
  [14:55:52.474] plan(): Setting new future strategy stack:
  [14:55:52.475] List of future strategies:
  [14:55:52.475] 1. sequential:
  [14:55:52.475]    - args: function (..., envir = parent.frame())
  [14:55:52.475]    - tweaked: FALSE
  [14:55:52.475]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:52.477] plan(): nbrOfWorkers() = 1
  [14:55:52.623] plan(): Setting new future strategy stack:
  [14:55:52.624] List of future strategies:
  [14:55:52.624] 1. multicore:
  [14:55:52.624]    - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame())
  [14:55:52.624]    - tweaked: FALSE
  [14:55:52.624]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:52.624] 2. sequential:
  [14:55:52.624]    - args: function (..., envir = parent.frame())
  [14:55:52.624]    - tweaked: FALSE
  [14:55:52.624]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:52.646] plan(): nbrOfWorkers() = 2
  [14:55:52.668] plan(): Setting new future strategy stack:
  [14:55:52.668] List of future strategies:
  [14:55:52.668] 1. multicore:
  [14:55:52.668]    - args: function (..., workers = availableCores(constraints = "multicore"), envir = parent.frame())
  [14:55:52.668]    - tweaked: FALSE
  [14:55:52.668]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:52.668] 2. sequential:
  [14:55:52.668]    - args: function (..., envir = parent.frame())
  [14:55:52.668]    - tweaked: FALSE
  [14:55:52.668]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:52.699] plan(): nbrOfWorkers() = 2
  [14:55:52.702] Future #1
  [14:55:52.705] signalConditions() ...
  [14:55:52.706]  - include = 'immediateCondition'
  [14:55:52.706]  - exclude = 
  [14:55:52.706]  - resignal = FALSE
  [14:55:52.706]  - Number of conditions: 184
  [14:55:52.707] signalConditions() ... done
  [14:55:52.707] signalConditions() ...
  [14:55:52.707]  - include = 'immediateCondition'
  [14:55:52.708]  - exclude = 
  [14:55:52.708]  - resignal = FALSE
  [14:55:52.708]  - Number of conditions: 184
  [14:55:52.709] signalConditions() ... done
  [14:55:52.709] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [14:55:52.709] - nx: 2
  [14:55:52.710] - relay: TRUE
  [14:55:52.710] - stdout: TRUE
  [14:55:52.710] - signal: TRUE
  [14:55:52.710] - resignal: FALSE
  [14:55:52.711] - force: FALSE
  [14:55:52.711] - relayed: [n=2] FALSE, FALSE
  [14:55:52.711] - queued futures: [n=2] FALSE, FALSE
  [14:55:52.711]  - until=1
  [14:55:52.712]  - relaying element #1
  [14:55:52.712] signalConditions() ...
  [14:55:52.720]  - include = 'immediateCondition'
  [14:55:52.720]  - exclude = 
  [14:55:52.720]  - resignal = FALSE
  [14:55:52.721]  - Number of conditions: 184
  [14:55:52.721] signalConditions() ... done
  List of 1
   $ b:function (..., envir = parent.frame())  
    ..- 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 (..., envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (..., envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (..., envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:52.722] signalConditions() ...
  [14:55:52.722]  - include = 'immediateCondition'
  [14:55:52.722]  - exclude = 
  [14:55:52.723]  - resignal = FALSE
  [14:55:52.723]  - Number of conditions: 184
  [14:55:52.724] signalConditions() ... done
  [14:55:52.724] signalConditions() ...
  [14:55:52.724]  - include = 'condition'
  [14:55:52.724]  - exclude = 'immediateCondition'
  [14:55:52.725]  - resignal = FALSE
  [14:55:52.725]  - Number of conditions: 184
  [14:55:52.725]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:55:52.725]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:55:52.332] doFuture() ...
  [14:55:52.726]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:55:52.361] - dummy globals (as locals): [1] 'b'
  [14:55:52.726]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [14:55:52.362] - R expression:
  [14:55:52.726]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [14:55:52.362] {
  [14:55:52.362]     doFuture::registerDoFuture()
  [14:55:52.362]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:52.362]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:52.362]         b <- NULL
  [14:55:52.362]         ...future.env <- environment()
  [14:55:52.362]         local({
  [14:55:52.362]             for (name in names(...future.x_jj)) {
  [14:55:52.362]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:52.362]                   inherits = FALSE)
  [14:55:52.362]             }
  [14:55:52.362]         })
  [14:55:52.362]         tryCatch({
  [14:55:52.362]             plan_list <- future::plan("next")
  [14:55:52.362]             message(capture.output(print(plan_list)))
  [14:55:52.362]             stopifnot(inherits(plan_list, "future"))
  [14:55:52.362]             default <- getOption("future.plan", "sequential")
  [14:55:52.362]             if (is.function(default)) 
  [14:55:52.362]                 default <- class(default)
  [14:55:52.362]             stopifnot(inherits(plan_list, default))
  [14:55:52.362]             plan_b <- future::plan("list")
  [14:55:52.362]             str(plan_b)
  [14:55:52.362]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:55:52.362]                 default))
  [14:55:52.362]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:52.362]         }, error = identity)
  [14:55:52.362]     })
  [14:55:52.362] }
  [14:55:52.727]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [14:55:52.363] - identifying globals and packages ...
  [14:55:52.727]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [14:55:52.364] getGlobalsAndPackages() ...
  [14:55:52.728]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [14:55:52.364] Retrieving 'add' globals ...
  [14:55:52.728]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [14:55:52.365] - 'add' globals retrieved: [2] 'a', 'plan_a'
  [14:55:52.729]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [14:55:52.365] Retrieving 'add' globals ... DONE
  [14:55:52.730]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [14:55:52.366] Searching for globals...
  [14:55:52.730]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [14:55:52.399] - 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:55:52.730]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [14:55:52.400] Searching for globals ... DONE
  [14:55:52.731]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [14:55:52.400] Resolving globals: FALSE
  [14:55:52.731]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [14:55:52.403] The total size of the 3 globals is 11.30 KiB (11568 bytes)
  [14:55:52.731]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [14:55:52.405] The total size of the 3 globals exported for future expression ('{; doFuture::registerDoFuture(); lapply(seq_along(...future.x_ii), FUN = function(jj) {; ...future.x_jj <- ...future.x_ii[[jj]]; b <- NULL; ...future.env <- environment(); ...; }, error = identity); }); }') is 11.30 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: 'plan_a' (11.24 KiB of class 'list'), 'a' (56 bytes of class 'numeric') and '...future.x_ii' (0 bytes of class 'NULL')
  [14:55:52.732]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [14:55:52.405] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:52.732]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [14:55:52.406] - packages: [1] 'utils'
  [14:55:52.733]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [14:55:52.406] getGlobalsAndPackages() ... DONE
  [14:55:52.733]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [14:55:52.406] List of 3
  [14:55:52.406]  $ ...future.x_ii: NULL
  [14:55:52.406]  $ a             : int 1
  [14:55:52.406]  $ plan_a        :List of 1
  [14:55:52.406]   ..$ b:function (..., envir = parent.frame())  
  [14:55:52.406]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [14:55:52.406]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:52.406]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:52.406]  - attr(*, "where")=List of 3
  [14:55:52.406]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:52.406]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:52.406]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:52.406]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:52.406]  - attr(*, "resolved")= logi FALSE
  [14:55:52.406]  - attr(*, "total_size")= num 11568
  [14:55:52.733]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [14:55:52.418]   - R expression:
  [14:55:52.734]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [14:55:52.418] {
  [14:55:52.418]     doFuture::registerDoFuture()
  [14:55:52.418]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:52.418]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:52.418]         b <- NULL
  [14:55:52.418]         ...future.env <- environment()
  [14:55:52.418]         local({
  [14:55:52.418]             for (name in names(...future.x_jj)) {
  [14:55:52.418]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:52.418]                   inherits = FALSE)
  [14:55:52.418]             }
  [14:55:52.418]         })
  [14:55:52.418]         tryCatch({
  [14:55:52.418]             plan_list <- future::plan("next")
  [14:55:52.418]             message(capture.output(print(plan_list)))
  [14:55:52.418]             stopifnot(inherits(plan_list, "future"))
  [14:55:52.418]             default <- getOption("future.plan", "sequential")
  [14:55:52.418]             if (is.function(default)) 
  [14:55:52.418]                 default <- class(default)
  [14:55:52.418]             stopifnot(inherits(plan_list, default))
  [14:55:52.418]             plan_b <- future::plan("list")
  [14:55:52.418]             str(plan_b)
  [14:55:52.418]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:55:52.418]                 default))
  [14:55:52.418]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:52.418]         }, error = identity)
  [14:55:52.418]     })
  [14:55:52.418] }
  [14:55:52.734]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [14:55:52.419]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:52.735]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [14:55:52.419] List of 3
  [14:55:52.419]  $ ...future.x_ii: NULL
  [14:55:52.419]  $ a             : int 1
  [14:55:52.419]  $ plan_a        :List of 1
  [14:55:52.419]   ..$ b:function (..., envir = parent.frame())  
  [14:55:52.419]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [14:55:52.419]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:52.419]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:52.419]  - attr(*, "where")=List of 3
  [14:55:52.419]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:52.419]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:52.419]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:52.419]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:52.419]  - attr(*, "resolved")= logi FALSE
  [14:55:52.419]  - attr(*, "total_size")= num 11568
  [14:55:52.735]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [14:55:52.430]   - packages: [2] 'doFuture', 'utils'
  [14:55:52.735]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [14:55:52.430] - identifying globals and packages ... DONE
  [14:55:52.736]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [14:55:52.430] Number of chunks: 1
  [14:55:52.736]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [14:55:52.431] Number of futures (= number of chunks): 1
  [14:55:52.736]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [14:55:52.431] Launching 1 futures (chunks) ...
  [14:55:52.737]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [14:55:52.431] Chunk #1 of 1 ...
  [14:55:52.737]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [14:55:52.432]  - Finding globals in 'args_list' chunk #1 ...
  [14:55:52.737]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [14:55:52.432] getGlobalsAndPackages() ...
  [14:55:52.738]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [14:55:52.432] Searching for globals...
  [14:55:52.738]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [14:55:52.433] 
  [14:55:52.739]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [14:55:52.434] Searching for globals ... DONE
  [14:55:52.739]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [14:55:52.434] - globals: [0] <none>
  [14:55:52.739]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [14:55:52.434] getGlobalsAndPackages() ... DONE
  [14:55:52.740]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [14:55:52.434] 
  [14:55:52.740]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [14:55:52.435] 
  [14:55:52.740]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [14:55:52.435]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:55:52.741]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [14:55:52.436] getGlobalsAndPackages() ...
  [14:55:52.741]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [14:55:52.436] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:52.741]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [14:55:52.436] Resolving globals: FALSE
  [14:55:52.742]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [14:55:52.437] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:52.742]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [14:55:52.437] 
  [14:55:52.743]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [14:55:52.438] getGlobalsAndPackages() ... DONE
  [14:55:52.743]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [14:55:52.439] run() for 'Future' ...
  [14:55:52.743]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [14:55:52.439] - state: 'created'
  [14:55:52.744]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [14:55:52.440] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:55:52.744]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [14:55:52.440] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:55:52.744]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [14:55:52.441] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:55:52.745]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [14:55:52.456]   - Field: 'label'
  [14:55:52.745]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [14:55:52.457]   - Field: 'local'
  [14:55:52.745]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [14:55:52.457]   - Field: 'owner'
  [14:55:52.746]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [14:55:52.457]   - Field: 'envir'
  [14:55:52.746]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [14:55:52.458]   - Field: 'packages'
  [14:55:52.747]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [14:55:52.458]   - Field: 'gc'
  [14:55:52.747]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [14:55:52.458]   - Field: 'conditions'
  [14:55:52.747]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [14:55:52.458]   - Field: 'persistent'
  [14:55:52.748]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [14:55:52.459]   - Field: 'expr'
  [14:55:52.748]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [14:55:52.459]   - Field: 'uuid'
  [14:55:52.749]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [14:55:52.459]   - Field: 'seed'
  [14:55:52.749]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [14:55:52.459]   - Field: 'version'
  [14:55:52.749]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [14:55:52.460]   - Field: 'result'
  [14:55:52.750]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [14:55:52.460]   - Field: 'asynchronous'
  [14:55:52.750]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [14:55:52.460]   - Field: 'calls'
  [14:55:52.751]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [14:55:52.461]   - Field: 'globals'
  [14:55:52.751]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [14:55:52.461]   - Field: 'stdout'
  [14:55:52.751]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [14:55:52.461]   - Field: 'earlySignal'
  [14:55:52.752]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [14:55:52.461]   - Field: 'lazy'
  [14:55:52.752]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [14:55:52.462]   - Field: 'state'
  [14:55:52.752]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [14:55:52.462] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:55:52.753]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [14:55:52.462] - Launch lazy future ...
  [14:55:52.753]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [14:55:52.463] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:55:52.753]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [14:55:52.463] Packages needed by future strategies (n = 0): <none>
  [14:55:52.754]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [14:55:52.465] {
  [14:55:52.465]     {
  [14:55:52.465]         ...future.startTime <- base::Sys.time()
  [14:55:52.465]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:55:52.465]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:55:52.465]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:55:52.465]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:55:52.465]             future.resolve.recursive = NULL, future.rng.onMisuse = NULL, 
  [14:55:52.465]             future.rng.onMisuse.keepFuture = NULL, future.stdout.windows.reencode = NULL, 
  [14:55:52.465]             width = 80L)
  [14:55:52.465]         {
  [14:55:52.465]             {
  [14:55:52.465]                 {
  [14:55:52.465]                   base::local({
  [14:55:52.465]                     has_future <- base::requireNamespace("future", 
  [14:55:52.465]                       quietly = TRUE)
  [14:55:52.465]                     if (has_future) {
  [14:55:52.465]                       ns <- base::getNamespace("future")
  [14:55:52.465]                       version <- ns[[".package"]][["version"]]
  [14:55:52.465]                       if (is.null(version)) 
  [14:55:52.465]                         version <- utils::packageVersion("future")
  [14:55:52.465]                     }
  [14:55:52.465]                     else {
  [14:55:52.465]                       version <- NULL
  [14:55:52.465]                     }
  [14:55:52.465]                     if (!has_future || version < "1.8.0") {
  [14:55:52.465]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:55:52.465]                         "", base::R.version$version.string), 
  [14:55:52.465]                         platform = base::sprintf("%s (%s-bit)", 
  [14:55:52.465]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:55:52.465]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:55:52.465]                           "release", "version")], collapse = " "), 
  [14:55:52.465]                         hostname = base::Sys.info()[["nodename"]])
  [14:55:52.465]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:55:52.465]                         info)
  [14:55:52.465]                       info <- base::paste(info, collapse = "; ")
  [14:55:52.465]                       if (!has_future) {
  [14:55:52.465]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:55:52.465]                           info)
  [14:55:52.465]                       }
  [14:55:52.465]                       else {
  [14:55:52.465]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:55:52.465]                           info, version)
  [14:55:52.465]                       }
  [14:55:52.465]                       base::stop(msg)
  [14:55:52.465]                     }
  [14:55:52.465]                   })
  [14:55:52.465]                 }
  [14:55:52.465]                 base::local({
  [14:55:52.465]                   for (pkg in c("doFuture", "utils")) {
  [14:55:52.465]                     base::loadNamespace(pkg)
  [14:55:52.465]                     base::library(pkg, character.only = TRUE)
  [14:55:52.465]                   }
  [14:55:52.465]                 })
  [14:55:52.465]             }
  [14:55:52.465]             options(future.plan = NULL)
  [14:55:52.465]             Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:52.465]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:55:52.465]         }
  [14:55:52.465]     }
  [14:55:52.465]     if (FALSE) {
  [14:55:52.465]     }
  [14:55:52.465]     else {
  [14:55:52.465]         if (TRUE) {
  [14:55:52.465]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:55:52.465]                 open = "w")
  [14:55:52.465]         }
  [14:55:52.465]         else {
  [14:55:52.465]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:55:52.465]                 windows = "NUL", "/dev/null"), open = "w")
  [14:55:52.465]         }
  [14:55:52.465]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:55:52.465]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:55:52.465]             base::sink(type = "output", split = FALSE)
  [14:55:52.465]             base::close(...future.stdout)
  [14:55:52.465]         }, add = TRUE)
  [14:55:52.465]     }
  [14:55:52.465]     ...future.frame <- base::sys.nframe()
  [14:55:52.465]     ...future.conditions <- base::list()
  [14:55:52.465]     ...future.rng <- base::globalenv()$.Random.seed
  [14:55:52.465]     ...future.result <- base::tryCatch({
  [14:55:52.465]         base::withCallingHandlers({
  [14:55:52.465]             ...future.value <- base::withVisible(base::local({
  [14:55:52.465]                 doFuture::registerDoFuture()
  [14:55:52.465]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:52.465]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:52.465]                   b <- NULL
  [14:55:52.465]                   ...future.env <- environment()
  [14:55:52.465]                   local({
  [14:55:52.465]                     for (name in names(...future.x_jj)) {
  [14:55:52.465]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:52.465]                         inherits = FALSE)
  [14:55:52.465]                     }
  [14:55:52.465]                   })
  [14:55:52.465]                   tryCatch({
  [14:55:52.465]                     plan_list <- future::plan("next")
  [14:55:52.465]                     message(capture.output(print(plan_list)))
  [14:55:52.465]                     stopifnot(inherits(plan_list, "future"))
  [14:55:52.465]                     default <- getOption("future.plan", "sequential")
  [14:55:52.465]                     if (is.function(default)) 
  [14:55:52.465]                       default <- class(default)
  [14:55:52.465]                     stopifnot(inherits(plan_list, default))
  [14:55:52.465]                     plan_b <- future::plan("list")
  [14:55:52.465]                     str(plan_b)
  [14:55:52.465]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [14:55:52.465]                       inherits(plan_b[[1]], default))
  [14:55:52.465]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:52.465]                   }, error = identity)
  [14:55:52.465]                 })
  [14:55:52.465]             }))
  [14:55:52.465]             future::FutureResult(value = ...future.value$value, 
  [14:55:52.465]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:52.465]                   ...future.rng), started = ...future.startTime, 
  [14:55:52.465]                 version = "1.8")
  [14:55:52.465]         }, condition = base::local({
  [14:55:52.465]             c <- base::c
  [14:55:52.465]             inherits <- base::inherits
  [14:55:52.465]             invokeRestart <- base::invokeRestart
  [14:55:52.465]             length <- base::length
  [14:55:52.465]             list <- base::list
  [14:55:52.465]             seq.int <- base::seq.int
  [14:55:52.465]             signalCondition <- base::signalCondition
  [14:55:52.465]             sys.calls <- base::sys.calls
  [14:55:52.465]             `[[` <- base::`[[`
  [14:55:52.465]             `+` <- base::`+`
  [14:55:52.465]             `<<-` <- base::`<<-`
  [14:55:52.465]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:55:52.465]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:55:52.465]                   3L)]
  [14:55:52.465]             }
  [14:55:52.465]             function(cond) {
  [14:55:52.465]                 is_error <- inherits(cond, "error")
  [14:55:52.465]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:55:52.465]                   NULL)
  [14:55:52.465]                 if (is_error) {
  [14:55:52.465]                   sessionInformation <- function() {
  [14:55:52.465]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:55:52.465]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:55:52.465]                       search = base::search(), system = base::Sys.info())
  [14:55:52.465]                   }
  [14:55:52.465]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:52.465]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:55:52.465]                     cond$call), session = sessionInformation(), 
  [14:55:52.465]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:55:52.465]                   signalCondition(cond)
  [14:55:52.465]                 }
  [14:55:52.465]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:55:52.465]                 "immediateCondition"))) {
  [14:55:52.465]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:55:52.465]                   ...future.conditions[[length(...future.conditions) + 
  [14:55:52.465]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:55:52.465]                   if (TRUE && !signal) {
  [14:55:52.465]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:52.465]                     {
  [14:55:52.465]                       inherits <- base::inherits
  [14:55:52.465]                       invokeRestart <- base::invokeRestart
  [14:55:52.465]                       is.null <- base::is.null
  [14:55:52.465]                       muffled <- FALSE
  [14:55:52.465]                       if (inherits(cond, "message")) {
  [14:55:52.465]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:52.465]                         if (muffled) 
  [14:55:52.465]                           invokeRestart("muffleMessage")
  [14:55:52.465]                       }
  [14:55:52.465]                       else if (inherits(cond, "warning")) {
  [14:55:52.465]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:52.465]                         if (muffled) 
  [14:55:52.465]                           invokeRestart("muffleWarning")
  [14:55:52.465]                       }
  [14:55:52.465]                       else if (inherits(cond, "condition")) {
  [14:55:52.465]                         if (!is.null(pattern)) {
  [14:55:52.465]                           computeRestarts <- base::computeRestarts
  [14:55:52.465]                           grepl <- base::grepl
  [14:55:52.465]                           restarts <- computeRestarts(cond)
  [14:55:52.465]                           for (restart in restarts) {
  [14:55:52.465]                             name <- restart$name
  [14:55:52.465]                             if (is.null(name)) 
  [14:55:52.465]                               next
  [14:55:52.465]                             if (!grepl(pattern, name)) 
  [14:55:52.465]                               next
  [14:55:52.465]                             invokeRestart(restart)
  [14:55:52.465]                             muffled <- TRUE
  [14:55:52.465]                             break
  [14:55:52.465]                           }
  [14:55:52.465]                         }
  [14:55:52.465]                       }
  [14:55:52.465]                       invisible(muffled)
  [14:55:52.465]                     }
  [14:55:52.465]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:52.465]                   }
  [14:55:52.465]                 }
  [14:55:52.465]                 else {
  [14:55:52.465]                   if (TRUE) {
  [14:55:52.465]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:55:52.465]                     {
  [14:55:52.465]                       inherits <- base::inherits
  [14:55:52.465]                       invokeRestart <- base::invokeRestart
  [14:55:52.465]                       is.null <- base::is.null
  [14:55:52.465]                       muffled <- FALSE
  [14:55:52.465]                       if (inherits(cond, "message")) {
  [14:55:52.465]                         muffled <- grepl(pattern, "muffleMessage")
  [14:55:52.465]                         if (muffled) 
  [14:55:52.465]                           invokeRestart("muffleMessage")
  [14:55:52.465]                       }
  [14:55:52.465]                       else if (inherits(cond, "warning")) {
  [14:55:52.465]                         muffled <- grepl(pattern, "muffleWarning")
  [14:55:52.465]                         if (muffled) 
  [14:55:52.465]                           invokeRestart("muffleWarning")
  [14:55:52.465]                       }
  [14:55:52.465]                       else if (inherits(cond, "condition")) {
  [14:55:52.465]                         if (!is.null(pattern)) {
  [14:55:52.465]                           computeRestarts <- base::computeRestarts
  [14:55:52.465]                           grepl <- base::grepl
  [14:55:52.465]                           restarts <- computeRestarts(cond)
  [14:55:52.465]                           for (restart in restarts) {
  [14:55:52.465]                             name <- restart$name
  [14:55:52.465]                             if (is.null(name)) 
  [14:55:52.465]                               next
  [14:55:52.465]                             if (!grepl(pattern, name)) 
  [14:55:52.465]                               next
  [14:55:52.465]                             invokeRestart(restart)
  [14:55:52.465]                             muffled <- TRUE
  [14:55:52.465]                             break
  [14:55:52.465]                           }
  [14:55:52.465]                         }
  [14:55:52.465]                       }
  [14:55:52.465]                       invisible(muffled)
  [14:55:52.465]                     }
  [14:55:52.465]                     muffleCondition(cond, pattern = "^muffle")
  [14:55:52.465]                   }
  [14:55:52.465]                 }
  [14:55:52.465]             }
  [14:55:52.465]         }))
  [14:55:52.465]     }, error = function(ex) {
  [14:55:52.465]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:55:52.465]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:55:52.465]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:55:52.465]     }, finally = {
  [14:55:52.465]         {
  [14:55:52.465]             {
  [14:55:52.465]                 NULL
  [14:55:52.465]                 RNGkind("Mersenne-Twister")
  [14:55:52.465]                 base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:55:52.465]                   inherits = FALSE)
  [14:55:52.465]             }
  [14:55:52.465]             options(future.plan = NULL)
  [14:55:52.465]             if (is.na(NA_character_)) 
  [14:55:52.465]                 Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:52.465]             else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:55:52.465]             future::plan(list(b = function (..., envir = parent.frame()) 
  [14:55:52.465]             {
  [14:55:52.465]                 future <- SequentialFuture(..., envir = envir)
  [14:55:52.465]                 if (!future$lazy) 
  [14:55:52.465]                   future <- run(future)
  [14:55:52.465]                 invisible(future)
  [14:55:52.465]             }), .cleanup = FALSE, .init = FALSE)
  [14:55:52.465]         }
  [14:55:52.465]         base::options(...future.oldOptions)
  [14:55:52.465]     })
  [14:55:52.465]     if (TRUE) {
  [14:55:52.465]         base::sink(type = "output", split = FALSE)
  [14:55:52.465]         if (TRUE) {
  [14:55:52.465]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:55:52.465]         }
  [14:55:52.465]         else {
  [14:55:52.465]             ...future.result["stdout"] <- base::list(NULL)
  [14:55:52.465]         }
  [14:55:52.465]         base::close(...future.stdout)
  [14:55:52.465]         ...future.stdout <- NULL
  [14:55:52.465]     }
  [14:55:52.465]     ...future.result$conditions <- ...future.conditions
  [14:55:52.465]     ...future.result
  [14:55:52.465] }
  [14:55:52.754]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [14:55:52.469] assign_globals() ...
  [14:55:52.754]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [14:55:52.469] List of 3
  [14:55:52.469]  $ ...future.x_ii:List of 3
  [14:55:52.469]   ..$ :List of 1
  [14:55:52.469]   .. ..$ b: int 3
  [14:55:52.469]   ..$ :List of 1
  [14:55:52.469]   .. ..$ b: int 2
  [14:55:52.469]   ..$ :List of 1
  [14:55:52.469]   .. ..$ b: int 1
  [14:55:52.469]  $ a             : int 1
  [14:55:52.469]  $ plan_a        :List of 1
  [14:55:52.469]   ..$ b:function (..., envir = parent.frame())  
  [14:55:52.469]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [14:55:52.469]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:52.469]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:52.469]  - attr(*, "where")=List of 3
  [14:55:52.469]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:52.469]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:52.469]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:52.469]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:52.469]  - attr(*, "resolved")= logi FALSE
  [14:55:52.469]  - attr(*, "total_size")= num 11568
  [14:55:52.469]  - attr(*, "already-done")= logi TRUE
  [14:55:52.755]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [14:55:52.502] - copied '...future.x_ii' to environment
  [14:55:52.755]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [14:55:52.502] - copied 'a' to environment
  [14:55:52.756]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [14:55:52.502] - copied 'plan_a' to environment
  [14:55:52.756]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [14:55:52.503] List of 3
  [14:55:52.503]  $ ...future.x_ii:List of 3
  [14:55:52.503]   ..$ :List of 1
  [14:55:52.503]   .. ..$ b: int 3
  [14:55:52.503]   ..$ :List of 1
  [14:55:52.503]   .. ..$ b: int 2
  [14:55:52.503]   ..$ :List of 1
  [14:55:52.503]   .. ..$ b: int 1
  [14:55:52.503]  $ a             : int 1
  [14:55:52.503]  $ plan_a        :List of 1
  [14:55:52.503]   ..$ b:function (..., envir = parent.frame())  
  [14:55:52.503]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [14:55:52.503]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:52.503]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:52.503]  - attr(*, "where")=List of 3
  [14:55:52.503]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:52.503]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:52.503]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:52.503]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:52.503]  - attr(*, "resolved")= logi FALSE
  [14:55:52.503]  - attr(*, "total_size")= num 11568
  [14:55:52.503]  - attr(*, "already-done")= logi TRUE
  [14:55:52.756]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [14:55:52.534] assign_globals() ... done
  [14:55:52.757]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [14:55:52.535] plan(): Setting new future strategy stack:
  [14:55:52.757]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [14:55:52.536] List of future strategies:
  [14:55:52.536] 1. sequential:
  [14:55:52.536]    - args: function (..., envir = parent.frame())
  [14:55:52.536]    - tweaked: FALSE
  [14:55:52.536]    - call: NULL
  [14:55:52.757]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [14:55:52.553] plan(): nbrOfWorkers() = 1
  [14:55:52.758]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [14:55:52.579] plan(): Setting new future strategy stack:
  [14:55:52.758]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [14:55:52.579] List of future strategies:
  [14:55:52.579] 1. sequential:
  [14:55:52.579]    - args: function (..., envir = parent.frame())
  [14:55:52.579]    - tweaked: FALSE
  [14:55:52.579]    - call: plan(list(a = strategy1, b = strategy2))
  [14:55:52.758]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [14:55:52.580] plan(): nbrOfWorkers() = 1
  [14:55:52.759]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [14:55:52.581] SequentialFuture started (and completed)
  [14:55:52.759]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [14:55:52.581] signalConditions() ...
  [14:55:52.759]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [14:55:52.581]  - include = 'immediateCondition'
  [14:55:52.760]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [14:55:52.582]  - exclude = 
  [14:55:52.760]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [14:55:52.582]  - resignal = FALSE
  [14:55:52.761]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [14:55:52.582]  - Number of conditions: 3
  [14:55:52.761]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [14:55:52.583] signalConditions() ... done
  [14:55:52.761]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [14:55:52.583] - Launch lazy future ... done
  [14:55:52.762]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [14:55:52.583] run() for 'SequentialFuture' ... done
  [14:55:52.762]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [14:55:52.584] Chunk #1 of 1 ... DONE
  [14:55:52.762]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [14:55:52.584] Launching 1 futures (chunks) ... DONE
  [14:55:52.763]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [14:55:52.584] - resolving futures
  [14:55:52.763]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [14:55:52.584]   - gathering results & relaying conditions (except errors)
  [14:55:52.763]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [14:55:52.585] resolve() on list ...
  [14:55:52.764]  - Condition #104: 'simpleMessage', 'message', 'condition'
  [14:55:52.585]  recursive: 0
  [14:55:52.765]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [14:55:52.585]  length: 1
  [14:55:52.766]  - Condition #106: 'simpleMessage', 'message', 'condition'
  [14:55:52.586] 
  [14:55:52.766]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [14:55:52.586] resolved() for 'SequentialFuture' ...
  [14:55:52.767]  - Condition #108: 'simpleMessage', 'message', 'condition'
  [14:55:52.586] - state: 'finished'
  [14:55:52.767]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [14:55:52.587] - run: TRUE
  [14:55:52.767]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [14:55:52.587] - result: 'FutureResult'
  [14:55:52.768]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [14:55:52.587] resolved() for 'SequentialFuture' ... done
  [14:55:52.768]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [14:55:52.587] Future #1
  [14:55:52.768]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [14:55:52.588] signalConditions() ...
  [14:55:52.769]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [14:55:52.588]  - include = 'immediateCondition'
  [14:55:52.769]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [14:55:52.588]  - exclude = 
  [14:55:52.769]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [14:55:52.589]  - resignal = FALSE
  [14:55:52.770]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [14:55:52.589]  - Number of conditions: 3
  [14:55:52.770]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [14:55:52.589] signalConditions() ... done
  [14:55:52.770]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [14:55:52.590] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:55:52.771]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [14:55:52.590] - nx: 1
  [14:55:52.771]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [14:55:52.590] - relay: TRUE
  [14:55:52.771]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [14:55:52.590] - stdout: TRUE
  [14:55:52.772]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [14:55:52.591] - signal: TRUE
  [14:55:52.772]  - Condition #124: 'simpleMessage', 'message', 'condition'
  [14:55:52.591] - resignal: FALSE
  [14:55:52.773]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [14:55:52.591] - force: FALSE
  [14:55:52.773]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [14:55:52.592] - relayed: [n=1] FALSE
  [14:55:52.773]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [14:55:52.592] - queued futures: [n=1] FALSE
  [14:55:52.774]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [14:55:52.608]  - until=1
  [14:55:52.774]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [14:55:52.609]  - relaying element #1
  [14:55:52.774]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [14:55:52.609] signalConditions() ...
  [14:55:52.775]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [14:55:52.609]  - include = 'immediateCondition'
  [14:55:52.775]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [14:55:52.610]  - exclude = 
  [14:55:52.775]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [14:55:52.610]  - resignal = FALSE
  [14:55:52.776]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [14:55:52.610]  - Number of conditions: 3
  [14:55:52.776]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [14:55:52.611] signalConditions() ... done
  [14:55:52.777]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [14:55:52.611] signalConditions() ...
  [14:55:52.777]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [14:55:52.611]  - include = 'immediateCondition'
  [14:55:52.777]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [14:55:52.611]  - exclude = 
  [14:55:52.778]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [14:55:52.612]  - resignal = FALSE
  [14:55:52.778]  - Condition #140: 'simpleMessage', 'message', 'condition'
  [14:55:52.612]  - Number of conditions: 3
  [14:55:52.778]  - Condition #141: 'simpleMessage', 'message', 'condition'
  [14:55:52.612] signalConditions() ... done
  [14:55:52.779]  - Condition #142: 'simpleMessage', 'message', 'condition'
  [14:55:52.612] signalConditions() ...
  [14:55:52.779]  - Condition #143: 'simpleMessage', 'message', 'condition'
  [14:55:52.613]  - include = 'condition'
  [14:55:52.779]  - Condition #144: 'simpleMessage', 'message', 'condition'
  [14:55:52.613]  - exclude = 'immediateCondition'
  [14:55:52.780]  - Condition #145: 'simpleMessage', 'message', 'condition'
  [14:55:52.613]  - resignal = FALSE
  [14:55:52.781]  - Condition #146: 'simpleMessage', 'message', 'condition'
  [14:55:52.613]  - Number of conditions: 3
  [14:55:52.781]  - Condition #147: 'simpleMessage', 'message', 'condition'
  [14:55:52.614]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:55:52.782]  - Condition #148: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (..., envir = parent.frame())- tweaked: FALSE- call: NULL
  [14:55:52.782]  - Condition #149: 'simpleMessage', 'message', 'condition'
  [14:55:52.614]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:55:52.782]  - Condition #150: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (..., envir = parent.frame())- tweaked: FALSE- call: NULL
  [14:55:52.783]  - Condition #151: 'simpleMessage', 'message', 'condition'
  [14:55:52.614]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:55:52.783]  - Condition #152: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (..., envir = parent.frame())- tweaked: FALSE- call: NULL
  [14:55:52.784]  - Condition #153: 'simpleMessage', 'message', 'condition'
  [14:55:52.615] signalConditions() ... done
  [14:55:52.784]  - Condition #154: 'simpleMessage', 'message', 'condition'
  [14:55:52.615] - relayed: [n=1] TRUE
  [14:55:52.784]  - Condition #155: 'simpleMessage', 'message', 'condition'
  [14:55:52.615] - queued futures: [n=1] TRUE
  [14:55:52.785]  - Condition #156: 'simpleMessage', 'message', 'condition'
  [14:55:52.615] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:55:52.785]  - Condition #157: 'simpleMessage', 'message', 'condition'
  [14:55:52.616]  length: 0 (resolved future 1)
  [14:55:52.785]  - Condition #158: 'simpleMessage', 'message', 'condition'
  [14:55:52.616] Relaying remaining futures
  [14:55:52.786]  - Condition #159: 'simpleMessage', 'message', 'condition'
  [14:55:52.616] signalConditionsASAP(NULL, pos=0) ...
  [14:55:52.786]  - Condition #160: 'simpleMessage', 'message', 'condition'
  [14:55:52.616] - nx: 1
  [14:55:52.786]  - Condition #161: 'simpleMessage', 'message', 'condition'
  [14:55:52.617] - relay: TRUE
  [14:55:52.787]  - Condition #162: 'simpleMessage', 'message', 'condition'
  [14:55:52.617] - stdout: TRUE
  [14:55:52.787]  - Condition #163: 'simpleMessage', 'message', 'condition'
  [14:55:52.617] - signal: TRUE
  [14:55:52.788]  - Condition #164: 'simpleMessage', 'message', 'condition'
  [14:55:52.617] - resignal: FALSE
  [14:55:52.788]  - Condition #165: 'simpleMessage', 'message', 'condition'
  [14:55:52.618] - force: FALSE
  [14:55:52.788]  - Condition #166: 'simpleMessage', 'message', 'condition'
  [14:55:52.618] - relayed: [n=1] TRUE
  [14:55:52.789]  - Condition #167: 'simpleMessage', 'message', 'condition'
  [14:55:52.618] - queued futures: [n=1] TRUE
  [14:55:52.789]  - Condition #168: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:55:52.789]  - Condition #169: 'simpleMessage', 'message', 'condition'
  [14:55:52.618] - relayed: [n=1] TRUE
  [14:55:52.790]  - Condition #170: 'simpleMessage', 'message', 'condition'
  [14:55:52.619] - queued futures: [n=1] TRUE
  [14:55:52.790]  - Condition #171: 'simpleMessage', 'message', 'condition'
  [14:55:52.619] signalConditionsASAP(NULL, pos=0) ... done
  [14:55:52.790]  - Condition #172: 'simpleMessage', 'message', 'condition'
  [14:55:52.619] resolve() on list ... DONE
  [14:55:52.791]  - Condition #173: 'simpleMessage', 'message', 'condition'
  [14:55:52.619] - collecting values of futures
  [14:55:52.791]  - Condition #174: 'simpleMessage', 'message', 'condition'
  [14:55:52.620] signalConditions() ...
  [14:55:52.792]  - Condition #175: 'simpleMessage', 'message', 'condition'
  [14:55:52.620]  - include = 'immediateCondition'
  [14:55:52.792]  - Condition #176: 'simpleMessage', 'message', 'condition'
  [14:55:52.620]  - exclude = 
  [14:55:52.792]  - Condition #177: 'simpleMessage', 'message', 'condition'
  [14:55:52.620]  - resignal = FALSE
  [14:55:52.793]  - Condition #178: 'simpleMessage', 'message', 'condition'
  [14:55:52.621]  - Number of conditions: 3
  [14:55:52.793]  - Condition #179: 'simpleMessage', 'message', 'condition'
  [14:55:52.621] signalConditions() ... done
  [14:55:52.793]  - Condition #180: 'simpleMessage', 'message', 'condition'
  [14:55:52.621] - accumulating results
  [14:55:52.794]  - Condition #181: 'simpleMessage', 'message', 'condition'
  [14:55:52.622] - processing errors (handler = 'stop')
  [14:55:52.794]  - Condition #182: 'simpleMessage', 'message', 'condition'
  [14:55:52.622] - extracting results
  [14:55:52.794]  - Condition #183: 'simpleMessage', 'message', 'condition'
  [14:55:52.623] doFuture() ... DONE
  [14:55:52.795]  - Condition #184: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:55:52.795] signalConditions() ... done
  [14:55:52.796] - relayed: [n=2] TRUE, FALSE
  [14:55:52.796] - queued futures: [n=2] TRUE, FALSE
  [14:55:52.796] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [14:55:52.796]  length: 1 (resolved future 1)
  [14:55:52.797] Future #2
  [14:55:52.807] signalConditions() ...
  [14:55:52.807]  - include = 'immediateCondition'
  [14:55:52.807]  - exclude = 
  [14:55:52.808]  - resignal = FALSE
  [14:55:52.808]  - Number of conditions: 184
  [14:55:52.809] signalConditions() ... done
  [14:55:52.809] signalConditions() ...
  [14:55:52.809]  - include = 'immediateCondition'
  [14:55:52.809]  - exclude = 
  [14:55:52.810]  - resignal = FALSE
  [14:55:52.810]  - Number of conditions: 184
  [14:55:52.811] signalConditions() ... done
  [14:55:52.811] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [14:55:52.811] - nx: 2
  [14:55:52.811] - relay: TRUE
  [14:55:52.812] - stdout: TRUE
  [14:55:52.812] - signal: TRUE
  [14:55:52.812] - resignal: FALSE
  [14:55:52.812] - force: FALSE
  [14:55:52.812] - relayed: [n=2] TRUE, FALSE
  [14:55:52.818] - queued futures: [n=2] TRUE, FALSE
  [14:55:52.818]  - until=2
  [14:55:52.819]  - relaying element #2
  [14:55:52.819] signalConditions() ...
  [14:55:52.819]  - include = 'immediateCondition'
  [14:55:52.820]  - exclude = 
  [14:55:52.820]  - resignal = FALSE
  [14:55:52.820]  - Number of conditions: 184
  [14:55:52.821] signalConditions() ... done
  List of 1
   $ b:function (..., envir = parent.frame())  
    ..- 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 (..., envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (..., envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (..., envir = parent.frame())  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:52.822] signalConditions() ...
  [14:55:52.822]  - include = 'immediateCondition'
  [14:55:52.822]  - exclude = 
  [14:55:52.822]  - resignal = FALSE
  [14:55:52.822]  - Number of conditions: 184
  [14:55:52.823] signalConditions() ... done
  [14:55:52.823] signalConditions() ...
  [14:55:52.824]  - include = 'condition'
  [14:55:52.824]  - exclude = 'immediateCondition'
  [14:55:52.824]  - resignal = FALSE
  [14:55:52.824]  - Number of conditions: 184
  [14:55:52.825]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:55:52.825]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:55:52.483] doFuture() ...
  [14:55:52.825]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:55:52.484] - dummy globals (as locals): [1] 'b'
  [14:55:52.826]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [14:55:52.485] - R expression:
  [14:55:52.826]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [14:55:52.486] {
  [14:55:52.486]     doFuture::registerDoFuture()
  [14:55:52.486]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:52.486]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:52.486]         b <- NULL
  [14:55:52.486]         ...future.env <- environment()
  [14:55:52.486]         local({
  [14:55:52.486]             for (name in names(...future.x_jj)) {
  [14:55:52.486]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:52.486]                   inherits = FALSE)
  [14:55:52.486]             }
  [14:55:52.486]         })
  [14:55:52.486]         tryCatch({
  [14:55:52.486]             plan_list <- future::plan("next")
  [14:55:52.486]             message(capture.output(print(plan_list)))
  [14:55:52.486]             stopifnot(inherits(plan_list, "future"))
  [14:55:52.486]             default <- getOption("future.plan", "sequential")
  [14:55:52.486]             if (is.function(default)) 
  [14:55:52.486]                 default <- class(default)
  [14:55:52.486]             stopifnot(inherits(plan_list, default))
  [14:55:52.486]             plan_b <- future::plan("list")
  [14:55:52.486]             str(plan_b)
  [14:55:52.486]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:55:52.486]                 default))
  [14:55:52.486]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:52.486]         }, error = identity)
  [14:55:52.486]     })
  [14:55:52.486] }
  [14:55:52.827]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [14:55:52.487] - identifying globals and packages ...
  [14:55:52.827]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [14:55:52.488] getGlobalsAndPackages() ...
  [14:55:52.828]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [14:55:52.488] Retrieving 'add' globals ...
  [14:55:52.828]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [14:55:52.489] - 'add' globals retrieved: [2] 'a', 'plan_a'
  [14:55:52.828]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [14:55:52.489] Retrieving 'add' globals ... DONE
  [14:55:52.829]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [14:55:52.489] Searching for globals...
  [14:55:52.829]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [14:55:52.519] - 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:55:52.829]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [14:55:52.520] Searching for globals ... DONE
  [14:55:52.830]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [14:55:52.520] Resolving globals: FALSE
  [14:55:52.830]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [14:55:52.523] The total size of the 3 globals is 11.30 KiB (11568 bytes)
  [14:55:52.830]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [14:55:52.525] The total size of the 3 globals exported for future expression ('{; doFuture::registerDoFuture(); lapply(seq_along(...future.x_ii), FUN = function(jj) {; ...future.x_jj <- ...future.x_ii[[jj]]; b <- NULL; ...future.env <- environment(); ...; }, error = identity); }); }') is 11.30 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: 'plan_a' (11.24 KiB of class 'list'), 'a' (56 bytes of class 'numeric') and '...future.x_ii' (0 bytes of class 'NULL')
  [14:55:52.831]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [14:55:52.525] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:52.831]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [14:55:52.526] - packages: [1] 'utils'
  [14:55:52.832]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [14:55:52.526] getGlobalsAndPackages() ... DONE
  [14:55:52.832]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [14:55:52.526] List of 3
  [14:55:52.526]  $ ...future.x_ii: NULL
  [14:55:52.526]  $ a             : int 2
  [14:55:52.526]  $ plan_a        :List of 1
  [14:55:52.526]   ..$ b:function (..., envir = parent.frame())  
  [14:55:52.526]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [14:55:52.526]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:52.526]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:52.526]  - attr(*, "where")=List of 3
  [14:55:52.526]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:52.526]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:52.526]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:52.526]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:52.526]  - attr(*, "resolved")= logi FALSE
  [14:55:52.526]  - attr(*, "total_size")= num 11568
  [14:55:52.832]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [14:55:52.538]   - R expression:
  [14:55:52.833]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [14:55:52.538] {
  [14:55:52.538]     doFuture::registerDoFuture()
  [14:55:52.538]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:52.538]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:52.538]         b <- NULL
  [14:55:52.538]         ...future.env <- environment()
  [14:55:52.538]         local({
  [14:55:52.538]             for (name in names(...future.x_jj)) {
  [14:55:52.538]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:55:52.538]                   inherits = FALSE)
  [14:55:52.538]             }
  [14:55:52.538]         })
  [14:55:52.538]         tryCatch({
  [14:55:52.538]             plan_list <- future::plan("next")
  [14:55:52.538]             message(capture.output(print(plan_list)))
  [14:55:52.538]             stopifnot(inherits(plan_list, "future"))
  [14:55:52.538]             default <- getOption("future.plan", "sequential")
  [14:55:52.538]             if (is.function(default)) 
  [14:55:52.538]                 default <- class(default)
  [14:55:52.538]             stopifnot(inherits(plan_list, default))
  [14:55:52.538]             plan_b <- future::plan("list")
  [14:55:52.538]             str(plan_b)
  [14:55:52.538]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:55:52.538]                 default))
  [14:55:52.538]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:55:52.538]         }, error = identity)
  [14:55:52.538]     })
  [14:55:52.538] }
  [14:55:52.833]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [14:55:52.539]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:52.833]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [14:55:52.539] List of 3
  [14:55:52.539]  $ ...future.x_ii: NULL
  [14:55:52.539]  $ a             : int 2
  [14:55:52.539]  $ plan_a        :List of 1
  [14:55:52.539]   ..$ b:function (..., envir = parent.frame())  
  [14:55:52.539]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [14:55:52.539]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:55:52.539]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:55:52.539]  - attr(*, "where")=List of 3
  [14:55:52.539]   ..$ ...future.x_ii:<environment: R_EmptyEnv> 
  [14:55:52.539]   ..$ a             :<environment: R_EmptyEnv> 
  [14:55:52.539]   ..$ plan_a        :<environment: R_EmptyEnv> 
  [14:55:52.539]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:55:52.539]  - attr(*, "resolved")= logi FALSE
  [14:55:52.539]  - attr(*, "total_size")= num 11568
  [14:55:52.834]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [14:55:52.551]   - packages: [2] 'doFuture', 'utils'
  [14:55:52.834]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [14:55:52.551] - identifying globals and packages ... DONE
  [14:55:52.834]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [14:55:52.552] Number of chunks: 1
  [14:55:52.835]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [14:55:52.552] Number of futures (= number of chunks): 1
  [14:55:52.835]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [14:55:52.552] Launching 1 futures (chunks) ...
  [14:55:52.835]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [14:55:52.553] Chunk #1 of 1 ...
  [14:55:52.836]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [14:55:52.553]  - Finding globals in 'args_list' chunk #1 ...
  [14:55:52.836]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [14:55:52.553] getGlobalsAndPackages() ...
  [14:55:52.836]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [14:55:52.554] Searching for globals...
  [14:55:52.837]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [14:55:52.555] 
  [14:55:52.837]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [14:55:52.555] Searching for globals ... DONE
  [14:55:52.838]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [14:55:52.555] - globals: [0] <none>
  [14:55:52.838]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [14:55:52.556] getGlobalsAndPackages() ... DONE
  [14:55:52.838]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [14:55:52.556] 
  [14:55:52.839]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [14:55:52.556] 
  [14:55:52.839]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [14:55:52.557]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:55:52.839]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [14:55:52.557] getGlobalsAndPackages() ...
  [14:55:52.840]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [14:55:52.557] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:52.840]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [14:55:52.558] Resolving globals: FALSE
  [14:55:52.841]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [14:55:52.558] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:55:52.841]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [14:55:52.559] 
  [14:55:52.842]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [14:55:52.559] getGlobalsAndPackages() ... DONE
  [14:55:52.842]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [14:55:52.561] run() for 'Future' ...
  [14:55:52.842]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [14:55:52.561] - state: 'created'
  [14:55:52.843]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [14:55:52.562] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:55:52.843]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [14:55:52.562] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:55:52.843]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [14:55:52.563] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:55:52.844]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [14:55:52.563]   - Field: 'label'
  [14:55:52.844]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [14:55:52.563]   - Field: 'local'
  [14:55:52.844]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [14:55:52.564]   - Field: 'owner'
  [14:55:52.845]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [14:55:52.564]   - Field: 'envir'
  [14:55:52.845]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [14:55:52.564]   - Field: 'packages'
  [14:55:52.846]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [14:55:52.565]   - Field: 'gc'
  [14:55:52.846]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [14:55:52.565]   - Field: 'conditions'
  [14:55:52.846]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [14:55:52.565]   - Field: 'persistent'
  [14:55:52.847]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [14:55:52.566]   - Field: 'expr'
  [14:55:52.847]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [14:55:52.566]   - Field: 'uuid'
  [14:55:52.847]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [14:55:52.566]   - Field: 'seed'
  [14:55:52.848]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [14:55:52.566]   - Field: 'version'
  [14:55:52.848]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [14:55:52.567]   - Field: 'result'
  [14:55:52.849]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [14:55:52.567]   - Field: 'asynchronous'
  [14:55:52.849]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [14:55:52.567]   - Field: 'calls'
  [14:55:52.849]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [14:55:52.568]   - Field: 'globals'
  [14:55:52.850]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [14:55:52.568]   - Field: 'stdout'
  [14:55:52.850]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [14:55:52.568]   - Field: 'earlySignal'
  [14:55:52.850]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [14:55:52.569]   - Field: 'lazy'
  [14:55:52.851]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [14:55:52.569]   - Field: 'state'
  [14:55:52.851]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [14:55:52.569] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:55:52.851]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [14:55:52.570] - Launch lazy future ...
  [14:55:52.852]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [14:55:52.578] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:55:52.852]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [14:55:52.579] Packages needed by future strategies (n = 0): <none>
  [14:55:52.853]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [14:55:52.582] {
  [14:55:52.582]     {
  [14:55:52.582]         ...future.startTime <- base::Sys.time()
  [14:55:52.582]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:55:52.582]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:55:52.582]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:55:52.582]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:55:52.582]             future.resolve.recursive = NULL, future.rng.onMisuse = NULL, 
  [14:55:52.582]             future.rng.onMisuse.keepFuture = NULL, future.stdout.windows.reencode = NULL, 
  [14:55:52.582]             width = 80L)
  [14:55:52.582]         {
  [14:55:52.582]             {
  [14:55:52.582]                 {
  [14:55:52.582]                   base::local({
  [14:55:52.582]                     has_future <- base::requireNamespace("future", 
  [14:55:52.582]                       quietly = TRUE)
  [14:55:52.582]                     if (has_future) {
  [14:55:52.582]                       ns <- base::getNamespace("future")
  [14:55:52.582]                       version <- ns[[".package"]][["version"]]
  [14:55:52.582]                       if (is.null(version)) 
  [14:55:52.582]                         version <- utils::packageVersion("future")
  [14:55:52.582]                     }
  [14:55:52.582]                     else {
  [14:55:52.582]                       version <- NULL
  [14:55:52.582]                     }
  [14:55:52.582]                     if (!has_future || version < "1.8.0") {
  [14:55:52.582]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:55:52.582]                         "", base::R.version$version.string), 
  [14:55:52.582]                         platform = base::sprintf("%s (%s-bit)", 
  [14:55:52.582]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:55:52.582]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:55:52.582]                           "release", "version")], collapse = " "), 
  [14:55:52.582]                         hostname = base::Sys.info()[["nodename"]])
  [14:55:52.582]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:55:52.582]                         info)
  [14:55:52.582]                       info <- base::paste(info, collapse = "; ")
  [14:55:52.582]                       if (!has_future) {
  [14:55:52.582]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:55:52.582]                           info)
  [14:55:52.582]                       }
  [14:55:52.582]                       else {
  [14:55:52.582]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:55:52.582]                           info, version)
  [14:55:52.582]                       }
  [14:55:52.582]                       base::stop(msg)
  [14:55:52.582]                     }
  [14:55:52.582]                   })
  [14:55:52.582]                 }
  [14:55:52.582]                 base::local({
  [14:55:52.582]                   for (pkg in c("doFuture", "utils")) {
  [14:55:52.582]                     base::loadNamespace(pkg)
  [14:55:52.582]                     base::library(pkg, character.only = TRUE)
  [14:55:52.582]                   }
  [14:55:52.582]                 })
  [14:55:52.582]             }
  [14:55:52.582]             options(future.plan = NULL)
  [14:55:52.582]             Sys.unsetenv("R_FUTURE_PLAN")
  [14:55:52.582]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:55:52.582]         }
  [14:55:52.582]     }
  [14:55:52.582]     if (FALSE) {
  [14:55:52.582]     }
  [14:55:52.582]     else {
  [14:55:52.582]         if (TRUE) {
  [14:55:52.582]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:55:52.582]                 open = "w")
  [14:55:52.582]         }
  [14:55:52.582]         else {
  [14:55:52.582]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:55:52.582]                 windows = "NUL", "/dev/null"), open = "w")
  [14:55:52.582]         }
  [14:55:52.582]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:55:52.582]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:55:52.582]             base::sink(type = "output", split = FALSE)
  [14:55:52.582]             base::close(...future.stdout)
  [14:55:52.582]         }, add = TRUE)
  [14:55:52.582]     }
  [14:55:52.582]     ...future.frame <- base::sys.nframe()
  [14:55:52.582]     ...future.conditions <- base::list()
  [14:55:52.582]     ...future.rng <- base::globalenv()$.Random.seed
  [14:55:52.582]     ...future.result <- base::tryCatch({
  [14:55:52.582]         base::withCallingHandlers({
  [14:55:52.582]             ...future.value <- base::withVisible(base::local({
  [14:55:52.582]                 doFuture::registerDoFuture()
  [14:55:52.582]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:55:52.582]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:55:52.582]                   b <- NULL
  [14:55:52.582]                   ...future.env <- environment()
  [14:55:52.582]                   local({
  [14:55:52.582]                     for (name in names(...future.x_jj)) {
  [14:55:52.582]                       assign(name, ...future.x