R Under development (unstable) (2023-12-20 r85711 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2023 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> source("incl/start.R")
Loading required package: future
[13:13:51.630] plan(): Setting new future strategy stack:
[13:13:51.631] List of future strategies:
[13:13:51.631] 1. sequential:
[13:13:51.631]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:51.631]    - tweaked: FALSE
[13:13:51.631]    - call: future::plan("sequential")
[13:13:51.647] plan(): nbrOfWorkers() = 1
> 
> message("*** future_mapply() ...")
*** future_mapply() ...
> 
> message("- Parallel RNG truth (for later)...")
- Parallel RNG truth (for later)...
> plan(sequential)
[13:13:51.652] plan(): Setting new future strategy stack:
[13:13:51.652] List of future strategies:
[13:13:51.652] 1. sequential:
[13:13:51.652]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:51.652]    - tweaked: FALSE
[13:13:51.652]    - call: plan(sequential)
[13:13:51.666] plan(): nbrOfWorkers() = 1
> y_rng_0 <- future_mapply(stats::runif, n = 1:4, max = 2:5,
+                          MoreArgs = list(min = 1), future.seed = 0xBEEF)
[13:13:51.667] future_mapply() ...
[13:13:51.667] Generating random seeds ...
[13:13:51.668] Generating random seed streams for 4 elements ...
[13:13:51.668] Generating random seed streams for 4 elements ... DONE
[13:13:51.668] Generating random seeds ... DONE
[13:13:51.669] Will set RNG state on exit: 10407, -1918733616, 1584354639, -1174970862, -939885817, 1422965938, -981423529
[13:13:51.669] Number of chunks: 1
[13:13:51.669] getGlobalsAndPackagesXApply() ...
[13:13:51.670]  - future.globals: TRUE
[13:13:51.670] getGlobalsAndPackages() ...
[13:13:51.671] Searching for globals...
[13:13:51.677] - globals found: [3] 'FUN', '.Call', 'C_runif'
[13:13:51.677] Searching for globals ... DONE
[13:13:51.677] Resolving globals: FALSE
[13:13:51.679] The total size of the 1 globals is 2.04 KiB (2088 bytes)
[13:13:51.679] The total size of the 1 globals exported for future expression ('FUN(min = 1)') is 2.04 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (2.04 KiB of class 'function')
[13:13:51.679] - globals: [1] 'FUN'
[13:13:51.680] - packages: [1] 'stats'
[13:13:51.680] getGlobalsAndPackages() ... DONE
[13:13:51.680]  - globals found/used: [n=1] 'FUN'
[13:13:51.680]  - needed namespaces: [n=1] 'stats'
[13:13:51.680] Finding globals ... DONE
[13:13:51.681] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:51.681] List of 2
[13:13:51.681]  $ ...future.FUN:function (n, min = 0, max = 1)  
[13:13:51.681]  $ MoreArgs     :List of 1
[13:13:51.681]   ..$ min: num 1
[13:13:51.681]  - attr(*, "where")=List of 2
[13:13:51.681]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:51.681]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:51.681]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:51.681]  - attr(*, "resolved")= logi FALSE
[13:13:51.681]  - attr(*, "total_size")= num NA
[13:13:51.687] Packages to be attached in all futures: [n=1] 'stats'
[13:13:51.687] getGlobalsAndPackagesXApply() ... DONE
[13:13:51.688] Number of futures (= number of chunks): 1
[13:13:51.688] Launching 1 futures (chunks) ...
[13:13:51.688] Chunk #1 of 1 ...
[13:13:51.689]  - Finding globals in '...' for chunk #1 ...
[13:13:51.689] getGlobalsAndPackages() ...
[13:13:51.689] Searching for globals...
[13:13:51.690] 
[13:13:51.690] Searching for globals ... DONE
[13:13:51.690] - globals: [0] <none>
[13:13:51.690] getGlobalsAndPackages() ... DONE
[13:13:51.690]    + additional globals found: [n=0] 
[13:13:51.690]    + additional namespaces needed: [n=0] 
[13:13:51.691]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:51.691]  - seeds: [4] <seeds>
[13:13:51.691]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:51.691] getGlobalsAndPackages() ...
[13:13:51.691] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:51.692] Resolving globals: FALSE
[13:13:51.692] The total size of the 5 globals is 2.84 KiB (2912 bytes)
[13:13:51.693] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 2.84 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (2.04 KiB of class 'function'), '...future.elements_ii' (448 bytes of class 'list') and '...future.seeds_ii' (320 bytes of class 'list')
[13:13:51.693] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:51.693] - packages: [1] 'stats'
[13:13:51.694] getGlobalsAndPackages() ... DONE
[13:13:51.695] run() for 'Future' ...
[13:13:51.695] - state: 'created'
[13:13:51.695] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:51.696] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:51.696] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:51.696]   - Field: 'label'
[13:13:51.696]   - Field: 'local'
[13:13:51.696]   - Field: 'owner'
[13:13:51.696]   - Field: 'envir'
[13:13:51.697]   - Field: 'packages'
[13:13:51.697]   - Field: 'gc'
[13:13:51.697]   - Field: 'conditions'
[13:13:51.697]   - Field: 'expr'
[13:13:51.697]   - Field: 'uuid'
[13:13:51.698]   - Field: 'seed'
[13:13:51.698]   - Field: 'version'
[13:13:51.698]   - Field: 'result'
[13:13:51.698]   - Field: 'asynchronous'
[13:13:51.698]   - Field: 'calls'
[13:13:51.698]   - Field: 'globals'
[13:13:51.699]   - Field: 'stdout'
[13:13:51.699]   - Field: 'earlySignal'
[13:13:51.699]   - Field: 'lazy'
[13:13:51.699]   - Field: 'state'
[13:13:51.699] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:51.699] - Launch lazy future ...
[13:13:51.701] Packages needed by the future expression (n = 1): 'stats'
[13:13:51.701] Packages needed by future strategies (n = 0): <none>
[13:13:51.702] {
[13:13:51.702]     {
[13:13:51.702]         {
[13:13:51.702]             ...future.startTime <- base::Sys.time()
[13:13:51.702]             {
[13:13:51.702]                 {
[13:13:51.702]                   {
[13:13:51.702]                     {
[13:13:51.702]                       base::local({
[13:13:51.702]                         has_future <- base::requireNamespace("future", 
[13:13:51.702]                           quietly = TRUE)
[13:13:51.702]                         if (has_future) {
[13:13:51.702]                           ns <- base::getNamespace("future")
[13:13:51.702]                           version <- ns[[".package"]][["version"]]
[13:13:51.702]                           if (is.null(version)) 
[13:13:51.702]                             version <- utils::packageVersion("future")
[13:13:51.702]                         }
[13:13:51.702]                         else {
[13:13:51.702]                           version <- NULL
[13:13:51.702]                         }
[13:13:51.702]                         if (!has_future || version < "1.8.0") {
[13:13:51.702]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:51.702]                             "", base::R.version$version.string), 
[13:13:51.702]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:51.702]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:51.702]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:51.702]                               "release", "version")], collapse = " "), 
[13:13:51.702]                             hostname = base::Sys.info()[["nodename"]])
[13:13:51.702]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:51.702]                             info)
[13:13:51.702]                           info <- base::paste(info, collapse = "; ")
[13:13:51.702]                           if (!has_future) {
[13:13:51.702]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:51.702]                               info)
[13:13:51.702]                           }
[13:13:51.702]                           else {
[13:13:51.702]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:51.702]                               info, version)
[13:13:51.702]                           }
[13:13:51.702]                           base::stop(msg)
[13:13:51.702]                         }
[13:13:51.702]                       })
[13:13:51.702]                     }
[13:13:51.702]                     base::local({
[13:13:51.702]                       for (pkg in "stats") {
[13:13:51.702]                         base::loadNamespace(pkg)
[13:13:51.702]                         base::library(pkg, character.only = TRUE)
[13:13:51.702]                       }
[13:13:51.702]                     })
[13:13:51.702]                   }
[13:13:51.702]                   options(future.plan = NULL)
[13:13:51.702]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:51.702]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:51.702]                 }
[13:13:51.702]                 ...future.workdir <- getwd()
[13:13:51.702]             }
[13:13:51.702]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:51.702]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:51.702]         }
[13:13:51.702]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:51.702]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[13:13:51.702]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:51.702]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:51.702]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:51.702]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:51.702]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:51.702]             base::names(...future.oldOptions))
[13:13:51.702]     }
[13:13:51.702]     if (FALSE) {
[13:13:51.702]     }
[13:13:51.702]     else {
[13:13:51.702]         if (TRUE) {
[13:13:51.702]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:51.702]                 open = "w")
[13:13:51.702]         }
[13:13:51.702]         else {
[13:13:51.702]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:51.702]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:51.702]         }
[13:13:51.702]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:51.702]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:51.702]             base::sink(type = "output", split = FALSE)
[13:13:51.702]             base::close(...future.stdout)
[13:13:51.702]         }, add = TRUE)
[13:13:51.702]     }
[13:13:51.702]     ...future.frame <- base::sys.nframe()
[13:13:51.702]     ...future.conditions <- base::list()
[13:13:51.702]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:51.702]     if (FALSE) {
[13:13:51.702]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:51.702]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:51.702]     }
[13:13:51.702]     ...future.result <- base::tryCatch({
[13:13:51.702]         base::withCallingHandlers({
[13:13:51.702]             ...future.value <- base::withVisible(base::local({
[13:13:51.702]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:51.702]                 if (!identical(...future.globals.maxSize.org, 
[13:13:51.702]                   ...future.globals.maxSize)) {
[13:13:51.702]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:51.702]                   on.exit(options(oopts), add = TRUE)
[13:13:51.702]                 }
[13:13:51.702]                 {
[13:13:51.702]                   ...future.FUN2 <- function(..., ...future.seeds_ii_jj) {
[13:13:51.702]                     assign(".Random.seed", ...future.seeds_ii_jj, 
[13:13:51.702]                       envir = globalenv(), inherits = FALSE)
[13:13:51.702]                     ...future.FUN(...)
[13:13:51.702]                   }
[13:13:51.702]                   args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 
[13:13:51.702]                     list(...future.seeds_ii_jj = ...future.seeds_ii), 
[13:13:51.702]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:51.702]                     USE.NAMES = FALSE)
[13:13:51.702]                   do.call(mapply, args = args)
[13:13:51.702]                 }
[13:13:51.702]             }))
[13:13:51.702]             future::FutureResult(value = ...future.value$value, 
[13:13:51.702]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:51.702]                   ...future.rng), globalenv = if (FALSE) 
[13:13:51.702]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:51.702]                     ...future.globalenv.names))
[13:13:51.702]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:51.702]         }, condition = base::local({
[13:13:51.702]             c <- base::c
[13:13:51.702]             inherits <- base::inherits
[13:13:51.702]             invokeRestart <- base::invokeRestart
[13:13:51.702]             length <- base::length
[13:13:51.702]             list <- base::list
[13:13:51.702]             seq.int <- base::seq.int
[13:13:51.702]             signalCondition <- base::signalCondition
[13:13:51.702]             sys.calls <- base::sys.calls
[13:13:51.702]             `[[` <- base::`[[`
[13:13:51.702]             `+` <- base::`+`
[13:13:51.702]             `<<-` <- base::`<<-`
[13:13:51.702]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:51.702]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:51.702]                   3L)]
[13:13:51.702]             }
[13:13:51.702]             function(cond) {
[13:13:51.702]                 is_error <- inherits(cond, "error")
[13:13:51.702]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:51.702]                   NULL)
[13:13:51.702]                 if (is_error) {
[13:13:51.702]                   sessionInformation <- function() {
[13:13:51.702]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:51.702]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:51.702]                       search = base::search(), system = base::Sys.info())
[13:13:51.702]                   }
[13:13:51.702]                   ...future.conditions[[length(...future.conditions) + 
[13:13:51.702]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:51.702]                     cond$call), session = sessionInformation(), 
[13:13:51.702]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:51.702]                   signalCondition(cond)
[13:13:51.702]                 }
[13:13:51.702]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:51.702]                 "immediateCondition"))) {
[13:13:51.702]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:51.702]                   ...future.conditions[[length(...future.conditions) + 
[13:13:51.702]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:51.702]                   if (TRUE && !signal) {
[13:13:51.702]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:51.702]                     {
[13:13:51.702]                       inherits <- base::inherits
[13:13:51.702]                       invokeRestart <- base::invokeRestart
[13:13:51.702]                       is.null <- base::is.null
[13:13:51.702]                       muffled <- FALSE
[13:13:51.702]                       if (inherits(cond, "message")) {
[13:13:51.702]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:51.702]                         if (muffled) 
[13:13:51.702]                           invokeRestart("muffleMessage")
[13:13:51.702]                       }
[13:13:51.702]                       else if (inherits(cond, "warning")) {
[13:13:51.702]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:51.702]                         if (muffled) 
[13:13:51.702]                           invokeRestart("muffleWarning")
[13:13:51.702]                       }
[13:13:51.702]                       else if (inherits(cond, "condition")) {
[13:13:51.702]                         if (!is.null(pattern)) {
[13:13:51.702]                           computeRestarts <- base::computeRestarts
[13:13:51.702]                           grepl <- base::grepl
[13:13:51.702]                           restarts <- computeRestarts(cond)
[13:13:51.702]                           for (restart in restarts) {
[13:13:51.702]                             name <- restart$name
[13:13:51.702]                             if (is.null(name)) 
[13:13:51.702]                               next
[13:13:51.702]                             if (!grepl(pattern, name)) 
[13:13:51.702]                               next
[13:13:51.702]                             invokeRestart(restart)
[13:13:51.702]                             muffled <- TRUE
[13:13:51.702]                             break
[13:13:51.702]                           }
[13:13:51.702]                         }
[13:13:51.702]                       }
[13:13:51.702]                       invisible(muffled)
[13:13:51.702]                     }
[13:13:51.702]                     muffleCondition(cond, pattern = "^muffle")
[13:13:51.702]                   }
[13:13:51.702]                 }
[13:13:51.702]                 else {
[13:13:51.702]                   if (TRUE) {
[13:13:51.702]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:51.702]                     {
[13:13:51.702]                       inherits <- base::inherits
[13:13:51.702]                       invokeRestart <- base::invokeRestart
[13:13:51.702]                       is.null <- base::is.null
[13:13:51.702]                       muffled <- FALSE
[13:13:51.702]                       if (inherits(cond, "message")) {
[13:13:51.702]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:51.702]                         if (muffled) 
[13:13:51.702]                           invokeRestart("muffleMessage")
[13:13:51.702]                       }
[13:13:51.702]                       else if (inherits(cond, "warning")) {
[13:13:51.702]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:51.702]                         if (muffled) 
[13:13:51.702]                           invokeRestart("muffleWarning")
[13:13:51.702]                       }
[13:13:51.702]                       else if (inherits(cond, "condition")) {
[13:13:51.702]                         if (!is.null(pattern)) {
[13:13:51.702]                           computeRestarts <- base::computeRestarts
[13:13:51.702]                           grepl <- base::grepl
[13:13:51.702]                           restarts <- computeRestarts(cond)
[13:13:51.702]                           for (restart in restarts) {
[13:13:51.702]                             name <- restart$name
[13:13:51.702]                             if (is.null(name)) 
[13:13:51.702]                               next
[13:13:51.702]                             if (!grepl(pattern, name)) 
[13:13:51.702]                               next
[13:13:51.702]                             invokeRestart(restart)
[13:13:51.702]                             muffled <- TRUE
[13:13:51.702]                             break
[13:13:51.702]                           }
[13:13:51.702]                         }
[13:13:51.702]                       }
[13:13:51.702]                       invisible(muffled)
[13:13:51.702]                     }
[13:13:51.702]                     muffleCondition(cond, pattern = "^muffle")
[13:13:51.702]                   }
[13:13:51.702]                 }
[13:13:51.702]             }
[13:13:51.702]         }))
[13:13:51.702]     }, error = function(ex) {
[13:13:51.702]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:51.702]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:51.702]                 ...future.rng), started = ...future.startTime, 
[13:13:51.702]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:51.702]             version = "1.8"), class = "FutureResult")
[13:13:51.702]     }, finally = {
[13:13:51.702]         if (!identical(...future.workdir, getwd())) 
[13:13:51.702]             setwd(...future.workdir)
[13:13:51.702]         {
[13:13:51.702]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:51.702]                 ...future.oldOptions$nwarnings <- NULL
[13:13:51.702]             }
[13:13:51.702]             base::options(...future.oldOptions)
[13:13:51.702]             if (.Platform$OS.type == "windows") {
[13:13:51.702]                 old_names <- names(...future.oldEnvVars)
[13:13:51.702]                 envs <- base::Sys.getenv()
[13:13:51.702]                 names <- names(envs)
[13:13:51.702]                 common <- intersect(names, old_names)
[13:13:51.702]                 added <- setdiff(names, old_names)
[13:13:51.702]                 removed <- setdiff(old_names, names)
[13:13:51.702]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:51.702]                   envs[common]]
[13:13:51.702]                 NAMES <- toupper(changed)
[13:13:51.702]                 args <- list()
[13:13:51.702]                 for (kk in seq_along(NAMES)) {
[13:13:51.702]                   name <- changed[[kk]]
[13:13:51.702]                   NAME <- NAMES[[kk]]
[13:13:51.702]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:51.702]                     next
[13:13:51.702]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:51.702]                 }
[13:13:51.702]                 NAMES <- toupper(added)
[13:13:51.702]                 for (kk in seq_along(NAMES)) {
[13:13:51.702]                   name <- added[[kk]]
[13:13:51.702]                   NAME <- NAMES[[kk]]
[13:13:51.702]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:51.702]                     next
[13:13:51.702]                   args[[name]] <- ""
[13:13:51.702]                 }
[13:13:51.702]                 NAMES <- toupper(removed)
[13:13:51.702]                 for (kk in seq_along(NAMES)) {
[13:13:51.702]                   name <- removed[[kk]]
[13:13:51.702]                   NAME <- NAMES[[kk]]
[13:13:51.702]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:51.702]                     next
[13:13:51.702]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:51.702]                 }
[13:13:51.702]                 if (length(args) > 0) 
[13:13:51.702]                   base::do.call(base::Sys.setenv, args = args)
[13:13:51.702]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:51.702]             }
[13:13:51.702]             else {
[13:13:51.702]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:51.702]             }
[13:13:51.702]             {
[13:13:51.702]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:51.702]                   0L) {
[13:13:51.702]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:51.702]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:51.702]                   base::options(opts)
[13:13:51.702]                 }
[13:13:51.702]                 {
[13:13:51.702]                   {
[13:13:51.702]                     base::assign(".Random.seed", c(10407L, -1918733616L, 
[13:13:51.702]                     1584354639L, -1174970862L, -939885817L, 1422965938L, 
[13:13:51.702]                     -981423529L), envir = base::globalenv(), 
[13:13:51.702]                       inherits = FALSE)
[13:13:51.702]                     NULL
[13:13:51.702]                   }
[13:13:51.702]                   options(future.plan = NULL)
[13:13:51.702]                   if (is.na(NA_character_)) 
[13:13:51.702]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:51.702]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:51.702]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:51.702]                   {
[13:13:51.702]                     future <- SequentialFuture(..., envir = envir)
[13:13:51.702]                     if (!future$lazy) 
[13:13:51.702]                       future <- run(future)
[13:13:51.702]                     invisible(future)
[13:13:51.702]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:51.702]                 }
[13:13:51.702]             }
[13:13:51.702]         }
[13:13:51.702]     })
[13:13:51.702]     if (TRUE) {
[13:13:51.702]         base::sink(type = "output", split = FALSE)
[13:13:51.702]         if (TRUE) {
[13:13:51.702]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:51.702]         }
[13:13:51.702]         else {
[13:13:51.702]             ...future.result["stdout"] <- base::list(NULL)
[13:13:51.702]         }
[13:13:51.702]         base::close(...future.stdout)
[13:13:51.702]         ...future.stdout <- NULL
[13:13:51.702]     }
[13:13:51.702]     ...future.result$conditions <- ...future.conditions
[13:13:51.702]     ...future.result$finished <- base::Sys.time()
[13:13:51.702]     ...future.result
[13:13:51.702] }
[13:13:51.706] assign_globals() ...
[13:13:51.706] List of 5
[13:13:51.706]  $ ...future.FUN            :function (n, min = 0, max = 1)  
[13:13:51.706]  $ MoreArgs                 :List of 1
[13:13:51.706]   ..$ min: num 1
[13:13:51.706]  $ ...future.elements_ii    :List of 2
[13:13:51.706]   ..$ n  :List of 4
[13:13:51.706]   .. ..$ : int 1
[13:13:51.706]   .. ..$ : int 2
[13:13:51.706]   .. ..$ : int 3
[13:13:51.706]   .. ..$ : int 4
[13:13:51.706]   ..$ max:List of 4
[13:13:51.706]   .. ..$ : int 2
[13:13:51.706]   .. ..$ : int 3
[13:13:51.706]   .. ..$ : int 4
[13:13:51.706]   .. ..$ : int 5
[13:13:51.706]  $ ...future.seeds_ii       :List of 4
[13:13:51.706]   ..$ : int [1:7] 10407 1242173061 -1150840343 -834448425 701050094 -1369558043 -650964284
[13:13:51.706]   ..$ : int [1:7] 10407 859061261 1088872332 -1371790091 -942478768 -889560561 1393381402
[13:13:51.706]   ..$ : int [1:7] 10407 -1977952646 362645338 -1927542548 -742448269 -2030870718 1472975712
[13:13:51.706]   ..$ : int [1:7] 10407 -781199300 -1470244364 -1435938985 -1154922760 795337516 2089908040
[13:13:51.706]  $ ...future.globals.maxSize: NULL
[13:13:51.706]  - attr(*, "where")=List of 5
[13:13:51.706]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:51.706]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[13:13:51.706]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:51.706]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:51.706]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:51.706]  - attr(*, "resolved")= logi FALSE
[13:13:51.706]  - attr(*, "total_size")= num 2912
[13:13:51.706]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:51.706]  - attr(*, "already-done")= logi TRUE
[13:13:51.719] - copied '...future.FUN' to environment
[13:13:51.719] - copied 'MoreArgs' to environment
[13:13:51.719] - copied '...future.elements_ii' to environment
[13:13:51.719] - copied '...future.seeds_ii' to environment
[13:13:51.719] - copied '...future.globals.maxSize' to environment
[13:13:51.720] assign_globals() ... done
[13:13:51.720] plan(): Setting new future strategy stack:
[13:13:51.720] List of future strategies:
[13:13:51.720] 1. sequential:
[13:13:51.720]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:51.720]    - tweaked: FALSE
[13:13:51.720]    - call: NULL
[13:13:51.721] plan(): nbrOfWorkers() = 1
[13:13:51.723] plan(): Setting new future strategy stack:
[13:13:51.723] List of future strategies:
[13:13:51.723] 1. sequential:
[13:13:51.723]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:51.723]    - tweaked: FALSE
[13:13:51.723]    - call: plan(sequential)
[13:13:51.724] plan(): nbrOfWorkers() = 1
[13:13:51.724] SequentialFuture started (and completed)
[13:13:51.725] - Launch lazy future ... done
[13:13:51.725] run() for 'SequentialFuture' ... done
[13:13:51.725] Created future:
[13:13:51.725] SequentialFuture:
[13:13:51.725] Label: 'future_mapply-1'
[13:13:51.725] Expression:
[13:13:51.725] {
[13:13:51.725]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:51.725]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:51.725]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:51.725]         on.exit(options(oopts), add = TRUE)
[13:13:51.725]     }
[13:13:51.725]     {
[13:13:51.725]         ...future.FUN2 <- function(..., ...future.seeds_ii_jj) {
[13:13:51.725]             assign(".Random.seed", ...future.seeds_ii_jj, envir = globalenv(), 
[13:13:51.725]                 inherits = FALSE)
[13:13:51.725]             ...future.FUN(...)
[13:13:51.725]         }
[13:13:51.725]         args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 
[13:13:51.725]             list(...future.seeds_ii_jj = ...future.seeds_ii), 
[13:13:51.725]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:51.725]         do.call(mapply, args = args)
[13:13:51.725]     }
[13:13:51.725] }
[13:13:51.725] Lazy evaluation: FALSE
[13:13:51.725] Asynchronous evaluation: FALSE
[13:13:51.725] Local evaluation: TRUE
[13:13:51.725] Environment: R_GlobalEnv
[13:13:51.725] Capture standard output: TRUE
[13:13:51.725] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:51.725] Globals: 5 objects totaling 2.84 KiB (function '...future.FUN' of 2.04 KiB, list 'MoreArgs' of 56 bytes, list '...future.elements_ii' of 448 bytes, list '...future.seeds_ii' of 320 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:51.725] Packages: 1 packages ('stats')
[13:13:51.725] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[13:13:51.725] Resolved: TRUE
[13:13:51.725] Value: 280 bytes of class 'list'
[13:13:51.725] Early signaling: FALSE
[13:13:51.725] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:51.725] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:51.727] Chunk #1 of 1 ... DONE
[13:13:51.728] Launching 1 futures (chunks) ... DONE
[13:13:51.728] Resolving 1 futures (chunks) ...
[13:13:51.728] resolve() on list ...
[13:13:51.728]  recursive: 0
[13:13:51.729]  length: 1
[13:13:51.729] 
[13:13:51.729] resolved() for 'SequentialFuture' ...
[13:13:51.729] - state: 'finished'
[13:13:51.730] - run: TRUE
[13:13:51.730] - result: 'FutureResult'
[13:13:51.730] resolved() for 'SequentialFuture' ... done
[13:13:51.730] Future #1
[13:13:51.731] signalConditionsASAP(SequentialFuture, pos=1) ...
[13:13:51.731] - nx: 1
[13:13:51.731] - relay: TRUE
[13:13:51.731] - stdout: TRUE
[13:13:51.731] - signal: TRUE
[13:13:51.731] - resignal: FALSE
[13:13:51.732] - force: TRUE
[13:13:51.732] - relayed: [n=1] FALSE
[13:13:51.732] - queued futures: [n=1] FALSE
[13:13:51.732]  - until=1
[13:13:51.733]  - relaying element #1
[13:13:51.733] - relayed: [n=1] TRUE
[13:13:51.733] - queued futures: [n=1] TRUE
[13:13:51.733] signalConditionsASAP(SequentialFuture, pos=1) ... done
[13:13:51.734]  length: 0 (resolved future 1)
[13:13:51.734] Relaying remaining futures
[13:13:51.734] signalConditionsASAP(NULL, pos=0) ...
[13:13:51.734] - nx: 1
[13:13:51.734] - relay: TRUE
[13:13:51.735] - stdout: TRUE
[13:13:51.735] - signal: TRUE
[13:13:51.735] - resignal: FALSE
[13:13:51.735] - force: TRUE
[13:13:51.735] - relayed: [n=1] TRUE
[13:13:51.735] - queued futures: [n=1] TRUE
 - flush all
[13:13:51.736] - relayed: [n=1] TRUE
[13:13:51.736] - queued futures: [n=1] TRUE
[13:13:51.736] signalConditionsASAP(NULL, pos=0) ... done
[13:13:51.736] resolve() on list ... DONE
[13:13:51.736]  - Number of value chunks collected: 1
[13:13:51.736] Resolving 1 futures (chunks) ... DONE
[13:13:51.737] Reducing values from 1 chunks ...
[13:13:51.737]  - Number of values collected after concatenation: 4
[13:13:51.737]  - Number of values expected: 4
[13:13:51.737] Reducing values from 1 chunks ... DONE
[13:13:51.737] future_mapply() ... DONE
> print(y_rng_0)
[[1]]
[1] 1.752502

[[2]]
[1] 2.765950 2.044156

[[3]]
[1] 1.419503 3.529684 1.023802

[[4]]
[1] 4.494280 3.546145 1.402837 4.295444

> 
> for (strategy in supportedStrategies()) {
+   message(sprintf("*** strategy = %s ...", sQuote(strategy)))
+   plan(strategy)
+ 
+   message("- From example(mapply) ...")
+   y0 <- mapply(rep, 1:4, 4:1)
+   y1 <- future_mapply(rep, 1:4, 4:1)
+   stopifnot(identical(y1, y0))
+   y2 <- future_mapply("rep", 1:4, 4:1)
+   stopifnot(identical(y2, y0))
+   
+   y0 <- mapply(rep, times = 1:4, x = 4:1)
+   y1 <- future_mapply(rep, times = 1:4, x = 4:1)
+   stopifnot(identical(y1, y0))
+   
+   y0 <- mapply(rep, times = 1:4, MoreArgs = list(x = 42))
+   y1 <- future_mapply(rep, times = 1:4, MoreArgs = list(x = 42))
+   stopifnot(identical(y1, y0))
+   
+   y0 <- mapply(function(x, y) seq_len(x) + y,
+                c(a =  1, b = 2, c = 3),  # names from first
+                c(A = 10, B = 0, C = -10))
+   y1 <- future_mapply(function(x, y) seq_len(x) + y,
+                       c(a =  1, b = 2, c = 3),  # names from first
+                       c(A = 10, B = 0, C = -10))
+   stopifnot(identical(y1, y0))
+ 
+   message("- future_.mapply()")
+   dots <- list(c(a =  1, b = 2, c = 3),  # names from first
+                c(A = 10, B = 0, C = -10))
+   y2 <- .mapply(function(x, y) seq_len(x) + y, dots = dots, MoreArgs = list())
+   names(y0) <- NULL  ## .mapply() don't set names
+   stopifnot(all.equal(y2, y0))
+   y3 <- future_.mapply(function(x, y) seq_len(x) + y, dots = dots, MoreArgs = list())
+   stopifnot(all.equal(y3, y2))
+ 
+   word <- function(C, k) paste(rep.int(C, k), collapse = "")
+   for (chunk.size in list(1L, structure(2L, ordering = "random"), structure(3L, ordering = 5:1))) {
+     y0 <- mapply(word, LETTERS[1:5], 5:1, SIMPLIFY = FALSE)
+     y1 <- future_mapply(word, LETTERS[1:5], 5:1, SIMPLIFY = FALSE, future.chunk.size = chunk.size)
+     stopifnot(identical(y1, y0))
+ 
+     dots <- list(LETTERS[1:5], 5:1)
+     MoreArgs <- list()
+     y2 <- .mapply(word, dots = dots, MoreArgs = list())
+     names(y0) <- NULL  ## .mapply() don't set names
+     stopifnot(all.equal(y2, y0))
+     y3 <- future_.mapply(word, dots = dots, MoreArgs = list())
+     stopifnot(all.equal(y3, y2))
+   }
+ 
+   message("- Subsetting (Issue #17) ...")
+   X <- as.Date("2018-06-01")
+   y0 <- mapply(FUN = identity, X, SIMPLIFY = FALSE)
+   y1 <- future_mapply(FUN = identity, X, SIMPLIFY = FALSE)
+   stopifnot(identical(y1, y0))
+ 
+   dots <- list(X)
+   y2 <- .mapply(FUN = identity, dots = dots, MoreArgs = MoreArgs)
+   stopifnot(identical(y2, y0))
+   y3 <- future_.mapply(FUN = identity, dots = dots, MoreArgs = MoreArgs)
+   stopifnot(identical(y3, y2))
+ 
+   message("- Non-recycling of MoreArgs (Issue #51) ...")
+   y0 <- base::mapply(
+     function(x, y) y,
+     x = 1:2, MoreArgs = list(y = 3:4)
+   )
+   y1 <- future.apply::future_mapply(
+     function(x, y) y,
+     x = 1:2, MoreArgs = list(y = 3:4),
+     future.seed = FALSE
+   )
+   stopifnot(identical(y1, y0))
+   y2 <- future.apply::future_mapply(
+     function(x, y) y,
+     x = 1:2, MoreArgs = list(y = 3:4),
+     future.seed = TRUE
+   )
+   stopifnot(identical(y2, y0))
+ 
+   dots <- list(x = 1:2)
+   MoreArgs <- list(y = 3:4)
+   y3 <- .mapply(function(x, y) y, dots = dots, MoreArgs = MoreArgs)
+   y4 <- future_.mapply(function(x, y) y, dots = dots, MoreArgs = MoreArgs)
+   stopifnot(identical(y4, y3))
+ 
+   message("- Recycle arguments to same length ...")
+   y0 <- mapply(rep, 1:4, 2:1)
+   y1 <- future_mapply(rep, 1:4, 2:1)
+   stopifnot(identical(y1, y0))
+ 
+   
+   message("- Parallel RNG ...")
+   y_rng_1 <- future_mapply(stats::runif, n = 1:4, max = 2:5,
+                            MoreArgs = list(min = 1), future.seed = 0xBEEF)
+   print(y_rng_1)
+   stopifnot(all.equal(y_rng_1, y_rng_0))
+ 
+   message("- future_Map() ...")
+   xs <- replicate(5, stats::runif(10), simplify = FALSE)
+   ws <- replicate(5, stats::rpois(10, 5) + 1, simplify = FALSE)
+   y0 <- Map(weighted.mean, xs, ws)
+   y1 <- future_Map(stats::weighted.mean, xs, ws)
+   stopifnot(all.equal(y1, y0))
+ 
+   message("- future_mapply() - 'max-or-0-if' recycling rule ...")
+   ## R (>= 4.2.0): mapply() & Map() follow usual "max-or-0-if" recycling rule
+   ## and keeps returning a named list in the "empty" case.
+   
+   truth <- list()
+   if (getRversion() >= "4.2.0") {
+     y0 <- mapply(`+`, 1:3, NULL)
+     stopifnot(identical(y0, truth))
+   }
+   y <- future_mapply(`+`, 1:3, NULL)
+   stopifnot(identical(y, truth))
+   
+   truth <- setNames(list(), character())
+   if (getRversion() >= "4.2.0") {
+     y0 <- mapply(paste, character(), NULL)
+     stopifnot(identical(y0, truth))
+   }
+   y <- future_mapply(paste, character(), NULL)
+   stopifnot(identical(y, truth))
+   
+   if (getRversion() >= "4.2.0") {
+     y0 <- mapply(paste, character(), letters)
+     stopifnot(identical(y0, truth))
+   }
+   y <- future_mapply(paste, character(), letters)
+   stopifnot(identical(y, truth))
+   
+   if (getRversion() >= "4.2.0") {
+     y0 <- mapply(paste, "A", character())
+     stopifnot(identical(y0, truth))
+   }
+   y <- future_mapply(paste, "A", character())
+   stopifnot(identical(y, truth))
+   
+   if (getRversion() >= "4.2.0") {
+     y0 <- mapply(paste, character(), letters) 
+     stopifnot(identical(y0, truth))
+   }
+   y <- future_mapply(paste, character(), letters) 
+   stopifnot(identical(y, truth))
+   
+   if (getRversion() >= "4.2.0") {
+     y0 <- mapply(paste, character(), NULL)
+     stopifnot(identical(y0, truth))
+   }
+   y <- future_mapply(paste, character(), NULL)
+   stopifnot(identical(y, truth))
+   
+   if (getRversion() >= "4.2.0") {
+     y0 <- mapply(paste, character(), letters)
+     stopifnot(identical(y0, truth))
+   }
+   y <- future_mapply(paste, character(), letters)
+   stopifnot(identical(y, truth))
+   
+   if (getRversion() >= "4.2.0") {
+     y0 <- mapply(paste, "A", character()) 
+     stopifnot(identical(y0, truth))
+   }
+   y <- future_mapply(paste, "A", character()) 
+   stopifnot(identical(y, truth))
+   
+   if (getRversion() >= "4.2.0") {
+     y0 <- mapply(paste, character(), letters) 
+     stopifnot(identical(y0, truth))
+   }
+   y <- future_mapply(paste, character(), letters) 
+   stopifnot(identical(y, truth))
+ 
+   ## Gives an error in R-devel (2021-11-26 r81252)
+   if (getRversion() >= "4.2.0" && FALSE) {
+     y0 <- mapply(paste, c(a = "A"), character())
+     stopifnot(identical(y0, truth))
+   }
+   y <- future_mapply(paste, c(a = "A"), character())
+   stopifnot(identical(y, truth))
+ 
+   ## R (>= 4.2.0): Map() now recycles similar to basic Ops:
+   truth <- as.list(1 + 1:3)
+   if (getRversion() >= "4.2.0") {
+     y0 <- Map(`+`, 1, 1:3)
+     stopifnot(identical(y0, truth))
+   }
+   y <- future_Map(`+`, 1, 1:3)
+   stopifnot(identical(y, truth))
+   
+   truth <- as.list(numeric() + 1:3)
+   if (getRversion() >= "4.2.0") {
+     y0 <- Map(`+`, numeric(), 1:3)
+     stopifnot(identical(y0, truth))
+   }
+   y <- future_Map(`+`, numeric(), 1:3)
+   stopifnot(identical(y, truth))
+ 
+   message("- future_mapply(x, ...) where x[[i]] subsets via S3 method ...")
+   x <- structure(list(a = 1, b = 2), class = "Foo")
+   `[[.Foo` <- function(x, ...) 0
+   y0 <- mapply(x, FUN = identity)
+   stopifnot(identical(y0, c(a = 0, b = 0)))
+   y1 <- future_mapply(x, FUN = identity)
+   if (getOption("future.apply.chunkWith", "[[") == "[") {
+     stopifnot(identical(y1, unlist(x)))
+   } else {
+     stopifnot(identical(y1, y0))
+   }
+ 
+   plan(sequential)
+   message(sprintf("*** strategy = %s ... done", sQuote(strategy)))
+ } ## for (strategy in ...) 
*** strategy = 'sequential' ...
[13:13:51.962] plan(): Setting new future strategy stack:
[13:13:51.963] List of future strategies:
[13:13:51.963] 1. sequential:
[13:13:51.963]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:51.963]    - tweaked: FALSE
[13:13:51.963]    - call: plan(strategy)
[13:13:51.963] plan(): nbrOfWorkers() = 1
- From example(mapply) ...
[13:13:51.964] future_mapply() ...
[13:13:51.964] Number of chunks: 1
[13:13:51.964] getGlobalsAndPackagesXApply() ...
[13:13:51.964]  - future.globals: TRUE
[13:13:51.964] getGlobalsAndPackages() ...
[13:13:51.965] Searching for globals...
[13:13:51.965] - globals found: [1] 'FUN'
[13:13:51.965] Searching for globals ... DONE
[13:13:51.966] Resolving globals: FALSE
[13:13:51.966] The total size of the 1 globals is 56 bytes (56 bytes)
[13:13:51.966] The total size of the 1 globals exported for future expression ('FUN()') is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (56 bytes of class 'function')
[13:13:51.967] - globals: [1] 'FUN'
[13:13:51.967] 
[13:13:51.967] getGlobalsAndPackages() ... DONE
[13:13:51.967]  - globals found/used: [n=1] 'FUN'
[13:13:51.967]  - needed namespaces: [n=0] 
[13:13:51.967] Finding globals ... DONE
[13:13:51.968] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:51.968] List of 2
[13:13:51.968]  $ ...future.FUN:function (x, ...)  
[13:13:51.968]  $ MoreArgs     : NULL
[13:13:51.968]  - attr(*, "where")=List of 2
[13:13:51.968]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:51.968]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:51.968]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:51.968]  - attr(*, "resolved")= logi FALSE
[13:13:51.968]  - attr(*, "total_size")= num NA
[13:13:51.972] Packages to be attached in all futures: [n=0] 
[13:13:51.972] getGlobalsAndPackagesXApply() ... DONE
[13:13:51.972] Number of futures (= number of chunks): 1
[13:13:51.972] Launching 1 futures (chunks) ...
[13:13:51.972] Chunk #1 of 1 ...
[13:13:51.973]  - Finding globals in '...' for chunk #1 ...
[13:13:51.973] getGlobalsAndPackages() ...
[13:13:51.973] Searching for globals...
[13:13:51.973] 
[13:13:51.973] Searching for globals ... DONE
[13:13:51.974] - globals: [0] <none>
[13:13:51.974] getGlobalsAndPackages() ... DONE
[13:13:51.974]    + additional globals found: [n=0] 
[13:13:51.974]    + additional namespaces needed: [n=0] 
[13:13:51.974]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:51.974]  - seeds: <none>
[13:13:51.975]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:51.975] getGlobalsAndPackages() ...
[13:13:51.975] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:51.975] Resolving globals: FALSE
[13:13:51.976] The total size of the 5 globals is 504 bytes (504 bytes)
[13:13:51.976] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 504 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (448 bytes of class 'list'), '...future.FUN' (56 bytes of class 'function') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:51.976] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:51.977] 
[13:13:51.977] getGlobalsAndPackages() ... DONE
[13:13:51.977] run() for 'Future' ...
[13:13:51.977] - state: 'created'
[13:13:51.978] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:51.978] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:51.978] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:51.978]   - Field: 'label'
[13:13:51.978]   - Field: 'local'
[13:13:51.979]   - Field: 'owner'
[13:13:51.979]   - Field: 'envir'
[13:13:51.979]   - Field: 'packages'
[13:13:51.979]   - Field: 'gc'
[13:13:51.979]   - Field: 'conditions'
[13:13:51.979]   - Field: 'expr'
[13:13:51.980]   - Field: 'uuid'
[13:13:51.980]   - Field: 'seed'
[13:13:51.980]   - Field: 'version'
[13:13:51.980]   - Field: 'result'
[13:13:51.980]   - Field: 'asynchronous'
[13:13:51.981]   - Field: 'calls'
[13:13:51.981]   - Field: 'globals'
[13:13:51.981]   - Field: 'stdout'
[13:13:51.981]   - Field: 'earlySignal'
[13:13:51.981]   - Field: 'lazy'
[13:13:51.981]   - Field: 'state'
[13:13:51.982] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:51.982] - Launch lazy future ...
[13:13:51.982] Packages needed by the future expression (n = 0): <none>
[13:13:51.982] Packages needed by future strategies (n = 0): <none>
[13:13:51.983] {
[13:13:51.983]     {
[13:13:51.983]         {
[13:13:51.983]             ...future.startTime <- base::Sys.time()
[13:13:51.983]             {
[13:13:51.983]                 {
[13:13:51.983]                   {
[13:13:51.983]                     base::local({
[13:13:51.983]                       has_future <- base::requireNamespace("future", 
[13:13:51.983]                         quietly = TRUE)
[13:13:51.983]                       if (has_future) {
[13:13:51.983]                         ns <- base::getNamespace("future")
[13:13:51.983]                         version <- ns[[".package"]][["version"]]
[13:13:51.983]                         if (is.null(version)) 
[13:13:51.983]                           version <- utils::packageVersion("future")
[13:13:51.983]                       }
[13:13:51.983]                       else {
[13:13:51.983]                         version <- NULL
[13:13:51.983]                       }
[13:13:51.983]                       if (!has_future || version < "1.8.0") {
[13:13:51.983]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:51.983]                           "", base::R.version$version.string), 
[13:13:51.983]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:51.983]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:51.983]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:51.983]                             "release", "version")], collapse = " "), 
[13:13:51.983]                           hostname = base::Sys.info()[["nodename"]])
[13:13:51.983]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:51.983]                           info)
[13:13:51.983]                         info <- base::paste(info, collapse = "; ")
[13:13:51.983]                         if (!has_future) {
[13:13:51.983]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:51.983]                             info)
[13:13:51.983]                         }
[13:13:51.983]                         else {
[13:13:51.983]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:51.983]                             info, version)
[13:13:51.983]                         }
[13:13:51.983]                         base::stop(msg)
[13:13:51.983]                       }
[13:13:51.983]                     })
[13:13:51.983]                   }
[13:13:51.983]                   options(future.plan = NULL)
[13:13:51.983]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:51.983]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:51.983]                 }
[13:13:51.983]                 ...future.workdir <- getwd()
[13:13:51.983]             }
[13:13:51.983]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:51.983]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:51.983]         }
[13:13:51.983]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:51.983]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[13:13:51.983]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:51.983]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:51.983]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:51.983]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:51.983]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:51.983]             base::names(...future.oldOptions))
[13:13:51.983]     }
[13:13:51.983]     if (FALSE) {
[13:13:51.983]     }
[13:13:51.983]     else {
[13:13:51.983]         if (TRUE) {
[13:13:51.983]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:51.983]                 open = "w")
[13:13:51.983]         }
[13:13:51.983]         else {
[13:13:51.983]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:51.983]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:51.983]         }
[13:13:51.983]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:51.983]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:51.983]             base::sink(type = "output", split = FALSE)
[13:13:51.983]             base::close(...future.stdout)
[13:13:51.983]         }, add = TRUE)
[13:13:51.983]     }
[13:13:51.983]     ...future.frame <- base::sys.nframe()
[13:13:51.983]     ...future.conditions <- base::list()
[13:13:51.983]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:51.983]     if (FALSE) {
[13:13:51.983]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:51.983]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:51.983]     }
[13:13:51.983]     ...future.result <- base::tryCatch({
[13:13:51.983]         base::withCallingHandlers({
[13:13:51.983]             ...future.value <- base::withVisible(base::local({
[13:13:51.983]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:51.983]                 if (!identical(...future.globals.maxSize.org, 
[13:13:51.983]                   ...future.globals.maxSize)) {
[13:13:51.983]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:51.983]                   on.exit(options(oopts), add = TRUE)
[13:13:51.983]                 }
[13:13:51.983]                 {
[13:13:51.983]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:51.983]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:51.983]                     USE.NAMES = FALSE)
[13:13:51.983]                   do.call(mapply, args = args)
[13:13:51.983]                 }
[13:13:51.983]             }))
[13:13:51.983]             future::FutureResult(value = ...future.value$value, 
[13:13:51.983]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:51.983]                   ...future.rng), globalenv = if (FALSE) 
[13:13:51.983]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:51.983]                     ...future.globalenv.names))
[13:13:51.983]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:51.983]         }, condition = base::local({
[13:13:51.983]             c <- base::c
[13:13:51.983]             inherits <- base::inherits
[13:13:51.983]             invokeRestart <- base::invokeRestart
[13:13:51.983]             length <- base::length
[13:13:51.983]             list <- base::list
[13:13:51.983]             seq.int <- base::seq.int
[13:13:51.983]             signalCondition <- base::signalCondition
[13:13:51.983]             sys.calls <- base::sys.calls
[13:13:51.983]             `[[` <- base::`[[`
[13:13:51.983]             `+` <- base::`+`
[13:13:51.983]             `<<-` <- base::`<<-`
[13:13:51.983]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:51.983]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:51.983]                   3L)]
[13:13:51.983]             }
[13:13:51.983]             function(cond) {
[13:13:51.983]                 is_error <- inherits(cond, "error")
[13:13:51.983]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:51.983]                   NULL)
[13:13:51.983]                 if (is_error) {
[13:13:51.983]                   sessionInformation <- function() {
[13:13:51.983]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:51.983]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:51.983]                       search = base::search(), system = base::Sys.info())
[13:13:51.983]                   }
[13:13:51.983]                   ...future.conditions[[length(...future.conditions) + 
[13:13:51.983]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:51.983]                     cond$call), session = sessionInformation(), 
[13:13:51.983]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:51.983]                   signalCondition(cond)
[13:13:51.983]                 }
[13:13:51.983]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:51.983]                 "immediateCondition"))) {
[13:13:51.983]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:51.983]                   ...future.conditions[[length(...future.conditions) + 
[13:13:51.983]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:51.983]                   if (TRUE && !signal) {
[13:13:51.983]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:51.983]                     {
[13:13:51.983]                       inherits <- base::inherits
[13:13:51.983]                       invokeRestart <- base::invokeRestart
[13:13:51.983]                       is.null <- base::is.null
[13:13:51.983]                       muffled <- FALSE
[13:13:51.983]                       if (inherits(cond, "message")) {
[13:13:51.983]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:51.983]                         if (muffled) 
[13:13:51.983]                           invokeRestart("muffleMessage")
[13:13:51.983]                       }
[13:13:51.983]                       else if (inherits(cond, "warning")) {
[13:13:51.983]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:51.983]                         if (muffled) 
[13:13:51.983]                           invokeRestart("muffleWarning")
[13:13:51.983]                       }
[13:13:51.983]                       else if (inherits(cond, "condition")) {
[13:13:51.983]                         if (!is.null(pattern)) {
[13:13:51.983]                           computeRestarts <- base::computeRestarts
[13:13:51.983]                           grepl <- base::grepl
[13:13:51.983]                           restarts <- computeRestarts(cond)
[13:13:51.983]                           for (restart in restarts) {
[13:13:51.983]                             name <- restart$name
[13:13:51.983]                             if (is.null(name)) 
[13:13:51.983]                               next
[13:13:51.983]                             if (!grepl(pattern, name)) 
[13:13:51.983]                               next
[13:13:51.983]                             invokeRestart(restart)
[13:13:51.983]                             muffled <- TRUE
[13:13:51.983]                             break
[13:13:51.983]                           }
[13:13:51.983]                         }
[13:13:51.983]                       }
[13:13:51.983]                       invisible(muffled)
[13:13:51.983]                     }
[13:13:51.983]                     muffleCondition(cond, pattern = "^muffle")
[13:13:51.983]                   }
[13:13:51.983]                 }
[13:13:51.983]                 else {
[13:13:51.983]                   if (TRUE) {
[13:13:51.983]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:51.983]                     {
[13:13:51.983]                       inherits <- base::inherits
[13:13:51.983]                       invokeRestart <- base::invokeRestart
[13:13:51.983]                       is.null <- base::is.null
[13:13:51.983]                       muffled <- FALSE
[13:13:51.983]                       if (inherits(cond, "message")) {
[13:13:51.983]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:51.983]                         if (muffled) 
[13:13:51.983]                           invokeRestart("muffleMessage")
[13:13:51.983]                       }
[13:13:51.983]                       else if (inherits(cond, "warning")) {
[13:13:51.983]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:51.983]                         if (muffled) 
[13:13:51.983]                           invokeRestart("muffleWarning")
[13:13:51.983]                       }
[13:13:51.983]                       else if (inherits(cond, "condition")) {
[13:13:51.983]                         if (!is.null(pattern)) {
[13:13:51.983]                           computeRestarts <- base::computeRestarts
[13:13:51.983]                           grepl <- base::grepl
[13:13:51.983]                           restarts <- computeRestarts(cond)
[13:13:51.983]                           for (restart in restarts) {
[13:13:51.983]                             name <- restart$name
[13:13:51.983]                             if (is.null(name)) 
[13:13:51.983]                               next
[13:13:51.983]                             if (!grepl(pattern, name)) 
[13:13:51.983]                               next
[13:13:51.983]                             invokeRestart(restart)
[13:13:51.983]                             muffled <- TRUE
[13:13:51.983]                             break
[13:13:51.983]                           }
[13:13:51.983]                         }
[13:13:51.983]                       }
[13:13:51.983]                       invisible(muffled)
[13:13:51.983]                     }
[13:13:51.983]                     muffleCondition(cond, pattern = "^muffle")
[13:13:51.983]                   }
[13:13:51.983]                 }
[13:13:51.983]             }
[13:13:51.983]         }))
[13:13:51.983]     }, error = function(ex) {
[13:13:51.983]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:51.983]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:51.983]                 ...future.rng), started = ...future.startTime, 
[13:13:51.983]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:51.983]             version = "1.8"), class = "FutureResult")
[13:13:51.983]     }, finally = {
[13:13:51.983]         if (!identical(...future.workdir, getwd())) 
[13:13:51.983]             setwd(...future.workdir)
[13:13:51.983]         {
[13:13:51.983]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:51.983]                 ...future.oldOptions$nwarnings <- NULL
[13:13:51.983]             }
[13:13:51.983]             base::options(...future.oldOptions)
[13:13:51.983]             if (.Platform$OS.type == "windows") {
[13:13:51.983]                 old_names <- names(...future.oldEnvVars)
[13:13:51.983]                 envs <- base::Sys.getenv()
[13:13:51.983]                 names <- names(envs)
[13:13:51.983]                 common <- intersect(names, old_names)
[13:13:51.983]                 added <- setdiff(names, old_names)
[13:13:51.983]                 removed <- setdiff(old_names, names)
[13:13:51.983]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:51.983]                   envs[common]]
[13:13:51.983]                 NAMES <- toupper(changed)
[13:13:51.983]                 args <- list()
[13:13:51.983]                 for (kk in seq_along(NAMES)) {
[13:13:51.983]                   name <- changed[[kk]]
[13:13:51.983]                   NAME <- NAMES[[kk]]
[13:13:51.983]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:51.983]                     next
[13:13:51.983]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:51.983]                 }
[13:13:51.983]                 NAMES <- toupper(added)
[13:13:51.983]                 for (kk in seq_along(NAMES)) {
[13:13:51.983]                   name <- added[[kk]]
[13:13:51.983]                   NAME <- NAMES[[kk]]
[13:13:51.983]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:51.983]                     next
[13:13:51.983]                   args[[name]] <- ""
[13:13:51.983]                 }
[13:13:51.983]                 NAMES <- toupper(removed)
[13:13:51.983]                 for (kk in seq_along(NAMES)) {
[13:13:51.983]                   name <- removed[[kk]]
[13:13:51.983]                   NAME <- NAMES[[kk]]
[13:13:51.983]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:51.983]                     next
[13:13:51.983]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:51.983]                 }
[13:13:51.983]                 if (length(args) > 0) 
[13:13:51.983]                   base::do.call(base::Sys.setenv, args = args)
[13:13:51.983]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:51.983]             }
[13:13:51.983]             else {
[13:13:51.983]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:51.983]             }
[13:13:51.983]             {
[13:13:51.983]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:51.983]                   0L) {
[13:13:51.983]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:51.983]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:51.983]                   base::options(opts)
[13:13:51.983]                 }
[13:13:51.983]                 {
[13:13:51.983]                   {
[13:13:51.983]                     base::assign(".Random.seed", c(10407L, -1918733616L, 
[13:13:51.983]                     1584354639L, -1174970862L, -939885817L, 1422965938L, 
[13:13:51.983]                     -981423529L), envir = base::globalenv(), 
[13:13:51.983]                       inherits = FALSE)
[13:13:51.983]                     NULL
[13:13:51.983]                   }
[13:13:51.983]                   options(future.plan = NULL)
[13:13:51.983]                   if (is.na(NA_character_)) 
[13:13:51.983]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:51.983]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:51.983]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:51.983]                   {
[13:13:51.983]                     future <- SequentialFuture(..., envir = envir)
[13:13:51.983]                     if (!future$lazy) 
[13:13:51.983]                       future <- run(future)
[13:13:51.983]                     invisible(future)
[13:13:51.983]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:51.983]                 }
[13:13:51.983]             }
[13:13:51.983]         }
[13:13:51.983]     })
[13:13:51.983]     if (TRUE) {
[13:13:51.983]         base::sink(type = "output", split = FALSE)
[13:13:51.983]         if (TRUE) {
[13:13:51.983]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:51.983]         }
[13:13:51.983]         else {
[13:13:51.983]             ...future.result["stdout"] <- base::list(NULL)
[13:13:51.983]         }
[13:13:51.983]         base::close(...future.stdout)
[13:13:51.983]         ...future.stdout <- NULL
[13:13:51.983]     }
[13:13:51.983]     ...future.result$conditions <- ...future.conditions
[13:13:51.983]     ...future.result$finished <- base::Sys.time()
[13:13:51.983]     ...future.result
[13:13:51.983] }
[13:13:51.987] assign_globals() ...
[13:13:51.987] List of 5
[13:13:51.987]  $ ...future.FUN            :function (x, ...)  
[13:13:51.987]  $ MoreArgs                 : NULL
[13:13:51.987]  $ ...future.elements_ii    :List of 2
[13:13:51.987]   ..$ :List of 4
[13:13:51.987]   .. ..$ : int 1
[13:13:51.987]   .. ..$ : int 2
[13:13:51.987]   .. ..$ : int 3
[13:13:51.987]   .. ..$ : int 4
[13:13:51.987]   ..$ :List of 4
[13:13:51.987]   .. ..$ : int 4
[13:13:51.987]   .. ..$ : int 3
[13:13:51.987]   .. ..$ : int 2
[13:13:51.987]   .. ..$ : int 1
[13:13:51.987]  $ ...future.seeds_ii       : NULL
[13:13:51.987]  $ ...future.globals.maxSize: NULL
[13:13:51.987]  - attr(*, "where")=List of 5
[13:13:51.987]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:51.987]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[13:13:51.987]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:51.987]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:51.987]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:51.987]  - attr(*, "resolved")= logi FALSE
[13:13:51.987]  - attr(*, "total_size")= num 504
[13:13:51.987]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:51.987]  - attr(*, "already-done")= logi TRUE
[13:13:51.995] - copied '...future.FUN' to environment
[13:13:51.995] - copied 'MoreArgs' to environment
[13:13:51.995] - copied '...future.elements_ii' to environment
[13:13:51.995] - copied '...future.seeds_ii' to environment
[13:13:51.996] - copied '...future.globals.maxSize' to environment
[13:13:51.996] assign_globals() ... done
[13:13:51.996] plan(): Setting new future strategy stack:
[13:13:51.996] List of future strategies:
[13:13:51.996] 1. sequential:
[13:13:51.996]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:51.996]    - tweaked: FALSE
[13:13:51.996]    - call: NULL
[13:13:51.997] plan(): nbrOfWorkers() = 1
[13:13:51.998] plan(): Setting new future strategy stack:
[13:13:51.998] List of future strategies:
[13:13:51.998] 1. sequential:
[13:13:51.998]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:51.998]    - tweaked: FALSE
[13:13:51.998]    - call: plan(strategy)
[13:13:52.000] plan(): nbrOfWorkers() = 1
[13:13:52.000] SequentialFuture started (and completed)
[13:13:52.000] - Launch lazy future ... done
[13:13:52.000] run() for 'SequentialFuture' ... done
[13:13:52.001] Created future:
[13:13:52.001] SequentialFuture:
[13:13:52.001] Label: 'future_mapply-1'
[13:13:52.001] Expression:
[13:13:52.001] {
[13:13:52.001]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.001]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:52.001]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.001]         on.exit(options(oopts), add = TRUE)
[13:13:52.001]     }
[13:13:52.001]     {
[13:13:52.001]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.001]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:52.001]         do.call(mapply, args = args)
[13:13:52.001]     }
[13:13:52.001] }
[13:13:52.001] Lazy evaluation: FALSE
[13:13:52.001] Asynchronous evaluation: FALSE
[13:13:52.001] Local evaluation: TRUE
[13:13:52.001] Environment: R_GlobalEnv
[13:13:52.001] Capture standard output: TRUE
[13:13:52.001] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:52.001] Globals: 5 objects totaling 504 bytes (function '...future.FUN' of 56 bytes, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 448 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:52.001] Packages: <none>
[13:13:52.001] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:52.001] Resolved: TRUE
[13:13:52.001] Value: 240 bytes of class 'list'
[13:13:52.001] Early signaling: FALSE
[13:13:52.001] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:52.001] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.002] Chunk #1 of 1 ... DONE
[13:13:52.002] Launching 1 futures (chunks) ... DONE
[13:13:52.002] Resolving 1 futures (chunks) ...
[13:13:52.002] resolve() on list ...
[13:13:52.003]  recursive: 0
[13:13:52.003]  length: 1
[13:13:52.003] 
[13:13:52.003] resolved() for 'SequentialFuture' ...
[13:13:52.003] - state: 'finished'
[13:13:52.003] - run: TRUE
[13:13:52.004] - result: 'FutureResult'
[13:13:52.004] resolved() for 'SequentialFuture' ... done
[13:13:52.004] Future #1
[13:13:52.004] signalConditionsASAP(SequentialFuture, pos=1) ...
[13:13:52.004] - nx: 1
[13:13:52.005] - relay: TRUE
[13:13:52.005] - stdout: TRUE
[13:13:52.005] - signal: TRUE
[13:13:52.005] - resignal: FALSE
[13:13:52.005] - force: TRUE
[13:13:52.005] - relayed: [n=1] FALSE
[13:13:52.005] - queued futures: [n=1] FALSE
[13:13:52.006]  - until=1
[13:13:52.006]  - relaying element #1
[13:13:52.006] - relayed: [n=1] TRUE
[13:13:52.006] - queued futures: [n=1] TRUE
[13:13:52.006] signalConditionsASAP(SequentialFuture, pos=1) ... done
[13:13:52.006]  length: 0 (resolved future 1)
[13:13:52.007] Relaying remaining futures
[13:13:52.007] signalConditionsASAP(NULL, pos=0) ...
[13:13:52.007] - nx: 1
[13:13:52.007] - relay: TRUE
[13:13:52.007] - stdout: TRUE
[13:13:52.007] - signal: TRUE
[13:13:52.008] - resignal: FALSE
[13:13:52.008] - force: TRUE
[13:13:52.008] - relayed: [n=1] TRUE
[13:13:52.008] - queued futures: [n=1] TRUE
 - flush all
[13:13:52.008] - relayed: [n=1] TRUE
[13:13:52.008] - queued futures: [n=1] TRUE
[13:13:52.009] signalConditionsASAP(NULL, pos=0) ... done
[13:13:52.009] resolve() on list ... DONE
[13:13:52.009]  - Number of value chunks collected: 1
[13:13:52.009] Resolving 1 futures (chunks) ... DONE
[13:13:52.009] Reducing values from 1 chunks ...
[13:13:52.009]  - Number of values collected after concatenation: 4
[13:13:52.010]  - Number of values expected: 4
[13:13:52.010] Reducing values from 1 chunks ... DONE
[13:13:52.010] future_mapply() ... DONE
[13:13:52.010] future_mapply() ...
[13:13:52.010] Number of chunks: 1
[13:13:52.010] getGlobalsAndPackagesXApply() ...
[13:13:52.011]  - future.globals: TRUE
[13:13:52.011] getGlobalsAndPackages() ...
[13:13:52.011] Searching for globals...
[13:13:52.012] - globals found: [1] 'FUN'
[13:13:52.012] Searching for globals ... DONE
[13:13:52.012] Resolving globals: FALSE
[13:13:52.012] The total size of the 1 globals is 56 bytes (56 bytes)
[13:13:52.013] The total size of the 1 globals exported for future expression ('FUN()') is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (56 bytes of class 'function')
[13:13:52.013] - globals: [1] 'FUN'
[13:13:52.013] 
[13:13:52.013] getGlobalsAndPackages() ... DONE
[13:13:52.013]  - globals found/used: [n=1] 'FUN'
[13:13:52.014]  - needed namespaces: [n=0] 
[13:13:52.014] Finding globals ... DONE
[13:13:52.014] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:52.014] List of 2
[13:13:52.014]  $ ...future.FUN:function (x, ...)  
[13:13:52.014]  $ MoreArgs     : NULL
[13:13:52.014]  - attr(*, "where")=List of 2
[13:13:52.014]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:52.014]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:52.014]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.014]  - attr(*, "resolved")= logi FALSE
[13:13:52.014]  - attr(*, "total_size")= num NA
[13:13:52.017] Packages to be attached in all futures: [n=0] 
[13:13:52.017] getGlobalsAndPackagesXApply() ... DONE
[13:13:52.017] Number of futures (= number of chunks): 1
[13:13:52.018] Launching 1 futures (chunks) ...
[13:13:52.018] Chunk #1 of 1 ...
[13:13:52.018]  - Finding globals in '...' for chunk #1 ...
[13:13:52.018] getGlobalsAndPackages() ...
[13:13:52.018] Searching for globals...
[13:13:52.019] 
[13:13:52.019] Searching for globals ... DONE
[13:13:52.019] - globals: [0] <none>
[13:13:52.019] getGlobalsAndPackages() ... DONE
[13:13:52.019]    + additional globals found: [n=0] 
[13:13:52.020]    + additional namespaces needed: [n=0] 
[13:13:52.020]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:52.020]  - seeds: <none>
[13:13:52.020]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.020] getGlobalsAndPackages() ...
[13:13:52.020] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.021] Resolving globals: FALSE
[13:13:52.021] The total size of the 5 globals is 504 bytes (504 bytes)
[13:13:52.022] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 504 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (448 bytes of class 'list'), '...future.FUN' (56 bytes of class 'function') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:52.022] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.022] 
[13:13:52.022] getGlobalsAndPackages() ... DONE
[13:13:52.023] run() for 'Future' ...
[13:13:52.023] - state: 'created'
[13:13:52.023] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:52.023] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.024] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:52.024]   - Field: 'label'
[13:13:52.024]   - Field: 'local'
[13:13:52.024]   - Field: 'owner'
[13:13:52.024]   - Field: 'envir'
[13:13:52.024]   - Field: 'packages'
[13:13:52.025]   - Field: 'gc'
[13:13:52.025]   - Field: 'conditions'
[13:13:52.025]   - Field: 'expr'
[13:13:52.025]   - Field: 'uuid'
[13:13:52.025]   - Field: 'seed'
[13:13:52.026]   - Field: 'version'
[13:13:52.026]   - Field: 'result'
[13:13:52.026]   - Field: 'asynchronous'
[13:13:52.026]   - Field: 'calls'
[13:13:52.026]   - Field: 'globals'
[13:13:52.026]   - Field: 'stdout'
[13:13:52.027]   - Field: 'earlySignal'
[13:13:52.027]   - Field: 'lazy'
[13:13:52.028]   - Field: 'state'
[13:13:52.028] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:52.028] - Launch lazy future ...
[13:13:52.028] Packages needed by the future expression (n = 0): <none>
[13:13:52.028] Packages needed by future strategies (n = 0): <none>
[13:13:52.029] {
[13:13:52.029]     {
[13:13:52.029]         {
[13:13:52.029]             ...future.startTime <- base::Sys.time()
[13:13:52.029]             {
[13:13:52.029]                 {
[13:13:52.029]                   {
[13:13:52.029]                     base::local({
[13:13:52.029]                       has_future <- base::requireNamespace("future", 
[13:13:52.029]                         quietly = TRUE)
[13:13:52.029]                       if (has_future) {
[13:13:52.029]                         ns <- base::getNamespace("future")
[13:13:52.029]                         version <- ns[[".package"]][["version"]]
[13:13:52.029]                         if (is.null(version)) 
[13:13:52.029]                           version <- utils::packageVersion("future")
[13:13:52.029]                       }
[13:13:52.029]                       else {
[13:13:52.029]                         version <- NULL
[13:13:52.029]                       }
[13:13:52.029]                       if (!has_future || version < "1.8.0") {
[13:13:52.029]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:52.029]                           "", base::R.version$version.string), 
[13:13:52.029]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:52.029]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:52.029]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:52.029]                             "release", "version")], collapse = " "), 
[13:13:52.029]                           hostname = base::Sys.info()[["nodename"]])
[13:13:52.029]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:52.029]                           info)
[13:13:52.029]                         info <- base::paste(info, collapse = "; ")
[13:13:52.029]                         if (!has_future) {
[13:13:52.029]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:52.029]                             info)
[13:13:52.029]                         }
[13:13:52.029]                         else {
[13:13:52.029]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:52.029]                             info, version)
[13:13:52.029]                         }
[13:13:52.029]                         base::stop(msg)
[13:13:52.029]                       }
[13:13:52.029]                     })
[13:13:52.029]                   }
[13:13:52.029]                   options(future.plan = NULL)
[13:13:52.029]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.029]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:52.029]                 }
[13:13:52.029]                 ...future.workdir <- getwd()
[13:13:52.029]             }
[13:13:52.029]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:52.029]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:52.029]         }
[13:13:52.029]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:52.029]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[13:13:52.029]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:52.029]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:52.029]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:52.029]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:52.029]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:52.029]             base::names(...future.oldOptions))
[13:13:52.029]     }
[13:13:52.029]     if (FALSE) {
[13:13:52.029]     }
[13:13:52.029]     else {
[13:13:52.029]         if (TRUE) {
[13:13:52.029]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:52.029]                 open = "w")
[13:13:52.029]         }
[13:13:52.029]         else {
[13:13:52.029]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:52.029]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:52.029]         }
[13:13:52.029]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:52.029]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:52.029]             base::sink(type = "output", split = FALSE)
[13:13:52.029]             base::close(...future.stdout)
[13:13:52.029]         }, add = TRUE)
[13:13:52.029]     }
[13:13:52.029]     ...future.frame <- base::sys.nframe()
[13:13:52.029]     ...future.conditions <- base::list()
[13:13:52.029]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:52.029]     if (FALSE) {
[13:13:52.029]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:52.029]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:52.029]     }
[13:13:52.029]     ...future.result <- base::tryCatch({
[13:13:52.029]         base::withCallingHandlers({
[13:13:52.029]             ...future.value <- base::withVisible(base::local({
[13:13:52.029]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.029]                 if (!identical(...future.globals.maxSize.org, 
[13:13:52.029]                   ...future.globals.maxSize)) {
[13:13:52.029]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.029]                   on.exit(options(oopts), add = TRUE)
[13:13:52.029]                 }
[13:13:52.029]                 {
[13:13:52.029]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.029]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:52.029]                     USE.NAMES = FALSE)
[13:13:52.029]                   do.call(mapply, args = args)
[13:13:52.029]                 }
[13:13:52.029]             }))
[13:13:52.029]             future::FutureResult(value = ...future.value$value, 
[13:13:52.029]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.029]                   ...future.rng), globalenv = if (FALSE) 
[13:13:52.029]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:52.029]                     ...future.globalenv.names))
[13:13:52.029]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:52.029]         }, condition = base::local({
[13:13:52.029]             c <- base::c
[13:13:52.029]             inherits <- base::inherits
[13:13:52.029]             invokeRestart <- base::invokeRestart
[13:13:52.029]             length <- base::length
[13:13:52.029]             list <- base::list
[13:13:52.029]             seq.int <- base::seq.int
[13:13:52.029]             signalCondition <- base::signalCondition
[13:13:52.029]             sys.calls <- base::sys.calls
[13:13:52.029]             `[[` <- base::`[[`
[13:13:52.029]             `+` <- base::`+`
[13:13:52.029]             `<<-` <- base::`<<-`
[13:13:52.029]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:52.029]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:52.029]                   3L)]
[13:13:52.029]             }
[13:13:52.029]             function(cond) {
[13:13:52.029]                 is_error <- inherits(cond, "error")
[13:13:52.029]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:52.029]                   NULL)
[13:13:52.029]                 if (is_error) {
[13:13:52.029]                   sessionInformation <- function() {
[13:13:52.029]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:52.029]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:52.029]                       search = base::search(), system = base::Sys.info())
[13:13:52.029]                   }
[13:13:52.029]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.029]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:52.029]                     cond$call), session = sessionInformation(), 
[13:13:52.029]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:52.029]                   signalCondition(cond)
[13:13:52.029]                 }
[13:13:52.029]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:52.029]                 "immediateCondition"))) {
[13:13:52.029]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:52.029]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.029]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:52.029]                   if (TRUE && !signal) {
[13:13:52.029]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.029]                     {
[13:13:52.029]                       inherits <- base::inherits
[13:13:52.029]                       invokeRestart <- base::invokeRestart
[13:13:52.029]                       is.null <- base::is.null
[13:13:52.029]                       muffled <- FALSE
[13:13:52.029]                       if (inherits(cond, "message")) {
[13:13:52.029]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.029]                         if (muffled) 
[13:13:52.029]                           invokeRestart("muffleMessage")
[13:13:52.029]                       }
[13:13:52.029]                       else if (inherits(cond, "warning")) {
[13:13:52.029]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.029]                         if (muffled) 
[13:13:52.029]                           invokeRestart("muffleWarning")
[13:13:52.029]                       }
[13:13:52.029]                       else if (inherits(cond, "condition")) {
[13:13:52.029]                         if (!is.null(pattern)) {
[13:13:52.029]                           computeRestarts <- base::computeRestarts
[13:13:52.029]                           grepl <- base::grepl
[13:13:52.029]                           restarts <- computeRestarts(cond)
[13:13:52.029]                           for (restart in restarts) {
[13:13:52.029]                             name <- restart$name
[13:13:52.029]                             if (is.null(name)) 
[13:13:52.029]                               next
[13:13:52.029]                             if (!grepl(pattern, name)) 
[13:13:52.029]                               next
[13:13:52.029]                             invokeRestart(restart)
[13:13:52.029]                             muffled <- TRUE
[13:13:52.029]                             break
[13:13:52.029]                           }
[13:13:52.029]                         }
[13:13:52.029]                       }
[13:13:52.029]                       invisible(muffled)
[13:13:52.029]                     }
[13:13:52.029]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.029]                   }
[13:13:52.029]                 }
[13:13:52.029]                 else {
[13:13:52.029]                   if (TRUE) {
[13:13:52.029]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.029]                     {
[13:13:52.029]                       inherits <- base::inherits
[13:13:52.029]                       invokeRestart <- base::invokeRestart
[13:13:52.029]                       is.null <- base::is.null
[13:13:52.029]                       muffled <- FALSE
[13:13:52.029]                       if (inherits(cond, "message")) {
[13:13:52.029]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.029]                         if (muffled) 
[13:13:52.029]                           invokeRestart("muffleMessage")
[13:13:52.029]                       }
[13:13:52.029]                       else if (inherits(cond, "warning")) {
[13:13:52.029]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.029]                         if (muffled) 
[13:13:52.029]                           invokeRestart("muffleWarning")
[13:13:52.029]                       }
[13:13:52.029]                       else if (inherits(cond, "condition")) {
[13:13:52.029]                         if (!is.null(pattern)) {
[13:13:52.029]                           computeRestarts <- base::computeRestarts
[13:13:52.029]                           grepl <- base::grepl
[13:13:52.029]                           restarts <- computeRestarts(cond)
[13:13:52.029]                           for (restart in restarts) {
[13:13:52.029]                             name <- restart$name
[13:13:52.029]                             if (is.null(name)) 
[13:13:52.029]                               next
[13:13:52.029]                             if (!grepl(pattern, name)) 
[13:13:52.029]                               next
[13:13:52.029]                             invokeRestart(restart)
[13:13:52.029]                             muffled <- TRUE
[13:13:52.029]                             break
[13:13:52.029]                           }
[13:13:52.029]                         }
[13:13:52.029]                       }
[13:13:52.029]                       invisible(muffled)
[13:13:52.029]                     }
[13:13:52.029]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.029]                   }
[13:13:52.029]                 }
[13:13:52.029]             }
[13:13:52.029]         }))
[13:13:52.029]     }, error = function(ex) {
[13:13:52.029]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:52.029]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.029]                 ...future.rng), started = ...future.startTime, 
[13:13:52.029]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:52.029]             version = "1.8"), class = "FutureResult")
[13:13:52.029]     }, finally = {
[13:13:52.029]         if (!identical(...future.workdir, getwd())) 
[13:13:52.029]             setwd(...future.workdir)
[13:13:52.029]         {
[13:13:52.029]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:52.029]                 ...future.oldOptions$nwarnings <- NULL
[13:13:52.029]             }
[13:13:52.029]             base::options(...future.oldOptions)
[13:13:52.029]             if (.Platform$OS.type == "windows") {
[13:13:52.029]                 old_names <- names(...future.oldEnvVars)
[13:13:52.029]                 envs <- base::Sys.getenv()
[13:13:52.029]                 names <- names(envs)
[13:13:52.029]                 common <- intersect(names, old_names)
[13:13:52.029]                 added <- setdiff(names, old_names)
[13:13:52.029]                 removed <- setdiff(old_names, names)
[13:13:52.029]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:52.029]                   envs[common]]
[13:13:52.029]                 NAMES <- toupper(changed)
[13:13:52.029]                 args <- list()
[13:13:52.029]                 for (kk in seq_along(NAMES)) {
[13:13:52.029]                   name <- changed[[kk]]
[13:13:52.029]                   NAME <- NAMES[[kk]]
[13:13:52.029]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.029]                     next
[13:13:52.029]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.029]                 }
[13:13:52.029]                 NAMES <- toupper(added)
[13:13:52.029]                 for (kk in seq_along(NAMES)) {
[13:13:52.029]                   name <- added[[kk]]
[13:13:52.029]                   NAME <- NAMES[[kk]]
[13:13:52.029]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.029]                     next
[13:13:52.029]                   args[[name]] <- ""
[13:13:52.029]                 }
[13:13:52.029]                 NAMES <- toupper(removed)
[13:13:52.029]                 for (kk in seq_along(NAMES)) {
[13:13:52.029]                   name <- removed[[kk]]
[13:13:52.029]                   NAME <- NAMES[[kk]]
[13:13:52.029]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.029]                     next
[13:13:52.029]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.029]                 }
[13:13:52.029]                 if (length(args) > 0) 
[13:13:52.029]                   base::do.call(base::Sys.setenv, args = args)
[13:13:52.029]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:52.029]             }
[13:13:52.029]             else {
[13:13:52.029]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:52.029]             }
[13:13:52.029]             {
[13:13:52.029]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:52.029]                   0L) {
[13:13:52.029]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:52.029]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:52.029]                   base::options(opts)
[13:13:52.029]                 }
[13:13:52.029]                 {
[13:13:52.029]                   {
[13:13:52.029]                     base::assign(".Random.seed", c(10407L, -1918733616L, 
[13:13:52.029]                     1584354639L, -1174970862L, -939885817L, 1422965938L, 
[13:13:52.029]                     -981423529L), envir = base::globalenv(), 
[13:13:52.029]                       inherits = FALSE)
[13:13:52.029]                     NULL
[13:13:52.029]                   }
[13:13:52.029]                   options(future.plan = NULL)
[13:13:52.029]                   if (is.na(NA_character_)) 
[13:13:52.029]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.029]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:52.029]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:52.029]                   {
[13:13:52.029]                     future <- SequentialFuture(..., envir = envir)
[13:13:52.029]                     if (!future$lazy) 
[13:13:52.029]                       future <- run(future)
[13:13:52.029]                     invisible(future)
[13:13:52.029]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:52.029]                 }
[13:13:52.029]             }
[13:13:52.029]         }
[13:13:52.029]     })
[13:13:52.029]     if (TRUE) {
[13:13:52.029]         base::sink(type = "output", split = FALSE)
[13:13:52.029]         if (TRUE) {
[13:13:52.029]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:52.029]         }
[13:13:52.029]         else {
[13:13:52.029]             ...future.result["stdout"] <- base::list(NULL)
[13:13:52.029]         }
[13:13:52.029]         base::close(...future.stdout)
[13:13:52.029]         ...future.stdout <- NULL
[13:13:52.029]     }
[13:13:52.029]     ...future.result$conditions <- ...future.conditions
[13:13:52.029]     ...future.result$finished <- base::Sys.time()
[13:13:52.029]     ...future.result
[13:13:52.029] }
[13:13:52.033] assign_globals() ...
[13:13:52.033] List of 5
[13:13:52.033]  $ ...future.FUN            :function (x, ...)  
[13:13:52.033]  $ MoreArgs                 : NULL
[13:13:52.033]  $ ...future.elements_ii    :List of 2
[13:13:52.033]   ..$ :List of 4
[13:13:52.033]   .. ..$ : int 1
[13:13:52.033]   .. ..$ : int 2
[13:13:52.033]   .. ..$ : int 3
[13:13:52.033]   .. ..$ : int 4
[13:13:52.033]   ..$ :List of 4
[13:13:52.033]   .. ..$ : int 4
[13:13:52.033]   .. ..$ : int 3
[13:13:52.033]   .. ..$ : int 2
[13:13:52.033]   .. ..$ : int 1
[13:13:52.033]  $ ...future.seeds_ii       : NULL
[13:13:52.033]  $ ...future.globals.maxSize: NULL
[13:13:52.033]  - attr(*, "where")=List of 5
[13:13:52.033]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:52.033]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[13:13:52.033]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:52.033]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:52.033]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:52.033]  - attr(*, "resolved")= logi FALSE
[13:13:52.033]  - attr(*, "total_size")= num 504
[13:13:52.033]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.033]  - attr(*, "already-done")= logi TRUE
[13:13:52.041] - copied '...future.FUN' to environment
[13:13:52.041] - copied 'MoreArgs' to environment
[13:13:52.041] - copied '...future.elements_ii' to environment
[13:13:52.041] - copied '...future.seeds_ii' to environment
[13:13:52.042] - copied '...future.globals.maxSize' to environment
[13:13:52.042] assign_globals() ... done
[13:13:52.042] plan(): Setting new future strategy stack:
[13:13:52.042] List of future strategies:
[13:13:52.042] 1. sequential:
[13:13:52.042]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.042]    - tweaked: FALSE
[13:13:52.042]    - call: NULL
[13:13:52.043] plan(): nbrOfWorkers() = 1
[13:13:52.044] plan(): Setting new future strategy stack:
[13:13:52.044] List of future strategies:
[13:13:52.044] 1. sequential:
[13:13:52.044]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.044]    - tweaked: FALSE
[13:13:52.044]    - call: plan(strategy)
[13:13:52.045] plan(): nbrOfWorkers() = 1
[13:13:52.045] SequentialFuture started (and completed)
[13:13:52.045] - Launch lazy future ... done
[13:13:52.046] run() for 'SequentialFuture' ... done
[13:13:52.046] Created future:
[13:13:52.046] SequentialFuture:
[13:13:52.046] Label: 'future_mapply-1'
[13:13:52.046] Expression:
[13:13:52.046] {
[13:13:52.046]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.046]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:52.046]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.046]         on.exit(options(oopts), add = TRUE)
[13:13:52.046]     }
[13:13:52.046]     {
[13:13:52.046]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.046]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:52.046]         do.call(mapply, args = args)
[13:13:52.046]     }
[13:13:52.046] }
[13:13:52.046] Lazy evaluation: FALSE
[13:13:52.046] Asynchronous evaluation: FALSE
[13:13:52.046] Local evaluation: TRUE
[13:13:52.046] Environment: R_GlobalEnv
[13:13:52.046] Capture standard output: TRUE
[13:13:52.046] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:52.046] Globals: 5 objects totaling 504 bytes (function '...future.FUN' of 56 bytes, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 448 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:52.046] Packages: <none>
[13:13:52.046] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:52.046] Resolved: TRUE
[13:13:52.046] Value: 240 bytes of class 'list'
[13:13:52.046] Early signaling: FALSE
[13:13:52.046] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:52.046] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.047] Chunk #1 of 1 ... DONE
[13:13:52.047] Launching 1 futures (chunks) ... DONE
[13:13:52.047] Resolving 1 futures (chunks) ...
[13:13:52.048] resolve() on list ...
[13:13:52.048]  recursive: 0
[13:13:52.048]  length: 1
[13:13:52.048] 
[13:13:52.048] resolved() for 'SequentialFuture' ...
[13:13:52.048] - state: 'finished'
[13:13:52.049] - run: TRUE
[13:13:52.049] - result: 'FutureResult'
[13:13:52.049] resolved() for 'SequentialFuture' ... done
[13:13:52.049] Future #1
[13:13:52.049] signalConditionsASAP(SequentialFuture, pos=1) ...
[13:13:52.050] - nx: 1
[13:13:52.050] - relay: TRUE
[13:13:52.050] - stdout: TRUE
[13:13:52.050] - signal: TRUE
[13:13:52.050] - resignal: FALSE
[13:13:52.050] - force: TRUE
[13:13:52.050] - relayed: [n=1] FALSE
[13:13:52.051] - queued futures: [n=1] FALSE
[13:13:52.051]  - until=1
[13:13:52.051]  - relaying element #1
[13:13:52.051] - relayed: [n=1] TRUE
[13:13:52.051] - queued futures: [n=1] TRUE
[13:13:52.052] signalConditionsASAP(SequentialFuture, pos=1) ... done
[13:13:52.052]  length: 0 (resolved future 1)
[13:13:52.052] Relaying remaining futures
[13:13:52.052] signalConditionsASAP(NULL, pos=0) ...
[13:13:52.052] - nx: 1
[13:13:52.052] - relay: TRUE
[13:13:52.052] - stdout: TRUE
[13:13:52.053] - signal: TRUE
[13:13:52.053] - resignal: FALSE
[13:13:52.053] - force: TRUE
[13:13:52.053] - relayed: [n=1] TRUE
[13:13:52.053] - queued futures: [n=1] TRUE
 - flush all
[13:13:52.053] - relayed: [n=1] TRUE
[13:13:52.054] - queued futures: [n=1] TRUE
[13:13:52.054] signalConditionsASAP(NULL, pos=0) ... done
[13:13:52.054] resolve() on list ... DONE
[13:13:52.054]  - Number of value chunks collected: 1
[13:13:52.054] Resolving 1 futures (chunks) ... DONE
[13:13:52.054] Reducing values from 1 chunks ...
[13:13:52.055]  - Number of values collected after concatenation: 4
[13:13:52.055]  - Number of values expected: 4
[13:13:52.055] Reducing values from 1 chunks ... DONE
[13:13:52.055] future_mapply() ... DONE
[13:13:52.056] future_mapply() ...
[13:13:52.056] Number of chunks: 1
[13:13:52.056] getGlobalsAndPackagesXApply() ...
[13:13:52.057]  - future.globals: TRUE
[13:13:52.057] getGlobalsAndPackages() ...
[13:13:52.057] Searching for globals...
[13:13:52.058] - globals found: [1] 'FUN'
[13:13:52.058] Searching for globals ... DONE
[13:13:52.058] Resolving globals: FALSE
[13:13:52.058] The total size of the 1 globals is 56 bytes (56 bytes)
[13:13:52.059] The total size of the 1 globals exported for future expression ('FUN()') is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (56 bytes of class 'function')
[13:13:52.059] - globals: [1] 'FUN'
[13:13:52.059] 
[13:13:52.059] getGlobalsAndPackages() ... DONE
[13:13:52.059]  - globals found/used: [n=1] 'FUN'
[13:13:52.060]  - needed namespaces: [n=0] 
[13:13:52.060] Finding globals ... DONE
[13:13:52.060] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:52.060] List of 2
[13:13:52.060]  $ ...future.FUN:function (x, ...)  
[13:13:52.060]  $ MoreArgs     : NULL
[13:13:52.060]  - attr(*, "where")=List of 2
[13:13:52.060]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:52.060]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:52.060]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.060]  - attr(*, "resolved")= logi FALSE
[13:13:52.060]  - attr(*, "total_size")= num NA
[13:13:52.063] Packages to be attached in all futures: [n=0] 
[13:13:52.063] getGlobalsAndPackagesXApply() ... DONE
[13:13:52.064] Number of futures (= number of chunks): 1
[13:13:52.064] Launching 1 futures (chunks) ...
[13:13:52.064] Chunk #1 of 1 ...
[13:13:52.064]  - Finding globals in '...' for chunk #1 ...
[13:13:52.064] getGlobalsAndPackages() ...
[13:13:52.064] Searching for globals...
[13:13:52.065] 
[13:13:52.065] Searching for globals ... DONE
[13:13:52.065] - globals: [0] <none>
[13:13:52.065] getGlobalsAndPackages() ... DONE
[13:13:52.065]    + additional globals found: [n=0] 
[13:13:52.066]    + additional namespaces needed: [n=0] 
[13:13:52.066]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:52.066]  - seeds: <none>
[13:13:52.066]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.066] getGlobalsAndPackages() ...
[13:13:52.066] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.067] Resolving globals: FALSE
[13:13:52.067] The total size of the 5 globals is 504 bytes (504 bytes)
[13:13:52.068] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 504 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (448 bytes of class 'list'), '...future.FUN' (56 bytes of class 'function') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:52.068] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.068] 
[13:13:52.068] getGlobalsAndPackages() ... DONE
[13:13:52.069] run() for 'Future' ...
[13:13:52.069] - state: 'created'
[13:13:52.069] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:52.069] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.070] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:52.070]   - Field: 'label'
[13:13:52.070]   - Field: 'local'
[13:13:52.070]   - Field: 'owner'
[13:13:52.070]   - Field: 'envir'
[13:13:52.071]   - Field: 'packages'
[13:13:52.071]   - Field: 'gc'
[13:13:52.071]   - Field: 'conditions'
[13:13:52.071]   - Field: 'expr'
[13:13:52.071]   - Field: 'uuid'
[13:13:52.071]   - Field: 'seed'
[13:13:52.072]   - Field: 'version'
[13:13:52.072]   - Field: 'result'
[13:13:52.072]   - Field: 'asynchronous'
[13:13:52.072]   - Field: 'calls'
[13:13:52.072]   - Field: 'globals'
[13:13:52.072]   - Field: 'stdout'
[13:13:52.073]   - Field: 'earlySignal'
[13:13:52.073]   - Field: 'lazy'
[13:13:52.073]   - Field: 'state'
[13:13:52.073] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:52.073] - Launch lazy future ...
[13:13:52.073] Packages needed by the future expression (n = 0): <none>
[13:13:52.074] Packages needed by future strategies (n = 0): <none>
[13:13:52.074] {
[13:13:52.074]     {
[13:13:52.074]         {
[13:13:52.074]             ...future.startTime <- base::Sys.time()
[13:13:52.074]             {
[13:13:52.074]                 {
[13:13:52.074]                   {
[13:13:52.074]                     base::local({
[13:13:52.074]                       has_future <- base::requireNamespace("future", 
[13:13:52.074]                         quietly = TRUE)
[13:13:52.074]                       if (has_future) {
[13:13:52.074]                         ns <- base::getNamespace("future")
[13:13:52.074]                         version <- ns[[".package"]][["version"]]
[13:13:52.074]                         if (is.null(version)) 
[13:13:52.074]                           version <- utils::packageVersion("future")
[13:13:52.074]                       }
[13:13:52.074]                       else {
[13:13:52.074]                         version <- NULL
[13:13:52.074]                       }
[13:13:52.074]                       if (!has_future || version < "1.8.0") {
[13:13:52.074]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:52.074]                           "", base::R.version$version.string), 
[13:13:52.074]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:52.074]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:52.074]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:52.074]                             "release", "version")], collapse = " "), 
[13:13:52.074]                           hostname = base::Sys.info()[["nodename"]])
[13:13:52.074]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:52.074]                           info)
[13:13:52.074]                         info <- base::paste(info, collapse = "; ")
[13:13:52.074]                         if (!has_future) {
[13:13:52.074]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:52.074]                             info)
[13:13:52.074]                         }
[13:13:52.074]                         else {
[13:13:52.074]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:52.074]                             info, version)
[13:13:52.074]                         }
[13:13:52.074]                         base::stop(msg)
[13:13:52.074]                       }
[13:13:52.074]                     })
[13:13:52.074]                   }
[13:13:52.074]                   options(future.plan = NULL)
[13:13:52.074]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.074]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:52.074]                 }
[13:13:52.074]                 ...future.workdir <- getwd()
[13:13:52.074]             }
[13:13:52.074]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:52.074]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:52.074]         }
[13:13:52.074]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:52.074]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[13:13:52.074]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:52.074]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:52.074]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:52.074]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:52.074]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:52.074]             base::names(...future.oldOptions))
[13:13:52.074]     }
[13:13:52.074]     if (FALSE) {
[13:13:52.074]     }
[13:13:52.074]     else {
[13:13:52.074]         if (TRUE) {
[13:13:52.074]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:52.074]                 open = "w")
[13:13:52.074]         }
[13:13:52.074]         else {
[13:13:52.074]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:52.074]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:52.074]         }
[13:13:52.074]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:52.074]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:52.074]             base::sink(type = "output", split = FALSE)
[13:13:52.074]             base::close(...future.stdout)
[13:13:52.074]         }, add = TRUE)
[13:13:52.074]     }
[13:13:52.074]     ...future.frame <- base::sys.nframe()
[13:13:52.074]     ...future.conditions <- base::list()
[13:13:52.074]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:52.074]     if (FALSE) {
[13:13:52.074]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:52.074]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:52.074]     }
[13:13:52.074]     ...future.result <- base::tryCatch({
[13:13:52.074]         base::withCallingHandlers({
[13:13:52.074]             ...future.value <- base::withVisible(base::local({
[13:13:52.074]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.074]                 if (!identical(...future.globals.maxSize.org, 
[13:13:52.074]                   ...future.globals.maxSize)) {
[13:13:52.074]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.074]                   on.exit(options(oopts), add = TRUE)
[13:13:52.074]                 }
[13:13:52.074]                 {
[13:13:52.074]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.074]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:52.074]                     USE.NAMES = FALSE)
[13:13:52.074]                   do.call(mapply, args = args)
[13:13:52.074]                 }
[13:13:52.074]             }))
[13:13:52.074]             future::FutureResult(value = ...future.value$value, 
[13:13:52.074]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.074]                   ...future.rng), globalenv = if (FALSE) 
[13:13:52.074]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:52.074]                     ...future.globalenv.names))
[13:13:52.074]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:52.074]         }, condition = base::local({
[13:13:52.074]             c <- base::c
[13:13:52.074]             inherits <- base::inherits
[13:13:52.074]             invokeRestart <- base::invokeRestart
[13:13:52.074]             length <- base::length
[13:13:52.074]             list <- base::list
[13:13:52.074]             seq.int <- base::seq.int
[13:13:52.074]             signalCondition <- base::signalCondition
[13:13:52.074]             sys.calls <- base::sys.calls
[13:13:52.074]             `[[` <- base::`[[`
[13:13:52.074]             `+` <- base::`+`
[13:13:52.074]             `<<-` <- base::`<<-`
[13:13:52.074]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:52.074]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:52.074]                   3L)]
[13:13:52.074]             }
[13:13:52.074]             function(cond) {
[13:13:52.074]                 is_error <- inherits(cond, "error")
[13:13:52.074]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:52.074]                   NULL)
[13:13:52.074]                 if (is_error) {
[13:13:52.074]                   sessionInformation <- function() {
[13:13:52.074]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:52.074]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:52.074]                       search = base::search(), system = base::Sys.info())
[13:13:52.074]                   }
[13:13:52.074]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.074]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:52.074]                     cond$call), session = sessionInformation(), 
[13:13:52.074]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:52.074]                   signalCondition(cond)
[13:13:52.074]                 }
[13:13:52.074]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:52.074]                 "immediateCondition"))) {
[13:13:52.074]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:52.074]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.074]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:52.074]                   if (TRUE && !signal) {
[13:13:52.074]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.074]                     {
[13:13:52.074]                       inherits <- base::inherits
[13:13:52.074]                       invokeRestart <- base::invokeRestart
[13:13:52.074]                       is.null <- base::is.null
[13:13:52.074]                       muffled <- FALSE
[13:13:52.074]                       if (inherits(cond, "message")) {
[13:13:52.074]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.074]                         if (muffled) 
[13:13:52.074]                           invokeRestart("muffleMessage")
[13:13:52.074]                       }
[13:13:52.074]                       else if (inherits(cond, "warning")) {
[13:13:52.074]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.074]                         if (muffled) 
[13:13:52.074]                           invokeRestart("muffleWarning")
[13:13:52.074]                       }
[13:13:52.074]                       else if (inherits(cond, "condition")) {
[13:13:52.074]                         if (!is.null(pattern)) {
[13:13:52.074]                           computeRestarts <- base::computeRestarts
[13:13:52.074]                           grepl <- base::grepl
[13:13:52.074]                           restarts <- computeRestarts(cond)
[13:13:52.074]                           for (restart in restarts) {
[13:13:52.074]                             name <- restart$name
[13:13:52.074]                             if (is.null(name)) 
[13:13:52.074]                               next
[13:13:52.074]                             if (!grepl(pattern, name)) 
[13:13:52.074]                               next
[13:13:52.074]                             invokeRestart(restart)
[13:13:52.074]                             muffled <- TRUE
[13:13:52.074]                             break
[13:13:52.074]                           }
[13:13:52.074]                         }
[13:13:52.074]                       }
[13:13:52.074]                       invisible(muffled)
[13:13:52.074]                     }
[13:13:52.074]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.074]                   }
[13:13:52.074]                 }
[13:13:52.074]                 else {
[13:13:52.074]                   if (TRUE) {
[13:13:52.074]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.074]                     {
[13:13:52.074]                       inherits <- base::inherits
[13:13:52.074]                       invokeRestart <- base::invokeRestart
[13:13:52.074]                       is.null <- base::is.null
[13:13:52.074]                       muffled <- FALSE
[13:13:52.074]                       if (inherits(cond, "message")) {
[13:13:52.074]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.074]                         if (muffled) 
[13:13:52.074]                           invokeRestart("muffleMessage")
[13:13:52.074]                       }
[13:13:52.074]                       else if (inherits(cond, "warning")) {
[13:13:52.074]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.074]                         if (muffled) 
[13:13:52.074]                           invokeRestart("muffleWarning")
[13:13:52.074]                       }
[13:13:52.074]                       else if (inherits(cond, "condition")) {
[13:13:52.074]                         if (!is.null(pattern)) {
[13:13:52.074]                           computeRestarts <- base::computeRestarts
[13:13:52.074]                           grepl <- base::grepl
[13:13:52.074]                           restarts <- computeRestarts(cond)
[13:13:52.074]                           for (restart in restarts) {
[13:13:52.074]                             name <- restart$name
[13:13:52.074]                             if (is.null(name)) 
[13:13:52.074]                               next
[13:13:52.074]                             if (!grepl(pattern, name)) 
[13:13:52.074]                               next
[13:13:52.074]                             invokeRestart(restart)
[13:13:52.074]                             muffled <- TRUE
[13:13:52.074]                             break
[13:13:52.074]                           }
[13:13:52.074]                         }
[13:13:52.074]                       }
[13:13:52.074]                       invisible(muffled)
[13:13:52.074]                     }
[13:13:52.074]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.074]                   }
[13:13:52.074]                 }
[13:13:52.074]             }
[13:13:52.074]         }))
[13:13:52.074]     }, error = function(ex) {
[13:13:52.074]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:52.074]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.074]                 ...future.rng), started = ...future.startTime, 
[13:13:52.074]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:52.074]             version = "1.8"), class = "FutureResult")
[13:13:52.074]     }, finally = {
[13:13:52.074]         if (!identical(...future.workdir, getwd())) 
[13:13:52.074]             setwd(...future.workdir)
[13:13:52.074]         {
[13:13:52.074]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:52.074]                 ...future.oldOptions$nwarnings <- NULL
[13:13:52.074]             }
[13:13:52.074]             base::options(...future.oldOptions)
[13:13:52.074]             if (.Platform$OS.type == "windows") {
[13:13:52.074]                 old_names <- names(...future.oldEnvVars)
[13:13:52.074]                 envs <- base::Sys.getenv()
[13:13:52.074]                 names <- names(envs)
[13:13:52.074]                 common <- intersect(names, old_names)
[13:13:52.074]                 added <- setdiff(names, old_names)
[13:13:52.074]                 removed <- setdiff(old_names, names)
[13:13:52.074]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:52.074]                   envs[common]]
[13:13:52.074]                 NAMES <- toupper(changed)
[13:13:52.074]                 args <- list()
[13:13:52.074]                 for (kk in seq_along(NAMES)) {
[13:13:52.074]                   name <- changed[[kk]]
[13:13:52.074]                   NAME <- NAMES[[kk]]
[13:13:52.074]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.074]                     next
[13:13:52.074]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.074]                 }
[13:13:52.074]                 NAMES <- toupper(added)
[13:13:52.074]                 for (kk in seq_along(NAMES)) {
[13:13:52.074]                   name <- added[[kk]]
[13:13:52.074]                   NAME <- NAMES[[kk]]
[13:13:52.074]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.074]                     next
[13:13:52.074]                   args[[name]] <- ""
[13:13:52.074]                 }
[13:13:52.074]                 NAMES <- toupper(removed)
[13:13:52.074]                 for (kk in seq_along(NAMES)) {
[13:13:52.074]                   name <- removed[[kk]]
[13:13:52.074]                   NAME <- NAMES[[kk]]
[13:13:52.074]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.074]                     next
[13:13:52.074]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.074]                 }
[13:13:52.074]                 if (length(args) > 0) 
[13:13:52.074]                   base::do.call(base::Sys.setenv, args = args)
[13:13:52.074]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:52.074]             }
[13:13:52.074]             else {
[13:13:52.074]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:52.074]             }
[13:13:52.074]             {
[13:13:52.074]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:52.074]                   0L) {
[13:13:52.074]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:52.074]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:52.074]                   base::options(opts)
[13:13:52.074]                 }
[13:13:52.074]                 {
[13:13:52.074]                   {
[13:13:52.074]                     base::assign(".Random.seed", c(10407L, -1918733616L, 
[13:13:52.074]                     1584354639L, -1174970862L, -939885817L, 1422965938L, 
[13:13:52.074]                     -981423529L), envir = base::globalenv(), 
[13:13:52.074]                       inherits = FALSE)
[13:13:52.074]                     NULL
[13:13:52.074]                   }
[13:13:52.074]                   options(future.plan = NULL)
[13:13:52.074]                   if (is.na(NA_character_)) 
[13:13:52.074]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.074]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:52.074]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:52.074]                   {
[13:13:52.074]                     future <- SequentialFuture(..., envir = envir)
[13:13:52.074]                     if (!future$lazy) 
[13:13:52.074]                       future <- run(future)
[13:13:52.074]                     invisible(future)
[13:13:52.074]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:52.074]                 }
[13:13:52.074]             }
[13:13:52.074]         }
[13:13:52.074]     })
[13:13:52.074]     if (TRUE) {
[13:13:52.074]         base::sink(type = "output", split = FALSE)
[13:13:52.074]         if (TRUE) {
[13:13:52.074]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:52.074]         }
[13:13:52.074]         else {
[13:13:52.074]             ...future.result["stdout"] <- base::list(NULL)
[13:13:52.074]         }
[13:13:52.074]         base::close(...future.stdout)
[13:13:52.074]         ...future.stdout <- NULL
[13:13:52.074]     }
[13:13:52.074]     ...future.result$conditions <- ...future.conditions
[13:13:52.074]     ...future.result$finished <- base::Sys.time()
[13:13:52.074]     ...future.result
[13:13:52.074] }
[13:13:52.078] assign_globals() ...
[13:13:52.078] List of 5
[13:13:52.078]  $ ...future.FUN            :function (x, ...)  
[13:13:52.078]  $ MoreArgs                 : NULL
[13:13:52.078]  $ ...future.elements_ii    :List of 2
[13:13:52.078]   ..$ times:List of 4
[13:13:52.078]   .. ..$ : int 1
[13:13:52.078]   .. ..$ : int 2
[13:13:52.078]   .. ..$ : int 3
[13:13:52.078]   .. ..$ : int 4
[13:13:52.078]   ..$ x    :List of 4
[13:13:52.078]   .. ..$ : int 4
[13:13:52.078]   .. ..$ : int 3
[13:13:52.078]   .. ..$ : int 2
[13:13:52.078]   .. ..$ : int 1
[13:13:52.078]  $ ...future.seeds_ii       : NULL
[13:13:52.078]  $ ...future.globals.maxSize: NULL
[13:13:52.078]  - attr(*, "where")=List of 5
[13:13:52.078]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:52.078]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[13:13:52.078]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:52.078]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:52.078]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:52.078]  - attr(*, "resolved")= logi FALSE
[13:13:52.078]  - attr(*, "total_size")= num 504
[13:13:52.078]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.078]  - attr(*, "already-done")= logi TRUE
[13:13:52.087] - copied '...future.FUN' to environment
[13:13:52.087] - copied 'MoreArgs' to environment
[13:13:52.087] - copied '...future.elements_ii' to environment
[13:13:52.088] - copied '...future.seeds_ii' to environment
[13:13:52.088] - copied '...future.globals.maxSize' to environment
[13:13:52.088] assign_globals() ... done
[13:13:52.088] plan(): Setting new future strategy stack:
[13:13:52.088] List of future strategies:
[13:13:52.088] 1. sequential:
[13:13:52.088]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.088]    - tweaked: FALSE
[13:13:52.088]    - call: NULL
[13:13:52.089] plan(): nbrOfWorkers() = 1
[13:13:52.090] plan(): Setting new future strategy stack:
[13:13:52.090] List of future strategies:
[13:13:52.090] 1. sequential:
[13:13:52.090]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.090]    - tweaked: FALSE
[13:13:52.090]    - call: plan(strategy)
[13:13:52.091] plan(): nbrOfWorkers() = 1
[13:13:52.091] SequentialFuture started (and completed)
[13:13:52.092] - Launch lazy future ... done
[13:13:52.092] run() for 'SequentialFuture' ... done
[13:13:52.092] Created future:
[13:13:52.092] SequentialFuture:
[13:13:52.092] Label: 'future_mapply-1'
[13:13:52.092] Expression:
[13:13:52.092] {
[13:13:52.092]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.092]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:52.092]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.092]         on.exit(options(oopts), add = TRUE)
[13:13:52.092]     }
[13:13:52.092]     {
[13:13:52.092]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.092]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:52.092]         do.call(mapply, args = args)
[13:13:52.092]     }
[13:13:52.092] }
[13:13:52.092] Lazy evaluation: FALSE
[13:13:52.092] Asynchronous evaluation: FALSE
[13:13:52.092] Local evaluation: TRUE
[13:13:52.092] Environment: R_GlobalEnv
[13:13:52.092] Capture standard output: TRUE
[13:13:52.092] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:52.092] Globals: 5 objects totaling 504 bytes (function '...future.FUN' of 56 bytes, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 448 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:52.092] Packages: <none>
[13:13:52.092] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:52.092] Resolved: TRUE
[13:13:52.092] Value: 240 bytes of class 'list'
[13:13:52.092] Early signaling: FALSE
[13:13:52.092] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:52.092] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.093] Chunk #1 of 1 ... DONE
[13:13:52.093] Launching 1 futures (chunks) ... DONE
[13:13:52.094] Resolving 1 futures (chunks) ...
[13:13:52.094] resolve() on list ...
[13:13:52.094]  recursive: 0
[13:13:52.094]  length: 1
[13:13:52.094] 
[13:13:52.094] resolved() for 'SequentialFuture' ...
[13:13:52.094] - state: 'finished'
[13:13:52.095] - run: TRUE
[13:13:52.095] - result: 'FutureResult'
[13:13:52.095] resolved() for 'SequentialFuture' ... done
[13:13:52.095] Future #1
[13:13:52.095] signalConditionsASAP(SequentialFuture, pos=1) ...
[13:13:52.096] - nx: 1
[13:13:52.096] - relay: TRUE
[13:13:52.096] - stdout: TRUE
[13:13:52.096] - signal: TRUE
[13:13:52.096] - resignal: FALSE
[13:13:52.096] - force: TRUE
[13:13:52.096] - relayed: [n=1] FALSE
[13:13:52.097] - queued futures: [n=1] FALSE
[13:13:52.097]  - until=1
[13:13:52.097]  - relaying element #1
[13:13:52.097] - relayed: [n=1] TRUE
[13:13:52.097] - queued futures: [n=1] TRUE
[13:13:52.098] signalConditionsASAP(SequentialFuture, pos=1) ... done
[13:13:52.098]  length: 0 (resolved future 1)
[13:13:52.098] Relaying remaining futures
[13:13:52.098] signalConditionsASAP(NULL, pos=0) ...
[13:13:52.098] - nx: 1
[13:13:52.098] - relay: TRUE
[13:13:52.098] - stdout: TRUE
[13:13:52.099] - signal: TRUE
[13:13:52.099] - resignal: FALSE
[13:13:52.099] - force: TRUE
[13:13:52.099] - relayed: [n=1] TRUE
[13:13:52.099] - queued futures: [n=1] TRUE
 - flush all
[13:13:52.099] - relayed: [n=1] TRUE
[13:13:52.100] - queued futures: [n=1] TRUE
[13:13:52.100] signalConditionsASAP(NULL, pos=0) ... done
[13:13:52.100] resolve() on list ... DONE
[13:13:52.100]  - Number of value chunks collected: 1
[13:13:52.100] Resolving 1 futures (chunks) ... DONE
[13:13:52.100] Reducing values from 1 chunks ...
[13:13:52.101]  - Number of values collected after concatenation: 4
[13:13:52.101]  - Number of values expected: 4
[13:13:52.101] Reducing values from 1 chunks ... DONE
[13:13:52.101] future_mapply() ... DONE
[13:13:52.101] future_mapply() ...
[13:13:52.102] Number of chunks: 1
[13:13:52.102] getGlobalsAndPackagesXApply() ...
[13:13:52.102]  - future.globals: TRUE
[13:13:52.102] getGlobalsAndPackages() ...
[13:13:52.102] Searching for globals...
[13:13:52.103] - globals found: [1] 'FUN'
[13:13:52.103] Searching for globals ... DONE
[13:13:52.103] Resolving globals: FALSE
[13:13:52.104] The total size of the 1 globals is 56 bytes (56 bytes)
[13:13:52.104] The total size of the 1 globals exported for future expression ('FUN(x = 42)') is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (56 bytes of class 'function')
[13:13:52.104] - globals: [1] 'FUN'
[13:13:52.104] 
[13:13:52.104] getGlobalsAndPackages() ... DONE
[13:13:52.105]  - globals found/used: [n=1] 'FUN'
[13:13:52.105]  - needed namespaces: [n=0] 
[13:13:52.105] Finding globals ... DONE
[13:13:52.105] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:52.105] List of 2
[13:13:52.105]  $ ...future.FUN:function (x, ...)  
[13:13:52.105]  $ MoreArgs     :List of 1
[13:13:52.105]   ..$ x: num 42
[13:13:52.105]  - attr(*, "where")=List of 2
[13:13:52.105]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:52.105]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:52.105]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.105]  - attr(*, "resolved")= logi FALSE
[13:13:52.105]  - attr(*, "total_size")= num NA
[13:13:52.109] Packages to be attached in all futures: [n=0] 
[13:13:52.109] getGlobalsAndPackagesXApply() ... DONE
[13:13:52.109] Number of futures (= number of chunks): 1
[13:13:52.110] Launching 1 futures (chunks) ...
[13:13:52.110] Chunk #1 of 1 ...
[13:13:52.110]  - Finding globals in '...' for chunk #1 ...
[13:13:52.111] getGlobalsAndPackages() ...
[13:13:52.111] Searching for globals...
[13:13:52.111] 
[13:13:52.111] Searching for globals ... DONE
[13:13:52.111] - globals: [0] <none>
[13:13:52.112] getGlobalsAndPackages() ... DONE
[13:13:52.112]    + additional globals found: [n=0] 
[13:13:52.112]    + additional namespaces needed: [n=0] 
[13:13:52.112]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:52.112]  - seeds: <none>
[13:13:52.112]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.113] getGlobalsAndPackages() ...
[13:13:52.113] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.113] Resolving globals: FALSE
[13:13:52.114] The total size of the 5 globals is 336 bytes (336 bytes)
[13:13:52.114] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 336 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (224 bytes of class 'list'), '...future.FUN' (56 bytes of class 'function') and 'MoreArgs' (56 bytes of class 'list')
[13:13:52.114] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.115] 
[13:13:52.115] getGlobalsAndPackages() ... DONE
[13:13:52.115] run() for 'Future' ...
[13:13:52.115] - state: 'created'
[13:13:52.115] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:52.116] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.116] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:52.116]   - Field: 'label'
[13:13:52.116]   - Field: 'local'
[13:13:52.117]   - Field: 'owner'
[13:13:52.117]   - Field: 'envir'
[13:13:52.117]   - Field: 'packages'
[13:13:52.117]   - Field: 'gc'
[13:13:52.117]   - Field: 'conditions'
[13:13:52.117]   - Field: 'expr'
[13:13:52.118]   - Field: 'uuid'
[13:13:52.118]   - Field: 'seed'
[13:13:52.118]   - Field: 'version'
[13:13:52.118]   - Field: 'result'
[13:13:52.118]   - Field: 'asynchronous'
[13:13:52.118]   - Field: 'calls'
[13:13:52.119]   - Field: 'globals'
[13:13:52.119]   - Field: 'stdout'
[13:13:52.119]   - Field: 'earlySignal'
[13:13:52.119]   - Field: 'lazy'
[13:13:52.119]   - Field: 'state'
[13:13:52.119] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:52.120] - Launch lazy future ...
[13:13:52.120] Packages needed by the future expression (n = 0): <none>
[13:13:52.120] Packages needed by future strategies (n = 0): <none>
[13:13:52.121] {
[13:13:52.121]     {
[13:13:52.121]         {
[13:13:52.121]             ...future.startTime <- base::Sys.time()
[13:13:52.121]             {
[13:13:52.121]                 {
[13:13:52.121]                   {
[13:13:52.121]                     base::local({
[13:13:52.121]                       has_future <- base::requireNamespace("future", 
[13:13:52.121]                         quietly = TRUE)
[13:13:52.121]                       if (has_future) {
[13:13:52.121]                         ns <- base::getNamespace("future")
[13:13:52.121]                         version <- ns[[".package"]][["version"]]
[13:13:52.121]                         if (is.null(version)) 
[13:13:52.121]                           version <- utils::packageVersion("future")
[13:13:52.121]                       }
[13:13:52.121]                       else {
[13:13:52.121]                         version <- NULL
[13:13:52.121]                       }
[13:13:52.121]                       if (!has_future || version < "1.8.0") {
[13:13:52.121]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:52.121]                           "", base::R.version$version.string), 
[13:13:52.121]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:52.121]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:52.121]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:52.121]                             "release", "version")], collapse = " "), 
[13:13:52.121]                           hostname = base::Sys.info()[["nodename"]])
[13:13:52.121]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:52.121]                           info)
[13:13:52.121]                         info <- base::paste(info, collapse = "; ")
[13:13:52.121]                         if (!has_future) {
[13:13:52.121]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:52.121]                             info)
[13:13:52.121]                         }
[13:13:52.121]                         else {
[13:13:52.121]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:52.121]                             info, version)
[13:13:52.121]                         }
[13:13:52.121]                         base::stop(msg)
[13:13:52.121]                       }
[13:13:52.121]                     })
[13:13:52.121]                   }
[13:13:52.121]                   options(future.plan = NULL)
[13:13:52.121]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.121]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:52.121]                 }
[13:13:52.121]                 ...future.workdir <- getwd()
[13:13:52.121]             }
[13:13:52.121]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:52.121]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:52.121]         }
[13:13:52.121]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:52.121]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[13:13:52.121]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:52.121]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:52.121]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:52.121]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:52.121]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:52.121]             base::names(...future.oldOptions))
[13:13:52.121]     }
[13:13:52.121]     if (FALSE) {
[13:13:52.121]     }
[13:13:52.121]     else {
[13:13:52.121]         if (TRUE) {
[13:13:52.121]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:52.121]                 open = "w")
[13:13:52.121]         }
[13:13:52.121]         else {
[13:13:52.121]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:52.121]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:52.121]         }
[13:13:52.121]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:52.121]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:52.121]             base::sink(type = "output", split = FALSE)
[13:13:52.121]             base::close(...future.stdout)
[13:13:52.121]         }, add = TRUE)
[13:13:52.121]     }
[13:13:52.121]     ...future.frame <- base::sys.nframe()
[13:13:52.121]     ...future.conditions <- base::list()
[13:13:52.121]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:52.121]     if (FALSE) {
[13:13:52.121]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:52.121]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:52.121]     }
[13:13:52.121]     ...future.result <- base::tryCatch({
[13:13:52.121]         base::withCallingHandlers({
[13:13:52.121]             ...future.value <- base::withVisible(base::local({
[13:13:52.121]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.121]                 if (!identical(...future.globals.maxSize.org, 
[13:13:52.121]                   ...future.globals.maxSize)) {
[13:13:52.121]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.121]                   on.exit(options(oopts), add = TRUE)
[13:13:52.121]                 }
[13:13:52.121]                 {
[13:13:52.121]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.121]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:52.121]                     USE.NAMES = FALSE)
[13:13:52.121]                   do.call(mapply, args = args)
[13:13:52.121]                 }
[13:13:52.121]             }))
[13:13:52.121]             future::FutureResult(value = ...future.value$value, 
[13:13:52.121]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.121]                   ...future.rng), globalenv = if (FALSE) 
[13:13:52.121]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:52.121]                     ...future.globalenv.names))
[13:13:52.121]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:52.121]         }, condition = base::local({
[13:13:52.121]             c <- base::c
[13:13:52.121]             inherits <- base::inherits
[13:13:52.121]             invokeRestart <- base::invokeRestart
[13:13:52.121]             length <- base::length
[13:13:52.121]             list <- base::list
[13:13:52.121]             seq.int <- base::seq.int
[13:13:52.121]             signalCondition <- base::signalCondition
[13:13:52.121]             sys.calls <- base::sys.calls
[13:13:52.121]             `[[` <- base::`[[`
[13:13:52.121]             `+` <- base::`+`
[13:13:52.121]             `<<-` <- base::`<<-`
[13:13:52.121]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:52.121]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:52.121]                   3L)]
[13:13:52.121]             }
[13:13:52.121]             function(cond) {
[13:13:52.121]                 is_error <- inherits(cond, "error")
[13:13:52.121]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:52.121]                   NULL)
[13:13:52.121]                 if (is_error) {
[13:13:52.121]                   sessionInformation <- function() {
[13:13:52.121]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:52.121]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:52.121]                       search = base::search(), system = base::Sys.info())
[13:13:52.121]                   }
[13:13:52.121]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.121]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:52.121]                     cond$call), session = sessionInformation(), 
[13:13:52.121]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:52.121]                   signalCondition(cond)
[13:13:52.121]                 }
[13:13:52.121]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:52.121]                 "immediateCondition"))) {
[13:13:52.121]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:52.121]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.121]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:52.121]                   if (TRUE && !signal) {
[13:13:52.121]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.121]                     {
[13:13:52.121]                       inherits <- base::inherits
[13:13:52.121]                       invokeRestart <- base::invokeRestart
[13:13:52.121]                       is.null <- base::is.null
[13:13:52.121]                       muffled <- FALSE
[13:13:52.121]                       if (inherits(cond, "message")) {
[13:13:52.121]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.121]                         if (muffled) 
[13:13:52.121]                           invokeRestart("muffleMessage")
[13:13:52.121]                       }
[13:13:52.121]                       else if (inherits(cond, "warning")) {
[13:13:52.121]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.121]                         if (muffled) 
[13:13:52.121]                           invokeRestart("muffleWarning")
[13:13:52.121]                       }
[13:13:52.121]                       else if (inherits(cond, "condition")) {
[13:13:52.121]                         if (!is.null(pattern)) {
[13:13:52.121]                           computeRestarts <- base::computeRestarts
[13:13:52.121]                           grepl <- base::grepl
[13:13:52.121]                           restarts <- computeRestarts(cond)
[13:13:52.121]                           for (restart in restarts) {
[13:13:52.121]                             name <- restart$name
[13:13:52.121]                             if (is.null(name)) 
[13:13:52.121]                               next
[13:13:52.121]                             if (!grepl(pattern, name)) 
[13:13:52.121]                               next
[13:13:52.121]                             invokeRestart(restart)
[13:13:52.121]                             muffled <- TRUE
[13:13:52.121]                             break
[13:13:52.121]                           }
[13:13:52.121]                         }
[13:13:52.121]                       }
[13:13:52.121]                       invisible(muffled)
[13:13:52.121]                     }
[13:13:52.121]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.121]                   }
[13:13:52.121]                 }
[13:13:52.121]                 else {
[13:13:52.121]                   if (TRUE) {
[13:13:52.121]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.121]                     {
[13:13:52.121]                       inherits <- base::inherits
[13:13:52.121]                       invokeRestart <- base::invokeRestart
[13:13:52.121]                       is.null <- base::is.null
[13:13:52.121]                       muffled <- FALSE
[13:13:52.121]                       if (inherits(cond, "message")) {
[13:13:52.121]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.121]                         if (muffled) 
[13:13:52.121]                           invokeRestart("muffleMessage")
[13:13:52.121]                       }
[13:13:52.121]                       else if (inherits(cond, "warning")) {
[13:13:52.121]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.121]                         if (muffled) 
[13:13:52.121]                           invokeRestart("muffleWarning")
[13:13:52.121]                       }
[13:13:52.121]                       else if (inherits(cond, "condition")) {
[13:13:52.121]                         if (!is.null(pattern)) {
[13:13:52.121]                           computeRestarts <- base::computeRestarts
[13:13:52.121]                           grepl <- base::grepl
[13:13:52.121]                           restarts <- computeRestarts(cond)
[13:13:52.121]                           for (restart in restarts) {
[13:13:52.121]                             name <- restart$name
[13:13:52.121]                             if (is.null(name)) 
[13:13:52.121]                               next
[13:13:52.121]                             if (!grepl(pattern, name)) 
[13:13:52.121]                               next
[13:13:52.121]                             invokeRestart(restart)
[13:13:52.121]                             muffled <- TRUE
[13:13:52.121]                             break
[13:13:52.121]                           }
[13:13:52.121]                         }
[13:13:52.121]                       }
[13:13:52.121]                       invisible(muffled)
[13:13:52.121]                     }
[13:13:52.121]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.121]                   }
[13:13:52.121]                 }
[13:13:52.121]             }
[13:13:52.121]         }))
[13:13:52.121]     }, error = function(ex) {
[13:13:52.121]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:52.121]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.121]                 ...future.rng), started = ...future.startTime, 
[13:13:52.121]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:52.121]             version = "1.8"), class = "FutureResult")
[13:13:52.121]     }, finally = {
[13:13:52.121]         if (!identical(...future.workdir, getwd())) 
[13:13:52.121]             setwd(...future.workdir)
[13:13:52.121]         {
[13:13:52.121]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:52.121]                 ...future.oldOptions$nwarnings <- NULL
[13:13:52.121]             }
[13:13:52.121]             base::options(...future.oldOptions)
[13:13:52.121]             if (.Platform$OS.type == "windows") {
[13:13:52.121]                 old_names <- names(...future.oldEnvVars)
[13:13:52.121]                 envs <- base::Sys.getenv()
[13:13:52.121]                 names <- names(envs)
[13:13:52.121]                 common <- intersect(names, old_names)
[13:13:52.121]                 added <- setdiff(names, old_names)
[13:13:52.121]                 removed <- setdiff(old_names, names)
[13:13:52.121]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:52.121]                   envs[common]]
[13:13:52.121]                 NAMES <- toupper(changed)
[13:13:52.121]                 args <- list()
[13:13:52.121]                 for (kk in seq_along(NAMES)) {
[13:13:52.121]                   name <- changed[[kk]]
[13:13:52.121]                   NAME <- NAMES[[kk]]
[13:13:52.121]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.121]                     next
[13:13:52.121]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.121]                 }
[13:13:52.121]                 NAMES <- toupper(added)
[13:13:52.121]                 for (kk in seq_along(NAMES)) {
[13:13:52.121]                   name <- added[[kk]]
[13:13:52.121]                   NAME <- NAMES[[kk]]
[13:13:52.121]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.121]                     next
[13:13:52.121]                   args[[name]] <- ""
[13:13:52.121]                 }
[13:13:52.121]                 NAMES <- toupper(removed)
[13:13:52.121]                 for (kk in seq_along(NAMES)) {
[13:13:52.121]                   name <- removed[[kk]]
[13:13:52.121]                   NAME <- NAMES[[kk]]
[13:13:52.121]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.121]                     next
[13:13:52.121]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.121]                 }
[13:13:52.121]                 if (length(args) > 0) 
[13:13:52.121]                   base::do.call(base::Sys.setenv, args = args)
[13:13:52.121]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:52.121]             }
[13:13:52.121]             else {
[13:13:52.121]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:52.121]             }
[13:13:52.121]             {
[13:13:52.121]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:52.121]                   0L) {
[13:13:52.121]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:52.121]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:52.121]                   base::options(opts)
[13:13:52.121]                 }
[13:13:52.121]                 {
[13:13:52.121]                   {
[13:13:52.121]                     base::assign(".Random.seed", c(10407L, -1918733616L, 
[13:13:52.121]                     1584354639L, -1174970862L, -939885817L, 1422965938L, 
[13:13:52.121]                     -981423529L), envir = base::globalenv(), 
[13:13:52.121]                       inherits = FALSE)
[13:13:52.121]                     NULL
[13:13:52.121]                   }
[13:13:52.121]                   options(future.plan = NULL)
[13:13:52.121]                   if (is.na(NA_character_)) 
[13:13:52.121]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.121]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:52.121]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:52.121]                   {
[13:13:52.121]                     future <- SequentialFuture(..., envir = envir)
[13:13:52.121]                     if (!future$lazy) 
[13:13:52.121]                       future <- run(future)
[13:13:52.121]                     invisible(future)
[13:13:52.121]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:52.121]                 }
[13:13:52.121]             }
[13:13:52.121]         }
[13:13:52.121]     })
[13:13:52.121]     if (TRUE) {
[13:13:52.121]         base::sink(type = "output", split = FALSE)
[13:13:52.121]         if (TRUE) {
[13:13:52.121]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:52.121]         }
[13:13:52.121]         else {
[13:13:52.121]             ...future.result["stdout"] <- base::list(NULL)
[13:13:52.121]         }
[13:13:52.121]         base::close(...future.stdout)
[13:13:52.121]         ...future.stdout <- NULL
[13:13:52.121]     }
[13:13:52.121]     ...future.result$conditions <- ...future.conditions
[13:13:52.121]     ...future.result$finished <- base::Sys.time()
[13:13:52.121]     ...future.result
[13:13:52.121] }
[13:13:52.124] assign_globals() ...
[13:13:52.125] List of 5
[13:13:52.125]  $ ...future.FUN            :function (x, ...)  
[13:13:52.125]  $ MoreArgs                 :List of 1
[13:13:52.125]   ..$ x: num 42
[13:13:52.125]  $ ...future.elements_ii    :List of 1
[13:13:52.125]   ..$ times:List of 4
[13:13:52.125]   .. ..$ : int 1
[13:13:52.125]   .. ..$ : int 2
[13:13:52.125]   .. ..$ : int 3
[13:13:52.125]   .. ..$ : int 4
[13:13:52.125]  $ ...future.seeds_ii       : NULL
[13:13:52.125]  $ ...future.globals.maxSize: NULL
[13:13:52.125]  - attr(*, "where")=List of 5
[13:13:52.125]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:52.125]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[13:13:52.125]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:52.125]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:52.125]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:52.125]  - attr(*, "resolved")= logi FALSE
[13:13:52.125]  - attr(*, "total_size")= num 336
[13:13:52.125]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.125]  - attr(*, "already-done")= logi TRUE
[13:13:52.131] - copied '...future.FUN' to environment
[13:13:52.132] - copied 'MoreArgs' to environment
[13:13:52.132] - copied '...future.elements_ii' to environment
[13:13:52.132] - copied '...future.seeds_ii' to environment
[13:13:52.132] - copied '...future.globals.maxSize' to environment
[13:13:52.132] assign_globals() ... done
[13:13:52.133] plan(): Setting new future strategy stack:
[13:13:52.133] List of future strategies:
[13:13:52.133] 1. sequential:
[13:13:52.133]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.133]    - tweaked: FALSE
[13:13:52.133]    - call: NULL
[13:13:52.133] plan(): nbrOfWorkers() = 1
[13:13:52.134] plan(): Setting new future strategy stack:
[13:13:52.135] List of future strategies:
[13:13:52.135] 1. sequential:
[13:13:52.135]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.135]    - tweaked: FALSE
[13:13:52.135]    - call: plan(strategy)
[13:13:52.135] plan(): nbrOfWorkers() = 1
[13:13:52.136] SequentialFuture started (and completed)
[13:13:52.136] - Launch lazy future ... done
[13:13:52.136] run() for 'SequentialFuture' ... done
[13:13:52.136] Created future:
[13:13:52.136] SequentialFuture:
[13:13:52.136] Label: 'future_mapply-1'
[13:13:52.136] Expression:
[13:13:52.136] {
[13:13:52.136]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.136]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:52.136]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.136]         on.exit(options(oopts), add = TRUE)
[13:13:52.136]     }
[13:13:52.136]     {
[13:13:52.136]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.136]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:52.136]         do.call(mapply, args = args)
[13:13:52.136]     }
[13:13:52.136] }
[13:13:52.136] Lazy evaluation: FALSE
[13:13:52.136] Asynchronous evaluation: FALSE
[13:13:52.136] Local evaluation: TRUE
[13:13:52.136] Environment: R_GlobalEnv
[13:13:52.136] Capture standard output: TRUE
[13:13:52.136] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:52.136] Globals: 5 objects totaling 336 bytes (function '...future.FUN' of 56 bytes, list 'MoreArgs' of 56 bytes, list '...future.elements_ii' of 224 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:52.136] Packages: <none>
[13:13:52.136] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:52.136] Resolved: TRUE
[13:13:52.136] Value: 280 bytes of class 'list'
[13:13:52.136] Early signaling: FALSE
[13:13:52.136] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:52.136] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.137] Chunk #1 of 1 ... DONE
[13:13:52.138] Launching 1 futures (chunks) ... DONE
[13:13:52.138] Resolving 1 futures (chunks) ...
[13:13:52.139] resolve() on list ...
[13:13:52.139]  recursive: 0
[13:13:52.139]  length: 1
[13:13:52.139] 
[13:13:52.140] resolved() for 'SequentialFuture' ...
[13:13:52.140] - state: 'finished'
[13:13:52.140] - run: TRUE
[13:13:52.140] - result: 'FutureResult'
[13:13:52.140] resolved() for 'SequentialFuture' ... done
[13:13:52.140] Future #1
[13:13:52.141] signalConditionsASAP(SequentialFuture, pos=1) ...
[13:13:52.141] - nx: 1
[13:13:52.141] - relay: TRUE
[13:13:52.141] - stdout: TRUE
[13:13:52.141] - signal: TRUE
[13:13:52.141] - resignal: FALSE
[13:13:52.142] - force: TRUE
[13:13:52.142] - relayed: [n=1] FALSE
[13:13:52.142] - queued futures: [n=1] FALSE
[13:13:52.142]  - until=1
[13:13:52.142]  - relaying element #1
[13:13:52.142] - relayed: [n=1] TRUE
[13:13:52.143] - queued futures: [n=1] TRUE
[13:13:52.143] signalConditionsASAP(SequentialFuture, pos=1) ... done
[13:13:52.143]  length: 0 (resolved future 1)
[13:13:52.143] Relaying remaining futures
[13:13:52.143] signalConditionsASAP(NULL, pos=0) ...
[13:13:52.143] - nx: 1
[13:13:52.144] - relay: TRUE
[13:13:52.144] - stdout: TRUE
[13:13:52.144] - signal: TRUE
[13:13:52.144] - resignal: FALSE
[13:13:52.144] - force: TRUE
[13:13:52.144] - relayed: [n=1] TRUE
[13:13:52.144] - queued futures: [n=1] TRUE
 - flush all
[13:13:52.145] - relayed: [n=1] TRUE
[13:13:52.145] - queued futures: [n=1] TRUE
[13:13:52.145] signalConditionsASAP(NULL, pos=0) ... done
[13:13:52.145] resolve() on list ... DONE
[13:13:52.145]  - Number of value chunks collected: 1
[13:13:52.146] Resolving 1 futures (chunks) ... DONE
[13:13:52.146] Reducing values from 1 chunks ...
[13:13:52.146]  - Number of values collected after concatenation: 4
[13:13:52.146]  - Number of values expected: 4
[13:13:52.146] Reducing values from 1 chunks ... DONE
[13:13:52.146] future_mapply() ... DONE
[13:13:52.147] future_mapply() ...
[13:13:52.147] Number of chunks: 1
[13:13:52.147] getGlobalsAndPackagesXApply() ...
[13:13:52.147]  - future.globals: TRUE
[13:13:52.147] getGlobalsAndPackages() ...
[13:13:52.147] Searching for globals...
[13:13:52.149] - globals found: [3] 'FUN', '+', 'seq_len'
[13:13:52.149] Searching for globals ... DONE
[13:13:52.149] Resolving globals: FALSE
[13:13:52.150] The total size of the 1 globals is 1.93 KiB (1976 bytes)
[13:13:52.150] The total size of the 1 globals exported for future expression ('FUN()') is 1.93 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (1.93 KiB of class 'function')
[13:13:52.150] - globals: [1] 'FUN'
[13:13:52.151] 
[13:13:52.151] getGlobalsAndPackages() ... DONE
[13:13:52.151]  - globals found/used: [n=1] 'FUN'
[13:13:52.151]  - needed namespaces: [n=0] 
[13:13:52.151] Finding globals ... DONE
[13:13:52.151] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:52.152] List of 2
[13:13:52.152]  $ ...future.FUN:function (x, y)  
[13:13:52.152]  $ MoreArgs     : NULL
[13:13:52.152]  - attr(*, "where")=List of 2
[13:13:52.152]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:52.152]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:52.152]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.152]  - attr(*, "resolved")= logi FALSE
[13:13:52.152]  - attr(*, "total_size")= num NA
[13:13:52.155] Packages to be attached in all futures: [n=0] 
[13:13:52.155] getGlobalsAndPackagesXApply() ... DONE
[13:13:52.155] Number of futures (= number of chunks): 1
[13:13:52.155] Launching 1 futures (chunks) ...
[13:13:52.155] Chunk #1 of 1 ...
[13:13:52.156]  - Finding globals in '...' for chunk #1 ...
[13:13:52.156] getGlobalsAndPackages() ...
[13:13:52.156] Searching for globals...
[13:13:52.156] 
[13:13:52.156] Searching for globals ... DONE
[13:13:52.157] - globals: [0] <none>
[13:13:52.157] getGlobalsAndPackages() ... DONE
[13:13:52.157]    + additional globals found: [n=0] 
[13:13:52.157]    + additional namespaces needed: [n=0] 
[13:13:52.157]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:52.157]  - seeds: <none>
[13:13:52.157]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.158] getGlobalsAndPackages() ...
[13:13:52.158] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.158] Resolving globals: FALSE
[13:13:52.159] The total size of the 5 globals is 2.26 KiB (2312 bytes)
[13:13:52.159] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 2.26 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (1.93 KiB of class 'function'), '...future.elements_ii' (336 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:52.159] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.160] 
[13:13:52.160] getGlobalsAndPackages() ... DONE
[13:13:52.160] run() for 'Future' ...
[13:13:52.160] - state: 'created'
[13:13:52.161] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:52.161] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.161] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:52.161]   - Field: 'label'
[13:13:52.161]   - Field: 'local'
[13:13:52.162]   - Field: 'owner'
[13:13:52.162]   - Field: 'envir'
[13:13:52.162]   - Field: 'packages'
[13:13:52.162]   - Field: 'gc'
[13:13:52.162]   - Field: 'conditions'
[13:13:52.162]   - Field: 'expr'
[13:13:52.163]   - Field: 'uuid'
[13:13:52.163]   - Field: 'seed'
[13:13:52.163]   - Field: 'version'
[13:13:52.163]   - Field: 'result'
[13:13:52.163]   - Field: 'asynchronous'
[13:13:52.163]   - Field: 'calls'
[13:13:52.164]   - Field: 'globals'
[13:13:52.164]   - Field: 'stdout'
[13:13:52.164]   - Field: 'earlySignal'
[13:13:52.164]   - Field: 'lazy'
[13:13:52.164]   - Field: 'state'
[13:13:52.165] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:52.165] - Launch lazy future ...
[13:13:52.187] Packages needed by the future expression (n = 0): <none>
[13:13:52.187] Packages needed by future strategies (n = 0): <none>
[13:13:52.188] {
[13:13:52.188]     {
[13:13:52.188]         {
[13:13:52.188]             ...future.startTime <- base::Sys.time()
[13:13:52.188]             {
[13:13:52.188]                 {
[13:13:52.188]                   {
[13:13:52.188]                     base::local({
[13:13:52.188]                       has_future <- base::requireNamespace("future", 
[13:13:52.188]                         quietly = TRUE)
[13:13:52.188]                       if (has_future) {
[13:13:52.188]                         ns <- base::getNamespace("future")
[13:13:52.188]                         version <- ns[[".package"]][["version"]]
[13:13:52.188]                         if (is.null(version)) 
[13:13:52.188]                           version <- utils::packageVersion("future")
[13:13:52.188]                       }
[13:13:52.188]                       else {
[13:13:52.188]                         version <- NULL
[13:13:52.188]                       }
[13:13:52.188]                       if (!has_future || version < "1.8.0") {
[13:13:52.188]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:52.188]                           "", base::R.version$version.string), 
[13:13:52.188]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:52.188]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:52.188]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:52.188]                             "release", "version")], collapse = " "), 
[13:13:52.188]                           hostname = base::Sys.info()[["nodename"]])
[13:13:52.188]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:52.188]                           info)
[13:13:52.188]                         info <- base::paste(info, collapse = "; ")
[13:13:52.188]                         if (!has_future) {
[13:13:52.188]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:52.188]                             info)
[13:13:52.188]                         }
[13:13:52.188]                         else {
[13:13:52.188]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:52.188]                             info, version)
[13:13:52.188]                         }
[13:13:52.188]                         base::stop(msg)
[13:13:52.188]                       }
[13:13:52.188]                     })
[13:13:52.188]                   }
[13:13:52.188]                   options(future.plan = NULL)
[13:13:52.188]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.188]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:52.188]                 }
[13:13:52.188]                 ...future.workdir <- getwd()
[13:13:52.188]             }
[13:13:52.188]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:52.188]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:52.188]         }
[13:13:52.188]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:52.188]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[13:13:52.188]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:52.188]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:52.188]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:52.188]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:52.188]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:52.188]             base::names(...future.oldOptions))
[13:13:52.188]     }
[13:13:52.188]     if (FALSE) {
[13:13:52.188]     }
[13:13:52.188]     else {
[13:13:52.188]         if (TRUE) {
[13:13:52.188]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:52.188]                 open = "w")
[13:13:52.188]         }
[13:13:52.188]         else {
[13:13:52.188]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:52.188]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:52.188]         }
[13:13:52.188]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:52.188]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:52.188]             base::sink(type = "output", split = FALSE)
[13:13:52.188]             base::close(...future.stdout)
[13:13:52.188]         }, add = TRUE)
[13:13:52.188]     }
[13:13:52.188]     ...future.frame <- base::sys.nframe()
[13:13:52.188]     ...future.conditions <- base::list()
[13:13:52.188]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:52.188]     if (FALSE) {
[13:13:52.188]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:52.188]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:52.188]     }
[13:13:52.188]     ...future.result <- base::tryCatch({
[13:13:52.188]         base::withCallingHandlers({
[13:13:52.188]             ...future.value <- base::withVisible(base::local({
[13:13:52.188]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.188]                 if (!identical(...future.globals.maxSize.org, 
[13:13:52.188]                   ...future.globals.maxSize)) {
[13:13:52.188]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.188]                   on.exit(options(oopts), add = TRUE)
[13:13:52.188]                 }
[13:13:52.188]                 {
[13:13:52.188]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.188]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:52.188]                     USE.NAMES = FALSE)
[13:13:52.188]                   do.call(mapply, args = args)
[13:13:52.188]                 }
[13:13:52.188]             }))
[13:13:52.188]             future::FutureResult(value = ...future.value$value, 
[13:13:52.188]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.188]                   ...future.rng), globalenv = if (FALSE) 
[13:13:52.188]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:52.188]                     ...future.globalenv.names))
[13:13:52.188]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:52.188]         }, condition = base::local({
[13:13:52.188]             c <- base::c
[13:13:52.188]             inherits <- base::inherits
[13:13:52.188]             invokeRestart <- base::invokeRestart
[13:13:52.188]             length <- base::length
[13:13:52.188]             list <- base::list
[13:13:52.188]             seq.int <- base::seq.int
[13:13:52.188]             signalCondition <- base::signalCondition
[13:13:52.188]             sys.calls <- base::sys.calls
[13:13:52.188]             `[[` <- base::`[[`
[13:13:52.188]             `+` <- base::`+`
[13:13:52.188]             `<<-` <- base::`<<-`
[13:13:52.188]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:52.188]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:52.188]                   3L)]
[13:13:52.188]             }
[13:13:52.188]             function(cond) {
[13:13:52.188]                 is_error <- inherits(cond, "error")
[13:13:52.188]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:52.188]                   NULL)
[13:13:52.188]                 if (is_error) {
[13:13:52.188]                   sessionInformation <- function() {
[13:13:52.188]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:52.188]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:52.188]                       search = base::search(), system = base::Sys.info())
[13:13:52.188]                   }
[13:13:52.188]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.188]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:52.188]                     cond$call), session = sessionInformation(), 
[13:13:52.188]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:52.188]                   signalCondition(cond)
[13:13:52.188]                 }
[13:13:52.188]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:52.188]                 "immediateCondition"))) {
[13:13:52.188]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:52.188]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.188]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:52.188]                   if (TRUE && !signal) {
[13:13:52.188]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.188]                     {
[13:13:52.188]                       inherits <- base::inherits
[13:13:52.188]                       invokeRestart <- base::invokeRestart
[13:13:52.188]                       is.null <- base::is.null
[13:13:52.188]                       muffled <- FALSE
[13:13:52.188]                       if (inherits(cond, "message")) {
[13:13:52.188]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.188]                         if (muffled) 
[13:13:52.188]                           invokeRestart("muffleMessage")
[13:13:52.188]                       }
[13:13:52.188]                       else if (inherits(cond, "warning")) {
[13:13:52.188]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.188]                         if (muffled) 
[13:13:52.188]                           invokeRestart("muffleWarning")
[13:13:52.188]                       }
[13:13:52.188]                       else if (inherits(cond, "condition")) {
[13:13:52.188]                         if (!is.null(pattern)) {
[13:13:52.188]                           computeRestarts <- base::computeRestarts
[13:13:52.188]                           grepl <- base::grepl
[13:13:52.188]                           restarts <- computeRestarts(cond)
[13:13:52.188]                           for (restart in restarts) {
[13:13:52.188]                             name <- restart$name
[13:13:52.188]                             if (is.null(name)) 
[13:13:52.188]                               next
[13:13:52.188]                             if (!grepl(pattern, name)) 
[13:13:52.188]                               next
[13:13:52.188]                             invokeRestart(restart)
[13:13:52.188]                             muffled <- TRUE
[13:13:52.188]                             break
[13:13:52.188]                           }
[13:13:52.188]                         }
[13:13:52.188]                       }
[13:13:52.188]                       invisible(muffled)
[13:13:52.188]                     }
[13:13:52.188]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.188]                   }
[13:13:52.188]                 }
[13:13:52.188]                 else {
[13:13:52.188]                   if (TRUE) {
[13:13:52.188]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.188]                     {
[13:13:52.188]                       inherits <- base::inherits
[13:13:52.188]                       invokeRestart <- base::invokeRestart
[13:13:52.188]                       is.null <- base::is.null
[13:13:52.188]                       muffled <- FALSE
[13:13:52.188]                       if (inherits(cond, "message")) {
[13:13:52.188]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.188]                         if (muffled) 
[13:13:52.188]                           invokeRestart("muffleMessage")
[13:13:52.188]                       }
[13:13:52.188]                       else if (inherits(cond, "warning")) {
[13:13:52.188]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.188]                         if (muffled) 
[13:13:52.188]                           invokeRestart("muffleWarning")
[13:13:52.188]                       }
[13:13:52.188]                       else if (inherits(cond, "condition")) {
[13:13:52.188]                         if (!is.null(pattern)) {
[13:13:52.188]                           computeRestarts <- base::computeRestarts
[13:13:52.188]                           grepl <- base::grepl
[13:13:52.188]                           restarts <- computeRestarts(cond)
[13:13:52.188]                           for (restart in restarts) {
[13:13:52.188]                             name <- restart$name
[13:13:52.188]                             if (is.null(name)) 
[13:13:52.188]                               next
[13:13:52.188]                             if (!grepl(pattern, name)) 
[13:13:52.188]                               next
[13:13:52.188]                             invokeRestart(restart)
[13:13:52.188]                             muffled <- TRUE
[13:13:52.188]                             break
[13:13:52.188]                           }
[13:13:52.188]                         }
[13:13:52.188]                       }
[13:13:52.188]                       invisible(muffled)
[13:13:52.188]                     }
[13:13:52.188]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.188]                   }
[13:13:52.188]                 }
[13:13:52.188]             }
[13:13:52.188]         }))
[13:13:52.188]     }, error = function(ex) {
[13:13:52.188]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:52.188]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.188]                 ...future.rng), started = ...future.startTime, 
[13:13:52.188]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:52.188]             version = "1.8"), class = "FutureResult")
[13:13:52.188]     }, finally = {
[13:13:52.188]         if (!identical(...future.workdir, getwd())) 
[13:13:52.188]             setwd(...future.workdir)
[13:13:52.188]         {
[13:13:52.188]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:52.188]                 ...future.oldOptions$nwarnings <- NULL
[13:13:52.188]             }
[13:13:52.188]             base::options(...future.oldOptions)
[13:13:52.188]             if (.Platform$OS.type == "windows") {
[13:13:52.188]                 old_names <- names(...future.oldEnvVars)
[13:13:52.188]                 envs <- base::Sys.getenv()
[13:13:52.188]                 names <- names(envs)
[13:13:52.188]                 common <- intersect(names, old_names)
[13:13:52.188]                 added <- setdiff(names, old_names)
[13:13:52.188]                 removed <- setdiff(old_names, names)
[13:13:52.188]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:52.188]                   envs[common]]
[13:13:52.188]                 NAMES <- toupper(changed)
[13:13:52.188]                 args <- list()
[13:13:52.188]                 for (kk in seq_along(NAMES)) {
[13:13:52.188]                   name <- changed[[kk]]
[13:13:52.188]                   NAME <- NAMES[[kk]]
[13:13:52.188]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.188]                     next
[13:13:52.188]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.188]                 }
[13:13:52.188]                 NAMES <- toupper(added)
[13:13:52.188]                 for (kk in seq_along(NAMES)) {
[13:13:52.188]                   name <- added[[kk]]
[13:13:52.188]                   NAME <- NAMES[[kk]]
[13:13:52.188]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.188]                     next
[13:13:52.188]                   args[[name]] <- ""
[13:13:52.188]                 }
[13:13:52.188]                 NAMES <- toupper(removed)
[13:13:52.188]                 for (kk in seq_along(NAMES)) {
[13:13:52.188]                   name <- removed[[kk]]
[13:13:52.188]                   NAME <- NAMES[[kk]]
[13:13:52.188]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.188]                     next
[13:13:52.188]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.188]                 }
[13:13:52.188]                 if (length(args) > 0) 
[13:13:52.188]                   base::do.call(base::Sys.setenv, args = args)
[13:13:52.188]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:52.188]             }
[13:13:52.188]             else {
[13:13:52.188]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:52.188]             }
[13:13:52.188]             {
[13:13:52.188]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:52.188]                   0L) {
[13:13:52.188]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:52.188]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:52.188]                   base::options(opts)
[13:13:52.188]                 }
[13:13:52.188]                 {
[13:13:52.188]                   {
[13:13:52.188]                     base::assign(".Random.seed", c(10407L, -1918733616L, 
[13:13:52.188]                     1584354639L, -1174970862L, -939885817L, 1422965938L, 
[13:13:52.188]                     -981423529L), envir = base::globalenv(), 
[13:13:52.188]                       inherits = FALSE)
[13:13:52.188]                     NULL
[13:13:52.188]                   }
[13:13:52.188]                   options(future.plan = NULL)
[13:13:52.188]                   if (is.na(NA_character_)) 
[13:13:52.188]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.188]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:52.188]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:52.188]                   {
[13:13:52.188]                     future <- SequentialFuture(..., envir = envir)
[13:13:52.188]                     if (!future$lazy) 
[13:13:52.188]                       future <- run(future)
[13:13:52.188]                     invisible(future)
[13:13:52.188]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:52.188]                 }
[13:13:52.188]             }
[13:13:52.188]         }
[13:13:52.188]     })
[13:13:52.188]     if (TRUE) {
[13:13:52.188]         base::sink(type = "output", split = FALSE)
[13:13:52.188]         if (TRUE) {
[13:13:52.188]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:52.188]         }
[13:13:52.188]         else {
[13:13:52.188]             ...future.result["stdout"] <- base::list(NULL)
[13:13:52.188]         }
[13:13:52.188]         base::close(...future.stdout)
[13:13:52.188]         ...future.stdout <- NULL
[13:13:52.188]     }
[13:13:52.188]     ...future.result$conditions <- ...future.conditions
[13:13:52.188]     ...future.result$finished <- base::Sys.time()
[13:13:52.188]     ...future.result
[13:13:52.188] }
[13:13:52.192] assign_globals() ...
[13:13:52.192] List of 5
[13:13:52.192]  $ ...future.FUN            :function (x, y)  
[13:13:52.192]  $ MoreArgs                 : NULL
[13:13:52.192]  $ ...future.elements_ii    :List of 2
[13:13:52.192]   ..$ :List of 3
[13:13:52.192]   .. ..$ a: num 1
[13:13:52.192]   .. ..$ b: num 2
[13:13:52.192]   .. ..$ c: num 3
[13:13:52.192]   ..$ :List of 3
[13:13:52.192]   .. ..$ A: num 10
[13:13:52.192]   .. ..$ B: num 0
[13:13:52.192]   .. ..$ C: num -10
[13:13:52.192]  $ ...future.seeds_ii       : NULL
[13:13:52.192]  $ ...future.globals.maxSize: NULL
[13:13:52.192]  - attr(*, "where")=List of 5
[13:13:52.192]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:52.192]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[13:13:52.192]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:52.192]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:52.192]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:52.192]  - attr(*, "resolved")= logi FALSE
[13:13:52.192]  - attr(*, "total_size")= num 2312
[13:13:52.192]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.192]  - attr(*, "already-done")= logi TRUE
[13:13:52.200] - reassign environment for '...future.FUN'
[13:13:52.201] - copied '...future.FUN' to environment
[13:13:52.201] - copied 'MoreArgs' to environment
[13:13:52.201] - copied '...future.elements_ii' to environment
[13:13:52.201] - copied '...future.seeds_ii' to environment
[13:13:52.201] - copied '...future.globals.maxSize' to environment
[13:13:52.201] assign_globals() ... done
[13:13:52.202] plan(): Setting new future strategy stack:
[13:13:52.202] List of future strategies:
[13:13:52.202] 1. sequential:
[13:13:52.202]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.202]    - tweaked: FALSE
[13:13:52.202]    - call: NULL
[13:13:52.203] plan(): nbrOfWorkers() = 1
[13:13:52.204] plan(): Setting new future strategy stack:
[13:13:52.204] List of future strategies:
[13:13:52.204] 1. sequential:
[13:13:52.204]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.204]    - tweaked: FALSE
[13:13:52.204]    - call: plan(strategy)
[13:13:52.205] plan(): nbrOfWorkers() = 1
[13:13:52.205] SequentialFuture started (and completed)
[13:13:52.205] - Launch lazy future ... done
[13:13:52.205] run() for 'SequentialFuture' ... done
[13:13:52.205] Created future:
[13:13:52.206] SequentialFuture:
[13:13:52.206] Label: 'future_mapply-1'
[13:13:52.206] Expression:
[13:13:52.206] {
[13:13:52.206]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.206]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:52.206]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.206]         on.exit(options(oopts), add = TRUE)
[13:13:52.206]     }
[13:13:52.206]     {
[13:13:52.206]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.206]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:52.206]         do.call(mapply, args = args)
[13:13:52.206]     }
[13:13:52.206] }
[13:13:52.206] Lazy evaluation: FALSE
[13:13:52.206] Asynchronous evaluation: FALSE
[13:13:52.206] Local evaluation: TRUE
[13:13:52.206] Environment: R_GlobalEnv
[13:13:52.206] Capture standard output: TRUE
[13:13:52.206] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:52.206] Globals: 5 objects totaling 2.26 KiB (function '...future.FUN' of 1.93 KiB, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 336 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:52.206] Packages: <none>
[13:13:52.206] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:52.206] Resolved: TRUE
[13:13:52.206] Value: 200 bytes of class 'list'
[13:13:52.206] Early signaling: FALSE
[13:13:52.206] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:52.206] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.207] Chunk #1 of 1 ... DONE
[13:13:52.207] Launching 1 futures (chunks) ... DONE
[13:13:52.207] Resolving 1 futures (chunks) ...
[13:13:52.207] resolve() on list ...
[13:13:52.207]  recursive: 0
[13:13:52.208]  length: 1
[13:13:52.208] 
[13:13:52.208] resolved() for 'SequentialFuture' ...
[13:13:52.208] - state: 'finished'
[13:13:52.208] - run: TRUE
[13:13:52.208] - result: 'FutureResult'
[13:13:52.209] resolved() for 'SequentialFuture' ... done
[13:13:52.209] Future #1
[13:13:52.209] signalConditionsASAP(SequentialFuture, pos=1) ...
[13:13:52.210] - nx: 1
[13:13:52.210] - relay: TRUE
[13:13:52.210] - stdout: TRUE
[13:13:52.210] - signal: TRUE
[13:13:52.210] - resignal: FALSE
[13:13:52.210] - force: TRUE
[13:13:52.210] - relayed: [n=1] FALSE
[13:13:52.211] - queued futures: [n=1] FALSE
[13:13:52.211]  - until=1
[13:13:52.211]  - relaying element #1
[13:13:52.211] - relayed: [n=1] TRUE
[13:13:52.211] - queued futures: [n=1] TRUE
[13:13:52.212] signalConditionsASAP(SequentialFuture, pos=1) ... done
[13:13:52.212]  length: 0 (resolved future 1)
[13:13:52.212] Relaying remaining futures
[13:13:52.212] signalConditionsASAP(NULL, pos=0) ...
[13:13:52.212] - nx: 1
[13:13:52.212] - relay: TRUE
[13:13:52.212] - stdout: TRUE
[13:13:52.213] - signal: TRUE
[13:13:52.213] - resignal: FALSE
[13:13:52.213] - force: TRUE
[13:13:52.213] - relayed: [n=1] TRUE
[13:13:52.213] - queued futures: [n=1] TRUE
 - flush all
[13:13:52.214] - relayed: [n=1] TRUE
[13:13:52.214] - queued futures: [n=1] TRUE
[13:13:52.214] signalConditionsASAP(NULL, pos=0) ... done
[13:13:52.214] resolve() on list ... DONE
[13:13:52.214]  - Number of value chunks collected: 1
[13:13:52.214] Resolving 1 futures (chunks) ... DONE
[13:13:52.215] Reducing values from 1 chunks ...
[13:13:52.215]  - Number of values collected after concatenation: 3
[13:13:52.215]  - Number of values expected: 3
[13:13:52.215] Reducing values from 1 chunks ... DONE
[13:13:52.215] future_mapply() ... DONE
- future_.mapply()
[13:13:52.216] future_mapply() ...
[13:13:52.216] Number of chunks: 1
[13:13:52.217] getGlobalsAndPackagesXApply() ...
[13:13:52.217]  - future.globals: TRUE
[13:13:52.217] getGlobalsAndPackages() ...
[13:13:52.217] Searching for globals...
[13:13:52.219] - globals found: [3] 'FUN', '+', 'seq_len'
[13:13:52.219] Searching for globals ... DONE
[13:13:52.219] Resolving globals: FALSE
[13:13:52.220] The total size of the 1 globals is 1.93 KiB (1976 bytes)
[13:13:52.221] The total size of the 1 globals exported for future expression ('FUN()') is 1.93 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (1.93 KiB of class 'function')
[13:13:52.221] - globals: [1] 'FUN'
[13:13:52.221] 
[13:13:52.221] getGlobalsAndPackages() ... DONE
[13:13:52.221]  - globals found/used: [n=1] 'FUN'
[13:13:52.222]  - needed namespaces: [n=0] 
[13:13:52.222] Finding globals ... DONE
[13:13:52.222] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:52.222] List of 2
[13:13:52.222]  $ ...future.FUN:function (x, y)  
[13:13:52.222]  $ MoreArgs     : list()
[13:13:52.222]  - attr(*, "where")=List of 2
[13:13:52.222]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:52.222]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:52.222]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.222]  - attr(*, "resolved")= logi FALSE
[13:13:52.222]  - attr(*, "total_size")= num NA
[13:13:52.225] Packages to be attached in all futures: [n=0] 
[13:13:52.225] getGlobalsAndPackagesXApply() ... DONE
[13:13:52.226] Number of futures (= number of chunks): 1
[13:13:52.226] Launching 1 futures (chunks) ...
[13:13:52.226] Chunk #1 of 1 ...
[13:13:52.226]  - Finding globals in '...' for chunk #1 ...
[13:13:52.226] getGlobalsAndPackages() ...
[13:13:52.226] Searching for globals...
[13:13:52.227] 
[13:13:52.227] Searching for globals ... DONE
[13:13:52.227] - globals: [0] <none>
[13:13:52.227] getGlobalsAndPackages() ... DONE
[13:13:52.227]    + additional globals found: [n=0] 
[13:13:52.228]    + additional namespaces needed: [n=0] 
[13:13:52.228]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:52.228]  - seeds: <none>
[13:13:52.228]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.228] getGlobalsAndPackages() ...
[13:13:52.228] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.229] Resolving globals: FALSE
[13:13:52.229] The total size of the 5 globals is 2.26 KiB (2312 bytes)
[13:13:52.230] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 2.26 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (1.93 KiB of class 'function'), '...future.elements_ii' (336 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'list')
[13:13:52.230] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.230] 
[13:13:52.230] getGlobalsAndPackages() ... DONE
[13:13:52.231] run() for 'Future' ...
[13:13:52.231] - state: 'created'
[13:13:52.231] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:52.232] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.232] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:52.232]   - Field: 'label'
[13:13:52.232]   - Field: 'local'
[13:13:52.232]   - Field: 'owner'
[13:13:52.232]   - Field: 'envir'
[13:13:52.233]   - Field: 'packages'
[13:13:52.233]   - Field: 'gc'
[13:13:52.233]   - Field: 'conditions'
[13:13:52.233]   - Field: 'expr'
[13:13:52.233]   - Field: 'uuid'
[13:13:52.234]   - Field: 'seed'
[13:13:52.234]   - Field: 'version'
[13:13:52.234]   - Field: 'result'
[13:13:52.234]   - Field: 'asynchronous'
[13:13:52.234]   - Field: 'calls'
[13:13:52.234]   - Field: 'globals'
[13:13:52.235]   - Field: 'stdout'
[13:13:52.235]   - Field: 'earlySignal'
[13:13:52.235]   - Field: 'lazy'
[13:13:52.235]   - Field: 'state'
[13:13:52.235] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:52.235] - Launch lazy future ...
[13:13:52.236] Packages needed by the future expression (n = 0): <none>
[13:13:52.236] Packages needed by future strategies (n = 0): <none>
[13:13:52.236] {
[13:13:52.236]     {
[13:13:52.236]         {
[13:13:52.236]             ...future.startTime <- base::Sys.time()
[13:13:52.236]             {
[13:13:52.236]                 {
[13:13:52.236]                   {
[13:13:52.236]                     base::local({
[13:13:52.236]                       has_future <- base::requireNamespace("future", 
[13:13:52.236]                         quietly = TRUE)
[13:13:52.236]                       if (has_future) {
[13:13:52.236]                         ns <- base::getNamespace("future")
[13:13:52.236]                         version <- ns[[".package"]][["version"]]
[13:13:52.236]                         if (is.null(version)) 
[13:13:52.236]                           version <- utils::packageVersion("future")
[13:13:52.236]                       }
[13:13:52.236]                       else {
[13:13:52.236]                         version <- NULL
[13:13:52.236]                       }
[13:13:52.236]                       if (!has_future || version < "1.8.0") {
[13:13:52.236]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:52.236]                           "", base::R.version$version.string), 
[13:13:52.236]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:52.236]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:52.236]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:52.236]                             "release", "version")], collapse = " "), 
[13:13:52.236]                           hostname = base::Sys.info()[["nodename"]])
[13:13:52.236]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:52.236]                           info)
[13:13:52.236]                         info <- base::paste(info, collapse = "; ")
[13:13:52.236]                         if (!has_future) {
[13:13:52.236]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:52.236]                             info)
[13:13:52.236]                         }
[13:13:52.236]                         else {
[13:13:52.236]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:52.236]                             info, version)
[13:13:52.236]                         }
[13:13:52.236]                         base::stop(msg)
[13:13:52.236]                       }
[13:13:52.236]                     })
[13:13:52.236]                   }
[13:13:52.236]                   options(future.plan = NULL)
[13:13:52.236]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.236]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:52.236]                 }
[13:13:52.236]                 ...future.workdir <- getwd()
[13:13:52.236]             }
[13:13:52.236]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:52.236]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:52.236]         }
[13:13:52.236]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:52.236]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[13:13:52.236]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:52.236]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:52.236]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:52.236]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:52.236]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:52.236]             base::names(...future.oldOptions))
[13:13:52.236]     }
[13:13:52.236]     if (FALSE) {
[13:13:52.236]     }
[13:13:52.236]     else {
[13:13:52.236]         if (TRUE) {
[13:13:52.236]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:52.236]                 open = "w")
[13:13:52.236]         }
[13:13:52.236]         else {
[13:13:52.236]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:52.236]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:52.236]         }
[13:13:52.236]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:52.236]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:52.236]             base::sink(type = "output", split = FALSE)
[13:13:52.236]             base::close(...future.stdout)
[13:13:52.236]         }, add = TRUE)
[13:13:52.236]     }
[13:13:52.236]     ...future.frame <- base::sys.nframe()
[13:13:52.236]     ...future.conditions <- base::list()
[13:13:52.236]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:52.236]     if (FALSE) {
[13:13:52.236]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:52.236]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:52.236]     }
[13:13:52.236]     ...future.result <- base::tryCatch({
[13:13:52.236]         base::withCallingHandlers({
[13:13:52.236]             ...future.value <- base::withVisible(base::local({
[13:13:52.236]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.236]                 if (!identical(...future.globals.maxSize.org, 
[13:13:52.236]                   ...future.globals.maxSize)) {
[13:13:52.236]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.236]                   on.exit(options(oopts), add = TRUE)
[13:13:52.236]                 }
[13:13:52.236]                 {
[13:13:52.236]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.236]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:52.236]                     USE.NAMES = FALSE)
[13:13:52.236]                   do.call(mapply, args = args)
[13:13:52.236]                 }
[13:13:52.236]             }))
[13:13:52.236]             future::FutureResult(value = ...future.value$value, 
[13:13:52.236]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.236]                   ...future.rng), globalenv = if (FALSE) 
[13:13:52.236]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:52.236]                     ...future.globalenv.names))
[13:13:52.236]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:52.236]         }, condition = base::local({
[13:13:52.236]             c <- base::c
[13:13:52.236]             inherits <- base::inherits
[13:13:52.236]             invokeRestart <- base::invokeRestart
[13:13:52.236]             length <- base::length
[13:13:52.236]             list <- base::list
[13:13:52.236]             seq.int <- base::seq.int
[13:13:52.236]             signalCondition <- base::signalCondition
[13:13:52.236]             sys.calls <- base::sys.calls
[13:13:52.236]             `[[` <- base::`[[`
[13:13:52.236]             `+` <- base::`+`
[13:13:52.236]             `<<-` <- base::`<<-`
[13:13:52.236]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:52.236]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:52.236]                   3L)]
[13:13:52.236]             }
[13:13:52.236]             function(cond) {
[13:13:52.236]                 is_error <- inherits(cond, "error")
[13:13:52.236]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:52.236]                   NULL)
[13:13:52.236]                 if (is_error) {
[13:13:52.236]                   sessionInformation <- function() {
[13:13:52.236]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:52.236]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:52.236]                       search = base::search(), system = base::Sys.info())
[13:13:52.236]                   }
[13:13:52.236]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.236]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:52.236]                     cond$call), session = sessionInformation(), 
[13:13:52.236]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:52.236]                   signalCondition(cond)
[13:13:52.236]                 }
[13:13:52.236]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:52.236]                 "immediateCondition"))) {
[13:13:52.236]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:52.236]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.236]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:52.236]                   if (TRUE && !signal) {
[13:13:52.236]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.236]                     {
[13:13:52.236]                       inherits <- base::inherits
[13:13:52.236]                       invokeRestart <- base::invokeRestart
[13:13:52.236]                       is.null <- base::is.null
[13:13:52.236]                       muffled <- FALSE
[13:13:52.236]                       if (inherits(cond, "message")) {
[13:13:52.236]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.236]                         if (muffled) 
[13:13:52.236]                           invokeRestart("muffleMessage")
[13:13:52.236]                       }
[13:13:52.236]                       else if (inherits(cond, "warning")) {
[13:13:52.236]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.236]                         if (muffled) 
[13:13:52.236]                           invokeRestart("muffleWarning")
[13:13:52.236]                       }
[13:13:52.236]                       else if (inherits(cond, "condition")) {
[13:13:52.236]                         if (!is.null(pattern)) {
[13:13:52.236]                           computeRestarts <- base::computeRestarts
[13:13:52.236]                           grepl <- base::grepl
[13:13:52.236]                           restarts <- computeRestarts(cond)
[13:13:52.236]                           for (restart in restarts) {
[13:13:52.236]                             name <- restart$name
[13:13:52.236]                             if (is.null(name)) 
[13:13:52.236]                               next
[13:13:52.236]                             if (!grepl(pattern, name)) 
[13:13:52.236]                               next
[13:13:52.236]                             invokeRestart(restart)
[13:13:52.236]                             muffled <- TRUE
[13:13:52.236]                             break
[13:13:52.236]                           }
[13:13:52.236]                         }
[13:13:52.236]                       }
[13:13:52.236]                       invisible(muffled)
[13:13:52.236]                     }
[13:13:52.236]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.236]                   }
[13:13:52.236]                 }
[13:13:52.236]                 else {
[13:13:52.236]                   if (TRUE) {
[13:13:52.236]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.236]                     {
[13:13:52.236]                       inherits <- base::inherits
[13:13:52.236]                       invokeRestart <- base::invokeRestart
[13:13:52.236]                       is.null <- base::is.null
[13:13:52.236]                       muffled <- FALSE
[13:13:52.236]                       if (inherits(cond, "message")) {
[13:13:52.236]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.236]                         if (muffled) 
[13:13:52.236]                           invokeRestart("muffleMessage")
[13:13:52.236]                       }
[13:13:52.236]                       else if (inherits(cond, "warning")) {
[13:13:52.236]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.236]                         if (muffled) 
[13:13:52.236]                           invokeRestart("muffleWarning")
[13:13:52.236]                       }
[13:13:52.236]                       else if (inherits(cond, "condition")) {
[13:13:52.236]                         if (!is.null(pattern)) {
[13:13:52.236]                           computeRestarts <- base::computeRestarts
[13:13:52.236]                           grepl <- base::grepl
[13:13:52.236]                           restarts <- computeRestarts(cond)
[13:13:52.236]                           for (restart in restarts) {
[13:13:52.236]                             name <- restart$name
[13:13:52.236]                             if (is.null(name)) 
[13:13:52.236]                               next
[13:13:52.236]                             if (!grepl(pattern, name)) 
[13:13:52.236]                               next
[13:13:52.236]                             invokeRestart(restart)
[13:13:52.236]                             muffled <- TRUE
[13:13:52.236]                             break
[13:13:52.236]                           }
[13:13:52.236]                         }
[13:13:52.236]                       }
[13:13:52.236]                       invisible(muffled)
[13:13:52.236]                     }
[13:13:52.236]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.236]                   }
[13:13:52.236]                 }
[13:13:52.236]             }
[13:13:52.236]         }))
[13:13:52.236]     }, error = function(ex) {
[13:13:52.236]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:52.236]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.236]                 ...future.rng), started = ...future.startTime, 
[13:13:52.236]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:52.236]             version = "1.8"), class = "FutureResult")
[13:13:52.236]     }, finally = {
[13:13:52.236]         if (!identical(...future.workdir, getwd())) 
[13:13:52.236]             setwd(...future.workdir)
[13:13:52.236]         {
[13:13:52.236]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:52.236]                 ...future.oldOptions$nwarnings <- NULL
[13:13:52.236]             }
[13:13:52.236]             base::options(...future.oldOptions)
[13:13:52.236]             if (.Platform$OS.type == "windows") {
[13:13:52.236]                 old_names <- names(...future.oldEnvVars)
[13:13:52.236]                 envs <- base::Sys.getenv()
[13:13:52.236]                 names <- names(envs)
[13:13:52.236]                 common <- intersect(names, old_names)
[13:13:52.236]                 added <- setdiff(names, old_names)
[13:13:52.236]                 removed <- setdiff(old_names, names)
[13:13:52.236]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:52.236]                   envs[common]]
[13:13:52.236]                 NAMES <- toupper(changed)
[13:13:52.236]                 args <- list()
[13:13:52.236]                 for (kk in seq_along(NAMES)) {
[13:13:52.236]                   name <- changed[[kk]]
[13:13:52.236]                   NAME <- NAMES[[kk]]
[13:13:52.236]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.236]                     next
[13:13:52.236]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.236]                 }
[13:13:52.236]                 NAMES <- toupper(added)
[13:13:52.236]                 for (kk in seq_along(NAMES)) {
[13:13:52.236]                   name <- added[[kk]]
[13:13:52.236]                   NAME <- NAMES[[kk]]
[13:13:52.236]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.236]                     next
[13:13:52.236]                   args[[name]] <- ""
[13:13:52.236]                 }
[13:13:52.236]                 NAMES <- toupper(removed)
[13:13:52.236]                 for (kk in seq_along(NAMES)) {
[13:13:52.236]                   name <- removed[[kk]]
[13:13:52.236]                   NAME <- NAMES[[kk]]
[13:13:52.236]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.236]                     next
[13:13:52.236]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.236]                 }
[13:13:52.236]                 if (length(args) > 0) 
[13:13:52.236]                   base::do.call(base::Sys.setenv, args = args)
[13:13:52.236]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:52.236]             }
[13:13:52.236]             else {
[13:13:52.236]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:52.236]             }
[13:13:52.236]             {
[13:13:52.236]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:52.236]                   0L) {
[13:13:52.236]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:52.236]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:52.236]                   base::options(opts)
[13:13:52.236]                 }
[13:13:52.236]                 {
[13:13:52.236]                   {
[13:13:52.236]                     base::assign(".Random.seed", c(10407L, -1918733616L, 
[13:13:52.236]                     1584354639L, -1174970862L, -939885817L, 1422965938L, 
[13:13:52.236]                     -981423529L), envir = base::globalenv(), 
[13:13:52.236]                       inherits = FALSE)
[13:13:52.236]                     NULL
[13:13:52.236]                   }
[13:13:52.236]                   options(future.plan = NULL)
[13:13:52.236]                   if (is.na(NA_character_)) 
[13:13:52.236]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.236]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:52.236]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:52.236]                   {
[13:13:52.236]                     future <- SequentialFuture(..., envir = envir)
[13:13:52.236]                     if (!future$lazy) 
[13:13:52.236]                       future <- run(future)
[13:13:52.236]                     invisible(future)
[13:13:52.236]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:52.236]                 }
[13:13:52.236]             }
[13:13:52.236]         }
[13:13:52.236]     })
[13:13:52.236]     if (TRUE) {
[13:13:52.236]         base::sink(type = "output", split = FALSE)
[13:13:52.236]         if (TRUE) {
[13:13:52.236]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:52.236]         }
[13:13:52.236]         else {
[13:13:52.236]             ...future.result["stdout"] <- base::list(NULL)
[13:13:52.236]         }
[13:13:52.236]         base::close(...future.stdout)
[13:13:52.236]         ...future.stdout <- NULL
[13:13:52.236]     }
[13:13:52.236]     ...future.result$conditions <- ...future.conditions
[13:13:52.236]     ...future.result$finished <- base::Sys.time()
[13:13:52.236]     ...future.result
[13:13:52.236] }
[13:13:52.240] assign_globals() ...
[13:13:52.240] List of 5
[13:13:52.240]  $ ...future.FUN            :function (x, y)  
[13:13:52.240]  $ MoreArgs                 : list()
[13:13:52.240]  $ ...future.elements_ii    :List of 2
[13:13:52.240]   ..$ :List of 3
[13:13:52.240]   .. ..$ a: num 1
[13:13:52.240]   .. ..$ b: num 2
[13:13:52.240]   .. ..$ c: num 3
[13:13:52.240]   ..$ :List of 3
[13:13:52.240]   .. ..$ A: num 10
[13:13:52.240]   .. ..$ B: num 0
[13:13:52.240]   .. ..$ C: num -10
[13:13:52.240]  $ ...future.seeds_ii       : NULL
[13:13:52.240]  $ ...future.globals.maxSize: NULL
[13:13:52.240]  - attr(*, "where")=List of 5
[13:13:52.240]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:52.240]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[13:13:52.240]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:52.240]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:52.240]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:52.240]  - attr(*, "resolved")= logi FALSE
[13:13:52.240]  - attr(*, "total_size")= num 2312
[13:13:52.240]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.240]  - attr(*, "already-done")= logi TRUE
[13:13:52.248] - reassign environment for '...future.FUN'
[13:13:52.248] - copied '...future.FUN' to environment
[13:13:52.248] - copied 'MoreArgs' to environment
[13:13:52.249] - copied '...future.elements_ii' to environment
[13:13:52.249] - copied '...future.seeds_ii' to environment
[13:13:52.249] - copied '...future.globals.maxSize' to environment
[13:13:52.249] assign_globals() ... done
[13:13:52.250] plan(): Setting new future strategy stack:
[13:13:52.250] List of future strategies:
[13:13:52.250] 1. sequential:
[13:13:52.250]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.250]    - tweaked: FALSE
[13:13:52.250]    - call: NULL
[13:13:52.251] plan(): nbrOfWorkers() = 1
[13:13:52.252] plan(): Setting new future strategy stack:
[13:13:52.252] List of future strategies:
[13:13:52.252] 1. sequential:
[13:13:52.252]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.252]    - tweaked: FALSE
[13:13:52.252]    - call: plan(strategy)
[13:13:52.253] plan(): nbrOfWorkers() = 1
[13:13:52.253] SequentialFuture started (and completed)
[13:13:52.253] - Launch lazy future ... done
[13:13:52.254] run() for 'SequentialFuture' ... done
[13:13:52.254] Created future:
[13:13:52.254] SequentialFuture:
[13:13:52.254] Label: 'future_.mapply-1'
[13:13:52.254] Expression:
[13:13:52.254] {
[13:13:52.254]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.254]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:52.254]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.254]         on.exit(options(oopts), add = TRUE)
[13:13:52.254]     }
[13:13:52.254]     {
[13:13:52.254]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.254]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:52.254]         do.call(mapply, args = args)
[13:13:52.254]     }
[13:13:52.254] }
[13:13:52.254] Lazy evaluation: FALSE
[13:13:52.254] Asynchronous evaluation: FALSE
[13:13:52.254] Local evaluation: TRUE
[13:13:52.254] Environment: R_GlobalEnv
[13:13:52.254] Capture standard output: TRUE
[13:13:52.254] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:52.254] Globals: 5 objects totaling 2.26 KiB (function '...future.FUN' of 1.93 KiB, list 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 336 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:52.254] Packages: <none>
[13:13:52.254] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:52.254] Resolved: TRUE
[13:13:52.254] Value: 200 bytes of class 'list'
[13:13:52.254] Early signaling: FALSE
[13:13:52.254] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:52.254] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.255] Chunk #1 of 1 ... DONE
[13:13:52.255] Launching 1 futures (chunks) ... DONE
[13:13:52.255] Resolving 1 futures (chunks) ...
[13:13:52.256] resolve() on list ...
[13:13:52.256]  recursive: 0
[13:13:52.256]  length: 1
[13:13:52.256] 
[13:13:52.256] resolved() for 'SequentialFuture' ...
[13:13:52.256] - state: 'finished'
[13:13:52.257] - run: TRUE
[13:13:52.257] - result: 'FutureResult'
[13:13:52.257] resolved() for 'SequentialFuture' ... done
[13:13:52.257] Future #1
[13:13:52.257] signalConditionsASAP(SequentialFuture, pos=1) ...
[13:13:52.258] - nx: 1
[13:13:52.258] - relay: TRUE
[13:13:52.258] - stdout: TRUE
[13:13:52.258] - signal: TRUE
[13:13:52.258] - resignal: FALSE
[13:13:52.258] - force: TRUE
[13:13:52.258] - relayed: [n=1] FALSE
[13:13:52.259] - queued futures: [n=1] FALSE
[13:13:52.259]  - until=1
[13:13:52.259]  - relaying element #1
[13:13:52.259] - relayed: [n=1] TRUE
[13:13:52.259] - queued futures: [n=1] TRUE
[13:13:52.260] signalConditionsASAP(SequentialFuture, pos=1) ... done
[13:13:52.260]  length: 0 (resolved future 1)
[13:13:52.260] Relaying remaining futures
[13:13:52.260] signalConditionsASAP(NULL, pos=0) ...
[13:13:52.260] - nx: 1
[13:13:52.260] - relay: TRUE
[13:13:52.260] - stdout: TRUE
[13:13:52.261] - signal: TRUE
[13:13:52.261] - resignal: FALSE
[13:13:52.261] - force: TRUE
[13:13:52.261] - relayed: [n=1] TRUE
[13:13:52.261] - queued futures: [n=1] TRUE
 - flush all
[13:13:52.261] - relayed: [n=1] TRUE
[13:13:52.262] - queued futures: [n=1] TRUE
[13:13:52.262] signalConditionsASAP(NULL, pos=0) ... done
[13:13:52.262] resolve() on list ... DONE
[13:13:52.262]  - Number of value chunks collected: 1
[13:13:52.262] Resolving 1 futures (chunks) ... DONE
[13:13:52.262] Reducing values from 1 chunks ...
[13:13:52.263]  - Number of values collected after concatenation: 3
[13:13:52.263]  - Number of values expected: 3
[13:13:52.263] Reducing values from 1 chunks ... DONE
[13:13:52.263] future_mapply() ... DONE
[13:13:52.263] future_mapply() ...
[13:13:52.266] Number of chunks: 5
[13:13:52.266] getGlobalsAndPackagesXApply() ...
[13:13:52.266]  - future.globals: TRUE
[13:13:52.266] getGlobalsAndPackages() ...
[13:13:52.266] Searching for globals...
[13:13:52.268] - globals found: [3] 'FUN', 'paste', 'rep.int'
[13:13:52.268] Searching for globals ... DONE
[13:13:52.268] Resolving globals: FALSE
[13:13:52.269] The total size of the 1 globals is 3.24 KiB (3320 bytes)
[13:13:52.269] The total size of the 1 globals exported for future expression ('FUN()') is 3.24 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (3.24 KiB of class 'function')
[13:13:52.269] - globals: [1] 'FUN'
[13:13:52.269] 
[13:13:52.269] getGlobalsAndPackages() ... DONE
[13:13:52.270]  - globals found/used: [n=1] 'FUN'
[13:13:52.270]  - needed namespaces: [n=0] 
[13:13:52.270] Finding globals ... DONE
[13:13:52.270] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:52.270] List of 2
[13:13:52.270]  $ ...future.FUN:function (C, k)  
[13:13:52.270]  $ MoreArgs     : NULL
[13:13:52.270]  - attr(*, "where")=List of 2
[13:13:52.270]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:52.270]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:52.270]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.270]  - attr(*, "resolved")= logi FALSE
[13:13:52.270]  - attr(*, "total_size")= num NA
[13:13:52.274] Packages to be attached in all futures: [n=0] 
[13:13:52.274] getGlobalsAndPackagesXApply() ... DONE
[13:13:52.274] Number of futures (= number of chunks): 5
[13:13:52.274] Launching 5 futures (chunks) ...
[13:13:52.274] Chunk #1 of 5 ...
[13:13:52.275]  - Finding globals in '...' for chunk #1 ...
[13:13:52.275] getGlobalsAndPackages() ...
[13:13:52.275] Searching for globals...
[13:13:52.275] 
[13:13:52.275] Searching for globals ... DONE
[13:13:52.276] - globals: [0] <none>
[13:13:52.276] getGlobalsAndPackages() ... DONE
[13:13:52.276]    + additional globals found: [n=0] 
[13:13:52.276]    + additional namespaces needed: [n=0] 
[13:13:52.276]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:52.276]  - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes)
[13:13:52.277]  - seeds: <none>
[13:13:52.277]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.277] getGlobalsAndPackages() ...
[13:13:52.277] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.277] Resolving globals: FALSE
[13:13:52.278] The total size of the 5 globals is 3.41 KiB (3488 bytes)
[13:13:52.278] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 3.41 KiB.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (3.24 KiB of class 'function'), '...future.elements_ii' (168 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:52.279] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.279] 
[13:13:52.279] getGlobalsAndPackages() ... DONE
[13:13:52.279] run() for 'Future' ...
[13:13:52.280] - state: 'created'
[13:13:52.281] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:52.281] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.281] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:52.281]   - Field: 'label'
[13:13:52.282]   - Field: 'local'
[13:13:52.282]   - Field: 'owner'
[13:13:52.282]   - Field: 'envir'
[13:13:52.282]   - Field: 'packages'
[13:13:52.282]   - Field: 'gc'
[13:13:52.282]   - Field: 'conditions'
[13:13:52.283]   - Field: 'expr'
[13:13:52.283]   - Field: 'uuid'
[13:13:52.283]   - Field: 'seed'
[13:13:52.283]   - Field: 'version'
[13:13:52.283]   - Field: 'result'
[13:13:52.283]   - Field: 'asynchronous'
[13:13:52.284]   - Field: 'calls'
[13:13:52.284]   - Field: 'globals'
[13:13:52.284]   - Field: 'stdout'
[13:13:52.284]   - Field: 'earlySignal'
[13:13:52.284]   - Field: 'lazy'
[13:13:52.284]   - Field: 'state'
[13:13:52.285] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:52.285] - Launch lazy future ...
[13:13:52.285] Packages needed by the future expression (n = 0): <none>
[13:13:52.285] Packages needed by future strategies (n = 0): <none>
[13:13:52.286] {
[13:13:52.286]     {
[13:13:52.286]         {
[13:13:52.286]             ...future.startTime <- base::Sys.time()
[13:13:52.286]             {
[13:13:52.286]                 {
[13:13:52.286]                   {
[13:13:52.286]                     base::local({
[13:13:52.286]                       has_future <- base::requireNamespace("future", 
[13:13:52.286]                         quietly = TRUE)
[13:13:52.286]                       if (has_future) {
[13:13:52.286]                         ns <- base::getNamespace("future")
[13:13:52.286]                         version <- ns[[".package"]][["version"]]
[13:13:52.286]                         if (is.null(version)) 
[13:13:52.286]                           version <- utils::packageVersion("future")
[13:13:52.286]                       }
[13:13:52.286]                       else {
[13:13:52.286]                         version <- NULL
[13:13:52.286]                       }
[13:13:52.286]                       if (!has_future || version < "1.8.0") {
[13:13:52.286]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:52.286]                           "", base::R.version$version.string), 
[13:13:52.286]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:52.286]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:52.286]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:52.286]                             "release", "version")], collapse = " "), 
[13:13:52.286]                           hostname = base::Sys.info()[["nodename"]])
[13:13:52.286]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:52.286]                           info)
[13:13:52.286]                         info <- base::paste(info, collapse = "; ")
[13:13:52.286]                         if (!has_future) {
[13:13:52.286]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:52.286]                             info)
[13:13:52.286]                         }
[13:13:52.286]                         else {
[13:13:52.286]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:52.286]                             info, version)
[13:13:52.286]                         }
[13:13:52.286]                         base::stop(msg)
[13:13:52.286]                       }
[13:13:52.286]                     })
[13:13:52.286]                   }
[13:13:52.286]                   options(future.plan = NULL)
[13:13:52.286]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.286]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:52.286]                 }
[13:13:52.286]                 ...future.workdir <- getwd()
[13:13:52.286]             }
[13:13:52.286]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:52.286]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:52.286]         }
[13:13:52.286]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:52.286]             future.globals.maxSize = 2621440000, future.globals.method = NULL, 
[13:13:52.286]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:52.286]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:52.286]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:52.286]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:52.286]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:52.286]             base::names(...future.oldOptions))
[13:13:52.286]     }
[13:13:52.286]     if (FALSE) {
[13:13:52.286]     }
[13:13:52.286]     else {
[13:13:52.286]         if (TRUE) {
[13:13:52.286]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:52.286]                 open = "w")
[13:13:52.286]         }
[13:13:52.286]         else {
[13:13:52.286]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:52.286]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:52.286]         }
[13:13:52.286]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:52.286]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:52.286]             base::sink(type = "output", split = FALSE)
[13:13:52.286]             base::close(...future.stdout)
[13:13:52.286]         }, add = TRUE)
[13:13:52.286]     }
[13:13:52.286]     ...future.frame <- base::sys.nframe()
[13:13:52.286]     ...future.conditions <- base::list()
[13:13:52.286]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:52.286]     if (FALSE) {
[13:13:52.286]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:52.286]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:52.286]     }
[13:13:52.286]     ...future.result <- base::tryCatch({
[13:13:52.286]         base::withCallingHandlers({
[13:13:52.286]             ...future.value <- base::withVisible(base::local({
[13:13:52.286]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.286]                 if (!identical(...future.globals.maxSize.org, 
[13:13:52.286]                   ...future.globals.maxSize)) {
[13:13:52.286]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.286]                   on.exit(options(oopts), add = TRUE)
[13:13:52.286]                 }
[13:13:52.286]                 {
[13:13:52.286]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.286]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:52.286]                     USE.NAMES = FALSE)
[13:13:52.286]                   do.call(mapply, args = args)
[13:13:52.286]                 }
[13:13:52.286]             }))
[13:13:52.286]             future::FutureResult(value = ...future.value$value, 
[13:13:52.286]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.286]                   ...future.rng), globalenv = if (FALSE) 
[13:13:52.286]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:52.286]                     ...future.globalenv.names))
[13:13:52.286]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:52.286]         }, condition = base::local({
[13:13:52.286]             c <- base::c
[13:13:52.286]             inherits <- base::inherits
[13:13:52.286]             invokeRestart <- base::invokeRestart
[13:13:52.286]             length <- base::length
[13:13:52.286]             list <- base::list
[13:13:52.286]             seq.int <- base::seq.int
[13:13:52.286]             signalCondition <- base::signalCondition
[13:13:52.286]             sys.calls <- base::sys.calls
[13:13:52.286]             `[[` <- base::`[[`
[13:13:52.286]             `+` <- base::`+`
[13:13:52.286]             `<<-` <- base::`<<-`
[13:13:52.286]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:52.286]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:52.286]                   3L)]
[13:13:52.286]             }
[13:13:52.286]             function(cond) {
[13:13:52.286]                 is_error <- inherits(cond, "error")
[13:13:52.286]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:52.286]                   NULL)
[13:13:52.286]                 if (is_error) {
[13:13:52.286]                   sessionInformation <- function() {
[13:13:52.286]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:52.286]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:52.286]                       search = base::search(), system = base::Sys.info())
[13:13:52.286]                   }
[13:13:52.286]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.286]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:52.286]                     cond$call), session = sessionInformation(), 
[13:13:52.286]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:52.286]                   signalCondition(cond)
[13:13:52.286]                 }
[13:13:52.286]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:52.286]                 "immediateCondition"))) {
[13:13:52.286]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:52.286]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.286]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:52.286]                   if (TRUE && !signal) {
[13:13:52.286]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.286]                     {
[13:13:52.286]                       inherits <- base::inherits
[13:13:52.286]                       invokeRestart <- base::invokeRestart
[13:13:52.286]                       is.null <- base::is.null
[13:13:52.286]                       muffled <- FALSE
[13:13:52.286]                       if (inherits(cond, "message")) {
[13:13:52.286]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.286]                         if (muffled) 
[13:13:52.286]                           invokeRestart("muffleMessage")
[13:13:52.286]                       }
[13:13:52.286]                       else if (inherits(cond, "warning")) {
[13:13:52.286]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.286]                         if (muffled) 
[13:13:52.286]                           invokeRestart("muffleWarning")
[13:13:52.286]                       }
[13:13:52.286]                       else if (inherits(cond, "condition")) {
[13:13:52.286]                         if (!is.null(pattern)) {
[13:13:52.286]                           computeRestarts <- base::computeRestarts
[13:13:52.286]                           grepl <- base::grepl
[13:13:52.286]                           restarts <- computeRestarts(cond)
[13:13:52.286]                           for (restart in restarts) {
[13:13:52.286]                             name <- restart$name
[13:13:52.286]                             if (is.null(name)) 
[13:13:52.286]                               next
[13:13:52.286]                             if (!grepl(pattern, name)) 
[13:13:52.286]                               next
[13:13:52.286]                             invokeRestart(restart)
[13:13:52.286]                             muffled <- TRUE
[13:13:52.286]                             break
[13:13:52.286]                           }
[13:13:52.286]                         }
[13:13:52.286]                       }
[13:13:52.286]                       invisible(muffled)
[13:13:52.286]                     }
[13:13:52.286]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.286]                   }
[13:13:52.286]                 }
[13:13:52.286]                 else {
[13:13:52.286]                   if (TRUE) {
[13:13:52.286]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.286]                     {
[13:13:52.286]                       inherits <- base::inherits
[13:13:52.286]                       invokeRestart <- base::invokeRestart
[13:13:52.286]                       is.null <- base::is.null
[13:13:52.286]                       muffled <- FALSE
[13:13:52.286]                       if (inherits(cond, "message")) {
[13:13:52.286]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.286]                         if (muffled) 
[13:13:52.286]                           invokeRestart("muffleMessage")
[13:13:52.286]                       }
[13:13:52.286]                       else if (inherits(cond, "warning")) {
[13:13:52.286]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.286]                         if (muffled) 
[13:13:52.286]                           invokeRestart("muffleWarning")
[13:13:52.286]                       }
[13:13:52.286]                       else if (inherits(cond, "condition")) {
[13:13:52.286]                         if (!is.null(pattern)) {
[13:13:52.286]                           computeRestarts <- base::computeRestarts
[13:13:52.286]                           grepl <- base::grepl
[13:13:52.286]                           restarts <- computeRestarts(cond)
[13:13:52.286]                           for (restart in restarts) {
[13:13:52.286]                             name <- restart$name
[13:13:52.286]                             if (is.null(name)) 
[13:13:52.286]                               next
[13:13:52.286]                             if (!grepl(pattern, name)) 
[13:13:52.286]                               next
[13:13:52.286]                             invokeRestart(restart)
[13:13:52.286]                             muffled <- TRUE
[13:13:52.286]                             break
[13:13:52.286]                           }
[13:13:52.286]                         }
[13:13:52.286]                       }
[13:13:52.286]                       invisible(muffled)
[13:13:52.286]                     }
[13:13:52.286]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.286]                   }
[13:13:52.286]                 }
[13:13:52.286]             }
[13:13:52.286]         }))
[13:13:52.286]     }, error = function(ex) {
[13:13:52.286]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:52.286]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.286]                 ...future.rng), started = ...future.startTime, 
[13:13:52.286]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:52.286]             version = "1.8"), class = "FutureResult")
[13:13:52.286]     }, finally = {
[13:13:52.286]         if (!identical(...future.workdir, getwd())) 
[13:13:52.286]             setwd(...future.workdir)
[13:13:52.286]         {
[13:13:52.286]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:52.286]                 ...future.oldOptions$nwarnings <- NULL
[13:13:52.286]             }
[13:13:52.286]             base::options(...future.oldOptions)
[13:13:52.286]             if (.Platform$OS.type == "windows") {
[13:13:52.286]                 old_names <- names(...future.oldEnvVars)
[13:13:52.286]                 envs <- base::Sys.getenv()
[13:13:52.286]                 names <- names(envs)
[13:13:52.286]                 common <- intersect(names, old_names)
[13:13:52.286]                 added <- setdiff(names, old_names)
[13:13:52.286]                 removed <- setdiff(old_names, names)
[13:13:52.286]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:52.286]                   envs[common]]
[13:13:52.286]                 NAMES <- toupper(changed)
[13:13:52.286]                 args <- list()
[13:13:52.286]                 for (kk in seq_along(NAMES)) {
[13:13:52.286]                   name <- changed[[kk]]
[13:13:52.286]                   NAME <- NAMES[[kk]]
[13:13:52.286]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.286]                     next
[13:13:52.286]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.286]                 }
[13:13:52.286]                 NAMES <- toupper(added)
[13:13:52.286]                 for (kk in seq_along(NAMES)) {
[13:13:52.286]                   name <- added[[kk]]
[13:13:52.286]                   NAME <- NAMES[[kk]]
[13:13:52.286]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.286]                     next
[13:13:52.286]                   args[[name]] <- ""
[13:13:52.286]                 }
[13:13:52.286]                 NAMES <- toupper(removed)
[13:13:52.286]                 for (kk in seq_along(NAMES)) {
[13:13:52.286]                   name <- removed[[kk]]
[13:13:52.286]                   NAME <- NAMES[[kk]]
[13:13:52.286]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.286]                     next
[13:13:52.286]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.286]                 }
[13:13:52.286]                 if (length(args) > 0) 
[13:13:52.286]                   base::do.call(base::Sys.setenv, args = args)
[13:13:52.286]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:52.286]             }
[13:13:52.286]             else {
[13:13:52.286]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:52.286]             }
[13:13:52.286]             {
[13:13:52.286]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:52.286]                   0L) {
[13:13:52.286]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:52.286]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:52.286]                   base::options(opts)
[13:13:52.286]                 }
[13:13:52.286]                 {
[13:13:52.286]                   {
[13:13:52.286]                     base::assign(".Random.seed", c(10407L, -1918733616L, 
[13:13:52.286]                     1584354639L, -1174970862L, -939885817L, 1422965938L, 
[13:13:52.286]                     -981423529L), envir = base::globalenv(), 
[13:13:52.286]                       inherits = FALSE)
[13:13:52.286]                     NULL
[13:13:52.286]                   }
[13:13:52.286]                   options(future.plan = NULL)
[13:13:52.286]                   if (is.na(NA_character_)) 
[13:13:52.286]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.286]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:52.286]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:52.286]                   {
[13:13:52.286]                     future <- SequentialFuture(..., envir = envir)
[13:13:52.286]                     if (!future$lazy) 
[13:13:52.286]                       future <- run(future)
[13:13:52.286]                     invisible(future)
[13:13:52.286]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:52.286]                 }
[13:13:52.286]             }
[13:13:52.286]         }
[13:13:52.286]     })
[13:13:52.286]     if (TRUE) {
[13:13:52.286]         base::sink(type = "output", split = FALSE)
[13:13:52.286]         if (TRUE) {
[13:13:52.286]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:52.286]         }
[13:13:52.286]         else {
[13:13:52.286]             ...future.result["stdout"] <- base::list(NULL)
[13:13:52.286]         }
[13:13:52.286]         base::close(...future.stdout)
[13:13:52.286]         ...future.stdout <- NULL
[13:13:52.286]     }
[13:13:52.286]     ...future.result$conditions <- ...future.conditions
[13:13:52.286]     ...future.result$finished <- base::Sys.time()
[13:13:52.286]     ...future.result
[13:13:52.286] }
[13:13:52.290] assign_globals() ...
[13:13:52.290] List of 5
[13:13:52.290]  $ ...future.FUN            :function (C, k)  
[13:13:52.290]  $ MoreArgs                 : NULL
[13:13:52.290]  $ ...future.elements_ii    :List of 2
[13:13:52.290]   ..$ :List of 1
[13:13:52.290]   .. ..$ : chr "A"
[13:13:52.290]   ..$ :List of 1
[13:13:52.290]   .. ..$ : int 5
[13:13:52.290]  $ ...future.seeds_ii       : NULL
[13:13:52.290]  $ ...future.globals.maxSize: NULL
[13:13:52.290]  - attr(*, "where")=List of 5
[13:13:52.290]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:52.290]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[13:13:52.290]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:52.290]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:52.290]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:52.290]  - attr(*, "resolved")= logi FALSE
[13:13:52.290]  - attr(*, "total_size")= num 3488
[13:13:52.290]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.290]  - attr(*, "already-done")= logi TRUE
[13:13:52.296] - reassign environment for '...future.FUN'
[13:13:52.296] - copied '...future.FUN' to environment
[13:13:52.296] - copied 'MoreArgs' to environment
[13:13:52.296] - copied '...future.elements_ii' to environment
[13:13:52.297] - copied '...future.seeds_ii' to environment
[13:13:52.297] - copied '...future.globals.maxSize' to environment
[13:13:52.297] assign_globals() ... done
[13:13:52.297] plan(): Setting new future strategy stack:
[13:13:52.297] List of future strategies:
[13:13:52.297] 1. sequential:
[13:13:52.297]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.297]    - tweaked: FALSE
[13:13:52.297]    - call: NULL
[13:13:52.298] plan(): nbrOfWorkers() = 1
[13:13:52.299] plan(): Setting new future strategy stack:
[13:13:52.299] List of future strategies:
[13:13:52.299] 1. sequential:
[13:13:52.299]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.299]    - tweaked: FALSE
[13:13:52.299]    - call: plan(strategy)
[13:13:52.300] plan(): nbrOfWorkers() = 1
[13:13:52.300] SequentialFuture started (and completed)
[13:13:52.300] - Launch lazy future ... done
[13:13:52.301] run() for 'SequentialFuture' ... done
[13:13:52.301] Created future:
[13:13:52.301] SequentialFuture:
[13:13:52.301] Label: 'future_mapply-1'
[13:13:52.301] Expression:
[13:13:52.301] {
[13:13:52.301]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.301]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:52.301]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.301]         on.exit(options(oopts), add = TRUE)
[13:13:52.301]     }
[13:13:52.301]     {
[13:13:52.301]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.301]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:52.301]         do.call(mapply, args = args)
[13:13:52.301]     }
[13:13:52.301] }
[13:13:52.301] Lazy evaluation: FALSE
[13:13:52.301] Asynchronous evaluation: FALSE
[13:13:52.301] Local evaluation: TRUE
[13:13:52.301] Environment: R_GlobalEnv
[13:13:52.301] Capture standard output: TRUE
[13:13:52.301] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:52.301] Globals: 5 objects totaling 3.41 KiB (function '...future.FUN' of 3.24 KiB, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 168 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:52.301] Packages: <none>
[13:13:52.301] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:52.301] Resolved: TRUE
[13:13:52.301] Value: 112 bytes of class 'list'
[13:13:52.301] Early signaling: FALSE
[13:13:52.301] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:52.301] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.302] Chunk #1 of 5 ... DONE
[13:13:52.302] Chunk #2 of 5 ...
[13:13:52.302]  - Finding globals in '...' for chunk #2 ...
[13:13:52.303] getGlobalsAndPackages() ...
[13:13:52.303] Searching for globals...
[13:13:52.303] 
[13:13:52.303] Searching for globals ... DONE
[13:13:52.304] - globals: [0] <none>
[13:13:52.304] getGlobalsAndPackages() ... DONE
[13:13:52.304]    + additional globals found: [n=0] 
[13:13:52.304]    + additional namespaces needed: [n=0] 
[13:13:52.304]  - Finding globals in '...' for chunk #2 ... DONE
[13:13:52.304]  - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes)
[13:13:52.304]  - seeds: <none>
[13:13:52.305]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.305] getGlobalsAndPackages() ...
[13:13:52.305] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.305] Resolving globals: FALSE
[13:13:52.306] The total size of the 5 globals is 3.41 KiB (3488 bytes)
[13:13:52.306] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 3.41 KiB.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (3.24 KiB of class 'function'), '...future.elements_ii' (168 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:52.307] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.307] 
[13:13:52.307] getGlobalsAndPackages() ... DONE
[13:13:52.307] run() for 'Future' ...
[13:13:52.307] - state: 'created'
[13:13:52.308] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:52.308] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.308] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:52.308]   - Field: 'label'
[13:13:52.309]   - Field: 'local'
[13:13:52.309]   - Field: 'owner'
[13:13:52.309]   - Field: 'envir'
[13:13:52.309]   - Field: 'packages'
[13:13:52.309]   - Field: 'gc'
[13:13:52.309]   - Field: 'conditions'
[13:13:52.310]   - Field: 'expr'
[13:13:52.310]   - Field: 'uuid'
[13:13:52.310]   - Field: 'seed'
[13:13:52.310]   - Field: 'version'
[13:13:52.310]   - Field: 'result'
[13:13:52.311]   - Field: 'asynchronous'
[13:13:52.311]   - Field: 'calls'
[13:13:52.312]   - Field: 'globals'
[13:13:52.312]   - Field: 'stdout'
[13:13:52.312]   - Field: 'earlySignal'
[13:13:52.312]   - Field: 'lazy'
[13:13:52.312]   - Field: 'state'
[13:13:52.312] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:52.313] - Launch lazy future ...
[13:13:52.313] Packages needed by the future expression (n = 0): <none>
[13:13:52.313] Packages needed by future strategies (n = 0): <none>
[13:13:52.314] {
[13:13:52.314]     {
[13:13:52.314]         {
[13:13:52.314]             ...future.startTime <- base::Sys.time()
[13:13:52.314]             {
[13:13:52.314]                 {
[13:13:52.314]                   {
[13:13:52.314]                     base::local({
[13:13:52.314]                       has_future <- base::requireNamespace("future", 
[13:13:52.314]                         quietly = TRUE)
[13:13:52.314]                       if (has_future) {
[13:13:52.314]                         ns <- base::getNamespace("future")
[13:13:52.314]                         version <- ns[[".package"]][["version"]]
[13:13:52.314]                         if (is.null(version)) 
[13:13:52.314]                           version <- utils::packageVersion("future")
[13:13:52.314]                       }
[13:13:52.314]                       else {
[13:13:52.314]                         version <- NULL
[13:13:52.314]                       }
[13:13:52.314]                       if (!has_future || version < "1.8.0") {
[13:13:52.314]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:52.314]                           "", base::R.version$version.string), 
[13:13:52.314]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:52.314]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:52.314]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:52.314]                             "release", "version")], collapse = " "), 
[13:13:52.314]                           hostname = base::Sys.info()[["nodename"]])
[13:13:52.314]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:52.314]                           info)
[13:13:52.314]                         info <- base::paste(info, collapse = "; ")
[13:13:52.314]                         if (!has_future) {
[13:13:52.314]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:52.314]                             info)
[13:13:52.314]                         }
[13:13:52.314]                         else {
[13:13:52.314]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:52.314]                             info, version)
[13:13:52.314]                         }
[13:13:52.314]                         base::stop(msg)
[13:13:52.314]                       }
[13:13:52.314]                     })
[13:13:52.314]                   }
[13:13:52.314]                   options(future.plan = NULL)
[13:13:52.314]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.314]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:52.314]                 }
[13:13:52.314]                 ...future.workdir <- getwd()
[13:13:52.314]             }
[13:13:52.314]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:52.314]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:52.314]         }
[13:13:52.314]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:52.314]             future.globals.maxSize = 2621440000, future.globals.method = NULL, 
[13:13:52.314]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:52.314]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:52.314]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:52.314]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:52.314]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:52.314]             base::names(...future.oldOptions))
[13:13:52.314]     }
[13:13:52.314]     if (FALSE) {
[13:13:52.314]     }
[13:13:52.314]     else {
[13:13:52.314]         if (TRUE) {
[13:13:52.314]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:52.314]                 open = "w")
[13:13:52.314]         }
[13:13:52.314]         else {
[13:13:52.314]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:52.314]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:52.314]         }
[13:13:52.314]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:52.314]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:52.314]             base::sink(type = "output", split = FALSE)
[13:13:52.314]             base::close(...future.stdout)
[13:13:52.314]         }, add = TRUE)
[13:13:52.314]     }
[13:13:52.314]     ...future.frame <- base::sys.nframe()
[13:13:52.314]     ...future.conditions <- base::list()
[13:13:52.314]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:52.314]     if (FALSE) {
[13:13:52.314]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:52.314]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:52.314]     }
[13:13:52.314]     ...future.result <- base::tryCatch({
[13:13:52.314]         base::withCallingHandlers({
[13:13:52.314]             ...future.value <- base::withVisible(base::local({
[13:13:52.314]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.314]                 if (!identical(...future.globals.maxSize.org, 
[13:13:52.314]                   ...future.globals.maxSize)) {
[13:13:52.314]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.314]                   on.exit(options(oopts), add = TRUE)
[13:13:52.314]                 }
[13:13:52.314]                 {
[13:13:52.314]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.314]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:52.314]                     USE.NAMES = FALSE)
[13:13:52.314]                   do.call(mapply, args = args)
[13:13:52.314]                 }
[13:13:52.314]             }))
[13:13:52.314]             future::FutureResult(value = ...future.value$value, 
[13:13:52.314]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.314]                   ...future.rng), globalenv = if (FALSE) 
[13:13:52.314]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:52.314]                     ...future.globalenv.names))
[13:13:52.314]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:52.314]         }, condition = base::local({
[13:13:52.314]             c <- base::c
[13:13:52.314]             inherits <- base::inherits
[13:13:52.314]             invokeRestart <- base::invokeRestart
[13:13:52.314]             length <- base::length
[13:13:52.314]             list <- base::list
[13:13:52.314]             seq.int <- base::seq.int
[13:13:52.314]             signalCondition <- base::signalCondition
[13:13:52.314]             sys.calls <- base::sys.calls
[13:13:52.314]             `[[` <- base::`[[`
[13:13:52.314]             `+` <- base::`+`
[13:13:52.314]             `<<-` <- base::`<<-`
[13:13:52.314]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:52.314]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:52.314]                   3L)]
[13:13:52.314]             }
[13:13:52.314]             function(cond) {
[13:13:52.314]                 is_error <- inherits(cond, "error")
[13:13:52.314]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:52.314]                   NULL)
[13:13:52.314]                 if (is_error) {
[13:13:52.314]                   sessionInformation <- function() {
[13:13:52.314]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:52.314]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:52.314]                       search = base::search(), system = base::Sys.info())
[13:13:52.314]                   }
[13:13:52.314]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.314]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:52.314]                     cond$call), session = sessionInformation(), 
[13:13:52.314]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:52.314]                   signalCondition(cond)
[13:13:52.314]                 }
[13:13:52.314]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:52.314]                 "immediateCondition"))) {
[13:13:52.314]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:52.314]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.314]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:52.314]                   if (TRUE && !signal) {
[13:13:52.314]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.314]                     {
[13:13:52.314]                       inherits <- base::inherits
[13:13:52.314]                       invokeRestart <- base::invokeRestart
[13:13:52.314]                       is.null <- base::is.null
[13:13:52.314]                       muffled <- FALSE
[13:13:52.314]                       if (inherits(cond, "message")) {
[13:13:52.314]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.314]                         if (muffled) 
[13:13:52.314]                           invokeRestart("muffleMessage")
[13:13:52.314]                       }
[13:13:52.314]                       else if (inherits(cond, "warning")) {
[13:13:52.314]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.314]                         if (muffled) 
[13:13:52.314]                           invokeRestart("muffleWarning")
[13:13:52.314]                       }
[13:13:52.314]                       else if (inherits(cond, "condition")) {
[13:13:52.314]                         if (!is.null(pattern)) {
[13:13:52.314]                           computeRestarts <- base::computeRestarts
[13:13:52.314]                           grepl <- base::grepl
[13:13:52.314]                           restarts <- computeRestarts(cond)
[13:13:52.314]                           for (restart in restarts) {
[13:13:52.314]                             name <- restart$name
[13:13:52.314]                             if (is.null(name)) 
[13:13:52.314]                               next
[13:13:52.314]                             if (!grepl(pattern, name)) 
[13:13:52.314]                               next
[13:13:52.314]                             invokeRestart(restart)
[13:13:52.314]                             muffled <- TRUE
[13:13:52.314]                             break
[13:13:52.314]                           }
[13:13:52.314]                         }
[13:13:52.314]                       }
[13:13:52.314]                       invisible(muffled)
[13:13:52.314]                     }
[13:13:52.314]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.314]                   }
[13:13:52.314]                 }
[13:13:52.314]                 else {
[13:13:52.314]                   if (TRUE) {
[13:13:52.314]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.314]                     {
[13:13:52.314]                       inherits <- base::inherits
[13:13:52.314]                       invokeRestart <- base::invokeRestart
[13:13:52.314]                       is.null <- base::is.null
[13:13:52.314]                       muffled <- FALSE
[13:13:52.314]                       if (inherits(cond, "message")) {
[13:13:52.314]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.314]                         if (muffled) 
[13:13:52.314]                           invokeRestart("muffleMessage")
[13:13:52.314]                       }
[13:13:52.314]                       else if (inherits(cond, "warning")) {
[13:13:52.314]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.314]                         if (muffled) 
[13:13:52.314]                           invokeRestart("muffleWarning")
[13:13:52.314]                       }
[13:13:52.314]                       else if (inherits(cond, "condition")) {
[13:13:52.314]                         if (!is.null(pattern)) {
[13:13:52.314]                           computeRestarts <- base::computeRestarts
[13:13:52.314]                           grepl <- base::grepl
[13:13:52.314]                           restarts <- computeRestarts(cond)
[13:13:52.314]                           for (restart in restarts) {
[13:13:52.314]                             name <- restart$name
[13:13:52.314]                             if (is.null(name)) 
[13:13:52.314]                               next
[13:13:52.314]                             if (!grepl(pattern, name)) 
[13:13:52.314]                               next
[13:13:52.314]                             invokeRestart(restart)
[13:13:52.314]                             muffled <- TRUE
[13:13:52.314]                             break
[13:13:52.314]                           }
[13:13:52.314]                         }
[13:13:52.314]                       }
[13:13:52.314]                       invisible(muffled)
[13:13:52.314]                     }
[13:13:52.314]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.314]                   }
[13:13:52.314]                 }
[13:13:52.314]             }
[13:13:52.314]         }))
[13:13:52.314]     }, error = function(ex) {
[13:13:52.314]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:52.314]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.314]                 ...future.rng), started = ...future.startTime, 
[13:13:52.314]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:52.314]             version = "1.8"), class = "FutureResult")
[13:13:52.314]     }, finally = {
[13:13:52.314]         if (!identical(...future.workdir, getwd())) 
[13:13:52.314]             setwd(...future.workdir)
[13:13:52.314]         {
[13:13:52.314]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:52.314]                 ...future.oldOptions$nwarnings <- NULL
[13:13:52.314]             }
[13:13:52.314]             base::options(...future.oldOptions)
[13:13:52.314]             if (.Platform$OS.type == "windows") {
[13:13:52.314]                 old_names <- names(...future.oldEnvVars)
[13:13:52.314]                 envs <- base::Sys.getenv()
[13:13:52.314]                 names <- names(envs)
[13:13:52.314]                 common <- intersect(names, old_names)
[13:13:52.314]                 added <- setdiff(names, old_names)
[13:13:52.314]                 removed <- setdiff(old_names, names)
[13:13:52.314]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:52.314]                   envs[common]]
[13:13:52.314]                 NAMES <- toupper(changed)
[13:13:52.314]                 args <- list()
[13:13:52.314]                 for (kk in seq_along(NAMES)) {
[13:13:52.314]                   name <- changed[[kk]]
[13:13:52.314]                   NAME <- NAMES[[kk]]
[13:13:52.314]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.314]                     next
[13:13:52.314]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.314]                 }
[13:13:52.314]                 NAMES <- toupper(added)
[13:13:52.314]                 for (kk in seq_along(NAMES)) {
[13:13:52.314]                   name <- added[[kk]]
[13:13:52.314]                   NAME <- NAMES[[kk]]
[13:13:52.314]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.314]                     next
[13:13:52.314]                   args[[name]] <- ""
[13:13:52.314]                 }
[13:13:52.314]                 NAMES <- toupper(removed)
[13:13:52.314]                 for (kk in seq_along(NAMES)) {
[13:13:52.314]                   name <- removed[[kk]]
[13:13:52.314]                   NAME <- NAMES[[kk]]
[13:13:52.314]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.314]                     next
[13:13:52.314]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.314]                 }
[13:13:52.314]                 if (length(args) > 0) 
[13:13:52.314]                   base::do.call(base::Sys.setenv, args = args)
[13:13:52.314]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:52.314]             }
[13:13:52.314]             else {
[13:13:52.314]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:52.314]             }
[13:13:52.314]             {
[13:13:52.314]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:52.314]                   0L) {
[13:13:52.314]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:52.314]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:52.314]                   base::options(opts)
[13:13:52.314]                 }
[13:13:52.314]                 {
[13:13:52.314]                   {
[13:13:52.314]                     base::assign(".Random.seed", c(10407L, -1918733616L, 
[13:13:52.314]                     1584354639L, -1174970862L, -939885817L, 1422965938L, 
[13:13:52.314]                     -981423529L), envir = base::globalenv(), 
[13:13:52.314]                       inherits = FALSE)
[13:13:52.314]                     NULL
[13:13:52.314]                   }
[13:13:52.314]                   options(future.plan = NULL)
[13:13:52.314]                   if (is.na(NA_character_)) 
[13:13:52.314]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.314]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:52.314]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:52.314]                   {
[13:13:52.314]                     future <- SequentialFuture(..., envir = envir)
[13:13:52.314]                     if (!future$lazy) 
[13:13:52.314]                       future <- run(future)
[13:13:52.314]                     invisible(future)
[13:13:52.314]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:52.314]                 }
[13:13:52.314]             }
[13:13:52.314]         }
[13:13:52.314]     })
[13:13:52.314]     if (TRUE) {
[13:13:52.314]         base::sink(type = "output", split = FALSE)
[13:13:52.314]         if (TRUE) {
[13:13:52.314]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:52.314]         }
[13:13:52.314]         else {
[13:13:52.314]             ...future.result["stdout"] <- base::list(NULL)
[13:13:52.314]         }
[13:13:52.314]         base::close(...future.stdout)
[13:13:52.314]         ...future.stdout <- NULL
[13:13:52.314]     }
[13:13:52.314]     ...future.result$conditions <- ...future.conditions
[13:13:52.314]     ...future.result$finished <- base::Sys.time()
[13:13:52.314]     ...future.result
[13:13:52.314] }
[13:13:52.318] assign_globals() ...
[13:13:52.318] List of 5
[13:13:52.318]  $ ...future.FUN            :function (C, k)  
[13:13:52.318]  $ MoreArgs                 : NULL
[13:13:52.318]  $ ...future.elements_ii    :List of 2
[13:13:52.318]   ..$ :List of 1
[13:13:52.318]   .. ..$ : chr "B"
[13:13:52.318]   ..$ :List of 1
[13:13:52.318]   .. ..$ : int 4
[13:13:52.318]  $ ...future.seeds_ii       : NULL
[13:13:52.318]  $ ...future.globals.maxSize: NULL
[13:13:52.318]  - attr(*, "where")=List of 5
[13:13:52.318]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:52.318]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[13:13:52.318]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:52.318]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:52.318]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:52.318]  - attr(*, "resolved")= logi FALSE
[13:13:52.318]  - attr(*, "total_size")= num 3488
[13:13:52.318]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.318]  - attr(*, "already-done")= logi TRUE
[13:13:52.324] - reassign environment for '...future.FUN'
[13:13:52.324] - copied '...future.FUN' to environment
[13:13:52.324] - copied 'MoreArgs' to environment
[13:13:52.324] - copied '...future.elements_ii' to environment
[13:13:52.324] - copied '...future.seeds_ii' to environment
[13:13:52.324] - copied '...future.globals.maxSize' to environment
[13:13:52.325] assign_globals() ... done
[13:13:52.325] plan(): Setting new future strategy stack:
[13:13:52.325] List of future strategies:
[13:13:52.325] 1. sequential:
[13:13:52.325]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.325]    - tweaked: FALSE
[13:13:52.325]    - call: NULL
[13:13:52.326] plan(): nbrOfWorkers() = 1
[13:13:52.327] plan(): Setting new future strategy stack:
[13:13:52.327] List of future strategies:
[13:13:52.327] 1. sequential:
[13:13:52.327]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.327]    - tweaked: FALSE
[13:13:52.327]    - call: plan(strategy)
[13:13:52.328] plan(): nbrOfWorkers() = 1
[13:13:52.328] SequentialFuture started (and completed)
[13:13:52.328] - Launch lazy future ... done
[13:13:52.328] run() for 'SequentialFuture' ... done
[13:13:52.328] Created future:
[13:13:52.329] SequentialFuture:
[13:13:52.329] Label: 'future_mapply-2'
[13:13:52.329] Expression:
[13:13:52.329] {
[13:13:52.329]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.329]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:52.329]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.329]         on.exit(options(oopts), add = TRUE)
[13:13:52.329]     }
[13:13:52.329]     {
[13:13:52.329]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.329]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:52.329]         do.call(mapply, args = args)
[13:13:52.329]     }
[13:13:52.329] }
[13:13:52.329] Lazy evaluation: FALSE
[13:13:52.329] Asynchronous evaluation: FALSE
[13:13:52.329] Local evaluation: TRUE
[13:13:52.329] Environment: R_GlobalEnv
[13:13:52.329] Capture standard output: TRUE
[13:13:52.329] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:52.329] Globals: 5 objects totaling 3.41 KiB (function '...future.FUN' of 3.24 KiB, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 168 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:52.329] Packages: <none>
[13:13:52.329] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:52.329] Resolved: TRUE
[13:13:52.329] Value: 112 bytes of class 'list'
[13:13:52.329] Early signaling: FALSE
[13:13:52.329] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:52.329] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.330] Chunk #2 of 5 ... DONE
[13:13:52.330] Chunk #3 of 5 ...
[13:13:52.330]  - Finding globals in '...' for chunk #3 ...
[13:13:52.330] getGlobalsAndPackages() ...
[13:13:52.330] Searching for globals...
[13:13:52.331] 
[13:13:52.331] Searching for globals ... DONE
[13:13:52.331] - globals: [0] <none>
[13:13:52.331] getGlobalsAndPackages() ... DONE
[13:13:52.331]    + additional globals found: [n=0] 
[13:13:52.332]    + additional namespaces needed: [n=0] 
[13:13:52.332]  - Finding globals in '...' for chunk #3 ... DONE
[13:13:52.332]  - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes)
[13:13:52.332]  - seeds: <none>
[13:13:52.332]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.332] getGlobalsAndPackages() ...
[13:13:52.333] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.333] Resolving globals: FALSE
[13:13:52.333] The total size of the 5 globals is 3.41 KiB (3488 bytes)
[13:13:52.334] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 3.41 KiB.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (3.24 KiB of class 'function'), '...future.elements_ii' (168 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:52.334] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.334] 
[13:13:52.335] getGlobalsAndPackages() ... DONE
[13:13:52.335] run() for 'Future' ...
[13:13:52.335] - state: 'created'
[13:13:52.335] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:52.336] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.336] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:52.336]   - Field: 'label'
[13:13:52.336]   - Field: 'local'
[13:13:52.336]   - Field: 'owner'
[13:13:52.337]   - Field: 'envir'
[13:13:52.337]   - Field: 'packages'
[13:13:52.337]   - Field: 'gc'
[13:13:52.337]   - Field: 'conditions'
[13:13:52.337]   - Field: 'expr'
[13:13:52.337]   - Field: 'uuid'
[13:13:52.338]   - Field: 'seed'
[13:13:52.338]   - Field: 'version'
[13:13:52.338]   - Field: 'result'
[13:13:52.338]   - Field: 'asynchronous'
[13:13:52.338]   - Field: 'calls'
[13:13:52.338]   - Field: 'globals'
[13:13:52.339]   - Field: 'stdout'
[13:13:52.339]   - Field: 'earlySignal'
[13:13:52.339]   - Field: 'lazy'
[13:13:52.339]   - Field: 'state'
[13:13:52.339] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:52.339] - Launch lazy future ...
[13:13:52.340] Packages needed by the future expression (n = 0): <none>
[13:13:52.340] Packages needed by future strategies (n = 0): <none>
[13:13:52.340] {
[13:13:52.340]     {
[13:13:52.340]         {
[13:13:52.340]             ...future.startTime <- base::Sys.time()
[13:13:52.340]             {
[13:13:52.340]                 {
[13:13:52.340]                   {
[13:13:52.340]                     base::local({
[13:13:52.340]                       has_future <- base::requireNamespace("future", 
[13:13:52.340]                         quietly = TRUE)
[13:13:52.340]                       if (has_future) {
[13:13:52.340]                         ns <- base::getNamespace("future")
[13:13:52.340]                         version <- ns[[".package"]][["version"]]
[13:13:52.340]                         if (is.null(version)) 
[13:13:52.340]                           version <- utils::packageVersion("future")
[13:13:52.340]                       }
[13:13:52.340]                       else {
[13:13:52.340]                         version <- NULL
[13:13:52.340]                       }
[13:13:52.340]                       if (!has_future || version < "1.8.0") {
[13:13:52.340]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:52.340]                           "", base::R.version$version.string), 
[13:13:52.340]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:52.340]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:52.340]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:52.340]                             "release", "version")], collapse = " "), 
[13:13:52.340]                           hostname = base::Sys.info()[["nodename"]])
[13:13:52.340]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:52.340]                           info)
[13:13:52.340]                         info <- base::paste(info, collapse = "; ")
[13:13:52.340]                         if (!has_future) {
[13:13:52.340]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:52.340]                             info)
[13:13:52.340]                         }
[13:13:52.340]                         else {
[13:13:52.340]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:52.340]                             info, version)
[13:13:52.340]                         }
[13:13:52.340]                         base::stop(msg)
[13:13:52.340]                       }
[13:13:52.340]                     })
[13:13:52.340]                   }
[13:13:52.340]                   options(future.plan = NULL)
[13:13:52.340]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.340]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:52.340]                 }
[13:13:52.340]                 ...future.workdir <- getwd()
[13:13:52.340]             }
[13:13:52.340]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:52.340]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:52.340]         }
[13:13:52.340]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:52.340]             future.globals.maxSize = 2621440000, future.globals.method = NULL, 
[13:13:52.340]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:52.340]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:52.340]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:52.340]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:52.340]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:52.340]             base::names(...future.oldOptions))
[13:13:52.340]     }
[13:13:52.340]     if (FALSE) {
[13:13:52.340]     }
[13:13:52.340]     else {
[13:13:52.340]         if (TRUE) {
[13:13:52.340]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:52.340]                 open = "w")
[13:13:52.340]         }
[13:13:52.340]         else {
[13:13:52.340]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:52.340]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:52.340]         }
[13:13:52.340]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:52.340]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:52.340]             base::sink(type = "output", split = FALSE)
[13:13:52.340]             base::close(...future.stdout)
[13:13:52.340]         }, add = TRUE)
[13:13:52.340]     }
[13:13:52.340]     ...future.frame <- base::sys.nframe()
[13:13:52.340]     ...future.conditions <- base::list()
[13:13:52.340]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:52.340]     if (FALSE) {
[13:13:52.340]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:52.340]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:52.340]     }
[13:13:52.340]     ...future.result <- base::tryCatch({
[13:13:52.340]         base::withCallingHandlers({
[13:13:52.340]             ...future.value <- base::withVisible(base::local({
[13:13:52.340]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.340]                 if (!identical(...future.globals.maxSize.org, 
[13:13:52.340]                   ...future.globals.maxSize)) {
[13:13:52.340]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.340]                   on.exit(options(oopts), add = TRUE)
[13:13:52.340]                 }
[13:13:52.340]                 {
[13:13:52.340]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.340]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:52.340]                     USE.NAMES = FALSE)
[13:13:52.340]                   do.call(mapply, args = args)
[13:13:52.340]                 }
[13:13:52.340]             }))
[13:13:52.340]             future::FutureResult(value = ...future.value$value, 
[13:13:52.340]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.340]                   ...future.rng), globalenv = if (FALSE) 
[13:13:52.340]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:52.340]                     ...future.globalenv.names))
[13:13:52.340]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:52.340]         }, condition = base::local({
[13:13:52.340]             c <- base::c
[13:13:52.340]             inherits <- base::inherits
[13:13:52.340]             invokeRestart <- base::invokeRestart
[13:13:52.340]             length <- base::length
[13:13:52.340]             list <- base::list
[13:13:52.340]             seq.int <- base::seq.int
[13:13:52.340]             signalCondition <- base::signalCondition
[13:13:52.340]             sys.calls <- base::sys.calls
[13:13:52.340]             `[[` <- base::`[[`
[13:13:52.340]             `+` <- base::`+`
[13:13:52.340]             `<<-` <- base::`<<-`
[13:13:52.340]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:52.340]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:52.340]                   3L)]
[13:13:52.340]             }
[13:13:52.340]             function(cond) {
[13:13:52.340]                 is_error <- inherits(cond, "error")
[13:13:52.340]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:52.340]                   NULL)
[13:13:52.340]                 if (is_error) {
[13:13:52.340]                   sessionInformation <- function() {
[13:13:52.340]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:52.340]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:52.340]                       search = base::search(), system = base::Sys.info())
[13:13:52.340]                   }
[13:13:52.340]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.340]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:52.340]                     cond$call), session = sessionInformation(), 
[13:13:52.340]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:52.340]                   signalCondition(cond)
[13:13:52.340]                 }
[13:13:52.340]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:52.340]                 "immediateCondition"))) {
[13:13:52.340]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:52.340]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.340]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:52.340]                   if (TRUE && !signal) {
[13:13:52.340]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.340]                     {
[13:13:52.340]                       inherits <- base::inherits
[13:13:52.340]                       invokeRestart <- base::invokeRestart
[13:13:52.340]                       is.null <- base::is.null
[13:13:52.340]                       muffled <- FALSE
[13:13:52.340]                       if (inherits(cond, "message")) {
[13:13:52.340]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.340]                         if (muffled) 
[13:13:52.340]                           invokeRestart("muffleMessage")
[13:13:52.340]                       }
[13:13:52.340]                       else if (inherits(cond, "warning")) {
[13:13:52.340]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.340]                         if (muffled) 
[13:13:52.340]                           invokeRestart("muffleWarning")
[13:13:52.340]                       }
[13:13:52.340]                       else if (inherits(cond, "condition")) {
[13:13:52.340]                         if (!is.null(pattern)) {
[13:13:52.340]                           computeRestarts <- base::computeRestarts
[13:13:52.340]                           grepl <- base::grepl
[13:13:52.340]                           restarts <- computeRestarts(cond)
[13:13:52.340]                           for (restart in restarts) {
[13:13:52.340]                             name <- restart$name
[13:13:52.340]                             if (is.null(name)) 
[13:13:52.340]                               next
[13:13:52.340]                             if (!grepl(pattern, name)) 
[13:13:52.340]                               next
[13:13:52.340]                             invokeRestart(restart)
[13:13:52.340]                             muffled <- TRUE
[13:13:52.340]                             break
[13:13:52.340]                           }
[13:13:52.340]                         }
[13:13:52.340]                       }
[13:13:52.340]                       invisible(muffled)
[13:13:52.340]                     }
[13:13:52.340]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.340]                   }
[13:13:52.340]                 }
[13:13:52.340]                 else {
[13:13:52.340]                   if (TRUE) {
[13:13:52.340]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.340]                     {
[13:13:52.340]                       inherits <- base::inherits
[13:13:52.340]                       invokeRestart <- base::invokeRestart
[13:13:52.340]                       is.null <- base::is.null
[13:13:52.340]                       muffled <- FALSE
[13:13:52.340]                       if (inherits(cond, "message")) {
[13:13:52.340]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.340]                         if (muffled) 
[13:13:52.340]                           invokeRestart("muffleMessage")
[13:13:52.340]                       }
[13:13:52.340]                       else if (inherits(cond, "warning")) {
[13:13:52.340]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.340]                         if (muffled) 
[13:13:52.340]                           invokeRestart("muffleWarning")
[13:13:52.340]                       }
[13:13:52.340]                       else if (inherits(cond, "condition")) {
[13:13:52.340]                         if (!is.null(pattern)) {
[13:13:52.340]                           computeRestarts <- base::computeRestarts
[13:13:52.340]                           grepl <- base::grepl
[13:13:52.340]                           restarts <- computeRestarts(cond)
[13:13:52.340]                           for (restart in restarts) {
[13:13:52.340]                             name <- restart$name
[13:13:52.340]                             if (is.null(name)) 
[13:13:52.340]                               next
[13:13:52.340]                             if (!grepl(pattern, name)) 
[13:13:52.340]                               next
[13:13:52.340]                             invokeRestart(restart)
[13:13:52.340]                             muffled <- TRUE
[13:13:52.340]                             break
[13:13:52.340]                           }
[13:13:52.340]                         }
[13:13:52.340]                       }
[13:13:52.340]                       invisible(muffled)
[13:13:52.340]                     }
[13:13:52.340]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.340]                   }
[13:13:52.340]                 }
[13:13:52.340]             }
[13:13:52.340]         }))
[13:13:52.340]     }, error = function(ex) {
[13:13:52.340]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:52.340]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.340]                 ...future.rng), started = ...future.startTime, 
[13:13:52.340]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:52.340]             version = "1.8"), class = "FutureResult")
[13:13:52.340]     }, finally = {
[13:13:52.340]         if (!identical(...future.workdir, getwd())) 
[13:13:52.340]             setwd(...future.workdir)
[13:13:52.340]         {
[13:13:52.340]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:52.340]                 ...future.oldOptions$nwarnings <- NULL
[13:13:52.340]             }
[13:13:52.340]             base::options(...future.oldOptions)
[13:13:52.340]             if (.Platform$OS.type == "windows") {
[13:13:52.340]                 old_names <- names(...future.oldEnvVars)
[13:13:52.340]                 envs <- base::Sys.getenv()
[13:13:52.340]                 names <- names(envs)
[13:13:52.340]                 common <- intersect(names, old_names)
[13:13:52.340]                 added <- setdiff(names, old_names)
[13:13:52.340]                 removed <- setdiff(old_names, names)
[13:13:52.340]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:52.340]                   envs[common]]
[13:13:52.340]                 NAMES <- toupper(changed)
[13:13:52.340]                 args <- list()
[13:13:52.340]                 for (kk in seq_along(NAMES)) {
[13:13:52.340]                   name <- changed[[kk]]
[13:13:52.340]                   NAME <- NAMES[[kk]]
[13:13:52.340]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.340]                     next
[13:13:52.340]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.340]                 }
[13:13:52.340]                 NAMES <- toupper(added)
[13:13:52.340]                 for (kk in seq_along(NAMES)) {
[13:13:52.340]                   name <- added[[kk]]
[13:13:52.340]                   NAME <- NAMES[[kk]]
[13:13:52.340]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.340]                     next
[13:13:52.340]                   args[[name]] <- ""
[13:13:52.340]                 }
[13:13:52.340]                 NAMES <- toupper(removed)
[13:13:52.340]                 for (kk in seq_along(NAMES)) {
[13:13:52.340]                   name <- removed[[kk]]
[13:13:52.340]                   NAME <- NAMES[[kk]]
[13:13:52.340]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.340]                     next
[13:13:52.340]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.340]                 }
[13:13:52.340]                 if (length(args) > 0) 
[13:13:52.340]                   base::do.call(base::Sys.setenv, args = args)
[13:13:52.340]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:52.340]             }
[13:13:52.340]             else {
[13:13:52.340]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:52.340]             }
[13:13:52.340]             {
[13:13:52.340]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:52.340]                   0L) {
[13:13:52.340]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:52.340]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:52.340]                   base::options(opts)
[13:13:52.340]                 }
[13:13:52.340]                 {
[13:13:52.340]                   {
[13:13:52.340]                     base::assign(".Random.seed", c(10407L, -1918733616L, 
[13:13:52.340]                     1584354639L, -1174970862L, -939885817L, 1422965938L, 
[13:13:52.340]                     -981423529L), envir = base::globalenv(), 
[13:13:52.340]                       inherits = FALSE)
[13:13:52.340]                     NULL
[13:13:52.340]                   }
[13:13:52.340]                   options(future.plan = NULL)
[13:13:52.340]                   if (is.na(NA_character_)) 
[13:13:52.340]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.340]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:52.340]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:52.340]                   {
[13:13:52.340]                     future <- SequentialFuture(..., envir = envir)
[13:13:52.340]                     if (!future$lazy) 
[13:13:52.340]                       future <- run(future)
[13:13:52.340]                     invisible(future)
[13:13:52.340]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:52.340]                 }
[13:13:52.340]             }
[13:13:52.340]         }
[13:13:52.340]     })
[13:13:52.340]     if (TRUE) {
[13:13:52.340]         base::sink(type = "output", split = FALSE)
[13:13:52.340]         if (TRUE) {
[13:13:52.340]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:52.340]         }
[13:13:52.340]         else {
[13:13:52.340]             ...future.result["stdout"] <- base::list(NULL)
[13:13:52.340]         }
[13:13:52.340]         base::close(...future.stdout)
[13:13:52.340]         ...future.stdout <- NULL
[13:13:52.340]     }
[13:13:52.340]     ...future.result$conditions <- ...future.conditions
[13:13:52.340]     ...future.result$finished <- base::Sys.time()
[13:13:52.340]     ...future.result
[13:13:52.340] }
[13:13:52.345] assign_globals() ...
[13:13:52.345] List of 5
[13:13:52.345]  $ ...future.FUN            :function (C, k)  
[13:13:52.345]  $ MoreArgs                 : NULL
[13:13:52.345]  $ ...future.elements_ii    :List of 2
[13:13:52.345]   ..$ :List of 1
[13:13:52.345]   .. ..$ : chr "C"
[13:13:52.345]   ..$ :List of 1
[13:13:52.345]   .. ..$ : int 3
[13:13:52.345]  $ ...future.seeds_ii       : NULL
[13:13:52.345]  $ ...future.globals.maxSize: NULL
[13:13:52.345]  - attr(*, "where")=List of 5
[13:13:52.345]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:52.345]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[13:13:52.345]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:52.345]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:52.345]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:52.345]  - attr(*, "resolved")= logi FALSE
[13:13:52.345]  - attr(*, "total_size")= num 3488
[13:13:52.345]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.345]  - attr(*, "already-done")= logi TRUE
[13:13:52.351] - reassign environment for '...future.FUN'
[13:13:52.351] - copied '...future.FUN' to environment
[13:13:52.352] - copied 'MoreArgs' to environment
[13:13:52.352] - copied '...future.elements_ii' to environment
[13:13:52.352] - copied '...future.seeds_ii' to environment
[13:13:52.352] - copied '...future.globals.maxSize' to environment
[13:13:52.352] assign_globals() ... done
[13:13:52.353] plan(): Setting new future strategy stack:
[13:13:52.353] List of future strategies:
[13:13:52.353] 1. sequential:
[13:13:52.353]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.353]    - tweaked: FALSE
[13:13:52.353]    - call: NULL
[13:13:52.353] plan(): nbrOfWorkers() = 1
[13:13:52.354] plan(): Setting new future strategy stack:
[13:13:52.355] List of future strategies:
[13:13:52.355] 1. sequential:
[13:13:52.355]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.355]    - tweaked: FALSE
[13:13:52.355]    - call: plan(strategy)
[13:13:52.355] plan(): nbrOfWorkers() = 1
[13:13:52.355] SequentialFuture started (and completed)
[13:13:52.356] - Launch lazy future ... done
[13:13:52.356] run() for 'SequentialFuture' ... done
[13:13:52.356] Created future:
[13:13:52.356] SequentialFuture:
[13:13:52.356] Label: 'future_mapply-3'
[13:13:52.356] Expression:
[13:13:52.356] {
[13:13:52.356]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.356]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:52.356]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.356]         on.exit(options(oopts), add = TRUE)
[13:13:52.356]     }
[13:13:52.356]     {
[13:13:52.356]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.356]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:52.356]         do.call(mapply, args = args)
[13:13:52.356]     }
[13:13:52.356] }
[13:13:52.356] Lazy evaluation: FALSE
[13:13:52.356] Asynchronous evaluation: FALSE
[13:13:52.356] Local evaluation: TRUE
[13:13:52.356] Environment: R_GlobalEnv
[13:13:52.356] Capture standard output: TRUE
[13:13:52.356] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:52.356] Globals: 5 objects totaling 3.41 KiB (function '...future.FUN' of 3.24 KiB, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 168 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:52.356] Packages: <none>
[13:13:52.356] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:52.356] Resolved: TRUE
[13:13:52.356] Value: 112 bytes of class 'list'
[13:13:52.356] Early signaling: FALSE
[13:13:52.356] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:52.356] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.357] Chunk #3 of 5 ... DONE
[13:13:52.358] Chunk #4 of 5 ...
[13:13:52.358]  - Finding globals in '...' for chunk #4 ...
[13:13:52.358] getGlobalsAndPackages() ...
[13:13:52.358] Searching for globals...
[13:13:52.359] 
[13:13:52.359] Searching for globals ... DONE
[13:13:52.359] - globals: [0] <none>
[13:13:52.359] getGlobalsAndPackages() ... DONE
[13:13:52.359]    + additional globals found: [n=0] 
[13:13:52.359]    + additional namespaces needed: [n=0] 
[13:13:52.359]  - Finding globals in '...' for chunk #4 ... DONE
[13:13:52.360]  - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes)
[13:13:52.360]  - seeds: <none>
[13:13:52.360]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.360] getGlobalsAndPackages() ...
[13:13:52.360] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.360] Resolving globals: FALSE
[13:13:52.361] The total size of the 5 globals is 3.41 KiB (3488 bytes)
[13:13:52.362] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 3.41 KiB.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (3.24 KiB of class 'function'), '...future.elements_ii' (168 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:52.362] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.362] 
[13:13:52.362] getGlobalsAndPackages() ... DONE
[13:13:52.363] run() for 'Future' ...
[13:13:52.363] - state: 'created'
[13:13:52.363] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:52.363] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.364] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:52.364]   - Field: 'label'
[13:13:52.364]   - Field: 'local'
[13:13:52.364]   - Field: 'owner'
[13:13:52.364]   - Field: 'envir'
[13:13:52.364]   - Field: 'packages'
[13:13:52.365]   - Field: 'gc'
[13:13:52.365]   - Field: 'conditions'
[13:13:52.365]   - Field: 'expr'
[13:13:52.365]   - Field: 'uuid'
[13:13:52.365]   - Field: 'seed'
[13:13:52.365]   - Field: 'version'
[13:13:52.366]   - Field: 'result'
[13:13:52.366]   - Field: 'asynchronous'
[13:13:52.366]   - Field: 'calls'
[13:13:52.366]   - Field: 'globals'
[13:13:52.366]   - Field: 'stdout'
[13:13:52.366]   - Field: 'earlySignal'
[13:13:52.367]   - Field: 'lazy'
[13:13:52.367]   - Field: 'state'
[13:13:52.367] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:52.367] - Launch lazy future ...
[13:13:52.367] Packages needed by the future expression (n = 0): <none>
[13:13:52.368] Packages needed by future strategies (n = 0): <none>
[13:13:52.368] {
[13:13:52.368]     {
[13:13:52.368]         {
[13:13:52.368]             ...future.startTime <- base::Sys.time()
[13:13:52.368]             {
[13:13:52.368]                 {
[13:13:52.368]                   {
[13:13:52.368]                     base::local({
[13:13:52.368]                       has_future <- base::requireNamespace("future", 
[13:13:52.368]                         quietly = TRUE)
[13:13:52.368]                       if (has_future) {
[13:13:52.368]                         ns <- base::getNamespace("future")
[13:13:52.368]                         version <- ns[[".package"]][["version"]]
[13:13:52.368]                         if (is.null(version)) 
[13:13:52.368]                           version <- utils::packageVersion("future")
[13:13:52.368]                       }
[13:13:52.368]                       else {
[13:13:52.368]                         version <- NULL
[13:13:52.368]                       }
[13:13:52.368]                       if (!has_future || version < "1.8.0") {
[13:13:52.368]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:52.368]                           "", base::R.version$version.string), 
[13:13:52.368]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:52.368]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:52.368]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:52.368]                             "release", "version")], collapse = " "), 
[13:13:52.368]                           hostname = base::Sys.info()[["nodename"]])
[13:13:52.368]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:52.368]                           info)
[13:13:52.368]                         info <- base::paste(info, collapse = "; ")
[13:13:52.368]                         if (!has_future) {
[13:13:52.368]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:52.368]                             info)
[13:13:52.368]                         }
[13:13:52.368]                         else {
[13:13:52.368]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:52.368]                             info, version)
[13:13:52.368]                         }
[13:13:52.368]                         base::stop(msg)
[13:13:52.368]                       }
[13:13:52.368]                     })
[13:13:52.368]                   }
[13:13:52.368]                   options(future.plan = NULL)
[13:13:52.368]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.368]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:52.368]                 }
[13:13:52.368]                 ...future.workdir <- getwd()
[13:13:52.368]             }
[13:13:52.368]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:52.368]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:52.368]         }
[13:13:52.368]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:52.368]             future.globals.maxSize = 2621440000, future.globals.method = NULL, 
[13:13:52.368]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:52.368]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:52.368]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:52.368]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:52.368]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:52.368]             base::names(...future.oldOptions))
[13:13:52.368]     }
[13:13:52.368]     if (FALSE) {
[13:13:52.368]     }
[13:13:52.368]     else {
[13:13:52.368]         if (TRUE) {
[13:13:52.368]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:52.368]                 open = "w")
[13:13:52.368]         }
[13:13:52.368]         else {
[13:13:52.368]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:52.368]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:52.368]         }
[13:13:52.368]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:52.368]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:52.368]             base::sink(type = "output", split = FALSE)
[13:13:52.368]             base::close(...future.stdout)
[13:13:52.368]         }, add = TRUE)
[13:13:52.368]     }
[13:13:52.368]     ...future.frame <- base::sys.nframe()
[13:13:52.368]     ...future.conditions <- base::list()
[13:13:52.368]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:52.368]     if (FALSE) {
[13:13:52.368]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:52.368]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:52.368]     }
[13:13:52.368]     ...future.result <- base::tryCatch({
[13:13:52.368]         base::withCallingHandlers({
[13:13:52.368]             ...future.value <- base::withVisible(base::local({
[13:13:52.368]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.368]                 if (!identical(...future.globals.maxSize.org, 
[13:13:52.368]                   ...future.globals.maxSize)) {
[13:13:52.368]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.368]                   on.exit(options(oopts), add = TRUE)
[13:13:52.368]                 }
[13:13:52.368]                 {
[13:13:52.368]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.368]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:52.368]                     USE.NAMES = FALSE)
[13:13:52.368]                   do.call(mapply, args = args)
[13:13:52.368]                 }
[13:13:52.368]             }))
[13:13:52.368]             future::FutureResult(value = ...future.value$value, 
[13:13:52.368]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.368]                   ...future.rng), globalenv = if (FALSE) 
[13:13:52.368]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:52.368]                     ...future.globalenv.names))
[13:13:52.368]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:52.368]         }, condition = base::local({
[13:13:52.368]             c <- base::c
[13:13:52.368]             inherits <- base::inherits
[13:13:52.368]             invokeRestart <- base::invokeRestart
[13:13:52.368]             length <- base::length
[13:13:52.368]             list <- base::list
[13:13:52.368]             seq.int <- base::seq.int
[13:13:52.368]             signalCondition <- base::signalCondition
[13:13:52.368]             sys.calls <- base::sys.calls
[13:13:52.368]             `[[` <- base::`[[`
[13:13:52.368]             `+` <- base::`+`
[13:13:52.368]             `<<-` <- base::`<<-`
[13:13:52.368]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:52.368]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:52.368]                   3L)]
[13:13:52.368]             }
[13:13:52.368]             function(cond) {
[13:13:52.368]                 is_error <- inherits(cond, "error")
[13:13:52.368]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:52.368]                   NULL)
[13:13:52.368]                 if (is_error) {
[13:13:52.368]                   sessionInformation <- function() {
[13:13:52.368]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:52.368]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:52.368]                       search = base::search(), system = base::Sys.info())
[13:13:52.368]                   }
[13:13:52.368]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.368]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:52.368]                     cond$call), session = sessionInformation(), 
[13:13:52.368]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:52.368]                   signalCondition(cond)
[13:13:52.368]                 }
[13:13:52.368]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:52.368]                 "immediateCondition"))) {
[13:13:52.368]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:52.368]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.368]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:52.368]                   if (TRUE && !signal) {
[13:13:52.368]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.368]                     {
[13:13:52.368]                       inherits <- base::inherits
[13:13:52.368]                       invokeRestart <- base::invokeRestart
[13:13:52.368]                       is.null <- base::is.null
[13:13:52.368]                       muffled <- FALSE
[13:13:52.368]                       if (inherits(cond, "message")) {
[13:13:52.368]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.368]                         if (muffled) 
[13:13:52.368]                           invokeRestart("muffleMessage")
[13:13:52.368]                       }
[13:13:52.368]                       else if (inherits(cond, "warning")) {
[13:13:52.368]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.368]                         if (muffled) 
[13:13:52.368]                           invokeRestart("muffleWarning")
[13:13:52.368]                       }
[13:13:52.368]                       else if (inherits(cond, "condition")) {
[13:13:52.368]                         if (!is.null(pattern)) {
[13:13:52.368]                           computeRestarts <- base::computeRestarts
[13:13:52.368]                           grepl <- base::grepl
[13:13:52.368]                           restarts <- computeRestarts(cond)
[13:13:52.368]                           for (restart in restarts) {
[13:13:52.368]                             name <- restart$name
[13:13:52.368]                             if (is.null(name)) 
[13:13:52.368]                               next
[13:13:52.368]                             if (!grepl(pattern, name)) 
[13:13:52.368]                               next
[13:13:52.368]                             invokeRestart(restart)
[13:13:52.368]                             muffled <- TRUE
[13:13:52.368]                             break
[13:13:52.368]                           }
[13:13:52.368]                         }
[13:13:52.368]                       }
[13:13:52.368]                       invisible(muffled)
[13:13:52.368]                     }
[13:13:52.368]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.368]                   }
[13:13:52.368]                 }
[13:13:52.368]                 else {
[13:13:52.368]                   if (TRUE) {
[13:13:52.368]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.368]                     {
[13:13:52.368]                       inherits <- base::inherits
[13:13:52.368]                       invokeRestart <- base::invokeRestart
[13:13:52.368]                       is.null <- base::is.null
[13:13:52.368]                       muffled <- FALSE
[13:13:52.368]                       if (inherits(cond, "message")) {
[13:13:52.368]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.368]                         if (muffled) 
[13:13:52.368]                           invokeRestart("muffleMessage")
[13:13:52.368]                       }
[13:13:52.368]                       else if (inherits(cond, "warning")) {
[13:13:52.368]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.368]                         if (muffled) 
[13:13:52.368]                           invokeRestart("muffleWarning")
[13:13:52.368]                       }
[13:13:52.368]                       else if (inherits(cond, "condition")) {
[13:13:52.368]                         if (!is.null(pattern)) {
[13:13:52.368]                           computeRestarts <- base::computeRestarts
[13:13:52.368]                           grepl <- base::grepl
[13:13:52.368]                           restarts <- computeRestarts(cond)
[13:13:52.368]                           for (restart in restarts) {
[13:13:52.368]                             name <- restart$name
[13:13:52.368]                             if (is.null(name)) 
[13:13:52.368]                               next
[13:13:52.368]                             if (!grepl(pattern, name)) 
[13:13:52.368]                               next
[13:13:52.368]                             invokeRestart(restart)
[13:13:52.368]                             muffled <- TRUE
[13:13:52.368]                             break
[13:13:52.368]                           }
[13:13:52.368]                         }
[13:13:52.368]                       }
[13:13:52.368]                       invisible(muffled)
[13:13:52.368]                     }
[13:13:52.368]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.368]                   }
[13:13:52.368]                 }
[13:13:52.368]             }
[13:13:52.368]         }))
[13:13:52.368]     }, error = function(ex) {
[13:13:52.368]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:52.368]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.368]                 ...future.rng), started = ...future.startTime, 
[13:13:52.368]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:52.368]             version = "1.8"), class = "FutureResult")
[13:13:52.368]     }, finally = {
[13:13:52.368]         if (!identical(...future.workdir, getwd())) 
[13:13:52.368]             setwd(...future.workdir)
[13:13:52.368]         {
[13:13:52.368]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:52.368]                 ...future.oldOptions$nwarnings <- NULL
[13:13:52.368]             }
[13:13:52.368]             base::options(...future.oldOptions)
[13:13:52.368]             if (.Platform$OS.type == "windows") {
[13:13:52.368]                 old_names <- names(...future.oldEnvVars)
[13:13:52.368]                 envs <- base::Sys.getenv()
[13:13:52.368]                 names <- names(envs)
[13:13:52.368]                 common <- intersect(names, old_names)
[13:13:52.368]                 added <- setdiff(names, old_names)
[13:13:52.368]                 removed <- setdiff(old_names, names)
[13:13:52.368]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:52.368]                   envs[common]]
[13:13:52.368]                 NAMES <- toupper(changed)
[13:13:52.368]                 args <- list()
[13:13:52.368]                 for (kk in seq_along(NAMES)) {
[13:13:52.368]                   name <- changed[[kk]]
[13:13:52.368]                   NAME <- NAMES[[kk]]
[13:13:52.368]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.368]                     next
[13:13:52.368]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.368]                 }
[13:13:52.368]                 NAMES <- toupper(added)
[13:13:52.368]                 for (kk in seq_along(NAMES)) {
[13:13:52.368]                   name <- added[[kk]]
[13:13:52.368]                   NAME <- NAMES[[kk]]
[13:13:52.368]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.368]                     next
[13:13:52.368]                   args[[name]] <- ""
[13:13:52.368]                 }
[13:13:52.368]                 NAMES <- toupper(removed)
[13:13:52.368]                 for (kk in seq_along(NAMES)) {
[13:13:52.368]                   name <- removed[[kk]]
[13:13:52.368]                   NAME <- NAMES[[kk]]
[13:13:52.368]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.368]                     next
[13:13:52.368]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.368]                 }
[13:13:52.368]                 if (length(args) > 0) 
[13:13:52.368]                   base::do.call(base::Sys.setenv, args = args)
[13:13:52.368]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:52.368]             }
[13:13:52.368]             else {
[13:13:52.368]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:52.368]             }
[13:13:52.368]             {
[13:13:52.368]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:52.368]                   0L) {
[13:13:52.368]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:52.368]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:52.368]                   base::options(opts)
[13:13:52.368]                 }
[13:13:52.368]                 {
[13:13:52.368]                   {
[13:13:52.368]                     base::assign(".Random.seed", c(10407L, -1918733616L, 
[13:13:52.368]                     1584354639L, -1174970862L, -939885817L, 1422965938L, 
[13:13:52.368]                     -981423529L), envir = base::globalenv(), 
[13:13:52.368]                       inherits = FALSE)
[13:13:52.368]                     NULL
[13:13:52.368]                   }
[13:13:52.368]                   options(future.plan = NULL)
[13:13:52.368]                   if (is.na(NA_character_)) 
[13:13:52.368]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.368]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:52.368]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:52.368]                   {
[13:13:52.368]                     future <- SequentialFuture(..., envir = envir)
[13:13:52.368]                     if (!future$lazy) 
[13:13:52.368]                       future <- run(future)
[13:13:52.368]                     invisible(future)
[13:13:52.368]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:52.368]                 }
[13:13:52.368]             }
[13:13:52.368]         }
[13:13:52.368]     })
[13:13:52.368]     if (TRUE) {
[13:13:52.368]         base::sink(type = "output", split = FALSE)
[13:13:52.368]         if (TRUE) {
[13:13:52.368]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:52.368]         }
[13:13:52.368]         else {
[13:13:52.368]             ...future.result["stdout"] <- base::list(NULL)
[13:13:52.368]         }
[13:13:52.368]         base::close(...future.stdout)
[13:13:52.368]         ...future.stdout <- NULL
[13:13:52.368]     }
[13:13:52.368]     ...future.result$conditions <- ...future.conditions
[13:13:52.368]     ...future.result$finished <- base::Sys.time()
[13:13:52.368]     ...future.result
[13:13:52.368] }
[13:13:52.372] assign_globals() ...
[13:13:52.372] List of 5
[13:13:52.372]  $ ...future.FUN            :function (C, k)  
[13:13:52.372]  $ MoreArgs                 : NULL
[13:13:52.372]  $ ...future.elements_ii    :List of 2
[13:13:52.372]   ..$ :List of 1
[13:13:52.372]   .. ..$ : chr "D"
[13:13:52.372]   ..$ :List of 1
[13:13:52.372]   .. ..$ : int 2
[13:13:52.372]  $ ...future.seeds_ii       : NULL
[13:13:52.372]  $ ...future.globals.maxSize: NULL
[13:13:52.372]  - attr(*, "where")=List of 5
[13:13:52.372]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:52.372]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[13:13:52.372]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:52.372]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:52.372]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:52.372]  - attr(*, "resolved")= logi FALSE
[13:13:52.372]  - attr(*, "total_size")= num 3488
[13:13:52.372]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.372]  - attr(*, "already-done")= logi TRUE
[13:13:52.379] - reassign environment for '...future.FUN'
[13:13:52.379] - copied '...future.FUN' to environment
[13:13:52.379] - copied 'MoreArgs' to environment
[13:13:52.380] - copied '...future.elements_ii' to environment
[13:13:52.380] - copied '...future.seeds_ii' to environment
[13:13:52.380] - copied '...future.globals.maxSize' to environment
[13:13:52.380] assign_globals() ... done
[13:13:52.380] plan(): Setting new future strategy stack:
[13:13:52.381] List of future strategies:
[13:13:52.381] 1. sequential:
[13:13:52.381]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.381]    - tweaked: FALSE
[13:13:52.381]    - call: NULL
[13:13:52.381] plan(): nbrOfWorkers() = 1
[13:13:52.382] plan(): Setting new future strategy stack:
[13:13:52.382] List of future strategies:
[13:13:52.382] 1. sequential:
[13:13:52.382]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.382]    - tweaked: FALSE
[13:13:52.382]    - call: plan(strategy)
[13:13:52.383] plan(): nbrOfWorkers() = 1
[13:13:52.383] SequentialFuture started (and completed)
[13:13:52.384] - Launch lazy future ... done
[13:13:52.384] run() for 'SequentialFuture' ... done
[13:13:52.384] Created future:
[13:13:52.384] SequentialFuture:
[13:13:52.384] Label: 'future_mapply-4'
[13:13:52.384] Expression:
[13:13:52.384] {
[13:13:52.384]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.384]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:52.384]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.384]         on.exit(options(oopts), add = TRUE)
[13:13:52.384]     }
[13:13:52.384]     {
[13:13:52.384]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.384]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:52.384]         do.call(mapply, args = args)
[13:13:52.384]     }
[13:13:52.384] }
[13:13:52.384] Lazy evaluation: FALSE
[13:13:52.384] Asynchronous evaluation: FALSE
[13:13:52.384] Local evaluation: TRUE
[13:13:52.384] Environment: R_GlobalEnv
[13:13:52.384] Capture standard output: TRUE
[13:13:52.384] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:52.384] Globals: 5 objects totaling 3.41 KiB (function '...future.FUN' of 3.24 KiB, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 168 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:52.384] Packages: <none>
[13:13:52.384] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:52.384] Resolved: TRUE
[13:13:52.384] Value: 112 bytes of class 'list'
[13:13:52.384] Early signaling: FALSE
[13:13:52.384] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:52.384] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.385] Chunk #4 of 5 ... DONE
[13:13:52.385] Chunk #5 of 5 ...
[13:13:52.386]  - Finding globals in '...' for chunk #5 ...
[13:13:52.386] getGlobalsAndPackages() ...
[13:13:52.386] Searching for globals...
[13:13:52.386] 
[13:13:52.386] Searching for globals ... DONE
[13:13:52.387] - globals: [0] <none>
[13:13:52.387] getGlobalsAndPackages() ... DONE
[13:13:52.387]    + additional globals found: [n=0] 
[13:13:52.387]    + additional namespaces needed: [n=0] 
[13:13:52.387]  - Finding globals in '...' for chunk #5 ... DONE
[13:13:52.387]  - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes)
[13:13:52.388]  - seeds: <none>
[13:13:52.388]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.388] getGlobalsAndPackages() ...
[13:13:52.388] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.388] Resolving globals: FALSE
[13:13:52.389] The total size of the 5 globals is 3.41 KiB (3488 bytes)
[13:13:52.390] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 3.41 KiB.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (3.24 KiB of class 'function'), '...future.elements_ii' (168 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:52.390] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.390] 
[13:13:52.390] getGlobalsAndPackages() ... DONE
[13:13:52.390] run() for 'Future' ...
[13:13:52.391] - state: 'created'
[13:13:52.391] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:52.391] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.391] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:52.392]   - Field: 'label'
[13:13:52.392]   - Field: 'local'
[13:13:52.392]   - Field: 'owner'
[13:13:52.392]   - Field: 'envir'
[13:13:52.392]   - Field: 'packages'
[13:13:52.392]   - Field: 'gc'
[13:13:52.393]   - Field: 'conditions'
[13:13:52.393]   - Field: 'expr'
[13:13:52.393]   - Field: 'uuid'
[13:13:52.393]   - Field: 'seed'
[13:13:52.393]   - Field: 'version'
[13:13:52.393]   - Field: 'result'
[13:13:52.394]   - Field: 'asynchronous'
[13:13:52.394]   - Field: 'calls'
[13:13:52.394]   - Field: 'globals'
[13:13:52.394]   - Field: 'stdout'
[13:13:52.394]   - Field: 'earlySignal'
[13:13:52.395]   - Field: 'lazy'
[13:13:52.395]   - Field: 'state'
[13:13:52.395] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:52.395] - Launch lazy future ...
[13:13:52.395] Packages needed by the future expression (n = 0): <none>
[13:13:52.395] Packages needed by future strategies (n = 0): <none>
[13:13:52.396] {
[13:13:52.396]     {
[13:13:52.396]         {
[13:13:52.396]             ...future.startTime <- base::Sys.time()
[13:13:52.396]             {
[13:13:52.396]                 {
[13:13:52.396]                   {
[13:13:52.396]                     base::local({
[13:13:52.396]                       has_future <- base::requireNamespace("future", 
[13:13:52.396]                         quietly = TRUE)
[13:13:52.396]                       if (has_future) {
[13:13:52.396]                         ns <- base::getNamespace("future")
[13:13:52.396]                         version <- ns[[".package"]][["version"]]
[13:13:52.396]                         if (is.null(version)) 
[13:13:52.396]                           version <- utils::packageVersion("future")
[13:13:52.396]                       }
[13:13:52.396]                       else {
[13:13:52.396]                         version <- NULL
[13:13:52.396]                       }
[13:13:52.396]                       if (!has_future || version < "1.8.0") {
[13:13:52.396]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:52.396]                           "", base::R.version$version.string), 
[13:13:52.396]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:52.396]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:52.396]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:52.396]                             "release", "version")], collapse = " "), 
[13:13:52.396]                           hostname = base::Sys.info()[["nodename"]])
[13:13:52.396]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:52.396]                           info)
[13:13:52.396]                         info <- base::paste(info, collapse = "; ")
[13:13:52.396]                         if (!has_future) {
[13:13:52.396]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:52.396]                             info)
[13:13:52.396]                         }
[13:13:52.396]                         else {
[13:13:52.396]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:52.396]                             info, version)
[13:13:52.396]                         }
[13:13:52.396]                         base::stop(msg)
[13:13:52.396]                       }
[13:13:52.396]                     })
[13:13:52.396]                   }
[13:13:52.396]                   options(future.plan = NULL)
[13:13:52.396]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.396]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:52.396]                 }
[13:13:52.396]                 ...future.workdir <- getwd()
[13:13:52.396]             }
[13:13:52.396]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:52.396]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:52.396]         }
[13:13:52.396]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:52.396]             future.globals.maxSize = 2621440000, future.globals.method = NULL, 
[13:13:52.396]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:52.396]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:52.396]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:52.396]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:52.396]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:52.396]             base::names(...future.oldOptions))
[13:13:52.396]     }
[13:13:52.396]     if (FALSE) {
[13:13:52.396]     }
[13:13:52.396]     else {
[13:13:52.396]         if (TRUE) {
[13:13:52.396]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:52.396]                 open = "w")
[13:13:52.396]         }
[13:13:52.396]         else {
[13:13:52.396]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:52.396]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:52.396]         }
[13:13:52.396]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:52.396]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:52.396]             base::sink(type = "output", split = FALSE)
[13:13:52.396]             base::close(...future.stdout)
[13:13:52.396]         }, add = TRUE)
[13:13:52.396]     }
[13:13:52.396]     ...future.frame <- base::sys.nframe()
[13:13:52.396]     ...future.conditions <- base::list()
[13:13:52.396]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:52.396]     if (FALSE) {
[13:13:52.396]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:52.396]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:52.396]     }
[13:13:52.396]     ...future.result <- base::tryCatch({
[13:13:52.396]         base::withCallingHandlers({
[13:13:52.396]             ...future.value <- base::withVisible(base::local({
[13:13:52.396]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.396]                 if (!identical(...future.globals.maxSize.org, 
[13:13:52.396]                   ...future.globals.maxSize)) {
[13:13:52.396]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.396]                   on.exit(options(oopts), add = TRUE)
[13:13:52.396]                 }
[13:13:52.396]                 {
[13:13:52.396]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.396]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:52.396]                     USE.NAMES = FALSE)
[13:13:52.396]                   do.call(mapply, args = args)
[13:13:52.396]                 }
[13:13:52.396]             }))
[13:13:52.396]             future::FutureResult(value = ...future.value$value, 
[13:13:52.396]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.396]                   ...future.rng), globalenv = if (FALSE) 
[13:13:52.396]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:52.396]                     ...future.globalenv.names))
[13:13:52.396]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:52.396]         }, condition = base::local({
[13:13:52.396]             c <- base::c
[13:13:52.396]             inherits <- base::inherits
[13:13:52.396]             invokeRestart <- base::invokeRestart
[13:13:52.396]             length <- base::length
[13:13:52.396]             list <- base::list
[13:13:52.396]             seq.int <- base::seq.int
[13:13:52.396]             signalCondition <- base::signalCondition
[13:13:52.396]             sys.calls <- base::sys.calls
[13:13:52.396]             `[[` <- base::`[[`
[13:13:52.396]             `+` <- base::`+`
[13:13:52.396]             `<<-` <- base::`<<-`
[13:13:52.396]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:52.396]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:52.396]                   3L)]
[13:13:52.396]             }
[13:13:52.396]             function(cond) {
[13:13:52.396]                 is_error <- inherits(cond, "error")
[13:13:52.396]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:52.396]                   NULL)
[13:13:52.396]                 if (is_error) {
[13:13:52.396]                   sessionInformation <- function() {
[13:13:52.396]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:52.396]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:52.396]                       search = base::search(), system = base::Sys.info())
[13:13:52.396]                   }
[13:13:52.396]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.396]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:52.396]                     cond$call), session = sessionInformation(), 
[13:13:52.396]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:52.396]                   signalCondition(cond)
[13:13:52.396]                 }
[13:13:52.396]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:52.396]                 "immediateCondition"))) {
[13:13:52.396]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:52.396]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.396]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:52.396]                   if (TRUE && !signal) {
[13:13:52.396]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.396]                     {
[13:13:52.396]                       inherits <- base::inherits
[13:13:52.396]                       invokeRestart <- base::invokeRestart
[13:13:52.396]                       is.null <- base::is.null
[13:13:52.396]                       muffled <- FALSE
[13:13:52.396]                       if (inherits(cond, "message")) {
[13:13:52.396]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.396]                         if (muffled) 
[13:13:52.396]                           invokeRestart("muffleMessage")
[13:13:52.396]                       }
[13:13:52.396]                       else if (inherits(cond, "warning")) {
[13:13:52.396]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.396]                         if (muffled) 
[13:13:52.396]                           invokeRestart("muffleWarning")
[13:13:52.396]                       }
[13:13:52.396]                       else if (inherits(cond, "condition")) {
[13:13:52.396]                         if (!is.null(pattern)) {
[13:13:52.396]                           computeRestarts <- base::computeRestarts
[13:13:52.396]                           grepl <- base::grepl
[13:13:52.396]                           restarts <- computeRestarts(cond)
[13:13:52.396]                           for (restart in restarts) {
[13:13:52.396]                             name <- restart$name
[13:13:52.396]                             if (is.null(name)) 
[13:13:52.396]                               next
[13:13:52.396]                             if (!grepl(pattern, name)) 
[13:13:52.396]                               next
[13:13:52.396]                             invokeRestart(restart)
[13:13:52.396]                             muffled <- TRUE
[13:13:52.396]                             break
[13:13:52.396]                           }
[13:13:52.396]                         }
[13:13:52.396]                       }
[13:13:52.396]                       invisible(muffled)
[13:13:52.396]                     }
[13:13:52.396]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.396]                   }
[13:13:52.396]                 }
[13:13:52.396]                 else {
[13:13:52.396]                   if (TRUE) {
[13:13:52.396]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.396]                     {
[13:13:52.396]                       inherits <- base::inherits
[13:13:52.396]                       invokeRestart <- base::invokeRestart
[13:13:52.396]                       is.null <- base::is.null
[13:13:52.396]                       muffled <- FALSE
[13:13:52.396]                       if (inherits(cond, "message")) {
[13:13:52.396]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.396]                         if (muffled) 
[13:13:52.396]                           invokeRestart("muffleMessage")
[13:13:52.396]                       }
[13:13:52.396]                       else if (inherits(cond, "warning")) {
[13:13:52.396]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.396]                         if (muffled) 
[13:13:52.396]                           invokeRestart("muffleWarning")
[13:13:52.396]                       }
[13:13:52.396]                       else if (inherits(cond, "condition")) {
[13:13:52.396]                         if (!is.null(pattern)) {
[13:13:52.396]                           computeRestarts <- base::computeRestarts
[13:13:52.396]                           grepl <- base::grepl
[13:13:52.396]                           restarts <- computeRestarts(cond)
[13:13:52.396]                           for (restart in restarts) {
[13:13:52.396]                             name <- restart$name
[13:13:52.396]                             if (is.null(name)) 
[13:13:52.396]                               next
[13:13:52.396]                             if (!grepl(pattern, name)) 
[13:13:52.396]                               next
[13:13:52.396]                             invokeRestart(restart)
[13:13:52.396]                             muffled <- TRUE
[13:13:52.396]                             break
[13:13:52.396]                           }
[13:13:52.396]                         }
[13:13:52.396]                       }
[13:13:52.396]                       invisible(muffled)
[13:13:52.396]                     }
[13:13:52.396]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.396]                   }
[13:13:52.396]                 }
[13:13:52.396]             }
[13:13:52.396]         }))
[13:13:52.396]     }, error = function(ex) {
[13:13:52.396]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:52.396]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.396]                 ...future.rng), started = ...future.startTime, 
[13:13:52.396]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:52.396]             version = "1.8"), class = "FutureResult")
[13:13:52.396]     }, finally = {
[13:13:52.396]         if (!identical(...future.workdir, getwd())) 
[13:13:52.396]             setwd(...future.workdir)
[13:13:52.396]         {
[13:13:52.396]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:52.396]                 ...future.oldOptions$nwarnings <- NULL
[13:13:52.396]             }
[13:13:52.396]             base::options(...future.oldOptions)
[13:13:52.396]             if (.Platform$OS.type == "windows") {
[13:13:52.396]                 old_names <- names(...future.oldEnvVars)
[13:13:52.396]                 envs <- base::Sys.getenv()
[13:13:52.396]                 names <- names(envs)
[13:13:52.396]                 common <- intersect(names, old_names)
[13:13:52.396]                 added <- setdiff(names, old_names)
[13:13:52.396]                 removed <- setdiff(old_names, names)
[13:13:52.396]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:52.396]                   envs[common]]
[13:13:52.396]                 NAMES <- toupper(changed)
[13:13:52.396]                 args <- list()
[13:13:52.396]                 for (kk in seq_along(NAMES)) {
[13:13:52.396]                   name <- changed[[kk]]
[13:13:52.396]                   NAME <- NAMES[[kk]]
[13:13:52.396]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.396]                     next
[13:13:52.396]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.396]                 }
[13:13:52.396]                 NAMES <- toupper(added)
[13:13:52.396]                 for (kk in seq_along(NAMES)) {
[13:13:52.396]                   name <- added[[kk]]
[13:13:52.396]                   NAME <- NAMES[[kk]]
[13:13:52.396]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.396]                     next
[13:13:52.396]                   args[[name]] <- ""
[13:13:52.396]                 }
[13:13:52.396]                 NAMES <- toupper(removed)
[13:13:52.396]                 for (kk in seq_along(NAMES)) {
[13:13:52.396]                   name <- removed[[kk]]
[13:13:52.396]                   NAME <- NAMES[[kk]]
[13:13:52.396]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.396]                     next
[13:13:52.396]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.396]                 }
[13:13:52.396]                 if (length(args) > 0) 
[13:13:52.396]                   base::do.call(base::Sys.setenv, args = args)
[13:13:52.396]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:52.396]             }
[13:13:52.396]             else {
[13:13:52.396]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:52.396]             }
[13:13:52.396]             {
[13:13:52.396]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:52.396]                   0L) {
[13:13:52.396]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:52.396]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:52.396]                   base::options(opts)
[13:13:52.396]                 }
[13:13:52.396]                 {
[13:13:52.396]                   {
[13:13:52.396]                     base::assign(".Random.seed", c(10407L, -1918733616L, 
[13:13:52.396]                     1584354639L, -1174970862L, -939885817L, 1422965938L, 
[13:13:52.396]                     -981423529L), envir = base::globalenv(), 
[13:13:52.396]                       inherits = FALSE)
[13:13:52.396]                     NULL
[13:13:52.396]                   }
[13:13:52.396]                   options(future.plan = NULL)
[13:13:52.396]                   if (is.na(NA_character_)) 
[13:13:52.396]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.396]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:52.396]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:52.396]                   {
[13:13:52.396]                     future <- SequentialFuture(..., envir = envir)
[13:13:52.396]                     if (!future$lazy) 
[13:13:52.396]                       future <- run(future)
[13:13:52.396]                     invisible(future)
[13:13:52.396]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:52.396]                 }
[13:13:52.396]             }
[13:13:52.396]         }
[13:13:52.396]     })
[13:13:52.396]     if (TRUE) {
[13:13:52.396]         base::sink(type = "output", split = FALSE)
[13:13:52.396]         if (TRUE) {
[13:13:52.396]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:52.396]         }
[13:13:52.396]         else {
[13:13:52.396]             ...future.result["stdout"] <- base::list(NULL)
[13:13:52.396]         }
[13:13:52.396]         base::close(...future.stdout)
[13:13:52.396]         ...future.stdout <- NULL
[13:13:52.396]     }
[13:13:52.396]     ...future.result$conditions <- ...future.conditions
[13:13:52.396]     ...future.result$finished <- base::Sys.time()
[13:13:52.396]     ...future.result
[13:13:52.396] }
[13:13:52.400] assign_globals() ...
[13:13:52.400] List of 5
[13:13:52.400]  $ ...future.FUN            :function (C, k)  
[13:13:52.400]  $ MoreArgs                 : NULL
[13:13:52.400]  $ ...future.elements_ii    :List of 2
[13:13:52.400]   ..$ :List of 1
[13:13:52.400]   .. ..$ : chr "E"
[13:13:52.400]   ..$ :List of 1
[13:13:52.400]   .. ..$ : int 1
[13:13:52.400]  $ ...future.seeds_ii       : NULL
[13:13:52.400]  $ ...future.globals.maxSize: NULL
[13:13:52.400]  - attr(*, "where")=List of 5
[13:13:52.400]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:52.400]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[13:13:52.400]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:52.400]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:52.400]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:52.400]  - attr(*, "resolved")= logi FALSE
[13:13:52.400]  - attr(*, "total_size")= num 3488
[13:13:52.400]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.400]  - attr(*, "already-done")= logi TRUE
[13:13:52.407] - reassign environment for '...future.FUN'
[13:13:52.407] - copied '...future.FUN' to environment
[13:13:52.407] - copied 'MoreArgs' to environment
[13:13:52.407] - copied '...future.elements_ii' to environment
[13:13:52.407] - copied '...future.seeds_ii' to environment
[13:13:52.408] - copied '...future.globals.maxSize' to environment
[13:13:52.408] assign_globals() ... done
[13:13:52.408] plan(): Setting new future strategy stack:
[13:13:52.408] List of future strategies:
[13:13:52.408] 1. sequential:
[13:13:52.408]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.408]    - tweaked: FALSE
[13:13:52.408]    - call: NULL
[13:13:52.409] plan(): nbrOfWorkers() = 1
[13:13:52.410] plan(): Setting new future strategy stack:
[13:13:52.410] List of future strategies:
[13:13:52.410] 1. sequential:
[13:13:52.410]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.410]    - tweaked: FALSE
[13:13:52.410]    - call: plan(strategy)
[13:13:52.411] plan(): nbrOfWorkers() = 1
[13:13:52.411] SequentialFuture started (and completed)
[13:13:52.411] - Launch lazy future ... done
[13:13:52.411] run() for 'SequentialFuture' ... done
[13:13:52.412] Created future:
[13:13:52.412] SequentialFuture:
[13:13:52.412] Label: 'future_mapply-5'
[13:13:52.412] Expression:
[13:13:52.412] {
[13:13:52.412]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.412]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:52.412]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.412]         on.exit(options(oopts), add = TRUE)
[13:13:52.412]     }
[13:13:52.412]     {
[13:13:52.412]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.412]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:52.412]         do.call(mapply, args = args)
[13:13:52.412]     }
[13:13:52.412] }
[13:13:52.412] Lazy evaluation: FALSE
[13:13:52.412] Asynchronous evaluation: FALSE
[13:13:52.412] Local evaluation: TRUE
[13:13:52.412] Environment: R_GlobalEnv
[13:13:52.412] Capture standard output: TRUE
[13:13:52.412] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:52.412] Globals: 5 objects totaling 3.41 KiB (function '...future.FUN' of 3.24 KiB, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 168 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:52.412] Packages: <none>
[13:13:52.412] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:52.412] Resolved: TRUE
[13:13:52.412] Value: 112 bytes of class 'list'
[13:13:52.412] Early signaling: FALSE
[13:13:52.412] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:52.412] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.413] Chunk #5 of 5 ... DONE
[13:13:52.413] Launching 5 futures (chunks) ... DONE
[13:13:52.413] Resolving 5 futures (chunks) ...
[13:13:52.413] resolve() on list ...
[13:13:52.414]  recursive: 0
[13:13:52.414]  length: 5
[13:13:52.414] 
[13:13:52.414] resolved() for 'SequentialFuture' ...
[13:13:52.414] - state: 'finished'
[13:13:52.414] - run: TRUE
[13:13:52.415] - result: 'FutureResult'
[13:13:52.415] resolved() for 'SequentialFuture' ... done
[13:13:52.415] Future #1
[13:13:52.415] signalConditionsASAP(SequentialFuture, pos=1) ...
[13:13:52.415] - nx: 5
[13:13:52.416] - relay: TRUE
[13:13:52.416] - stdout: TRUE
[13:13:52.416] - signal: TRUE
[13:13:52.416] - resignal: FALSE
[13:13:52.416] - force: TRUE
[13:13:52.416] - relayed: [n=5] FALSE, FALSE, FALSE, FALSE, FALSE
[13:13:52.416] - queued futures: [n=5] FALSE, FALSE, FALSE, FALSE, FALSE
[13:13:52.417]  - until=1
[13:13:52.417]  - relaying element #1
[13:13:52.417] - relayed: [n=5] TRUE, FALSE, FALSE, FALSE, FALSE
[13:13:52.417] - queued futures: [n=5] TRUE, FALSE, FALSE, FALSE, FALSE
[13:13:52.417] signalConditionsASAP(SequentialFuture, pos=1) ... done
[13:13:52.418]  length: 4 (resolved future 1)
[13:13:52.418] resolved() for 'SequentialFuture' ...
[13:13:52.418] - state: 'finished'
[13:13:52.418] - run: TRUE
[13:13:52.418] - result: 'FutureResult'
[13:13:52.418] resolved() for 'SequentialFuture' ... done
[13:13:52.419] Future #2
[13:13:52.419] signalConditionsASAP(SequentialFuture, pos=2) ...
[13:13:52.419] - nx: 5
[13:13:52.419] - relay: TRUE
[13:13:52.419] - stdout: TRUE
[13:13:52.419] - signal: TRUE
[13:13:52.420] - resignal: FALSE
[13:13:52.420] - force: TRUE
[13:13:52.420] - relayed: [n=5] TRUE, FALSE, FALSE, FALSE, FALSE
[13:13:52.420] - queued futures: [n=5] TRUE, FALSE, FALSE, FALSE, FALSE
[13:13:52.420]  - until=2
[13:13:52.420]  - relaying element #2
[13:13:52.421] - relayed: [n=5] TRUE, TRUE, FALSE, FALSE, FALSE
[13:13:52.421] - queued futures: [n=5] TRUE, TRUE, FALSE, FALSE, FALSE
[13:13:52.421] signalConditionsASAP(SequentialFuture, pos=2) ... done
[13:13:52.421]  length: 3 (resolved future 2)
[13:13:52.421] resolved() for 'SequentialFuture' ...
[13:13:52.421] - state: 'finished'
[13:13:52.422] - run: TRUE
[13:13:52.422] - result: 'FutureResult'
[13:13:52.422] resolved() for 'SequentialFuture' ... done
[13:13:52.422] Future #3
[13:13:52.422] signalConditionsASAP(SequentialFuture, pos=3) ...
[13:13:52.423] - nx: 5
[13:13:52.423] - relay: TRUE
[13:13:52.423] - stdout: TRUE
[13:13:52.423] - signal: TRUE
[13:13:52.423] - resignal: FALSE
[13:13:52.423] - force: TRUE
[13:13:52.423] - relayed: [n=5] TRUE, TRUE, FALSE, FALSE, FALSE
[13:13:52.424] - queued futures: [n=5] TRUE, TRUE, FALSE, FALSE, FALSE
[13:13:52.424]  - until=3
[13:13:52.424]  - relaying element #3
[13:13:52.424] - relayed: [n=5] TRUE, TRUE, TRUE, FALSE, FALSE
[13:13:52.424] - queued futures: [n=5] TRUE, TRUE, TRUE, FALSE, FALSE
[13:13:52.425] signalConditionsASAP(SequentialFuture, pos=3) ... done
[13:13:52.425]  length: 2 (resolved future 3)
[13:13:52.425] resolved() for 'SequentialFuture' ...
[13:13:52.425] - state: 'finished'
[13:13:52.425] - run: TRUE
[13:13:52.425] - result: 'FutureResult'
[13:13:52.426] resolved() for 'SequentialFuture' ... done
[13:13:52.426] Future #4
[13:13:52.426] signalConditionsASAP(SequentialFuture, pos=4) ...
[13:13:52.426] - nx: 5
[13:13:52.426] - relay: TRUE
[13:13:52.426] - stdout: TRUE
[13:13:52.427] - signal: TRUE
[13:13:52.427] - resignal: FALSE
[13:13:52.427] - force: TRUE
[13:13:52.427] - relayed: [n=5] TRUE, TRUE, TRUE, FALSE, FALSE
[13:13:52.427] - queued futures: [n=5] TRUE, TRUE, TRUE, FALSE, FALSE
[13:13:52.427]  - until=4
[13:13:52.428]  - relaying element #4
[13:13:52.428] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, FALSE
[13:13:52.428] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, FALSE
[13:13:52.428] signalConditionsASAP(SequentialFuture, pos=4) ... done
[13:13:52.428]  length: 1 (resolved future 4)
[13:13:52.428] resolved() for 'SequentialFuture' ...
[13:13:52.429] - state: 'finished'
[13:13:52.429] - run: TRUE
[13:13:52.429] - result: 'FutureResult'
[13:13:52.429] resolved() for 'SequentialFuture' ... done
[13:13:52.429] Future #5
[13:13:52.430] signalConditionsASAP(SequentialFuture, pos=5) ...
[13:13:52.430] - nx: 5
[13:13:52.430] - relay: TRUE
[13:13:52.431] - stdout: TRUE
[13:13:52.431] - signal: TRUE
[13:13:52.431] - resignal: FALSE
[13:13:52.431] - force: TRUE
[13:13:52.431] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, FALSE
[13:13:52.431] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, FALSE
[13:13:52.432]  - until=5
[13:13:52.432]  - relaying element #5
[13:13:52.432] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE
[13:13:52.432] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE
[13:13:52.432] signalConditionsASAP(SequentialFuture, pos=5) ... done
[13:13:52.433]  length: 0 (resolved future 5)
[13:13:52.433] Relaying remaining futures
[13:13:52.433] signalConditionsASAP(NULL, pos=0) ...
[13:13:52.433] - nx: 5
[13:13:52.433] - relay: TRUE
[13:13:52.433] - stdout: TRUE
[13:13:52.434] - signal: TRUE
[13:13:52.434] - resignal: FALSE
[13:13:52.434] - force: TRUE
[13:13:52.434] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE
[13:13:52.434] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE
 - flush all
[13:13:52.434] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE
[13:13:52.435] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE
[13:13:52.435] signalConditionsASAP(NULL, pos=0) ... done
[13:13:52.435] resolve() on list ... DONE
[13:13:52.435]  - Number of value chunks collected: 5
[13:13:52.435] Resolving 5 futures (chunks) ... DONE
[13:13:52.436] Reducing values from 5 chunks ...
[13:13:52.436]  - Number of values collected after concatenation: 5
[13:13:52.436]  - Number of values expected: 5
[13:13:52.436] Reducing values from 5 chunks ... DONE
[13:13:52.436] future_mapply() ... DONE
[13:13:52.437] future_mapply() ...
[13:13:52.437] Number of chunks: 1
[13:13:52.437] getGlobalsAndPackagesXApply() ...
[13:13:52.437]  - future.globals: TRUE
[13:13:52.437] getGlobalsAndPackages() ...
[13:13:52.438] Searching for globals...
[13:13:52.439] - globals found: [3] 'FUN', 'paste', 'rep.int'
[13:13:52.439] Searching for globals ... DONE
[13:13:52.439] Resolving globals: FALSE
[13:13:52.440] The total size of the 1 globals is 3.24 KiB (3320 bytes)
[13:13:52.440] The total size of the 1 globals exported for future expression ('FUN()') is 3.24 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (3.24 KiB of class 'function')
[13:13:52.441] - globals: [1] 'FUN'
[13:13:52.441] 
[13:13:52.441] getGlobalsAndPackages() ... DONE
[13:13:52.441]  - globals found/used: [n=1] 'FUN'
[13:13:52.441]  - needed namespaces: [n=0] 
[13:13:52.441] Finding globals ... DONE
[13:13:52.442] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:52.442] List of 2
[13:13:52.442]  $ ...future.FUN:function (C, k)  
[13:13:52.442]  $ MoreArgs     : list()
[13:13:52.442]  - attr(*, "where")=List of 2
[13:13:52.442]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:52.442]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:52.442]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.442]  - attr(*, "resolved")= logi FALSE
[13:13:52.442]  - attr(*, "total_size")= num NA
[13:13:52.445] Packages to be attached in all futures: [n=0] 
[13:13:52.445] getGlobalsAndPackagesXApply() ... DONE
[13:13:52.445] Number of futures (= number of chunks): 1
[13:13:52.445] Launching 1 futures (chunks) ...
[13:13:52.445] Chunk #1 of 1 ...
[13:13:52.446]  - Finding globals in '...' for chunk #1 ...
[13:13:52.446] getGlobalsAndPackages() ...
[13:13:52.446] Searching for globals...
[13:13:52.446] 
[13:13:52.447] Searching for globals ... DONE
[13:13:52.447] - globals: [0] <none>
[13:13:52.447] getGlobalsAndPackages() ... DONE
[13:13:52.447]    + additional globals found: [n=0] 
[13:13:52.447]    + additional namespaces needed: [n=0] 
[13:13:52.447]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:52.448]  - seeds: <none>
[13:13:52.448]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.448] getGlobalsAndPackages() ...
[13:13:52.448] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.448] Resolving globals: FALSE
[13:13:52.449] The total size of the 5 globals is 4.06 KiB (4160 bytes)
[13:13:52.449] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 4.06 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (3.24 KiB of class 'function'), '...future.elements_ii' (840 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'list')
[13:13:52.450] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.450] 
[13:13:52.450] getGlobalsAndPackages() ... DONE
[13:13:52.451] run() for 'Future' ...
[13:13:52.451] - state: 'created'
[13:13:52.451] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:52.452] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.452] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:52.452]   - Field: 'label'
[13:13:52.452]   - Field: 'local'
[13:13:52.452]   - Field: 'owner'
[13:13:52.453]   - Field: 'envir'
[13:13:52.453]   - Field: 'packages'
[13:13:52.453]   - Field: 'gc'
[13:13:52.453]   - Field: 'conditions'
[13:13:52.453]   - Field: 'expr'
[13:13:52.454]   - Field: 'uuid'
[13:13:52.454]   - Field: 'seed'
[13:13:52.454]   - Field: 'version'
[13:13:52.454]   - Field: 'result'
[13:13:52.454]   - Field: 'asynchronous'
[13:13:52.454]   - Field: 'calls'
[13:13:52.455]   - Field: 'globals'
[13:13:52.455]   - Field: 'stdout'
[13:13:52.455]   - Field: 'earlySignal'
[13:13:52.455]   - Field: 'lazy'
[13:13:52.455]   - Field: 'state'
[13:13:52.455] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:52.456] - Launch lazy future ...
[13:13:52.456] Packages needed by the future expression (n = 0): <none>
[13:13:52.456] Packages needed by future strategies (n = 0): <none>
[13:13:52.457] {
[13:13:52.457]     {
[13:13:52.457]         {
[13:13:52.457]             ...future.startTime <- base::Sys.time()
[13:13:52.457]             {
[13:13:52.457]                 {
[13:13:52.457]                   {
[13:13:52.457]                     base::local({
[13:13:52.457]                       has_future <- base::requireNamespace("future", 
[13:13:52.457]                         quietly = TRUE)
[13:13:52.457]                       if (has_future) {
[13:13:52.457]                         ns <- base::getNamespace("future")
[13:13:52.457]                         version <- ns[[".package"]][["version"]]
[13:13:52.457]                         if (is.null(version)) 
[13:13:52.457]                           version <- utils::packageVersion("future")
[13:13:52.457]                       }
[13:13:52.457]                       else {
[13:13:52.457]                         version <- NULL
[13:13:52.457]                       }
[13:13:52.457]                       if (!has_future || version < "1.8.0") {
[13:13:52.457]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:52.457]                           "", base::R.version$version.string), 
[13:13:52.457]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:52.457]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:52.457]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:52.457]                             "release", "version")], collapse = " "), 
[13:13:52.457]                           hostname = base::Sys.info()[["nodename"]])
[13:13:52.457]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:52.457]                           info)
[13:13:52.457]                         info <- base::paste(info, collapse = "; ")
[13:13:52.457]                         if (!has_future) {
[13:13:52.457]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:52.457]                             info)
[13:13:52.457]                         }
[13:13:52.457]                         else {
[13:13:52.457]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:52.457]                             info, version)
[13:13:52.457]                         }
[13:13:52.457]                         base::stop(msg)
[13:13:52.457]                       }
[13:13:52.457]                     })
[13:13:52.457]                   }
[13:13:52.457]                   options(future.plan = NULL)
[13:13:52.457]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.457]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:52.457]                 }
[13:13:52.457]                 ...future.workdir <- getwd()
[13:13:52.457]             }
[13:13:52.457]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:52.457]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:52.457]         }
[13:13:52.457]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:52.457]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[13:13:52.457]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:52.457]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:52.457]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:52.457]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:52.457]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:52.457]             base::names(...future.oldOptions))
[13:13:52.457]     }
[13:13:52.457]     if (FALSE) {
[13:13:52.457]     }
[13:13:52.457]     else {
[13:13:52.457]         if (TRUE) {
[13:13:52.457]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:52.457]                 open = "w")
[13:13:52.457]         }
[13:13:52.457]         else {
[13:13:52.457]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:52.457]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:52.457]         }
[13:13:52.457]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:52.457]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:52.457]             base::sink(type = "output", split = FALSE)
[13:13:52.457]             base::close(...future.stdout)
[13:13:52.457]         }, add = TRUE)
[13:13:52.457]     }
[13:13:52.457]     ...future.frame <- base::sys.nframe()
[13:13:52.457]     ...future.conditions <- base::list()
[13:13:52.457]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:52.457]     if (FALSE) {
[13:13:52.457]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:52.457]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:52.457]     }
[13:13:52.457]     ...future.result <- base::tryCatch({
[13:13:52.457]         base::withCallingHandlers({
[13:13:52.457]             ...future.value <- base::withVisible(base::local({
[13:13:52.457]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.457]                 if (!identical(...future.globals.maxSize.org, 
[13:13:52.457]                   ...future.globals.maxSize)) {
[13:13:52.457]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.457]                   on.exit(options(oopts), add = TRUE)
[13:13:52.457]                 }
[13:13:52.457]                 {
[13:13:52.457]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.457]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:52.457]                     USE.NAMES = FALSE)
[13:13:52.457]                   do.call(mapply, args = args)
[13:13:52.457]                 }
[13:13:52.457]             }))
[13:13:52.457]             future::FutureResult(value = ...future.value$value, 
[13:13:52.457]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.457]                   ...future.rng), globalenv = if (FALSE) 
[13:13:52.457]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:52.457]                     ...future.globalenv.names))
[13:13:52.457]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:52.457]         }, condition = base::local({
[13:13:52.457]             c <- base::c
[13:13:52.457]             inherits <- base::inherits
[13:13:52.457]             invokeRestart <- base::invokeRestart
[13:13:52.457]             length <- base::length
[13:13:52.457]             list <- base::list
[13:13:52.457]             seq.int <- base::seq.int
[13:13:52.457]             signalCondition <- base::signalCondition
[13:13:52.457]             sys.calls <- base::sys.calls
[13:13:52.457]             `[[` <- base::`[[`
[13:13:52.457]             `+` <- base::`+`
[13:13:52.457]             `<<-` <- base::`<<-`
[13:13:52.457]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:52.457]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:52.457]                   3L)]
[13:13:52.457]             }
[13:13:52.457]             function(cond) {
[13:13:52.457]                 is_error <- inherits(cond, "error")
[13:13:52.457]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:52.457]                   NULL)
[13:13:52.457]                 if (is_error) {
[13:13:52.457]                   sessionInformation <- function() {
[13:13:52.457]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:52.457]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:52.457]                       search = base::search(), system = base::Sys.info())
[13:13:52.457]                   }
[13:13:52.457]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.457]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:52.457]                     cond$call), session = sessionInformation(), 
[13:13:52.457]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:52.457]                   signalCondition(cond)
[13:13:52.457]                 }
[13:13:52.457]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:52.457]                 "immediateCondition"))) {
[13:13:52.457]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:52.457]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.457]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:52.457]                   if (TRUE && !signal) {
[13:13:52.457]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.457]                     {
[13:13:52.457]                       inherits <- base::inherits
[13:13:52.457]                       invokeRestart <- base::invokeRestart
[13:13:52.457]                       is.null <- base::is.null
[13:13:52.457]                       muffled <- FALSE
[13:13:52.457]                       if (inherits(cond, "message")) {
[13:13:52.457]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.457]                         if (muffled) 
[13:13:52.457]                           invokeRestart("muffleMessage")
[13:13:52.457]                       }
[13:13:52.457]                       else if (inherits(cond, "warning")) {
[13:13:52.457]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.457]                         if (muffled) 
[13:13:52.457]                           invokeRestart("muffleWarning")
[13:13:52.457]                       }
[13:13:52.457]                       else if (inherits(cond, "condition")) {
[13:13:52.457]                         if (!is.null(pattern)) {
[13:13:52.457]                           computeRestarts <- base::computeRestarts
[13:13:52.457]                           grepl <- base::grepl
[13:13:52.457]                           restarts <- computeRestarts(cond)
[13:13:52.457]                           for (restart in restarts) {
[13:13:52.457]                             name <- restart$name
[13:13:52.457]                             if (is.null(name)) 
[13:13:52.457]                               next
[13:13:52.457]                             if (!grepl(pattern, name)) 
[13:13:52.457]                               next
[13:13:52.457]                             invokeRestart(restart)
[13:13:52.457]                             muffled <- TRUE
[13:13:52.457]                             break
[13:13:52.457]                           }
[13:13:52.457]                         }
[13:13:52.457]                       }
[13:13:52.457]                       invisible(muffled)
[13:13:52.457]                     }
[13:13:52.457]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.457]                   }
[13:13:52.457]                 }
[13:13:52.457]                 else {
[13:13:52.457]                   if (TRUE) {
[13:13:52.457]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.457]                     {
[13:13:52.457]                       inherits <- base::inherits
[13:13:52.457]                       invokeRestart <- base::invokeRestart
[13:13:52.457]                       is.null <- base::is.null
[13:13:52.457]                       muffled <- FALSE
[13:13:52.457]                       if (inherits(cond, "message")) {
[13:13:52.457]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.457]                         if (muffled) 
[13:13:52.457]                           invokeRestart("muffleMessage")
[13:13:52.457]                       }
[13:13:52.457]                       else if (inherits(cond, "warning")) {
[13:13:52.457]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.457]                         if (muffled) 
[13:13:52.457]                           invokeRestart("muffleWarning")
[13:13:52.457]                       }
[13:13:52.457]                       else if (inherits(cond, "condition")) {
[13:13:52.457]                         if (!is.null(pattern)) {
[13:13:52.457]                           computeRestarts <- base::computeRestarts
[13:13:52.457]                           grepl <- base::grepl
[13:13:52.457]                           restarts <- computeRestarts(cond)
[13:13:52.457]                           for (restart in restarts) {
[13:13:52.457]                             name <- restart$name
[13:13:52.457]                             if (is.null(name)) 
[13:13:52.457]                               next
[13:13:52.457]                             if (!grepl(pattern, name)) 
[13:13:52.457]                               next
[13:13:52.457]                             invokeRestart(restart)
[13:13:52.457]                             muffled <- TRUE
[13:13:52.457]                             break
[13:13:52.457]                           }
[13:13:52.457]                         }
[13:13:52.457]                       }
[13:13:52.457]                       invisible(muffled)
[13:13:52.457]                     }
[13:13:52.457]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.457]                   }
[13:13:52.457]                 }
[13:13:52.457]             }
[13:13:52.457]         }))
[13:13:52.457]     }, error = function(ex) {
[13:13:52.457]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:52.457]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.457]                 ...future.rng), started = ...future.startTime, 
[13:13:52.457]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:52.457]             version = "1.8"), class = "FutureResult")
[13:13:52.457]     }, finally = {
[13:13:52.457]         if (!identical(...future.workdir, getwd())) 
[13:13:52.457]             setwd(...future.workdir)
[13:13:52.457]         {
[13:13:52.457]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:52.457]                 ...future.oldOptions$nwarnings <- NULL
[13:13:52.457]             }
[13:13:52.457]             base::options(...future.oldOptions)
[13:13:52.457]             if (.Platform$OS.type == "windows") {
[13:13:52.457]                 old_names <- names(...future.oldEnvVars)
[13:13:52.457]                 envs <- base::Sys.getenv()
[13:13:52.457]                 names <- names(envs)
[13:13:52.457]                 common <- intersect(names, old_names)
[13:13:52.457]                 added <- setdiff(names, old_names)
[13:13:52.457]                 removed <- setdiff(old_names, names)
[13:13:52.457]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:52.457]                   envs[common]]
[13:13:52.457]                 NAMES <- toupper(changed)
[13:13:52.457]                 args <- list()
[13:13:52.457]                 for (kk in seq_along(NAMES)) {
[13:13:52.457]                   name <- changed[[kk]]
[13:13:52.457]                   NAME <- NAMES[[kk]]
[13:13:52.457]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.457]                     next
[13:13:52.457]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.457]                 }
[13:13:52.457]                 NAMES <- toupper(added)
[13:13:52.457]                 for (kk in seq_along(NAMES)) {
[13:13:52.457]                   name <- added[[kk]]
[13:13:52.457]                   NAME <- NAMES[[kk]]
[13:13:52.457]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.457]                     next
[13:13:52.457]                   args[[name]] <- ""
[13:13:52.457]                 }
[13:13:52.457]                 NAMES <- toupper(removed)
[13:13:52.457]                 for (kk in seq_along(NAMES)) {
[13:13:52.457]                   name <- removed[[kk]]
[13:13:52.457]                   NAME <- NAMES[[kk]]
[13:13:52.457]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.457]                     next
[13:13:52.457]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.457]                 }
[13:13:52.457]                 if (length(args) > 0) 
[13:13:52.457]                   base::do.call(base::Sys.setenv, args = args)
[13:13:52.457]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:52.457]             }
[13:13:52.457]             else {
[13:13:52.457]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:52.457]             }
[13:13:52.457]             {
[13:13:52.457]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:52.457]                   0L) {
[13:13:52.457]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:52.457]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:52.457]                   base::options(opts)
[13:13:52.457]                 }
[13:13:52.457]                 {
[13:13:52.457]                   {
[13:13:52.457]                     base::assign(".Random.seed", c(10407L, -1918733616L, 
[13:13:52.457]                     1584354639L, -1174970862L, -939885817L, 1422965938L, 
[13:13:52.457]                     -981423529L), envir = base::globalenv(), 
[13:13:52.457]                       inherits = FALSE)
[13:13:52.457]                     NULL
[13:13:52.457]                   }
[13:13:52.457]                   options(future.plan = NULL)
[13:13:52.457]                   if (is.na(NA_character_)) 
[13:13:52.457]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.457]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:52.457]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:52.457]                   {
[13:13:52.457]                     future <- SequentialFuture(..., envir = envir)
[13:13:52.457]                     if (!future$lazy) 
[13:13:52.457]                       future <- run(future)
[13:13:52.457]                     invisible(future)
[13:13:52.457]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:52.457]                 }
[13:13:52.457]             }
[13:13:52.457]         }
[13:13:52.457]     })
[13:13:52.457]     if (TRUE) {
[13:13:52.457]         base::sink(type = "output", split = FALSE)
[13:13:52.457]         if (TRUE) {
[13:13:52.457]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:52.457]         }
[13:13:52.457]         else {
[13:13:52.457]             ...future.result["stdout"] <- base::list(NULL)
[13:13:52.457]         }
[13:13:52.457]         base::close(...future.stdout)
[13:13:52.457]         ...future.stdout <- NULL
[13:13:52.457]     }
[13:13:52.457]     ...future.result$conditions <- ...future.conditions
[13:13:52.457]     ...future.result$finished <- base::Sys.time()
[13:13:52.457]     ...future.result
[13:13:52.457] }
[13:13:52.461] assign_globals() ...
[13:13:52.461] List of 5
[13:13:52.461]  $ ...future.FUN            :function (C, k)  
[13:13:52.461]  $ MoreArgs                 : list()
[13:13:52.461]  $ ...future.elements_ii    :List of 2
[13:13:52.461]   ..$ :List of 5
[13:13:52.461]   .. ..$ : chr "A"
[13:13:52.461]   .. ..$ : chr "B"
[13:13:52.461]   .. ..$ : chr "C"
[13:13:52.461]   .. ..$ : chr "D"
[13:13:52.461]   .. ..$ : chr "E"
[13:13:52.461]   ..$ :List of 5
[13:13:52.461]   .. ..$ : int 5
[13:13:52.461]   .. ..$ : int 4
[13:13:52.461]   .. ..$ : int 3
[13:13:52.461]   .. ..$ : int 2
[13:13:52.461]   .. ..$ : int 1
[13:13:52.461]  $ ...future.seeds_ii       : NULL
[13:13:52.461]  $ ...future.globals.maxSize: NULL
[13:13:52.461]  - attr(*, "where")=List of 5
[13:13:52.461]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:52.461]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[13:13:52.461]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:52.461]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:52.461]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:52.461]  - attr(*, "resolved")= logi FALSE
[13:13:52.461]  - attr(*, "total_size")= num 4160
[13:13:52.461]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.461]  - attr(*, "already-done")= logi TRUE
[13:13:52.470] - reassign environment for '...future.FUN'
[13:13:52.470] - copied '...future.FUN' to environment
[13:13:52.470] - copied 'MoreArgs' to environment
[13:13:52.470] - copied '...future.elements_ii' to environment
[13:13:52.471] - copied '...future.seeds_ii' to environment
[13:13:52.471] - copied '...future.globals.maxSize' to environment
[13:13:52.471] assign_globals() ... done
[13:13:52.471] plan(): Setting new future strategy stack:
[13:13:52.471] List of future strategies:
[13:13:52.471] 1. sequential:
[13:13:52.471]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.471]    - tweaked: FALSE
[13:13:52.471]    - call: NULL
[13:13:52.472] plan(): nbrOfWorkers() = 1
[13:13:52.473] plan(): Setting new future strategy stack:
[13:13:52.473] List of future strategies:
[13:13:52.473] 1. sequential:
[13:13:52.473]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.473]    - tweaked: FALSE
[13:13:52.473]    - call: plan(strategy)
[13:13:52.474] plan(): nbrOfWorkers() = 1
[13:13:52.474] SequentialFuture started (and completed)
[13:13:52.474] - Launch lazy future ... done
[13:13:52.475] run() for 'SequentialFuture' ... done
[13:13:52.475] Created future:
[13:13:52.475] SequentialFuture:
[13:13:52.475] Label: 'future_.mapply-1'
[13:13:52.475] Expression:
[13:13:52.475] {
[13:13:52.475]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.475]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:52.475]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.475]         on.exit(options(oopts), add = TRUE)
[13:13:52.475]     }
[13:13:52.475]     {
[13:13:52.475]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.475]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:52.475]         do.call(mapply, args = args)
[13:13:52.475]     }
[13:13:52.475] }
[13:13:52.475] Lazy evaluation: FALSE
[13:13:52.475] Asynchronous evaluation: FALSE
[13:13:52.475] Local evaluation: TRUE
[13:13:52.475] Environment: R_GlobalEnv
[13:13:52.475] Capture standard output: TRUE
[13:13:52.475] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:52.475] Globals: 5 objects totaling 4.06 KiB (function '...future.FUN' of 3.24 KiB, list 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 840 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:52.475] Packages: <none>
[13:13:52.475] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:52.475] Resolved: TRUE
[13:13:52.475] Value: 560 bytes of class 'list'
[13:13:52.475] Early signaling: FALSE
[13:13:52.475] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:52.475] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.476] Chunk #1 of 1 ... DONE
[13:13:52.476] Launching 1 futures (chunks) ... DONE
[13:13:52.477] Resolving 1 futures (chunks) ...
[13:13:52.477] resolve() on list ...
[13:13:52.477]  recursive: 0
[13:13:52.477]  length: 1
[13:13:52.477] 
[13:13:52.477] resolved() for 'SequentialFuture' ...
[13:13:52.478] - state: 'finished'
[13:13:52.478] - run: TRUE
[13:13:52.478] - result: 'FutureResult'
[13:13:52.478] resolved() for 'SequentialFuture' ... done
[13:13:52.478] Future #1
[13:13:52.479] signalConditionsASAP(SequentialFuture, pos=1) ...
[13:13:52.479] - nx: 1
[13:13:52.479] - relay: TRUE
[13:13:52.479] - stdout: TRUE
[13:13:52.479] - signal: TRUE
[13:13:52.479] - resignal: FALSE
[13:13:52.479] - force: TRUE
[13:13:52.480] - relayed: [n=1] FALSE
[13:13:52.480] - queued futures: [n=1] FALSE
[13:13:52.480]  - until=1
[13:13:52.480]  - relaying element #1
[13:13:52.480] - relayed: [n=1] TRUE
[13:13:52.480] - queued futures: [n=1] TRUE
[13:13:52.481] signalConditionsASAP(SequentialFuture, pos=1) ... done
[13:13:52.481]  length: 0 (resolved future 1)
[13:13:52.481] Relaying remaining futures
[13:13:52.481] signalConditionsASAP(NULL, pos=0) ...
[13:13:52.481] - nx: 1
[13:13:52.481] - relay: TRUE
[13:13:52.482] - stdout: TRUE
[13:13:52.482] - signal: TRUE
[13:13:52.482] - resignal: FALSE
[13:13:52.482] - force: TRUE
[13:13:52.482] - relayed: [n=1] TRUE
[13:13:52.482] - queued futures: [n=1] TRUE
 - flush all
[13:13:52.483] - relayed: [n=1] TRUE
[13:13:52.483] - queued futures: [n=1] TRUE
[13:13:52.483] signalConditionsASAP(NULL, pos=0) ... done
[13:13:52.483] resolve() on list ... DONE
[13:13:52.483]  - Number of value chunks collected: 1
[13:13:52.483] Resolving 1 futures (chunks) ... DONE
[13:13:52.484] Reducing values from 1 chunks ...
[13:13:52.484]  - Number of values collected after concatenation: 5
[13:13:52.484]  - Number of values expected: 5
[13:13:52.484] Reducing values from 1 chunks ... DONE
[13:13:52.484] future_mapply() ... DONE
[13:13:52.485] future_mapply() ...
[13:13:52.486] Number of chunks: 3
[13:13:52.486] Index remapping (attribute 'ordering'): [n = 5] 2, 4, 3, 1, 5
[13:13:52.486] getGlobalsAndPackagesXApply() ...
[13:13:52.486]  - future.globals: TRUE
[13:13:52.487] getGlobalsAndPackages() ...
[13:13:52.487] Searching for globals...
[13:13:52.488] - globals found: [3] 'FUN', 'paste', 'rep.int'
[13:13:52.489] Searching for globals ... DONE
[13:13:52.489] Resolving globals: FALSE
[13:13:52.489] The total size of the 1 globals is 3.24 KiB (3320 bytes)
[13:13:52.490] The total size of the 1 globals exported for future expression ('FUN()') is 3.24 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (3.24 KiB of class 'function')
[13:13:52.490] - globals: [1] 'FUN'
[13:13:52.490] 
[13:13:52.490] getGlobalsAndPackages() ... DONE
[13:13:52.490]  - globals found/used: [n=1] 'FUN'
[13:13:52.490]  - needed namespaces: [n=0] 
[13:13:52.491] Finding globals ... DONE
[13:13:52.491] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:52.491] List of 2
[13:13:52.491]  $ ...future.FUN:function (C, k)  
[13:13:52.491]  $ MoreArgs     : NULL
[13:13:52.491]  - attr(*, "where")=List of 2
[13:13:52.491]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:52.491]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:52.491]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.491]  - attr(*, "resolved")= logi FALSE
[13:13:52.491]  - attr(*, "total_size")= num NA
[13:13:52.494] Packages to be attached in all futures: [n=0] 
[13:13:52.494] getGlobalsAndPackagesXApply() ... DONE
[13:13:52.494] Number of futures (= number of chunks): 3
[13:13:52.495] Launching 3 futures (chunks) ...
[13:13:52.495] Chunk #1 of 3 ...
[13:13:52.495]  - Finding globals in '...' for chunk #1 ...
[13:13:52.495] getGlobalsAndPackages() ...
[13:13:52.495] Searching for globals...
[13:13:52.496] 
[13:13:52.496] Searching for globals ... DONE
[13:13:52.496] - globals: [0] <none>
[13:13:52.496] getGlobalsAndPackages() ... DONE
[13:13:52.496]    + additional globals found: [n=0] 
[13:13:52.496]    + additional namespaces needed: [n=0] 
[13:13:52.497]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:52.497]  - Adjusted option 'future.globals.maxSize': 524288000 -> 3 * 524288000 = 1572864000 (bytes)
[13:13:52.497]  - seeds: <none>
[13:13:52.497]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.497] getGlobalsAndPackages() ...
[13:13:52.498] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.498] Resolving globals: FALSE
[13:13:52.498] The total size of the 5 globals is 3.57 KiB (3656 bytes)
[13:13:52.499] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 3.57 KiB.. This exceeds the maximum allowed size of 1.46 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (3.24 KiB of class 'function'), '...future.elements_ii' (336 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:52.499] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.499] 
[13:13:52.500] getGlobalsAndPackages() ... DONE
[13:13:52.500] run() for 'Future' ...
[13:13:52.500] - state: 'created'
[13:13:52.500] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:52.501] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.501] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:52.501]   - Field: 'label'
[13:13:52.501]   - Field: 'local'
[13:13:52.501]   - Field: 'owner'
[13:13:52.502]   - Field: 'envir'
[13:13:52.502]   - Field: 'packages'
[13:13:52.502]   - Field: 'gc'
[13:13:52.502]   - Field: 'conditions'
[13:13:52.502]   - Field: 'expr'
[13:13:52.502]   - Field: 'uuid'
[13:13:52.503]   - Field: 'seed'
[13:13:52.503]   - Field: 'version'
[13:13:52.503]   - Field: 'result'
[13:13:52.503]   - Field: 'asynchronous'
[13:13:52.503]   - Field: 'calls'
[13:13:52.503]   - Field: 'globals'
[13:13:52.504]   - Field: 'stdout'
[13:13:52.504]   - Field: 'earlySignal'
[13:13:52.504]   - Field: 'lazy'
[13:13:52.504]   - Field: 'state'
[13:13:52.504] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:52.504] - Launch lazy future ...
[13:13:52.505] Packages needed by the future expression (n = 0): <none>
[13:13:52.505] Packages needed by future strategies (n = 0): <none>
[13:13:52.505] {
[13:13:52.505]     {
[13:13:52.505]         {
[13:13:52.505]             ...future.startTime <- base::Sys.time()
[13:13:52.505]             {
[13:13:52.505]                 {
[13:13:52.505]                   {
[13:13:52.505]                     base::local({
[13:13:52.505]                       has_future <- base::requireNamespace("future", 
[13:13:52.505]                         quietly = TRUE)
[13:13:52.505]                       if (has_future) {
[13:13:52.505]                         ns <- base::getNamespace("future")
[13:13:52.505]                         version <- ns[[".package"]][["version"]]
[13:13:52.505]                         if (is.null(version)) 
[13:13:52.505]                           version <- utils::packageVersion("future")
[13:13:52.505]                       }
[13:13:52.505]                       else {
[13:13:52.505]                         version <- NULL
[13:13:52.505]                       }
[13:13:52.505]                       if (!has_future || version < "1.8.0") {
[13:13:52.505]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:52.505]                           "", base::R.version$version.string), 
[13:13:52.505]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:52.505]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:52.505]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:52.505]                             "release", "version")], collapse = " "), 
[13:13:52.505]                           hostname = base::Sys.info()[["nodename"]])
[13:13:52.505]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:52.505]                           info)
[13:13:52.505]                         info <- base::paste(info, collapse = "; ")
[13:13:52.505]                         if (!has_future) {
[13:13:52.505]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:52.505]                             info)
[13:13:52.505]                         }
[13:13:52.505]                         else {
[13:13:52.505]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:52.505]                             info, version)
[13:13:52.505]                         }
[13:13:52.505]                         base::stop(msg)
[13:13:52.505]                       }
[13:13:52.505]                     })
[13:13:52.505]                   }
[13:13:52.505]                   options(future.plan = NULL)
[13:13:52.505]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.505]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:52.505]                 }
[13:13:52.505]                 ...future.workdir <- getwd()
[13:13:52.505]             }
[13:13:52.505]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:52.505]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:52.505]         }
[13:13:52.505]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:52.505]             future.globals.maxSize = 1572864000, future.globals.method = NULL, 
[13:13:52.505]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:52.505]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:52.505]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:52.505]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:52.505]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:52.505]             base::names(...future.oldOptions))
[13:13:52.505]     }
[13:13:52.505]     if (FALSE) {
[13:13:52.505]     }
[13:13:52.505]     else {
[13:13:52.505]         if (TRUE) {
[13:13:52.505]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:52.505]                 open = "w")
[13:13:52.505]         }
[13:13:52.505]         else {
[13:13:52.505]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:52.505]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:52.505]         }
[13:13:52.505]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:52.505]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:52.505]             base::sink(type = "output", split = FALSE)
[13:13:52.505]             base::close(...future.stdout)
[13:13:52.505]         }, add = TRUE)
[13:13:52.505]     }
[13:13:52.505]     ...future.frame <- base::sys.nframe()
[13:13:52.505]     ...future.conditions <- base::list()
[13:13:52.505]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:52.505]     if (FALSE) {
[13:13:52.505]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:52.505]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:52.505]     }
[13:13:52.505]     ...future.result <- base::tryCatch({
[13:13:52.505]         base::withCallingHandlers({
[13:13:52.505]             ...future.value <- base::withVisible(base::local({
[13:13:52.505]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.505]                 if (!identical(...future.globals.maxSize.org, 
[13:13:52.505]                   ...future.globals.maxSize)) {
[13:13:52.505]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.505]                   on.exit(options(oopts), add = TRUE)
[13:13:52.505]                 }
[13:13:52.505]                 {
[13:13:52.505]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.505]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:52.505]                     USE.NAMES = FALSE)
[13:13:52.505]                   do.call(mapply, args = args)
[13:13:52.505]                 }
[13:13:52.505]             }))
[13:13:52.505]             future::FutureResult(value = ...future.value$value, 
[13:13:52.505]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.505]                   ...future.rng), globalenv = if (FALSE) 
[13:13:52.505]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:52.505]                     ...future.globalenv.names))
[13:13:52.505]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:52.505]         }, condition = base::local({
[13:13:52.505]             c <- base::c
[13:13:52.505]             inherits <- base::inherits
[13:13:52.505]             invokeRestart <- base::invokeRestart
[13:13:52.505]             length <- base::length
[13:13:52.505]             list <- base::list
[13:13:52.505]             seq.int <- base::seq.int
[13:13:52.505]             signalCondition <- base::signalCondition
[13:13:52.505]             sys.calls <- base::sys.calls
[13:13:52.505]             `[[` <- base::`[[`
[13:13:52.505]             `+` <- base::`+`
[13:13:52.505]             `<<-` <- base::`<<-`
[13:13:52.505]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:52.505]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:52.505]                   3L)]
[13:13:52.505]             }
[13:13:52.505]             function(cond) {
[13:13:52.505]                 is_error <- inherits(cond, "error")
[13:13:52.505]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:52.505]                   NULL)
[13:13:52.505]                 if (is_error) {
[13:13:52.505]                   sessionInformation <- function() {
[13:13:52.505]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:52.505]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:52.505]                       search = base::search(), system = base::Sys.info())
[13:13:52.505]                   }
[13:13:52.505]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.505]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:52.505]                     cond$call), session = sessionInformation(), 
[13:13:52.505]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:52.505]                   signalCondition(cond)
[13:13:52.505]                 }
[13:13:52.505]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:52.505]                 "immediateCondition"))) {
[13:13:52.505]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:52.505]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.505]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:52.505]                   if (TRUE && !signal) {
[13:13:52.505]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.505]                     {
[13:13:52.505]                       inherits <- base::inherits
[13:13:52.505]                       invokeRestart <- base::invokeRestart
[13:13:52.505]                       is.null <- base::is.null
[13:13:52.505]                       muffled <- FALSE
[13:13:52.505]                       if (inherits(cond, "message")) {
[13:13:52.505]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.505]                         if (muffled) 
[13:13:52.505]                           invokeRestart("muffleMessage")
[13:13:52.505]                       }
[13:13:52.505]                       else if (inherits(cond, "warning")) {
[13:13:52.505]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.505]                         if (muffled) 
[13:13:52.505]                           invokeRestart("muffleWarning")
[13:13:52.505]                       }
[13:13:52.505]                       else if (inherits(cond, "condition")) {
[13:13:52.505]                         if (!is.null(pattern)) {
[13:13:52.505]                           computeRestarts <- base::computeRestarts
[13:13:52.505]                           grepl <- base::grepl
[13:13:52.505]                           restarts <- computeRestarts(cond)
[13:13:52.505]                           for (restart in restarts) {
[13:13:52.505]                             name <- restart$name
[13:13:52.505]                             if (is.null(name)) 
[13:13:52.505]                               next
[13:13:52.505]                             if (!grepl(pattern, name)) 
[13:13:52.505]                               next
[13:13:52.505]                             invokeRestart(restart)
[13:13:52.505]                             muffled <- TRUE
[13:13:52.505]                             break
[13:13:52.505]                           }
[13:13:52.505]                         }
[13:13:52.505]                       }
[13:13:52.505]                       invisible(muffled)
[13:13:52.505]                     }
[13:13:52.505]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.505]                   }
[13:13:52.505]                 }
[13:13:52.505]                 else {
[13:13:52.505]                   if (TRUE) {
[13:13:52.505]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.505]                     {
[13:13:52.505]                       inherits <- base::inherits
[13:13:52.505]                       invokeRestart <- base::invokeRestart
[13:13:52.505]                       is.null <- base::is.null
[13:13:52.505]                       muffled <- FALSE
[13:13:52.505]                       if (inherits(cond, "message")) {
[13:13:52.505]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.505]                         if (muffled) 
[13:13:52.505]                           invokeRestart("muffleMessage")
[13:13:52.505]                       }
[13:13:52.505]                       else if (inherits(cond, "warning")) {
[13:13:52.505]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.505]                         if (muffled) 
[13:13:52.505]                           invokeRestart("muffleWarning")
[13:13:52.505]                       }
[13:13:52.505]                       else if (inherits(cond, "condition")) {
[13:13:52.505]                         if (!is.null(pattern)) {
[13:13:52.505]                           computeRestarts <- base::computeRestarts
[13:13:52.505]                           grepl <- base::grepl
[13:13:52.505]                           restarts <- computeRestarts(cond)
[13:13:52.505]                           for (restart in restarts) {
[13:13:52.505]                             name <- restart$name
[13:13:52.505]                             if (is.null(name)) 
[13:13:52.505]                               next
[13:13:52.505]                             if (!grepl(pattern, name)) 
[13:13:52.505]                               next
[13:13:52.505]                             invokeRestart(restart)
[13:13:52.505]                             muffled <- TRUE
[13:13:52.505]                             break
[13:13:52.505]                           }
[13:13:52.505]                         }
[13:13:52.505]                       }
[13:13:52.505]                       invisible(muffled)
[13:13:52.505]                     }
[13:13:52.505]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.505]                   }
[13:13:52.505]                 }
[13:13:52.505]             }
[13:13:52.505]         }))
[13:13:52.505]     }, error = function(ex) {
[13:13:52.505]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:52.505]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.505]                 ...future.rng), started = ...future.startTime, 
[13:13:52.505]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:52.505]             version = "1.8"), class = "FutureResult")
[13:13:52.505]     }, finally = {
[13:13:52.505]         if (!identical(...future.workdir, getwd())) 
[13:13:52.505]             setwd(...future.workdir)
[13:13:52.505]         {
[13:13:52.505]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:52.505]                 ...future.oldOptions$nwarnings <- NULL
[13:13:52.505]             }
[13:13:52.505]             base::options(...future.oldOptions)
[13:13:52.505]             if (.Platform$OS.type == "windows") {
[13:13:52.505]                 old_names <- names(...future.oldEnvVars)
[13:13:52.505]                 envs <- base::Sys.getenv()
[13:13:52.505]                 names <- names(envs)
[13:13:52.505]                 common <- intersect(names, old_names)
[13:13:52.505]                 added <- setdiff(names, old_names)
[13:13:52.505]                 removed <- setdiff(old_names, names)
[13:13:52.505]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:52.505]                   envs[common]]
[13:13:52.505]                 NAMES <- toupper(changed)
[13:13:52.505]                 args <- list()
[13:13:52.505]                 for (kk in seq_along(NAMES)) {
[13:13:52.505]                   name <- changed[[kk]]
[13:13:52.505]                   NAME <- NAMES[[kk]]
[13:13:52.505]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.505]                     next
[13:13:52.505]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.505]                 }
[13:13:52.505]                 NAMES <- toupper(added)
[13:13:52.505]                 for (kk in seq_along(NAMES)) {
[13:13:52.505]                   name <- added[[kk]]
[13:13:52.505]                   NAME <- NAMES[[kk]]
[13:13:52.505]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.505]                     next
[13:13:52.505]                   args[[name]] <- ""
[13:13:52.505]                 }
[13:13:52.505]                 NAMES <- toupper(removed)
[13:13:52.505]                 for (kk in seq_along(NAMES)) {
[13:13:52.505]                   name <- removed[[kk]]
[13:13:52.505]                   NAME <- NAMES[[kk]]
[13:13:52.505]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.505]                     next
[13:13:52.505]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.505]                 }
[13:13:52.505]                 if (length(args) > 0) 
[13:13:52.505]                   base::do.call(base::Sys.setenv, args = args)
[13:13:52.505]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:52.505]             }
[13:13:52.505]             else {
[13:13:52.505]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:52.505]             }
[13:13:52.505]             {
[13:13:52.505]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:52.505]                   0L) {
[13:13:52.505]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:52.505]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:52.505]                   base::options(opts)
[13:13:52.505]                 }
[13:13:52.505]                 {
[13:13:52.505]                   {
[13:13:52.505]                     base::assign(".Random.seed", c(10407L, -1918733616L, 
[13:13:52.505]                     1584354639L, -1174970862L, -939885817L, 1422965938L, 
[13:13:52.505]                     -981423529L), envir = base::globalenv(), 
[13:13:52.505]                       inherits = FALSE)
[13:13:52.505]                     NULL
[13:13:52.505]                   }
[13:13:52.505]                   options(future.plan = NULL)
[13:13:52.505]                   if (is.na(NA_character_)) 
[13:13:52.505]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.505]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:52.505]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:52.505]                   {
[13:13:52.505]                     future <- SequentialFuture(..., envir = envir)
[13:13:52.505]                     if (!future$lazy) 
[13:13:52.505]                       future <- run(future)
[13:13:52.505]                     invisible(future)
[13:13:52.505]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:52.505]                 }
[13:13:52.505]             }
[13:13:52.505]         }
[13:13:52.505]     })
[13:13:52.505]     if (TRUE) {
[13:13:52.505]         base::sink(type = "output", split = FALSE)
[13:13:52.505]         if (TRUE) {
[13:13:52.505]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:52.505]         }
[13:13:52.505]         else {
[13:13:52.505]             ...future.result["stdout"] <- base::list(NULL)
[13:13:52.505]         }
[13:13:52.505]         base::close(...future.stdout)
[13:13:52.505]         ...future.stdout <- NULL
[13:13:52.505]     }
[13:13:52.505]     ...future.result$conditions <- ...future.conditions
[13:13:52.505]     ...future.result$finished <- base::Sys.time()
[13:13:52.505]     ...future.result
[13:13:52.505] }
[13:13:52.509] assign_globals() ...
[13:13:52.509] List of 5
[13:13:52.509]  $ ...future.FUN            :function (C, k)  
[13:13:52.509]  $ MoreArgs                 : NULL
[13:13:52.509]  $ ...future.elements_ii    :List of 2
[13:13:52.509]   ..$ :List of 2
[13:13:52.509]   .. ..$ : chr "B"
[13:13:52.509]   .. ..$ : chr "D"
[13:13:52.509]   ..$ :List of 2
[13:13:52.509]   .. ..$ : int 4
[13:13:52.509]   .. ..$ : int 2
[13:13:52.509]  $ ...future.seeds_ii       : NULL
[13:13:52.509]  $ ...future.globals.maxSize: NULL
[13:13:52.509]  - attr(*, "where")=List of 5
[13:13:52.509]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:52.509]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[13:13:52.509]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:52.509]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:52.509]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:52.509]  - attr(*, "resolved")= logi FALSE
[13:13:52.509]  - attr(*, "total_size")= num 3656
[13:13:52.509]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.509]  - attr(*, "already-done")= logi TRUE
[13:13:52.517] - reassign environment for '...future.FUN'
[13:13:52.517] - copied '...future.FUN' to environment
[13:13:52.517] - copied 'MoreArgs' to environment
[13:13:52.517] - copied '...future.elements_ii' to environment
[13:13:52.518] - copied '...future.seeds_ii' to environment
[13:13:52.518] - copied '...future.globals.maxSize' to environment
[13:13:52.518] assign_globals() ... done
[13:13:52.518] plan(): Setting new future strategy stack:
[13:13:52.518] List of future strategies:
[13:13:52.518] 1. sequential:
[13:13:52.518]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.518]    - tweaked: FALSE
[13:13:52.518]    - call: NULL
[13:13:52.519] plan(): nbrOfWorkers() = 1
[13:13:52.520] plan(): Setting new future strategy stack:
[13:13:52.520] List of future strategies:
[13:13:52.520] 1. sequential:
[13:13:52.520]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.520]    - tweaked: FALSE
[13:13:52.520]    - call: plan(strategy)
[13:13:52.521] plan(): nbrOfWorkers() = 1
[13:13:52.521] SequentialFuture started (and completed)
[13:13:52.521] - Launch lazy future ... done
[13:13:52.522] run() for 'SequentialFuture' ... done
[13:13:52.522] Created future:
[13:13:52.522] SequentialFuture:
[13:13:52.522] Label: 'future_mapply-1'
[13:13:52.522] Expression:
[13:13:52.522] {
[13:13:52.522]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.522]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:52.522]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.522]         on.exit(options(oopts), add = TRUE)
[13:13:52.522]     }
[13:13:52.522]     {
[13:13:52.522]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.522]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:52.522]         do.call(mapply, args = args)
[13:13:52.522]     }
[13:13:52.522] }
[13:13:52.522] Lazy evaluation: FALSE
[13:13:52.522] Asynchronous evaluation: FALSE
[13:13:52.522] Local evaluation: TRUE
[13:13:52.522] Environment: R_GlobalEnv
[13:13:52.522] Capture standard output: TRUE
[13:13:52.522] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:52.522] Globals: 5 objects totaling 3.57 KiB (function '...future.FUN' of 3.24 KiB, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 336 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:52.522] Packages: <none>
[13:13:52.522] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:52.522] Resolved: TRUE
[13:13:52.522] Value: 224 bytes of class 'list'
[13:13:52.522] Early signaling: FALSE
[13:13:52.522] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:52.522] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.523] Chunk #1 of 3 ... DONE
[13:13:52.523] Chunk #2 of 3 ...
[13:13:52.523]  - Finding globals in '...' for chunk #2 ...
[13:13:52.524] getGlobalsAndPackages() ...
[13:13:52.524] Searching for globals...
[13:13:52.524] 
[13:13:52.524] Searching for globals ... DONE
[13:13:52.525] - globals: [0] <none>
[13:13:52.525] getGlobalsAndPackages() ... DONE
[13:13:52.525]    + additional globals found: [n=0] 
[13:13:52.525]    + additional namespaces needed: [n=0] 
[13:13:52.525]  - Finding globals in '...' for chunk #2 ... DONE
[13:13:52.525]  - Adjusted option 'future.globals.maxSize': 524288000 -> 3 * 524288000 = 1572864000 (bytes)
[13:13:52.525]  - seeds: <none>
[13:13:52.526]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.526] getGlobalsAndPackages() ...
[13:13:52.526] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.526] Resolving globals: FALSE
[13:13:52.527] The total size of the 5 globals is 3.41 KiB (3488 bytes)
[13:13:52.527] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 3.41 KiB.. This exceeds the maximum allowed size of 1.46 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (3.24 KiB of class 'function'), '...future.elements_ii' (168 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:52.528] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.528] 
[13:13:52.528] getGlobalsAndPackages() ... DONE
[13:13:52.528] run() for 'Future' ...
[13:13:52.528] - state: 'created'
[13:13:52.529] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:52.529] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.529] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:52.529]   - Field: 'label'
[13:13:52.530]   - Field: 'local'
[13:13:52.530]   - Field: 'owner'
[13:13:52.530]   - Field: 'envir'
[13:13:52.530]   - Field: 'packages'
[13:13:52.530]   - Field: 'gc'
[13:13:52.530]   - Field: 'conditions'
[13:13:52.531]   - Field: 'expr'
[13:13:52.531]   - Field: 'uuid'
[13:13:52.531]   - Field: 'seed'
[13:13:52.531]   - Field: 'version'
[13:13:52.531]   - Field: 'result'
[13:13:52.532]   - Field: 'asynchronous'
[13:13:52.532]   - Field: 'calls'
[13:13:52.532]   - Field: 'globals'
[13:13:52.532]   - Field: 'stdout'
[13:13:52.532]   - Field: 'earlySignal'
[13:13:52.532]   - Field: 'lazy'
[13:13:52.533]   - Field: 'state'
[13:13:52.533] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:52.533] - Launch lazy future ...
[13:13:52.533] Packages needed by the future expression (n = 0): <none>
[13:13:52.533] Packages needed by future strategies (n = 0): <none>
[13:13:52.534] {
[13:13:52.534]     {
[13:13:52.534]         {
[13:13:52.534]             ...future.startTime <- base::Sys.time()
[13:13:52.534]             {
[13:13:52.534]                 {
[13:13:52.534]                   {
[13:13:52.534]                     base::local({
[13:13:52.534]                       has_future <- base::requireNamespace("future", 
[13:13:52.534]                         quietly = TRUE)
[13:13:52.534]                       if (has_future) {
[13:13:52.534]                         ns <- base::getNamespace("future")
[13:13:52.534]                         version <- ns[[".package"]][["version"]]
[13:13:52.534]                         if (is.null(version)) 
[13:13:52.534]                           version <- utils::packageVersion("future")
[13:13:52.534]                       }
[13:13:52.534]                       else {
[13:13:52.534]                         version <- NULL
[13:13:52.534]                       }
[13:13:52.534]                       if (!has_future || version < "1.8.0") {
[13:13:52.534]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:52.534]                           "", base::R.version$version.string), 
[13:13:52.534]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:52.534]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:52.534]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:52.534]                             "release", "version")], collapse = " "), 
[13:13:52.534]                           hostname = base::Sys.info()[["nodename"]])
[13:13:52.534]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:52.534]                           info)
[13:13:52.534]                         info <- base::paste(info, collapse = "; ")
[13:13:52.534]                         if (!has_future) {
[13:13:52.534]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:52.534]                             info)
[13:13:52.534]                         }
[13:13:52.534]                         else {
[13:13:52.534]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:52.534]                             info, version)
[13:13:52.534]                         }
[13:13:52.534]                         base::stop(msg)
[13:13:52.534]                       }
[13:13:52.534]                     })
[13:13:52.534]                   }
[13:13:52.534]                   options(future.plan = NULL)
[13:13:52.534]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.534]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:52.534]                 }
[13:13:52.534]                 ...future.workdir <- getwd()
[13:13:52.534]             }
[13:13:52.534]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:52.534]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:52.534]         }
[13:13:52.534]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:52.534]             future.globals.maxSize = 1572864000, future.globals.method = NULL, 
[13:13:52.534]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:52.534]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:52.534]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:52.534]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:52.534]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:52.534]             base::names(...future.oldOptions))
[13:13:52.534]     }
[13:13:52.534]     if (FALSE) {
[13:13:52.534]     }
[13:13:52.534]     else {
[13:13:52.534]         if (TRUE) {
[13:13:52.534]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:52.534]                 open = "w")
[13:13:52.534]         }
[13:13:52.534]         else {
[13:13:52.534]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:52.534]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:52.534]         }
[13:13:52.534]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:52.534]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:52.534]             base::sink(type = "output", split = FALSE)
[13:13:52.534]             base::close(...future.stdout)
[13:13:52.534]         }, add = TRUE)
[13:13:52.534]     }
[13:13:52.534]     ...future.frame <- base::sys.nframe()
[13:13:52.534]     ...future.conditions <- base::list()
[13:13:52.534]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:52.534]     if (FALSE) {
[13:13:52.534]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:52.534]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:52.534]     }
[13:13:52.534]     ...future.result <- base::tryCatch({
[13:13:52.534]         base::withCallingHandlers({
[13:13:52.534]             ...future.value <- base::withVisible(base::local({
[13:13:52.534]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.534]                 if (!identical(...future.globals.maxSize.org, 
[13:13:52.534]                   ...future.globals.maxSize)) {
[13:13:52.534]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.534]                   on.exit(options(oopts), add = TRUE)
[13:13:52.534]                 }
[13:13:52.534]                 {
[13:13:52.534]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.534]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:52.534]                     USE.NAMES = FALSE)
[13:13:52.534]                   do.call(mapply, args = args)
[13:13:52.534]                 }
[13:13:52.534]             }))
[13:13:52.534]             future::FutureResult(value = ...future.value$value, 
[13:13:52.534]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.534]                   ...future.rng), globalenv = if (FALSE) 
[13:13:52.534]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:52.534]                     ...future.globalenv.names))
[13:13:52.534]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:52.534]         }, condition = base::local({
[13:13:52.534]             c <- base::c
[13:13:52.534]             inherits <- base::inherits
[13:13:52.534]             invokeRestart <- base::invokeRestart
[13:13:52.534]             length <- base::length
[13:13:52.534]             list <- base::list
[13:13:52.534]             seq.int <- base::seq.int
[13:13:52.534]             signalCondition <- base::signalCondition
[13:13:52.534]             sys.calls <- base::sys.calls
[13:13:52.534]             `[[` <- base::`[[`
[13:13:52.534]             `+` <- base::`+`
[13:13:52.534]             `<<-` <- base::`<<-`
[13:13:52.534]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:52.534]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:52.534]                   3L)]
[13:13:52.534]             }
[13:13:52.534]             function(cond) {
[13:13:52.534]                 is_error <- inherits(cond, "error")
[13:13:52.534]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:52.534]                   NULL)
[13:13:52.534]                 if (is_error) {
[13:13:52.534]                   sessionInformation <- function() {
[13:13:52.534]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:52.534]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:52.534]                       search = base::search(), system = base::Sys.info())
[13:13:52.534]                   }
[13:13:52.534]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.534]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:52.534]                     cond$call), session = sessionInformation(), 
[13:13:52.534]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:52.534]                   signalCondition(cond)
[13:13:52.534]                 }
[13:13:52.534]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:52.534]                 "immediateCondition"))) {
[13:13:52.534]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:52.534]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.534]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:52.534]                   if (TRUE && !signal) {
[13:13:52.534]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.534]                     {
[13:13:52.534]                       inherits <- base::inherits
[13:13:52.534]                       invokeRestart <- base::invokeRestart
[13:13:52.534]                       is.null <- base::is.null
[13:13:52.534]                       muffled <- FALSE
[13:13:52.534]                       if (inherits(cond, "message")) {
[13:13:52.534]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.534]                         if (muffled) 
[13:13:52.534]                           invokeRestart("muffleMessage")
[13:13:52.534]                       }
[13:13:52.534]                       else if (inherits(cond, "warning")) {
[13:13:52.534]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.534]                         if (muffled) 
[13:13:52.534]                           invokeRestart("muffleWarning")
[13:13:52.534]                       }
[13:13:52.534]                       else if (inherits(cond, "condition")) {
[13:13:52.534]                         if (!is.null(pattern)) {
[13:13:52.534]                           computeRestarts <- base::computeRestarts
[13:13:52.534]                           grepl <- base::grepl
[13:13:52.534]                           restarts <- computeRestarts(cond)
[13:13:52.534]                           for (restart in restarts) {
[13:13:52.534]                             name <- restart$name
[13:13:52.534]                             if (is.null(name)) 
[13:13:52.534]                               next
[13:13:52.534]                             if (!grepl(pattern, name)) 
[13:13:52.534]                               next
[13:13:52.534]                             invokeRestart(restart)
[13:13:52.534]                             muffled <- TRUE
[13:13:52.534]                             break
[13:13:52.534]                           }
[13:13:52.534]                         }
[13:13:52.534]                       }
[13:13:52.534]                       invisible(muffled)
[13:13:52.534]                     }
[13:13:52.534]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.534]                   }
[13:13:52.534]                 }
[13:13:52.534]                 else {
[13:13:52.534]                   if (TRUE) {
[13:13:52.534]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.534]                     {
[13:13:52.534]                       inherits <- base::inherits
[13:13:52.534]                       invokeRestart <- base::invokeRestart
[13:13:52.534]                       is.null <- base::is.null
[13:13:52.534]                       muffled <- FALSE
[13:13:52.534]                       if (inherits(cond, "message")) {
[13:13:52.534]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.534]                         if (muffled) 
[13:13:52.534]                           invokeRestart("muffleMessage")
[13:13:52.534]                       }
[13:13:52.534]                       else if (inherits(cond, "warning")) {
[13:13:52.534]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.534]                         if (muffled) 
[13:13:52.534]                           invokeRestart("muffleWarning")
[13:13:52.534]                       }
[13:13:52.534]                       else if (inherits(cond, "condition")) {
[13:13:52.534]                         if (!is.null(pattern)) {
[13:13:52.534]                           computeRestarts <- base::computeRestarts
[13:13:52.534]                           grepl <- base::grepl
[13:13:52.534]                           restarts <- computeRestarts(cond)
[13:13:52.534]                           for (restart in restarts) {
[13:13:52.534]                             name <- restart$name
[13:13:52.534]                             if (is.null(name)) 
[13:13:52.534]                               next
[13:13:52.534]                             if (!grepl(pattern, name)) 
[13:13:52.534]                               next
[13:13:52.534]                             invokeRestart(restart)
[13:13:52.534]                             muffled <- TRUE
[13:13:52.534]                             break
[13:13:52.534]                           }
[13:13:52.534]                         }
[13:13:52.534]                       }
[13:13:52.534]                       invisible(muffled)
[13:13:52.534]                     }
[13:13:52.534]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.534]                   }
[13:13:52.534]                 }
[13:13:52.534]             }
[13:13:52.534]         }))
[13:13:52.534]     }, error = function(ex) {
[13:13:52.534]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:52.534]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.534]                 ...future.rng), started = ...future.startTime, 
[13:13:52.534]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:52.534]             version = "1.8"), class = "FutureResult")
[13:13:52.534]     }, finally = {
[13:13:52.534]         if (!identical(...future.workdir, getwd())) 
[13:13:52.534]             setwd(...future.workdir)
[13:13:52.534]         {
[13:13:52.534]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:52.534]                 ...future.oldOptions$nwarnings <- NULL
[13:13:52.534]             }
[13:13:52.534]             base::options(...future.oldOptions)
[13:13:52.534]             if (.Platform$OS.type == "windows") {
[13:13:52.534]                 old_names <- names(...future.oldEnvVars)
[13:13:52.534]                 envs <- base::Sys.getenv()
[13:13:52.534]                 names <- names(envs)
[13:13:52.534]                 common <- intersect(names, old_names)
[13:13:52.534]                 added <- setdiff(names, old_names)
[13:13:52.534]                 removed <- setdiff(old_names, names)
[13:13:52.534]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:52.534]                   envs[common]]
[13:13:52.534]                 NAMES <- toupper(changed)
[13:13:52.534]                 args <- list()
[13:13:52.534]                 for (kk in seq_along(NAMES)) {
[13:13:52.534]                   name <- changed[[kk]]
[13:13:52.534]                   NAME <- NAMES[[kk]]
[13:13:52.534]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.534]                     next
[13:13:52.534]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.534]                 }
[13:13:52.534]                 NAMES <- toupper(added)
[13:13:52.534]                 for (kk in seq_along(NAMES)) {
[13:13:52.534]                   name <- added[[kk]]
[13:13:52.534]                   NAME <- NAMES[[kk]]
[13:13:52.534]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.534]                     next
[13:13:52.534]                   args[[name]] <- ""
[13:13:52.534]                 }
[13:13:52.534]                 NAMES <- toupper(removed)
[13:13:52.534]                 for (kk in seq_along(NAMES)) {
[13:13:52.534]                   name <- removed[[kk]]
[13:13:52.534]                   NAME <- NAMES[[kk]]
[13:13:52.534]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.534]                     next
[13:13:52.534]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.534]                 }
[13:13:52.534]                 if (length(args) > 0) 
[13:13:52.534]                   base::do.call(base::Sys.setenv, args = args)
[13:13:52.534]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:52.534]             }
[13:13:52.534]             else {
[13:13:52.534]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:52.534]             }
[13:13:52.534]             {
[13:13:52.534]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:52.534]                   0L) {
[13:13:52.534]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:52.534]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:52.534]                   base::options(opts)
[13:13:52.534]                 }
[13:13:52.534]                 {
[13:13:52.534]                   {
[13:13:52.534]                     base::assign(".Random.seed", c(10407L, -1918733616L, 
[13:13:52.534]                     1584354639L, -1174970862L, -939885817L, 1422965938L, 
[13:13:52.534]                     -981423529L), envir = base::globalenv(), 
[13:13:52.534]                       inherits = FALSE)
[13:13:52.534]                     NULL
[13:13:52.534]                   }
[13:13:52.534]                   options(future.plan = NULL)
[13:13:52.534]                   if (is.na(NA_character_)) 
[13:13:52.534]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.534]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:52.534]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:52.534]                   {
[13:13:52.534]                     future <- SequentialFuture(..., envir = envir)
[13:13:52.534]                     if (!future$lazy) 
[13:13:52.534]                       future <- run(future)
[13:13:52.534]                     invisible(future)
[13:13:52.534]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:52.534]                 }
[13:13:52.534]             }
[13:13:52.534]         }
[13:13:52.534]     })
[13:13:52.534]     if (TRUE) {
[13:13:52.534]         base::sink(type = "output", split = FALSE)
[13:13:52.534]         if (TRUE) {
[13:13:52.534]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:52.534]         }
[13:13:52.534]         else {
[13:13:52.534]             ...future.result["stdout"] <- base::list(NULL)
[13:13:52.534]         }
[13:13:52.534]         base::close(...future.stdout)
[13:13:52.534]         ...future.stdout <- NULL
[13:13:52.534]     }
[13:13:52.534]     ...future.result$conditions <- ...future.conditions
[13:13:52.534]     ...future.result$finished <- base::Sys.time()
[13:13:52.534]     ...future.result
[13:13:52.534] }
[13:13:52.538] assign_globals() ...
[13:13:52.538] List of 5
[13:13:52.538]  $ ...future.FUN            :function (C, k)  
[13:13:52.538]  $ MoreArgs                 : NULL
[13:13:52.538]  $ ...future.elements_ii    :List of 2
[13:13:52.538]   ..$ :List of 1
[13:13:52.538]   .. ..$ : chr "C"
[13:13:52.538]   ..$ :List of 1
[13:13:52.538]   .. ..$ : int 3
[13:13:52.538]  $ ...future.seeds_ii       : NULL
[13:13:52.538]  $ ...future.globals.maxSize: NULL
[13:13:52.538]  - attr(*, "where")=List of 5
[13:13:52.538]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:52.538]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[13:13:52.538]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:52.538]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:52.538]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:52.538]  - attr(*, "resolved")= logi FALSE
[13:13:52.538]  - attr(*, "total_size")= num 3488
[13:13:52.538]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.538]  - attr(*, "already-done")= logi TRUE
[13:13:52.545] - reassign environment for '...future.FUN'
[13:13:52.545] - copied '...future.FUN' to environment
[13:13:52.545] - copied 'MoreArgs' to environment
[13:13:52.545] - copied '...future.elements_ii' to environment
[13:13:52.546] - copied '...future.seeds_ii' to environment
[13:13:52.546] - copied '...future.globals.maxSize' to environment
[13:13:52.546] assign_globals() ... done
[13:13:52.546] plan(): Setting new future strategy stack:
[13:13:52.546] List of future strategies:
[13:13:52.546] 1. sequential:
[13:13:52.546]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.546]    - tweaked: FALSE
[13:13:52.546]    - call: NULL
[13:13:52.547] plan(): nbrOfWorkers() = 1
[13:13:52.548] plan(): Setting new future strategy stack:
[13:13:52.548] List of future strategies:
[13:13:52.548] 1. sequential:
[13:13:52.548]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.548]    - tweaked: FALSE
[13:13:52.548]    - call: plan(strategy)
[13:13:52.549] plan(): nbrOfWorkers() = 1
[13:13:52.549] SequentialFuture started (and completed)
[13:13:52.549] - Launch lazy future ... done
[13:13:52.550] run() for 'SequentialFuture' ... done
[13:13:52.550] Created future:
[13:13:52.550] SequentialFuture:
[13:13:52.550] Label: 'future_mapply-2'
[13:13:52.550] Expression:
[13:13:52.550] {
[13:13:52.550]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.550]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:52.550]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.550]         on.exit(options(oopts), add = TRUE)
[13:13:52.550]     }
[13:13:52.550]     {
[13:13:52.550]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.550]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:52.550]         do.call(mapply, args = args)
[13:13:52.550]     }
[13:13:52.550] }
[13:13:52.550] Lazy evaluation: FALSE
[13:13:52.550] Asynchronous evaluation: FALSE
[13:13:52.550] Local evaluation: TRUE
[13:13:52.550] Environment: R_GlobalEnv
[13:13:52.550] Capture standard output: TRUE
[13:13:52.550] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:52.550] Globals: 5 objects totaling 3.41 KiB (function '...future.FUN' of 3.24 KiB, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 168 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:52.550] Packages: <none>
[13:13:52.550] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:52.550] Resolved: TRUE
[13:13:52.550] Value: 112 bytes of class 'list'
[13:13:52.550] Early signaling: FALSE
[13:13:52.550] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:52.550] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.551] Chunk #2 of 3 ... DONE
[13:13:52.551] Chunk #3 of 3 ...
[13:13:52.552]  - Finding globals in '...' for chunk #3 ...
[13:13:52.552] getGlobalsAndPackages() ...
[13:13:52.552] Searching for globals...
[13:13:52.552] 
[13:13:52.552] Searching for globals ... DONE
[13:13:52.553] - globals: [0] <none>
[13:13:52.553] getGlobalsAndPackages() ... DONE
[13:13:52.553]    + additional globals found: [n=0] 
[13:13:52.553]    + additional namespaces needed: [n=0] 
[13:13:52.553]  - Finding globals in '...' for chunk #3 ... DONE
[13:13:52.553]  - Adjusted option 'future.globals.maxSize': 524288000 -> 3 * 524288000 = 1572864000 (bytes)
[13:13:52.554]  - seeds: <none>
[13:13:52.554]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.554] getGlobalsAndPackages() ...
[13:13:52.554] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.554] Resolving globals: FALSE
[13:13:52.555] The total size of the 5 globals is 3.57 KiB (3656 bytes)
[13:13:52.555] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 3.57 KiB.. This exceeds the maximum allowed size of 1.46 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (3.24 KiB of class 'function'), '...future.elements_ii' (336 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:52.556] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.556] 
[13:13:52.556] getGlobalsAndPackages() ... DONE
[13:13:52.556] run() for 'Future' ...
[13:13:52.557] - state: 'created'
[13:13:52.557] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:52.557] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.557] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:52.557]   - Field: 'label'
[13:13:52.558]   - Field: 'local'
[13:13:52.558]   - Field: 'owner'
[13:13:52.558]   - Field: 'envir'
[13:13:52.558]   - Field: 'packages'
[13:13:52.558]   - Field: 'gc'
[13:13:52.559]   - Field: 'conditions'
[13:13:52.559]   - Field: 'expr'
[13:13:52.559]   - Field: 'uuid'
[13:13:52.559]   - Field: 'seed'
[13:13:52.559]   - Field: 'version'
[13:13:52.559]   - Field: 'result'
[13:13:52.560]   - Field: 'asynchronous'
[13:13:52.560]   - Field: 'calls'
[13:13:52.560]   - Field: 'globals'
[13:13:52.560]   - Field: 'stdout'
[13:13:52.560]   - Field: 'earlySignal'
[13:13:52.560]   - Field: 'lazy'
[13:13:52.561]   - Field: 'state'
[13:13:52.561] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:52.561] - Launch lazy future ...
[13:13:52.561] Packages needed by the future expression (n = 0): <none>
[13:13:52.561] Packages needed by future strategies (n = 0): <none>
[13:13:52.562] {
[13:13:52.562]     {
[13:13:52.562]         {
[13:13:52.562]             ...future.startTime <- base::Sys.time()
[13:13:52.562]             {
[13:13:52.562]                 {
[13:13:52.562]                   {
[13:13:52.562]                     base::local({
[13:13:52.562]                       has_future <- base::requireNamespace("future", 
[13:13:52.562]                         quietly = TRUE)
[13:13:52.562]                       if (has_future) {
[13:13:52.562]                         ns <- base::getNamespace("future")
[13:13:52.562]                         version <- ns[[".package"]][["version"]]
[13:13:52.562]                         if (is.null(version)) 
[13:13:52.562]                           version <- utils::packageVersion("future")
[13:13:52.562]                       }
[13:13:52.562]                       else {
[13:13:52.562]                         version <- NULL
[13:13:52.562]                       }
[13:13:52.562]                       if (!has_future || version < "1.8.0") {
[13:13:52.562]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:52.562]                           "", base::R.version$version.string), 
[13:13:52.562]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:52.562]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:52.562]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:52.562]                             "release", "version")], collapse = " "), 
[13:13:52.562]                           hostname = base::Sys.info()[["nodename"]])
[13:13:52.562]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:52.562]                           info)
[13:13:52.562]                         info <- base::paste(info, collapse = "; ")
[13:13:52.562]                         if (!has_future) {
[13:13:52.562]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:52.562]                             info)
[13:13:52.562]                         }
[13:13:52.562]                         else {
[13:13:52.562]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:52.562]                             info, version)
[13:13:52.562]                         }
[13:13:52.562]                         base::stop(msg)
[13:13:52.562]                       }
[13:13:52.562]                     })
[13:13:52.562]                   }
[13:13:52.562]                   options(future.plan = NULL)
[13:13:52.562]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.562]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:52.562]                 }
[13:13:52.562]                 ...future.workdir <- getwd()
[13:13:52.562]             }
[13:13:52.562]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:52.562]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:52.562]         }
[13:13:52.562]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:52.562]             future.globals.maxSize = 1572864000, future.globals.method = NULL, 
[13:13:52.562]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:52.562]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:52.562]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:52.562]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:52.562]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:52.562]             base::names(...future.oldOptions))
[13:13:52.562]     }
[13:13:52.562]     if (FALSE) {
[13:13:52.562]     }
[13:13:52.562]     else {
[13:13:52.562]         if (TRUE) {
[13:13:52.562]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:52.562]                 open = "w")
[13:13:52.562]         }
[13:13:52.562]         else {
[13:13:52.562]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:52.562]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:52.562]         }
[13:13:52.562]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:52.562]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:52.562]             base::sink(type = "output", split = FALSE)
[13:13:52.562]             base::close(...future.stdout)
[13:13:52.562]         }, add = TRUE)
[13:13:52.562]     }
[13:13:52.562]     ...future.frame <- base::sys.nframe()
[13:13:52.562]     ...future.conditions <- base::list()
[13:13:52.562]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:52.562]     if (FALSE) {
[13:13:52.562]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:52.562]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:52.562]     }
[13:13:52.562]     ...future.result <- base::tryCatch({
[13:13:52.562]         base::withCallingHandlers({
[13:13:52.562]             ...future.value <- base::withVisible(base::local({
[13:13:52.562]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.562]                 if (!identical(...future.globals.maxSize.org, 
[13:13:52.562]                   ...future.globals.maxSize)) {
[13:13:52.562]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.562]                   on.exit(options(oopts), add = TRUE)
[13:13:52.562]                 }
[13:13:52.562]                 {
[13:13:52.562]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.562]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:52.562]                     USE.NAMES = FALSE)
[13:13:52.562]                   do.call(mapply, args = args)
[13:13:52.562]                 }
[13:13:52.562]             }))
[13:13:52.562]             future::FutureResult(value = ...future.value$value, 
[13:13:52.562]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.562]                   ...future.rng), globalenv = if (FALSE) 
[13:13:52.562]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:52.562]                     ...future.globalenv.names))
[13:13:52.562]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:52.562]         }, condition = base::local({
[13:13:52.562]             c <- base::c
[13:13:52.562]             inherits <- base::inherits
[13:13:52.562]             invokeRestart <- base::invokeRestart
[13:13:52.562]             length <- base::length
[13:13:52.562]             list <- base::list
[13:13:52.562]             seq.int <- base::seq.int
[13:13:52.562]             signalCondition <- base::signalCondition
[13:13:52.562]             sys.calls <- base::sys.calls
[13:13:52.562]             `[[` <- base::`[[`
[13:13:52.562]             `+` <- base::`+`
[13:13:52.562]             `<<-` <- base::`<<-`
[13:13:52.562]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:52.562]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:52.562]                   3L)]
[13:13:52.562]             }
[13:13:52.562]             function(cond) {
[13:13:52.562]                 is_error <- inherits(cond, "error")
[13:13:52.562]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:52.562]                   NULL)
[13:13:52.562]                 if (is_error) {
[13:13:52.562]                   sessionInformation <- function() {
[13:13:52.562]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:52.562]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:52.562]                       search = base::search(), system = base::Sys.info())
[13:13:52.562]                   }
[13:13:52.562]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.562]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:52.562]                     cond$call), session = sessionInformation(), 
[13:13:52.562]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:52.562]                   signalCondition(cond)
[13:13:52.562]                 }
[13:13:52.562]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:52.562]                 "immediateCondition"))) {
[13:13:52.562]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:52.562]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.562]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:52.562]                   if (TRUE && !signal) {
[13:13:52.562]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.562]                     {
[13:13:52.562]                       inherits <- base::inherits
[13:13:52.562]                       invokeRestart <- base::invokeRestart
[13:13:52.562]                       is.null <- base::is.null
[13:13:52.562]                       muffled <- FALSE
[13:13:52.562]                       if (inherits(cond, "message")) {
[13:13:52.562]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.562]                         if (muffled) 
[13:13:52.562]                           invokeRestart("muffleMessage")
[13:13:52.562]                       }
[13:13:52.562]                       else if (inherits(cond, "warning")) {
[13:13:52.562]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.562]                         if (muffled) 
[13:13:52.562]                           invokeRestart("muffleWarning")
[13:13:52.562]                       }
[13:13:52.562]                       else if (inherits(cond, "condition")) {
[13:13:52.562]                         if (!is.null(pattern)) {
[13:13:52.562]                           computeRestarts <- base::computeRestarts
[13:13:52.562]                           grepl <- base::grepl
[13:13:52.562]                           restarts <- computeRestarts(cond)
[13:13:52.562]                           for (restart in restarts) {
[13:13:52.562]                             name <- restart$name
[13:13:52.562]                             if (is.null(name)) 
[13:13:52.562]                               next
[13:13:52.562]                             if (!grepl(pattern, name)) 
[13:13:52.562]                               next
[13:13:52.562]                             invokeRestart(restart)
[13:13:52.562]                             muffled <- TRUE
[13:13:52.562]                             break
[13:13:52.562]                           }
[13:13:52.562]                         }
[13:13:52.562]                       }
[13:13:52.562]                       invisible(muffled)
[13:13:52.562]                     }
[13:13:52.562]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.562]                   }
[13:13:52.562]                 }
[13:13:52.562]                 else {
[13:13:52.562]                   if (TRUE) {
[13:13:52.562]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.562]                     {
[13:13:52.562]                       inherits <- base::inherits
[13:13:52.562]                       invokeRestart <- base::invokeRestart
[13:13:52.562]                       is.null <- base::is.null
[13:13:52.562]                       muffled <- FALSE
[13:13:52.562]                       if (inherits(cond, "message")) {
[13:13:52.562]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.562]                         if (muffled) 
[13:13:52.562]                           invokeRestart("muffleMessage")
[13:13:52.562]                       }
[13:13:52.562]                       else if (inherits(cond, "warning")) {
[13:13:52.562]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.562]                         if (muffled) 
[13:13:52.562]                           invokeRestart("muffleWarning")
[13:13:52.562]                       }
[13:13:52.562]                       else if (inherits(cond, "condition")) {
[13:13:52.562]                         if (!is.null(pattern)) {
[13:13:52.562]                           computeRestarts <- base::computeRestarts
[13:13:52.562]                           grepl <- base::grepl
[13:13:52.562]                           restarts <- computeRestarts(cond)
[13:13:52.562]                           for (restart in restarts) {
[13:13:52.562]                             name <- restart$name
[13:13:52.562]                             if (is.null(name)) 
[13:13:52.562]                               next
[13:13:52.562]                             if (!grepl(pattern, name)) 
[13:13:52.562]                               next
[13:13:52.562]                             invokeRestart(restart)
[13:13:52.562]                             muffled <- TRUE
[13:13:52.562]                             break
[13:13:52.562]                           }
[13:13:52.562]                         }
[13:13:52.562]                       }
[13:13:52.562]                       invisible(muffled)
[13:13:52.562]                     }
[13:13:52.562]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.562]                   }
[13:13:52.562]                 }
[13:13:52.562]             }
[13:13:52.562]         }))
[13:13:52.562]     }, error = function(ex) {
[13:13:52.562]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:52.562]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.562]                 ...future.rng), started = ...future.startTime, 
[13:13:52.562]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:52.562]             version = "1.8"), class = "FutureResult")
[13:13:52.562]     }, finally = {
[13:13:52.562]         if (!identical(...future.workdir, getwd())) 
[13:13:52.562]             setwd(...future.workdir)
[13:13:52.562]         {
[13:13:52.562]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:52.562]                 ...future.oldOptions$nwarnings <- NULL
[13:13:52.562]             }
[13:13:52.562]             base::options(...future.oldOptions)
[13:13:52.562]             if (.Platform$OS.type == "windows") {
[13:13:52.562]                 old_names <- names(...future.oldEnvVars)
[13:13:52.562]                 envs <- base::Sys.getenv()
[13:13:52.562]                 names <- names(envs)
[13:13:52.562]                 common <- intersect(names, old_names)
[13:13:52.562]                 added <- setdiff(names, old_names)
[13:13:52.562]                 removed <- setdiff(old_names, names)
[13:13:52.562]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:52.562]                   envs[common]]
[13:13:52.562]                 NAMES <- toupper(changed)
[13:13:52.562]                 args <- list()
[13:13:52.562]                 for (kk in seq_along(NAMES)) {
[13:13:52.562]                   name <- changed[[kk]]
[13:13:52.562]                   NAME <- NAMES[[kk]]
[13:13:52.562]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.562]                     next
[13:13:52.562]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.562]                 }
[13:13:52.562]                 NAMES <- toupper(added)
[13:13:52.562]                 for (kk in seq_along(NAMES)) {
[13:13:52.562]                   name <- added[[kk]]
[13:13:52.562]                   NAME <- NAMES[[kk]]
[13:13:52.562]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.562]                     next
[13:13:52.562]                   args[[name]] <- ""
[13:13:52.562]                 }
[13:13:52.562]                 NAMES <- toupper(removed)
[13:13:52.562]                 for (kk in seq_along(NAMES)) {
[13:13:52.562]                   name <- removed[[kk]]
[13:13:52.562]                   NAME <- NAMES[[kk]]
[13:13:52.562]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.562]                     next
[13:13:52.562]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.562]                 }
[13:13:52.562]                 if (length(args) > 0) 
[13:13:52.562]                   base::do.call(base::Sys.setenv, args = args)
[13:13:52.562]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:52.562]             }
[13:13:52.562]             else {
[13:13:52.562]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:52.562]             }
[13:13:52.562]             {
[13:13:52.562]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:52.562]                   0L) {
[13:13:52.562]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:52.562]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:52.562]                   base::options(opts)
[13:13:52.562]                 }
[13:13:52.562]                 {
[13:13:52.562]                   {
[13:13:52.562]                     base::assign(".Random.seed", c(10407L, -1918733616L, 
[13:13:52.562]                     1584354639L, -1174970862L, -939885817L, 1422965938L, 
[13:13:52.562]                     -981423529L), envir = base::globalenv(), 
[13:13:52.562]                       inherits = FALSE)
[13:13:52.562]                     NULL
[13:13:52.562]                   }
[13:13:52.562]                   options(future.plan = NULL)
[13:13:52.562]                   if (is.na(NA_character_)) 
[13:13:52.562]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.562]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:52.562]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:52.562]                   {
[13:13:52.562]                     future <- SequentialFuture(..., envir = envir)
[13:13:52.562]                     if (!future$lazy) 
[13:13:52.562]                       future <- run(future)
[13:13:52.562]                     invisible(future)
[13:13:52.562]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:52.562]                 }
[13:13:52.562]             }
[13:13:52.562]         }
[13:13:52.562]     })
[13:13:52.562]     if (TRUE) {
[13:13:52.562]         base::sink(type = "output", split = FALSE)
[13:13:52.562]         if (TRUE) {
[13:13:52.562]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:52.562]         }
[13:13:52.562]         else {
[13:13:52.562]             ...future.result["stdout"] <- base::list(NULL)
[13:13:52.562]         }
[13:13:52.562]         base::close(...future.stdout)
[13:13:52.562]         ...future.stdout <- NULL
[13:13:52.562]     }
[13:13:52.562]     ...future.result$conditions <- ...future.conditions
[13:13:52.562]     ...future.result$finished <- base::Sys.time()
[13:13:52.562]     ...future.result
[13:13:52.562] }
[13:13:52.566] assign_globals() ...
[13:13:52.566] List of 5
[13:13:52.566]  $ ...future.FUN            :function (C, k)  
[13:13:52.566]  $ MoreArgs                 : NULL
[13:13:52.566]  $ ...future.elements_ii    :List of 2
[13:13:52.566]   ..$ :List of 2
[13:13:52.566]   .. ..$ : chr "A"
[13:13:52.566]   .. ..$ : chr "E"
[13:13:52.566]   ..$ :List of 2
[13:13:52.566]   .. ..$ : int 5
[13:13:52.566]   .. ..$ : int 1
[13:13:52.566]  $ ...future.seeds_ii       : NULL
[13:13:52.566]  $ ...future.globals.maxSize: NULL
[13:13:52.566]  - attr(*, "where")=List of 5
[13:13:52.566]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:52.566]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[13:13:52.566]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:52.566]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:52.566]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:52.566]  - attr(*, "resolved")= logi FALSE
[13:13:52.566]  - attr(*, "total_size")= num 3656
[13:13:52.566]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.566]  - attr(*, "already-done")= logi TRUE
[13:13:52.573] - reassign environment for '...future.FUN'
[13:13:52.574] - copied '...future.FUN' to environment
[13:13:52.574] - copied 'MoreArgs' to environment
[13:13:52.574] - copied '...future.elements_ii' to environment
[13:13:52.574] - copied '...future.seeds_ii' to environment
[13:13:52.574] - copied '...future.globals.maxSize' to environment
[13:13:52.574] assign_globals() ... done
[13:13:52.575] plan(): Setting new future strategy stack:
[13:13:52.575] List of future strategies:
[13:13:52.575] 1. sequential:
[13:13:52.575]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.575]    - tweaked: FALSE
[13:13:52.575]    - call: NULL
[13:13:52.576] plan(): nbrOfWorkers() = 1
[13:13:52.577] plan(): Setting new future strategy stack:
[13:13:52.577] List of future strategies:
[13:13:52.577] 1. sequential:
[13:13:52.577]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.577]    - tweaked: FALSE
[13:13:52.577]    - call: plan(strategy)
[13:13:52.578] plan(): nbrOfWorkers() = 1
[13:13:52.578] SequentialFuture started (and completed)
[13:13:52.579] - Launch lazy future ... done
[13:13:52.579] run() for 'SequentialFuture' ... done
[13:13:52.579] Created future:
[13:13:52.579] SequentialFuture:
[13:13:52.579] Label: 'future_mapply-3'
[13:13:52.579] Expression:
[13:13:52.579] {
[13:13:52.579]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.579]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:52.579]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.579]         on.exit(options(oopts), add = TRUE)
[13:13:52.579]     }
[13:13:52.579]     {
[13:13:52.579]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.579]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:52.579]         do.call(mapply, args = args)
[13:13:52.579]     }
[13:13:52.579] }
[13:13:52.579] Lazy evaluation: FALSE
[13:13:52.579] Asynchronous evaluation: FALSE
[13:13:52.579] Local evaluation: TRUE
[13:13:52.579] Environment: R_GlobalEnv
[13:13:52.579] Capture standard output: TRUE
[13:13:52.579] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:52.579] Globals: 5 objects totaling 3.57 KiB (function '...future.FUN' of 3.24 KiB, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 336 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:52.579] Packages: <none>
[13:13:52.579] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:52.579] Resolved: TRUE
[13:13:52.579] Value: 224 bytes of class 'list'
[13:13:52.579] Early signaling: FALSE
[13:13:52.579] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:52.579] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.580] Chunk #3 of 3 ... DONE
[13:13:52.580] Launching 3 futures (chunks) ... DONE
[13:13:52.581] Resolving 3 futures (chunks) ...
[13:13:52.581] resolve() on list ...
[13:13:52.581]  recursive: 0
[13:13:52.581]  length: 3
[13:13:52.581] 
[13:13:52.581] resolved() for 'SequentialFuture' ...
[13:13:52.582] - state: 'finished'
[13:13:52.582] - run: TRUE
[13:13:52.582] - result: 'FutureResult'
[13:13:52.582] resolved() for 'SequentialFuture' ... done
[13:13:52.582] Future #1
[13:13:52.582] signalConditionsASAP(SequentialFuture, pos=1) ...
[13:13:52.583] - nx: 3
[13:13:52.583] - relay: TRUE
[13:13:52.583] - stdout: TRUE
[13:13:52.583] - signal: TRUE
[13:13:52.583] - resignal: FALSE
[13:13:52.583] - force: TRUE
[13:13:52.584] - relayed: [n=3] FALSE, FALSE, FALSE
[13:13:52.584] - queued futures: [n=3] FALSE, FALSE, FALSE
[13:13:52.584]  - until=1
[13:13:52.584]  - relaying element #1
[13:13:52.584] - relayed: [n=3] TRUE, FALSE, FALSE
[13:13:52.584] - queued futures: [n=3] TRUE, FALSE, FALSE
[13:13:52.585] signalConditionsASAP(SequentialFuture, pos=1) ... done
[13:13:52.585]  length: 2 (resolved future 1)
[13:13:52.585] resolved() for 'SequentialFuture' ...
[13:13:52.585] - state: 'finished'
[13:13:52.585] - run: TRUE
[13:13:52.586] - result: 'FutureResult'
[13:13:52.586] resolved() for 'SequentialFuture' ... done
[13:13:52.586] Future #2
[13:13:52.586] signalConditionsASAP(SequentialFuture, pos=2) ...
[13:13:52.586] - nx: 3
[13:13:52.586] - relay: TRUE
[13:13:52.587] - stdout: TRUE
[13:13:52.587] - signal: TRUE
[13:13:52.587] - resignal: FALSE
[13:13:52.587] - force: TRUE
[13:13:52.587] - relayed: [n=3] TRUE, FALSE, FALSE
[13:13:52.587] - queued futures: [n=3] TRUE, FALSE, FALSE
[13:13:52.587]  - until=2
[13:13:52.588]  - relaying element #2
[13:13:52.588] - relayed: [n=3] TRUE, TRUE, FALSE
[13:13:52.588] - queued futures: [n=3] TRUE, TRUE, FALSE
[13:13:52.588] signalConditionsASAP(SequentialFuture, pos=2) ... done
[13:13:52.588]  length: 1 (resolved future 2)
[13:13:52.589] resolved() for 'SequentialFuture' ...
[13:13:52.589] - state: 'finished'
[13:13:52.589] - run: TRUE
[13:13:52.589] - result: 'FutureResult'
[13:13:52.589] resolved() for 'SequentialFuture' ... done
[13:13:52.589] Future #3
[13:13:52.590] signalConditionsASAP(SequentialFuture, pos=3) ...
[13:13:52.590] - nx: 3
[13:13:52.590] - relay: TRUE
[13:13:52.590] - stdout: TRUE
[13:13:52.590] - signal: TRUE
[13:13:52.590] - resignal: FALSE
[13:13:52.591] - force: TRUE
[13:13:52.591] - relayed: [n=3] TRUE, TRUE, FALSE
[13:13:52.591] - queued futures: [n=3] TRUE, TRUE, FALSE
[13:13:52.591]  - until=3
[13:13:52.591]  - relaying element #3
[13:13:52.592] - relayed: [n=3] TRUE, TRUE, TRUE
[13:13:52.592] - queued futures: [n=3] TRUE, TRUE, TRUE
[13:13:52.592] signalConditionsASAP(SequentialFuture, pos=3) ... done
[13:13:52.592]  length: 0 (resolved future 3)
[13:13:52.592] Relaying remaining futures
[13:13:52.592] signalConditionsASAP(NULL, pos=0) ...
[13:13:52.593] - nx: 3
[13:13:52.593] - relay: TRUE
[13:13:52.593] - stdout: TRUE
[13:13:52.593] - signal: TRUE
[13:13:52.593] - resignal: FALSE
[13:13:52.593] - force: TRUE
[13:13:52.593] - relayed: [n=3] TRUE, TRUE, TRUE
[13:13:52.594] - queued futures: [n=3] TRUE, TRUE, TRUE
 - flush all
[13:13:52.594] - relayed: [n=3] TRUE, TRUE, TRUE
[13:13:52.594] - queued futures: [n=3] TRUE, TRUE, TRUE
[13:13:52.594] signalConditionsASAP(NULL, pos=0) ... done
[13:13:52.594] resolve() on list ... DONE
[13:13:52.595]  - Number of value chunks collected: 3
[13:13:52.595] Resolving 3 futures (chunks) ... DONE
[13:13:52.595] Reducing values from 3 chunks ...
[13:13:52.596]  - Number of values collected after concatenation: 5
[13:13:52.596]  - Number of values expected: 5
[13:13:52.596] Reverse index remapping (attribute 'ordering'): [n = 5] 4, 1, 3, 2, 5
[13:13:52.597] Reducing values from 3 chunks ... DONE
[13:13:52.597] future_mapply() ... DONE
[13:13:52.597] future_mapply() ...
[13:13:52.597] Number of chunks: 1
[13:13:52.597] getGlobalsAndPackagesXApply() ...
[13:13:52.598]  - future.globals: TRUE
[13:13:52.598] getGlobalsAndPackages() ...
[13:13:52.598] Searching for globals...
[13:13:52.599] - globals found: [3] 'FUN', 'paste', 'rep.int'
[13:13:52.600] Searching for globals ... DONE
[13:13:52.600] Resolving globals: FALSE
[13:13:52.600] The total size of the 1 globals is 3.24 KiB (3320 bytes)
[13:13:52.601] The total size of the 1 globals exported for future expression ('FUN()') is 3.24 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (3.24 KiB of class 'function')
[13:13:52.601] - globals: [1] 'FUN'
[13:13:52.601] 
[13:13:52.601] getGlobalsAndPackages() ... DONE
[13:13:52.601]  - globals found/used: [n=1] 'FUN'
[13:13:52.602]  - needed namespaces: [n=0] 
[13:13:52.602] Finding globals ... DONE
[13:13:52.602] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:52.602] List of 2
[13:13:52.602]  $ ...future.FUN:function (C, k)  
[13:13:52.602]  $ MoreArgs     : list()
[13:13:52.602]  - attr(*, "where")=List of 2
[13:13:52.602]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:52.602]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:52.602]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.602]  - attr(*, "resolved")= logi FALSE
[13:13:52.602]  - attr(*, "total_size")= num NA
[13:13:52.605] Packages to be attached in all futures: [n=0] 
[13:13:52.605] getGlobalsAndPackagesXApply() ... DONE
[13:13:52.605] Number of futures (= number of chunks): 1
[13:13:52.606] Launching 1 futures (chunks) ...
[13:13:52.606] Chunk #1 of 1 ...
[13:13:52.606]  - Finding globals in '...' for chunk #1 ...
[13:13:52.606] getGlobalsAndPackages() ...
[13:13:52.606] Searching for globals...
[13:13:52.607] 
[13:13:52.607] Searching for globals ... DONE
[13:13:52.607] - globals: [0] <none>
[13:13:52.607] getGlobalsAndPackages() ... DONE
[13:13:52.607]    + additional globals found: [n=0] 
[13:13:52.608]    + additional namespaces needed: [n=0] 
[13:13:52.608]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:52.608]  - seeds: <none>
[13:13:52.608]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.608] getGlobalsAndPackages() ...
[13:13:52.608] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.609] Resolving globals: FALSE
[13:13:52.609] The total size of the 5 globals is 4.06 KiB (4160 bytes)
[13:13:52.610] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 4.06 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (3.24 KiB of class 'function'), '...future.elements_ii' (840 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'list')
[13:13:52.610] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.610] 
[13:13:52.610] getGlobalsAndPackages() ... DONE
[13:13:52.611] run() for 'Future' ...
[13:13:52.611] - state: 'created'
[13:13:52.611] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:52.611] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.612] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:52.612]   - Field: 'label'
[13:13:52.612]   - Field: 'local'
[13:13:52.612]   - Field: 'owner'
[13:13:52.612]   - Field: 'envir'
[13:13:52.613]   - Field: 'packages'
[13:13:52.613]   - Field: 'gc'
[13:13:52.613]   - Field: 'conditions'
[13:13:52.613]   - Field: 'expr'
[13:13:52.613]   - Field: 'uuid'
[13:13:52.613]   - Field: 'seed'
[13:13:52.614]   - Field: 'version'
[13:13:52.614]   - Field: 'result'
[13:13:52.614]   - Field: 'asynchronous'
[13:13:52.614]   - Field: 'calls'
[13:13:52.614]   - Field: 'globals'
[13:13:52.614]   - Field: 'stdout'
[13:13:52.615]   - Field: 'earlySignal'
[13:13:52.615]   - Field: 'lazy'
[13:13:52.615]   - Field: 'state'
[13:13:52.615] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:52.615] - Launch lazy future ...
[13:13:52.616] Packages needed by the future expression (n = 0): <none>
[13:13:52.616] Packages needed by future strategies (n = 0): <none>
[13:13:52.616] {
[13:13:52.616]     {
[13:13:52.616]         {
[13:13:52.616]             ...future.startTime <- base::Sys.time()
[13:13:52.616]             {
[13:13:52.616]                 {
[13:13:52.616]                   {
[13:13:52.616]                     base::local({
[13:13:52.616]                       has_future <- base::requireNamespace("future", 
[13:13:52.616]                         quietly = TRUE)
[13:13:52.616]                       if (has_future) {
[13:13:52.616]                         ns <- base::getNamespace("future")
[13:13:52.616]                         version <- ns[[".package"]][["version"]]
[13:13:52.616]                         if (is.null(version)) 
[13:13:52.616]                           version <- utils::packageVersion("future")
[13:13:52.616]                       }
[13:13:52.616]                       else {
[13:13:52.616]                         version <- NULL
[13:13:52.616]                       }
[13:13:52.616]                       if (!has_future || version < "1.8.0") {
[13:13:52.616]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:52.616]                           "", base::R.version$version.string), 
[13:13:52.616]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:52.616]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:52.616]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:52.616]                             "release", "version")], collapse = " "), 
[13:13:52.616]                           hostname = base::Sys.info()[["nodename"]])
[13:13:52.616]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:52.616]                           info)
[13:13:52.616]                         info <- base::paste(info, collapse = "; ")
[13:13:52.616]                         if (!has_future) {
[13:13:52.616]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:52.616]                             info)
[13:13:52.616]                         }
[13:13:52.616]                         else {
[13:13:52.616]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:52.616]                             info, version)
[13:13:52.616]                         }
[13:13:52.616]                         base::stop(msg)
[13:13:52.616]                       }
[13:13:52.616]                     })
[13:13:52.616]                   }
[13:13:52.616]                   options(future.plan = NULL)
[13:13:52.616]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.616]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:52.616]                 }
[13:13:52.616]                 ...future.workdir <- getwd()
[13:13:52.616]             }
[13:13:52.616]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:52.616]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:52.616]         }
[13:13:52.616]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:52.616]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[13:13:52.616]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:52.616]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:52.616]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:52.616]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:52.616]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:52.616]             base::names(...future.oldOptions))
[13:13:52.616]     }
[13:13:52.616]     if (FALSE) {
[13:13:52.616]     }
[13:13:52.616]     else {
[13:13:52.616]         if (TRUE) {
[13:13:52.616]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:52.616]                 open = "w")
[13:13:52.616]         }
[13:13:52.616]         else {
[13:13:52.616]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:52.616]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:52.616]         }
[13:13:52.616]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:52.616]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:52.616]             base::sink(type = "output", split = FALSE)
[13:13:52.616]             base::close(...future.stdout)
[13:13:52.616]         }, add = TRUE)
[13:13:52.616]     }
[13:13:52.616]     ...future.frame <- base::sys.nframe()
[13:13:52.616]     ...future.conditions <- base::list()
[13:13:52.616]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:52.616]     if (FALSE) {
[13:13:52.616]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:52.616]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:52.616]     }
[13:13:52.616]     ...future.result <- base::tryCatch({
[13:13:52.616]         base::withCallingHandlers({
[13:13:52.616]             ...future.value <- base::withVisible(base::local({
[13:13:52.616]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.616]                 if (!identical(...future.globals.maxSize.org, 
[13:13:52.616]                   ...future.globals.maxSize)) {
[13:13:52.616]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.616]                   on.exit(options(oopts), add = TRUE)
[13:13:52.616]                 }
[13:13:52.616]                 {
[13:13:52.616]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.616]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:52.616]                     USE.NAMES = FALSE)
[13:13:52.616]                   do.call(mapply, args = args)
[13:13:52.616]                 }
[13:13:52.616]             }))
[13:13:52.616]             future::FutureResult(value = ...future.value$value, 
[13:13:52.616]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.616]                   ...future.rng), globalenv = if (FALSE) 
[13:13:52.616]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:52.616]                     ...future.globalenv.names))
[13:13:52.616]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:52.616]         }, condition = base::local({
[13:13:52.616]             c <- base::c
[13:13:52.616]             inherits <- base::inherits
[13:13:52.616]             invokeRestart <- base::invokeRestart
[13:13:52.616]             length <- base::length
[13:13:52.616]             list <- base::list
[13:13:52.616]             seq.int <- base::seq.int
[13:13:52.616]             signalCondition <- base::signalCondition
[13:13:52.616]             sys.calls <- base::sys.calls
[13:13:52.616]             `[[` <- base::`[[`
[13:13:52.616]             `+` <- base::`+`
[13:13:52.616]             `<<-` <- base::`<<-`
[13:13:52.616]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:52.616]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:52.616]                   3L)]
[13:13:52.616]             }
[13:13:52.616]             function(cond) {
[13:13:52.616]                 is_error <- inherits(cond, "error")
[13:13:52.616]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:52.616]                   NULL)
[13:13:52.616]                 if (is_error) {
[13:13:52.616]                   sessionInformation <- function() {
[13:13:52.616]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:52.616]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:52.616]                       search = base::search(), system = base::Sys.info())
[13:13:52.616]                   }
[13:13:52.616]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.616]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:52.616]                     cond$call), session = sessionInformation(), 
[13:13:52.616]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:52.616]                   signalCondition(cond)
[13:13:52.616]                 }
[13:13:52.616]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:52.616]                 "immediateCondition"))) {
[13:13:52.616]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:52.616]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.616]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:52.616]                   if (TRUE && !signal) {
[13:13:52.616]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.616]                     {
[13:13:52.616]                       inherits <- base::inherits
[13:13:52.616]                       invokeRestart <- base::invokeRestart
[13:13:52.616]                       is.null <- base::is.null
[13:13:52.616]                       muffled <- FALSE
[13:13:52.616]                       if (inherits(cond, "message")) {
[13:13:52.616]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.616]                         if (muffled) 
[13:13:52.616]                           invokeRestart("muffleMessage")
[13:13:52.616]                       }
[13:13:52.616]                       else if (inherits(cond, "warning")) {
[13:13:52.616]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.616]                         if (muffled) 
[13:13:52.616]                           invokeRestart("muffleWarning")
[13:13:52.616]                       }
[13:13:52.616]                       else if (inherits(cond, "condition")) {
[13:13:52.616]                         if (!is.null(pattern)) {
[13:13:52.616]                           computeRestarts <- base::computeRestarts
[13:13:52.616]                           grepl <- base::grepl
[13:13:52.616]                           restarts <- computeRestarts(cond)
[13:13:52.616]                           for (restart in restarts) {
[13:13:52.616]                             name <- restart$name
[13:13:52.616]                             if (is.null(name)) 
[13:13:52.616]                               next
[13:13:52.616]                             if (!grepl(pattern, name)) 
[13:13:52.616]                               next
[13:13:52.616]                             invokeRestart(restart)
[13:13:52.616]                             muffled <- TRUE
[13:13:52.616]                             break
[13:13:52.616]                           }
[13:13:52.616]                         }
[13:13:52.616]                       }
[13:13:52.616]                       invisible(muffled)
[13:13:52.616]                     }
[13:13:52.616]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.616]                   }
[13:13:52.616]                 }
[13:13:52.616]                 else {
[13:13:52.616]                   if (TRUE) {
[13:13:52.616]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.616]                     {
[13:13:52.616]                       inherits <- base::inherits
[13:13:52.616]                       invokeRestart <- base::invokeRestart
[13:13:52.616]                       is.null <- base::is.null
[13:13:52.616]                       muffled <- FALSE
[13:13:52.616]                       if (inherits(cond, "message")) {
[13:13:52.616]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.616]                         if (muffled) 
[13:13:52.616]                           invokeRestart("muffleMessage")
[13:13:52.616]                       }
[13:13:52.616]                       else if (inherits(cond, "warning")) {
[13:13:52.616]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.616]                         if (muffled) 
[13:13:52.616]                           invokeRestart("muffleWarning")
[13:13:52.616]                       }
[13:13:52.616]                       else if (inherits(cond, "condition")) {
[13:13:52.616]                         if (!is.null(pattern)) {
[13:13:52.616]                           computeRestarts <- base::computeRestarts
[13:13:52.616]                           grepl <- base::grepl
[13:13:52.616]                           restarts <- computeRestarts(cond)
[13:13:52.616]                           for (restart in restarts) {
[13:13:52.616]                             name <- restart$name
[13:13:52.616]                             if (is.null(name)) 
[13:13:52.616]                               next
[13:13:52.616]                             if (!grepl(pattern, name)) 
[13:13:52.616]                               next
[13:13:52.616]                             invokeRestart(restart)
[13:13:52.616]                             muffled <- TRUE
[13:13:52.616]                             break
[13:13:52.616]                           }
[13:13:52.616]                         }
[13:13:52.616]                       }
[13:13:52.616]                       invisible(muffled)
[13:13:52.616]                     }
[13:13:52.616]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.616]                   }
[13:13:52.616]                 }
[13:13:52.616]             }
[13:13:52.616]         }))
[13:13:52.616]     }, error = function(ex) {
[13:13:52.616]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:52.616]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.616]                 ...future.rng), started = ...future.startTime, 
[13:13:52.616]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:52.616]             version = "1.8"), class = "FutureResult")
[13:13:52.616]     }, finally = {
[13:13:52.616]         if (!identical(...future.workdir, getwd())) 
[13:13:52.616]             setwd(...future.workdir)
[13:13:52.616]         {
[13:13:52.616]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:52.616]                 ...future.oldOptions$nwarnings <- NULL
[13:13:52.616]             }
[13:13:52.616]             base::options(...future.oldOptions)
[13:13:52.616]             if (.Platform$OS.type == "windows") {
[13:13:52.616]                 old_names <- names(...future.oldEnvVars)
[13:13:52.616]                 envs <- base::Sys.getenv()
[13:13:52.616]                 names <- names(envs)
[13:13:52.616]                 common <- intersect(names, old_names)
[13:13:52.616]                 added <- setdiff(names, old_names)
[13:13:52.616]                 removed <- setdiff(old_names, names)
[13:13:52.616]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:52.616]                   envs[common]]
[13:13:52.616]                 NAMES <- toupper(changed)
[13:13:52.616]                 args <- list()
[13:13:52.616]                 for (kk in seq_along(NAMES)) {
[13:13:52.616]                   name <- changed[[kk]]
[13:13:52.616]                   NAME <- NAMES[[kk]]
[13:13:52.616]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.616]                     next
[13:13:52.616]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.616]                 }
[13:13:52.616]                 NAMES <- toupper(added)
[13:13:52.616]                 for (kk in seq_along(NAMES)) {
[13:13:52.616]                   name <- added[[kk]]
[13:13:52.616]                   NAME <- NAMES[[kk]]
[13:13:52.616]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.616]                     next
[13:13:52.616]                   args[[name]] <- ""
[13:13:52.616]                 }
[13:13:52.616]                 NAMES <- toupper(removed)
[13:13:52.616]                 for (kk in seq_along(NAMES)) {
[13:13:52.616]                   name <- removed[[kk]]
[13:13:52.616]                   NAME <- NAMES[[kk]]
[13:13:52.616]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.616]                     next
[13:13:52.616]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.616]                 }
[13:13:52.616]                 if (length(args) > 0) 
[13:13:52.616]                   base::do.call(base::Sys.setenv, args = args)
[13:13:52.616]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:52.616]             }
[13:13:52.616]             else {
[13:13:52.616]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:52.616]             }
[13:13:52.616]             {
[13:13:52.616]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:52.616]                   0L) {
[13:13:52.616]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:52.616]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:52.616]                   base::options(opts)
[13:13:52.616]                 }
[13:13:52.616]                 {
[13:13:52.616]                   {
[13:13:52.616]                     base::assign(".Random.seed", c(10407L, -1918733616L, 
[13:13:52.616]                     1584354639L, -1174970862L, -939885817L, 1422965938L, 
[13:13:52.616]                     -981423529L), envir = base::globalenv(), 
[13:13:52.616]                       inherits = FALSE)
[13:13:52.616]                     NULL
[13:13:52.616]                   }
[13:13:52.616]                   options(future.plan = NULL)
[13:13:52.616]                   if (is.na(NA_character_)) 
[13:13:52.616]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.616]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:52.616]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:52.616]                   {
[13:13:52.616]                     future <- SequentialFuture(..., envir = envir)
[13:13:52.616]                     if (!future$lazy) 
[13:13:52.616]                       future <- run(future)
[13:13:52.616]                     invisible(future)
[13:13:52.616]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:52.616]                 }
[13:13:52.616]             }
[13:13:52.616]         }
[13:13:52.616]     })
[13:13:52.616]     if (TRUE) {
[13:13:52.616]         base::sink(type = "output", split = FALSE)
[13:13:52.616]         if (TRUE) {
[13:13:52.616]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:52.616]         }
[13:13:52.616]         else {
[13:13:52.616]             ...future.result["stdout"] <- base::list(NULL)
[13:13:52.616]         }
[13:13:52.616]         base::close(...future.stdout)
[13:13:52.616]         ...future.stdout <- NULL
[13:13:52.616]     }
[13:13:52.616]     ...future.result$conditions <- ...future.conditions
[13:13:52.616]     ...future.result$finished <- base::Sys.time()
[13:13:52.616]     ...future.result
[13:13:52.616] }
[13:13:52.620] assign_globals() ...
[13:13:52.620] List of 5
[13:13:52.620]  $ ...future.FUN            :function (C, k)  
[13:13:52.620]  $ MoreArgs                 : list()
[13:13:52.620]  $ ...future.elements_ii    :List of 2
[13:13:52.620]   ..$ :List of 5
[13:13:52.620]   .. ..$ : chr "A"
[13:13:52.620]   .. ..$ : chr "B"
[13:13:52.620]   .. ..$ : chr "C"
[13:13:52.620]   .. ..$ : chr "D"
[13:13:52.620]   .. ..$ : chr "E"
[13:13:52.620]   ..$ :List of 5
[13:13:52.620]   .. ..$ : int 5
[13:13:52.620]   .. ..$ : int 4
[13:13:52.620]   .. ..$ : int 3
[13:13:52.620]   .. ..$ : int 2
[13:13:52.620]   .. ..$ : int 1
[13:13:52.620]  $ ...future.seeds_ii       : NULL
[13:13:52.620]  $ ...future.globals.maxSize: NULL
[13:13:52.620]  - attr(*, "where")=List of 5
[13:13:52.620]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:52.620]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[13:13:52.620]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:52.620]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:52.620]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:52.620]  - attr(*, "resolved")= logi FALSE
[13:13:52.620]  - attr(*, "total_size")= num 4160
[13:13:52.620]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.620]  - attr(*, "already-done")= logi TRUE
[13:13:52.630] - reassign environment for '...future.FUN'
[13:13:52.630] - copied '...future.FUN' to environment
[13:13:52.630] - copied 'MoreArgs' to environment
[13:13:52.630] - copied '...future.elements_ii' to environment
[13:13:52.630] - copied '...future.seeds_ii' to environment
[13:13:52.630] - copied '...future.globals.maxSize' to environment
[13:13:52.631] assign_globals() ... done
[13:13:52.631] plan(): Setting new future strategy stack:
[13:13:52.631] List of future strategies:
[13:13:52.631] 1. sequential:
[13:13:52.631]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.631]    - tweaked: FALSE
[13:13:52.631]    - call: NULL
[13:13:52.632] plan(): nbrOfWorkers() = 1
[13:13:52.633] plan(): Setting new future strategy stack:
[13:13:52.633] List of future strategies:
[13:13:52.633] 1. sequential:
[13:13:52.633]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.633]    - tweaked: FALSE
[13:13:52.633]    - call: plan(strategy)
[13:13:52.634] plan(): nbrOfWorkers() = 1
[13:13:52.634] SequentialFuture started (and completed)
[13:13:52.634] - Launch lazy future ... done
[13:13:52.634] run() for 'SequentialFuture' ... done
[13:13:52.635] Created future:
[13:13:52.635] SequentialFuture:
[13:13:52.635] Label: 'future_.mapply-1'
[13:13:52.635] Expression:
[13:13:52.635] {
[13:13:52.635]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.635]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:52.635]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.635]         on.exit(options(oopts), add = TRUE)
[13:13:52.635]     }
[13:13:52.635]     {
[13:13:52.635]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.635]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:52.635]         do.call(mapply, args = args)
[13:13:52.635]     }
[13:13:52.635] }
[13:13:52.635] Lazy evaluation: FALSE
[13:13:52.635] Asynchronous evaluation: FALSE
[13:13:52.635] Local evaluation: TRUE
[13:13:52.635] Environment: R_GlobalEnv
[13:13:52.635] Capture standard output: TRUE
[13:13:52.635] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:52.635] Globals: 5 objects totaling 4.06 KiB (function '...future.FUN' of 3.24 KiB, list 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 840 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:52.635] Packages: <none>
[13:13:52.635] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:52.635] Resolved: TRUE
[13:13:52.635] Value: 560 bytes of class 'list'
[13:13:52.635] Early signaling: FALSE
[13:13:52.635] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:52.635] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.636] Chunk #1 of 1 ... DONE
[13:13:52.636] Launching 1 futures (chunks) ... DONE
[13:13:52.636] Resolving 1 futures (chunks) ...
[13:13:52.636] resolve() on list ...
[13:13:52.637]  recursive: 0
[13:13:52.637]  length: 1
[13:13:52.637] 
[13:13:52.637] resolved() for 'SequentialFuture' ...
[13:13:52.637] - state: 'finished'
[13:13:52.637] - run: TRUE
[13:13:52.638] - result: 'FutureResult'
[13:13:52.638] resolved() for 'SequentialFuture' ... done
[13:13:52.638] Future #1
[13:13:52.638] signalConditionsASAP(SequentialFuture, pos=1) ...
[13:13:52.639] - nx: 1
[13:13:52.639] - relay: TRUE
[13:13:52.639] - stdout: TRUE
[13:13:52.639] - signal: TRUE
[13:13:52.639] - resignal: FALSE
[13:13:52.639] - force: TRUE
[13:13:52.639] - relayed: [n=1] FALSE
[13:13:52.640] - queued futures: [n=1] FALSE
[13:13:52.640]  - until=1
[13:13:52.640]  - relaying element #1
[13:13:52.640] - relayed: [n=1] TRUE
[13:13:52.640] - queued futures: [n=1] TRUE
[13:13:52.640] signalConditionsASAP(SequentialFuture, pos=1) ... done
[13:13:52.641]  length: 0 (resolved future 1)
[13:13:52.641] Relaying remaining futures
[13:13:52.641] signalConditionsASAP(NULL, pos=0) ...
[13:13:52.641] - nx: 1
[13:13:52.641] - relay: TRUE
[13:13:52.641] - stdout: TRUE
[13:13:52.642] - signal: TRUE
[13:13:52.642] - resignal: FALSE
[13:13:52.642] - force: TRUE
[13:13:52.642] - relayed: [n=1] TRUE
[13:13:52.642] - queued futures: [n=1] TRUE
 - flush all
[13:13:52.642] - relayed: [n=1] TRUE
[13:13:52.642] - queued futures: [n=1] TRUE
[13:13:52.643] signalConditionsASAP(NULL, pos=0) ... done
[13:13:52.643] resolve() on list ... DONE
[13:13:52.643]  - Number of value chunks collected: 1
[13:13:52.643] Resolving 1 futures (chunks) ... DONE
[13:13:52.643] Reducing values from 1 chunks ...
[13:13:52.643]  - Number of values collected after concatenation: 5
[13:13:52.644]  - Number of values expected: 5
[13:13:52.644] Reducing values from 1 chunks ... DONE
[13:13:52.644] future_mapply() ... DONE
[13:13:52.644] future_mapply() ...
[13:13:52.645] Number of chunks: 2
[13:13:52.645] Index remapping (attribute 'ordering'): [n = 5] 5, 4, 3, 2, 1
[13:13:52.645] getGlobalsAndPackagesXApply() ...
[13:13:52.645]  - future.globals: TRUE
[13:13:52.645] getGlobalsAndPackages() ...
[13:13:52.646] Searching for globals...
[13:13:52.648] - globals found: [3] 'FUN', 'paste', 'rep.int'
[13:13:52.648] Searching for globals ... DONE
[13:13:52.648] Resolving globals: FALSE
[13:13:52.648] The total size of the 1 globals is 3.24 KiB (3320 bytes)
[13:13:52.649] The total size of the 1 globals exported for future expression ('FUN()') is 3.24 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (3.24 KiB of class 'function')
[13:13:52.649] - globals: [1] 'FUN'
[13:13:52.649] 
[13:13:52.649] getGlobalsAndPackages() ... DONE
[13:13:52.650]  - globals found/used: [n=1] 'FUN'
[13:13:52.650]  - needed namespaces: [n=0] 
[13:13:52.650] Finding globals ... DONE
[13:13:52.650] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:52.650] List of 2
[13:13:52.650]  $ ...future.FUN:function (C, k)  
[13:13:52.650]  $ MoreArgs     : NULL
[13:13:52.650]  - attr(*, "where")=List of 2
[13:13:52.650]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:52.650]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:52.650]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.650]  - attr(*, "resolved")= logi FALSE
[13:13:52.650]  - attr(*, "total_size")= num NA
[13:13:52.653] Packages to be attached in all futures: [n=0] 
[13:13:52.653] getGlobalsAndPackagesXApply() ... DONE
[13:13:52.654] Number of futures (= number of chunks): 2
[13:13:52.654] Launching 2 futures (chunks) ...
[13:13:52.654] Chunk #1 of 2 ...
[13:13:52.654]  - Finding globals in '...' for chunk #1 ...
[13:13:52.654] getGlobalsAndPackages() ...
[13:13:52.655] Searching for globals...
[13:13:52.655] 
[13:13:52.655] Searching for globals ... DONE
[13:13:52.655] - globals: [0] <none>
[13:13:52.655] getGlobalsAndPackages() ... DONE
[13:13:52.656]    + additional globals found: [n=0] 
[13:13:52.656]    + additional namespaces needed: [n=0] 
[13:13:52.656]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:52.656]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:52.656]  - seeds: <none>
[13:13:52.656]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.656] getGlobalsAndPackages() ...
[13:13:52.657] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.657] Resolving globals: FALSE
[13:13:52.657] The total size of the 5 globals is 3.57 KiB (3656 bytes)
[13:13:52.658] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 3.57 KiB.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (3.24 KiB of class 'function'), '...future.elements_ii' (336 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:52.658] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.658] 
[13:13:52.658] getGlobalsAndPackages() ... DONE
[13:13:52.659] run() for 'Future' ...
[13:13:52.659] - state: 'created'
[13:13:52.659] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:52.660] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.660] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:52.660]   - Field: 'label'
[13:13:52.660]   - Field: 'local'
[13:13:52.660]   - Field: 'owner'
[13:13:52.660]   - Field: 'envir'
[13:13:52.661]   - Field: 'packages'
[13:13:52.661]   - Field: 'gc'
[13:13:52.661]   - Field: 'conditions'
[13:13:52.661]   - Field: 'expr'
[13:13:52.661]   - Field: 'uuid'
[13:13:52.661]   - Field: 'seed'
[13:13:52.662]   - Field: 'version'
[13:13:52.662]   - Field: 'result'
[13:13:52.662]   - Field: 'asynchronous'
[13:13:52.662]   - Field: 'calls'
[13:13:52.662]   - Field: 'globals'
[13:13:52.662]   - Field: 'stdout'
[13:13:52.663]   - Field: 'earlySignal'
[13:13:52.663]   - Field: 'lazy'
[13:13:52.663]   - Field: 'state'
[13:13:52.663] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:52.663] - Launch lazy future ...
[13:13:52.663] Packages needed by the future expression (n = 0): <none>
[13:13:52.664] Packages needed by future strategies (n = 0): <none>
[13:13:52.664] {
[13:13:52.664]     {
[13:13:52.664]         {
[13:13:52.664]             ...future.startTime <- base::Sys.time()
[13:13:52.664]             {
[13:13:52.664]                 {
[13:13:52.664]                   {
[13:13:52.664]                     base::local({
[13:13:52.664]                       has_future <- base::requireNamespace("future", 
[13:13:52.664]                         quietly = TRUE)
[13:13:52.664]                       if (has_future) {
[13:13:52.664]                         ns <- base::getNamespace("future")
[13:13:52.664]                         version <- ns[[".package"]][["version"]]
[13:13:52.664]                         if (is.null(version)) 
[13:13:52.664]                           version <- utils::packageVersion("future")
[13:13:52.664]                       }
[13:13:52.664]                       else {
[13:13:52.664]                         version <- NULL
[13:13:52.664]                       }
[13:13:52.664]                       if (!has_future || version < "1.8.0") {
[13:13:52.664]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:52.664]                           "", base::R.version$version.string), 
[13:13:52.664]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:52.664]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:52.664]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:52.664]                             "release", "version")], collapse = " "), 
[13:13:52.664]                           hostname = base::Sys.info()[["nodename"]])
[13:13:52.664]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:52.664]                           info)
[13:13:52.664]                         info <- base::paste(info, collapse = "; ")
[13:13:52.664]                         if (!has_future) {
[13:13:52.664]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:52.664]                             info)
[13:13:52.664]                         }
[13:13:52.664]                         else {
[13:13:52.664]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:52.664]                             info, version)
[13:13:52.664]                         }
[13:13:52.664]                         base::stop(msg)
[13:13:52.664]                       }
[13:13:52.664]                     })
[13:13:52.664]                   }
[13:13:52.664]                   options(future.plan = NULL)
[13:13:52.664]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.664]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:52.664]                 }
[13:13:52.664]                 ...future.workdir <- getwd()
[13:13:52.664]             }
[13:13:52.664]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:52.664]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:52.664]         }
[13:13:52.664]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:52.664]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:52.664]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:52.664]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:52.664]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:52.664]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:52.664]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:52.664]             base::names(...future.oldOptions))
[13:13:52.664]     }
[13:13:52.664]     if (FALSE) {
[13:13:52.664]     }
[13:13:52.664]     else {
[13:13:52.664]         if (TRUE) {
[13:13:52.664]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:52.664]                 open = "w")
[13:13:52.664]         }
[13:13:52.664]         else {
[13:13:52.664]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:52.664]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:52.664]         }
[13:13:52.664]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:52.664]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:52.664]             base::sink(type = "output", split = FALSE)
[13:13:52.664]             base::close(...future.stdout)
[13:13:52.664]         }, add = TRUE)
[13:13:52.664]     }
[13:13:52.664]     ...future.frame <- base::sys.nframe()
[13:13:52.664]     ...future.conditions <- base::list()
[13:13:52.664]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:52.664]     if (FALSE) {
[13:13:52.664]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:52.664]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:52.664]     }
[13:13:52.664]     ...future.result <- base::tryCatch({
[13:13:52.664]         base::withCallingHandlers({
[13:13:52.664]             ...future.value <- base::withVisible(base::local({
[13:13:52.664]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.664]                 if (!identical(...future.globals.maxSize.org, 
[13:13:52.664]                   ...future.globals.maxSize)) {
[13:13:52.664]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.664]                   on.exit(options(oopts), add = TRUE)
[13:13:52.664]                 }
[13:13:52.664]                 {
[13:13:52.664]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.664]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:52.664]                     USE.NAMES = FALSE)
[13:13:52.664]                   do.call(mapply, args = args)
[13:13:52.664]                 }
[13:13:52.664]             }))
[13:13:52.664]             future::FutureResult(value = ...future.value$value, 
[13:13:52.664]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.664]                   ...future.rng), globalenv = if (FALSE) 
[13:13:52.664]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:52.664]                     ...future.globalenv.names))
[13:13:52.664]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:52.664]         }, condition = base::local({
[13:13:52.664]             c <- base::c
[13:13:52.664]             inherits <- base::inherits
[13:13:52.664]             invokeRestart <- base::invokeRestart
[13:13:52.664]             length <- base::length
[13:13:52.664]             list <- base::list
[13:13:52.664]             seq.int <- base::seq.int
[13:13:52.664]             signalCondition <- base::signalCondition
[13:13:52.664]             sys.calls <- base::sys.calls
[13:13:52.664]             `[[` <- base::`[[`
[13:13:52.664]             `+` <- base::`+`
[13:13:52.664]             `<<-` <- base::`<<-`
[13:13:52.664]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:52.664]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:52.664]                   3L)]
[13:13:52.664]             }
[13:13:52.664]             function(cond) {
[13:13:52.664]                 is_error <- inherits(cond, "error")
[13:13:52.664]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:52.664]                   NULL)
[13:13:52.664]                 if (is_error) {
[13:13:52.664]                   sessionInformation <- function() {
[13:13:52.664]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:52.664]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:52.664]                       search = base::search(), system = base::Sys.info())
[13:13:52.664]                   }
[13:13:52.664]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.664]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:52.664]                     cond$call), session = sessionInformation(), 
[13:13:52.664]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:52.664]                   signalCondition(cond)
[13:13:52.664]                 }
[13:13:52.664]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:52.664]                 "immediateCondition"))) {
[13:13:52.664]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:52.664]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.664]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:52.664]                   if (TRUE && !signal) {
[13:13:52.664]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.664]                     {
[13:13:52.664]                       inherits <- base::inherits
[13:13:52.664]                       invokeRestart <- base::invokeRestart
[13:13:52.664]                       is.null <- base::is.null
[13:13:52.664]                       muffled <- FALSE
[13:13:52.664]                       if (inherits(cond, "message")) {
[13:13:52.664]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.664]                         if (muffled) 
[13:13:52.664]                           invokeRestart("muffleMessage")
[13:13:52.664]                       }
[13:13:52.664]                       else if (inherits(cond, "warning")) {
[13:13:52.664]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.664]                         if (muffled) 
[13:13:52.664]                           invokeRestart("muffleWarning")
[13:13:52.664]                       }
[13:13:52.664]                       else if (inherits(cond, "condition")) {
[13:13:52.664]                         if (!is.null(pattern)) {
[13:13:52.664]                           computeRestarts <- base::computeRestarts
[13:13:52.664]                           grepl <- base::grepl
[13:13:52.664]                           restarts <- computeRestarts(cond)
[13:13:52.664]                           for (restart in restarts) {
[13:13:52.664]                             name <- restart$name
[13:13:52.664]                             if (is.null(name)) 
[13:13:52.664]                               next
[13:13:52.664]                             if (!grepl(pattern, name)) 
[13:13:52.664]                               next
[13:13:52.664]                             invokeRestart(restart)
[13:13:52.664]                             muffled <- TRUE
[13:13:52.664]                             break
[13:13:52.664]                           }
[13:13:52.664]                         }
[13:13:52.664]                       }
[13:13:52.664]                       invisible(muffled)
[13:13:52.664]                     }
[13:13:52.664]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.664]                   }
[13:13:52.664]                 }
[13:13:52.664]                 else {
[13:13:52.664]                   if (TRUE) {
[13:13:52.664]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.664]                     {
[13:13:52.664]                       inherits <- base::inherits
[13:13:52.664]                       invokeRestart <- base::invokeRestart
[13:13:52.664]                       is.null <- base::is.null
[13:13:52.664]                       muffled <- FALSE
[13:13:52.664]                       if (inherits(cond, "message")) {
[13:13:52.664]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.664]                         if (muffled) 
[13:13:52.664]                           invokeRestart("muffleMessage")
[13:13:52.664]                       }
[13:13:52.664]                       else if (inherits(cond, "warning")) {
[13:13:52.664]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.664]                         if (muffled) 
[13:13:52.664]                           invokeRestart("muffleWarning")
[13:13:52.664]                       }
[13:13:52.664]                       else if (inherits(cond, "condition")) {
[13:13:52.664]                         if (!is.null(pattern)) {
[13:13:52.664]                           computeRestarts <- base::computeRestarts
[13:13:52.664]                           grepl <- base::grepl
[13:13:52.664]                           restarts <- computeRestarts(cond)
[13:13:52.664]                           for (restart in restarts) {
[13:13:52.664]                             name <- restart$name
[13:13:52.664]                             if (is.null(name)) 
[13:13:52.664]                               next
[13:13:52.664]                             if (!grepl(pattern, name)) 
[13:13:52.664]                               next
[13:13:52.664]                             invokeRestart(restart)
[13:13:52.664]                             muffled <- TRUE
[13:13:52.664]                             break
[13:13:52.664]                           }
[13:13:52.664]                         }
[13:13:52.664]                       }
[13:13:52.664]                       invisible(muffled)
[13:13:52.664]                     }
[13:13:52.664]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.664]                   }
[13:13:52.664]                 }
[13:13:52.664]             }
[13:13:52.664]         }))
[13:13:52.664]     }, error = function(ex) {
[13:13:52.664]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:52.664]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.664]                 ...future.rng), started = ...future.startTime, 
[13:13:52.664]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:52.664]             version = "1.8"), class = "FutureResult")
[13:13:52.664]     }, finally = {
[13:13:52.664]         if (!identical(...future.workdir, getwd())) 
[13:13:52.664]             setwd(...future.workdir)
[13:13:52.664]         {
[13:13:52.664]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:52.664]                 ...future.oldOptions$nwarnings <- NULL
[13:13:52.664]             }
[13:13:52.664]             base::options(...future.oldOptions)
[13:13:52.664]             if (.Platform$OS.type == "windows") {
[13:13:52.664]                 old_names <- names(...future.oldEnvVars)
[13:13:52.664]                 envs <- base::Sys.getenv()
[13:13:52.664]                 names <- names(envs)
[13:13:52.664]                 common <- intersect(names, old_names)
[13:13:52.664]                 added <- setdiff(names, old_names)
[13:13:52.664]                 removed <- setdiff(old_names, names)
[13:13:52.664]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:52.664]                   envs[common]]
[13:13:52.664]                 NAMES <- toupper(changed)
[13:13:52.664]                 args <- list()
[13:13:52.664]                 for (kk in seq_along(NAMES)) {
[13:13:52.664]                   name <- changed[[kk]]
[13:13:52.664]                   NAME <- NAMES[[kk]]
[13:13:52.664]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.664]                     next
[13:13:52.664]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.664]                 }
[13:13:52.664]                 NAMES <- toupper(added)
[13:13:52.664]                 for (kk in seq_along(NAMES)) {
[13:13:52.664]                   name <- added[[kk]]
[13:13:52.664]                   NAME <- NAMES[[kk]]
[13:13:52.664]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.664]                     next
[13:13:52.664]                   args[[name]] <- ""
[13:13:52.664]                 }
[13:13:52.664]                 NAMES <- toupper(removed)
[13:13:52.664]                 for (kk in seq_along(NAMES)) {
[13:13:52.664]                   name <- removed[[kk]]
[13:13:52.664]                   NAME <- NAMES[[kk]]
[13:13:52.664]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.664]                     next
[13:13:52.664]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.664]                 }
[13:13:52.664]                 if (length(args) > 0) 
[13:13:52.664]                   base::do.call(base::Sys.setenv, args = args)
[13:13:52.664]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:52.664]             }
[13:13:52.664]             else {
[13:13:52.664]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:52.664]             }
[13:13:52.664]             {
[13:13:52.664]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:52.664]                   0L) {
[13:13:52.664]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:52.664]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:52.664]                   base::options(opts)
[13:13:52.664]                 }
[13:13:52.664]                 {
[13:13:52.664]                   {
[13:13:52.664]                     base::assign(".Random.seed", c(10407L, -1918733616L, 
[13:13:52.664]                     1584354639L, -1174970862L, -939885817L, 1422965938L, 
[13:13:52.664]                     -981423529L), envir = base::globalenv(), 
[13:13:52.664]                       inherits = FALSE)
[13:13:52.664]                     NULL
[13:13:52.664]                   }
[13:13:52.664]                   options(future.plan = NULL)
[13:13:52.664]                   if (is.na(NA_character_)) 
[13:13:52.664]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.664]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:52.664]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:52.664]                   {
[13:13:52.664]                     future <- SequentialFuture(..., envir = envir)
[13:13:52.664]                     if (!future$lazy) 
[13:13:52.664]                       future <- run(future)
[13:13:52.664]                     invisible(future)
[13:13:52.664]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:52.664]                 }
[13:13:52.664]             }
[13:13:52.664]         }
[13:13:52.664]     })
[13:13:52.664]     if (TRUE) {
[13:13:52.664]         base::sink(type = "output", split = FALSE)
[13:13:52.664]         if (TRUE) {
[13:13:52.664]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:52.664]         }
[13:13:52.664]         else {
[13:13:52.664]             ...future.result["stdout"] <- base::list(NULL)
[13:13:52.664]         }
[13:13:52.664]         base::close(...future.stdout)
[13:13:52.664]         ...future.stdout <- NULL
[13:13:52.664]     }
[13:13:52.664]     ...future.result$conditions <- ...future.conditions
[13:13:52.664]     ...future.result$finished <- base::Sys.time()
[13:13:52.664]     ...future.result
[13:13:52.664] }
[13:13:52.668] assign_globals() ...
[13:13:52.668] List of 5
[13:13:52.668]  $ ...future.FUN            :function (C, k)  
[13:13:52.668]  $ MoreArgs                 : NULL
[13:13:52.668]  $ ...future.elements_ii    :List of 2
[13:13:52.668]   ..$ :List of 2
[13:13:52.668]   .. ..$ : chr "E"
[13:13:52.668]   .. ..$ : chr "D"
[13:13:52.668]   ..$ :List of 2
[13:13:52.668]   .. ..$ : int 1
[13:13:52.668]   .. ..$ : int 2
[13:13:52.668]  $ ...future.seeds_ii       : NULL
[13:13:52.668]  $ ...future.globals.maxSize: NULL
[13:13:52.668]  - attr(*, "where")=List of 5
[13:13:52.668]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:52.668]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[13:13:52.668]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:52.668]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:52.668]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:52.668]  - attr(*, "resolved")= logi FALSE
[13:13:52.668]  - attr(*, "total_size")= num 3656
[13:13:52.668]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.668]  - attr(*, "already-done")= logi TRUE
[13:13:52.676] - reassign environment for '...future.FUN'
[13:13:52.676] - copied '...future.FUN' to environment
[13:13:52.676] - copied 'MoreArgs' to environment
[13:13:52.677] - copied '...future.elements_ii' to environment
[13:13:52.677] - copied '...future.seeds_ii' to environment
[13:13:52.677] - copied '...future.globals.maxSize' to environment
[13:13:52.677] assign_globals() ... done
[13:13:52.677] plan(): Setting new future strategy stack:
[13:13:52.678] List of future strategies:
[13:13:52.678] 1. sequential:
[13:13:52.678]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.678]    - tweaked: FALSE
[13:13:52.678]    - call: NULL
[13:13:52.678] plan(): nbrOfWorkers() = 1
[13:13:52.679] plan(): Setting new future strategy stack:
[13:13:52.679] List of future strategies:
[13:13:52.679] 1. sequential:
[13:13:52.679]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.679]    - tweaked: FALSE
[13:13:52.679]    - call: plan(strategy)
[13:13:52.680] plan(): nbrOfWorkers() = 1
[13:13:52.680] SequentialFuture started (and completed)
[13:13:52.680] - Launch lazy future ... done
[13:13:52.681] run() for 'SequentialFuture' ... done
[13:13:52.681] Created future:
[13:13:52.681] SequentialFuture:
[13:13:52.681] Label: 'future_mapply-1'
[13:13:52.681] Expression:
[13:13:52.681] {
[13:13:52.681]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.681]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:52.681]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.681]         on.exit(options(oopts), add = TRUE)
[13:13:52.681]     }
[13:13:52.681]     {
[13:13:52.681]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.681]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:52.681]         do.call(mapply, args = args)
[13:13:52.681]     }
[13:13:52.681] }
[13:13:52.681] Lazy evaluation: FALSE
[13:13:52.681] Asynchronous evaluation: FALSE
[13:13:52.681] Local evaluation: TRUE
[13:13:52.681] Environment: R_GlobalEnv
[13:13:52.681] Capture standard output: TRUE
[13:13:52.681] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:52.681] Globals: 5 objects totaling 3.57 KiB (function '...future.FUN' of 3.24 KiB, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 336 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:52.681] Packages: <none>
[13:13:52.681] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:52.681] Resolved: TRUE
[13:13:52.681] Value: 224 bytes of class 'list'
[13:13:52.681] Early signaling: FALSE
[13:13:52.681] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:52.681] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.682] Chunk #1 of 2 ... DONE
[13:13:52.682] Chunk #2 of 2 ...
[13:13:52.682]  - Finding globals in '...' for chunk #2 ...
[13:13:52.683] getGlobalsAndPackages() ...
[13:13:52.683] Searching for globals...
[13:13:52.683] 
[13:13:52.683] Searching for globals ... DONE
[13:13:52.683] - globals: [0] <none>
[13:13:52.683] getGlobalsAndPackages() ... DONE
[13:13:52.684]    + additional globals found: [n=0] 
[13:13:52.684]    + additional namespaces needed: [n=0] 
[13:13:52.684]  - Finding globals in '...' for chunk #2 ... DONE
[13:13:52.684]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:52.684]  - seeds: <none>
[13:13:52.684]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.685] getGlobalsAndPackages() ...
[13:13:52.685] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.685] Resolving globals: FALSE
[13:13:52.686] The total size of the 5 globals is 3.73 KiB (3824 bytes)
[13:13:52.686] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 3.73 KiB.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (3.24 KiB of class 'function'), '...future.elements_ii' (504 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:52.686] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.686] 
[13:13:52.687] getGlobalsAndPackages() ... DONE
[13:13:52.687] run() for 'Future' ...
[13:13:52.687] - state: 'created'
[13:13:52.687] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:52.688] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.688] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:52.688]   - Field: 'label'
[13:13:52.688]   - Field: 'local'
[13:13:52.688]   - Field: 'owner'
[13:13:52.689]   - Field: 'envir'
[13:13:52.689]   - Field: 'packages'
[13:13:52.689]   - Field: 'gc'
[13:13:52.689]   - Field: 'conditions'
[13:13:52.689]   - Field: 'expr'
[13:13:52.689]   - Field: 'uuid'
[13:13:52.690]   - Field: 'seed'
[13:13:52.690]   - Field: 'version'
[13:13:52.690]   - Field: 'result'
[13:13:52.690]   - Field: 'asynchronous'
[13:13:52.690]   - Field: 'calls'
[13:13:52.690]   - Field: 'globals'
[13:13:52.691]   - Field: 'stdout'
[13:13:52.691]   - Field: 'earlySignal'
[13:13:52.691]   - Field: 'lazy'
[13:13:52.691]   - Field: 'state'
[13:13:52.691] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:52.691] - Launch lazy future ...
[13:13:52.692] Packages needed by the future expression (n = 0): <none>
[13:13:52.692] Packages needed by future strategies (n = 0): <none>
[13:13:52.692] {
[13:13:52.692]     {
[13:13:52.692]         {
[13:13:52.692]             ...future.startTime <- base::Sys.time()
[13:13:52.692]             {
[13:13:52.692]                 {
[13:13:52.692]                   {
[13:13:52.692]                     base::local({
[13:13:52.692]                       has_future <- base::requireNamespace("future", 
[13:13:52.692]                         quietly = TRUE)
[13:13:52.692]                       if (has_future) {
[13:13:52.692]                         ns <- base::getNamespace("future")
[13:13:52.692]                         version <- ns[[".package"]][["version"]]
[13:13:52.692]                         if (is.null(version)) 
[13:13:52.692]                           version <- utils::packageVersion("future")
[13:13:52.692]                       }
[13:13:52.692]                       else {
[13:13:52.692]                         version <- NULL
[13:13:52.692]                       }
[13:13:52.692]                       if (!has_future || version < "1.8.0") {
[13:13:52.692]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:52.692]                           "", base::R.version$version.string), 
[13:13:52.692]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:52.692]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:52.692]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:52.692]                             "release", "version")], collapse = " "), 
[13:13:52.692]                           hostname = base::Sys.info()[["nodename"]])
[13:13:52.692]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:52.692]                           info)
[13:13:52.692]                         info <- base::paste(info, collapse = "; ")
[13:13:52.692]                         if (!has_future) {
[13:13:52.692]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:52.692]                             info)
[13:13:52.692]                         }
[13:13:52.692]                         else {
[13:13:52.692]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:52.692]                             info, version)
[13:13:52.692]                         }
[13:13:52.692]                         base::stop(msg)
[13:13:52.692]                       }
[13:13:52.692]                     })
[13:13:52.692]                   }
[13:13:52.692]                   options(future.plan = NULL)
[13:13:52.692]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.692]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:52.692]                 }
[13:13:52.692]                 ...future.workdir <- getwd()
[13:13:52.692]             }
[13:13:52.692]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:52.692]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:52.692]         }
[13:13:52.692]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:52.692]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:52.692]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:52.692]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:52.692]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:52.692]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:52.692]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:52.692]             base::names(...future.oldOptions))
[13:13:52.692]     }
[13:13:52.692]     if (FALSE) {
[13:13:52.692]     }
[13:13:52.692]     else {
[13:13:52.692]         if (TRUE) {
[13:13:52.692]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:52.692]                 open = "w")
[13:13:52.692]         }
[13:13:52.692]         else {
[13:13:52.692]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:52.692]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:52.692]         }
[13:13:52.692]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:52.692]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:52.692]             base::sink(type = "output", split = FALSE)
[13:13:52.692]             base::close(...future.stdout)
[13:13:52.692]         }, add = TRUE)
[13:13:52.692]     }
[13:13:52.692]     ...future.frame <- base::sys.nframe()
[13:13:52.692]     ...future.conditions <- base::list()
[13:13:52.692]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:52.692]     if (FALSE) {
[13:13:52.692]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:52.692]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:52.692]     }
[13:13:52.692]     ...future.result <- base::tryCatch({
[13:13:52.692]         base::withCallingHandlers({
[13:13:52.692]             ...future.value <- base::withVisible(base::local({
[13:13:52.692]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.692]                 if (!identical(...future.globals.maxSize.org, 
[13:13:52.692]                   ...future.globals.maxSize)) {
[13:13:52.692]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.692]                   on.exit(options(oopts), add = TRUE)
[13:13:52.692]                 }
[13:13:52.692]                 {
[13:13:52.692]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.692]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:52.692]                     USE.NAMES = FALSE)
[13:13:52.692]                   do.call(mapply, args = args)
[13:13:52.692]                 }
[13:13:52.692]             }))
[13:13:52.692]             future::FutureResult(value = ...future.value$value, 
[13:13:52.692]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.692]                   ...future.rng), globalenv = if (FALSE) 
[13:13:52.692]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:52.692]                     ...future.globalenv.names))
[13:13:52.692]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:52.692]         }, condition = base::local({
[13:13:52.692]             c <- base::c
[13:13:52.692]             inherits <- base::inherits
[13:13:52.692]             invokeRestart <- base::invokeRestart
[13:13:52.692]             length <- base::length
[13:13:52.692]             list <- base::list
[13:13:52.692]             seq.int <- base::seq.int
[13:13:52.692]             signalCondition <- base::signalCondition
[13:13:52.692]             sys.calls <- base::sys.calls
[13:13:52.692]             `[[` <- base::`[[`
[13:13:52.692]             `+` <- base::`+`
[13:13:52.692]             `<<-` <- base::`<<-`
[13:13:52.692]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:52.692]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:52.692]                   3L)]
[13:13:52.692]             }
[13:13:52.692]             function(cond) {
[13:13:52.692]                 is_error <- inherits(cond, "error")
[13:13:52.692]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:52.692]                   NULL)
[13:13:52.692]                 if (is_error) {
[13:13:52.692]                   sessionInformation <- function() {
[13:13:52.692]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:52.692]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:52.692]                       search = base::search(), system = base::Sys.info())
[13:13:52.692]                   }
[13:13:52.692]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.692]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:52.692]                     cond$call), session = sessionInformation(), 
[13:13:52.692]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:52.692]                   signalCondition(cond)
[13:13:52.692]                 }
[13:13:52.692]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:52.692]                 "immediateCondition"))) {
[13:13:52.692]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:52.692]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.692]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:52.692]                   if (TRUE && !signal) {
[13:13:52.692]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.692]                     {
[13:13:52.692]                       inherits <- base::inherits
[13:13:52.692]                       invokeRestart <- base::invokeRestart
[13:13:52.692]                       is.null <- base::is.null
[13:13:52.692]                       muffled <- FALSE
[13:13:52.692]                       if (inherits(cond, "message")) {
[13:13:52.692]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.692]                         if (muffled) 
[13:13:52.692]                           invokeRestart("muffleMessage")
[13:13:52.692]                       }
[13:13:52.692]                       else if (inherits(cond, "warning")) {
[13:13:52.692]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.692]                         if (muffled) 
[13:13:52.692]                           invokeRestart("muffleWarning")
[13:13:52.692]                       }
[13:13:52.692]                       else if (inherits(cond, "condition")) {
[13:13:52.692]                         if (!is.null(pattern)) {
[13:13:52.692]                           computeRestarts <- base::computeRestarts
[13:13:52.692]                           grepl <- base::grepl
[13:13:52.692]                           restarts <- computeRestarts(cond)
[13:13:52.692]                           for (restart in restarts) {
[13:13:52.692]                             name <- restart$name
[13:13:52.692]                             if (is.null(name)) 
[13:13:52.692]                               next
[13:13:52.692]                             if (!grepl(pattern, name)) 
[13:13:52.692]                               next
[13:13:52.692]                             invokeRestart(restart)
[13:13:52.692]                             muffled <- TRUE
[13:13:52.692]                             break
[13:13:52.692]                           }
[13:13:52.692]                         }
[13:13:52.692]                       }
[13:13:52.692]                       invisible(muffled)
[13:13:52.692]                     }
[13:13:52.692]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.692]                   }
[13:13:52.692]                 }
[13:13:52.692]                 else {
[13:13:52.692]                   if (TRUE) {
[13:13:52.692]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.692]                     {
[13:13:52.692]                       inherits <- base::inherits
[13:13:52.692]                       invokeRestart <- base::invokeRestart
[13:13:52.692]                       is.null <- base::is.null
[13:13:52.692]                       muffled <- FALSE
[13:13:52.692]                       if (inherits(cond, "message")) {
[13:13:52.692]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.692]                         if (muffled) 
[13:13:52.692]                           invokeRestart("muffleMessage")
[13:13:52.692]                       }
[13:13:52.692]                       else if (inherits(cond, "warning")) {
[13:13:52.692]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.692]                         if (muffled) 
[13:13:52.692]                           invokeRestart("muffleWarning")
[13:13:52.692]                       }
[13:13:52.692]                       else if (inherits(cond, "condition")) {
[13:13:52.692]                         if (!is.null(pattern)) {
[13:13:52.692]                           computeRestarts <- base::computeRestarts
[13:13:52.692]                           grepl <- base::grepl
[13:13:52.692]                           restarts <- computeRestarts(cond)
[13:13:52.692]                           for (restart in restarts) {
[13:13:52.692]                             name <- restart$name
[13:13:52.692]                             if (is.null(name)) 
[13:13:52.692]                               next
[13:13:52.692]                             if (!grepl(pattern, name)) 
[13:13:52.692]                               next
[13:13:52.692]                             invokeRestart(restart)
[13:13:52.692]                             muffled <- TRUE
[13:13:52.692]                             break
[13:13:52.692]                           }
[13:13:52.692]                         }
[13:13:52.692]                       }
[13:13:52.692]                       invisible(muffled)
[13:13:52.692]                     }
[13:13:52.692]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.692]                   }
[13:13:52.692]                 }
[13:13:52.692]             }
[13:13:52.692]         }))
[13:13:52.692]     }, error = function(ex) {
[13:13:52.692]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:52.692]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.692]                 ...future.rng), started = ...future.startTime, 
[13:13:52.692]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:52.692]             version = "1.8"), class = "FutureResult")
[13:13:52.692]     }, finally = {
[13:13:52.692]         if (!identical(...future.workdir, getwd())) 
[13:13:52.692]             setwd(...future.workdir)
[13:13:52.692]         {
[13:13:52.692]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:52.692]                 ...future.oldOptions$nwarnings <- NULL
[13:13:52.692]             }
[13:13:52.692]             base::options(...future.oldOptions)
[13:13:52.692]             if (.Platform$OS.type == "windows") {
[13:13:52.692]                 old_names <- names(...future.oldEnvVars)
[13:13:52.692]                 envs <- base::Sys.getenv()
[13:13:52.692]                 names <- names(envs)
[13:13:52.692]                 common <- intersect(names, old_names)
[13:13:52.692]                 added <- setdiff(names, old_names)
[13:13:52.692]                 removed <- setdiff(old_names, names)
[13:13:52.692]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:52.692]                   envs[common]]
[13:13:52.692]                 NAMES <- toupper(changed)
[13:13:52.692]                 args <- list()
[13:13:52.692]                 for (kk in seq_along(NAMES)) {
[13:13:52.692]                   name <- changed[[kk]]
[13:13:52.692]                   NAME <- NAMES[[kk]]
[13:13:52.692]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.692]                     next
[13:13:52.692]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.692]                 }
[13:13:52.692]                 NAMES <- toupper(added)
[13:13:52.692]                 for (kk in seq_along(NAMES)) {
[13:13:52.692]                   name <- added[[kk]]
[13:13:52.692]                   NAME <- NAMES[[kk]]
[13:13:52.692]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.692]                     next
[13:13:52.692]                   args[[name]] <- ""
[13:13:52.692]                 }
[13:13:52.692]                 NAMES <- toupper(removed)
[13:13:52.692]                 for (kk in seq_along(NAMES)) {
[13:13:52.692]                   name <- removed[[kk]]
[13:13:52.692]                   NAME <- NAMES[[kk]]
[13:13:52.692]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.692]                     next
[13:13:52.692]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.692]                 }
[13:13:52.692]                 if (length(args) > 0) 
[13:13:52.692]                   base::do.call(base::Sys.setenv, args = args)
[13:13:52.692]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:52.692]             }
[13:13:52.692]             else {
[13:13:52.692]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:52.692]             }
[13:13:52.692]             {
[13:13:52.692]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:52.692]                   0L) {
[13:13:52.692]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:52.692]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:52.692]                   base::options(opts)
[13:13:52.692]                 }
[13:13:52.692]                 {
[13:13:52.692]                   {
[13:13:52.692]                     base::assign(".Random.seed", c(10407L, -1918733616L, 
[13:13:52.692]                     1584354639L, -1174970862L, -939885817L, 1422965938L, 
[13:13:52.692]                     -981423529L), envir = base::globalenv(), 
[13:13:52.692]                       inherits = FALSE)
[13:13:52.692]                     NULL
[13:13:52.692]                   }
[13:13:52.692]                   options(future.plan = NULL)
[13:13:52.692]                   if (is.na(NA_character_)) 
[13:13:52.692]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.692]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:52.692]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:52.692]                   {
[13:13:52.692]                     future <- SequentialFuture(..., envir = envir)
[13:13:52.692]                     if (!future$lazy) 
[13:13:52.692]                       future <- run(future)
[13:13:52.692]                     invisible(future)
[13:13:52.692]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:52.692]                 }
[13:13:52.692]             }
[13:13:52.692]         }
[13:13:52.692]     })
[13:13:52.692]     if (TRUE) {
[13:13:52.692]         base::sink(type = "output", split = FALSE)
[13:13:52.692]         if (TRUE) {
[13:13:52.692]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:52.692]         }
[13:13:52.692]         else {
[13:13:52.692]             ...future.result["stdout"] <- base::list(NULL)
[13:13:52.692]         }
[13:13:52.692]         base::close(...future.stdout)
[13:13:52.692]         ...future.stdout <- NULL
[13:13:52.692]     }
[13:13:52.692]     ...future.result$conditions <- ...future.conditions
[13:13:52.692]     ...future.result$finished <- base::Sys.time()
[13:13:52.692]     ...future.result
[13:13:52.692] }
[13:13:52.696] assign_globals() ...
[13:13:52.696] List of 5
[13:13:52.696]  $ ...future.FUN            :function (C, k)  
[13:13:52.696]  $ MoreArgs                 : NULL
[13:13:52.696]  $ ...future.elements_ii    :List of 2
[13:13:52.696]   ..$ :List of 3
[13:13:52.696]   .. ..$ : chr "C"
[13:13:52.696]   .. ..$ : chr "B"
[13:13:52.696]   .. ..$ : chr "A"
[13:13:52.696]   ..$ :List of 3
[13:13:52.696]   .. ..$ : int 3
[13:13:52.696]   .. ..$ : int 4
[13:13:52.696]   .. ..$ : int 5
[13:13:52.696]  $ ...future.seeds_ii       : NULL
[13:13:52.696]  $ ...future.globals.maxSize: NULL
[13:13:52.696]  - attr(*, "where")=List of 5
[13:13:52.696]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:52.696]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[13:13:52.696]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:52.696]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:52.696]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:52.696]  - attr(*, "resolved")= logi FALSE
[13:13:52.696]  - attr(*, "total_size")= num 3824
[13:13:52.696]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.696]  - attr(*, "already-done")= logi TRUE
[13:13:52.704] - reassign environment for '...future.FUN'
[13:13:52.704] - copied '...future.FUN' to environment
[13:13:52.704] - copied 'MoreArgs' to environment
[13:13:52.704] - copied '...future.elements_ii' to environment
[13:13:52.705] - copied '...future.seeds_ii' to environment
[13:13:52.705] - copied '...future.globals.maxSize' to environment
[13:13:52.705] assign_globals() ... done
[13:13:52.705] plan(): Setting new future strategy stack:
[13:13:52.705] List of future strategies:
[13:13:52.705] 1. sequential:
[13:13:52.705]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.705]    - tweaked: FALSE
[13:13:52.705]    - call: NULL
[13:13:52.706] plan(): nbrOfWorkers() = 1
[13:13:52.707] plan(): Setting new future strategy stack:
[13:13:52.707] List of future strategies:
[13:13:52.707] 1. sequential:
[13:13:52.707]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.707]    - tweaked: FALSE
[13:13:52.707]    - call: plan(strategy)
[13:13:52.708] plan(): nbrOfWorkers() = 1
[13:13:52.708] SequentialFuture started (and completed)
[13:13:52.708] - Launch lazy future ... done
[13:13:52.708] run() for 'SequentialFuture' ... done
[13:13:52.708] Created future:
[13:13:52.709] SequentialFuture:
[13:13:52.709] Label: 'future_mapply-2'
[13:13:52.709] Expression:
[13:13:52.709] {
[13:13:52.709]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.709]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:52.709]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.709]         on.exit(options(oopts), add = TRUE)
[13:13:52.709]     }
[13:13:52.709]     {
[13:13:52.709]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.709]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:52.709]         do.call(mapply, args = args)
[13:13:52.709]     }
[13:13:52.709] }
[13:13:52.709] Lazy evaluation: FALSE
[13:13:52.709] Asynchronous evaluation: FALSE
[13:13:52.709] Local evaluation: TRUE
[13:13:52.709] Environment: R_GlobalEnv
[13:13:52.709] Capture standard output: TRUE
[13:13:52.709] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:52.709] Globals: 5 objects totaling 3.73 KiB (function '...future.FUN' of 3.24 KiB, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 504 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:52.709] Packages: <none>
[13:13:52.709] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:52.709] Resolved: TRUE
[13:13:52.709] Value: 336 bytes of class 'list'
[13:13:52.709] Early signaling: FALSE
[13:13:52.709] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:52.709] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.710] Chunk #2 of 2 ... DONE
[13:13:52.710] Launching 2 futures (chunks) ... DONE
[13:13:52.710] Resolving 2 futures (chunks) ...
[13:13:52.710] resolve() on list ...
[13:13:52.710]  recursive: 0
[13:13:52.710]  length: 2
[13:13:52.711] 
[13:13:52.711] resolved() for 'SequentialFuture' ...
[13:13:52.711] - state: 'finished'
[13:13:52.711] - run: TRUE
[13:13:52.711] - result: 'FutureResult'
[13:13:52.711] resolved() for 'SequentialFuture' ... done
[13:13:52.712] Future #1
[13:13:52.712] signalConditionsASAP(SequentialFuture, pos=1) ...
[13:13:52.712] - nx: 2
[13:13:52.712] - relay: TRUE
[13:13:52.712] - stdout: TRUE
[13:13:52.712] - signal: TRUE
[13:13:52.712] - resignal: FALSE
[13:13:52.713] - force: TRUE
[13:13:52.713] - relayed: [n=2] FALSE, FALSE
[13:13:52.713] - queued futures: [n=2] FALSE, FALSE
[13:13:52.713]  - until=1
[13:13:52.713]  - relaying element #1
[13:13:52.713] - relayed: [n=2] TRUE, FALSE
[13:13:52.714] - queued futures: [n=2] TRUE, FALSE
[13:13:52.714] signalConditionsASAP(SequentialFuture, pos=1) ... done
[13:13:52.714]  length: 1 (resolved future 1)
[13:13:52.714] resolved() for 'SequentialFuture' ...
[13:13:52.714] - state: 'finished'
[13:13:52.714] - run: TRUE
[13:13:52.715] - result: 'FutureResult'
[13:13:52.715] resolved() for 'SequentialFuture' ... done
[13:13:52.715] Future #2
[13:13:52.715] signalConditionsASAP(SequentialFuture, pos=2) ...
[13:13:52.715] - nx: 2
[13:13:52.715] - relay: TRUE
[13:13:52.716] - stdout: TRUE
[13:13:52.716] - signal: TRUE
[13:13:52.716] - resignal: FALSE
[13:13:52.716] - force: TRUE
[13:13:52.716] - relayed: [n=2] TRUE, FALSE
[13:13:52.716] - queued futures: [n=2] TRUE, FALSE
[13:13:52.716]  - until=2
[13:13:52.717]  - relaying element #2
[13:13:52.717] - relayed: [n=2] TRUE, TRUE
[13:13:52.717] - queued futures: [n=2] TRUE, TRUE
[13:13:52.717] signalConditionsASAP(SequentialFuture, pos=2) ... done
[13:13:52.717]  length: 0 (resolved future 2)
[13:13:52.717] Relaying remaining futures
[13:13:52.718] signalConditionsASAP(NULL, pos=0) ...
[13:13:52.718] - nx: 2
[13:13:52.718] - relay: TRUE
[13:13:52.718] - stdout: TRUE
[13:13:52.718] - signal: TRUE
[13:13:52.718] - resignal: FALSE
[13:13:52.718] - force: TRUE
[13:13:52.718] - relayed: [n=2] TRUE, TRUE
[13:13:52.719] - queued futures: [n=2] TRUE, TRUE
 - flush all
[13:13:52.719] - relayed: [n=2] TRUE, TRUE
[13:13:52.719] - queued futures: [n=2] TRUE, TRUE
[13:13:52.719] signalConditionsASAP(NULL, pos=0) ... done
[13:13:52.719] resolve() on list ... DONE
[13:13:52.720]  - Number of value chunks collected: 2
[13:13:52.720] Resolving 2 futures (chunks) ... DONE
[13:13:52.720] Reducing values from 2 chunks ...
[13:13:52.720]  - Number of values collected after concatenation: 5
[13:13:52.720]  - Number of values expected: 5
[13:13:52.720] Reverse index remapping (attribute 'ordering'): [n = 5] 5, 4, 3, 2, 1
[13:13:52.720] Reducing values from 2 chunks ... DONE
[13:13:52.721] future_mapply() ... DONE
[13:13:52.721] future_mapply() ...
[13:13:52.721] Number of chunks: 1
[13:13:52.721] getGlobalsAndPackagesXApply() ...
[13:13:52.721]  - future.globals: TRUE
[13:13:52.722] getGlobalsAndPackages() ...
[13:13:52.722] Searching for globals...
[13:13:52.723] - globals found: [3] 'FUN', 'paste', 'rep.int'
[13:13:52.723] Searching for globals ... DONE
[13:13:52.723] Resolving globals: FALSE
[13:13:52.725] The total size of the 1 globals is 3.24 KiB (3320 bytes)
[13:13:52.725] The total size of the 1 globals exported for future expression ('FUN()') is 3.24 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (3.24 KiB of class 'function')
[13:13:52.725] - globals: [1] 'FUN'
[13:13:52.725] 
[13:13:52.725] getGlobalsAndPackages() ... DONE
[13:13:52.726]  - globals found/used: [n=1] 'FUN'
[13:13:52.726]  - needed namespaces: [n=0] 
[13:13:52.726] Finding globals ... DONE
[13:13:52.726] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:52.726] List of 2
[13:13:52.726]  $ ...future.FUN:function (C, k)  
[13:13:52.726]  $ MoreArgs     : list()
[13:13:52.726]  - attr(*, "where")=List of 2
[13:13:52.726]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:52.726]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:52.726]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.726]  - attr(*, "resolved")= logi FALSE
[13:13:52.726]  - attr(*, "total_size")= num NA
[13:13:52.729] Packages to be attached in all futures: [n=0] 
[13:13:52.729] getGlobalsAndPackagesXApply() ... DONE
[13:13:52.729] Number of futures (= number of chunks): 1
[13:13:52.730] Launching 1 futures (chunks) ...
[13:13:52.730] Chunk #1 of 1 ...
[13:13:52.730]  - Finding globals in '...' for chunk #1 ...
[13:13:52.730] getGlobalsAndPackages() ...
[13:13:52.730] Searching for globals...
[13:13:52.731] 
[13:13:52.731] Searching for globals ... DONE
[13:13:52.731] - globals: [0] <none>
[13:13:52.731] getGlobalsAndPackages() ... DONE
[13:13:52.731]    + additional globals found: [n=0] 
[13:13:52.731]    + additional namespaces needed: [n=0] 
[13:13:52.732]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:52.732]  - seeds: <none>
[13:13:52.732]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.732] getGlobalsAndPackages() ...
[13:13:52.732] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.732] Resolving globals: FALSE
[13:13:52.733] The total size of the 5 globals is 4.06 KiB (4160 bytes)
[13:13:52.734] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 4.06 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (3.24 KiB of class 'function'), '...future.elements_ii' (840 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'list')
[13:13:52.734] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.734] 
[13:13:52.734] getGlobalsAndPackages() ... DONE
[13:13:52.734] run() for 'Future' ...
[13:13:52.735] - state: 'created'
[13:13:52.735] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:52.735] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.735] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:52.735]   - Field: 'label'
[13:13:52.736]   - Field: 'local'
[13:13:52.736]   - Field: 'owner'
[13:13:52.736]   - Field: 'envir'
[13:13:52.736]   - Field: 'packages'
[13:13:52.736]   - Field: 'gc'
[13:13:52.736]   - Field: 'conditions'
[13:13:52.737]   - Field: 'expr'
[13:13:52.737]   - Field: 'uuid'
[13:13:52.737]   - Field: 'seed'
[13:13:52.737]   - Field: 'version'
[13:13:52.737]   - Field: 'result'
[13:13:52.737]   - Field: 'asynchronous'
[13:13:52.738]   - Field: 'calls'
[13:13:52.738]   - Field: 'globals'
[13:13:52.738]   - Field: 'stdout'
[13:13:52.738]   - Field: 'earlySignal'
[13:13:52.738]   - Field: 'lazy'
[13:13:52.738]   - Field: 'state'
[13:13:52.739] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:52.739] - Launch lazy future ...
[13:13:52.739] Packages needed by the future expression (n = 0): <none>
[13:13:52.739] Packages needed by future strategies (n = 0): <none>
[13:13:52.740] {
[13:13:52.740]     {
[13:13:52.740]         {
[13:13:52.740]             ...future.startTime <- base::Sys.time()
[13:13:52.740]             {
[13:13:52.740]                 {
[13:13:52.740]                   {
[13:13:52.740]                     base::local({
[13:13:52.740]                       has_future <- base::requireNamespace("future", 
[13:13:52.740]                         quietly = TRUE)
[13:13:52.740]                       if (has_future) {
[13:13:52.740]                         ns <- base::getNamespace("future")
[13:13:52.740]                         version <- ns[[".package"]][["version"]]
[13:13:52.740]                         if (is.null(version)) 
[13:13:52.740]                           version <- utils::packageVersion("future")
[13:13:52.740]                       }
[13:13:52.740]                       else {
[13:13:52.740]                         version <- NULL
[13:13:52.740]                       }
[13:13:52.740]                       if (!has_future || version < "1.8.0") {
[13:13:52.740]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:52.740]                           "", base::R.version$version.string), 
[13:13:52.740]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:52.740]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:52.740]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:52.740]                             "release", "version")], collapse = " "), 
[13:13:52.740]                           hostname = base::Sys.info()[["nodename"]])
[13:13:52.740]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:52.740]                           info)
[13:13:52.740]                         info <- base::paste(info, collapse = "; ")
[13:13:52.740]                         if (!has_future) {
[13:13:52.740]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:52.740]                             info)
[13:13:52.740]                         }
[13:13:52.740]                         else {
[13:13:52.740]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:52.740]                             info, version)
[13:13:52.740]                         }
[13:13:52.740]                         base::stop(msg)
[13:13:52.740]                       }
[13:13:52.740]                     })
[13:13:52.740]                   }
[13:13:52.740]                   options(future.plan = NULL)
[13:13:52.740]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.740]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:52.740]                 }
[13:13:52.740]                 ...future.workdir <- getwd()
[13:13:52.740]             }
[13:13:52.740]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:52.740]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:52.740]         }
[13:13:52.740]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:52.740]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[13:13:52.740]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:52.740]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:52.740]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:52.740]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:52.740]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:52.740]             base::names(...future.oldOptions))
[13:13:52.740]     }
[13:13:52.740]     if (FALSE) {
[13:13:52.740]     }
[13:13:52.740]     else {
[13:13:52.740]         if (TRUE) {
[13:13:52.740]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:52.740]                 open = "w")
[13:13:52.740]         }
[13:13:52.740]         else {
[13:13:52.740]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:52.740]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:52.740]         }
[13:13:52.740]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:52.740]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:52.740]             base::sink(type = "output", split = FALSE)
[13:13:52.740]             base::close(...future.stdout)
[13:13:52.740]         }, add = TRUE)
[13:13:52.740]     }
[13:13:52.740]     ...future.frame <- base::sys.nframe()
[13:13:52.740]     ...future.conditions <- base::list()
[13:13:52.740]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:52.740]     if (FALSE) {
[13:13:52.740]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:52.740]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:52.740]     }
[13:13:52.740]     ...future.result <- base::tryCatch({
[13:13:52.740]         base::withCallingHandlers({
[13:13:52.740]             ...future.value <- base::withVisible(base::local({
[13:13:52.740]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.740]                 if (!identical(...future.globals.maxSize.org, 
[13:13:52.740]                   ...future.globals.maxSize)) {
[13:13:52.740]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.740]                   on.exit(options(oopts), add = TRUE)
[13:13:52.740]                 }
[13:13:52.740]                 {
[13:13:52.740]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.740]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:52.740]                     USE.NAMES = FALSE)
[13:13:52.740]                   do.call(mapply, args = args)
[13:13:52.740]                 }
[13:13:52.740]             }))
[13:13:52.740]             future::FutureResult(value = ...future.value$value, 
[13:13:52.740]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.740]                   ...future.rng), globalenv = if (FALSE) 
[13:13:52.740]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:52.740]                     ...future.globalenv.names))
[13:13:52.740]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:52.740]         }, condition = base::local({
[13:13:52.740]             c <- base::c
[13:13:52.740]             inherits <- base::inherits
[13:13:52.740]             invokeRestart <- base::invokeRestart
[13:13:52.740]             length <- base::length
[13:13:52.740]             list <- base::list
[13:13:52.740]             seq.int <- base::seq.int
[13:13:52.740]             signalCondition <- base::signalCondition
[13:13:52.740]             sys.calls <- base::sys.calls
[13:13:52.740]             `[[` <- base::`[[`
[13:13:52.740]             `+` <- base::`+`
[13:13:52.740]             `<<-` <- base::`<<-`
[13:13:52.740]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:52.740]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:52.740]                   3L)]
[13:13:52.740]             }
[13:13:52.740]             function(cond) {
[13:13:52.740]                 is_error <- inherits(cond, "error")
[13:13:52.740]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:52.740]                   NULL)
[13:13:52.740]                 if (is_error) {
[13:13:52.740]                   sessionInformation <- function() {
[13:13:52.740]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:52.740]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:52.740]                       search = base::search(), system = base::Sys.info())
[13:13:52.740]                   }
[13:13:52.740]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.740]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:52.740]                     cond$call), session = sessionInformation(), 
[13:13:52.740]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:52.740]                   signalCondition(cond)
[13:13:52.740]                 }
[13:13:52.740]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:52.740]                 "immediateCondition"))) {
[13:13:52.740]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:52.740]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.740]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:52.740]                   if (TRUE && !signal) {
[13:13:52.740]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.740]                     {
[13:13:52.740]                       inherits <- base::inherits
[13:13:52.740]                       invokeRestart <- base::invokeRestart
[13:13:52.740]                       is.null <- base::is.null
[13:13:52.740]                       muffled <- FALSE
[13:13:52.740]                       if (inherits(cond, "message")) {
[13:13:52.740]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.740]                         if (muffled) 
[13:13:52.740]                           invokeRestart("muffleMessage")
[13:13:52.740]                       }
[13:13:52.740]                       else if (inherits(cond, "warning")) {
[13:13:52.740]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.740]                         if (muffled) 
[13:13:52.740]                           invokeRestart("muffleWarning")
[13:13:52.740]                       }
[13:13:52.740]                       else if (inherits(cond, "condition")) {
[13:13:52.740]                         if (!is.null(pattern)) {
[13:13:52.740]                           computeRestarts <- base::computeRestarts
[13:13:52.740]                           grepl <- base::grepl
[13:13:52.740]                           restarts <- computeRestarts(cond)
[13:13:52.740]                           for (restart in restarts) {
[13:13:52.740]                             name <- restart$name
[13:13:52.740]                             if (is.null(name)) 
[13:13:52.740]                               next
[13:13:52.740]                             if (!grepl(pattern, name)) 
[13:13:52.740]                               next
[13:13:52.740]                             invokeRestart(restart)
[13:13:52.740]                             muffled <- TRUE
[13:13:52.740]                             break
[13:13:52.740]                           }
[13:13:52.740]                         }
[13:13:52.740]                       }
[13:13:52.740]                       invisible(muffled)
[13:13:52.740]                     }
[13:13:52.740]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.740]                   }
[13:13:52.740]                 }
[13:13:52.740]                 else {
[13:13:52.740]                   if (TRUE) {
[13:13:52.740]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.740]                     {
[13:13:52.740]                       inherits <- base::inherits
[13:13:52.740]                       invokeRestart <- base::invokeRestart
[13:13:52.740]                       is.null <- base::is.null
[13:13:52.740]                       muffled <- FALSE
[13:13:52.740]                       if (inherits(cond, "message")) {
[13:13:52.740]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.740]                         if (muffled) 
[13:13:52.740]                           invokeRestart("muffleMessage")
[13:13:52.740]                       }
[13:13:52.740]                       else if (inherits(cond, "warning")) {
[13:13:52.740]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.740]                         if (muffled) 
[13:13:52.740]                           invokeRestart("muffleWarning")
[13:13:52.740]                       }
[13:13:52.740]                       else if (inherits(cond, "condition")) {
[13:13:52.740]                         if (!is.null(pattern)) {
[13:13:52.740]                           computeRestarts <- base::computeRestarts
[13:13:52.740]                           grepl <- base::grepl
[13:13:52.740]                           restarts <- computeRestarts(cond)
[13:13:52.740]                           for (restart in restarts) {
[13:13:52.740]                             name <- restart$name
[13:13:52.740]                             if (is.null(name)) 
[13:13:52.740]                               next
[13:13:52.740]                             if (!grepl(pattern, name)) 
[13:13:52.740]                               next
[13:13:52.740]                             invokeRestart(restart)
[13:13:52.740]                             muffled <- TRUE
[13:13:52.740]                             break
[13:13:52.740]                           }
[13:13:52.740]                         }
[13:13:52.740]                       }
[13:13:52.740]                       invisible(muffled)
[13:13:52.740]                     }
[13:13:52.740]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.740]                   }
[13:13:52.740]                 }
[13:13:52.740]             }
[13:13:52.740]         }))
[13:13:52.740]     }, error = function(ex) {
[13:13:52.740]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:52.740]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.740]                 ...future.rng), started = ...future.startTime, 
[13:13:52.740]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:52.740]             version = "1.8"), class = "FutureResult")
[13:13:52.740]     }, finally = {
[13:13:52.740]         if (!identical(...future.workdir, getwd())) 
[13:13:52.740]             setwd(...future.workdir)
[13:13:52.740]         {
[13:13:52.740]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:52.740]                 ...future.oldOptions$nwarnings <- NULL
[13:13:52.740]             }
[13:13:52.740]             base::options(...future.oldOptions)
[13:13:52.740]             if (.Platform$OS.type == "windows") {
[13:13:52.740]                 old_names <- names(...future.oldEnvVars)
[13:13:52.740]                 envs <- base::Sys.getenv()
[13:13:52.740]                 names <- names(envs)
[13:13:52.740]                 common <- intersect(names, old_names)
[13:13:52.740]                 added <- setdiff(names, old_names)
[13:13:52.740]                 removed <- setdiff(old_names, names)
[13:13:52.740]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:52.740]                   envs[common]]
[13:13:52.740]                 NAMES <- toupper(changed)
[13:13:52.740]                 args <- list()
[13:13:52.740]                 for (kk in seq_along(NAMES)) {
[13:13:52.740]                   name <- changed[[kk]]
[13:13:52.740]                   NAME <- NAMES[[kk]]
[13:13:52.740]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.740]                     next
[13:13:52.740]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.740]                 }
[13:13:52.740]                 NAMES <- toupper(added)
[13:13:52.740]                 for (kk in seq_along(NAMES)) {
[13:13:52.740]                   name <- added[[kk]]
[13:13:52.740]                   NAME <- NAMES[[kk]]
[13:13:52.740]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.740]                     next
[13:13:52.740]                   args[[name]] <- ""
[13:13:52.740]                 }
[13:13:52.740]                 NAMES <- toupper(removed)
[13:13:52.740]                 for (kk in seq_along(NAMES)) {
[13:13:52.740]                   name <- removed[[kk]]
[13:13:52.740]                   NAME <- NAMES[[kk]]
[13:13:52.740]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.740]                     next
[13:13:52.740]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.740]                 }
[13:13:52.740]                 if (length(args) > 0) 
[13:13:52.740]                   base::do.call(base::Sys.setenv, args = args)
[13:13:52.740]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:52.740]             }
[13:13:52.740]             else {
[13:13:52.740]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:52.740]             }
[13:13:52.740]             {
[13:13:52.740]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:52.740]                   0L) {
[13:13:52.740]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:52.740]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:52.740]                   base::options(opts)
[13:13:52.740]                 }
[13:13:52.740]                 {
[13:13:52.740]                   {
[13:13:52.740]                     base::assign(".Random.seed", c(10407L, -1918733616L, 
[13:13:52.740]                     1584354639L, -1174970862L, -939885817L, 1422965938L, 
[13:13:52.740]                     -981423529L), envir = base::globalenv(), 
[13:13:52.740]                       inherits = FALSE)
[13:13:52.740]                     NULL
[13:13:52.740]                   }
[13:13:52.740]                   options(future.plan = NULL)
[13:13:52.740]                   if (is.na(NA_character_)) 
[13:13:52.740]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.740]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:52.740]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:52.740]                   {
[13:13:52.740]                     future <- SequentialFuture(..., envir = envir)
[13:13:52.740]                     if (!future$lazy) 
[13:13:52.740]                       future <- run(future)
[13:13:52.740]                     invisible(future)
[13:13:52.740]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:52.740]                 }
[13:13:52.740]             }
[13:13:52.740]         }
[13:13:52.740]     })
[13:13:52.740]     if (TRUE) {
[13:13:52.740]         base::sink(type = "output", split = FALSE)
[13:13:52.740]         if (TRUE) {
[13:13:52.740]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:52.740]         }
[13:13:52.740]         else {
[13:13:52.740]             ...future.result["stdout"] <- base::list(NULL)
[13:13:52.740]         }
[13:13:52.740]         base::close(...future.stdout)
[13:13:52.740]         ...future.stdout <- NULL
[13:13:52.740]     }
[13:13:52.740]     ...future.result$conditions <- ...future.conditions
[13:13:52.740]     ...future.result$finished <- base::Sys.time()
[13:13:52.740]     ...future.result
[13:13:52.740] }
[13:13:52.743] assign_globals() ...
[13:13:52.743] List of 5
[13:13:52.743]  $ ...future.FUN            :function (C, k)  
[13:13:52.743]  $ MoreArgs                 : list()
[13:13:52.743]  $ ...future.elements_ii    :List of 2
[13:13:52.743]   ..$ :List of 5
[13:13:52.743]   .. ..$ : chr "A"
[13:13:52.743]   .. ..$ : chr "B"
[13:13:52.743]   .. ..$ : chr "C"
[13:13:52.743]   .. ..$ : chr "D"
[13:13:52.743]   .. ..$ : chr "E"
[13:13:52.743]   ..$ :List of 5
[13:13:52.743]   .. ..$ : int 5
[13:13:52.743]   .. ..$ : int 4
[13:13:52.743]   .. ..$ : int 3
[13:13:52.743]   .. ..$ : int 2
[13:13:52.743]   .. ..$ : int 1
[13:13:52.743]  $ ...future.seeds_ii       : NULL
[13:13:52.743]  $ ...future.globals.maxSize: NULL
[13:13:52.743]  - attr(*, "where")=List of 5
[13:13:52.743]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:52.743]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[13:13:52.743]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:52.743]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:52.743]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:52.743]  - attr(*, "resolved")= logi FALSE
[13:13:52.743]  - attr(*, "total_size")= num 4160
[13:13:52.743]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.743]  - attr(*, "already-done")= logi TRUE
[13:13:52.753] - reassign environment for '...future.FUN'
[13:13:52.753] - copied '...future.FUN' to environment
[13:13:52.753] - copied 'MoreArgs' to environment
[13:13:52.753] - copied '...future.elements_ii' to environment
[13:13:52.753] - copied '...future.seeds_ii' to environment
[13:13:52.753] - copied '...future.globals.maxSize' to environment
[13:13:52.754] assign_globals() ... done
[13:13:52.754] plan(): Setting new future strategy stack:
[13:13:52.754] List of future strategies:
[13:13:52.754] 1. sequential:
[13:13:52.754]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.754]    - tweaked: FALSE
[13:13:52.754]    - call: NULL
[13:13:52.755] plan(): nbrOfWorkers() = 1
[13:13:52.756] plan(): Setting new future strategy stack:
[13:13:52.756] List of future strategies:
[13:13:52.756] 1. sequential:
[13:13:52.756]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.756]    - tweaked: FALSE
[13:13:52.756]    - call: plan(strategy)
[13:13:52.757] plan(): nbrOfWorkers() = 1
[13:13:52.757] SequentialFuture started (and completed)
[13:13:52.757] - Launch lazy future ... done
[13:13:52.757] run() for 'SequentialFuture' ... done
[13:13:52.757] Created future:
[13:13:52.758] SequentialFuture:
[13:13:52.758] Label: 'future_.mapply-1'
[13:13:52.758] Expression:
[13:13:52.758] {
[13:13:52.758]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.758]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:52.758]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.758]         on.exit(options(oopts), add = TRUE)
[13:13:52.758]     }
[13:13:52.758]     {
[13:13:52.758]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.758]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:52.758]         do.call(mapply, args = args)
[13:13:52.758]     }
[13:13:52.758] }
[13:13:52.758] Lazy evaluation: FALSE
[13:13:52.758] Asynchronous evaluation: FALSE
[13:13:52.758] Local evaluation: TRUE
[13:13:52.758] Environment: R_GlobalEnv
[13:13:52.758] Capture standard output: TRUE
[13:13:52.758] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:52.758] Globals: 5 objects totaling 4.06 KiB (function '...future.FUN' of 3.24 KiB, list 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 840 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:52.758] Packages: <none>
[13:13:52.758] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:52.758] Resolved: TRUE
[13:13:52.758] Value: 560 bytes of class 'list'
[13:13:52.758] Early signaling: FALSE
[13:13:52.758] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:52.758] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.759] Chunk #1 of 1 ... DONE
[13:13:52.759] Launching 1 futures (chunks) ... DONE
[13:13:52.759] Resolving 1 futures (chunks) ...
[13:13:52.759] resolve() on list ...
[13:13:52.759]  recursive: 0
[13:13:52.760]  length: 1
[13:13:52.760] 
[13:13:52.760] resolved() for 'SequentialFuture' ...
[13:13:52.760] - state: 'finished'
[13:13:52.760] - run: TRUE
[13:13:52.761] - result: 'FutureResult'
[13:13:52.761] resolved() for 'SequentialFuture' ... done
[13:13:52.761] Future #1
[13:13:52.761] signalConditionsASAP(SequentialFuture, pos=1) ...
[13:13:52.761] - nx: 1
[13:13:52.761] - relay: TRUE
[13:13:52.762] - stdout: TRUE
[13:13:52.762] - signal: TRUE
[13:13:52.762] - resignal: FALSE
[13:13:52.762] - force: TRUE
[13:13:52.762] - relayed: [n=1] FALSE
[13:13:52.762] - queued futures: [n=1] FALSE
[13:13:52.762]  - until=1
[13:13:52.763]  - relaying element #1
[13:13:52.763] - relayed: [n=1] TRUE
[13:13:52.763] - queued futures: [n=1] TRUE
[13:13:52.763] signalConditionsASAP(SequentialFuture, pos=1) ... done
[13:13:52.763]  length: 0 (resolved future 1)
[13:13:52.764] Relaying remaining futures
[13:13:52.764] signalConditionsASAP(NULL, pos=0) ...
[13:13:52.764] - nx: 1
[13:13:52.764] - relay: TRUE
[13:13:52.764] - stdout: TRUE
[13:13:52.764] - signal: TRUE
[13:13:52.764] - resignal: FALSE
[13:13:52.765] - force: TRUE
[13:13:52.765] - relayed: [n=1] TRUE
[13:13:52.765] - queued futures: [n=1] TRUE
 - flush all
[13:13:52.765] - relayed: [n=1] TRUE
[13:13:52.765] - queued futures: [n=1] TRUE
[13:13:52.766] signalConditionsASAP(NULL, pos=0) ... done
[13:13:52.766] resolve() on list ... DONE
[13:13:52.766]  - Number of value chunks collected: 1
[13:13:52.766] Resolving 1 futures (chunks) ... DONE
[13:13:52.766] Reducing values from 1 chunks ...
[13:13:52.766]  - Number of values collected after concatenation: 5
[13:13:52.767]  - Number of values expected: 5
[13:13:52.767] Reducing values from 1 chunks ... DONE
[13:13:52.767] future_mapply() ... DONE
- Subsetting (Issue #17) ...
[13:13:52.768] future_mapply() ...
[13:13:52.768] Number of chunks: 1
[13:13:52.768] getGlobalsAndPackagesXApply() ...
[13:13:52.769]  - future.globals: TRUE
[13:13:52.769] getGlobalsAndPackages() ...
[13:13:52.769] Searching for globals...
[13:13:52.770] - globals found: [1] 'FUN'
[13:13:52.770] Searching for globals ... DONE
[13:13:52.770] Resolving globals: FALSE
[13:13:52.771] The total size of the 1 globals is 848 bytes (848 bytes)
[13:13:52.771] The total size of the 1 globals exported for future expression ('FUN()') is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (848 bytes of class 'function')
[13:13:52.771] - globals: [1] 'FUN'
[13:13:52.772] 
[13:13:52.772] getGlobalsAndPackages() ... DONE
[13:13:52.772]  - globals found/used: [n=1] 'FUN'
[13:13:52.772]  - needed namespaces: [n=0] 
[13:13:52.772] Finding globals ... DONE
[13:13:52.772] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:52.773] List of 2
[13:13:52.773]  $ ...future.FUN:function (x)  
[13:13:52.773]  $ MoreArgs     : NULL
[13:13:52.773]  - attr(*, "where")=List of 2
[13:13:52.773]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:52.773]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:52.773]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.773]  - attr(*, "resolved")= logi FALSE
[13:13:52.773]  - attr(*, "total_size")= num NA
[13:13:52.776] Packages to be attached in all futures: [n=0] 
[13:13:52.777] getGlobalsAndPackagesXApply() ... DONE
[13:13:52.777] Number of futures (= number of chunks): 1
[13:13:52.777] Launching 1 futures (chunks) ...
[13:13:52.777] Chunk #1 of 1 ...
[13:13:52.777]  - Finding globals in '...' for chunk #1 ...
[13:13:52.778] getGlobalsAndPackages() ...
[13:13:52.778] Searching for globals...
[13:13:52.778] 
[13:13:52.778] Searching for globals ... DONE
[13:13:52.778] - globals: [0] <none>
[13:13:52.779] getGlobalsAndPackages() ... DONE
[13:13:52.779]    + additional globals found: [n=0] 
[13:13:52.779]    + additional namespaces needed: [n=0] 
[13:13:52.779]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:52.779]  - seeds: <none>
[13:13:52.779]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.780] getGlobalsAndPackages() ...
[13:13:52.780] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.780] Resolving globals: FALSE
[13:13:52.781] The total size of the 5 globals is 1.10 KiB (1128 bytes)
[13:13:52.781] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 1.10 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (848 bytes of class 'function'), '...future.elements_ii' (280 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:52.781] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.782] 
[13:13:52.782] getGlobalsAndPackages() ... DONE
[13:13:52.782] run() for 'Future' ...
[13:13:52.782] - state: 'created'
[13:13:52.782] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:52.783] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.783] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:52.783]   - Field: 'label'
[13:13:52.783]   - Field: 'local'
[13:13:52.784]   - Field: 'owner'
[13:13:52.784]   - Field: 'envir'
[13:13:52.784]   - Field: 'packages'
[13:13:52.784]   - Field: 'gc'
[13:13:52.784]   - Field: 'conditions'
[13:13:52.784]   - Field: 'expr'
[13:13:52.785]   - Field: 'uuid'
[13:13:52.785]   - Field: 'seed'
[13:13:52.785]   - Field: 'version'
[13:13:52.785]   - Field: 'result'
[13:13:52.785]   - Field: 'asynchronous'
[13:13:52.785]   - Field: 'calls'
[13:13:52.786]   - Field: 'globals'
[13:13:52.786]   - Field: 'stdout'
[13:13:52.786]   - Field: 'earlySignal'
[13:13:52.786]   - Field: 'lazy'
[13:13:52.786]   - Field: 'state'
[13:13:52.787] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:52.787] - Launch lazy future ...
[13:13:52.787] Packages needed by the future expression (n = 0): <none>
[13:13:52.787] Packages needed by future strategies (n = 0): <none>
[13:13:52.788] {
[13:13:52.788]     {
[13:13:52.788]         {
[13:13:52.788]             ...future.startTime <- base::Sys.time()
[13:13:52.788]             {
[13:13:52.788]                 {
[13:13:52.788]                   {
[13:13:52.788]                     base::local({
[13:13:52.788]                       has_future <- base::requireNamespace("future", 
[13:13:52.788]                         quietly = TRUE)
[13:13:52.788]                       if (has_future) {
[13:13:52.788]                         ns <- base::getNamespace("future")
[13:13:52.788]                         version <- ns[[".package"]][["version"]]
[13:13:52.788]                         if (is.null(version)) 
[13:13:52.788]                           version <- utils::packageVersion("future")
[13:13:52.788]                       }
[13:13:52.788]                       else {
[13:13:52.788]                         version <- NULL
[13:13:52.788]                       }
[13:13:52.788]                       if (!has_future || version < "1.8.0") {
[13:13:52.788]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:52.788]                           "", base::R.version$version.string), 
[13:13:52.788]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:52.788]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:52.788]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:52.788]                             "release", "version")], collapse = " "), 
[13:13:52.788]                           hostname = base::Sys.info()[["nodename"]])
[13:13:52.788]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:52.788]                           info)
[13:13:52.788]                         info <- base::paste(info, collapse = "; ")
[13:13:52.788]                         if (!has_future) {
[13:13:52.788]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:52.788]                             info)
[13:13:52.788]                         }
[13:13:52.788]                         else {
[13:13:52.788]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:52.788]                             info, version)
[13:13:52.788]                         }
[13:13:52.788]                         base::stop(msg)
[13:13:52.788]                       }
[13:13:52.788]                     })
[13:13:52.788]                   }
[13:13:52.788]                   options(future.plan = NULL)
[13:13:52.788]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.788]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:52.788]                 }
[13:13:52.788]                 ...future.workdir <- getwd()
[13:13:52.788]             }
[13:13:52.788]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:52.788]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:52.788]         }
[13:13:52.788]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:52.788]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[13:13:52.788]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:52.788]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:52.788]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:52.788]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:52.788]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:52.788]             base::names(...future.oldOptions))
[13:13:52.788]     }
[13:13:52.788]     if (FALSE) {
[13:13:52.788]     }
[13:13:52.788]     else {
[13:13:52.788]         if (TRUE) {
[13:13:52.788]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:52.788]                 open = "w")
[13:13:52.788]         }
[13:13:52.788]         else {
[13:13:52.788]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:52.788]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:52.788]         }
[13:13:52.788]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:52.788]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:52.788]             base::sink(type = "output", split = FALSE)
[13:13:52.788]             base::close(...future.stdout)
[13:13:52.788]         }, add = TRUE)
[13:13:52.788]     }
[13:13:52.788]     ...future.frame <- base::sys.nframe()
[13:13:52.788]     ...future.conditions <- base::list()
[13:13:52.788]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:52.788]     if (FALSE) {
[13:13:52.788]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:52.788]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:52.788]     }
[13:13:52.788]     ...future.result <- base::tryCatch({
[13:13:52.788]         base::withCallingHandlers({
[13:13:52.788]             ...future.value <- base::withVisible(base::local({
[13:13:52.788]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.788]                 if (!identical(...future.globals.maxSize.org, 
[13:13:52.788]                   ...future.globals.maxSize)) {
[13:13:52.788]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.788]                   on.exit(options(oopts), add = TRUE)
[13:13:52.788]                 }
[13:13:52.788]                 {
[13:13:52.788]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.788]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:52.788]                     USE.NAMES = FALSE)
[13:13:52.788]                   do.call(mapply, args = args)
[13:13:52.788]                 }
[13:13:52.788]             }))
[13:13:52.788]             future::FutureResult(value = ...future.value$value, 
[13:13:52.788]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.788]                   ...future.rng), globalenv = if (FALSE) 
[13:13:52.788]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:52.788]                     ...future.globalenv.names))
[13:13:52.788]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:52.788]         }, condition = base::local({
[13:13:52.788]             c <- base::c
[13:13:52.788]             inherits <- base::inherits
[13:13:52.788]             invokeRestart <- base::invokeRestart
[13:13:52.788]             length <- base::length
[13:13:52.788]             list <- base::list
[13:13:52.788]             seq.int <- base::seq.int
[13:13:52.788]             signalCondition <- base::signalCondition
[13:13:52.788]             sys.calls <- base::sys.calls
[13:13:52.788]             `[[` <- base::`[[`
[13:13:52.788]             `+` <- base::`+`
[13:13:52.788]             `<<-` <- base::`<<-`
[13:13:52.788]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:52.788]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:52.788]                   3L)]
[13:13:52.788]             }
[13:13:52.788]             function(cond) {
[13:13:52.788]                 is_error <- inherits(cond, "error")
[13:13:52.788]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:52.788]                   NULL)
[13:13:52.788]                 if (is_error) {
[13:13:52.788]                   sessionInformation <- function() {
[13:13:52.788]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:52.788]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:52.788]                       search = base::search(), system = base::Sys.info())
[13:13:52.788]                   }
[13:13:52.788]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.788]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:52.788]                     cond$call), session = sessionInformation(), 
[13:13:52.788]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:52.788]                   signalCondition(cond)
[13:13:52.788]                 }
[13:13:52.788]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:52.788]                 "immediateCondition"))) {
[13:13:52.788]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:52.788]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.788]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:52.788]                   if (TRUE && !signal) {
[13:13:52.788]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.788]                     {
[13:13:52.788]                       inherits <- base::inherits
[13:13:52.788]                       invokeRestart <- base::invokeRestart
[13:13:52.788]                       is.null <- base::is.null
[13:13:52.788]                       muffled <- FALSE
[13:13:52.788]                       if (inherits(cond, "message")) {
[13:13:52.788]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.788]                         if (muffled) 
[13:13:52.788]                           invokeRestart("muffleMessage")
[13:13:52.788]                       }
[13:13:52.788]                       else if (inherits(cond, "warning")) {
[13:13:52.788]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.788]                         if (muffled) 
[13:13:52.788]                           invokeRestart("muffleWarning")
[13:13:52.788]                       }
[13:13:52.788]                       else if (inherits(cond, "condition")) {
[13:13:52.788]                         if (!is.null(pattern)) {
[13:13:52.788]                           computeRestarts <- base::computeRestarts
[13:13:52.788]                           grepl <- base::grepl
[13:13:52.788]                           restarts <- computeRestarts(cond)
[13:13:52.788]                           for (restart in restarts) {
[13:13:52.788]                             name <- restart$name
[13:13:52.788]                             if (is.null(name)) 
[13:13:52.788]                               next
[13:13:52.788]                             if (!grepl(pattern, name)) 
[13:13:52.788]                               next
[13:13:52.788]                             invokeRestart(restart)
[13:13:52.788]                             muffled <- TRUE
[13:13:52.788]                             break
[13:13:52.788]                           }
[13:13:52.788]                         }
[13:13:52.788]                       }
[13:13:52.788]                       invisible(muffled)
[13:13:52.788]                     }
[13:13:52.788]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.788]                   }
[13:13:52.788]                 }
[13:13:52.788]                 else {
[13:13:52.788]                   if (TRUE) {
[13:13:52.788]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.788]                     {
[13:13:52.788]                       inherits <- base::inherits
[13:13:52.788]                       invokeRestart <- base::invokeRestart
[13:13:52.788]                       is.null <- base::is.null
[13:13:52.788]                       muffled <- FALSE
[13:13:52.788]                       if (inherits(cond, "message")) {
[13:13:52.788]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.788]                         if (muffled) 
[13:13:52.788]                           invokeRestart("muffleMessage")
[13:13:52.788]                       }
[13:13:52.788]                       else if (inherits(cond, "warning")) {
[13:13:52.788]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.788]                         if (muffled) 
[13:13:52.788]                           invokeRestart("muffleWarning")
[13:13:52.788]                       }
[13:13:52.788]                       else if (inherits(cond, "condition")) {
[13:13:52.788]                         if (!is.null(pattern)) {
[13:13:52.788]                           computeRestarts <- base::computeRestarts
[13:13:52.788]                           grepl <- base::grepl
[13:13:52.788]                           restarts <- computeRestarts(cond)
[13:13:52.788]                           for (restart in restarts) {
[13:13:52.788]                             name <- restart$name
[13:13:52.788]                             if (is.null(name)) 
[13:13:52.788]                               next
[13:13:52.788]                             if (!grepl(pattern, name)) 
[13:13:52.788]                               next
[13:13:52.788]                             invokeRestart(restart)
[13:13:52.788]                             muffled <- TRUE
[13:13:52.788]                             break
[13:13:52.788]                           }
[13:13:52.788]                         }
[13:13:52.788]                       }
[13:13:52.788]                       invisible(muffled)
[13:13:52.788]                     }
[13:13:52.788]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.788]                   }
[13:13:52.788]                 }
[13:13:52.788]             }
[13:13:52.788]         }))
[13:13:52.788]     }, error = function(ex) {
[13:13:52.788]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:52.788]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.788]                 ...future.rng), started = ...future.startTime, 
[13:13:52.788]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:52.788]             version = "1.8"), class = "FutureResult")
[13:13:52.788]     }, finally = {
[13:13:52.788]         if (!identical(...future.workdir, getwd())) 
[13:13:52.788]             setwd(...future.workdir)
[13:13:52.788]         {
[13:13:52.788]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:52.788]                 ...future.oldOptions$nwarnings <- NULL
[13:13:52.788]             }
[13:13:52.788]             base::options(...future.oldOptions)
[13:13:52.788]             if (.Platform$OS.type == "windows") {
[13:13:52.788]                 old_names <- names(...future.oldEnvVars)
[13:13:52.788]                 envs <- base::Sys.getenv()
[13:13:52.788]                 names <- names(envs)
[13:13:52.788]                 common <- intersect(names, old_names)
[13:13:52.788]                 added <- setdiff(names, old_names)
[13:13:52.788]                 removed <- setdiff(old_names, names)
[13:13:52.788]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:52.788]                   envs[common]]
[13:13:52.788]                 NAMES <- toupper(changed)
[13:13:52.788]                 args <- list()
[13:13:52.788]                 for (kk in seq_along(NAMES)) {
[13:13:52.788]                   name <- changed[[kk]]
[13:13:52.788]                   NAME <- NAMES[[kk]]
[13:13:52.788]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.788]                     next
[13:13:52.788]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.788]                 }
[13:13:52.788]                 NAMES <- toupper(added)
[13:13:52.788]                 for (kk in seq_along(NAMES)) {
[13:13:52.788]                   name <- added[[kk]]
[13:13:52.788]                   NAME <- NAMES[[kk]]
[13:13:52.788]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.788]                     next
[13:13:52.788]                   args[[name]] <- ""
[13:13:52.788]                 }
[13:13:52.788]                 NAMES <- toupper(removed)
[13:13:52.788]                 for (kk in seq_along(NAMES)) {
[13:13:52.788]                   name <- removed[[kk]]
[13:13:52.788]                   NAME <- NAMES[[kk]]
[13:13:52.788]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.788]                     next
[13:13:52.788]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.788]                 }
[13:13:52.788]                 if (length(args) > 0) 
[13:13:52.788]                   base::do.call(base::Sys.setenv, args = args)
[13:13:52.788]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:52.788]             }
[13:13:52.788]             else {
[13:13:52.788]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:52.788]             }
[13:13:52.788]             {
[13:13:52.788]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:52.788]                   0L) {
[13:13:52.788]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:52.788]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:52.788]                   base::options(opts)
[13:13:52.788]                 }
[13:13:52.788]                 {
[13:13:52.788]                   {
[13:13:52.788]                     base::assign(".Random.seed", c(10407L, -1918733616L, 
[13:13:52.788]                     1584354639L, -1174970862L, -939885817L, 1422965938L, 
[13:13:52.788]                     -981423529L), envir = base::globalenv(), 
[13:13:52.788]                       inherits = FALSE)
[13:13:52.788]                     NULL
[13:13:52.788]                   }
[13:13:52.788]                   options(future.plan = NULL)
[13:13:52.788]                   if (is.na(NA_character_)) 
[13:13:52.788]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.788]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:52.788]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:52.788]                   {
[13:13:52.788]                     future <- SequentialFuture(..., envir = envir)
[13:13:52.788]                     if (!future$lazy) 
[13:13:52.788]                       future <- run(future)
[13:13:52.788]                     invisible(future)
[13:13:52.788]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:52.788]                 }
[13:13:52.788]             }
[13:13:52.788]         }
[13:13:52.788]     })
[13:13:52.788]     if (TRUE) {
[13:13:52.788]         base::sink(type = "output", split = FALSE)
[13:13:52.788]         if (TRUE) {
[13:13:52.788]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:52.788]         }
[13:13:52.788]         else {
[13:13:52.788]             ...future.result["stdout"] <- base::list(NULL)
[13:13:52.788]         }
[13:13:52.788]         base::close(...future.stdout)
[13:13:52.788]         ...future.stdout <- NULL
[13:13:52.788]     }
[13:13:52.788]     ...future.result$conditions <- ...future.conditions
[13:13:52.788]     ...future.result$finished <- base::Sys.time()
[13:13:52.788]     ...future.result
[13:13:52.788] }
[13:13:52.791] assign_globals() ...
[13:13:52.792] List of 5
[13:13:52.792]  $ ...future.FUN            :function (x)  
[13:13:52.792]  $ MoreArgs                 : NULL
[13:13:52.792]  $ ...future.elements_ii    :List of 1
[13:13:52.792]   ..$ :List of 1
[13:13:52.792]   .. ..$ : Date[1:1], format: "2018-06-01"
[13:13:52.792]  $ ...future.seeds_ii       : NULL
[13:13:52.792]  $ ...future.globals.maxSize: NULL
[13:13:52.792]  - attr(*, "where")=List of 5
[13:13:52.792]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:52.792]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[13:13:52.792]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:52.792]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:52.792]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:52.792]  - attr(*, "resolved")= logi FALSE
[13:13:52.792]  - attr(*, "total_size")= num 1128
[13:13:52.792]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.792]  - attr(*, "already-done")= logi TRUE
[13:13:52.797] - copied '...future.FUN' to environment
[13:13:52.798] - copied 'MoreArgs' to environment
[13:13:52.798] - copied '...future.elements_ii' to environment
[13:13:52.798] - copied '...future.seeds_ii' to environment
[13:13:52.798] - copied '...future.globals.maxSize' to environment
[13:13:52.798] assign_globals() ... done
[13:13:52.799] plan(): Setting new future strategy stack:
[13:13:52.799] List of future strategies:
[13:13:52.799] 1. sequential:
[13:13:52.799]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.799]    - tweaked: FALSE
[13:13:52.799]    - call: NULL
[13:13:52.799] plan(): nbrOfWorkers() = 1
[13:13:52.801] plan(): Setting new future strategy stack:
[13:13:52.801] List of future strategies:
[13:13:52.801] 1. sequential:
[13:13:52.801]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.801]    - tweaked: FALSE
[13:13:52.801]    - call: plan(strategy)
[13:13:52.801] plan(): nbrOfWorkers() = 1
[13:13:52.802] SequentialFuture started (and completed)
[13:13:52.802] - Launch lazy future ... done
[13:13:52.802] run() for 'SequentialFuture' ... done
[13:13:52.802] Created future:
[13:13:52.802] SequentialFuture:
[13:13:52.802] Label: 'future_mapply-1'
[13:13:52.802] Expression:
[13:13:52.802] {
[13:13:52.802]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.802]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:52.802]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.802]         on.exit(options(oopts), add = TRUE)
[13:13:52.802]     }
[13:13:52.802]     {
[13:13:52.802]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.802]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:52.802]         do.call(mapply, args = args)
[13:13:52.802]     }
[13:13:52.802] }
[13:13:52.802] Lazy evaluation: FALSE
[13:13:52.802] Asynchronous evaluation: FALSE
[13:13:52.802] Local evaluation: TRUE
[13:13:52.802] Environment: R_GlobalEnv
[13:13:52.802] Capture standard output: TRUE
[13:13:52.802] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:52.802] Globals: 5 objects totaling 1.10 KiB (function '...future.FUN' of 848 bytes, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 280 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:52.802] Packages: <none>
[13:13:52.802] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:52.802] Resolved: TRUE
[13:13:52.802] Value: 280 bytes of class 'list'
[13:13:52.802] Early signaling: FALSE
[13:13:52.802] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:52.802] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.803] Chunk #1 of 1 ... DONE
[13:13:52.804] Launching 1 futures (chunks) ... DONE
[13:13:52.804] Resolving 1 futures (chunks) ...
[13:13:52.804] resolve() on list ...
[13:13:52.805]  recursive: 0
[13:13:52.805]  length: 1
[13:13:52.805] 
[13:13:52.806] resolved() for 'SequentialFuture' ...
[13:13:52.806] - state: 'finished'
[13:13:52.806] - run: TRUE
[13:13:52.806] - result: 'FutureResult'
[13:13:52.806] resolved() for 'SequentialFuture' ... done
[13:13:52.807] Future #1
[13:13:52.807] signalConditionsASAP(SequentialFuture, pos=1) ...
[13:13:52.807] - nx: 1
[13:13:52.807] - relay: TRUE
[13:13:52.807] - stdout: TRUE
[13:13:52.807] - signal: TRUE
[13:13:52.808] - resignal: FALSE
[13:13:52.808] - force: TRUE
[13:13:52.808] - relayed: [n=1] FALSE
[13:13:52.808] - queued futures: [n=1] FALSE
[13:13:52.808]  - until=1
[13:13:52.808]  - relaying element #1
[13:13:52.809] - relayed: [n=1] TRUE
[13:13:52.809] - queued futures: [n=1] TRUE
[13:13:52.809] signalConditionsASAP(SequentialFuture, pos=1) ... done
[13:13:52.809]  length: 0 (resolved future 1)
[13:13:52.809] Relaying remaining futures
[13:13:52.810] signalConditionsASAP(NULL, pos=0) ...
[13:13:52.810] - nx: 1
[13:13:52.810] - relay: TRUE
[13:13:52.810] - stdout: TRUE
[13:13:52.810] - signal: TRUE
[13:13:52.810] - resignal: FALSE
[13:13:52.810] - force: TRUE
[13:13:52.811] - relayed: [n=1] TRUE
[13:13:52.811] - queued futures: [n=1] TRUE
 - flush all
[13:13:52.811] - relayed: [n=1] TRUE
[13:13:52.811] - queued futures: [n=1] TRUE
[13:13:52.811] signalConditionsASAP(NULL, pos=0) ... done
[13:13:52.811] resolve() on list ... DONE
[13:13:52.812]  - Number of value chunks collected: 1
[13:13:52.812] Resolving 1 futures (chunks) ... DONE
[13:13:52.812] Reducing values from 1 chunks ...
[13:13:52.812]  - Number of values collected after concatenation: 1
[13:13:52.812]  - Number of values expected: 1
[13:13:52.812] Reducing values from 1 chunks ... DONE
[13:13:52.813] future_mapply() ... DONE
[13:13:52.813] future_mapply() ...
[13:13:52.813] Number of chunks: 1
[13:13:52.813] getGlobalsAndPackagesXApply() ...
[13:13:52.813]  - future.globals: TRUE
[13:13:52.814] getGlobalsAndPackages() ...
[13:13:52.814] Searching for globals...
[13:13:52.815] - globals found: [1] 'FUN'
[13:13:52.815] Searching for globals ... DONE
[13:13:52.815] Resolving globals: FALSE
[13:13:52.816] The total size of the 1 globals is 848 bytes (848 bytes)
[13:13:52.816] The total size of the 1 globals exported for future expression ('FUN()') is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (848 bytes of class 'function')
[13:13:52.816] - globals: [1] 'FUN'
[13:13:52.816] 
[13:13:52.817] getGlobalsAndPackages() ... DONE
[13:13:52.817]  - globals found/used: [n=1] 'FUN'
[13:13:52.817]  - needed namespaces: [n=0] 
[13:13:52.817] Finding globals ... DONE
[13:13:52.817] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:52.817] List of 2
[13:13:52.817]  $ ...future.FUN:function (x)  
[13:13:52.817]  $ MoreArgs     : list()
[13:13:52.817]  - attr(*, "where")=List of 2
[13:13:52.817]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:52.817]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:52.817]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.817]  - attr(*, "resolved")= logi FALSE
[13:13:52.817]  - attr(*, "total_size")= num NA
[13:13:52.820] Packages to be attached in all futures: [n=0] 
[13:13:52.821] getGlobalsAndPackagesXApply() ... DONE
[13:13:52.821] Number of futures (= number of chunks): 1
[13:13:52.821] Launching 1 futures (chunks) ...
[13:13:52.821] Chunk #1 of 1 ...
[13:13:52.821]  - Finding globals in '...' for chunk #1 ...
[13:13:52.821] getGlobalsAndPackages() ...
[13:13:52.822] Searching for globals...
[13:13:52.822] 
[13:13:52.822] Searching for globals ... DONE
[13:13:52.822] - globals: [0] <none>
[13:13:52.822] getGlobalsAndPackages() ... DONE
[13:13:52.823]    + additional globals found: [n=0] 
[13:13:52.823]    + additional namespaces needed: [n=0] 
[13:13:52.823]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:52.823]  - seeds: <none>
[13:13:52.823]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.823] getGlobalsAndPackages() ...
[13:13:52.824] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.824] Resolving globals: FALSE
[13:13:52.824] The total size of the 5 globals is 1.10 KiB (1128 bytes)
[13:13:52.825] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 1.10 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (848 bytes of class 'function'), '...future.elements_ii' (280 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'list')
[13:13:52.825] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.825] 
[13:13:52.826] getGlobalsAndPackages() ... DONE
[13:13:52.826] run() for 'Future' ...
[13:13:52.826] - state: 'created'
[13:13:52.826] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:52.827] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.827] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:52.827]   - Field: 'label'
[13:13:52.827]   - Field: 'local'
[13:13:52.827]   - Field: 'owner'
[13:13:52.828]   - Field: 'envir'
[13:13:52.828]   - Field: 'packages'
[13:13:52.828]   - Field: 'gc'
[13:13:52.828]   - Field: 'conditions'
[13:13:52.828]   - Field: 'expr'
[13:13:52.828]   - Field: 'uuid'
[13:13:52.829]   - Field: 'seed'
[13:13:52.829]   - Field: 'version'
[13:13:52.829]   - Field: 'result'
[13:13:52.829]   - Field: 'asynchronous'
[13:13:52.829]   - Field: 'calls'
[13:13:52.829]   - Field: 'globals'
[13:13:52.830]   - Field: 'stdout'
[13:13:52.830]   - Field: 'earlySignal'
[13:13:52.830]   - Field: 'lazy'
[13:13:52.830]   - Field: 'state'
[13:13:52.830] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:52.830] - Launch lazy future ...
[13:13:52.831] Packages needed by the future expression (n = 0): <none>
[13:13:52.831] Packages needed by future strategies (n = 0): <none>
[13:13:52.832] {
[13:13:52.832]     {
[13:13:52.832]         {
[13:13:52.832]             ...future.startTime <- base::Sys.time()
[13:13:52.832]             {
[13:13:52.832]                 {
[13:13:52.832]                   {
[13:13:52.832]                     base::local({
[13:13:52.832]                       has_future <- base::requireNamespace("future", 
[13:13:52.832]                         quietly = TRUE)
[13:13:52.832]                       if (has_future) {
[13:13:52.832]                         ns <- base::getNamespace("future")
[13:13:52.832]                         version <- ns[[".package"]][["version"]]
[13:13:52.832]                         if (is.null(version)) 
[13:13:52.832]                           version <- utils::packageVersion("future")
[13:13:52.832]                       }
[13:13:52.832]                       else {
[13:13:52.832]                         version <- NULL
[13:13:52.832]                       }
[13:13:52.832]                       if (!has_future || version < "1.8.0") {
[13:13:52.832]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:52.832]                           "", base::R.version$version.string), 
[13:13:52.832]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:52.832]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:52.832]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:52.832]                             "release", "version")], collapse = " "), 
[13:13:52.832]                           hostname = base::Sys.info()[["nodename"]])
[13:13:52.832]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:52.832]                           info)
[13:13:52.832]                         info <- base::paste(info, collapse = "; ")
[13:13:52.832]                         if (!has_future) {
[13:13:52.832]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:52.832]                             info)
[13:13:52.832]                         }
[13:13:52.832]                         else {
[13:13:52.832]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:52.832]                             info, version)
[13:13:52.832]                         }
[13:13:52.832]                         base::stop(msg)
[13:13:52.832]                       }
[13:13:52.832]                     })
[13:13:52.832]                   }
[13:13:52.832]                   options(future.plan = NULL)
[13:13:52.832]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.832]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:52.832]                 }
[13:13:52.832]                 ...future.workdir <- getwd()
[13:13:52.832]             }
[13:13:52.832]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:52.832]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:52.832]         }
[13:13:52.832]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:52.832]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[13:13:52.832]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:52.832]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:52.832]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:52.832]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:52.832]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:52.832]             base::names(...future.oldOptions))
[13:13:52.832]     }
[13:13:52.832]     if (FALSE) {
[13:13:52.832]     }
[13:13:52.832]     else {
[13:13:52.832]         if (TRUE) {
[13:13:52.832]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:52.832]                 open = "w")
[13:13:52.832]         }
[13:13:52.832]         else {
[13:13:52.832]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:52.832]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:52.832]         }
[13:13:52.832]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:52.832]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:52.832]             base::sink(type = "output", split = FALSE)
[13:13:52.832]             base::close(...future.stdout)
[13:13:52.832]         }, add = TRUE)
[13:13:52.832]     }
[13:13:52.832]     ...future.frame <- base::sys.nframe()
[13:13:52.832]     ...future.conditions <- base::list()
[13:13:52.832]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:52.832]     if (FALSE) {
[13:13:52.832]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:52.832]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:52.832]     }
[13:13:52.832]     ...future.result <- base::tryCatch({
[13:13:52.832]         base::withCallingHandlers({
[13:13:52.832]             ...future.value <- base::withVisible(base::local({
[13:13:52.832]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.832]                 if (!identical(...future.globals.maxSize.org, 
[13:13:52.832]                   ...future.globals.maxSize)) {
[13:13:52.832]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.832]                   on.exit(options(oopts), add = TRUE)
[13:13:52.832]                 }
[13:13:52.832]                 {
[13:13:52.832]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.832]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:52.832]                     USE.NAMES = FALSE)
[13:13:52.832]                   do.call(mapply, args = args)
[13:13:52.832]                 }
[13:13:52.832]             }))
[13:13:52.832]             future::FutureResult(value = ...future.value$value, 
[13:13:52.832]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.832]                   ...future.rng), globalenv = if (FALSE) 
[13:13:52.832]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:52.832]                     ...future.globalenv.names))
[13:13:52.832]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:52.832]         }, condition = base::local({
[13:13:52.832]             c <- base::c
[13:13:52.832]             inherits <- base::inherits
[13:13:52.832]             invokeRestart <- base::invokeRestart
[13:13:52.832]             length <- base::length
[13:13:52.832]             list <- base::list
[13:13:52.832]             seq.int <- base::seq.int
[13:13:52.832]             signalCondition <- base::signalCondition
[13:13:52.832]             sys.calls <- base::sys.calls
[13:13:52.832]             `[[` <- base::`[[`
[13:13:52.832]             `+` <- base::`+`
[13:13:52.832]             `<<-` <- base::`<<-`
[13:13:52.832]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:52.832]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:52.832]                   3L)]
[13:13:52.832]             }
[13:13:52.832]             function(cond) {
[13:13:52.832]                 is_error <- inherits(cond, "error")
[13:13:52.832]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:52.832]                   NULL)
[13:13:52.832]                 if (is_error) {
[13:13:52.832]                   sessionInformation <- function() {
[13:13:52.832]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:52.832]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:52.832]                       search = base::search(), system = base::Sys.info())
[13:13:52.832]                   }
[13:13:52.832]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.832]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:52.832]                     cond$call), session = sessionInformation(), 
[13:13:52.832]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:52.832]                   signalCondition(cond)
[13:13:52.832]                 }
[13:13:52.832]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:52.832]                 "immediateCondition"))) {
[13:13:52.832]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:52.832]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.832]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:52.832]                   if (TRUE && !signal) {
[13:13:52.832]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.832]                     {
[13:13:52.832]                       inherits <- base::inherits
[13:13:52.832]                       invokeRestart <- base::invokeRestart
[13:13:52.832]                       is.null <- base::is.null
[13:13:52.832]                       muffled <- FALSE
[13:13:52.832]                       if (inherits(cond, "message")) {
[13:13:52.832]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.832]                         if (muffled) 
[13:13:52.832]                           invokeRestart("muffleMessage")
[13:13:52.832]                       }
[13:13:52.832]                       else if (inherits(cond, "warning")) {
[13:13:52.832]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.832]                         if (muffled) 
[13:13:52.832]                           invokeRestart("muffleWarning")
[13:13:52.832]                       }
[13:13:52.832]                       else if (inherits(cond, "condition")) {
[13:13:52.832]                         if (!is.null(pattern)) {
[13:13:52.832]                           computeRestarts <- base::computeRestarts
[13:13:52.832]                           grepl <- base::grepl
[13:13:52.832]                           restarts <- computeRestarts(cond)
[13:13:52.832]                           for (restart in restarts) {
[13:13:52.832]                             name <- restart$name
[13:13:52.832]                             if (is.null(name)) 
[13:13:52.832]                               next
[13:13:52.832]                             if (!grepl(pattern, name)) 
[13:13:52.832]                               next
[13:13:52.832]                             invokeRestart(restart)
[13:13:52.832]                             muffled <- TRUE
[13:13:52.832]                             break
[13:13:52.832]                           }
[13:13:52.832]                         }
[13:13:52.832]                       }
[13:13:52.832]                       invisible(muffled)
[13:13:52.832]                     }
[13:13:52.832]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.832]                   }
[13:13:52.832]                 }
[13:13:52.832]                 else {
[13:13:52.832]                   if (TRUE) {
[13:13:52.832]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.832]                     {
[13:13:52.832]                       inherits <- base::inherits
[13:13:52.832]                       invokeRestart <- base::invokeRestart
[13:13:52.832]                       is.null <- base::is.null
[13:13:52.832]                       muffled <- FALSE
[13:13:52.832]                       if (inherits(cond, "message")) {
[13:13:52.832]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.832]                         if (muffled) 
[13:13:52.832]                           invokeRestart("muffleMessage")
[13:13:52.832]                       }
[13:13:52.832]                       else if (inherits(cond, "warning")) {
[13:13:52.832]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.832]                         if (muffled) 
[13:13:52.832]                           invokeRestart("muffleWarning")
[13:13:52.832]                       }
[13:13:52.832]                       else if (inherits(cond, "condition")) {
[13:13:52.832]                         if (!is.null(pattern)) {
[13:13:52.832]                           computeRestarts <- base::computeRestarts
[13:13:52.832]                           grepl <- base::grepl
[13:13:52.832]                           restarts <- computeRestarts(cond)
[13:13:52.832]                           for (restart in restarts) {
[13:13:52.832]                             name <- restart$name
[13:13:52.832]                             if (is.null(name)) 
[13:13:52.832]                               next
[13:13:52.832]                             if (!grepl(pattern, name)) 
[13:13:52.832]                               next
[13:13:52.832]                             invokeRestart(restart)
[13:13:52.832]                             muffled <- TRUE
[13:13:52.832]                             break
[13:13:52.832]                           }
[13:13:52.832]                         }
[13:13:52.832]                       }
[13:13:52.832]                       invisible(muffled)
[13:13:52.832]                     }
[13:13:52.832]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.832]                   }
[13:13:52.832]                 }
[13:13:52.832]             }
[13:13:52.832]         }))
[13:13:52.832]     }, error = function(ex) {
[13:13:52.832]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:52.832]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.832]                 ...future.rng), started = ...future.startTime, 
[13:13:52.832]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:52.832]             version = "1.8"), class = "FutureResult")
[13:13:52.832]     }, finally = {
[13:13:52.832]         if (!identical(...future.workdir, getwd())) 
[13:13:52.832]             setwd(...future.workdir)
[13:13:52.832]         {
[13:13:52.832]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:52.832]                 ...future.oldOptions$nwarnings <- NULL
[13:13:52.832]             }
[13:13:52.832]             base::options(...future.oldOptions)
[13:13:52.832]             if (.Platform$OS.type == "windows") {
[13:13:52.832]                 old_names <- names(...future.oldEnvVars)
[13:13:52.832]                 envs <- base::Sys.getenv()
[13:13:52.832]                 names <- names(envs)
[13:13:52.832]                 common <- intersect(names, old_names)
[13:13:52.832]                 added <- setdiff(names, old_names)
[13:13:52.832]                 removed <- setdiff(old_names, names)
[13:13:52.832]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:52.832]                   envs[common]]
[13:13:52.832]                 NAMES <- toupper(changed)
[13:13:52.832]                 args <- list()
[13:13:52.832]                 for (kk in seq_along(NAMES)) {
[13:13:52.832]                   name <- changed[[kk]]
[13:13:52.832]                   NAME <- NAMES[[kk]]
[13:13:52.832]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.832]                     next
[13:13:52.832]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.832]                 }
[13:13:52.832]                 NAMES <- toupper(added)
[13:13:52.832]                 for (kk in seq_along(NAMES)) {
[13:13:52.832]                   name <- added[[kk]]
[13:13:52.832]                   NAME <- NAMES[[kk]]
[13:13:52.832]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.832]                     next
[13:13:52.832]                   args[[name]] <- ""
[13:13:52.832]                 }
[13:13:52.832]                 NAMES <- toupper(removed)
[13:13:52.832]                 for (kk in seq_along(NAMES)) {
[13:13:52.832]                   name <- removed[[kk]]
[13:13:52.832]                   NAME <- NAMES[[kk]]
[13:13:52.832]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.832]                     next
[13:13:52.832]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.832]                 }
[13:13:52.832]                 if (length(args) > 0) 
[13:13:52.832]                   base::do.call(base::Sys.setenv, args = args)
[13:13:52.832]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:52.832]             }
[13:13:52.832]             else {
[13:13:52.832]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:52.832]             }
[13:13:52.832]             {
[13:13:52.832]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:52.832]                   0L) {
[13:13:52.832]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:52.832]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:52.832]                   base::options(opts)
[13:13:52.832]                 }
[13:13:52.832]                 {
[13:13:52.832]                   {
[13:13:52.832]                     base::assign(".Random.seed", c(10407L, -1918733616L, 
[13:13:52.832]                     1584354639L, -1174970862L, -939885817L, 1422965938L, 
[13:13:52.832]                     -981423529L), envir = base::globalenv(), 
[13:13:52.832]                       inherits = FALSE)
[13:13:52.832]                     NULL
[13:13:52.832]                   }
[13:13:52.832]                   options(future.plan = NULL)
[13:13:52.832]                   if (is.na(NA_character_)) 
[13:13:52.832]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.832]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:52.832]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:52.832]                   {
[13:13:52.832]                     future <- SequentialFuture(..., envir = envir)
[13:13:52.832]                     if (!future$lazy) 
[13:13:52.832]                       future <- run(future)
[13:13:52.832]                     invisible(future)
[13:13:52.832]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:52.832]                 }
[13:13:52.832]             }
[13:13:52.832]         }
[13:13:52.832]     })
[13:13:52.832]     if (TRUE) {
[13:13:52.832]         base::sink(type = "output", split = FALSE)
[13:13:52.832]         if (TRUE) {
[13:13:52.832]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:52.832]         }
[13:13:52.832]         else {
[13:13:52.832]             ...future.result["stdout"] <- base::list(NULL)
[13:13:52.832]         }
[13:13:52.832]         base::close(...future.stdout)
[13:13:52.832]         ...future.stdout <- NULL
[13:13:52.832]     }
[13:13:52.832]     ...future.result$conditions <- ...future.conditions
[13:13:52.832]     ...future.result$finished <- base::Sys.time()
[13:13:52.832]     ...future.result
[13:13:52.832] }
[13:13:52.836] assign_globals() ...
[13:13:52.836] List of 5
[13:13:52.836]  $ ...future.FUN            :function (x)  
[13:13:52.836]  $ MoreArgs                 : list()
[13:13:52.836]  $ ...future.elements_ii    :List of 1
[13:13:52.836]   ..$ :List of 1
[13:13:52.836]   .. ..$ : Date[1:1], format: "2018-06-01"
[13:13:52.836]  $ ...future.seeds_ii       : NULL
[13:13:52.836]  $ ...future.globals.maxSize: NULL
[13:13:52.836]  - attr(*, "where")=List of 5
[13:13:52.836]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:52.836]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[13:13:52.836]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:52.836]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:52.836]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:52.836]  - attr(*, "resolved")= logi FALSE
[13:13:52.836]  - attr(*, "total_size")= num 1128
[13:13:52.836]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.836]  - attr(*, "already-done")= logi TRUE
[13:13:52.842] - copied '...future.FUN' to environment
[13:13:52.842] - copied 'MoreArgs' to environment
[13:13:52.842] - copied '...future.elements_ii' to environment
[13:13:52.843] - copied '...future.seeds_ii' to environment
[13:13:52.843] - copied '...future.globals.maxSize' to environment
[13:13:52.843] assign_globals() ... done
[13:13:52.843] plan(): Setting new future strategy stack:
[13:13:52.843] List of future strategies:
[13:13:52.843] 1. sequential:
[13:13:52.843]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.843]    - tweaked: FALSE
[13:13:52.843]    - call: NULL
[13:13:52.844] plan(): nbrOfWorkers() = 1
[13:13:52.845] plan(): Setting new future strategy stack:
[13:13:52.845] List of future strategies:
[13:13:52.845] 1. sequential:
[13:13:52.845]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.845]    - tweaked: FALSE
[13:13:52.845]    - call: plan(strategy)
[13:13:52.846] plan(): nbrOfWorkers() = 1
[13:13:52.846] SequentialFuture started (and completed)
[13:13:52.846] - Launch lazy future ... done
[13:13:52.847] run() for 'SequentialFuture' ... done
[13:13:52.847] Created future:
[13:13:52.847] SequentialFuture:
[13:13:52.847] Label: 'future_.mapply-1'
[13:13:52.847] Expression:
[13:13:52.847] {
[13:13:52.847]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.847]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:52.847]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.847]         on.exit(options(oopts), add = TRUE)
[13:13:52.847]     }
[13:13:52.847]     {
[13:13:52.847]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.847]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:52.847]         do.call(mapply, args = args)
[13:13:52.847]     }
[13:13:52.847] }
[13:13:52.847] Lazy evaluation: FALSE
[13:13:52.847] Asynchronous evaluation: FALSE
[13:13:52.847] Local evaluation: TRUE
[13:13:52.847] Environment: R_GlobalEnv
[13:13:52.847] Capture standard output: TRUE
[13:13:52.847] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:52.847] Globals: 5 objects totaling 1.10 KiB (function '...future.FUN' of 848 bytes, list 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 280 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:52.847] Packages: <none>
[13:13:52.847] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:52.847] Resolved: TRUE
[13:13:52.847] Value: 280 bytes of class 'list'
[13:13:52.847] Early signaling: FALSE
[13:13:52.847] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:52.847] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.848] Chunk #1 of 1 ... DONE
[13:13:52.848] Launching 1 futures (chunks) ... DONE
[13:13:52.848] Resolving 1 futures (chunks) ...
[13:13:52.849] resolve() on list ...
[13:13:52.849]  recursive: 0
[13:13:52.849]  length: 1
[13:13:52.849] 
[13:13:52.849] resolved() for 'SequentialFuture' ...
[13:13:52.849] - state: 'finished'
[13:13:52.850] - run: TRUE
[13:13:52.850] - result: 'FutureResult'
[13:13:52.850] resolved() for 'SequentialFuture' ... done
[13:13:52.850] Future #1
[13:13:52.850] signalConditionsASAP(SequentialFuture, pos=1) ...
[13:13:52.851] - nx: 1
[13:13:52.851] - relay: TRUE
[13:13:52.851] - stdout: TRUE
[13:13:52.851] - signal: TRUE
[13:13:52.851] - resignal: FALSE
[13:13:52.851] - force: TRUE
[13:13:52.851] - relayed: [n=1] FALSE
[13:13:52.852] - queued futures: [n=1] FALSE
[13:13:52.852]  - until=1
[13:13:52.852]  - relaying element #1
[13:13:52.852] - relayed: [n=1] TRUE
[13:13:52.852] - queued futures: [n=1] TRUE
[13:13:52.852] signalConditionsASAP(SequentialFuture, pos=1) ... done
[13:13:52.853]  length: 0 (resolved future 1)
[13:13:52.853] Relaying remaining futures
[13:13:52.853] signalConditionsASAP(NULL, pos=0) ...
[13:13:52.853] - nx: 1
[13:13:52.853] - relay: TRUE
[13:13:52.853] - stdout: TRUE
[13:13:52.854] - signal: TRUE
[13:13:52.854] - resignal: FALSE
[13:13:52.854] - force: TRUE
[13:13:52.854] - relayed: [n=1] TRUE
[13:13:52.854] - queued futures: [n=1] TRUE
 - flush all
[13:13:52.854] - relayed: [n=1] TRUE
[13:13:52.855] - queued futures: [n=1] TRUE
[13:13:52.855] signalConditionsASAP(NULL, pos=0) ... done
[13:13:52.855] resolve() on list ... DONE
[13:13:52.855]  - Number of value chunks collected: 1
[13:13:52.855] Resolving 1 futures (chunks) ... DONE
[13:13:52.855] Reducing values from 1 chunks ...
[13:13:52.856]  - Number of values collected after concatenation: 1
[13:13:52.856]  - Number of values expected: 1
[13:13:52.856] Reducing values from 1 chunks ... DONE
[13:13:52.856] future_mapply() ... DONE
- Non-recycling of MoreArgs (Issue #51) ...
[13:13:52.856] future_mapply() ...
[13:13:52.857] Number of chunks: 1
[13:13:52.857] getGlobalsAndPackagesXApply() ...
[13:13:52.857]  - future.globals: TRUE
[13:13:52.857] getGlobalsAndPackages() ...
[13:13:52.857] Searching for globals...
[13:13:52.859] - globals found: [1] 'FUN'
[13:13:52.859] Searching for globals ... DONE
[13:13:52.859] Resolving globals: FALSE
[13:13:52.859] The total size of the 1 globals is 1.66 KiB (1704 bytes)
[13:13:52.860] The total size of the 1 globals exported for future expression ('FUN(y = 3:4)') is 1.66 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (1.66 KiB of class 'function')
[13:13:52.860] - globals: [1] 'FUN'
[13:13:52.860] 
[13:13:52.860] getGlobalsAndPackages() ... DONE
[13:13:52.861]  - globals found/used: [n=1] 'FUN'
[13:13:52.861]  - needed namespaces: [n=0] 
[13:13:52.862] Finding globals ... DONE
[13:13:52.862] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:52.862] List of 2
[13:13:52.862]  $ ...future.FUN:function (x, y)  
[13:13:52.862]  $ MoreArgs     :List of 1
[13:13:52.862]   ..$ y: int [1:2] 3 4
[13:13:52.862]  - attr(*, "where")=List of 2
[13:13:52.862]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:52.862]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:52.862]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.862]  - attr(*, "resolved")= logi FALSE
[13:13:52.862]  - attr(*, "total_size")= num NA
[13:13:52.866] Packages to be attached in all futures: [n=0] 
[13:13:52.866] getGlobalsAndPackagesXApply() ... DONE
[13:13:52.866] Number of futures (= number of chunks): 1
[13:13:52.866] Launching 1 futures (chunks) ...
[13:13:52.866] Chunk #1 of 1 ...
[13:13:52.867]  - Finding globals in '...' for chunk #1 ...
[13:13:52.867] getGlobalsAndPackages() ...
[13:13:52.867] Searching for globals...
[13:13:52.867] 
[13:13:52.867] Searching for globals ... DONE
[13:13:52.868] - globals: [0] <none>
[13:13:52.868] getGlobalsAndPackages() ... DONE
[13:13:52.868]    + additional globals found: [n=0] 
[13:13:52.868]    + additional namespaces needed: [n=0] 
[13:13:52.868]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:52.868]  - seeds: <none>
[13:13:52.868]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.869] getGlobalsAndPackages() ...
[13:13:52.869] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.869] Resolving globals: FALSE
[13:13:52.870] The total size of the 5 globals is 1.83 KiB (1872 bytes)
[13:13:52.870] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 1.83 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (1.66 KiB of class 'function'), '...future.elements_ii' (112 bytes of class 'list') and 'MoreArgs' (56 bytes of class 'list')
[13:13:52.870] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.871] 
[13:13:52.871] getGlobalsAndPackages() ... DONE
[13:13:52.871] run() for 'Future' ...
[13:13:52.871] - state: 'created'
[13:13:52.871] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:52.872] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.872] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:52.872]   - Field: 'label'
[13:13:52.872]   - Field: 'local'
[13:13:52.873]   - Field: 'owner'
[13:13:52.873]   - Field: 'envir'
[13:13:52.873]   - Field: 'packages'
[13:13:52.873]   - Field: 'gc'
[13:13:52.873]   - Field: 'conditions'
[13:13:52.873]   - Field: 'expr'
[13:13:52.874]   - Field: 'uuid'
[13:13:52.874]   - Field: 'seed'
[13:13:52.874]   - Field: 'version'
[13:13:52.874]   - Field: 'result'
[13:13:52.874]   - Field: 'asynchronous'
[13:13:52.874]   - Field: 'calls'
[13:13:52.875]   - Field: 'globals'
[13:13:52.875]   - Field: 'stdout'
[13:13:52.875]   - Field: 'earlySignal'
[13:13:52.875]   - Field: 'lazy'
[13:13:52.875]   - Field: 'state'
[13:13:52.876] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:52.876] - Launch lazy future ...
[13:13:52.876] Packages needed by the future expression (n = 0): <none>
[13:13:52.876] Packages needed by future strategies (n = 0): <none>
[13:13:52.877] {
[13:13:52.877]     {
[13:13:52.877]         {
[13:13:52.877]             ...future.startTime <- base::Sys.time()
[13:13:52.877]             {
[13:13:52.877]                 {
[13:13:52.877]                   {
[13:13:52.877]                     base::local({
[13:13:52.877]                       has_future <- base::requireNamespace("future", 
[13:13:52.877]                         quietly = TRUE)
[13:13:52.877]                       if (has_future) {
[13:13:52.877]                         ns <- base::getNamespace("future")
[13:13:52.877]                         version <- ns[[".package"]][["version"]]
[13:13:52.877]                         if (is.null(version)) 
[13:13:52.877]                           version <- utils::packageVersion("future")
[13:13:52.877]                       }
[13:13:52.877]                       else {
[13:13:52.877]                         version <- NULL
[13:13:52.877]                       }
[13:13:52.877]                       if (!has_future || version < "1.8.0") {
[13:13:52.877]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:52.877]                           "", base::R.version$version.string), 
[13:13:52.877]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:52.877]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:52.877]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:52.877]                             "release", "version")], collapse = " "), 
[13:13:52.877]                           hostname = base::Sys.info()[["nodename"]])
[13:13:52.877]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:52.877]                           info)
[13:13:52.877]                         info <- base::paste(info, collapse = "; ")
[13:13:52.877]                         if (!has_future) {
[13:13:52.877]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:52.877]                             info)
[13:13:52.877]                         }
[13:13:52.877]                         else {
[13:13:52.877]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:52.877]                             info, version)
[13:13:52.877]                         }
[13:13:52.877]                         base::stop(msg)
[13:13:52.877]                       }
[13:13:52.877]                     })
[13:13:52.877]                   }
[13:13:52.877]                   options(future.plan = NULL)
[13:13:52.877]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.877]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:52.877]                 }
[13:13:52.877]                 ...future.workdir <- getwd()
[13:13:52.877]             }
[13:13:52.877]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:52.877]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:52.877]         }
[13:13:52.877]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:52.877]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[13:13:52.877]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:52.877]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:52.877]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:52.877]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:52.877]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:52.877]             base::names(...future.oldOptions))
[13:13:52.877]     }
[13:13:52.877]     if (FALSE) {
[13:13:52.877]     }
[13:13:52.877]     else {
[13:13:52.877]         if (TRUE) {
[13:13:52.877]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:52.877]                 open = "w")
[13:13:52.877]         }
[13:13:52.877]         else {
[13:13:52.877]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:52.877]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:52.877]         }
[13:13:52.877]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:52.877]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:52.877]             base::sink(type = "output", split = FALSE)
[13:13:52.877]             base::close(...future.stdout)
[13:13:52.877]         }, add = TRUE)
[13:13:52.877]     }
[13:13:52.877]     ...future.frame <- base::sys.nframe()
[13:13:52.877]     ...future.conditions <- base::list()
[13:13:52.877]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:52.877]     if (FALSE) {
[13:13:52.877]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:52.877]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:52.877]     }
[13:13:52.877]     ...future.result <- base::tryCatch({
[13:13:52.877]         base::withCallingHandlers({
[13:13:52.877]             ...future.value <- base::withVisible(base::local({
[13:13:52.877]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.877]                 if (!identical(...future.globals.maxSize.org, 
[13:13:52.877]                   ...future.globals.maxSize)) {
[13:13:52.877]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.877]                   on.exit(options(oopts), add = TRUE)
[13:13:52.877]                 }
[13:13:52.877]                 {
[13:13:52.877]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.877]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:52.877]                     USE.NAMES = FALSE)
[13:13:52.877]                   do.call(mapply, args = args)
[13:13:52.877]                 }
[13:13:52.877]             }))
[13:13:52.877]             future::FutureResult(value = ...future.value$value, 
[13:13:52.877]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.877]                   ...future.rng), globalenv = if (FALSE) 
[13:13:52.877]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:52.877]                     ...future.globalenv.names))
[13:13:52.877]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:52.877]         }, condition = base::local({
[13:13:52.877]             c <- base::c
[13:13:52.877]             inherits <- base::inherits
[13:13:52.877]             invokeRestart <- base::invokeRestart
[13:13:52.877]             length <- base::length
[13:13:52.877]             list <- base::list
[13:13:52.877]             seq.int <- base::seq.int
[13:13:52.877]             signalCondition <- base::signalCondition
[13:13:52.877]             sys.calls <- base::sys.calls
[13:13:52.877]             `[[` <- base::`[[`
[13:13:52.877]             `+` <- base::`+`
[13:13:52.877]             `<<-` <- base::`<<-`
[13:13:52.877]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:52.877]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:52.877]                   3L)]
[13:13:52.877]             }
[13:13:52.877]             function(cond) {
[13:13:52.877]                 is_error <- inherits(cond, "error")
[13:13:52.877]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:52.877]                   NULL)
[13:13:52.877]                 if (is_error) {
[13:13:52.877]                   sessionInformation <- function() {
[13:13:52.877]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:52.877]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:52.877]                       search = base::search(), system = base::Sys.info())
[13:13:52.877]                   }
[13:13:52.877]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.877]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:52.877]                     cond$call), session = sessionInformation(), 
[13:13:52.877]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:52.877]                   signalCondition(cond)
[13:13:52.877]                 }
[13:13:52.877]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:52.877]                 "immediateCondition"))) {
[13:13:52.877]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:52.877]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.877]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:52.877]                   if (TRUE && !signal) {
[13:13:52.877]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.877]                     {
[13:13:52.877]                       inherits <- base::inherits
[13:13:52.877]                       invokeRestart <- base::invokeRestart
[13:13:52.877]                       is.null <- base::is.null
[13:13:52.877]                       muffled <- FALSE
[13:13:52.877]                       if (inherits(cond, "message")) {
[13:13:52.877]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.877]                         if (muffled) 
[13:13:52.877]                           invokeRestart("muffleMessage")
[13:13:52.877]                       }
[13:13:52.877]                       else if (inherits(cond, "warning")) {
[13:13:52.877]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.877]                         if (muffled) 
[13:13:52.877]                           invokeRestart("muffleWarning")
[13:13:52.877]                       }
[13:13:52.877]                       else if (inherits(cond, "condition")) {
[13:13:52.877]                         if (!is.null(pattern)) {
[13:13:52.877]                           computeRestarts <- base::computeRestarts
[13:13:52.877]                           grepl <- base::grepl
[13:13:52.877]                           restarts <- computeRestarts(cond)
[13:13:52.877]                           for (restart in restarts) {
[13:13:52.877]                             name <- restart$name
[13:13:52.877]                             if (is.null(name)) 
[13:13:52.877]                               next
[13:13:52.877]                             if (!grepl(pattern, name)) 
[13:13:52.877]                               next
[13:13:52.877]                             invokeRestart(restart)
[13:13:52.877]                             muffled <- TRUE
[13:13:52.877]                             break
[13:13:52.877]                           }
[13:13:52.877]                         }
[13:13:52.877]                       }
[13:13:52.877]                       invisible(muffled)
[13:13:52.877]                     }
[13:13:52.877]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.877]                   }
[13:13:52.877]                 }
[13:13:52.877]                 else {
[13:13:52.877]                   if (TRUE) {
[13:13:52.877]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.877]                     {
[13:13:52.877]                       inherits <- base::inherits
[13:13:52.877]                       invokeRestart <- base::invokeRestart
[13:13:52.877]                       is.null <- base::is.null
[13:13:52.877]                       muffled <- FALSE
[13:13:52.877]                       if (inherits(cond, "message")) {
[13:13:52.877]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.877]                         if (muffled) 
[13:13:52.877]                           invokeRestart("muffleMessage")
[13:13:52.877]                       }
[13:13:52.877]                       else if (inherits(cond, "warning")) {
[13:13:52.877]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.877]                         if (muffled) 
[13:13:52.877]                           invokeRestart("muffleWarning")
[13:13:52.877]                       }
[13:13:52.877]                       else if (inherits(cond, "condition")) {
[13:13:52.877]                         if (!is.null(pattern)) {
[13:13:52.877]                           computeRestarts <- base::computeRestarts
[13:13:52.877]                           grepl <- base::grepl
[13:13:52.877]                           restarts <- computeRestarts(cond)
[13:13:52.877]                           for (restart in restarts) {
[13:13:52.877]                             name <- restart$name
[13:13:52.877]                             if (is.null(name)) 
[13:13:52.877]                               next
[13:13:52.877]                             if (!grepl(pattern, name)) 
[13:13:52.877]                               next
[13:13:52.877]                             invokeRestart(restart)
[13:13:52.877]                             muffled <- TRUE
[13:13:52.877]                             break
[13:13:52.877]                           }
[13:13:52.877]                         }
[13:13:52.877]                       }
[13:13:52.877]                       invisible(muffled)
[13:13:52.877]                     }
[13:13:52.877]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.877]                   }
[13:13:52.877]                 }
[13:13:52.877]             }
[13:13:52.877]         }))
[13:13:52.877]     }, error = function(ex) {
[13:13:52.877]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:52.877]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.877]                 ...future.rng), started = ...future.startTime, 
[13:13:52.877]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:52.877]             version = "1.8"), class = "FutureResult")
[13:13:52.877]     }, finally = {
[13:13:52.877]         if (!identical(...future.workdir, getwd())) 
[13:13:52.877]             setwd(...future.workdir)
[13:13:52.877]         {
[13:13:52.877]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:52.877]                 ...future.oldOptions$nwarnings <- NULL
[13:13:52.877]             }
[13:13:52.877]             base::options(...future.oldOptions)
[13:13:52.877]             if (.Platform$OS.type == "windows") {
[13:13:52.877]                 old_names <- names(...future.oldEnvVars)
[13:13:52.877]                 envs <- base::Sys.getenv()
[13:13:52.877]                 names <- names(envs)
[13:13:52.877]                 common <- intersect(names, old_names)
[13:13:52.877]                 added <- setdiff(names, old_names)
[13:13:52.877]                 removed <- setdiff(old_names, names)
[13:13:52.877]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:52.877]                   envs[common]]
[13:13:52.877]                 NAMES <- toupper(changed)
[13:13:52.877]                 args <- list()
[13:13:52.877]                 for (kk in seq_along(NAMES)) {
[13:13:52.877]                   name <- changed[[kk]]
[13:13:52.877]                   NAME <- NAMES[[kk]]
[13:13:52.877]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.877]                     next
[13:13:52.877]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.877]                 }
[13:13:52.877]                 NAMES <- toupper(added)
[13:13:52.877]                 for (kk in seq_along(NAMES)) {
[13:13:52.877]                   name <- added[[kk]]
[13:13:52.877]                   NAME <- NAMES[[kk]]
[13:13:52.877]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.877]                     next
[13:13:52.877]                   args[[name]] <- ""
[13:13:52.877]                 }
[13:13:52.877]                 NAMES <- toupper(removed)
[13:13:52.877]                 for (kk in seq_along(NAMES)) {
[13:13:52.877]                   name <- removed[[kk]]
[13:13:52.877]                   NAME <- NAMES[[kk]]
[13:13:52.877]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.877]                     next
[13:13:52.877]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.877]                 }
[13:13:52.877]                 if (length(args) > 0) 
[13:13:52.877]                   base::do.call(base::Sys.setenv, args = args)
[13:13:52.877]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:52.877]             }
[13:13:52.877]             else {
[13:13:52.877]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:52.877]             }
[13:13:52.877]             {
[13:13:52.877]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:52.877]                   0L) {
[13:13:52.877]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:52.877]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:52.877]                   base::options(opts)
[13:13:52.877]                 }
[13:13:52.877]                 {
[13:13:52.877]                   {
[13:13:52.877]                     base::assign(".Random.seed", c(10407L, -1918733616L, 
[13:13:52.877]                     1584354639L, -1174970862L, -939885817L, 1422965938L, 
[13:13:52.877]                     -981423529L), envir = base::globalenv(), 
[13:13:52.877]                       inherits = FALSE)
[13:13:52.877]                     NULL
[13:13:52.877]                   }
[13:13:52.877]                   options(future.plan = NULL)
[13:13:52.877]                   if (is.na(NA_character_)) 
[13:13:52.877]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.877]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:52.877]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:52.877]                   {
[13:13:52.877]                     future <- SequentialFuture(..., envir = envir)
[13:13:52.877]                     if (!future$lazy) 
[13:13:52.877]                       future <- run(future)
[13:13:52.877]                     invisible(future)
[13:13:52.877]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:52.877]                 }
[13:13:52.877]             }
[13:13:52.877]         }
[13:13:52.877]     })
[13:13:52.877]     if (TRUE) {
[13:13:52.877]         base::sink(type = "output", split = FALSE)
[13:13:52.877]         if (TRUE) {
[13:13:52.877]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:52.877]         }
[13:13:52.877]         else {
[13:13:52.877]             ...future.result["stdout"] <- base::list(NULL)
[13:13:52.877]         }
[13:13:52.877]         base::close(...future.stdout)
[13:13:52.877]         ...future.stdout <- NULL
[13:13:52.877]     }
[13:13:52.877]     ...future.result$conditions <- ...future.conditions
[13:13:52.877]     ...future.result$finished <- base::Sys.time()
[13:13:52.877]     ...future.result
[13:13:52.877] }
[13:13:52.880] assign_globals() ...
[13:13:52.881] List of 5
[13:13:52.881]  $ ...future.FUN            :function (x, y)  
[13:13:52.881]  $ MoreArgs                 :List of 1
[13:13:52.881]   ..$ y: int [1:2] 3 4
[13:13:52.881]  $ ...future.elements_ii    :List of 1
[13:13:52.881]   ..$ x:List of 2
[13:13:52.881]   .. ..$ : int 1
[13:13:52.881]   .. ..$ : int 2
[13:13:52.881]  $ ...future.seeds_ii       : NULL
[13:13:52.881]  $ ...future.globals.maxSize: NULL
[13:13:52.881]  - attr(*, "where")=List of 5
[13:13:52.881]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:52.881]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[13:13:52.881]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:52.881]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:52.881]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:52.881]  - attr(*, "resolved")= logi FALSE
[13:13:52.881]  - attr(*, "total_size")= num 1872
[13:13:52.881]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.881]  - attr(*, "already-done")= logi TRUE
[13:13:52.887] - reassign environment for '...future.FUN'
[13:13:52.887] - copied '...future.FUN' to environment
[13:13:52.888] - copied 'MoreArgs' to environment
[13:13:52.888] - copied '...future.elements_ii' to environment
[13:13:52.889] - copied '...future.seeds_ii' to environment
[13:13:52.889] - copied '...future.globals.maxSize' to environment
[13:13:52.889] assign_globals() ... done
[13:13:52.889] plan(): Setting new future strategy stack:
[13:13:52.890] List of future strategies:
[13:13:52.890] 1. sequential:
[13:13:52.890]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.890]    - tweaked: FALSE
[13:13:52.890]    - call: NULL
[13:13:52.890] plan(): nbrOfWorkers() = 1
[13:13:52.891] plan(): Setting new future strategy stack:
[13:13:52.891] List of future strategies:
[13:13:52.891] 1. sequential:
[13:13:52.891]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.891]    - tweaked: FALSE
[13:13:52.891]    - call: plan(strategy)
[13:13:52.892] plan(): nbrOfWorkers() = 1
[13:13:52.892] SequentialFuture started (and completed)
[13:13:52.893] - Launch lazy future ... done
[13:13:52.893] run() for 'SequentialFuture' ... done
[13:13:52.893] Created future:
[13:13:52.893] SequentialFuture:
[13:13:52.893] Label: 'future_mapply-1'
[13:13:52.893] Expression:
[13:13:52.893] {
[13:13:52.893]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.893]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:52.893]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.893]         on.exit(options(oopts), add = TRUE)
[13:13:52.893]     }
[13:13:52.893]     {
[13:13:52.893]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.893]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:52.893]         do.call(mapply, args = args)
[13:13:52.893]     }
[13:13:52.893] }
[13:13:52.893] Lazy evaluation: FALSE
[13:13:52.893] Asynchronous evaluation: FALSE
[13:13:52.893] Local evaluation: TRUE
[13:13:52.893] Environment: R_GlobalEnv
[13:13:52.893] Capture standard output: TRUE
[13:13:52.893] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:52.893] Globals: 5 objects totaling 1.83 KiB (function '...future.FUN' of 1.66 KiB, list 'MoreArgs' of 56 bytes, list '...future.elements_ii' of 112 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:52.893] Packages: <none>
[13:13:52.893] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:52.893] Resolved: TRUE
[13:13:52.893] Value: 112 bytes of class 'list'
[13:13:52.893] Early signaling: FALSE
[13:13:52.893] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:52.893] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.894] Chunk #1 of 1 ... DONE
[13:13:52.894] Launching 1 futures (chunks) ... DONE
[13:13:52.895] Resolving 1 futures (chunks) ...
[13:13:52.895] resolve() on list ...
[13:13:52.895]  recursive: 0
[13:13:52.895]  length: 1
[13:13:52.895] 
[13:13:52.895] resolved() for 'SequentialFuture' ...
[13:13:52.896] - state: 'finished'
[13:13:52.896] - run: TRUE
[13:13:52.896] - result: 'FutureResult'
[13:13:52.896] resolved() for 'SequentialFuture' ... done
[13:13:52.896] Future #1
[13:13:52.897] signalConditionsASAP(SequentialFuture, pos=1) ...
[13:13:52.897] - nx: 1
[13:13:52.897] - relay: TRUE
[13:13:52.897] - stdout: TRUE
[13:13:52.897] - signal: TRUE
[13:13:52.897] - resignal: FALSE
[13:13:52.897] - force: TRUE
[13:13:52.898] - relayed: [n=1] FALSE
[13:13:52.898] - queued futures: [n=1] FALSE
[13:13:52.898]  - until=1
[13:13:52.898]  - relaying element #1
[13:13:52.898] - relayed: [n=1] TRUE
[13:13:52.899] - queued futures: [n=1] TRUE
[13:13:52.899] signalConditionsASAP(SequentialFuture, pos=1) ... done
[13:13:52.899]  length: 0 (resolved future 1)
[13:13:52.899] Relaying remaining futures
[13:13:52.899] signalConditionsASAP(NULL, pos=0) ...
[13:13:52.899] - nx: 1
[13:13:52.899] - relay: TRUE
[13:13:52.900] - stdout: TRUE
[13:13:52.900] - signal: TRUE
[13:13:52.900] - resignal: FALSE
[13:13:52.900] - force: TRUE
[13:13:52.900] - relayed: [n=1] TRUE
[13:13:52.900] - queued futures: [n=1] TRUE
 - flush all
[13:13:52.901] - relayed: [n=1] TRUE
[13:13:52.901] - queued futures: [n=1] TRUE
[13:13:52.901] signalConditionsASAP(NULL, pos=0) ... done
[13:13:52.901] resolve() on list ... DONE
[13:13:52.901]  - Number of value chunks collected: 1
[13:13:52.901] Resolving 1 futures (chunks) ... DONE
[13:13:52.902] Reducing values from 1 chunks ...
[13:13:52.902]  - Number of values collected after concatenation: 2
[13:13:52.902]  - Number of values expected: 2
[13:13:52.902] Reducing values from 1 chunks ... DONE
[13:13:52.902] future_mapply() ... DONE
[13:13:52.902] future_mapply() ...
[13:13:52.903] Generating random seeds ...
[13:13:52.903] Generating random seed streams for 2 elements ...
[13:13:52.903] Generating random seed streams for 2 elements ... DONE
[13:13:52.903] Generating random seeds ... DONE
[13:13:52.903] Will set RNG state on exit: 10407, -1174970862, 273460614, 1227100809, -981423529, 61536946, 596121589
[13:13:52.904] Number of chunks: 1
[13:13:52.904] getGlobalsAndPackagesXApply() ...
[13:13:52.904]  - future.globals: TRUE
[13:13:52.904] getGlobalsAndPackages() ...
[13:13:52.904] Searching for globals...
[13:13:52.905] - globals found: [1] 'FUN'
[13:13:52.905] Searching for globals ... DONE
[13:13:52.906] Resolving globals: FALSE
[13:13:52.906] The total size of the 1 globals is 1.66 KiB (1704 bytes)
[13:13:52.906] The total size of the 1 globals exported for future expression ('FUN(y = 3:4)') is 1.66 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (1.66 KiB of class 'function')
[13:13:52.907] - globals: [1] 'FUN'
[13:13:52.907] 
[13:13:52.907] getGlobalsAndPackages() ... DONE
[13:13:52.907]  - globals found/used: [n=1] 'FUN'
[13:13:52.907]  - needed namespaces: [n=0] 
[13:13:52.907] Finding globals ... DONE
[13:13:52.908] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:52.908] List of 2
[13:13:52.908]  $ ...future.FUN:function (x, y)  
[13:13:52.908]  $ MoreArgs     :List of 1
[13:13:52.908]   ..$ y: int [1:2] 3 4
[13:13:52.908]  - attr(*, "where")=List of 2
[13:13:52.908]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:52.908]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:52.908]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.908]  - attr(*, "resolved")= logi FALSE
[13:13:52.908]  - attr(*, "total_size")= num NA
[13:13:52.911] Packages to be attached in all futures: [n=0] 
[13:13:52.911] getGlobalsAndPackagesXApply() ... DONE
[13:13:52.912] Number of futures (= number of chunks): 1
[13:13:52.912] Launching 1 futures (chunks) ...
[13:13:52.912] Chunk #1 of 1 ...
[13:13:52.912]  - Finding globals in '...' for chunk #1 ...
[13:13:52.912] getGlobalsAndPackages() ...
[13:13:52.913] Searching for globals...
[13:13:52.913] 
[13:13:52.913] Searching for globals ... DONE
[13:13:52.913] - globals: [0] <none>
[13:13:52.913] getGlobalsAndPackages() ... DONE
[13:13:52.914]    + additional globals found: [n=0] 
[13:13:52.914]    + additional namespaces needed: [n=0] 
[13:13:52.915]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:52.915]  - seeds: [2] <seeds>
[13:13:52.915]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.915] getGlobalsAndPackages() ...
[13:13:52.915] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.916] Resolving globals: FALSE
[13:13:52.916] The total size of the 5 globals is 1.98 KiB (2032 bytes)
[13:13:52.917] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 1.98 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (1.66 KiB of class 'function'), '...future.seeds_ii' (160 bytes of class 'list') and '...future.elements_ii' (112 bytes of class 'list')
[13:13:52.917] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.917] 
[13:13:52.917] getGlobalsAndPackages() ... DONE
[13:13:52.918] run() for 'Future' ...
[13:13:52.918] - state: 'created'
[13:13:52.918] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:52.919] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.919] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:52.919]   - Field: 'label'
[13:13:52.919]   - Field: 'local'
[13:13:52.919]   - Field: 'owner'
[13:13:52.919]   - Field: 'envir'
[13:13:52.920]   - Field: 'packages'
[13:13:52.920]   - Field: 'gc'
[13:13:52.920]   - Field: 'conditions'
[13:13:52.920]   - Field: 'expr'
[13:13:52.920]   - Field: 'uuid'
[13:13:52.921]   - Field: 'seed'
[13:13:52.921]   - Field: 'version'
[13:13:52.921]   - Field: 'result'
[13:13:52.921]   - Field: 'asynchronous'
[13:13:52.921]   - Field: 'calls'
[13:13:52.921]   - Field: 'globals'
[13:13:52.922]   - Field: 'stdout'
[13:13:52.922]   - Field: 'earlySignal'
[13:13:52.922]   - Field: 'lazy'
[13:13:52.922]   - Field: 'state'
[13:13:52.922] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:52.922] - Launch lazy future ...
[13:13:52.923] Packages needed by the future expression (n = 0): <none>
[13:13:52.923] Packages needed by future strategies (n = 0): <none>
[13:13:52.923] {
[13:13:52.923]     {
[13:13:52.923]         {
[13:13:52.923]             ...future.startTime <- base::Sys.time()
[13:13:52.923]             {
[13:13:52.923]                 {
[13:13:52.923]                   {
[13:13:52.923]                     base::local({
[13:13:52.923]                       has_future <- base::requireNamespace("future", 
[13:13:52.923]                         quietly = TRUE)
[13:13:52.923]                       if (has_future) {
[13:13:52.923]                         ns <- base::getNamespace("future")
[13:13:52.923]                         version <- ns[[".package"]][["version"]]
[13:13:52.923]                         if (is.null(version)) 
[13:13:52.923]                           version <- utils::packageVersion("future")
[13:13:52.923]                       }
[13:13:52.923]                       else {
[13:13:52.923]                         version <- NULL
[13:13:52.923]                       }
[13:13:52.923]                       if (!has_future || version < "1.8.0") {
[13:13:52.923]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:52.923]                           "", base::R.version$version.string), 
[13:13:52.923]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:52.923]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:52.923]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:52.923]                             "release", "version")], collapse = " "), 
[13:13:52.923]                           hostname = base::Sys.info()[["nodename"]])
[13:13:52.923]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:52.923]                           info)
[13:13:52.923]                         info <- base::paste(info, collapse = "; ")
[13:13:52.923]                         if (!has_future) {
[13:13:52.923]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:52.923]                             info)
[13:13:52.923]                         }
[13:13:52.923]                         else {
[13:13:52.923]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:52.923]                             info, version)
[13:13:52.923]                         }
[13:13:52.923]                         base::stop(msg)
[13:13:52.923]                       }
[13:13:52.923]                     })
[13:13:52.923]                   }
[13:13:52.923]                   options(future.plan = NULL)
[13:13:52.923]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.923]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:52.923]                 }
[13:13:52.923]                 ...future.workdir <- getwd()
[13:13:52.923]             }
[13:13:52.923]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:52.923]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:52.923]         }
[13:13:52.923]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:52.923]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[13:13:52.923]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:52.923]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:52.923]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:52.923]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:52.923]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:52.923]             base::names(...future.oldOptions))
[13:13:52.923]     }
[13:13:52.923]     if (FALSE) {
[13:13:52.923]     }
[13:13:52.923]     else {
[13:13:52.923]         if (TRUE) {
[13:13:52.923]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:52.923]                 open = "w")
[13:13:52.923]         }
[13:13:52.923]         else {
[13:13:52.923]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:52.923]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:52.923]         }
[13:13:52.923]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:52.923]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:52.923]             base::sink(type = "output", split = FALSE)
[13:13:52.923]             base::close(...future.stdout)
[13:13:52.923]         }, add = TRUE)
[13:13:52.923]     }
[13:13:52.923]     ...future.frame <- base::sys.nframe()
[13:13:52.923]     ...future.conditions <- base::list()
[13:13:52.923]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:52.923]     if (FALSE) {
[13:13:52.923]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:52.923]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:52.923]     }
[13:13:52.923]     ...future.result <- base::tryCatch({
[13:13:52.923]         base::withCallingHandlers({
[13:13:52.923]             ...future.value <- base::withVisible(base::local({
[13:13:52.923]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.923]                 if (!identical(...future.globals.maxSize.org, 
[13:13:52.923]                   ...future.globals.maxSize)) {
[13:13:52.923]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.923]                   on.exit(options(oopts), add = TRUE)
[13:13:52.923]                 }
[13:13:52.923]                 {
[13:13:52.923]                   ...future.FUN2 <- function(..., ...future.seeds_ii_jj) {
[13:13:52.923]                     assign(".Random.seed", ...future.seeds_ii_jj, 
[13:13:52.923]                       envir = globalenv(), inherits = FALSE)
[13:13:52.923]                     ...future.FUN(...)
[13:13:52.923]                   }
[13:13:52.923]                   args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 
[13:13:52.923]                     list(...future.seeds_ii_jj = ...future.seeds_ii), 
[13:13:52.923]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:52.923]                     USE.NAMES = FALSE)
[13:13:52.923]                   do.call(mapply, args = args)
[13:13:52.923]                 }
[13:13:52.923]             }))
[13:13:52.923]             future::FutureResult(value = ...future.value$value, 
[13:13:52.923]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.923]                   ...future.rng), globalenv = if (FALSE) 
[13:13:52.923]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:52.923]                     ...future.globalenv.names))
[13:13:52.923]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:52.923]         }, condition = base::local({
[13:13:52.923]             c <- base::c
[13:13:52.923]             inherits <- base::inherits
[13:13:52.923]             invokeRestart <- base::invokeRestart
[13:13:52.923]             length <- base::length
[13:13:52.923]             list <- base::list
[13:13:52.923]             seq.int <- base::seq.int
[13:13:52.923]             signalCondition <- base::signalCondition
[13:13:52.923]             sys.calls <- base::sys.calls
[13:13:52.923]             `[[` <- base::`[[`
[13:13:52.923]             `+` <- base::`+`
[13:13:52.923]             `<<-` <- base::`<<-`
[13:13:52.923]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:52.923]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:52.923]                   3L)]
[13:13:52.923]             }
[13:13:52.923]             function(cond) {
[13:13:52.923]                 is_error <- inherits(cond, "error")
[13:13:52.923]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:52.923]                   NULL)
[13:13:52.923]                 if (is_error) {
[13:13:52.923]                   sessionInformation <- function() {
[13:13:52.923]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:52.923]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:52.923]                       search = base::search(), system = base::Sys.info())
[13:13:52.923]                   }
[13:13:52.923]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.923]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:52.923]                     cond$call), session = sessionInformation(), 
[13:13:52.923]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:52.923]                   signalCondition(cond)
[13:13:52.923]                 }
[13:13:52.923]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:52.923]                 "immediateCondition"))) {
[13:13:52.923]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:52.923]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.923]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:52.923]                   if (TRUE && !signal) {
[13:13:52.923]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.923]                     {
[13:13:52.923]                       inherits <- base::inherits
[13:13:52.923]                       invokeRestart <- base::invokeRestart
[13:13:52.923]                       is.null <- base::is.null
[13:13:52.923]                       muffled <- FALSE
[13:13:52.923]                       if (inherits(cond, "message")) {
[13:13:52.923]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.923]                         if (muffled) 
[13:13:52.923]                           invokeRestart("muffleMessage")
[13:13:52.923]                       }
[13:13:52.923]                       else if (inherits(cond, "warning")) {
[13:13:52.923]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.923]                         if (muffled) 
[13:13:52.923]                           invokeRestart("muffleWarning")
[13:13:52.923]                       }
[13:13:52.923]                       else if (inherits(cond, "condition")) {
[13:13:52.923]                         if (!is.null(pattern)) {
[13:13:52.923]                           computeRestarts <- base::computeRestarts
[13:13:52.923]                           grepl <- base::grepl
[13:13:52.923]                           restarts <- computeRestarts(cond)
[13:13:52.923]                           for (restart in restarts) {
[13:13:52.923]                             name <- restart$name
[13:13:52.923]                             if (is.null(name)) 
[13:13:52.923]                               next
[13:13:52.923]                             if (!grepl(pattern, name)) 
[13:13:52.923]                               next
[13:13:52.923]                             invokeRestart(restart)
[13:13:52.923]                             muffled <- TRUE
[13:13:52.923]                             break
[13:13:52.923]                           }
[13:13:52.923]                         }
[13:13:52.923]                       }
[13:13:52.923]                       invisible(muffled)
[13:13:52.923]                     }
[13:13:52.923]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.923]                   }
[13:13:52.923]                 }
[13:13:52.923]                 else {
[13:13:52.923]                   if (TRUE) {
[13:13:52.923]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.923]                     {
[13:13:52.923]                       inherits <- base::inherits
[13:13:52.923]                       invokeRestart <- base::invokeRestart
[13:13:52.923]                       is.null <- base::is.null
[13:13:52.923]                       muffled <- FALSE
[13:13:52.923]                       if (inherits(cond, "message")) {
[13:13:52.923]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.923]                         if (muffled) 
[13:13:52.923]                           invokeRestart("muffleMessage")
[13:13:52.923]                       }
[13:13:52.923]                       else if (inherits(cond, "warning")) {
[13:13:52.923]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.923]                         if (muffled) 
[13:13:52.923]                           invokeRestart("muffleWarning")
[13:13:52.923]                       }
[13:13:52.923]                       else if (inherits(cond, "condition")) {
[13:13:52.923]                         if (!is.null(pattern)) {
[13:13:52.923]                           computeRestarts <- base::computeRestarts
[13:13:52.923]                           grepl <- base::grepl
[13:13:52.923]                           restarts <- computeRestarts(cond)
[13:13:52.923]                           for (restart in restarts) {
[13:13:52.923]                             name <- restart$name
[13:13:52.923]                             if (is.null(name)) 
[13:13:52.923]                               next
[13:13:52.923]                             if (!grepl(pattern, name)) 
[13:13:52.923]                               next
[13:13:52.923]                             invokeRestart(restart)
[13:13:52.923]                             muffled <- TRUE
[13:13:52.923]                             break
[13:13:52.923]                           }
[13:13:52.923]                         }
[13:13:52.923]                       }
[13:13:52.923]                       invisible(muffled)
[13:13:52.923]                     }
[13:13:52.923]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.923]                   }
[13:13:52.923]                 }
[13:13:52.923]             }
[13:13:52.923]         }))
[13:13:52.923]     }, error = function(ex) {
[13:13:52.923]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:52.923]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.923]                 ...future.rng), started = ...future.startTime, 
[13:13:52.923]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:52.923]             version = "1.8"), class = "FutureResult")
[13:13:52.923]     }, finally = {
[13:13:52.923]         if (!identical(...future.workdir, getwd())) 
[13:13:52.923]             setwd(...future.workdir)
[13:13:52.923]         {
[13:13:52.923]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:52.923]                 ...future.oldOptions$nwarnings <- NULL
[13:13:52.923]             }
[13:13:52.923]             base::options(...future.oldOptions)
[13:13:52.923]             if (.Platform$OS.type == "windows") {
[13:13:52.923]                 old_names <- names(...future.oldEnvVars)
[13:13:52.923]                 envs <- base::Sys.getenv()
[13:13:52.923]                 names <- names(envs)
[13:13:52.923]                 common <- intersect(names, old_names)
[13:13:52.923]                 added <- setdiff(names, old_names)
[13:13:52.923]                 removed <- setdiff(old_names, names)
[13:13:52.923]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:52.923]                   envs[common]]
[13:13:52.923]                 NAMES <- toupper(changed)
[13:13:52.923]                 args <- list()
[13:13:52.923]                 for (kk in seq_along(NAMES)) {
[13:13:52.923]                   name <- changed[[kk]]
[13:13:52.923]                   NAME <- NAMES[[kk]]
[13:13:52.923]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.923]                     next
[13:13:52.923]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.923]                 }
[13:13:52.923]                 NAMES <- toupper(added)
[13:13:52.923]                 for (kk in seq_along(NAMES)) {
[13:13:52.923]                   name <- added[[kk]]
[13:13:52.923]                   NAME <- NAMES[[kk]]
[13:13:52.923]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.923]                     next
[13:13:52.923]                   args[[name]] <- ""
[13:13:52.923]                 }
[13:13:52.923]                 NAMES <- toupper(removed)
[13:13:52.923]                 for (kk in seq_along(NAMES)) {
[13:13:52.923]                   name <- removed[[kk]]
[13:13:52.923]                   NAME <- NAMES[[kk]]
[13:13:52.923]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.923]                     next
[13:13:52.923]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.923]                 }
[13:13:52.923]                 if (length(args) > 0) 
[13:13:52.923]                   base::do.call(base::Sys.setenv, args = args)
[13:13:52.923]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:52.923]             }
[13:13:52.923]             else {
[13:13:52.923]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:52.923]             }
[13:13:52.923]             {
[13:13:52.923]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:52.923]                   0L) {
[13:13:52.923]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:52.923]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:52.923]                   base::options(opts)
[13:13:52.923]                 }
[13:13:52.923]                 {
[13:13:52.923]                   {
[13:13:52.923]                     base::assign(".Random.seed", c(10407L, -1174970862L, 
[13:13:52.923]                     273460614L, 1227100809L, -981423529L, 61536946L, 
[13:13:52.923]                     596121589L), envir = base::globalenv(), inherits = FALSE)
[13:13:52.923]                     NULL
[13:13:52.923]                   }
[13:13:52.923]                   options(future.plan = NULL)
[13:13:52.923]                   if (is.na(NA_character_)) 
[13:13:52.923]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.923]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:52.923]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:52.923]                   {
[13:13:52.923]                     future <- SequentialFuture(..., envir = envir)
[13:13:52.923]                     if (!future$lazy) 
[13:13:52.923]                       future <- run(future)
[13:13:52.923]                     invisible(future)
[13:13:52.923]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:52.923]                 }
[13:13:52.923]             }
[13:13:52.923]         }
[13:13:52.923]     })
[13:13:52.923]     if (TRUE) {
[13:13:52.923]         base::sink(type = "output", split = FALSE)
[13:13:52.923]         if (TRUE) {
[13:13:52.923]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:52.923]         }
[13:13:52.923]         else {
[13:13:52.923]             ...future.result["stdout"] <- base::list(NULL)
[13:13:52.923]         }
[13:13:52.923]         base::close(...future.stdout)
[13:13:52.923]         ...future.stdout <- NULL
[13:13:52.923]     }
[13:13:52.923]     ...future.result$conditions <- ...future.conditions
[13:13:52.923]     ...future.result$finished <- base::Sys.time()
[13:13:52.923]     ...future.result
[13:13:52.923] }
[13:13:52.927] assign_globals() ...
[13:13:52.928] List of 5
[13:13:52.928]  $ ...future.FUN            :function (x, y)  
[13:13:52.928]  $ MoreArgs                 :List of 1
[13:13:52.928]   ..$ y: int [1:2] 3 4
[13:13:52.928]  $ ...future.elements_ii    :List of 1
[13:13:52.928]   ..$ x:List of 2
[13:13:52.928]   .. ..$ : int 1
[13:13:52.928]   .. ..$ : int 2
[13:13:52.928]  $ ...future.seeds_ii       :List of 2
[13:13:52.928]   ..$ : int [1:7] 10407 1620840792 464594702 -1192362554 1247088621 -256525150 767970106
[13:13:52.928]   ..$ : int [1:7] 10407 -1601261981 -545563431 1791532810 -2113165530 717215741 -1184486293
[13:13:52.928]  $ ...future.globals.maxSize: NULL
[13:13:52.928]  - attr(*, "where")=List of 5
[13:13:52.928]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:52.928]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[13:13:52.928]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:52.928]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:52.928]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:52.928]  - attr(*, "resolved")= logi FALSE
[13:13:52.928]  - attr(*, "total_size")= num 2032
[13:13:52.928]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.928]  - attr(*, "already-done")= logi TRUE
[13:13:52.934] - reassign environment for '...future.FUN'
[13:13:52.935] - copied '...future.FUN' to environment
[13:13:52.935] - copied 'MoreArgs' to environment
[13:13:52.935] - copied '...future.elements_ii' to environment
[13:13:52.935] - copied '...future.seeds_ii' to environment
[13:13:52.935] - copied '...future.globals.maxSize' to environment
[13:13:52.935] assign_globals() ... done
[13:13:52.936] plan(): Setting new future strategy stack:
[13:13:52.936] List of future strategies:
[13:13:52.936] 1. sequential:
[13:13:52.936]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.936]    - tweaked: FALSE
[13:13:52.936]    - call: NULL
[13:13:52.937] plan(): nbrOfWorkers() = 1
[13:13:52.938] plan(): Setting new future strategy stack:
[13:13:52.938] List of future strategies:
[13:13:52.938] 1. sequential:
[13:13:52.938]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.938]    - tweaked: FALSE
[13:13:52.938]    - call: plan(strategy)
[13:13:52.939] plan(): nbrOfWorkers() = 1
[13:13:52.939] SequentialFuture started (and completed)
[13:13:52.939] - Launch lazy future ... done
[13:13:52.939] run() for 'SequentialFuture' ... done
[13:13:52.939] Created future:
[13:13:52.940] SequentialFuture:
[13:13:52.940] Label: 'future_mapply-1'
[13:13:52.940] Expression:
[13:13:52.940] {
[13:13:52.940]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.940]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:52.940]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.940]         on.exit(options(oopts), add = TRUE)
[13:13:52.940]     }
[13:13:52.940]     {
[13:13:52.940]         ...future.FUN2 <- function(..., ...future.seeds_ii_jj) {
[13:13:52.940]             assign(".Random.seed", ...future.seeds_ii_jj, envir = globalenv(), 
[13:13:52.940]                 inherits = FALSE)
[13:13:52.940]             ...future.FUN(...)
[13:13:52.940]         }
[13:13:52.940]         args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 
[13:13:52.940]             list(...future.seeds_ii_jj = ...future.seeds_ii), 
[13:13:52.940]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:52.940]         do.call(mapply, args = args)
[13:13:52.940]     }
[13:13:52.940] }
[13:13:52.940] Lazy evaluation: FALSE
[13:13:52.940] Asynchronous evaluation: FALSE
[13:13:52.940] Local evaluation: TRUE
[13:13:52.940] Environment: R_GlobalEnv
[13:13:52.940] Capture standard output: TRUE
[13:13:52.940] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:52.940] Globals: 5 objects totaling 1.98 KiB (function '...future.FUN' of 1.66 KiB, list 'MoreArgs' of 56 bytes, list '...future.elements_ii' of 112 bytes, list '...future.seeds_ii' of 160 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:52.940] Packages: <none>
[13:13:52.940] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[13:13:52.940] Resolved: TRUE
[13:13:52.940] Value: 112 bytes of class 'list'
[13:13:52.940] Early signaling: FALSE
[13:13:52.940] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:52.940] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.941] Chunk #1 of 1 ... DONE
[13:13:52.941] Launching 1 futures (chunks) ... DONE
[13:13:52.941] Resolving 1 futures (chunks) ...
[13:13:52.941] resolve() on list ...
[13:13:52.941]  recursive: 0
[13:13:52.942]  length: 1
[13:13:52.943] 
[13:13:52.943] resolved() for 'SequentialFuture' ...
[13:13:52.943] - state: 'finished'
[13:13:52.943] - run: TRUE
[13:13:52.943] - result: 'FutureResult'
[13:13:52.943] resolved() for 'SequentialFuture' ... done
[13:13:52.944] Future #1
[13:13:52.944] signalConditionsASAP(SequentialFuture, pos=1) ...
[13:13:52.944] - nx: 1
[13:13:52.944] - relay: TRUE
[13:13:52.944] - stdout: TRUE
[13:13:52.945] - signal: TRUE
[13:13:52.945] - resignal: FALSE
[13:13:52.945] - force: TRUE
[13:13:52.945] - relayed: [n=1] FALSE
[13:13:52.945] - queued futures: [n=1] FALSE
[13:13:52.945]  - until=1
[13:13:52.945]  - relaying element #1
[13:13:52.946] - relayed: [n=1] TRUE
[13:13:52.946] - queued futures: [n=1] TRUE
[13:13:52.946] signalConditionsASAP(SequentialFuture, pos=1) ... done
[13:13:52.946]  length: 0 (resolved future 1)
[13:13:52.946] Relaying remaining futures
[13:13:52.947] signalConditionsASAP(NULL, pos=0) ...
[13:13:52.947] - nx: 1
[13:13:52.947] - relay: TRUE
[13:13:52.947] - stdout: TRUE
[13:13:52.947] - signal: TRUE
[13:13:52.947] - resignal: FALSE
[13:13:52.947] - force: TRUE
[13:13:52.948] - relayed: [n=1] TRUE
[13:13:52.948] - queued futures: [n=1] TRUE
 - flush all
[13:13:52.948] - relayed: [n=1] TRUE
[13:13:52.948] - queued futures: [n=1] TRUE
[13:13:52.948] signalConditionsASAP(NULL, pos=0) ... done
[13:13:52.949] resolve() on list ... DONE
[13:13:52.949]  - Number of value chunks collected: 1
[13:13:52.949] Resolving 1 futures (chunks) ... DONE
[13:13:52.949] Reducing values from 1 chunks ...
[13:13:52.949]  - Number of values collected after concatenation: 2
[13:13:52.949]  - Number of values expected: 2
[13:13:52.950] Reducing values from 1 chunks ... DONE
[13:13:52.950] future_mapply() ... DONE
[13:13:52.950] future_mapply() ...
[13:13:52.950] Number of chunks: 1
[13:13:52.951] getGlobalsAndPackagesXApply() ...
[13:13:52.951]  - future.globals: TRUE
[13:13:52.951] getGlobalsAndPackages() ...
[13:13:52.951] Searching for globals...
[13:13:52.952] - globals found: [1] 'FUN'
[13:13:52.952] Searching for globals ... DONE
[13:13:52.953] Resolving globals: FALSE
[13:13:52.953] The total size of the 1 globals is 1.66 KiB (1704 bytes)
[13:13:52.953] The total size of the 1 globals exported for future expression ('FUN(y = 3:4)') is 1.66 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (1.66 KiB of class 'function')
[13:13:52.953] - globals: [1] 'FUN'
[13:13:52.954] 
[13:13:52.954] getGlobalsAndPackages() ... DONE
[13:13:52.954]  - globals found/used: [n=1] 'FUN'
[13:13:52.954]  - needed namespaces: [n=0] 
[13:13:52.954] Finding globals ... DONE
[13:13:52.955] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:52.955] List of 2
[13:13:52.955]  $ ...future.FUN:function (x, y)  
[13:13:52.955]  $ MoreArgs     :List of 1
[13:13:52.955]   ..$ y: int [1:2] 3 4
[13:13:52.955]  - attr(*, "where")=List of 2
[13:13:52.955]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:52.955]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:52.955]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.955]  - attr(*, "resolved")= logi FALSE
[13:13:52.955]  - attr(*, "total_size")= num NA
[13:13:52.958] Packages to be attached in all futures: [n=0] 
[13:13:52.958] getGlobalsAndPackagesXApply() ... DONE
[13:13:52.958] Number of futures (= number of chunks): 1
[13:13:52.959] Launching 1 futures (chunks) ...
[13:13:52.959] Chunk #1 of 1 ...
[13:13:52.959]  - Finding globals in '...' for chunk #1 ...
[13:13:52.959] getGlobalsAndPackages() ...
[13:13:52.959] Searching for globals...
[13:13:52.960] 
[13:13:52.960] Searching for globals ... DONE
[13:13:52.960] - globals: [0] <none>
[13:13:52.960] getGlobalsAndPackages() ... DONE
[13:13:52.960]    + additional globals found: [n=0] 
[13:13:52.960]    + additional namespaces needed: [n=0] 
[13:13:52.961]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:52.961]  - seeds: <none>
[13:13:52.961]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.961] getGlobalsAndPackages() ...
[13:13:52.961] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.961] Resolving globals: FALSE
[13:13:52.962] The total size of the 5 globals is 1.83 KiB (1872 bytes)
[13:13:52.963] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 1.83 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (1.66 KiB of class 'function'), '...future.elements_ii' (112 bytes of class 'list') and 'MoreArgs' (56 bytes of class 'list')
[13:13:52.963] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:52.963] 
[13:13:52.963] getGlobalsAndPackages() ... DONE
[13:13:52.964] run() for 'Future' ...
[13:13:52.964] - state: 'created'
[13:13:52.964] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:52.964] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.965] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:52.965]   - Field: 'label'
[13:13:52.965]   - Field: 'local'
[13:13:52.965]   - Field: 'owner'
[13:13:52.965]   - Field: 'envir'
[13:13:52.965]   - Field: 'packages'
[13:13:52.966]   - Field: 'gc'
[13:13:52.966]   - Field: 'conditions'
[13:13:52.966]   - Field: 'expr'
[13:13:52.966]   - Field: 'uuid'
[13:13:52.966]   - Field: 'seed'
[13:13:52.966]   - Field: 'version'
[13:13:52.967]   - Field: 'result'
[13:13:52.967]   - Field: 'asynchronous'
[13:13:52.967]   - Field: 'calls'
[13:13:52.967]   - Field: 'globals'
[13:13:52.967]   - Field: 'stdout'
[13:13:52.967]   - Field: 'earlySignal'
[13:13:52.968]   - Field: 'lazy'
[13:13:52.969]   - Field: 'state'
[13:13:52.969] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:52.969] - Launch lazy future ...
[13:13:52.969] Packages needed by the future expression (n = 0): <none>
[13:13:52.969] Packages needed by future strategies (n = 0): <none>
[13:13:52.970] {
[13:13:52.970]     {
[13:13:52.970]         {
[13:13:52.970]             ...future.startTime <- base::Sys.time()
[13:13:52.970]             {
[13:13:52.970]                 {
[13:13:52.970]                   {
[13:13:52.970]                     base::local({
[13:13:52.970]                       has_future <- base::requireNamespace("future", 
[13:13:52.970]                         quietly = TRUE)
[13:13:52.970]                       if (has_future) {
[13:13:52.970]                         ns <- base::getNamespace("future")
[13:13:52.970]                         version <- ns[[".package"]][["version"]]
[13:13:52.970]                         if (is.null(version)) 
[13:13:52.970]                           version <- utils::packageVersion("future")
[13:13:52.970]                       }
[13:13:52.970]                       else {
[13:13:52.970]                         version <- NULL
[13:13:52.970]                       }
[13:13:52.970]                       if (!has_future || version < "1.8.0") {
[13:13:52.970]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:52.970]                           "", base::R.version$version.string), 
[13:13:52.970]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:52.970]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:52.970]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:52.970]                             "release", "version")], collapse = " "), 
[13:13:52.970]                           hostname = base::Sys.info()[["nodename"]])
[13:13:52.970]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:52.970]                           info)
[13:13:52.970]                         info <- base::paste(info, collapse = "; ")
[13:13:52.970]                         if (!has_future) {
[13:13:52.970]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:52.970]                             info)
[13:13:52.970]                         }
[13:13:52.970]                         else {
[13:13:52.970]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:52.970]                             info, version)
[13:13:52.970]                         }
[13:13:52.970]                         base::stop(msg)
[13:13:52.970]                       }
[13:13:52.970]                     })
[13:13:52.970]                   }
[13:13:52.970]                   options(future.plan = NULL)
[13:13:52.970]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.970]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:52.970]                 }
[13:13:52.970]                 ...future.workdir <- getwd()
[13:13:52.970]             }
[13:13:52.970]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:52.970]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:52.970]         }
[13:13:52.970]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:52.970]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[13:13:52.970]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:52.970]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:52.970]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:52.970]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:52.970]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:52.970]             base::names(...future.oldOptions))
[13:13:52.970]     }
[13:13:52.970]     if (FALSE) {
[13:13:52.970]     }
[13:13:52.970]     else {
[13:13:52.970]         if (TRUE) {
[13:13:52.970]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:52.970]                 open = "w")
[13:13:52.970]         }
[13:13:52.970]         else {
[13:13:52.970]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:52.970]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:52.970]         }
[13:13:52.970]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:52.970]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:52.970]             base::sink(type = "output", split = FALSE)
[13:13:52.970]             base::close(...future.stdout)
[13:13:52.970]         }, add = TRUE)
[13:13:52.970]     }
[13:13:52.970]     ...future.frame <- base::sys.nframe()
[13:13:52.970]     ...future.conditions <- base::list()
[13:13:52.970]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:52.970]     if (FALSE) {
[13:13:52.970]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:52.970]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:52.970]     }
[13:13:52.970]     ...future.result <- base::tryCatch({
[13:13:52.970]         base::withCallingHandlers({
[13:13:52.970]             ...future.value <- base::withVisible(base::local({
[13:13:52.970]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.970]                 if (!identical(...future.globals.maxSize.org, 
[13:13:52.970]                   ...future.globals.maxSize)) {
[13:13:52.970]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.970]                   on.exit(options(oopts), add = TRUE)
[13:13:52.970]                 }
[13:13:52.970]                 {
[13:13:52.970]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.970]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:52.970]                     USE.NAMES = FALSE)
[13:13:52.970]                   do.call(mapply, args = args)
[13:13:52.970]                 }
[13:13:52.970]             }))
[13:13:52.970]             future::FutureResult(value = ...future.value$value, 
[13:13:52.970]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.970]                   ...future.rng), globalenv = if (FALSE) 
[13:13:52.970]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:52.970]                     ...future.globalenv.names))
[13:13:52.970]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:52.970]         }, condition = base::local({
[13:13:52.970]             c <- base::c
[13:13:52.970]             inherits <- base::inherits
[13:13:52.970]             invokeRestart <- base::invokeRestart
[13:13:52.970]             length <- base::length
[13:13:52.970]             list <- base::list
[13:13:52.970]             seq.int <- base::seq.int
[13:13:52.970]             signalCondition <- base::signalCondition
[13:13:52.970]             sys.calls <- base::sys.calls
[13:13:52.970]             `[[` <- base::`[[`
[13:13:52.970]             `+` <- base::`+`
[13:13:52.970]             `<<-` <- base::`<<-`
[13:13:52.970]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:52.970]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:52.970]                   3L)]
[13:13:52.970]             }
[13:13:52.970]             function(cond) {
[13:13:52.970]                 is_error <- inherits(cond, "error")
[13:13:52.970]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:52.970]                   NULL)
[13:13:52.970]                 if (is_error) {
[13:13:52.970]                   sessionInformation <- function() {
[13:13:52.970]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:52.970]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:52.970]                       search = base::search(), system = base::Sys.info())
[13:13:52.970]                   }
[13:13:52.970]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.970]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:52.970]                     cond$call), session = sessionInformation(), 
[13:13:52.970]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:52.970]                   signalCondition(cond)
[13:13:52.970]                 }
[13:13:52.970]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:52.970]                 "immediateCondition"))) {
[13:13:52.970]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:52.970]                   ...future.conditions[[length(...future.conditions) + 
[13:13:52.970]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:52.970]                   if (TRUE && !signal) {
[13:13:52.970]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.970]                     {
[13:13:52.970]                       inherits <- base::inherits
[13:13:52.970]                       invokeRestart <- base::invokeRestart
[13:13:52.970]                       is.null <- base::is.null
[13:13:52.970]                       muffled <- FALSE
[13:13:52.970]                       if (inherits(cond, "message")) {
[13:13:52.970]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.970]                         if (muffled) 
[13:13:52.970]                           invokeRestart("muffleMessage")
[13:13:52.970]                       }
[13:13:52.970]                       else if (inherits(cond, "warning")) {
[13:13:52.970]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.970]                         if (muffled) 
[13:13:52.970]                           invokeRestart("muffleWarning")
[13:13:52.970]                       }
[13:13:52.970]                       else if (inherits(cond, "condition")) {
[13:13:52.970]                         if (!is.null(pattern)) {
[13:13:52.970]                           computeRestarts <- base::computeRestarts
[13:13:52.970]                           grepl <- base::grepl
[13:13:52.970]                           restarts <- computeRestarts(cond)
[13:13:52.970]                           for (restart in restarts) {
[13:13:52.970]                             name <- restart$name
[13:13:52.970]                             if (is.null(name)) 
[13:13:52.970]                               next
[13:13:52.970]                             if (!grepl(pattern, name)) 
[13:13:52.970]                               next
[13:13:52.970]                             invokeRestart(restart)
[13:13:52.970]                             muffled <- TRUE
[13:13:52.970]                             break
[13:13:52.970]                           }
[13:13:52.970]                         }
[13:13:52.970]                       }
[13:13:52.970]                       invisible(muffled)
[13:13:52.970]                     }
[13:13:52.970]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.970]                   }
[13:13:52.970]                 }
[13:13:52.970]                 else {
[13:13:52.970]                   if (TRUE) {
[13:13:52.970]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:52.970]                     {
[13:13:52.970]                       inherits <- base::inherits
[13:13:52.970]                       invokeRestart <- base::invokeRestart
[13:13:52.970]                       is.null <- base::is.null
[13:13:52.970]                       muffled <- FALSE
[13:13:52.970]                       if (inherits(cond, "message")) {
[13:13:52.970]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:52.970]                         if (muffled) 
[13:13:52.970]                           invokeRestart("muffleMessage")
[13:13:52.970]                       }
[13:13:52.970]                       else if (inherits(cond, "warning")) {
[13:13:52.970]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:52.970]                         if (muffled) 
[13:13:52.970]                           invokeRestart("muffleWarning")
[13:13:52.970]                       }
[13:13:52.970]                       else if (inherits(cond, "condition")) {
[13:13:52.970]                         if (!is.null(pattern)) {
[13:13:52.970]                           computeRestarts <- base::computeRestarts
[13:13:52.970]                           grepl <- base::grepl
[13:13:52.970]                           restarts <- computeRestarts(cond)
[13:13:52.970]                           for (restart in restarts) {
[13:13:52.970]                             name <- restart$name
[13:13:52.970]                             if (is.null(name)) 
[13:13:52.970]                               next
[13:13:52.970]                             if (!grepl(pattern, name)) 
[13:13:52.970]                               next
[13:13:52.970]                             invokeRestart(restart)
[13:13:52.970]                             muffled <- TRUE
[13:13:52.970]                             break
[13:13:52.970]                           }
[13:13:52.970]                         }
[13:13:52.970]                       }
[13:13:52.970]                       invisible(muffled)
[13:13:52.970]                     }
[13:13:52.970]                     muffleCondition(cond, pattern = "^muffle")
[13:13:52.970]                   }
[13:13:52.970]                 }
[13:13:52.970]             }
[13:13:52.970]         }))
[13:13:52.970]     }, error = function(ex) {
[13:13:52.970]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:52.970]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:52.970]                 ...future.rng), started = ...future.startTime, 
[13:13:52.970]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:52.970]             version = "1.8"), class = "FutureResult")
[13:13:52.970]     }, finally = {
[13:13:52.970]         if (!identical(...future.workdir, getwd())) 
[13:13:52.970]             setwd(...future.workdir)
[13:13:52.970]         {
[13:13:52.970]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:52.970]                 ...future.oldOptions$nwarnings <- NULL
[13:13:52.970]             }
[13:13:52.970]             base::options(...future.oldOptions)
[13:13:52.970]             if (.Platform$OS.type == "windows") {
[13:13:52.970]                 old_names <- names(...future.oldEnvVars)
[13:13:52.970]                 envs <- base::Sys.getenv()
[13:13:52.970]                 names <- names(envs)
[13:13:52.970]                 common <- intersect(names, old_names)
[13:13:52.970]                 added <- setdiff(names, old_names)
[13:13:52.970]                 removed <- setdiff(old_names, names)
[13:13:52.970]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:52.970]                   envs[common]]
[13:13:52.970]                 NAMES <- toupper(changed)
[13:13:52.970]                 args <- list()
[13:13:52.970]                 for (kk in seq_along(NAMES)) {
[13:13:52.970]                   name <- changed[[kk]]
[13:13:52.970]                   NAME <- NAMES[[kk]]
[13:13:52.970]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.970]                     next
[13:13:52.970]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.970]                 }
[13:13:52.970]                 NAMES <- toupper(added)
[13:13:52.970]                 for (kk in seq_along(NAMES)) {
[13:13:52.970]                   name <- added[[kk]]
[13:13:52.970]                   NAME <- NAMES[[kk]]
[13:13:52.970]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.970]                     next
[13:13:52.970]                   args[[name]] <- ""
[13:13:52.970]                 }
[13:13:52.970]                 NAMES <- toupper(removed)
[13:13:52.970]                 for (kk in seq_along(NAMES)) {
[13:13:52.970]                   name <- removed[[kk]]
[13:13:52.970]                   NAME <- NAMES[[kk]]
[13:13:52.970]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:52.970]                     next
[13:13:52.970]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:52.970]                 }
[13:13:52.970]                 if (length(args) > 0) 
[13:13:52.970]                   base::do.call(base::Sys.setenv, args = args)
[13:13:52.970]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:52.970]             }
[13:13:52.970]             else {
[13:13:52.970]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:52.970]             }
[13:13:52.970]             {
[13:13:52.970]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:52.970]                   0L) {
[13:13:52.970]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:52.970]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:52.970]                   base::options(opts)
[13:13:52.970]                 }
[13:13:52.970]                 {
[13:13:52.970]                   {
[13:13:52.970]                     base::assign(".Random.seed", c(10407L, -1174970862L, 
[13:13:52.970]                     273460614L, 1227100809L, -981423529L, 61536946L, 
[13:13:52.970]                     596121589L), envir = base::globalenv(), inherits = FALSE)
[13:13:52.970]                     NULL
[13:13:52.970]                   }
[13:13:52.970]                   options(future.plan = NULL)
[13:13:52.970]                   if (is.na(NA_character_)) 
[13:13:52.970]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:52.970]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:52.970]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:52.970]                   {
[13:13:52.970]                     future <- SequentialFuture(..., envir = envir)
[13:13:52.970]                     if (!future$lazy) 
[13:13:52.970]                       future <- run(future)
[13:13:52.970]                     invisible(future)
[13:13:52.970]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:52.970]                 }
[13:13:52.970]             }
[13:13:52.970]         }
[13:13:52.970]     })
[13:13:52.970]     if (TRUE) {
[13:13:52.970]         base::sink(type = "output", split = FALSE)
[13:13:52.970]         if (TRUE) {
[13:13:52.970]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:52.970]         }
[13:13:52.970]         else {
[13:13:52.970]             ...future.result["stdout"] <- base::list(NULL)
[13:13:52.970]         }
[13:13:52.970]         base::close(...future.stdout)
[13:13:52.970]         ...future.stdout <- NULL
[13:13:52.970]     }
[13:13:52.970]     ...future.result$conditions <- ...future.conditions
[13:13:52.970]     ...future.result$finished <- base::Sys.time()
[13:13:52.970]     ...future.result
[13:13:52.970] }
[13:13:52.974] assign_globals() ...
[13:13:52.974] List of 5
[13:13:52.974]  $ ...future.FUN            :function (x, y)  
[13:13:52.974]  $ MoreArgs                 :List of 1
[13:13:52.974]   ..$ y: int [1:2] 3 4
[13:13:52.974]  $ ...future.elements_ii    :List of 1
[13:13:52.974]   ..$ x:List of 2
[13:13:52.974]   .. ..$ : int 1
[13:13:52.974]   .. ..$ : int 2
[13:13:52.974]  $ ...future.seeds_ii       : NULL
[13:13:52.974]  $ ...future.globals.maxSize: NULL
[13:13:52.974]  - attr(*, "where")=List of 5
[13:13:52.974]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:52.974]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[13:13:52.974]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:52.974]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:52.974]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:52.974]  - attr(*, "resolved")= logi FALSE
[13:13:52.974]  - attr(*, "total_size")= num 1872
[13:13:52.974]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:52.974]  - attr(*, "already-done")= logi TRUE
[13:13:52.980] - reassign environment for '...future.FUN'
[13:13:52.980] - copied '...future.FUN' to environment
[13:13:52.981] - copied 'MoreArgs' to environment
[13:13:52.981] - copied '...future.elements_ii' to environment
[13:13:52.981] - copied '...future.seeds_ii' to environment
[13:13:52.981] - copied '...future.globals.maxSize' to environment
[13:13:52.981] assign_globals() ... done
[13:13:52.982] plan(): Setting new future strategy stack:
[13:13:52.982] List of future strategies:
[13:13:52.982] 1. sequential:
[13:13:52.982]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.982]    - tweaked: FALSE
[13:13:52.982]    - call: NULL
[13:13:52.982] plan(): nbrOfWorkers() = 1
[13:13:52.984] plan(): Setting new future strategy stack:
[13:13:52.984] List of future strategies:
[13:13:52.984] 1. sequential:
[13:13:52.984]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:52.984]    - tweaked: FALSE
[13:13:52.984]    - call: plan(strategy)
[13:13:52.984] plan(): nbrOfWorkers() = 1
[13:13:52.985] SequentialFuture started (and completed)
[13:13:52.985] - Launch lazy future ... done
[13:13:52.985] run() for 'SequentialFuture' ... done
[13:13:52.985] Created future:
[13:13:52.985] SequentialFuture:
[13:13:52.985] Label: 'future_.mapply-1'
[13:13:52.985] Expression:
[13:13:52.985] {
[13:13:52.985]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:52.985]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:52.985]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:52.985]         on.exit(options(oopts), add = TRUE)
[13:13:52.985]     }
[13:13:52.985]     {
[13:13:52.985]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:52.985]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:52.985]         do.call(mapply, args = args)
[13:13:52.985]     }
[13:13:52.985] }
[13:13:52.985] Lazy evaluation: FALSE
[13:13:52.985] Asynchronous evaluation: FALSE
[13:13:52.985] Local evaluation: TRUE
[13:13:52.985] Environment: R_GlobalEnv
[13:13:52.985] Capture standard output: TRUE
[13:13:52.985] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:52.985] Globals: 5 objects totaling 1.83 KiB (function '...future.FUN' of 1.66 KiB, list 'MoreArgs' of 56 bytes, list '...future.elements_ii' of 112 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:52.985] Packages: <none>
[13:13:52.985] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:52.985] Resolved: TRUE
[13:13:52.985] Value: 112 bytes of class 'list'
[13:13:52.985] Early signaling: FALSE
[13:13:52.985] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:52.985] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:52.986] Chunk #1 of 1 ... DONE
[13:13:52.987] Launching 1 futures (chunks) ... DONE
[13:13:52.987] Resolving 1 futures (chunks) ...
[13:13:52.987] resolve() on list ...
[13:13:52.987]  recursive: 0
[13:13:52.987]  length: 1
[13:13:52.987] 
[13:13:52.988] resolved() for 'SequentialFuture' ...
[13:13:52.988] - state: 'finished'
[13:13:52.988] - run: TRUE
[13:13:52.988] - result: 'FutureResult'
[13:13:52.988] resolved() for 'SequentialFuture' ... done
[13:13:52.989] Future #1
[13:13:52.989] signalConditionsASAP(SequentialFuture, pos=1) ...
[13:13:52.989] - nx: 1
[13:13:52.989] - relay: TRUE
[13:13:52.989] - stdout: TRUE
[13:13:52.989] - signal: TRUE
[13:13:52.989] - resignal: FALSE
[13:13:52.990] - force: TRUE
[13:13:52.990] - relayed: [n=1] FALSE
[13:13:52.990] - queued futures: [n=1] FALSE
[13:13:52.990]  - until=1
[13:13:52.990]  - relaying element #1
[13:13:52.991] - relayed: [n=1] TRUE
[13:13:52.991] - queued futures: [n=1] TRUE
[13:13:52.991] signalConditionsASAP(SequentialFuture, pos=1) ... done
[13:13:52.991]  length: 0 (resolved future 1)
[13:13:52.991] Relaying remaining futures
[13:13:52.991] signalConditionsASAP(NULL, pos=0) ...
[13:13:52.992] - nx: 1
[13:13:52.992] - relay: TRUE
[13:13:52.992] - stdout: TRUE
[13:13:52.992] - signal: TRUE
[13:13:52.992] - resignal: FALSE
[13:13:52.992] - force: TRUE
[13:13:52.992] - relayed: [n=1] TRUE
[13:13:52.993] - queued futures: [n=1] TRUE
 - flush all
[13:13:52.993] - relayed: [n=1] TRUE
[13:13:52.993] - queued futures: [n=1] TRUE
[13:13:52.993] signalConditionsASAP(NULL, pos=0) ... done
[13:13:52.993] resolve() on list ... DONE
[13:13:52.993]  - Number of value chunks collected: 1
[13:13:52.994] Resolving 1 futures (chunks) ... DONE
[13:13:52.994] Reducing values from 1 chunks ...
[13:13:52.994]  - Number of values collected after concatenation: 2
[13:13:52.994]  - Number of values expected: 2
[13:13:52.994] Reducing values from 1 chunks ... DONE
[13:13:52.994] future_mapply() ... DONE
- Recycle arguments to same length ...
[13:13:52.995] future_mapply() ...
[13:13:52.995] Number of chunks: 1
[13:13:52.995] getGlobalsAndPackagesXApply() ...
[13:13:52.996]  - future.globals: TRUE
[13:13:52.996] getGlobalsAndPackages() ...
[13:13:52.996] Searching for globals...
[13:13:52.997] - globals found: [1] 'FUN'
[13:13:52.997] Searching for globals ... DONE
[13:13:52.998] Resolving globals: FALSE
[13:13:52.998] The total size of the 1 globals is 56 bytes (56 bytes)
[13:13:52.998] The total size of the 1 globals exported for future expression ('FUN()') is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (56 bytes of class 'function')
[13:13:52.999] - globals: [1] 'FUN'
[13:13:52.999] 
[13:13:52.999] getGlobalsAndPackages() ... DONE
[13:13:52.999]  - globals found/used: [n=1] 'FUN'
[13:13:52.999]  - needed namespaces: [n=0] 
[13:13:52.999] Finding globals ... DONE
[13:13:53.000] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:53.000] List of 2
[13:13:53.000]  $ ...future.FUN:function (x, ...)  
[13:13:53.000]  $ MoreArgs     : NULL
[13:13:53.000]  - attr(*, "where")=List of 2
[13:13:53.000]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:53.000]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:53.000]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:53.000]  - attr(*, "resolved")= logi FALSE
[13:13:53.000]  - attr(*, "total_size")= num NA
[13:13:53.003] Packages to be attached in all futures: [n=0] 
[13:13:53.003] getGlobalsAndPackagesXApply() ... DONE
[13:13:53.003] Number of futures (= number of chunks): 1
[13:13:53.003] Launching 1 futures (chunks) ...
[13:13:53.004] Chunk #1 of 1 ...
[13:13:53.004]  - Finding globals in '...' for chunk #1 ...
[13:13:53.004] getGlobalsAndPackages() ...
[13:13:53.004] Searching for globals...
[13:13:53.005] 
[13:13:53.005] Searching for globals ... DONE
[13:13:53.005] - globals: [0] <none>
[13:13:53.005] getGlobalsAndPackages() ... DONE
[13:13:53.005]    + additional globals found: [n=0] 
[13:13:53.005]    + additional namespaces needed: [n=0] 
[13:13:53.006]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:53.006]  - seeds: <none>
[13:13:53.006]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:53.006] getGlobalsAndPackages() ...
[13:13:53.006] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:53.006] Resolving globals: FALSE
[13:13:53.007] The total size of the 5 globals is 504 bytes (504 bytes)
[13:13:53.008] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 504 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (448 bytes of class 'list'), '...future.FUN' (56 bytes of class 'function') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:53.008] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:53.008] 
[13:13:53.008] getGlobalsAndPackages() ... DONE
[13:13:53.008] run() for 'Future' ...
[13:13:53.009] - state: 'created'
[13:13:53.009] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:53.009] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:53.009] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:53.010]   - Field: 'label'
[13:13:53.010]   - Field: 'local'
[13:13:53.010]   - Field: 'owner'
[13:13:53.010]   - Field: 'envir'
[13:13:53.010]   - Field: 'packages'
[13:13:53.010]   - Field: 'gc'
[13:13:53.011]   - Field: 'conditions'
[13:13:53.011]   - Field: 'expr'
[13:13:53.011]   - Field: 'uuid'
[13:13:53.011]   - Field: 'seed'
[13:13:53.011]   - Field: 'version'
[13:13:53.011]   - Field: 'result'
[13:13:53.012]   - Field: 'asynchronous'
[13:13:53.012]   - Field: 'calls'
[13:13:53.012]   - Field: 'globals'
[13:13:53.012]   - Field: 'stdout'
[13:13:53.012]   - Field: 'earlySignal'
[13:13:53.013]   - Field: 'lazy'
[13:13:53.013]   - Field: 'state'
[13:13:53.013] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:53.013] - Launch lazy future ...
[13:13:53.013] Packages needed by the future expression (n = 0): <none>
[13:13:53.013] Packages needed by future strategies (n = 0): <none>
[13:13:53.014] {
[13:13:53.014]     {
[13:13:53.014]         {
[13:13:53.014]             ...future.startTime <- base::Sys.time()
[13:13:53.014]             {
[13:13:53.014]                 {
[13:13:53.014]                   {
[13:13:53.014]                     base::local({
[13:13:53.014]                       has_future <- base::requireNamespace("future", 
[13:13:53.014]                         quietly = TRUE)
[13:13:53.014]                       if (has_future) {
[13:13:53.014]                         ns <- base::getNamespace("future")
[13:13:53.014]                         version <- ns[[".package"]][["version"]]
[13:13:53.014]                         if (is.null(version)) 
[13:13:53.014]                           version <- utils::packageVersion("future")
[13:13:53.014]                       }
[13:13:53.014]                       else {
[13:13:53.014]                         version <- NULL
[13:13:53.014]                       }
[13:13:53.014]                       if (!has_future || version < "1.8.0") {
[13:13:53.014]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:53.014]                           "", base::R.version$version.string), 
[13:13:53.014]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:53.014]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:53.014]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:53.014]                             "release", "version")], collapse = " "), 
[13:13:53.014]                           hostname = base::Sys.info()[["nodename"]])
[13:13:53.014]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:53.014]                           info)
[13:13:53.014]                         info <- base::paste(info, collapse = "; ")
[13:13:53.014]                         if (!has_future) {
[13:13:53.014]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:53.014]                             info)
[13:13:53.014]                         }
[13:13:53.014]                         else {
[13:13:53.014]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:53.014]                             info, version)
[13:13:53.014]                         }
[13:13:53.014]                         base::stop(msg)
[13:13:53.014]                       }
[13:13:53.014]                     })
[13:13:53.014]                   }
[13:13:53.014]                   options(future.plan = NULL)
[13:13:53.014]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:53.014]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:53.014]                 }
[13:13:53.014]                 ...future.workdir <- getwd()
[13:13:53.014]             }
[13:13:53.014]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:53.014]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:53.014]         }
[13:13:53.014]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:53.014]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[13:13:53.014]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:53.014]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:53.014]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:53.014]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:53.014]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:53.014]             base::names(...future.oldOptions))
[13:13:53.014]     }
[13:13:53.014]     if (FALSE) {
[13:13:53.014]     }
[13:13:53.014]     else {
[13:13:53.014]         if (TRUE) {
[13:13:53.014]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:53.014]                 open = "w")
[13:13:53.014]         }
[13:13:53.014]         else {
[13:13:53.014]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:53.014]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:53.014]         }
[13:13:53.014]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:53.014]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:53.014]             base::sink(type = "output", split = FALSE)
[13:13:53.014]             base::close(...future.stdout)
[13:13:53.014]         }, add = TRUE)
[13:13:53.014]     }
[13:13:53.014]     ...future.frame <- base::sys.nframe()
[13:13:53.014]     ...future.conditions <- base::list()
[13:13:53.014]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:53.014]     if (FALSE) {
[13:13:53.014]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:53.014]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:53.014]     }
[13:13:53.014]     ...future.result <- base::tryCatch({
[13:13:53.014]         base::withCallingHandlers({
[13:13:53.014]             ...future.value <- base::withVisible(base::local({
[13:13:53.014]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:53.014]                 if (!identical(...future.globals.maxSize.org, 
[13:13:53.014]                   ...future.globals.maxSize)) {
[13:13:53.014]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:53.014]                   on.exit(options(oopts), add = TRUE)
[13:13:53.014]                 }
[13:13:53.014]                 {
[13:13:53.014]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:53.014]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:53.014]                     USE.NAMES = FALSE)
[13:13:53.014]                   do.call(mapply, args = args)
[13:13:53.014]                 }
[13:13:53.014]             }))
[13:13:53.014]             future::FutureResult(value = ...future.value$value, 
[13:13:53.014]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:53.014]                   ...future.rng), globalenv = if (FALSE) 
[13:13:53.014]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:53.014]                     ...future.globalenv.names))
[13:13:53.014]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:53.014]         }, condition = base::local({
[13:13:53.014]             c <- base::c
[13:13:53.014]             inherits <- base::inherits
[13:13:53.014]             invokeRestart <- base::invokeRestart
[13:13:53.014]             length <- base::length
[13:13:53.014]             list <- base::list
[13:13:53.014]             seq.int <- base::seq.int
[13:13:53.014]             signalCondition <- base::signalCondition
[13:13:53.014]             sys.calls <- base::sys.calls
[13:13:53.014]             `[[` <- base::`[[`
[13:13:53.014]             `+` <- base::`+`
[13:13:53.014]             `<<-` <- base::`<<-`
[13:13:53.014]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:53.014]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:53.014]                   3L)]
[13:13:53.014]             }
[13:13:53.014]             function(cond) {
[13:13:53.014]                 is_error <- inherits(cond, "error")
[13:13:53.014]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:53.014]                   NULL)
[13:13:53.014]                 if (is_error) {
[13:13:53.014]                   sessionInformation <- function() {
[13:13:53.014]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:53.014]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:53.014]                       search = base::search(), system = base::Sys.info())
[13:13:53.014]                   }
[13:13:53.014]                   ...future.conditions[[length(...future.conditions) + 
[13:13:53.014]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:53.014]                     cond$call), session = sessionInformation(), 
[13:13:53.014]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:53.014]                   signalCondition(cond)
[13:13:53.014]                 }
[13:13:53.014]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:53.014]                 "immediateCondition"))) {
[13:13:53.014]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:53.014]                   ...future.conditions[[length(...future.conditions) + 
[13:13:53.014]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:53.014]                   if (TRUE && !signal) {
[13:13:53.014]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:53.014]                     {
[13:13:53.014]                       inherits <- base::inherits
[13:13:53.014]                       invokeRestart <- base::invokeRestart
[13:13:53.014]                       is.null <- base::is.null
[13:13:53.014]                       muffled <- FALSE
[13:13:53.014]                       if (inherits(cond, "message")) {
[13:13:53.014]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:53.014]                         if (muffled) 
[13:13:53.014]                           invokeRestart("muffleMessage")
[13:13:53.014]                       }
[13:13:53.014]                       else if (inherits(cond, "warning")) {
[13:13:53.014]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:53.014]                         if (muffled) 
[13:13:53.014]                           invokeRestart("muffleWarning")
[13:13:53.014]                       }
[13:13:53.014]                       else if (inherits(cond, "condition")) {
[13:13:53.014]                         if (!is.null(pattern)) {
[13:13:53.014]                           computeRestarts <- base::computeRestarts
[13:13:53.014]                           grepl <- base::grepl
[13:13:53.014]                           restarts <- computeRestarts(cond)
[13:13:53.014]                           for (restart in restarts) {
[13:13:53.014]                             name <- restart$name
[13:13:53.014]                             if (is.null(name)) 
[13:13:53.014]                               next
[13:13:53.014]                             if (!grepl(pattern, name)) 
[13:13:53.014]                               next
[13:13:53.014]                             invokeRestart(restart)
[13:13:53.014]                             muffled <- TRUE
[13:13:53.014]                             break
[13:13:53.014]                           }
[13:13:53.014]                         }
[13:13:53.014]                       }
[13:13:53.014]                       invisible(muffled)
[13:13:53.014]                     }
[13:13:53.014]                     muffleCondition(cond, pattern = "^muffle")
[13:13:53.014]                   }
[13:13:53.014]                 }
[13:13:53.014]                 else {
[13:13:53.014]                   if (TRUE) {
[13:13:53.014]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:53.014]                     {
[13:13:53.014]                       inherits <- base::inherits
[13:13:53.014]                       invokeRestart <- base::invokeRestart
[13:13:53.014]                       is.null <- base::is.null
[13:13:53.014]                       muffled <- FALSE
[13:13:53.014]                       if (inherits(cond, "message")) {
[13:13:53.014]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:53.014]                         if (muffled) 
[13:13:53.014]                           invokeRestart("muffleMessage")
[13:13:53.014]                       }
[13:13:53.014]                       else if (inherits(cond, "warning")) {
[13:13:53.014]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:53.014]                         if (muffled) 
[13:13:53.014]                           invokeRestart("muffleWarning")
[13:13:53.014]                       }
[13:13:53.014]                       else if (inherits(cond, "condition")) {
[13:13:53.014]                         if (!is.null(pattern)) {
[13:13:53.014]                           computeRestarts <- base::computeRestarts
[13:13:53.014]                           grepl <- base::grepl
[13:13:53.014]                           restarts <- computeRestarts(cond)
[13:13:53.014]                           for (restart in restarts) {
[13:13:53.014]                             name <- restart$name
[13:13:53.014]                             if (is.null(name)) 
[13:13:53.014]                               next
[13:13:53.014]                             if (!grepl(pattern, name)) 
[13:13:53.014]                               next
[13:13:53.014]                             invokeRestart(restart)
[13:13:53.014]                             muffled <- TRUE
[13:13:53.014]                             break
[13:13:53.014]                           }
[13:13:53.014]                         }
[13:13:53.014]                       }
[13:13:53.014]                       invisible(muffled)
[13:13:53.014]                     }
[13:13:53.014]                     muffleCondition(cond, pattern = "^muffle")
[13:13:53.014]                   }
[13:13:53.014]                 }
[13:13:53.014]             }
[13:13:53.014]         }))
[13:13:53.014]     }, error = function(ex) {
[13:13:53.014]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:53.014]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:53.014]                 ...future.rng), started = ...future.startTime, 
[13:13:53.014]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:53.014]             version = "1.8"), class = "FutureResult")
[13:13:53.014]     }, finally = {
[13:13:53.014]         if (!identical(...future.workdir, getwd())) 
[13:13:53.014]             setwd(...future.workdir)
[13:13:53.014]         {
[13:13:53.014]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:53.014]                 ...future.oldOptions$nwarnings <- NULL
[13:13:53.014]             }
[13:13:53.014]             base::options(...future.oldOptions)
[13:13:53.014]             if (.Platform$OS.type == "windows") {
[13:13:53.014]                 old_names <- names(...future.oldEnvVars)
[13:13:53.014]                 envs <- base::Sys.getenv()
[13:13:53.014]                 names <- names(envs)
[13:13:53.014]                 common <- intersect(names, old_names)
[13:13:53.014]                 added <- setdiff(names, old_names)
[13:13:53.014]                 removed <- setdiff(old_names, names)
[13:13:53.014]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:53.014]                   envs[common]]
[13:13:53.014]                 NAMES <- toupper(changed)
[13:13:53.014]                 args <- list()
[13:13:53.014]                 for (kk in seq_along(NAMES)) {
[13:13:53.014]                   name <- changed[[kk]]
[13:13:53.014]                   NAME <- NAMES[[kk]]
[13:13:53.014]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:53.014]                     next
[13:13:53.014]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:53.014]                 }
[13:13:53.014]                 NAMES <- toupper(added)
[13:13:53.014]                 for (kk in seq_along(NAMES)) {
[13:13:53.014]                   name <- added[[kk]]
[13:13:53.014]                   NAME <- NAMES[[kk]]
[13:13:53.014]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:53.014]                     next
[13:13:53.014]                   args[[name]] <- ""
[13:13:53.014]                 }
[13:13:53.014]                 NAMES <- toupper(removed)
[13:13:53.014]                 for (kk in seq_along(NAMES)) {
[13:13:53.014]                   name <- removed[[kk]]
[13:13:53.014]                   NAME <- NAMES[[kk]]
[13:13:53.014]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:53.014]                     next
[13:13:53.014]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:53.014]                 }
[13:13:53.014]                 if (length(args) > 0) 
[13:13:53.014]                   base::do.call(base::Sys.setenv, args = args)
[13:13:53.014]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:53.014]             }
[13:13:53.014]             else {
[13:13:53.014]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:53.014]             }
[13:13:53.014]             {
[13:13:53.014]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:53.014]                   0L) {
[13:13:53.014]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:53.014]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:53.014]                   base::options(opts)
[13:13:53.014]                 }
[13:13:53.014]                 {
[13:13:53.014]                   {
[13:13:53.014]                     base::assign(".Random.seed", c(10407L, -1174970862L, 
[13:13:53.014]                     273460614L, 1227100809L, -981423529L, 61536946L, 
[13:13:53.014]                     596121589L), envir = base::globalenv(), inherits = FALSE)
[13:13:53.014]                     NULL
[13:13:53.014]                   }
[13:13:53.014]                   options(future.plan = NULL)
[13:13:53.014]                   if (is.na(NA_character_)) 
[13:13:53.014]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:53.014]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:53.014]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:53.014]                   {
[13:13:53.014]                     future <- SequentialFuture(..., envir = envir)
[13:13:53.014]                     if (!future$lazy) 
[13:13:53.014]                       future <- run(future)
[13:13:53.014]                     invisible(future)
[13:13:53.014]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:53.014]                 }
[13:13:53.014]             }
[13:13:53.014]         }
[13:13:53.014]     })
[13:13:53.014]     if (TRUE) {
[13:13:53.014]         base::sink(type = "output", split = FALSE)
[13:13:53.014]         if (TRUE) {
[13:13:53.014]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:53.014]         }
[13:13:53.014]         else {
[13:13:53.014]             ...future.result["stdout"] <- base::list(NULL)
[13:13:53.014]         }
[13:13:53.014]         base::close(...future.stdout)
[13:13:53.014]         ...future.stdout <- NULL
[13:13:53.014]     }
[13:13:53.014]     ...future.result$conditions <- ...future.conditions
[13:13:53.014]     ...future.result$finished <- base::Sys.time()
[13:13:53.014]     ...future.result
[13:13:53.014] }
[13:13:53.018] assign_globals() ...
[13:13:53.018] List of 5
[13:13:53.018]  $ ...future.FUN            :function (x, ...)  
[13:13:53.018]  $ MoreArgs                 : NULL
[13:13:53.018]  $ ...future.elements_ii    :List of 2
[13:13:53.018]   ..$ :List of 4
[13:13:53.018]   .. ..$ : int 1
[13:13:53.018]   .. ..$ : int 2
[13:13:53.018]   .. ..$ : int 3
[13:13:53.018]   .. ..$ : int 4
[13:13:53.018]   ..$ :List of 4
[13:13:53.018]   .. ..$ : int 2
[13:13:53.018]   .. ..$ : int 1
[13:13:53.018]   .. ..$ : int 2
[13:13:53.018]   .. ..$ : int 1
[13:13:53.018]  $ ...future.seeds_ii       : NULL
[13:13:53.018]  $ ...future.globals.maxSize: NULL
[13:13:53.018]  - attr(*, "where")=List of 5
[13:13:53.018]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:53.018]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[13:13:53.018]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:53.018]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:53.018]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:53.018]  - attr(*, "resolved")= logi FALSE
[13:13:53.018]  - attr(*, "total_size")= num 504
[13:13:53.018]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:53.018]  - attr(*, "already-done")= logi TRUE
[13:13:53.027] - copied '...future.FUN' to environment
[13:13:53.027] - copied 'MoreArgs' to environment
[13:13:53.028] - copied '...future.elements_ii' to environment
[13:13:53.028] - copied '...future.seeds_ii' to environment
[13:13:53.028] - copied '...future.globals.maxSize' to environment
[13:13:53.028] assign_globals() ... done
[13:13:53.028] plan(): Setting new future strategy stack:
[13:13:53.029] List of future strategies:
[13:13:53.029] 1. sequential:
[13:13:53.029]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:53.029]    - tweaked: FALSE
[13:13:53.029]    - call: NULL
[13:13:53.029] plan(): nbrOfWorkers() = 1
[13:13:53.030] plan(): Setting new future strategy stack:
[13:13:53.031] List of future strategies:
[13:13:53.031] 1. sequential:
[13:13:53.031]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:53.031]    - tweaked: FALSE
[13:13:53.031]    - call: plan(strategy)
[13:13:53.031] plan(): nbrOfWorkers() = 1
[13:13:53.031] SequentialFuture started (and completed)
[13:13:53.032] - Launch lazy future ... done
[13:13:53.032] run() for 'SequentialFuture' ... done
[13:13:53.032] Created future:
[13:13:53.032] SequentialFuture:
[13:13:53.032] Label: 'future_mapply-1'
[13:13:53.032] Expression:
[13:13:53.032] {
[13:13:53.032]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:53.032]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:53.032]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:53.032]         on.exit(options(oopts), add = TRUE)
[13:13:53.032]     }
[13:13:53.032]     {
[13:13:53.032]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:53.032]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:53.032]         do.call(mapply, args = args)
[13:13:53.032]     }
[13:13:53.032] }
[13:13:53.032] Lazy evaluation: FALSE
[13:13:53.032] Asynchronous evaluation: FALSE
[13:13:53.032] Local evaluation: TRUE
[13:13:53.032] Environment: R_GlobalEnv
[13:13:53.032] Capture standard output: TRUE
[13:13:53.032] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:53.032] Globals: 5 objects totaling 504 bytes (function '...future.FUN' of 56 bytes, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 448 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:53.032] Packages: <none>
[13:13:53.032] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:53.032] Resolved: TRUE
[13:13:53.032] Value: 224 bytes of class 'list'
[13:13:53.032] Early signaling: FALSE
[13:13:53.032] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:53.032] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:53.033] Chunk #1 of 1 ... DONE
[13:13:53.033] Launching 1 futures (chunks) ... DONE
[13:13:53.034] Resolving 1 futures (chunks) ...
[13:13:53.034] resolve() on list ...
[13:13:53.034]  recursive: 0
[13:13:53.034]  length: 1
[13:13:53.034] 
[13:13:53.034] resolved() for 'SequentialFuture' ...
[13:13:53.035] - state: 'finished'
[13:13:53.035] - run: TRUE
[13:13:53.035] - result: 'FutureResult'
[13:13:53.035] resolved() for 'SequentialFuture' ... done
[13:13:53.035] Future #1
[13:13:53.036] signalConditionsASAP(SequentialFuture, pos=1) ...
[13:13:53.036] - nx: 1
[13:13:53.036] - relay: TRUE
[13:13:53.036] - stdout: TRUE
[13:13:53.036] - signal: TRUE
[13:13:53.036] - resignal: FALSE
[13:13:53.036] - force: TRUE
[13:13:53.037] - relayed: [n=1] FALSE
[13:13:53.037] - queued futures: [n=1] FALSE
[13:13:53.037]  - until=1
[13:13:53.037]  - relaying element #1
[13:13:53.037] - relayed: [n=1] TRUE
[13:13:53.038] - queued futures: [n=1] TRUE
[13:13:53.038] signalConditionsASAP(SequentialFuture, pos=1) ... done
[13:13:53.038]  length: 0 (resolved future 1)
[13:13:53.038] Relaying remaining futures
[13:13:53.038] signalConditionsASAP(NULL, pos=0) ...
[13:13:53.038] - nx: 1
[13:13:53.038] - relay: TRUE
[13:13:53.039] - stdout: TRUE
[13:13:53.039] - signal: TRUE
[13:13:53.039] - resignal: FALSE
[13:13:53.039] - force: TRUE
[13:13:53.039] - relayed: [n=1] TRUE
[13:13:53.039] - queued futures: [n=1] TRUE
 - flush all
[13:13:53.040] - relayed: [n=1] TRUE
[13:13:53.040] - queued futures: [n=1] TRUE
[13:13:53.040] signalConditionsASAP(NULL, pos=0) ... done
[13:13:53.040] resolve() on list ... DONE
[13:13:53.040]  - Number of value chunks collected: 1
[13:13:53.040] Resolving 1 futures (chunks) ... DONE
[13:13:53.041] Reducing values from 1 chunks ...
[13:13:53.041]  - Number of values collected after concatenation: 4
[13:13:53.041]  - Number of values expected: 4
[13:13:53.041] Reducing values from 1 chunks ... DONE
[13:13:53.041] future_mapply() ... DONE
- Parallel RNG ...
[13:13:53.041] future_mapply() ...
[13:13:53.042] Generating random seeds ...
[13:13:53.042] Generating random seed streams for 4 elements ...
[13:13:53.042] Generating random seed streams for 4 elements ... DONE
[13:13:53.042] Generating random seeds ... DONE
[13:13:53.042] Will set RNG state on exit: 10407, 1227100809, 677240932, 541401037, 596121589, -197197737, -1727875518
[13:13:53.043] Number of chunks: 1
[13:13:53.043] getGlobalsAndPackagesXApply() ...
[13:13:53.043]  - future.globals: TRUE
[13:13:53.043] getGlobalsAndPackages() ...
[13:13:53.043] Searching for globals...
[13:13:53.045] - globals found: [3] 'FUN', '.Call', 'C_runif'
[13:13:53.045] Searching for globals ... DONE
[13:13:53.045] Resolving globals: FALSE
[13:13:53.046] The total size of the 1 globals is 2.04 KiB (2088 bytes)
[13:13:53.046] The total size of the 1 globals exported for future expression ('FUN(min = 1)') is 2.04 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (2.04 KiB of class 'function')
[13:13:53.046] - globals: [1] 'FUN'
[13:13:53.047] - packages: [1] 'stats'
[13:13:53.048] getGlobalsAndPackages() ... DONE
[13:13:53.048]  - globals found/used: [n=1] 'FUN'
[13:13:53.048]  - needed namespaces: [n=1] 'stats'
[13:13:53.048] Finding globals ... DONE
[13:13:53.048] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:53.049] List of 2
[13:13:53.049]  $ ...future.FUN:function (n, min = 0, max = 1)  
[13:13:53.049]  $ MoreArgs     :List of 1
[13:13:53.049]   ..$ min: num 1
[13:13:53.049]  - attr(*, "where")=List of 2
[13:13:53.049]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:53.049]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:53.049]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:53.049]  - attr(*, "resolved")= logi FALSE
[13:13:53.049]  - attr(*, "total_size")= num NA
[13:13:53.052] Packages to be attached in all futures: [n=1] 'stats'
[13:13:53.052] getGlobalsAndPackagesXApply() ... DONE
[13:13:53.053] Number of futures (= number of chunks): 1
[13:13:53.053] Launching 1 futures (chunks) ...
[13:13:53.053] Chunk #1 of 1 ...
[13:13:53.053]  - Finding globals in '...' for chunk #1 ...
[13:13:53.053] getGlobalsAndPackages() ...
[13:13:53.053] Searching for globals...
[13:13:53.054] 
[13:13:53.054] Searching for globals ... DONE
[13:13:53.054] - globals: [0] <none>
[13:13:53.054] getGlobalsAndPackages() ... DONE
[13:13:53.054]    + additional globals found: [n=0] 
[13:13:53.055]    + additional namespaces needed: [n=0] 
[13:13:53.055]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:53.055]  - seeds: [4] <seeds>
[13:13:53.055]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:53.055] getGlobalsAndPackages() ...
[13:13:53.055] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:53.056] Resolving globals: FALSE
[13:13:53.056] The total size of the 5 globals is 2.84 KiB (2912 bytes)
[13:13:53.057] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 2.84 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (2.04 KiB of class 'function'), '...future.elements_ii' (448 bytes of class 'list') and '...future.seeds_ii' (320 bytes of class 'list')
[13:13:53.057] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:53.057] - packages: [1] 'stats'
[13:13:53.058] getGlobalsAndPackages() ... DONE
[13:13:53.058] run() for 'Future' ...
[13:13:53.058] - state: 'created'
[13:13:53.058] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:53.059] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:53.059] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:53.059]   - Field: 'label'
[13:13:53.059]   - Field: 'local'
[13:13:53.059]   - Field: 'owner'
[13:13:53.060]   - Field: 'envir'
[13:13:53.060]   - Field: 'packages'
[13:13:53.060]   - Field: 'gc'
[13:13:53.060]   - Field: 'conditions'
[13:13:53.060]   - Field: 'expr'
[13:13:53.060]   - Field: 'uuid'
[13:13:53.061]   - Field: 'seed'
[13:13:53.061]   - Field: 'version'
[13:13:53.061]   - Field: 'result'
[13:13:53.061]   - Field: 'asynchronous'
[13:13:53.061]   - Field: 'calls'
[13:13:53.061]   - Field: 'globals'
[13:13:53.062]   - Field: 'stdout'
[13:13:53.062]   - Field: 'earlySignal'
[13:13:53.062]   - Field: 'lazy'
[13:13:53.062]   - Field: 'state'
[13:13:53.062] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:53.063] - Launch lazy future ...
[13:13:53.063] Packages needed by the future expression (n = 1): 'stats'
[13:13:53.063] Packages needed by future strategies (n = 0): <none>
[13:13:53.064] {
[13:13:53.064]     {
[13:13:53.064]         {
[13:13:53.064]             ...future.startTime <- base::Sys.time()
[13:13:53.064]             {
[13:13:53.064]                 {
[13:13:53.064]                   {
[13:13:53.064]                     {
[13:13:53.064]                       base::local({
[13:13:53.064]                         has_future <- base::requireNamespace("future", 
[13:13:53.064]                           quietly = TRUE)
[13:13:53.064]                         if (has_future) {
[13:13:53.064]                           ns <- base::getNamespace("future")
[13:13:53.064]                           version <- ns[[".package"]][["version"]]
[13:13:53.064]                           if (is.null(version)) 
[13:13:53.064]                             version <- utils::packageVersion("future")
[13:13:53.064]                         }
[13:13:53.064]                         else {
[13:13:53.064]                           version <- NULL
[13:13:53.064]                         }
[13:13:53.064]                         if (!has_future || version < "1.8.0") {
[13:13:53.064]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:53.064]                             "", base::R.version$version.string), 
[13:13:53.064]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:53.064]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:53.064]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:53.064]                               "release", "version")], collapse = " "), 
[13:13:53.064]                             hostname = base::Sys.info()[["nodename"]])
[13:13:53.064]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:53.064]                             info)
[13:13:53.064]                           info <- base::paste(info, collapse = "; ")
[13:13:53.064]                           if (!has_future) {
[13:13:53.064]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:53.064]                               info)
[13:13:53.064]                           }
[13:13:53.064]                           else {
[13:13:53.064]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:53.064]                               info, version)
[13:13:53.064]                           }
[13:13:53.064]                           base::stop(msg)
[13:13:53.064]                         }
[13:13:53.064]                       })
[13:13:53.064]                     }
[13:13:53.064]                     base::local({
[13:13:53.064]                       for (pkg in "stats") {
[13:13:53.064]                         base::loadNamespace(pkg)
[13:13:53.064]                         base::library(pkg, character.only = TRUE)
[13:13:53.064]                       }
[13:13:53.064]                     })
[13:13:53.064]                   }
[13:13:53.064]                   options(future.plan = NULL)
[13:13:53.064]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:53.064]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:53.064]                 }
[13:13:53.064]                 ...future.workdir <- getwd()
[13:13:53.064]             }
[13:13:53.064]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:53.064]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:53.064]         }
[13:13:53.064]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:53.064]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[13:13:53.064]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:53.064]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:53.064]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:53.064]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:53.064]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:53.064]             base::names(...future.oldOptions))
[13:13:53.064]     }
[13:13:53.064]     if (FALSE) {
[13:13:53.064]     }
[13:13:53.064]     else {
[13:13:53.064]         if (TRUE) {
[13:13:53.064]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:53.064]                 open = "w")
[13:13:53.064]         }
[13:13:53.064]         else {
[13:13:53.064]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:53.064]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:53.064]         }
[13:13:53.064]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:53.064]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:53.064]             base::sink(type = "output", split = FALSE)
[13:13:53.064]             base::close(...future.stdout)
[13:13:53.064]         }, add = TRUE)
[13:13:53.064]     }
[13:13:53.064]     ...future.frame <- base::sys.nframe()
[13:13:53.064]     ...future.conditions <- base::list()
[13:13:53.064]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:53.064]     if (FALSE) {
[13:13:53.064]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:53.064]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:53.064]     }
[13:13:53.064]     ...future.result <- base::tryCatch({
[13:13:53.064]         base::withCallingHandlers({
[13:13:53.064]             ...future.value <- base::withVisible(base::local({
[13:13:53.064]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:53.064]                 if (!identical(...future.globals.maxSize.org, 
[13:13:53.064]                   ...future.globals.maxSize)) {
[13:13:53.064]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:53.064]                   on.exit(options(oopts), add = TRUE)
[13:13:53.064]                 }
[13:13:53.064]                 {
[13:13:53.064]                   ...future.FUN2 <- function(..., ...future.seeds_ii_jj) {
[13:13:53.064]                     assign(".Random.seed", ...future.seeds_ii_jj, 
[13:13:53.064]                       envir = globalenv(), inherits = FALSE)
[13:13:53.064]                     ...future.FUN(...)
[13:13:53.064]                   }
[13:13:53.064]                   args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 
[13:13:53.064]                     list(...future.seeds_ii_jj = ...future.seeds_ii), 
[13:13:53.064]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:53.064]                     USE.NAMES = FALSE)
[13:13:53.064]                   do.call(mapply, args = args)
[13:13:53.064]                 }
[13:13:53.064]             }))
[13:13:53.064]             future::FutureResult(value = ...future.value$value, 
[13:13:53.064]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:53.064]                   ...future.rng), globalenv = if (FALSE) 
[13:13:53.064]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:53.064]                     ...future.globalenv.names))
[13:13:53.064]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:53.064]         }, condition = base::local({
[13:13:53.064]             c <- base::c
[13:13:53.064]             inherits <- base::inherits
[13:13:53.064]             invokeRestart <- base::invokeRestart
[13:13:53.064]             length <- base::length
[13:13:53.064]             list <- base::list
[13:13:53.064]             seq.int <- base::seq.int
[13:13:53.064]             signalCondition <- base::signalCondition
[13:13:53.064]             sys.calls <- base::sys.calls
[13:13:53.064]             `[[` <- base::`[[`
[13:13:53.064]             `+` <- base::`+`
[13:13:53.064]             `<<-` <- base::`<<-`
[13:13:53.064]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:53.064]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:53.064]                   3L)]
[13:13:53.064]             }
[13:13:53.064]             function(cond) {
[13:13:53.064]                 is_error <- inherits(cond, "error")
[13:13:53.064]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:53.064]                   NULL)
[13:13:53.064]                 if (is_error) {
[13:13:53.064]                   sessionInformation <- function() {
[13:13:53.064]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:53.064]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:53.064]                       search = base::search(), system = base::Sys.info())
[13:13:53.064]                   }
[13:13:53.064]                   ...future.conditions[[length(...future.conditions) + 
[13:13:53.064]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:53.064]                     cond$call), session = sessionInformation(), 
[13:13:53.064]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:53.064]                   signalCondition(cond)
[13:13:53.064]                 }
[13:13:53.064]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:53.064]                 "immediateCondition"))) {
[13:13:53.064]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:53.064]                   ...future.conditions[[length(...future.conditions) + 
[13:13:53.064]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:53.064]                   if (TRUE && !signal) {
[13:13:53.064]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:53.064]                     {
[13:13:53.064]                       inherits <- base::inherits
[13:13:53.064]                       invokeRestart <- base::invokeRestart
[13:13:53.064]                       is.null <- base::is.null
[13:13:53.064]                       muffled <- FALSE
[13:13:53.064]                       if (inherits(cond, "message")) {
[13:13:53.064]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:53.064]                         if (muffled) 
[13:13:53.064]                           invokeRestart("muffleMessage")
[13:13:53.064]                       }
[13:13:53.064]                       else if (inherits(cond, "warning")) {
[13:13:53.064]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:53.064]                         if (muffled) 
[13:13:53.064]                           invokeRestart("muffleWarning")
[13:13:53.064]                       }
[13:13:53.064]                       else if (inherits(cond, "condition")) {
[13:13:53.064]                         if (!is.null(pattern)) {
[13:13:53.064]                           computeRestarts <- base::computeRestarts
[13:13:53.064]                           grepl <- base::grepl
[13:13:53.064]                           restarts <- computeRestarts(cond)
[13:13:53.064]                           for (restart in restarts) {
[13:13:53.064]                             name <- restart$name
[13:13:53.064]                             if (is.null(name)) 
[13:13:53.064]                               next
[13:13:53.064]                             if (!grepl(pattern, name)) 
[13:13:53.064]                               next
[13:13:53.064]                             invokeRestart(restart)
[13:13:53.064]                             muffled <- TRUE
[13:13:53.064]                             break
[13:13:53.064]                           }
[13:13:53.064]                         }
[13:13:53.064]                       }
[13:13:53.064]                       invisible(muffled)
[13:13:53.064]                     }
[13:13:53.064]                     muffleCondition(cond, pattern = "^muffle")
[13:13:53.064]                   }
[13:13:53.064]                 }
[13:13:53.064]                 else {
[13:13:53.064]                   if (TRUE) {
[13:13:53.064]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:53.064]                     {
[13:13:53.064]                       inherits <- base::inherits
[13:13:53.064]                       invokeRestart <- base::invokeRestart
[13:13:53.064]                       is.null <- base::is.null
[13:13:53.064]                       muffled <- FALSE
[13:13:53.064]                       if (inherits(cond, "message")) {
[13:13:53.064]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:53.064]                         if (muffled) 
[13:13:53.064]                           invokeRestart("muffleMessage")
[13:13:53.064]                       }
[13:13:53.064]                       else if (inherits(cond, "warning")) {
[13:13:53.064]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:53.064]                         if (muffled) 
[13:13:53.064]                           invokeRestart("muffleWarning")
[13:13:53.064]                       }
[13:13:53.064]                       else if (inherits(cond, "condition")) {
[13:13:53.064]                         if (!is.null(pattern)) {
[13:13:53.064]                           computeRestarts <- base::computeRestarts
[13:13:53.064]                           grepl <- base::grepl
[13:13:53.064]                           restarts <- computeRestarts(cond)
[13:13:53.064]                           for (restart in restarts) {
[13:13:53.064]                             name <- restart$name
[13:13:53.064]                             if (is.null(name)) 
[13:13:53.064]                               next
[13:13:53.064]                             if (!grepl(pattern, name)) 
[13:13:53.064]                               next
[13:13:53.064]                             invokeRestart(restart)
[13:13:53.064]                             muffled <- TRUE
[13:13:53.064]                             break
[13:13:53.064]                           }
[13:13:53.064]                         }
[13:13:53.064]                       }
[13:13:53.064]                       invisible(muffled)
[13:13:53.064]                     }
[13:13:53.064]                     muffleCondition(cond, pattern = "^muffle")
[13:13:53.064]                   }
[13:13:53.064]                 }
[13:13:53.064]             }
[13:13:53.064]         }))
[13:13:53.064]     }, error = function(ex) {
[13:13:53.064]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:53.064]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:53.064]                 ...future.rng), started = ...future.startTime, 
[13:13:53.064]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:53.064]             version = "1.8"), class = "FutureResult")
[13:13:53.064]     }, finally = {
[13:13:53.064]         if (!identical(...future.workdir, getwd())) 
[13:13:53.064]             setwd(...future.workdir)
[13:13:53.064]         {
[13:13:53.064]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:53.064]                 ...future.oldOptions$nwarnings <- NULL
[13:13:53.064]             }
[13:13:53.064]             base::options(...future.oldOptions)
[13:13:53.064]             if (.Platform$OS.type == "windows") {
[13:13:53.064]                 old_names <- names(...future.oldEnvVars)
[13:13:53.064]                 envs <- base::Sys.getenv()
[13:13:53.064]                 names <- names(envs)
[13:13:53.064]                 common <- intersect(names, old_names)
[13:13:53.064]                 added <- setdiff(names, old_names)
[13:13:53.064]                 removed <- setdiff(old_names, names)
[13:13:53.064]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:53.064]                   envs[common]]
[13:13:53.064]                 NAMES <- toupper(changed)
[13:13:53.064]                 args <- list()
[13:13:53.064]                 for (kk in seq_along(NAMES)) {
[13:13:53.064]                   name <- changed[[kk]]
[13:13:53.064]                   NAME <- NAMES[[kk]]
[13:13:53.064]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:53.064]                     next
[13:13:53.064]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:53.064]                 }
[13:13:53.064]                 NAMES <- toupper(added)
[13:13:53.064]                 for (kk in seq_along(NAMES)) {
[13:13:53.064]                   name <- added[[kk]]
[13:13:53.064]                   NAME <- NAMES[[kk]]
[13:13:53.064]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:53.064]                     next
[13:13:53.064]                   args[[name]] <- ""
[13:13:53.064]                 }
[13:13:53.064]                 NAMES <- toupper(removed)
[13:13:53.064]                 for (kk in seq_along(NAMES)) {
[13:13:53.064]                   name <- removed[[kk]]
[13:13:53.064]                   NAME <- NAMES[[kk]]
[13:13:53.064]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:53.064]                     next
[13:13:53.064]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:53.064]                 }
[13:13:53.064]                 if (length(args) > 0) 
[13:13:53.064]                   base::do.call(base::Sys.setenv, args = args)
[13:13:53.064]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:53.064]             }
[13:13:53.064]             else {
[13:13:53.064]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:53.064]             }
[13:13:53.064]             {
[13:13:53.064]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:53.064]                   0L) {
[13:13:53.064]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:53.064]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:53.064]                   base::options(opts)
[13:13:53.064]                 }
[13:13:53.064]                 {
[13:13:53.064]                   {
[13:13:53.064]                     base::assign(".Random.seed", c(10407L, 1227100809L, 
[13:13:53.064]                     677240932L, 541401037L, 596121589L, -197197737L, 
[13:13:53.064]                     -1727875518L), envir = base::globalenv(), 
[13:13:53.064]                       inherits = FALSE)
[13:13:53.064]                     NULL
[13:13:53.064]                   }
[13:13:53.064]                   options(future.plan = NULL)
[13:13:53.064]                   if (is.na(NA_character_)) 
[13:13:53.064]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:53.064]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:53.064]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:53.064]                   {
[13:13:53.064]                     future <- SequentialFuture(..., envir = envir)
[13:13:53.064]                     if (!future$lazy) 
[13:13:53.064]                       future <- run(future)
[13:13:53.064]                     invisible(future)
[13:13:53.064]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:53.064]                 }
[13:13:53.064]             }
[13:13:53.064]         }
[13:13:53.064]     })
[13:13:53.064]     if (TRUE) {
[13:13:53.064]         base::sink(type = "output", split = FALSE)
[13:13:53.064]         if (TRUE) {
[13:13:53.064]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:53.064]         }
[13:13:53.064]         else {
[13:13:53.064]             ...future.result["stdout"] <- base::list(NULL)
[13:13:53.064]         }
[13:13:53.064]         base::close(...future.stdout)
[13:13:53.064]         ...future.stdout <- NULL
[13:13:53.064]     }
[13:13:53.064]     ...future.result$conditions <- ...future.conditions
[13:13:53.064]     ...future.result$finished <- base::Sys.time()
[13:13:53.064]     ...future.result
[13:13:53.064] }
[13:13:53.068] assign_globals() ...
[13:13:53.068] List of 5
[13:13:53.068]  $ ...future.FUN            :function (n, min = 0, max = 1)  
[13:13:53.068]  $ MoreArgs                 :List of 1
[13:13:53.068]   ..$ min: num 1
[13:13:53.068]  $ ...future.elements_ii    :List of 2
[13:13:53.068]   ..$ n  :List of 4
[13:13:53.068]   .. ..$ : int 1
[13:13:53.068]   .. ..$ : int 2
[13:13:53.068]   .. ..$ : int 3
[13:13:53.068]   .. ..$ : int 4
[13:13:53.068]   ..$ max:List of 4
[13:13:53.068]   .. ..$ : int 2
[13:13:53.068]   .. ..$ : int 3
[13:13:53.068]   .. ..$ : int 4
[13:13:53.068]   .. ..$ : int 5
[13:13:53.068]  $ ...future.seeds_ii       :List of 4
[13:13:53.068]   ..$ : int [1:7] 10407 1242173061 -1150840343 -834448425 701050094 -1369558043 -650964284
[13:13:53.068]   ..$ : int [1:7] 10407 859061261 1088872332 -1371790091 -942478768 -889560561 1393381402
[13:13:53.068]   ..$ : int [1:7] 10407 -1977952646 362645338 -1927542548 -742448269 -2030870718 1472975712
[13:13:53.068]   ..$ : int [1:7] 10407 -781199300 -1470244364 -1435938985 -1154922760 795337516 2089908040
[13:13:53.068]  $ ...future.globals.maxSize: NULL
[13:13:53.068]  - attr(*, "where")=List of 5
[13:13:53.068]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:53.068]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[13:13:53.068]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:53.068]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:53.068]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:53.068]  - attr(*, "resolved")= logi FALSE
[13:13:53.068]  - attr(*, "total_size")= num 2912
[13:13:53.068]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:53.068]  - attr(*, "already-done")= logi TRUE
[13:13:53.079] - copied '...future.FUN' to environment
[13:13:53.079] - copied 'MoreArgs' to environment
[13:13:53.079] - copied '...future.elements_ii' to environment
[13:13:53.079] - copied '...future.seeds_ii' to environment
[13:13:53.080] - copied '...future.globals.maxSize' to environment
[13:13:53.080] assign_globals() ... done
[13:13:53.080] plan(): Setting new future strategy stack:
[13:13:53.081] List of future strategies:
[13:13:53.081] 1. sequential:
[13:13:53.081]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:53.081]    - tweaked: FALSE
[13:13:53.081]    - call: NULL
[13:13:53.081] plan(): nbrOfWorkers() = 1
[13:13:53.082] plan(): Setting new future strategy stack:
[13:13:53.083] List of future strategies:
[13:13:53.083] 1. sequential:
[13:13:53.083]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:53.083]    - tweaked: FALSE
[13:13:53.083]    - call: plan(strategy)
[13:13:53.083] plan(): nbrOfWorkers() = 1
[13:13:53.083] SequentialFuture started (and completed)
[13:13:53.084] - Launch lazy future ... done
[13:13:53.084] run() for 'SequentialFuture' ... done
[13:13:53.084] Created future:
[13:13:53.084] SequentialFuture:
[13:13:53.084] Label: 'future_mapply-1'
[13:13:53.084] Expression:
[13:13:53.084] {
[13:13:53.084]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:53.084]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:53.084]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:53.084]         on.exit(options(oopts), add = TRUE)
[13:13:53.084]     }
[13:13:53.084]     {
[13:13:53.084]         ...future.FUN2 <- function(..., ...future.seeds_ii_jj) {
[13:13:53.084]             assign(".Random.seed", ...future.seeds_ii_jj, envir = globalenv(), 
[13:13:53.084]                 inherits = FALSE)
[13:13:53.084]             ...future.FUN(...)
[13:13:53.084]         }
[13:13:53.084]         args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 
[13:13:53.084]             list(...future.seeds_ii_jj = ...future.seeds_ii), 
[13:13:53.084]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:53.084]         do.call(mapply, args = args)
[13:13:53.084]     }
[13:13:53.084] }
[13:13:53.084] Lazy evaluation: FALSE
[13:13:53.084] Asynchronous evaluation: FALSE
[13:13:53.084] Local evaluation: TRUE
[13:13:53.084] Environment: R_GlobalEnv
[13:13:53.084] Capture standard output: TRUE
[13:13:53.084] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:53.084] Globals: 5 objects totaling 2.84 KiB (function '...future.FUN' of 2.04 KiB, list 'MoreArgs' of 56 bytes, list '...future.elements_ii' of 448 bytes, list '...future.seeds_ii' of 320 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:53.084] Packages: 1 packages ('stats')
[13:13:53.084] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[13:13:53.084] Resolved: TRUE
[13:13:53.084] Value: 280 bytes of class 'list'
[13:13:53.084] Early signaling: FALSE
[13:13:53.084] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:53.084] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:53.086] Chunk #1 of 1 ... DONE
[13:13:53.086] Launching 1 futures (chunks) ... DONE
[13:13:53.086] Resolving 1 futures (chunks) ...
[13:13:53.086] resolve() on list ...
[13:13:53.086]  recursive: 0
[13:13:53.086]  length: 1
[13:13:53.086] 
[13:13:53.087] resolved() for 'SequentialFuture' ...
[13:13:53.087] - state: 'finished'
[13:13:53.087] - run: TRUE
[13:13:53.087] - result: 'FutureResult'
[13:13:53.087] resolved() for 'SequentialFuture' ... done
[13:13:53.088] Future #1
[13:13:53.088] signalConditionsASAP(SequentialFuture, pos=1) ...
[13:13:53.088] - nx: 1
[13:13:53.088] - relay: TRUE
[13:13:53.088] - stdout: TRUE
[13:13:53.088] - signal: TRUE
[13:13:53.089] - resignal: FALSE
[13:13:53.089] - force: TRUE
[13:13:53.089] - relayed: [n=1] FALSE
[13:13:53.089] - queued futures: [n=1] FALSE
[13:13:53.089]  - until=1
[13:13:53.089]  - relaying element #1
[13:13:53.090] - relayed: [n=1] TRUE
[13:13:53.090] - queued futures: [n=1] TRUE
[13:13:53.090] signalConditionsASAP(SequentialFuture, pos=1) ... done
[13:13:53.090]  length: 0 (resolved future 1)
[13:13:53.090] Relaying remaining futures
[13:13:53.090] signalConditionsASAP(NULL, pos=0) ...
[13:13:53.091] - nx: 1
[13:13:53.091] - relay: TRUE
[13:13:53.091] - stdout: TRUE
[13:13:53.091] - signal: TRUE
[13:13:53.091] - resignal: FALSE
[13:13:53.091] - force: TRUE
[13:13:53.092] - relayed: [n=1] TRUE
[13:13:53.092] - queued futures: [n=1] TRUE
 - flush all
[13:13:53.092] - relayed: [n=1] TRUE
[13:13:53.092] - queued futures: [n=1] TRUE
[13:13:53.092] signalConditionsASAP(NULL, pos=0) ... done
[13:13:53.092] resolve() on list ... DONE
[13:13:53.093]  - Number of value chunks collected: 1
[13:13:53.093] Resolving 1 futures (chunks) ... DONE
[13:13:53.093] Reducing values from 1 chunks ...
[13:13:53.093]  - Number of values collected after concatenation: 4
[13:13:53.093]  - Number of values expected: 4
[13:13:53.093] Reducing values from 1 chunks ... DONE
[13:13:53.094] future_mapply() ... DONE
[[1]]
[1] 1.752502

[[2]]
[1] 2.765950 2.044156

[[3]]
[1] 1.419503 3.529684 1.023802

[[4]]
[1] 4.494280 3.546145 1.402837 4.295444

- future_Map() ...
[13:13:53.097] future_mapply() ...
[13:13:53.098] Number of chunks: 1
[13:13:53.098] getGlobalsAndPackagesXApply() ...
[13:13:53.098]  - future.globals: TRUE
[13:13:53.098] getGlobalsAndPackages() ...
[13:13:53.098] Searching for globals...
[13:13:53.100] - globals found: [2] 'FUN', 'UseMethod'
[13:13:53.100] Searching for globals ... DONE
[13:13:53.100] Resolving globals: FALSE
[13:13:53.101] The total size of the 1 globals is 1.38 KiB (1416 bytes)
[13:13:53.101] The total size of the 1 globals exported for future expression ('FUN()') is 1.38 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (1.38 KiB of class 'function')
[13:13:53.101] - globals: [1] 'FUN'
[13:13:53.101] - packages: [1] 'stats'
[13:13:53.102] getGlobalsAndPackages() ... DONE
[13:13:53.102]  - globals found/used: [n=1] 'FUN'
[13:13:53.102]  - needed namespaces: [n=1] 'stats'
[13:13:53.102] Finding globals ... DONE
[13:13:53.102] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:53.103] List of 2
[13:13:53.103]  $ ...future.FUN:function (x, w, ...)  
[13:13:53.103]  $ MoreArgs     : NULL
[13:13:53.103]  - attr(*, "where")=List of 2
[13:13:53.103]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:53.103]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:53.103]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:53.103]  - attr(*, "resolved")= logi FALSE
[13:13:53.103]  - attr(*, "total_size")= num NA
[13:13:53.106] Packages to be attached in all futures: [n=1] 'stats'
[13:13:53.106] getGlobalsAndPackagesXApply() ... DONE
[13:13:53.106] Number of futures (= number of chunks): 1
[13:13:53.106] Launching 1 futures (chunks) ...
[13:13:53.106] Chunk #1 of 1 ...
[13:13:53.107]  - Finding globals in '...' for chunk #1 ...
[13:13:53.107] getGlobalsAndPackages() ...
[13:13:53.107] Searching for globals...
[13:13:53.107] 
[13:13:53.107] Searching for globals ... DONE
[13:13:53.108] - globals: [0] <none>
[13:13:53.108] getGlobalsAndPackages() ... DONE
[13:13:53.108]    + additional globals found: [n=0] 
[13:13:53.108]    + additional namespaces needed: [n=0] 
[13:13:53.108]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:53.108]  - seeds: <none>
[13:13:53.109]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:53.109] getGlobalsAndPackages() ...
[13:13:53.109] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:53.109] Resolving globals: FALSE
[13:13:53.110] The total size of the 5 globals is 3.10 KiB (3176 bytes)
[13:13:53.110] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 3.10 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (1.72 KiB of class 'list'), '...future.FUN' (1.38 KiB of class 'function') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:53.111] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:53.111] - packages: [1] 'stats'
[13:13:53.111] getGlobalsAndPackages() ... DONE
[13:13:53.111] run() for 'Future' ...
[13:13:53.112] - state: 'created'
[13:13:53.112] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:53.112] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:53.112] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:53.112]   - Field: 'label'
[13:13:53.113]   - Field: 'local'
[13:13:53.113]   - Field: 'owner'
[13:13:53.113]   - Field: 'envir'
[13:13:53.113]   - Field: 'packages'
[13:13:53.113]   - Field: 'gc'
[13:13:53.114]   - Field: 'conditions'
[13:13:53.114]   - Field: 'expr'
[13:13:53.114]   - Field: 'uuid'
[13:13:53.114]   - Field: 'seed'
[13:13:53.114]   - Field: 'version'
[13:13:53.114]   - Field: 'result'
[13:13:53.115]   - Field: 'asynchronous'
[13:13:53.115]   - Field: 'calls'
[13:13:53.115]   - Field: 'globals'
[13:13:53.115]   - Field: 'stdout'
[13:13:53.115]   - Field: 'earlySignal'
[13:13:53.115]   - Field: 'lazy'
[13:13:53.116]   - Field: 'state'
[13:13:53.116] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:53.116] - Launch lazy future ...
[13:13:53.116] Packages needed by the future expression (n = 1): 'stats'
[13:13:53.116] Packages needed by future strategies (n = 0): <none>
[13:13:53.117] {
[13:13:53.117]     {
[13:13:53.117]         {
[13:13:53.117]             ...future.startTime <- base::Sys.time()
[13:13:53.117]             {
[13:13:53.117]                 {
[13:13:53.117]                   {
[13:13:53.117]                     {
[13:13:53.117]                       base::local({
[13:13:53.117]                         has_future <- base::requireNamespace("future", 
[13:13:53.117]                           quietly = TRUE)
[13:13:53.117]                         if (has_future) {
[13:13:53.117]                           ns <- base::getNamespace("future")
[13:13:53.117]                           version <- ns[[".package"]][["version"]]
[13:13:53.117]                           if (is.null(version)) 
[13:13:53.117]                             version <- utils::packageVersion("future")
[13:13:53.117]                         }
[13:13:53.117]                         else {
[13:13:53.117]                           version <- NULL
[13:13:53.117]                         }
[13:13:53.117]                         if (!has_future || version < "1.8.0") {
[13:13:53.117]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:53.117]                             "", base::R.version$version.string), 
[13:13:53.117]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:53.117]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:53.117]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:53.117]                               "release", "version")], collapse = " "), 
[13:13:53.117]                             hostname = base::Sys.info()[["nodename"]])
[13:13:53.117]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:53.117]                             info)
[13:13:53.117]                           info <- base::paste(info, collapse = "; ")
[13:13:53.117]                           if (!has_future) {
[13:13:53.117]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:53.117]                               info)
[13:13:53.117]                           }
[13:13:53.117]                           else {
[13:13:53.117]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:53.117]                               info, version)
[13:13:53.117]                           }
[13:13:53.117]                           base::stop(msg)
[13:13:53.117]                         }
[13:13:53.117]                       })
[13:13:53.117]                     }
[13:13:53.117]                     base::local({
[13:13:53.117]                       for (pkg in "stats") {
[13:13:53.117]                         base::loadNamespace(pkg)
[13:13:53.117]                         base::library(pkg, character.only = TRUE)
[13:13:53.117]                       }
[13:13:53.117]                     })
[13:13:53.117]                   }
[13:13:53.117]                   options(future.plan = NULL)
[13:13:53.117]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:53.117]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:53.117]                 }
[13:13:53.117]                 ...future.workdir <- getwd()
[13:13:53.117]             }
[13:13:53.117]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:53.117]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:53.117]         }
[13:13:53.117]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:53.117]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[13:13:53.117]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:53.117]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:53.117]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:53.117]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:53.117]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:53.117]             base::names(...future.oldOptions))
[13:13:53.117]     }
[13:13:53.117]     if (FALSE) {
[13:13:53.117]     }
[13:13:53.117]     else {
[13:13:53.117]         if (TRUE) {
[13:13:53.117]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:53.117]                 open = "w")
[13:13:53.117]         }
[13:13:53.117]         else {
[13:13:53.117]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:53.117]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:53.117]         }
[13:13:53.117]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:53.117]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:53.117]             base::sink(type = "output", split = FALSE)
[13:13:53.117]             base::close(...future.stdout)
[13:13:53.117]         }, add = TRUE)
[13:13:53.117]     }
[13:13:53.117]     ...future.frame <- base::sys.nframe()
[13:13:53.117]     ...future.conditions <- base::list()
[13:13:53.117]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:53.117]     if (FALSE) {
[13:13:53.117]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:53.117]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:53.117]     }
[13:13:53.117]     ...future.result <- base::tryCatch({
[13:13:53.117]         base::withCallingHandlers({
[13:13:53.117]             ...future.value <- base::withVisible(base::local({
[13:13:53.117]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:53.117]                 if (!identical(...future.globals.maxSize.org, 
[13:13:53.117]                   ...future.globals.maxSize)) {
[13:13:53.117]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:53.117]                   on.exit(options(oopts), add = TRUE)
[13:13:53.117]                 }
[13:13:53.117]                 {
[13:13:53.117]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:53.117]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:53.117]                     USE.NAMES = FALSE)
[13:13:53.117]                   do.call(mapply, args = args)
[13:13:53.117]                 }
[13:13:53.117]             }))
[13:13:53.117]             future::FutureResult(value = ...future.value$value, 
[13:13:53.117]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:53.117]                   ...future.rng), globalenv = if (FALSE) 
[13:13:53.117]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:53.117]                     ...future.globalenv.names))
[13:13:53.117]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:53.117]         }, condition = base::local({
[13:13:53.117]             c <- base::c
[13:13:53.117]             inherits <- base::inherits
[13:13:53.117]             invokeRestart <- base::invokeRestart
[13:13:53.117]             length <- base::length
[13:13:53.117]             list <- base::list
[13:13:53.117]             seq.int <- base::seq.int
[13:13:53.117]             signalCondition <- base::signalCondition
[13:13:53.117]             sys.calls <- base::sys.calls
[13:13:53.117]             `[[` <- base::`[[`
[13:13:53.117]             `+` <- base::`+`
[13:13:53.117]             `<<-` <- base::`<<-`
[13:13:53.117]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:53.117]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:53.117]                   3L)]
[13:13:53.117]             }
[13:13:53.117]             function(cond) {
[13:13:53.117]                 is_error <- inherits(cond, "error")
[13:13:53.117]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:53.117]                   NULL)
[13:13:53.117]                 if (is_error) {
[13:13:53.117]                   sessionInformation <- function() {
[13:13:53.117]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:53.117]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:53.117]                       search = base::search(), system = base::Sys.info())
[13:13:53.117]                   }
[13:13:53.117]                   ...future.conditions[[length(...future.conditions) + 
[13:13:53.117]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:53.117]                     cond$call), session = sessionInformation(), 
[13:13:53.117]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:53.117]                   signalCondition(cond)
[13:13:53.117]                 }
[13:13:53.117]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:53.117]                 "immediateCondition"))) {
[13:13:53.117]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:53.117]                   ...future.conditions[[length(...future.conditions) + 
[13:13:53.117]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:53.117]                   if (TRUE && !signal) {
[13:13:53.117]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:53.117]                     {
[13:13:53.117]                       inherits <- base::inherits
[13:13:53.117]                       invokeRestart <- base::invokeRestart
[13:13:53.117]                       is.null <- base::is.null
[13:13:53.117]                       muffled <- FALSE
[13:13:53.117]                       if (inherits(cond, "message")) {
[13:13:53.117]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:53.117]                         if (muffled) 
[13:13:53.117]                           invokeRestart("muffleMessage")
[13:13:53.117]                       }
[13:13:53.117]                       else if (inherits(cond, "warning")) {
[13:13:53.117]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:53.117]                         if (muffled) 
[13:13:53.117]                           invokeRestart("muffleWarning")
[13:13:53.117]                       }
[13:13:53.117]                       else if (inherits(cond, "condition")) {
[13:13:53.117]                         if (!is.null(pattern)) {
[13:13:53.117]                           computeRestarts <- base::computeRestarts
[13:13:53.117]                           grepl <- base::grepl
[13:13:53.117]                           restarts <- computeRestarts(cond)
[13:13:53.117]                           for (restart in restarts) {
[13:13:53.117]                             name <- restart$name
[13:13:53.117]                             if (is.null(name)) 
[13:13:53.117]                               next
[13:13:53.117]                             if (!grepl(pattern, name)) 
[13:13:53.117]                               next
[13:13:53.117]                             invokeRestart(restart)
[13:13:53.117]                             muffled <- TRUE
[13:13:53.117]                             break
[13:13:53.117]                           }
[13:13:53.117]                         }
[13:13:53.117]                       }
[13:13:53.117]                       invisible(muffled)
[13:13:53.117]                     }
[13:13:53.117]                     muffleCondition(cond, pattern = "^muffle")
[13:13:53.117]                   }
[13:13:53.117]                 }
[13:13:53.117]                 else {
[13:13:53.117]                   if (TRUE) {
[13:13:53.117]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:53.117]                     {
[13:13:53.117]                       inherits <- base::inherits
[13:13:53.117]                       invokeRestart <- base::invokeRestart
[13:13:53.117]                       is.null <- base::is.null
[13:13:53.117]                       muffled <- FALSE
[13:13:53.117]                       if (inherits(cond, "message")) {
[13:13:53.117]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:53.117]                         if (muffled) 
[13:13:53.117]                           invokeRestart("muffleMessage")
[13:13:53.117]                       }
[13:13:53.117]                       else if (inherits(cond, "warning")) {
[13:13:53.117]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:53.117]                         if (muffled) 
[13:13:53.117]                           invokeRestart("muffleWarning")
[13:13:53.117]                       }
[13:13:53.117]                       else if (inherits(cond, "condition")) {
[13:13:53.117]                         if (!is.null(pattern)) {
[13:13:53.117]                           computeRestarts <- base::computeRestarts
[13:13:53.117]                           grepl <- base::grepl
[13:13:53.117]                           restarts <- computeRestarts(cond)
[13:13:53.117]                           for (restart in restarts) {
[13:13:53.117]                             name <- restart$name
[13:13:53.117]                             if (is.null(name)) 
[13:13:53.117]                               next
[13:13:53.117]                             if (!grepl(pattern, name)) 
[13:13:53.117]                               next
[13:13:53.117]                             invokeRestart(restart)
[13:13:53.117]                             muffled <- TRUE
[13:13:53.117]                             break
[13:13:53.117]                           }
[13:13:53.117]                         }
[13:13:53.117]                       }
[13:13:53.117]                       invisible(muffled)
[13:13:53.117]                     }
[13:13:53.117]                     muffleCondition(cond, pattern = "^muffle")
[13:13:53.117]                   }
[13:13:53.117]                 }
[13:13:53.117]             }
[13:13:53.117]         }))
[13:13:53.117]     }, error = function(ex) {
[13:13:53.117]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:53.117]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:53.117]                 ...future.rng), started = ...future.startTime, 
[13:13:53.117]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:53.117]             version = "1.8"), class = "FutureResult")
[13:13:53.117]     }, finally = {
[13:13:53.117]         if (!identical(...future.workdir, getwd())) 
[13:13:53.117]             setwd(...future.workdir)
[13:13:53.117]         {
[13:13:53.117]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:53.117]                 ...future.oldOptions$nwarnings <- NULL
[13:13:53.117]             }
[13:13:53.117]             base::options(...future.oldOptions)
[13:13:53.117]             if (.Platform$OS.type == "windows") {
[13:13:53.117]                 old_names <- names(...future.oldEnvVars)
[13:13:53.117]                 envs <- base::Sys.getenv()
[13:13:53.117]                 names <- names(envs)
[13:13:53.117]                 common <- intersect(names, old_names)
[13:13:53.117]                 added <- setdiff(names, old_names)
[13:13:53.117]                 removed <- setdiff(old_names, names)
[13:13:53.117]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:53.117]                   envs[common]]
[13:13:53.117]                 NAMES <- toupper(changed)
[13:13:53.117]                 args <- list()
[13:13:53.117]                 for (kk in seq_along(NAMES)) {
[13:13:53.117]                   name <- changed[[kk]]
[13:13:53.117]                   NAME <- NAMES[[kk]]
[13:13:53.117]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:53.117]                     next
[13:13:53.117]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:53.117]                 }
[13:13:53.117]                 NAMES <- toupper(added)
[13:13:53.117]                 for (kk in seq_along(NAMES)) {
[13:13:53.117]                   name <- added[[kk]]
[13:13:53.117]                   NAME <- NAMES[[kk]]
[13:13:53.117]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:53.117]                     next
[13:13:53.117]                   args[[name]] <- ""
[13:13:53.117]                 }
[13:13:53.117]                 NAMES <- toupper(removed)
[13:13:53.117]                 for (kk in seq_along(NAMES)) {
[13:13:53.117]                   name <- removed[[kk]]
[13:13:53.117]                   NAME <- NAMES[[kk]]
[13:13:53.117]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:53.117]                     next
[13:13:53.117]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:53.117]                 }
[13:13:53.117]                 if (length(args) > 0) 
[13:13:53.117]                   base::do.call(base::Sys.setenv, args = args)
[13:13:53.117]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:53.117]             }
[13:13:53.117]             else {
[13:13:53.117]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:53.117]             }
[13:13:53.117]             {
[13:13:53.117]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:53.117]                   0L) {
[13:13:53.117]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:53.117]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:53.117]                   base::options(opts)
[13:13:53.117]                 }
[13:13:53.117]                 {
[13:13:53.117]                   {
[13:13:53.117]                     base::assign(".Random.seed", c(10407L, -545974919L, 
[13:13:53.117]                     -1483286035L, -63005983L, -1442611447L, -61155610L, 
[13:13:53.117]                     289911346L), envir = base::globalenv(), inherits = FALSE)
[13:13:53.117]                     NULL
[13:13:53.117]                   }
[13:13:53.117]                   options(future.plan = NULL)
[13:13:53.117]                   if (is.na(NA_character_)) 
[13:13:53.117]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:53.117]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:53.117]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:53.117]                   {
[13:13:53.117]                     future <- SequentialFuture(..., envir = envir)
[13:13:53.117]                     if (!future$lazy) 
[13:13:53.117]                       future <- run(future)
[13:13:53.117]                     invisible(future)
[13:13:53.117]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:53.117]                 }
[13:13:53.117]             }
[13:13:53.117]         }
[13:13:53.117]     })
[13:13:53.117]     if (TRUE) {
[13:13:53.117]         base::sink(type = "output", split = FALSE)
[13:13:53.117]         if (TRUE) {
[13:13:53.117]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:53.117]         }
[13:13:53.117]         else {
[13:13:53.117]             ...future.result["stdout"] <- base::list(NULL)
[13:13:53.117]         }
[13:13:53.117]         base::close(...future.stdout)
[13:13:53.117]         ...future.stdout <- NULL
[13:13:53.117]     }
[13:13:53.117]     ...future.result$conditions <- ...future.conditions
[13:13:53.117]     ...future.result$finished <- base::Sys.time()
[13:13:53.117]     ...future.result
[13:13:53.117] }
[13:13:53.121] assign_globals() ...
[13:13:53.121] List of 5
[13:13:53.121]  $ ...future.FUN            :function (x, w, ...)  
[13:13:53.121]  $ MoreArgs                 : NULL
[13:13:53.121]  $ ...future.elements_ii    :List of 2
[13:13:53.121]   ..$ :List of 5
[13:13:53.121]   .. ..$ : num [1:10] 0.827 0.453 0.738 0.152 0.48 ...
[13:13:53.121]   .. ..$ : num [1:10] 0.702 0.175 0.405 0.547 0.813 ...
[13:13:53.121]   .. ..$ : num [1:10] 0.773 0.299 0.833 0.335 0.406 ...
[13:13:53.121]   .. ..$ : num [1:10] 0.973 0.646 0.489 0.909 0.123 ...
[13:13:53.121]   .. ..$ : num [1:10] 0.757 0.722 0.566 0.796 0.732 ...
[13:13:53.121]   ..$ :List of 5
[13:13:53.121]   .. ..$ : num [1:10] 3 5 9 6 6 7 4 6 8 7
[13:13:53.121]   .. ..$ : num [1:10] 6 7 7 4 5 10 4 1 8 8
[13:13:53.121]   .. ..$ : num [1:10] 9 9 7 7 4 5 7 4 5 10
[13:13:53.121]   .. ..$ : num [1:10] 7 6 3 4 13 7 7 4 6 8
[13:13:53.121]   .. ..$ : num [1:10] 3 10 4 6 6 6 8 4 7 9
[13:13:53.121]  $ ...future.seeds_ii       : NULL
[13:13:53.121]  $ ...future.globals.maxSize: NULL
[13:13:53.121]  - attr(*, "where")=List of 5
[13:13:53.121]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:53.121]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[13:13:53.121]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:53.121]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:53.121]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:53.121]  - attr(*, "resolved")= logi FALSE
[13:13:53.121]  - attr(*, "total_size")= num 3176
[13:13:53.121]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:53.121]  - attr(*, "already-done")= logi TRUE
[13:13:53.131] - copied '...future.FUN' to environment
[13:13:53.132] - copied 'MoreArgs' to environment
[13:13:53.132] - copied '...future.elements_ii' to environment
[13:13:53.132] - copied '...future.seeds_ii' to environment
[13:13:53.132] - copied '...future.globals.maxSize' to environment
[13:13:53.132] assign_globals() ... done
[13:13:53.133] plan(): Setting new future strategy stack:
[13:13:53.133] List of future strategies:
[13:13:53.133] 1. sequential:
[13:13:53.133]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:53.133]    - tweaked: FALSE
[13:13:53.133]    - call: NULL
[13:13:53.134] plan(): nbrOfWorkers() = 1
[13:13:53.135] plan(): Setting new future strategy stack:
[13:13:53.135] List of future strategies:
[13:13:53.135] 1. sequential:
[13:13:53.135]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:53.135]    - tweaked: FALSE
[13:13:53.135]    - call: plan(strategy)
[13:13:53.136] plan(): nbrOfWorkers() = 1
[13:13:53.136] SequentialFuture started (and completed)
[13:13:53.136] - Launch lazy future ... done
[13:13:53.136] run() for 'SequentialFuture' ... done
[13:13:53.136] Created future:
[13:13:53.137] SequentialFuture:
[13:13:53.137] Label: 'future_Map-1'
[13:13:53.137] Expression:
[13:13:53.137] {
[13:13:53.137]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:53.137]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:53.137]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:53.137]         on.exit(options(oopts), add = TRUE)
[13:13:53.137]     }
[13:13:53.137]     {
[13:13:53.137]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:53.137]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:53.137]         do.call(mapply, args = args)
[13:13:53.137]     }
[13:13:53.137] }
[13:13:53.137] Lazy evaluation: FALSE
[13:13:53.137] Asynchronous evaluation: FALSE
[13:13:53.137] Local evaluation: TRUE
[13:13:53.137] Environment: R_GlobalEnv
[13:13:53.137] Capture standard output: TRUE
[13:13:53.137] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:53.137] Globals: 5 objects totaling 3.10 KiB (function '...future.FUN' of 1.38 KiB, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 1.72 KiB, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:53.137] Packages: 1 packages ('stats')
[13:13:53.137] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:53.137] Resolved: TRUE
[13:13:53.137] Value: 280 bytes of class 'list'
[13:13:53.137] Early signaling: FALSE
[13:13:53.137] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:53.137] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:53.138] Chunk #1 of 1 ... DONE
[13:13:53.138] Launching 1 futures (chunks) ... DONE
[13:13:53.138] Resolving 1 futures (chunks) ...
[13:13:53.139] resolve() on list ...
[13:13:53.139]  recursive: 0
[13:13:53.139]  length: 1
[13:13:53.139] 
[13:13:53.139] resolved() for 'SequentialFuture' ...
[13:13:53.139] - state: 'finished'
[13:13:53.140] - run: TRUE
[13:13:53.140] - result: 'FutureResult'
[13:13:53.140] resolved() for 'SequentialFuture' ... done
[13:13:53.140] Future #1
[13:13:53.140] signalConditionsASAP(SequentialFuture, pos=1) ...
[13:13:53.140] - nx: 1
[13:13:53.141] - relay: TRUE
[13:13:53.141] - stdout: TRUE
[13:13:53.141] - signal: TRUE
[13:13:53.141] - resignal: FALSE
[13:13:53.141] - force: TRUE
[13:13:53.141] - relayed: [n=1] FALSE
[13:13:53.141] - queued futures: [n=1] FALSE
[13:13:53.142]  - until=1
[13:13:53.142]  - relaying element #1
[13:13:53.142] - relayed: [n=1] TRUE
[13:13:53.142] - queued futures: [n=1] TRUE
[13:13:53.142] signalConditionsASAP(SequentialFuture, pos=1) ... done
[13:13:53.143]  length: 0 (resolved future 1)
[13:13:53.143] Relaying remaining futures
[13:13:53.143] signalConditionsASAP(NULL, pos=0) ...
[13:13:53.143] - nx: 1
[13:13:53.143] - relay: TRUE
[13:13:53.143] - stdout: TRUE
[13:13:53.143] - signal: TRUE
[13:13:53.144] - resignal: FALSE
[13:13:53.144] - force: TRUE
[13:13:53.144] - relayed: [n=1] TRUE
[13:13:53.144] - queued futures: [n=1] TRUE
 - flush all
[13:13:53.144] - relayed: [n=1] TRUE
[13:13:53.144] - queued futures: [n=1] TRUE
[13:13:53.145] signalConditionsASAP(NULL, pos=0) ... done
[13:13:53.145] resolve() on list ... DONE
[13:13:53.145]  - Number of value chunks collected: 1
[13:13:53.145] Resolving 1 futures (chunks) ... DONE
[13:13:53.145] Reducing values from 1 chunks ...
[13:13:53.146]  - Number of values collected after concatenation: 5
[13:13:53.146]  - Number of values expected: 5
[13:13:53.146] Reducing values from 1 chunks ... DONE
[13:13:53.146] future_mapply() ... DONE
- future_mapply() - 'max-or-0-if' recycling rule ...
[13:13:53.149] future_mapply() ...
[13:13:53.150] Number of chunks: 1
[13:13:53.150] getGlobalsAndPackagesXApply() ...
[13:13:53.150]  - future.globals: TRUE
[13:13:53.150] getGlobalsAndPackages() ...
[13:13:53.150] Searching for globals...
[13:13:53.151] - globals found: [1] 'FUN'
[13:13:53.151] Searching for globals ... DONE
[13:13:53.152] Resolving globals: FALSE
[13:13:53.152] The total size of the 1 globals is 56 bytes (56 bytes)
[13:13:53.152] The total size of the 1 globals exported for future expression ('FUN()') is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (56 bytes of class 'function')
[13:13:53.153] - globals: [1] 'FUN'
[13:13:53.153] 
[13:13:53.153] getGlobalsAndPackages() ... DONE
[13:13:53.153]  - globals found/used: [n=1] 'FUN'
[13:13:53.153]  - needed namespaces: [n=0] 
[13:13:53.153] Finding globals ... DONE
[13:13:53.154] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:53.154] List of 2
[13:13:53.154]  $ ...future.FUN:function (e1, e2)  
[13:13:53.154]  $ MoreArgs     : NULL
[13:13:53.154]  - attr(*, "where")=List of 2
[13:13:53.154]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:53.154]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:53.154]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:53.154]  - attr(*, "resolved")= logi FALSE
[13:13:53.154]  - attr(*, "total_size")= num NA
[13:13:53.157] Packages to be attached in all futures: [n=0] 
[13:13:53.157] getGlobalsAndPackagesXApply() ... DONE
[13:13:53.157] Number of futures (= number of chunks): 1
[13:13:53.157] Launching 1 futures (chunks) ...
[13:13:53.158] Chunk #1 of 1 ...
[13:13:53.158]  - Finding globals in '...' for chunk #1 ...
[13:13:53.158] getGlobalsAndPackages() ...
[13:13:53.158] Searching for globals...
[13:13:53.159] 
[13:13:53.159] Searching for globals ... DONE
[13:13:53.159] - globals: [0] <none>
[13:13:53.159] getGlobalsAndPackages() ... DONE
[13:13:53.159]    + additional globals found: [n=0] 
[13:13:53.159]    + additional namespaces needed: [n=0] 
[13:13:53.160]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:53.160]  - seeds: <none>
[13:13:53.160]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:53.160] getGlobalsAndPackages() ...
[13:13:53.160] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:53.160] Resolving globals: FALSE
[13:13:53.161] The total size of the 5 globals is 392 bytes (392 bytes)
[13:13:53.162] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 392 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (336 bytes of class 'list'), '...future.FUN' (56 bytes of class 'function') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:53.162] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:53.162] 
[13:13:53.162] getGlobalsAndPackages() ... DONE
[13:13:53.162] run() for 'Future' ...
[13:13:53.163] - state: 'created'
[13:13:53.163] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:53.163] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:53.163] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:53.164]   - Field: 'label'
[13:13:53.164]   - Field: 'local'
[13:13:53.164]   - Field: 'owner'
[13:13:53.164]   - Field: 'envir'
[13:13:53.164]   - Field: 'packages'
[13:13:53.164]   - Field: 'gc'
[13:13:53.165]   - Field: 'conditions'
[13:13:53.165]   - Field: 'expr'
[13:13:53.165]   - Field: 'uuid'
[13:13:53.165]   - Field: 'seed'
[13:13:53.165]   - Field: 'version'
[13:13:53.166]   - Field: 'result'
[13:13:53.166]   - Field: 'asynchronous'
[13:13:53.166]   - Field: 'calls'
[13:13:53.166]   - Field: 'globals'
[13:13:53.166]   - Field: 'stdout'
[13:13:53.166]   - Field: 'earlySignal'
[13:13:53.167]   - Field: 'lazy'
[13:13:53.167]   - Field: 'state'
[13:13:53.167] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:53.167] - Launch lazy future ...
[13:13:53.167] Packages needed by the future expression (n = 0): <none>
[13:13:53.167] Packages needed by future strategies (n = 0): <none>
[13:13:53.168] {
[13:13:53.168]     {
[13:13:53.168]         {
[13:13:53.168]             ...future.startTime <- base::Sys.time()
[13:13:53.168]             {
[13:13:53.168]                 {
[13:13:53.168]                   {
[13:13:53.168]                     base::local({
[13:13:53.168]                       has_future <- base::requireNamespace("future", 
[13:13:53.168]                         quietly = TRUE)
[13:13:53.168]                       if (has_future) {
[13:13:53.168]                         ns <- base::getNamespace("future")
[13:13:53.168]                         version <- ns[[".package"]][["version"]]
[13:13:53.168]                         if (is.null(version)) 
[13:13:53.168]                           version <- utils::packageVersion("future")
[13:13:53.168]                       }
[13:13:53.168]                       else {
[13:13:53.168]                         version <- NULL
[13:13:53.168]                       }
[13:13:53.168]                       if (!has_future || version < "1.8.0") {
[13:13:53.168]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:53.168]                           "", base::R.version$version.string), 
[13:13:53.168]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:53.168]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:53.168]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:53.168]                             "release", "version")], collapse = " "), 
[13:13:53.168]                           hostname = base::Sys.info()[["nodename"]])
[13:13:53.168]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:53.168]                           info)
[13:13:53.168]                         info <- base::paste(info, collapse = "; ")
[13:13:53.168]                         if (!has_future) {
[13:13:53.168]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:53.168]                             info)
[13:13:53.168]                         }
[13:13:53.168]                         else {
[13:13:53.168]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:53.168]                             info, version)
[13:13:53.168]                         }
[13:13:53.168]                         base::stop(msg)
[13:13:53.168]                       }
[13:13:53.168]                     })
[13:13:53.168]                   }
[13:13:53.168]                   options(future.plan = NULL)
[13:13:53.168]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:53.168]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:53.168]                 }
[13:13:53.168]                 ...future.workdir <- getwd()
[13:13:53.168]             }
[13:13:53.168]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:53.168]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:53.168]         }
[13:13:53.168]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:53.168]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[13:13:53.168]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:53.168]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:53.168]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:53.168]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:53.168]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:53.168]             base::names(...future.oldOptions))
[13:13:53.168]     }
[13:13:53.168]     if (FALSE) {
[13:13:53.168]     }
[13:13:53.168]     else {
[13:13:53.168]         if (TRUE) {
[13:13:53.168]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:53.168]                 open = "w")
[13:13:53.168]         }
[13:13:53.168]         else {
[13:13:53.168]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:53.168]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:53.168]         }
[13:13:53.168]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:53.168]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:53.168]             base::sink(type = "output", split = FALSE)
[13:13:53.168]             base::close(...future.stdout)
[13:13:53.168]         }, add = TRUE)
[13:13:53.168]     }
[13:13:53.168]     ...future.frame <- base::sys.nframe()
[13:13:53.168]     ...future.conditions <- base::list()
[13:13:53.168]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:53.168]     if (FALSE) {
[13:13:53.168]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:53.168]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:53.168]     }
[13:13:53.168]     ...future.result <- base::tryCatch({
[13:13:53.168]         base::withCallingHandlers({
[13:13:53.168]             ...future.value <- base::withVisible(base::local({
[13:13:53.168]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:53.168]                 if (!identical(...future.globals.maxSize.org, 
[13:13:53.168]                   ...future.globals.maxSize)) {
[13:13:53.168]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:53.168]                   on.exit(options(oopts), add = TRUE)
[13:13:53.168]                 }
[13:13:53.168]                 {
[13:13:53.168]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:53.168]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:53.168]                     USE.NAMES = FALSE)
[13:13:53.168]                   do.call(mapply, args = args)
[13:13:53.168]                 }
[13:13:53.168]             }))
[13:13:53.168]             future::FutureResult(value = ...future.value$value, 
[13:13:53.168]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:53.168]                   ...future.rng), globalenv = if (FALSE) 
[13:13:53.168]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:53.168]                     ...future.globalenv.names))
[13:13:53.168]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:53.168]         }, condition = base::local({
[13:13:53.168]             c <- base::c
[13:13:53.168]             inherits <- base::inherits
[13:13:53.168]             invokeRestart <- base::invokeRestart
[13:13:53.168]             length <- base::length
[13:13:53.168]             list <- base::list
[13:13:53.168]             seq.int <- base::seq.int
[13:13:53.168]             signalCondition <- base::signalCondition
[13:13:53.168]             sys.calls <- base::sys.calls
[13:13:53.168]             `[[` <- base::`[[`
[13:13:53.168]             `+` <- base::`+`
[13:13:53.168]             `<<-` <- base::`<<-`
[13:13:53.168]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:53.168]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:53.168]                   3L)]
[13:13:53.168]             }
[13:13:53.168]             function(cond) {
[13:13:53.168]                 is_error <- inherits(cond, "error")
[13:13:53.168]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:53.168]                   NULL)
[13:13:53.168]                 if (is_error) {
[13:13:53.168]                   sessionInformation <- function() {
[13:13:53.168]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:53.168]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:53.168]                       search = base::search(), system = base::Sys.info())
[13:13:53.168]                   }
[13:13:53.168]                   ...future.conditions[[length(...future.conditions) + 
[13:13:53.168]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:53.168]                     cond$call), session = sessionInformation(), 
[13:13:53.168]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:53.168]                   signalCondition(cond)
[13:13:53.168]                 }
[13:13:53.168]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:53.168]                 "immediateCondition"))) {
[13:13:53.168]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:53.168]                   ...future.conditions[[length(...future.conditions) + 
[13:13:53.168]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:53.168]                   if (TRUE && !signal) {
[13:13:53.168]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:53.168]                     {
[13:13:53.168]                       inherits <- base::inherits
[13:13:53.168]                       invokeRestart <- base::invokeRestart
[13:13:53.168]                       is.null <- base::is.null
[13:13:53.168]                       muffled <- FALSE
[13:13:53.168]                       if (inherits(cond, "message")) {
[13:13:53.168]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:53.168]                         if (muffled) 
[13:13:53.168]                           invokeRestart("muffleMessage")
[13:13:53.168]                       }
[13:13:53.168]                       else if (inherits(cond, "warning")) {
[13:13:53.168]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:53.168]                         if (muffled) 
[13:13:53.168]                           invokeRestart("muffleWarning")
[13:13:53.168]                       }
[13:13:53.168]                       else if (inherits(cond, "condition")) {
[13:13:53.168]                         if (!is.null(pattern)) {
[13:13:53.168]                           computeRestarts <- base::computeRestarts
[13:13:53.168]                           grepl <- base::grepl
[13:13:53.168]                           restarts <- computeRestarts(cond)
[13:13:53.168]                           for (restart in restarts) {
[13:13:53.168]                             name <- restart$name
[13:13:53.168]                             if (is.null(name)) 
[13:13:53.168]                               next
[13:13:53.168]                             if (!grepl(pattern, name)) 
[13:13:53.168]                               next
[13:13:53.168]                             invokeRestart(restart)
[13:13:53.168]                             muffled <- TRUE
[13:13:53.168]                             break
[13:13:53.168]                           }
[13:13:53.168]                         }
[13:13:53.168]                       }
[13:13:53.168]                       invisible(muffled)
[13:13:53.168]                     }
[13:13:53.168]                     muffleCondition(cond, pattern = "^muffle")
[13:13:53.168]                   }
[13:13:53.168]                 }
[13:13:53.168]                 else {
[13:13:53.168]                   if (TRUE) {
[13:13:53.168]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:53.168]                     {
[13:13:53.168]                       inherits <- base::inherits
[13:13:53.168]                       invokeRestart <- base::invokeRestart
[13:13:53.168]                       is.null <- base::is.null
[13:13:53.168]                       muffled <- FALSE
[13:13:53.168]                       if (inherits(cond, "message")) {
[13:13:53.168]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:53.168]                         if (muffled) 
[13:13:53.168]                           invokeRestart("muffleMessage")
[13:13:53.168]                       }
[13:13:53.168]                       else if (inherits(cond, "warning")) {
[13:13:53.168]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:53.168]                         if (muffled) 
[13:13:53.168]                           invokeRestart("muffleWarning")
[13:13:53.168]                       }
[13:13:53.168]                       else if (inherits(cond, "condition")) {
[13:13:53.168]                         if (!is.null(pattern)) {
[13:13:53.168]                           computeRestarts <- base::computeRestarts
[13:13:53.168]                           grepl <- base::grepl
[13:13:53.168]                           restarts <- computeRestarts(cond)
[13:13:53.168]                           for (restart in restarts) {
[13:13:53.168]                             name <- restart$name
[13:13:53.168]                             if (is.null(name)) 
[13:13:53.168]                               next
[13:13:53.168]                             if (!grepl(pattern, name)) 
[13:13:53.168]                               next
[13:13:53.168]                             invokeRestart(restart)
[13:13:53.168]                             muffled <- TRUE
[13:13:53.168]                             break
[13:13:53.168]                           }
[13:13:53.168]                         }
[13:13:53.168]                       }
[13:13:53.168]                       invisible(muffled)
[13:13:53.168]                     }
[13:13:53.168]                     muffleCondition(cond, pattern = "^muffle")
[13:13:53.168]                   }
[13:13:53.168]                 }
[13:13:53.168]             }
[13:13:53.168]         }))
[13:13:53.168]     }, error = function(ex) {
[13:13:53.168]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:53.168]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:53.168]                 ...future.rng), started = ...future.startTime, 
[13:13:53.168]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:53.168]             version = "1.8"), class = "FutureResult")
[13:13:53.168]     }, finally = {
[13:13:53.168]         if (!identical(...future.workdir, getwd())) 
[13:13:53.168]             setwd(...future.workdir)
[13:13:53.168]         {
[13:13:53.168]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:53.168]                 ...future.oldOptions$nwarnings <- NULL
[13:13:53.168]             }
[13:13:53.168]             base::options(...future.oldOptions)
[13:13:53.168]             if (.Platform$OS.type == "windows") {
[13:13:53.168]                 old_names <- names(...future.oldEnvVars)
[13:13:53.168]                 envs <- base::Sys.getenv()
[13:13:53.168]                 names <- names(envs)
[13:13:53.168]                 common <- intersect(names, old_names)
[13:13:53.168]                 added <- setdiff(names, old_names)
[13:13:53.168]                 removed <- setdiff(old_names, names)
[13:13:53.168]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:53.168]                   envs[common]]
[13:13:53.168]                 NAMES <- toupper(changed)
[13:13:53.168]                 args <- list()
[13:13:53.168]                 for (kk in seq_along(NAMES)) {
[13:13:53.168]                   name <- changed[[kk]]
[13:13:53.168]                   NAME <- NAMES[[kk]]
[13:13:53.168]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:53.168]                     next
[13:13:53.168]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:53.168]                 }
[13:13:53.168]                 NAMES <- toupper(added)
[13:13:53.168]                 for (kk in seq_along(NAMES)) {
[13:13:53.168]                   name <- added[[kk]]
[13:13:53.168]                   NAME <- NAMES[[kk]]
[13:13:53.168]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:53.168]                     next
[13:13:53.168]                   args[[name]] <- ""
[13:13:53.168]                 }
[13:13:53.168]                 NAMES <- toupper(removed)
[13:13:53.168]                 for (kk in seq_along(NAMES)) {
[13:13:53.168]                   name <- removed[[kk]]
[13:13:53.168]                   NAME <- NAMES[[kk]]
[13:13:53.168]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:53.168]                     next
[13:13:53.168]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:53.168]                 }
[13:13:53.168]                 if (length(args) > 0) 
[13:13:53.168]                   base::do.call(base::Sys.setenv, args = args)
[13:13:53.168]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:53.168]             }
[13:13:53.168]             else {
[13:13:53.168]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:53.168]             }
[13:13:53.168]             {
[13:13:53.168]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:53.168]                   0L) {
[13:13:53.168]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:53.168]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:53.168]                   base::options(opts)
[13:13:53.168]                 }
[13:13:53.168]                 {
[13:13:53.168]                   {
[13:13:53.168]                     base::assign(".Random.seed", c(10407L, -545974919L, 
[13:13:53.168]                     -1483286035L, -63005983L, -1442611447L, -61155610L, 
[13:13:53.168]                     289911346L), envir = base::globalenv(), inherits = FALSE)
[13:13:53.168]                     NULL
[13:13:53.168]                   }
[13:13:53.168]                   options(future.plan = NULL)
[13:13:53.168]                   if (is.na(NA_character_)) 
[13:13:53.168]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:53.168]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:53.168]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:53.168]                   {
[13:13:53.168]                     future <- SequentialFuture(..., envir = envir)
[13:13:53.168]                     if (!future$lazy) 
[13:13:53.168]                       future <- run(future)
[13:13:53.168]                     invisible(future)
[13:13:53.168]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:53.168]                 }
[13:13:53.168]             }
[13:13:53.168]         }
[13:13:53.168]     })
[13:13:53.168]     if (TRUE) {
[13:13:53.168]         base::sink(type = "output", split = FALSE)
[13:13:53.168]         if (TRUE) {
[13:13:53.168]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:53.168]         }
[13:13:53.168]         else {
[13:13:53.168]             ...future.result["stdout"] <- base::list(NULL)
[13:13:53.168]         }
[13:13:53.168]         base::close(...future.stdout)
[13:13:53.168]         ...future.stdout <- NULL
[13:13:53.168]     }
[13:13:53.168]     ...future.result$conditions <- ...future.conditions
[13:13:53.168]     ...future.result$finished <- base::Sys.time()
[13:13:53.168]     ...future.result
[13:13:53.168] }
[13:13:53.172] assign_globals() ...
[13:13:53.172] List of 5
[13:13:53.172]  $ ...future.FUN            :function (e1, e2)  
[13:13:53.172]  $ MoreArgs                 : NULL
[13:13:53.172]  $ ...future.elements_ii    :List of 2
[13:13:53.172]   ..$ :List of 3
[13:13:53.172]   .. ..$ : num 1
[13:13:53.172]   .. ..$ : num 1
[13:13:53.172]   .. ..$ : num 1
[13:13:53.172]   ..$ :List of 3
[13:13:53.172]   .. ..$ : int 1
[13:13:53.172]   .. ..$ : int 2
[13:13:53.172]   .. ..$ : int 3
[13:13:53.172]  $ ...future.seeds_ii       : NULL
[13:13:53.172]  $ ...future.globals.maxSize: NULL
[13:13:53.172]  - attr(*, "where")=List of 5
[13:13:53.172]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:53.172]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[13:13:53.172]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:53.172]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:53.172]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:53.172]  - attr(*, "resolved")= logi FALSE
[13:13:53.172]  - attr(*, "total_size")= num 392
[13:13:53.172]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:53.172]  - attr(*, "already-done")= logi TRUE
[13:13:53.181] - copied '...future.FUN' to environment
[13:13:53.181] - copied 'MoreArgs' to environment
[13:13:53.181] - copied '...future.elements_ii' to environment
[13:13:53.181] - copied '...future.seeds_ii' to environment
[13:13:53.181] - copied '...future.globals.maxSize' to environment
[13:13:53.181] assign_globals() ... done
[13:13:53.182] plan(): Setting new future strategy stack:
[13:13:53.182] List of future strategies:
[13:13:53.182] 1. sequential:
[13:13:53.182]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:53.182]    - tweaked: FALSE
[13:13:53.182]    - call: NULL
[13:13:53.183] plan(): nbrOfWorkers() = 1
[13:13:53.184] plan(): Setting new future strategy stack:
[13:13:53.184] List of future strategies:
[13:13:53.184] 1. sequential:
[13:13:53.184]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:53.184]    - tweaked: FALSE
[13:13:53.184]    - call: plan(strategy)
[13:13:53.185] plan(): nbrOfWorkers() = 1
[13:13:53.185] SequentialFuture started (and completed)
[13:13:53.185] - Launch lazy future ... done
[13:13:53.185] run() for 'SequentialFuture' ... done
[13:13:53.185] Created future:
[13:13:53.186] SequentialFuture:
[13:13:53.186] Label: 'future_Map-1'
[13:13:53.186] Expression:
[13:13:53.186] {
[13:13:53.186]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:53.186]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:53.186]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:53.186]         on.exit(options(oopts), add = TRUE)
[13:13:53.186]     }
[13:13:53.186]     {
[13:13:53.186]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:53.186]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:53.186]         do.call(mapply, args = args)
[13:13:53.186]     }
[13:13:53.186] }
[13:13:53.186] Lazy evaluation: FALSE
[13:13:53.186] Asynchronous evaluation: FALSE
[13:13:53.186] Local evaluation: TRUE
[13:13:53.186] Environment: R_GlobalEnv
[13:13:53.186] Capture standard output: TRUE
[13:13:53.186] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:53.186] Globals: 5 objects totaling 392 bytes (function '...future.FUN' of 56 bytes, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 336 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:53.186] Packages: <none>
[13:13:53.186] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:53.186] Resolved: TRUE
[13:13:53.186] Value: 168 bytes of class 'list'
[13:13:53.186] Early signaling: FALSE
[13:13:53.186] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:53.186] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:53.187] Chunk #1 of 1 ... DONE
[13:13:53.187] Launching 1 futures (chunks) ... DONE
[13:13:53.187] Resolving 1 futures (chunks) ...
[13:13:53.187] resolve() on list ...
[13:13:53.187]  recursive: 0
[13:13:53.188]  length: 1
[13:13:53.188] 
[13:13:53.188] resolved() for 'SequentialFuture' ...
[13:13:53.188] - state: 'finished'
[13:13:53.188] - run: TRUE
[13:13:53.188] - result: 'FutureResult'
[13:13:53.189] resolved() for 'SequentialFuture' ... done
[13:13:53.189] Future #1
[13:13:53.189] signalConditionsASAP(SequentialFuture, pos=1) ...
[13:13:53.189] - nx: 1
[13:13:53.189] - relay: TRUE
[13:13:53.189] - stdout: TRUE
[13:13:53.190] - signal: TRUE
[13:13:53.190] - resignal: FALSE
[13:13:53.190] - force: TRUE
[13:13:53.190] - relayed: [n=1] FALSE
[13:13:53.190] - queued futures: [n=1] FALSE
[13:13:53.190]  - until=1
[13:13:53.190]  - relaying element #1
[13:13:53.191] - relayed: [n=1] TRUE
[13:13:53.191] - queued futures: [n=1] TRUE
[13:13:53.191] signalConditionsASAP(SequentialFuture, pos=1) ... done
[13:13:53.191]  length: 0 (resolved future 1)
[13:13:53.191] Relaying remaining futures
[13:13:53.192] signalConditionsASAP(NULL, pos=0) ...
[13:13:53.192] - nx: 1
[13:13:53.192] - relay: TRUE
[13:13:53.192] - stdout: TRUE
[13:13:53.192] - signal: TRUE
[13:13:53.192] - resignal: FALSE
[13:13:53.192] - force: TRUE
[13:13:53.193] - relayed: [n=1] TRUE
[13:13:53.193] - queued futures: [n=1] TRUE
 - flush all
[13:13:53.193] - relayed: [n=1] TRUE
[13:13:53.193] - queued futures: [n=1] TRUE
[13:13:53.193] signalConditionsASAP(NULL, pos=0) ... done
[13:13:53.193] resolve() on list ... DONE
[13:13:53.194]  - Number of value chunks collected: 1
[13:13:53.194] Resolving 1 futures (chunks) ... DONE
[13:13:53.194] Reducing values from 1 chunks ...
[13:13:53.194]  - Number of values collected after concatenation: 3
[13:13:53.194]  - Number of values expected: 3
[13:13:53.195] Reducing values from 1 chunks ... DONE
[13:13:53.195] future_mapply() ... DONE
- future_mapply(x, ...) where x[[i]] subsets via S3 method ...
[13:13:53.195] future_mapply() ...
[13:13:53.196] Number of chunks: 1
[13:13:53.196] getGlobalsAndPackagesXApply() ...
[13:13:53.196]  - future.globals: TRUE
[13:13:53.196] getGlobalsAndPackages() ...
[13:13:53.196] Searching for globals...
[13:13:53.197] - globals found: [1] 'FUN'
[13:13:53.197] Searching for globals ... DONE
[13:13:53.198] Resolving globals: FALSE
[13:13:53.198] The total size of the 1 globals is 848 bytes (848 bytes)
[13:13:53.198] The total size of the 1 globals exported for future expression ('FUN()') is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (848 bytes of class 'function')
[13:13:53.199] - globals: [1] 'FUN'
[13:13:53.199] 
[13:13:53.199] getGlobalsAndPackages() ... DONE
[13:13:53.199]  - globals found/used: [n=1] 'FUN'
[13:13:53.199]  - needed namespaces: [n=0] 
[13:13:53.199] Finding globals ... DONE
[13:13:53.200] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:53.200] List of 2
[13:13:53.200]  $ ...future.FUN:function (x)  
[13:13:53.200]  $ MoreArgs     : NULL
[13:13:53.200]  - attr(*, "where")=List of 2
[13:13:53.200]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:53.200]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:53.200]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:53.200]  - attr(*, "resolved")= logi FALSE
[13:13:53.200]  - attr(*, "total_size")= num NA
[13:13:53.204] Packages to be attached in all futures: [n=0] 
[13:13:53.204] getGlobalsAndPackagesXApply() ... DONE
[13:13:53.204] Number of futures (= number of chunks): 1
[13:13:53.205] Launching 1 futures (chunks) ...
[13:13:53.205] Chunk #1 of 1 ...
[13:13:53.205]  - Finding globals in '...' for chunk #1 ...
[13:13:53.205] getGlobalsAndPackages() ...
[13:13:53.205] Searching for globals...
[13:13:53.206] 
[13:13:53.206] Searching for globals ... DONE
[13:13:53.206] - globals: [0] <none>
[13:13:53.206] getGlobalsAndPackages() ... DONE
[13:13:53.206]    + additional globals found: [n=0] 
[13:13:53.207]    + additional namespaces needed: [n=0] 
[13:13:53.207]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:53.207]  - seeds: <none>
[13:13:53.207]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:53.207] getGlobalsAndPackages() ...
[13:13:53.207] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:53.208] Resolving globals: FALSE
[13:13:53.208] The total size of the 5 globals is 960 bytes (960 bytes)
[13:13:53.209] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 960 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (848 bytes of class 'function'), '...future.elements_ii' (112 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:53.209] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:53.209] 
[13:13:53.209] getGlobalsAndPackages() ... DONE
[13:13:53.210] run() for 'Future' ...
[13:13:53.210] - state: 'created'
[13:13:53.210] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:53.210] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:53.211] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:53.211]   - Field: 'label'
[13:13:53.211]   - Field: 'local'
[13:13:53.211]   - Field: 'owner'
[13:13:53.211]   - Field: 'envir'
[13:13:53.211]   - Field: 'packages'
[13:13:53.212]   - Field: 'gc'
[13:13:53.212]   - Field: 'conditions'
[13:13:53.212]   - Field: 'expr'
[13:13:53.212]   - Field: 'uuid'
[13:13:53.212]   - Field: 'seed'
[13:13:53.213]   - Field: 'version'
[13:13:53.213]   - Field: 'result'
[13:13:53.213]   - Field: 'asynchronous'
[13:13:53.213]   - Field: 'calls'
[13:13:53.213]   - Field: 'globals'
[13:13:53.213]   - Field: 'stdout'
[13:13:53.214]   - Field: 'earlySignal'
[13:13:53.214]   - Field: 'lazy'
[13:13:53.214]   - Field: 'state'
[13:13:53.214] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:53.214] - Launch lazy future ...
[13:13:53.215] Packages needed by the future expression (n = 0): <none>
[13:13:53.215] Packages needed by future strategies (n = 0): <none>
[13:13:53.215] {
[13:13:53.215]     {
[13:13:53.215]         {
[13:13:53.215]             ...future.startTime <- base::Sys.time()
[13:13:53.215]             {
[13:13:53.215]                 {
[13:13:53.215]                   {
[13:13:53.215]                     base::local({
[13:13:53.215]                       has_future <- base::requireNamespace("future", 
[13:13:53.215]                         quietly = TRUE)
[13:13:53.215]                       if (has_future) {
[13:13:53.215]                         ns <- base::getNamespace("future")
[13:13:53.215]                         version <- ns[[".package"]][["version"]]
[13:13:53.215]                         if (is.null(version)) 
[13:13:53.215]                           version <- utils::packageVersion("future")
[13:13:53.215]                       }
[13:13:53.215]                       else {
[13:13:53.215]                         version <- NULL
[13:13:53.215]                       }
[13:13:53.215]                       if (!has_future || version < "1.8.0") {
[13:13:53.215]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:53.215]                           "", base::R.version$version.string), 
[13:13:53.215]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:53.215]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:53.215]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:53.215]                             "release", "version")], collapse = " "), 
[13:13:53.215]                           hostname = base::Sys.info()[["nodename"]])
[13:13:53.215]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:53.215]                           info)
[13:13:53.215]                         info <- base::paste(info, collapse = "; ")
[13:13:53.215]                         if (!has_future) {
[13:13:53.215]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:53.215]                             info)
[13:13:53.215]                         }
[13:13:53.215]                         else {
[13:13:53.215]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:53.215]                             info, version)
[13:13:53.215]                         }
[13:13:53.215]                         base::stop(msg)
[13:13:53.215]                       }
[13:13:53.215]                     })
[13:13:53.215]                   }
[13:13:53.215]                   options(future.plan = NULL)
[13:13:53.215]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:53.215]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:53.215]                 }
[13:13:53.215]                 ...future.workdir <- getwd()
[13:13:53.215]             }
[13:13:53.215]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:53.215]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:53.215]         }
[13:13:53.215]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:53.215]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[13:13:53.215]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:53.215]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:53.215]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:53.215]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:53.215]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:53.215]             base::names(...future.oldOptions))
[13:13:53.215]     }
[13:13:53.215]     if (FALSE) {
[13:13:53.215]     }
[13:13:53.215]     else {
[13:13:53.215]         if (TRUE) {
[13:13:53.215]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:53.215]                 open = "w")
[13:13:53.215]         }
[13:13:53.215]         else {
[13:13:53.215]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:53.215]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:53.215]         }
[13:13:53.215]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:53.215]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:53.215]             base::sink(type = "output", split = FALSE)
[13:13:53.215]             base::close(...future.stdout)
[13:13:53.215]         }, add = TRUE)
[13:13:53.215]     }
[13:13:53.215]     ...future.frame <- base::sys.nframe()
[13:13:53.215]     ...future.conditions <- base::list()
[13:13:53.215]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:53.215]     if (FALSE) {
[13:13:53.215]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:53.215]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:53.215]     }
[13:13:53.215]     ...future.result <- base::tryCatch({
[13:13:53.215]         base::withCallingHandlers({
[13:13:53.215]             ...future.value <- base::withVisible(base::local({
[13:13:53.215]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:53.215]                 if (!identical(...future.globals.maxSize.org, 
[13:13:53.215]                   ...future.globals.maxSize)) {
[13:13:53.215]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:53.215]                   on.exit(options(oopts), add = TRUE)
[13:13:53.215]                 }
[13:13:53.215]                 {
[13:13:53.215]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:53.215]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:53.215]                     USE.NAMES = FALSE)
[13:13:53.215]                   do.call(mapply, args = args)
[13:13:53.215]                 }
[13:13:53.215]             }))
[13:13:53.215]             future::FutureResult(value = ...future.value$value, 
[13:13:53.215]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:53.215]                   ...future.rng), globalenv = if (FALSE) 
[13:13:53.215]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:53.215]                     ...future.globalenv.names))
[13:13:53.215]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:53.215]         }, condition = base::local({
[13:13:53.215]             c <- base::c
[13:13:53.215]             inherits <- base::inherits
[13:13:53.215]             invokeRestart <- base::invokeRestart
[13:13:53.215]             length <- base::length
[13:13:53.215]             list <- base::list
[13:13:53.215]             seq.int <- base::seq.int
[13:13:53.215]             signalCondition <- base::signalCondition
[13:13:53.215]             sys.calls <- base::sys.calls
[13:13:53.215]             `[[` <- base::`[[`
[13:13:53.215]             `+` <- base::`+`
[13:13:53.215]             `<<-` <- base::`<<-`
[13:13:53.215]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:53.215]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:53.215]                   3L)]
[13:13:53.215]             }
[13:13:53.215]             function(cond) {
[13:13:53.215]                 is_error <- inherits(cond, "error")
[13:13:53.215]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:53.215]                   NULL)
[13:13:53.215]                 if (is_error) {
[13:13:53.215]                   sessionInformation <- function() {
[13:13:53.215]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:53.215]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:53.215]                       search = base::search(), system = base::Sys.info())
[13:13:53.215]                   }
[13:13:53.215]                   ...future.conditions[[length(...future.conditions) + 
[13:13:53.215]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:53.215]                     cond$call), session = sessionInformation(), 
[13:13:53.215]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:53.215]                   signalCondition(cond)
[13:13:53.215]                 }
[13:13:53.215]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:53.215]                 "immediateCondition"))) {
[13:13:53.215]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:53.215]                   ...future.conditions[[length(...future.conditions) + 
[13:13:53.215]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:53.215]                   if (TRUE && !signal) {
[13:13:53.215]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:53.215]                     {
[13:13:53.215]                       inherits <- base::inherits
[13:13:53.215]                       invokeRestart <- base::invokeRestart
[13:13:53.215]                       is.null <- base::is.null
[13:13:53.215]                       muffled <- FALSE
[13:13:53.215]                       if (inherits(cond, "message")) {
[13:13:53.215]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:53.215]                         if (muffled) 
[13:13:53.215]                           invokeRestart("muffleMessage")
[13:13:53.215]                       }
[13:13:53.215]                       else if (inherits(cond, "warning")) {
[13:13:53.215]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:53.215]                         if (muffled) 
[13:13:53.215]                           invokeRestart("muffleWarning")
[13:13:53.215]                       }
[13:13:53.215]                       else if (inherits(cond, "condition")) {
[13:13:53.215]                         if (!is.null(pattern)) {
[13:13:53.215]                           computeRestarts <- base::computeRestarts
[13:13:53.215]                           grepl <- base::grepl
[13:13:53.215]                           restarts <- computeRestarts(cond)
[13:13:53.215]                           for (restart in restarts) {
[13:13:53.215]                             name <- restart$name
[13:13:53.215]                             if (is.null(name)) 
[13:13:53.215]                               next
[13:13:53.215]                             if (!grepl(pattern, name)) 
[13:13:53.215]                               next
[13:13:53.215]                             invokeRestart(restart)
[13:13:53.215]                             muffled <- TRUE
[13:13:53.215]                             break
[13:13:53.215]                           }
[13:13:53.215]                         }
[13:13:53.215]                       }
[13:13:53.215]                       invisible(muffled)
[13:13:53.215]                     }
[13:13:53.215]                     muffleCondition(cond, pattern = "^muffle")
[13:13:53.215]                   }
[13:13:53.215]                 }
[13:13:53.215]                 else {
[13:13:53.215]                   if (TRUE) {
[13:13:53.215]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:53.215]                     {
[13:13:53.215]                       inherits <- base::inherits
[13:13:53.215]                       invokeRestart <- base::invokeRestart
[13:13:53.215]                       is.null <- base::is.null
[13:13:53.215]                       muffled <- FALSE
[13:13:53.215]                       if (inherits(cond, "message")) {
[13:13:53.215]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:53.215]                         if (muffled) 
[13:13:53.215]                           invokeRestart("muffleMessage")
[13:13:53.215]                       }
[13:13:53.215]                       else if (inherits(cond, "warning")) {
[13:13:53.215]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:53.215]                         if (muffled) 
[13:13:53.215]                           invokeRestart("muffleWarning")
[13:13:53.215]                       }
[13:13:53.215]                       else if (inherits(cond, "condition")) {
[13:13:53.215]                         if (!is.null(pattern)) {
[13:13:53.215]                           computeRestarts <- base::computeRestarts
[13:13:53.215]                           grepl <- base::grepl
[13:13:53.215]                           restarts <- computeRestarts(cond)
[13:13:53.215]                           for (restart in restarts) {
[13:13:53.215]                             name <- restart$name
[13:13:53.215]                             if (is.null(name)) 
[13:13:53.215]                               next
[13:13:53.215]                             if (!grepl(pattern, name)) 
[13:13:53.215]                               next
[13:13:53.215]                             invokeRestart(restart)
[13:13:53.215]                             muffled <- TRUE
[13:13:53.215]                             break
[13:13:53.215]                           }
[13:13:53.215]                         }
[13:13:53.215]                       }
[13:13:53.215]                       invisible(muffled)
[13:13:53.215]                     }
[13:13:53.215]                     muffleCondition(cond, pattern = "^muffle")
[13:13:53.215]                   }
[13:13:53.215]                 }
[13:13:53.215]             }
[13:13:53.215]         }))
[13:13:53.215]     }, error = function(ex) {
[13:13:53.215]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:53.215]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:53.215]                 ...future.rng), started = ...future.startTime, 
[13:13:53.215]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:53.215]             version = "1.8"), class = "FutureResult")
[13:13:53.215]     }, finally = {
[13:13:53.215]         if (!identical(...future.workdir, getwd())) 
[13:13:53.215]             setwd(...future.workdir)
[13:13:53.215]         {
[13:13:53.215]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:53.215]                 ...future.oldOptions$nwarnings <- NULL
[13:13:53.215]             }
[13:13:53.215]             base::options(...future.oldOptions)
[13:13:53.215]             if (.Platform$OS.type == "windows") {
[13:13:53.215]                 old_names <- names(...future.oldEnvVars)
[13:13:53.215]                 envs <- base::Sys.getenv()
[13:13:53.215]                 names <- names(envs)
[13:13:53.215]                 common <- intersect(names, old_names)
[13:13:53.215]                 added <- setdiff(names, old_names)
[13:13:53.215]                 removed <- setdiff(old_names, names)
[13:13:53.215]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:53.215]                   envs[common]]
[13:13:53.215]                 NAMES <- toupper(changed)
[13:13:53.215]                 args <- list()
[13:13:53.215]                 for (kk in seq_along(NAMES)) {
[13:13:53.215]                   name <- changed[[kk]]
[13:13:53.215]                   NAME <- NAMES[[kk]]
[13:13:53.215]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:53.215]                     next
[13:13:53.215]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:53.215]                 }
[13:13:53.215]                 NAMES <- toupper(added)
[13:13:53.215]                 for (kk in seq_along(NAMES)) {
[13:13:53.215]                   name <- added[[kk]]
[13:13:53.215]                   NAME <- NAMES[[kk]]
[13:13:53.215]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:53.215]                     next
[13:13:53.215]                   args[[name]] <- ""
[13:13:53.215]                 }
[13:13:53.215]                 NAMES <- toupper(removed)
[13:13:53.215]                 for (kk in seq_along(NAMES)) {
[13:13:53.215]                   name <- removed[[kk]]
[13:13:53.215]                   NAME <- NAMES[[kk]]
[13:13:53.215]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:53.215]                     next
[13:13:53.215]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:53.215]                 }
[13:13:53.215]                 if (length(args) > 0) 
[13:13:53.215]                   base::do.call(base::Sys.setenv, args = args)
[13:13:53.215]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:53.215]             }
[13:13:53.215]             else {
[13:13:53.215]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:53.215]             }
[13:13:53.215]             {
[13:13:53.215]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:53.215]                   0L) {
[13:13:53.215]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:53.215]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:53.215]                   base::options(opts)
[13:13:53.215]                 }
[13:13:53.215]                 {
[13:13:53.215]                   {
[13:13:53.215]                     base::assign(".Random.seed", c(10407L, -545974919L, 
[13:13:53.215]                     -1483286035L, -63005983L, -1442611447L, -61155610L, 
[13:13:53.215]                     289911346L), envir = base::globalenv(), inherits = FALSE)
[13:13:53.215]                     NULL
[13:13:53.215]                   }
[13:13:53.215]                   options(future.plan = NULL)
[13:13:53.215]                   if (is.na(NA_character_)) 
[13:13:53.215]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:53.215]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:53.215]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:53.215]                   {
[13:13:53.215]                     future <- SequentialFuture(..., envir = envir)
[13:13:53.215]                     if (!future$lazy) 
[13:13:53.215]                       future <- run(future)
[13:13:53.215]                     invisible(future)
[13:13:53.215]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:53.215]                 }
[13:13:53.215]             }
[13:13:53.215]         }
[13:13:53.215]     })
[13:13:53.215]     if (TRUE) {
[13:13:53.215]         base::sink(type = "output", split = FALSE)
[13:13:53.215]         if (TRUE) {
[13:13:53.215]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:53.215]         }
[13:13:53.215]         else {
[13:13:53.215]             ...future.result["stdout"] <- base::list(NULL)
[13:13:53.215]         }
[13:13:53.215]         base::close(...future.stdout)
[13:13:53.215]         ...future.stdout <- NULL
[13:13:53.215]     }
[13:13:53.215]     ...future.result$conditions <- ...future.conditions
[13:13:53.215]     ...future.result$finished <- base::Sys.time()
[13:13:53.215]     ...future.result
[13:13:53.215] }
[13:13:53.219] assign_globals() ...
[13:13:53.219] List of 5
[13:13:53.219]  $ ...future.FUN            :function (x)  
[13:13:53.219]  $ MoreArgs                 : NULL
[13:13:53.219]  $ ...future.elements_ii    :List of 1
[13:13:53.219]   ..$ :List of 2
[13:13:53.219]   .. ..$ a: num 0
[13:13:53.219]   .. ..$ b: num 0
[13:13:53.219]  $ ...future.seeds_ii       : NULL
[13:13:53.219]  $ ...future.globals.maxSize: NULL
[13:13:53.219]  - attr(*, "where")=List of 5
[13:13:53.219]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:53.219]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[13:13:53.219]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:53.219]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:53.219]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:53.219]  - attr(*, "resolved")= logi FALSE
[13:13:53.219]  - attr(*, "total_size")= num 960
[13:13:53.219]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:53.219]  - attr(*, "already-done")= logi TRUE
[13:13:53.225] - copied '...future.FUN' to environment
[13:13:53.225] - copied 'MoreArgs' to environment
[13:13:53.226] - copied '...future.elements_ii' to environment
[13:13:53.226] - copied '...future.seeds_ii' to environment
[13:13:53.226] - copied '...future.globals.maxSize' to environment
[13:13:53.226] assign_globals() ... done
[13:13:53.226] plan(): Setting new future strategy stack:
[13:13:53.228] List of future strategies:
[13:13:53.228] 1. sequential:
[13:13:53.228]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:53.228]    - tweaked: FALSE
[13:13:53.228]    - call: NULL
[13:13:53.228] plan(): nbrOfWorkers() = 1
[13:13:53.229] plan(): Setting new future strategy stack:
[13:13:53.230] List of future strategies:
[13:13:53.230] 1. sequential:
[13:13:53.230]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:53.230]    - tweaked: FALSE
[13:13:53.230]    - call: plan(strategy)
[13:13:53.230] plan(): nbrOfWorkers() = 1
[13:13:53.230] SequentialFuture started (and completed)
[13:13:53.231] - Launch lazy future ... done
[13:13:53.231] run() for 'SequentialFuture' ... done
[13:13:53.231] Created future:
[13:13:53.231] SequentialFuture:
[13:13:53.231] Label: 'future_mapply-1'
[13:13:53.231] Expression:
[13:13:53.231] {
[13:13:53.231]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:53.231]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:53.231]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:53.231]         on.exit(options(oopts), add = TRUE)
[13:13:53.231]     }
[13:13:53.231]     {
[13:13:53.231]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:53.231]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:53.231]         do.call(mapply, args = args)
[13:13:53.231]     }
[13:13:53.231] }
[13:13:53.231] Lazy evaluation: FALSE
[13:13:53.231] Asynchronous evaluation: FALSE
[13:13:53.231] Local evaluation: TRUE
[13:13:53.231] Environment: R_GlobalEnv
[13:13:53.231] Capture standard output: TRUE
[13:13:53.231] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:53.231] Globals: 5 objects totaling 960 bytes (function '...future.FUN' of 848 bytes, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 112 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:53.231] Packages: <none>
[13:13:53.231] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:53.231] Resolved: TRUE
[13:13:53.231] Value: 112 bytes of class 'list'
[13:13:53.231] Early signaling: FALSE
[13:13:53.231] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:53.231] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:53.232] Chunk #1 of 1 ... DONE
[13:13:53.233] Launching 1 futures (chunks) ... DONE
[13:13:53.233] Resolving 1 futures (chunks) ...
[13:13:53.233] resolve() on list ...
[13:13:53.233]  recursive: 0
[13:13:53.233]  length: 1
[13:13:53.233] 
[13:13:53.234] resolved() for 'SequentialFuture' ...
[13:13:53.234] - state: 'finished'
[13:13:53.234] - run: TRUE
[13:13:53.234] - result: 'FutureResult'
[13:13:53.234] resolved() for 'SequentialFuture' ... done
[13:13:53.235] Future #1
[13:13:53.235] signalConditionsASAP(SequentialFuture, pos=1) ...
[13:13:53.235] - nx: 1
[13:13:53.235] - relay: TRUE
[13:13:53.235] - stdout: TRUE
[13:13:53.235] - signal: TRUE
[13:13:53.236] - resignal: FALSE
[13:13:53.236] - force: TRUE
[13:13:53.236] - relayed: [n=1] FALSE
[13:13:53.236] - queued futures: [n=1] FALSE
[13:13:53.236]  - until=1
[13:13:53.236]  - relaying element #1
[13:13:53.237] - relayed: [n=1] TRUE
[13:13:53.237] - queued futures: [n=1] TRUE
[13:13:53.237] signalConditionsASAP(SequentialFuture, pos=1) ... done
[13:13:53.237]  length: 0 (resolved future 1)
[13:13:53.237] Relaying remaining futures
[13:13:53.237] signalConditionsASAP(NULL, pos=0) ...
[13:13:53.238] - nx: 1
[13:13:53.238] - relay: TRUE
[13:13:53.238] - stdout: TRUE
[13:13:53.238] - signal: TRUE
[13:13:53.238] - resignal: FALSE
[13:13:53.238] - force: TRUE
[13:13:53.238] - relayed: [n=1] TRUE
[13:13:53.239] - queued futures: [n=1] TRUE
 - flush all
[13:13:53.239] - relayed: [n=1] TRUE
[13:13:53.239] - queued futures: [n=1] TRUE
[13:13:53.239] signalConditionsASAP(NULL, pos=0) ... done
[13:13:53.239] resolve() on list ... DONE
[13:13:53.240]  - Number of value chunks collected: 1
[13:13:53.240] Resolving 1 futures (chunks) ... DONE
[13:13:53.240] Reducing values from 1 chunks ...
[13:13:53.240]  - Number of values collected after concatenation: 2
[13:13:53.240]  - Number of values expected: 2
[13:13:53.240] Reducing values from 1 chunks ... DONE
[13:13:53.241] future_mapply() ... DONE
[13:13:53.241] plan(): Setting new future strategy stack:
[13:13:53.241] List of future strategies:
[13:13:53.241] 1. sequential:
[13:13:53.241]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:53.241]    - tweaked: FALSE
[13:13:53.241]    - call: plan(sequential)
[13:13:53.242] plan(): nbrOfWorkers() = 1
*** strategy = 'sequential' ... done
*** strategy = 'multisession' ...
[13:13:53.242] plan(): Setting new future strategy stack:
[13:13:53.242] List of future strategies:
[13:13:53.242] 1. multisession:
[13:13:53.242]    - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame())
[13:13:53.242]    - tweaked: FALSE
[13:13:53.242]    - call: plan(strategy)
[13:13:53.243] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
[13:13:53.243] multisession:
[13:13:53.243] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame())
[13:13:53.243] - tweaked: FALSE
[13:13:53.243] - call: plan(strategy)
[13:13:53.248] getGlobalsAndPackages() ...
[13:13:53.248] Not searching for globals
[13:13:53.248] - globals: [0] <none>
[13:13:53.248] getGlobalsAndPackages() ... DONE
[13:13:53.249] [local output] makeClusterPSOCK() ...
[13:13:53.281] [local output] Workers: [n = 2] 'localhost', 'localhost'
[13:13:53.289] [local output] Base port: 21663
[13:13:53.289] [local output] Getting setup options for 2 cluster nodes ...
[13:13:53.289] [local output]  - Node 1 of 2 ...
[13:13:53.290] [local output] localMachine=TRUE => revtunnel=FALSE

[13:13:53.291] Testing if worker's PID can be inferred: '"D:/RCompile/recent/R/bin/x64/Rscript" -e "try(suppressWarnings(cat(Sys.getpid(),file=\"D:/temp/RtmpMdSROW/worker.rank=1.parallelly.parent=2744.ab8fb35268.pid\")), silent = TRUE)" -e "file.exists(\"D:/temp/RtmpMdSROW/worker.rank=1.parallelly.parent=2744.ab8fb35268.pid\")"'
[13:13:53.738] - Possible to infer worker's PID: TRUE
[13:13:53.738] [local output] Rscript port: 21663

[13:13:53.739] [local output]  - Node 2 of 2 ...
[13:13:53.739] [local output] localMachine=TRUE => revtunnel=FALSE

[13:13:53.741] [local output] Rscript port: 21663

[13:13:53.741] [local output] Getting setup options for 2 cluster nodes ... done
[13:13:53.741] [local output]  - Parallel setup requested for some PSOCK nodes
[13:13:53.742] [local output] Setting up PSOCK nodes in parallel
[13:13:53.743] List of 36
[13:13:53.743]  $ worker          : chr "localhost"
[13:13:53.743]   ..- attr(*, "localhost")= logi TRUE
[13:13:53.743]  $ master          : chr "localhost"
[13:13:53.743]  $ port            : int 21663
[13:13:53.743]  $ connectTimeout  : num 120
[13:13:53.743]  $ timeout         : num 120
[13:13:53.743]  $ rscript         : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\""
[13:13:53.743]  $ homogeneous     : logi TRUE
[13:13:53.743]  $ rscript_args    : chr "--default-packages=datasets,utils,grDevices,graphics,stats,methods -e \"#label=future_mapply.R:2744:CRANWIN3:CR"| __truncated__
[13:13:53.743]  $ rscript_envs    : NULL
[13:13:53.743]  $ rscript_libs    : chr [1:2] "D:/temp/RtmpKkFYYg/RLIBS_20dc214b714b" "D:/RCompile/recent/R/library"
[13:13:53.743]  $ rscript_startup : NULL
[13:13:53.743]  $ rscript_sh      : chr "cmd"
[13:13:53.743]  $ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
[13:13:53.743]  $ methods         : logi TRUE
[13:13:53.743]  $ socketOptions   : chr "no-delay"
[13:13:53.743]  $ useXDR          : logi FALSE
[13:13:53.743]  $ outfile         : chr "/dev/null"
[13:13:53.743]  $ renice          : int NA
[13:13:53.743]  $ rshcmd          : NULL
[13:13:53.743]  $ user            : chr(0) 
[13:13:53.743]  $ revtunnel       : logi FALSE
[13:13:53.743]  $ rshlogfile      : NULL
[13:13:53.743]  $ rshopts         : chr(0) 
[13:13:53.743]  $ rank            : int 1
[13:13:53.743]  $ manual          : logi FALSE
[13:13:53.743]  $ dryrun          : logi FALSE
[13:13:53.743]  $ quiet           : logi FALSE
[13:13:53.743]  $ setup_strategy  : chr "parallel"
[13:13:53.743]  $ local_cmd       : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
[13:13:53.743]  $ pidfile         : chr "D:/temp/RtmpMdSROW/worker.rank=1.parallelly.parent=2744.ab8fb35268.pid"
[13:13:53.743]  $ rshcmd_label    : NULL
[13:13:53.743]  $ rsh_call        : NULL
[13:13:53.743]  $ cmd             : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
[13:13:53.743]  $ localMachine    : logi TRUE
[13:13:53.743]  $ make_fcn        :function (worker = getOption2("parallelly.localhost.hostname", "localhost"), 
[13:13:53.743]     master = NULL, port, connectTimeout = getOption2("parallelly.makeNodePSOCK.connectTimeout", 
[13:13:53.743]         2 * 60), timeout = getOption2("parallelly.makeNodePSOCK.timeout", 
[13:13:53.743]         30 * 24 * 60 * 60), rscript = NULL, homogeneous = NULL, rscript_args = NULL, 
[13:13:53.743]     rscript_envs = NULL, rscript_libs = NULL, rscript_startup = NULL, rscript_sh = c("auto", 
[13:13:53.743]         "cmd", "sh"), default_packages = c("datasets", "utils", "grDevices", 
[13:13:53.743]         "graphics", "stats", if (methods) "methods"), methods = TRUE, socketOptions = getOption2("parallelly.makeNodePSOCK.socketOptions", 
[13:13:53.743]         "no-delay"), useXDR = getOption2("parallelly.makeNodePSOCK.useXDR", 
[13:13:53.743]         FALSE), outfile = "/dev/null", renice = NA_integer_, rshcmd = getOption2("parallelly.makeNodePSOCK.rshcmd", 
[13:13:53.743]         NULL), user = NULL, revtunnel = NA, rshlogfile = NULL, rshopts = getOption2("parallelly.makeNodePSOCK.rshopts", 
[13:13:53.743]         NULL), rank = 1L, manual = FALSE, dryrun = FALSE, quiet = FALSE, 
[13:13:53.743]     setup_strategy = getOption2("parallelly.makeNodePSOCK.setup_strategy", 
[13:13:53.743]         "parallel"), action = c("launch", "options"), verbose = FALSE)  
[13:13:53.743]  $ arguments       :List of 28
[13:13:53.743]   ..$ worker          : chr "localhost"
[13:13:53.743]   ..$ master          : NULL
[13:13:53.743]   ..$ port            : int 21663
[13:13:53.743]   ..$ connectTimeout  : num 120
[13:13:53.743]   ..$ timeout         : num 120
[13:13:53.743]   ..$ rscript         : NULL
[13:13:53.743]   ..$ homogeneous     : NULL
[13:13:53.743]   ..$ rscript_args    : NULL
[13:13:53.743]   ..$ rscript_envs    : NULL
[13:13:53.743]   ..$ rscript_libs    : chr [1:2] "D:/temp/RtmpKkFYYg/RLIBS_20dc214b714b" "D:/RCompile/recent/R/library"
[13:13:53.743]   ..$ rscript_startup : NULL
[13:13:53.743]   ..$ rscript_sh      : chr [1:3] "auto" "cmd" "sh"
[13:13:53.743]   ..$ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
[13:13:53.743]   ..$ methods         : logi TRUE
[13:13:53.743]   ..$ socketOptions   : chr "no-delay"
[13:13:53.743]   ..$ useXDR          : logi FALSE
[13:13:53.743]   ..$ outfile         : chr "/dev/null"
[13:13:53.743]   ..$ renice          : int NA
[13:13:53.743]   ..$ rshcmd          : NULL
[13:13:53.743]   ..$ user            : NULL
[13:13:53.743]   ..$ revtunnel       : logi NA
[13:13:53.743]   ..$ rshlogfile      : NULL
[13:13:53.743]   ..$ rshopts         : NULL
[13:13:53.743]   ..$ rank            : int 1
[13:13:53.743]   ..$ manual          : logi FALSE
[13:13:53.743]   ..$ dryrun          : logi FALSE
[13:13:53.743]   ..$ quiet           : logi FALSE
[13:13:53.743]   ..$ setup_strategy  : chr "parallel"
[13:13:53.743]  - attr(*, "class")= chr [1:2] "makeNodePSOCKOptions" "makeNodeOptions"
[13:13:53.765] [local output] System call to launch all workers:
[13:13:53.765] [local output] "D:/RCompile/recent/R/bin/x64/Rscript" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "#label=future_mapply.R:2744:CRANWIN3:CRAN" -e "try(suppressWarnings(cat(Sys.getpid(),file=\"D:/temp/RtmpMdSROW/worker.rank=1.parallelly.parent=2744.ab8fb35268.pid\")), silent = TRUE)" -e "options(socketOptions = \"no-delay\")" -e ".libPaths(c(\"D:/temp/RtmpKkFYYg/RLIBS_20dc214b714b\",\"D:/RCompile/recent/R/library\"))" -e "workRSOCK <- tryCatch(parallel:::.workRSOCK, error=function(e) parallel:::.slaveRSOCK); workRSOCK()" MASTER=localhost PORT=21663 OUT=/dev/null TIMEOUT=120 XDR=FALSE SETUPTIMEOUT=120 SETUPSTRATEGY=parallel
[13:13:53.766] [local output] Starting PSOCK main server
[13:13:53.772] [local output] Workers launched
[13:13:53.772] [local output] Waiting for workers to connect back
[13:13:53.772]  - [local output] 0 workers out of 2 ready
[13:13:53.943]  - [local output] 0 workers out of 2 ready
[13:13:53.944]  - [local output] 1 workers out of 2 ready
[13:13:53.944]  - [local output] 2 workers out of 2 ready
[13:13:53.944] [local output] Launching of workers completed
[13:13:53.944] [local output] Collecting session information from workers
[13:13:53.945] [local output]  - Worker #1 of 2
[13:13:53.946] [local output]  - Worker #2 of 2
[13:13:53.946] [local output] makeClusterPSOCK() ... done
[13:13:53.959] Packages needed by the future expression (n = 0): <none>
[13:13:53.960] Packages needed by future strategies (n = 0): <none>
[13:13:53.960] {
[13:13:53.960]     {
[13:13:53.960]         {
[13:13:53.960]             ...future.startTime <- base::Sys.time()
[13:13:53.960]             {
[13:13:53.960]                 {
[13:13:53.960]                   {
[13:13:53.960]                     {
[13:13:53.960]                       base::local({
[13:13:53.960]                         has_future <- base::requireNamespace("future", 
[13:13:53.960]                           quietly = TRUE)
[13:13:53.960]                         if (has_future) {
[13:13:53.960]                           ns <- base::getNamespace("future")
[13:13:53.960]                           version <- ns[[".package"]][["version"]]
[13:13:53.960]                           if (is.null(version)) 
[13:13:53.960]                             version <- utils::packageVersion("future")
[13:13:53.960]                         }
[13:13:53.960]                         else {
[13:13:53.960]                           version <- NULL
[13:13:53.960]                         }
[13:13:53.960]                         if (!has_future || version < "1.8.0") {
[13:13:53.960]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:53.960]                             "", base::R.version$version.string), 
[13:13:53.960]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:53.960]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:53.960]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:53.960]                               "release", "version")], collapse = " "), 
[13:13:53.960]                             hostname = base::Sys.info()[["nodename"]])
[13:13:53.960]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:53.960]                             info)
[13:13:53.960]                           info <- base::paste(info, collapse = "; ")
[13:13:53.960]                           if (!has_future) {
[13:13:53.960]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:53.960]                               info)
[13:13:53.960]                           }
[13:13:53.960]                           else {
[13:13:53.960]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:53.960]                               info, version)
[13:13:53.960]                           }
[13:13:53.960]                           base::stop(msg)
[13:13:53.960]                         }
[13:13:53.960]                       })
[13:13:53.960]                     }
[13:13:53.960]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:53.960]                     base::options(mc.cores = 1L)
[13:13:53.960]                   }
[13:13:53.960]                   options(future.plan = NULL)
[13:13:53.960]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:53.960]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:53.960]                 }
[13:13:53.960]                 ...future.workdir <- getwd()
[13:13:53.960]             }
[13:13:53.960]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:53.960]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:53.960]         }
[13:13:53.960]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:53.960]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[13:13:53.960]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:53.960]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:53.960]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:53.960]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:53.960]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:53.960]             base::names(...future.oldOptions))
[13:13:53.960]     }
[13:13:53.960]     if (FALSE) {
[13:13:53.960]     }
[13:13:53.960]     else {
[13:13:53.960]         if (TRUE) {
[13:13:53.960]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:53.960]                 open = "w")
[13:13:53.960]         }
[13:13:53.960]         else {
[13:13:53.960]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:53.960]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:53.960]         }
[13:13:53.960]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:53.960]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:53.960]             base::sink(type = "output", split = FALSE)
[13:13:53.960]             base::close(...future.stdout)
[13:13:53.960]         }, add = TRUE)
[13:13:53.960]     }
[13:13:53.960]     ...future.frame <- base::sys.nframe()
[13:13:53.960]     ...future.conditions <- base::list()
[13:13:53.960]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:53.960]     if (FALSE) {
[13:13:53.960]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:53.960]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:53.960]     }
[13:13:53.960]     ...future.result <- base::tryCatch({
[13:13:53.960]         base::withCallingHandlers({
[13:13:53.960]             ...future.value <- base::withVisible(base::local({
[13:13:53.960]                 ...future.makeSendCondition <- local({
[13:13:53.960]                   sendCondition <- NULL
[13:13:53.960]                   function(frame = 1L) {
[13:13:53.960]                     if (is.function(sendCondition)) 
[13:13:53.960]                       return(sendCondition)
[13:13:53.960]                     ns <- getNamespace("parallel")
[13:13:53.960]                     if (exists("sendData", mode = "function", 
[13:13:53.960]                       envir = ns)) {
[13:13:53.960]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:53.960]                         envir = ns)
[13:13:53.960]                       envir <- sys.frame(frame)
[13:13:53.960]                       master <- NULL
[13:13:53.960]                       while (!identical(envir, .GlobalEnv) && 
[13:13:53.960]                         !identical(envir, emptyenv())) {
[13:13:53.960]                         if (exists("master", mode = "list", envir = envir, 
[13:13:53.960]                           inherits = FALSE)) {
[13:13:53.960]                           master <- get("master", mode = "list", 
[13:13:53.960]                             envir = envir, inherits = FALSE)
[13:13:53.960]                           if (inherits(master, c("SOCKnode", 
[13:13:53.960]                             "SOCK0node"))) {
[13:13:53.960]                             sendCondition <<- function(cond) {
[13:13:53.960]                               data <- list(type = "VALUE", value = cond, 
[13:13:53.960]                                 success = TRUE)
[13:13:53.960]                               parallel_sendData(master, data)
[13:13:53.960]                             }
[13:13:53.960]                             return(sendCondition)
[13:13:53.960]                           }
[13:13:53.960]                         }
[13:13:53.960]                         frame <- frame + 1L
[13:13:53.960]                         envir <- sys.frame(frame)
[13:13:53.960]                       }
[13:13:53.960]                     }
[13:13:53.960]                     sendCondition <<- function(cond) NULL
[13:13:53.960]                   }
[13:13:53.960]                 })
[13:13:53.960]                 withCallingHandlers({
[13:13:53.960]                   NA
[13:13:53.960]                 }, immediateCondition = function(cond) {
[13:13:53.960]                   sendCondition <- ...future.makeSendCondition()
[13:13:53.960]                   sendCondition(cond)
[13:13:53.960]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:53.960]                   {
[13:13:53.960]                     inherits <- base::inherits
[13:13:53.960]                     invokeRestart <- base::invokeRestart
[13:13:53.960]                     is.null <- base::is.null
[13:13:53.960]                     muffled <- FALSE
[13:13:53.960]                     if (inherits(cond, "message")) {
[13:13:53.960]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:53.960]                       if (muffled) 
[13:13:53.960]                         invokeRestart("muffleMessage")
[13:13:53.960]                     }
[13:13:53.960]                     else if (inherits(cond, "warning")) {
[13:13:53.960]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:53.960]                       if (muffled) 
[13:13:53.960]                         invokeRestart("muffleWarning")
[13:13:53.960]                     }
[13:13:53.960]                     else if (inherits(cond, "condition")) {
[13:13:53.960]                       if (!is.null(pattern)) {
[13:13:53.960]                         computeRestarts <- base::computeRestarts
[13:13:53.960]                         grepl <- base::grepl
[13:13:53.960]                         restarts <- computeRestarts(cond)
[13:13:53.960]                         for (restart in restarts) {
[13:13:53.960]                           name <- restart$name
[13:13:53.960]                           if (is.null(name)) 
[13:13:53.960]                             next
[13:13:53.960]                           if (!grepl(pattern, name)) 
[13:13:53.960]                             next
[13:13:53.960]                           invokeRestart(restart)
[13:13:53.960]                           muffled <- TRUE
[13:13:53.960]                           break
[13:13:53.960]                         }
[13:13:53.960]                       }
[13:13:53.960]                     }
[13:13:53.960]                     invisible(muffled)
[13:13:53.960]                   }
[13:13:53.960]                   muffleCondition(cond)
[13:13:53.960]                 })
[13:13:53.960]             }))
[13:13:53.960]             future::FutureResult(value = ...future.value$value, 
[13:13:53.960]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:53.960]                   ...future.rng), globalenv = if (FALSE) 
[13:13:53.960]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:53.960]                     ...future.globalenv.names))
[13:13:53.960]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:53.960]         }, condition = base::local({
[13:13:53.960]             c <- base::c
[13:13:53.960]             inherits <- base::inherits
[13:13:53.960]             invokeRestart <- base::invokeRestart
[13:13:53.960]             length <- base::length
[13:13:53.960]             list <- base::list
[13:13:53.960]             seq.int <- base::seq.int
[13:13:53.960]             signalCondition <- base::signalCondition
[13:13:53.960]             sys.calls <- base::sys.calls
[13:13:53.960]             `[[` <- base::`[[`
[13:13:53.960]             `+` <- base::`+`
[13:13:53.960]             `<<-` <- base::`<<-`
[13:13:53.960]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:53.960]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:53.960]                   3L)]
[13:13:53.960]             }
[13:13:53.960]             function(cond) {
[13:13:53.960]                 is_error <- inherits(cond, "error")
[13:13:53.960]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:53.960]                   NULL)
[13:13:53.960]                 if (is_error) {
[13:13:53.960]                   sessionInformation <- function() {
[13:13:53.960]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:53.960]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:53.960]                       search = base::search(), system = base::Sys.info())
[13:13:53.960]                   }
[13:13:53.960]                   ...future.conditions[[length(...future.conditions) + 
[13:13:53.960]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:53.960]                     cond$call), session = sessionInformation(), 
[13:13:53.960]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:53.960]                   signalCondition(cond)
[13:13:53.960]                 }
[13:13:53.960]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:53.960]                 "immediateCondition"))) {
[13:13:53.960]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:53.960]                   ...future.conditions[[length(...future.conditions) + 
[13:13:53.960]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:53.960]                   if (TRUE && !signal) {
[13:13:53.960]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:53.960]                     {
[13:13:53.960]                       inherits <- base::inherits
[13:13:53.960]                       invokeRestart <- base::invokeRestart
[13:13:53.960]                       is.null <- base::is.null
[13:13:53.960]                       muffled <- FALSE
[13:13:53.960]                       if (inherits(cond, "message")) {
[13:13:53.960]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:53.960]                         if (muffled) 
[13:13:53.960]                           invokeRestart("muffleMessage")
[13:13:53.960]                       }
[13:13:53.960]                       else if (inherits(cond, "warning")) {
[13:13:53.960]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:53.960]                         if (muffled) 
[13:13:53.960]                           invokeRestart("muffleWarning")
[13:13:53.960]                       }
[13:13:53.960]                       else if (inherits(cond, "condition")) {
[13:13:53.960]                         if (!is.null(pattern)) {
[13:13:53.960]                           computeRestarts <- base::computeRestarts
[13:13:53.960]                           grepl <- base::grepl
[13:13:53.960]                           restarts <- computeRestarts(cond)
[13:13:53.960]                           for (restart in restarts) {
[13:13:53.960]                             name <- restart$name
[13:13:53.960]                             if (is.null(name)) 
[13:13:53.960]                               next
[13:13:53.960]                             if (!grepl(pattern, name)) 
[13:13:53.960]                               next
[13:13:53.960]                             invokeRestart(restart)
[13:13:53.960]                             muffled <- TRUE
[13:13:53.960]                             break
[13:13:53.960]                           }
[13:13:53.960]                         }
[13:13:53.960]                       }
[13:13:53.960]                       invisible(muffled)
[13:13:53.960]                     }
[13:13:53.960]                     muffleCondition(cond, pattern = "^muffle")
[13:13:53.960]                   }
[13:13:53.960]                 }
[13:13:53.960]                 else {
[13:13:53.960]                   if (TRUE) {
[13:13:53.960]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:53.960]                     {
[13:13:53.960]                       inherits <- base::inherits
[13:13:53.960]                       invokeRestart <- base::invokeRestart
[13:13:53.960]                       is.null <- base::is.null
[13:13:53.960]                       muffled <- FALSE
[13:13:53.960]                       if (inherits(cond, "message")) {
[13:13:53.960]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:53.960]                         if (muffled) 
[13:13:53.960]                           invokeRestart("muffleMessage")
[13:13:53.960]                       }
[13:13:53.960]                       else if (inherits(cond, "warning")) {
[13:13:53.960]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:53.960]                         if (muffled) 
[13:13:53.960]                           invokeRestart("muffleWarning")
[13:13:53.960]                       }
[13:13:53.960]                       else if (inherits(cond, "condition")) {
[13:13:53.960]                         if (!is.null(pattern)) {
[13:13:53.960]                           computeRestarts <- base::computeRestarts
[13:13:53.960]                           grepl <- base::grepl
[13:13:53.960]                           restarts <- computeRestarts(cond)
[13:13:53.960]                           for (restart in restarts) {
[13:13:53.960]                             name <- restart$name
[13:13:53.960]                             if (is.null(name)) 
[13:13:53.960]                               next
[13:13:53.960]                             if (!grepl(pattern, name)) 
[13:13:53.960]                               next
[13:13:53.960]                             invokeRestart(restart)
[13:13:53.960]                             muffled <- TRUE
[13:13:53.960]                             break
[13:13:53.960]                           }
[13:13:53.960]                         }
[13:13:53.960]                       }
[13:13:53.960]                       invisible(muffled)
[13:13:53.960]                     }
[13:13:53.960]                     muffleCondition(cond, pattern = "^muffle")
[13:13:53.960]                   }
[13:13:53.960]                 }
[13:13:53.960]             }
[13:13:53.960]         }))
[13:13:53.960]     }, error = function(ex) {
[13:13:53.960]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:53.960]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:53.960]                 ...future.rng), started = ...future.startTime, 
[13:13:53.960]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:53.960]             version = "1.8"), class = "FutureResult")
[13:13:53.960]     }, finally = {
[13:13:53.960]         if (!identical(...future.workdir, getwd())) 
[13:13:53.960]             setwd(...future.workdir)
[13:13:53.960]         {
[13:13:53.960]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:53.960]                 ...future.oldOptions$nwarnings <- NULL
[13:13:53.960]             }
[13:13:53.960]             base::options(...future.oldOptions)
[13:13:53.960]             if (.Platform$OS.type == "windows") {
[13:13:53.960]                 old_names <- names(...future.oldEnvVars)
[13:13:53.960]                 envs <- base::Sys.getenv()
[13:13:53.960]                 names <- names(envs)
[13:13:53.960]                 common <- intersect(names, old_names)
[13:13:53.960]                 added <- setdiff(names, old_names)
[13:13:53.960]                 removed <- setdiff(old_names, names)
[13:13:53.960]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:53.960]                   envs[common]]
[13:13:53.960]                 NAMES <- toupper(changed)
[13:13:53.960]                 args <- list()
[13:13:53.960]                 for (kk in seq_along(NAMES)) {
[13:13:53.960]                   name <- changed[[kk]]
[13:13:53.960]                   NAME <- NAMES[[kk]]
[13:13:53.960]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:53.960]                     next
[13:13:53.960]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:53.960]                 }
[13:13:53.960]                 NAMES <- toupper(added)
[13:13:53.960]                 for (kk in seq_along(NAMES)) {
[13:13:53.960]                   name <- added[[kk]]
[13:13:53.960]                   NAME <- NAMES[[kk]]
[13:13:53.960]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:53.960]                     next
[13:13:53.960]                   args[[name]] <- ""
[13:13:53.960]                 }
[13:13:53.960]                 NAMES <- toupper(removed)
[13:13:53.960]                 for (kk in seq_along(NAMES)) {
[13:13:53.960]                   name <- removed[[kk]]
[13:13:53.960]                   NAME <- NAMES[[kk]]
[13:13:53.960]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:53.960]                     next
[13:13:53.960]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:53.960]                 }
[13:13:53.960]                 if (length(args) > 0) 
[13:13:53.960]                   base::do.call(base::Sys.setenv, args = args)
[13:13:53.960]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:53.960]             }
[13:13:53.960]             else {
[13:13:53.960]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:53.960]             }
[13:13:53.960]             {
[13:13:53.960]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:53.960]                   0L) {
[13:13:53.960]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:53.960]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:53.960]                   base::options(opts)
[13:13:53.960]                 }
[13:13:53.960]                 {
[13:13:53.960]                   {
[13:13:53.960]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:53.960]                     NULL
[13:13:53.960]                   }
[13:13:53.960]                   options(future.plan = NULL)
[13:13:53.960]                   if (is.na(NA_character_)) 
[13:13:53.960]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:53.960]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:53.960]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:53.960]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:53.960]                     envir = parent.frame()) 
[13:13:53.960]                   {
[13:13:53.960]                     if (is.function(workers)) 
[13:13:53.960]                       workers <- workers()
[13:13:53.960]                     workers <- structure(as.integer(workers), 
[13:13:53.960]                       class = class(workers))
[13:13:53.960]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:53.960]                       workers >= 1)
[13:13:53.960]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:53.960]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:53.960]                     }
[13:13:53.960]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:53.960]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:53.960]                       envir = envir)
[13:13:53.960]                     if (!future$lazy) 
[13:13:53.960]                       future <- run(future)
[13:13:53.960]                     invisible(future)
[13:13:53.960]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:53.960]                 }
[13:13:53.960]             }
[13:13:53.960]         }
[13:13:53.960]     })
[13:13:53.960]     if (TRUE) {
[13:13:53.960]         base::sink(type = "output", split = FALSE)
[13:13:53.960]         if (TRUE) {
[13:13:53.960]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:53.960]         }
[13:13:53.960]         else {
[13:13:53.960]             ...future.result["stdout"] <- base::list(NULL)
[13:13:53.960]         }
[13:13:53.960]         base::close(...future.stdout)
[13:13:53.960]         ...future.stdout <- NULL
[13:13:53.960]     }
[13:13:53.960]     ...future.result$conditions <- ...future.conditions
[13:13:53.960]     ...future.result$finished <- base::Sys.time()
[13:13:53.960]     ...future.result
[13:13:53.960] }
[13:13:54.040] MultisessionFuture started
[13:13:54.040] result() for ClusterFuture ...
[13:13:54.041] receiveMessageFromWorker() for ClusterFuture ...
[13:13:54.041] - Validating connection of MultisessionFuture
[13:13:54.097] - received message: FutureResult
[13:13:54.097] - Received FutureResult
[13:13:54.101] - Erased future from FutureRegistry
[13:13:54.101] result() for ClusterFuture ...
[13:13:54.101] - result already collected: FutureResult
[13:13:54.101] result() for ClusterFuture ... done
[13:13:54.101] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:54.102] result() for ClusterFuture ... done
[13:13:54.102] result() for ClusterFuture ...
[13:13:54.102] - result already collected: FutureResult
[13:13:54.102] result() for ClusterFuture ... done
[13:13:54.102] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE
[13:13:54.105] plan(): nbrOfWorkers() = 2
- From example(mapply) ...
[13:13:54.105] future_mapply() ...
[13:13:54.108] Number of chunks: 2
[13:13:54.108] getGlobalsAndPackagesXApply() ...
[13:13:54.108]  - future.globals: TRUE
[13:13:54.109] getGlobalsAndPackages() ...
[13:13:54.109] Searching for globals...
[13:13:54.110] - globals found: [1] 'FUN'
[13:13:54.110] Searching for globals ... DONE
[13:13:54.110] Resolving globals: FALSE
[13:13:54.110] The total size of the 1 globals is 56 bytes (56 bytes)
[13:13:54.111] The total size of the 1 globals exported for future expression ('FUN()') is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (56 bytes of class 'function')
[13:13:54.111] - globals: [1] 'FUN'
[13:13:54.111] 
[13:13:54.112] getGlobalsAndPackages() ... DONE
[13:13:54.112]  - globals found/used: [n=1] 'FUN'
[13:13:54.112]  - needed namespaces: [n=0] 
[13:13:54.112] Finding globals ... DONE
[13:13:54.112] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:54.113] List of 2
[13:13:54.113]  $ ...future.FUN:function (x, ...)  
[13:13:54.113]  $ MoreArgs     : NULL
[13:13:54.113]  - attr(*, "where")=List of 2
[13:13:54.113]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:54.113]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:54.113]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:54.113]  - attr(*, "resolved")= logi FALSE
[13:13:54.113]  - attr(*, "total_size")= num NA
[13:13:54.116] Packages to be attached in all futures: [n=0] 
[13:13:54.116] getGlobalsAndPackagesXApply() ... DONE
[13:13:54.117] Number of futures (= number of chunks): 2
[13:13:54.117] Launching 2 futures (chunks) ...
[13:13:54.117] Chunk #1 of 2 ...
[13:13:54.117]  - Finding globals in '...' for chunk #1 ...
[13:13:54.118] getGlobalsAndPackages() ...
[13:13:54.118] Searching for globals...
[13:13:54.118] 
[13:13:54.118] Searching for globals ... DONE
[13:13:54.119] - globals: [0] <none>
[13:13:54.119] getGlobalsAndPackages() ... DONE
[13:13:54.119]    + additional globals found: [n=0] 
[13:13:54.119]    + additional namespaces needed: [n=0] 
[13:13:54.119]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:54.119]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:54.120]  - seeds: <none>
[13:13:54.120]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.120] getGlobalsAndPackages() ...
[13:13:54.120] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.120] Resolving globals: FALSE
[13:13:54.121] The total size of the 5 globals is 280 bytes (280 bytes)
[13:13:54.122] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 280 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (224 bytes of class 'list'), '...future.FUN' (56 bytes of class 'function') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:54.122] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.122] 
[13:13:54.122] getGlobalsAndPackages() ... DONE
[13:13:54.123] run() for 'Future' ...
[13:13:54.123] - state: 'created'
[13:13:54.123] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:54.138] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:54.138] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:54.138]   - Field: 'node'
[13:13:54.139]   - Field: 'label'
[13:13:54.139]   - Field: 'local'
[13:13:54.139]   - Field: 'owner'
[13:13:54.139]   - Field: 'envir'
[13:13:54.139]   - Field: 'workers'
[13:13:54.139]   - Field: 'packages'
[13:13:54.140]   - Field: 'gc'
[13:13:54.140]   - Field: 'conditions'
[13:13:54.140]   - Field: 'persistent'
[13:13:54.140]   - Field: 'expr'
[13:13:54.140]   - Field: 'uuid'
[13:13:54.141]   - Field: 'seed'
[13:13:54.141]   - Field: 'version'
[13:13:54.141]   - Field: 'result'
[13:13:54.141]   - Field: 'asynchronous'
[13:13:54.141]   - Field: 'calls'
[13:13:54.142]   - Field: 'globals'
[13:13:54.142]   - Field: 'stdout'
[13:13:54.142]   - Field: 'earlySignal'
[13:13:54.142]   - Field: 'lazy'
[13:13:54.142]   - Field: 'state'
[13:13:54.143] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:54.143] - Launch lazy future ...
[13:13:54.143] Packages needed by the future expression (n = 0): <none>
[13:13:54.143] Packages needed by future strategies (n = 0): <none>
[13:13:54.144] {
[13:13:54.144]     {
[13:13:54.144]         {
[13:13:54.144]             ...future.startTime <- base::Sys.time()
[13:13:54.144]             {
[13:13:54.144]                 {
[13:13:54.144]                   {
[13:13:54.144]                     {
[13:13:54.144]                       base::local({
[13:13:54.144]                         has_future <- base::requireNamespace("future", 
[13:13:54.144]                           quietly = TRUE)
[13:13:54.144]                         if (has_future) {
[13:13:54.144]                           ns <- base::getNamespace("future")
[13:13:54.144]                           version <- ns[[".package"]][["version"]]
[13:13:54.144]                           if (is.null(version)) 
[13:13:54.144]                             version <- utils::packageVersion("future")
[13:13:54.144]                         }
[13:13:54.144]                         else {
[13:13:54.144]                           version <- NULL
[13:13:54.144]                         }
[13:13:54.144]                         if (!has_future || version < "1.8.0") {
[13:13:54.144]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:54.144]                             "", base::R.version$version.string), 
[13:13:54.144]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:54.144]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:54.144]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:54.144]                               "release", "version")], collapse = " "), 
[13:13:54.144]                             hostname = base::Sys.info()[["nodename"]])
[13:13:54.144]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:54.144]                             info)
[13:13:54.144]                           info <- base::paste(info, collapse = "; ")
[13:13:54.144]                           if (!has_future) {
[13:13:54.144]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:54.144]                               info)
[13:13:54.144]                           }
[13:13:54.144]                           else {
[13:13:54.144]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:54.144]                               info, version)
[13:13:54.144]                           }
[13:13:54.144]                           base::stop(msg)
[13:13:54.144]                         }
[13:13:54.144]                       })
[13:13:54.144]                     }
[13:13:54.144]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:54.144]                     base::options(mc.cores = 1L)
[13:13:54.144]                   }
[13:13:54.144]                   options(future.plan = NULL)
[13:13:54.144]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:54.144]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:54.144]                 }
[13:13:54.144]                 ...future.workdir <- getwd()
[13:13:54.144]             }
[13:13:54.144]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:54.144]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:54.144]         }
[13:13:54.144]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:54.144]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:54.144]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:54.144]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:54.144]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:54.144]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:54.144]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:54.144]             base::names(...future.oldOptions))
[13:13:54.144]     }
[13:13:54.144]     if (FALSE) {
[13:13:54.144]     }
[13:13:54.144]     else {
[13:13:54.144]         if (TRUE) {
[13:13:54.144]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:54.144]                 open = "w")
[13:13:54.144]         }
[13:13:54.144]         else {
[13:13:54.144]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:54.144]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:54.144]         }
[13:13:54.144]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:54.144]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:54.144]             base::sink(type = "output", split = FALSE)
[13:13:54.144]             base::close(...future.stdout)
[13:13:54.144]         }, add = TRUE)
[13:13:54.144]     }
[13:13:54.144]     ...future.frame <- base::sys.nframe()
[13:13:54.144]     ...future.conditions <- base::list()
[13:13:54.144]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:54.144]     if (FALSE) {
[13:13:54.144]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:54.144]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:54.144]     }
[13:13:54.144]     ...future.result <- base::tryCatch({
[13:13:54.144]         base::withCallingHandlers({
[13:13:54.144]             ...future.value <- base::withVisible(base::local({
[13:13:54.144]                 ...future.makeSendCondition <- local({
[13:13:54.144]                   sendCondition <- NULL
[13:13:54.144]                   function(frame = 1L) {
[13:13:54.144]                     if (is.function(sendCondition)) 
[13:13:54.144]                       return(sendCondition)
[13:13:54.144]                     ns <- getNamespace("parallel")
[13:13:54.144]                     if (exists("sendData", mode = "function", 
[13:13:54.144]                       envir = ns)) {
[13:13:54.144]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:54.144]                         envir = ns)
[13:13:54.144]                       envir <- sys.frame(frame)
[13:13:54.144]                       master <- NULL
[13:13:54.144]                       while (!identical(envir, .GlobalEnv) && 
[13:13:54.144]                         !identical(envir, emptyenv())) {
[13:13:54.144]                         if (exists("master", mode = "list", envir = envir, 
[13:13:54.144]                           inherits = FALSE)) {
[13:13:54.144]                           master <- get("master", mode = "list", 
[13:13:54.144]                             envir = envir, inherits = FALSE)
[13:13:54.144]                           if (inherits(master, c("SOCKnode", 
[13:13:54.144]                             "SOCK0node"))) {
[13:13:54.144]                             sendCondition <<- function(cond) {
[13:13:54.144]                               data <- list(type = "VALUE", value = cond, 
[13:13:54.144]                                 success = TRUE)
[13:13:54.144]                               parallel_sendData(master, data)
[13:13:54.144]                             }
[13:13:54.144]                             return(sendCondition)
[13:13:54.144]                           }
[13:13:54.144]                         }
[13:13:54.144]                         frame <- frame + 1L
[13:13:54.144]                         envir <- sys.frame(frame)
[13:13:54.144]                       }
[13:13:54.144]                     }
[13:13:54.144]                     sendCondition <<- function(cond) NULL
[13:13:54.144]                   }
[13:13:54.144]                 })
[13:13:54.144]                 withCallingHandlers({
[13:13:54.144]                   {
[13:13:54.144]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:54.144]                     if (!identical(...future.globals.maxSize.org, 
[13:13:54.144]                       ...future.globals.maxSize)) {
[13:13:54.144]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:54.144]                       on.exit(options(oopts), add = TRUE)
[13:13:54.144]                     }
[13:13:54.144]                     {
[13:13:54.144]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:54.144]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:54.144]                         USE.NAMES = FALSE)
[13:13:54.144]                       do.call(mapply, args = args)
[13:13:54.144]                     }
[13:13:54.144]                   }
[13:13:54.144]                 }, immediateCondition = function(cond) {
[13:13:54.144]                   sendCondition <- ...future.makeSendCondition()
[13:13:54.144]                   sendCondition(cond)
[13:13:54.144]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.144]                   {
[13:13:54.144]                     inherits <- base::inherits
[13:13:54.144]                     invokeRestart <- base::invokeRestart
[13:13:54.144]                     is.null <- base::is.null
[13:13:54.144]                     muffled <- FALSE
[13:13:54.144]                     if (inherits(cond, "message")) {
[13:13:54.144]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:54.144]                       if (muffled) 
[13:13:54.144]                         invokeRestart("muffleMessage")
[13:13:54.144]                     }
[13:13:54.144]                     else if (inherits(cond, "warning")) {
[13:13:54.144]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:54.144]                       if (muffled) 
[13:13:54.144]                         invokeRestart("muffleWarning")
[13:13:54.144]                     }
[13:13:54.144]                     else if (inherits(cond, "condition")) {
[13:13:54.144]                       if (!is.null(pattern)) {
[13:13:54.144]                         computeRestarts <- base::computeRestarts
[13:13:54.144]                         grepl <- base::grepl
[13:13:54.144]                         restarts <- computeRestarts(cond)
[13:13:54.144]                         for (restart in restarts) {
[13:13:54.144]                           name <- restart$name
[13:13:54.144]                           if (is.null(name)) 
[13:13:54.144]                             next
[13:13:54.144]                           if (!grepl(pattern, name)) 
[13:13:54.144]                             next
[13:13:54.144]                           invokeRestart(restart)
[13:13:54.144]                           muffled <- TRUE
[13:13:54.144]                           break
[13:13:54.144]                         }
[13:13:54.144]                       }
[13:13:54.144]                     }
[13:13:54.144]                     invisible(muffled)
[13:13:54.144]                   }
[13:13:54.144]                   muffleCondition(cond)
[13:13:54.144]                 })
[13:13:54.144]             }))
[13:13:54.144]             future::FutureResult(value = ...future.value$value, 
[13:13:54.144]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:54.144]                   ...future.rng), globalenv = if (FALSE) 
[13:13:54.144]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:54.144]                     ...future.globalenv.names))
[13:13:54.144]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:54.144]         }, condition = base::local({
[13:13:54.144]             c <- base::c
[13:13:54.144]             inherits <- base::inherits
[13:13:54.144]             invokeRestart <- base::invokeRestart
[13:13:54.144]             length <- base::length
[13:13:54.144]             list <- base::list
[13:13:54.144]             seq.int <- base::seq.int
[13:13:54.144]             signalCondition <- base::signalCondition
[13:13:54.144]             sys.calls <- base::sys.calls
[13:13:54.144]             `[[` <- base::`[[`
[13:13:54.144]             `+` <- base::`+`
[13:13:54.144]             `<<-` <- base::`<<-`
[13:13:54.144]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:54.144]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:54.144]                   3L)]
[13:13:54.144]             }
[13:13:54.144]             function(cond) {
[13:13:54.144]                 is_error <- inherits(cond, "error")
[13:13:54.144]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:54.144]                   NULL)
[13:13:54.144]                 if (is_error) {
[13:13:54.144]                   sessionInformation <- function() {
[13:13:54.144]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:54.144]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:54.144]                       search = base::search(), system = base::Sys.info())
[13:13:54.144]                   }
[13:13:54.144]                   ...future.conditions[[length(...future.conditions) + 
[13:13:54.144]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:54.144]                     cond$call), session = sessionInformation(), 
[13:13:54.144]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:54.144]                   signalCondition(cond)
[13:13:54.144]                 }
[13:13:54.144]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:54.144]                 "immediateCondition"))) {
[13:13:54.144]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:54.144]                   ...future.conditions[[length(...future.conditions) + 
[13:13:54.144]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:54.144]                   if (TRUE && !signal) {
[13:13:54.144]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.144]                     {
[13:13:54.144]                       inherits <- base::inherits
[13:13:54.144]                       invokeRestart <- base::invokeRestart
[13:13:54.144]                       is.null <- base::is.null
[13:13:54.144]                       muffled <- FALSE
[13:13:54.144]                       if (inherits(cond, "message")) {
[13:13:54.144]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:54.144]                         if (muffled) 
[13:13:54.144]                           invokeRestart("muffleMessage")
[13:13:54.144]                       }
[13:13:54.144]                       else if (inherits(cond, "warning")) {
[13:13:54.144]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:54.144]                         if (muffled) 
[13:13:54.144]                           invokeRestart("muffleWarning")
[13:13:54.144]                       }
[13:13:54.144]                       else if (inherits(cond, "condition")) {
[13:13:54.144]                         if (!is.null(pattern)) {
[13:13:54.144]                           computeRestarts <- base::computeRestarts
[13:13:54.144]                           grepl <- base::grepl
[13:13:54.144]                           restarts <- computeRestarts(cond)
[13:13:54.144]                           for (restart in restarts) {
[13:13:54.144]                             name <- restart$name
[13:13:54.144]                             if (is.null(name)) 
[13:13:54.144]                               next
[13:13:54.144]                             if (!grepl(pattern, name)) 
[13:13:54.144]                               next
[13:13:54.144]                             invokeRestart(restart)
[13:13:54.144]                             muffled <- TRUE
[13:13:54.144]                             break
[13:13:54.144]                           }
[13:13:54.144]                         }
[13:13:54.144]                       }
[13:13:54.144]                       invisible(muffled)
[13:13:54.144]                     }
[13:13:54.144]                     muffleCondition(cond, pattern = "^muffle")
[13:13:54.144]                   }
[13:13:54.144]                 }
[13:13:54.144]                 else {
[13:13:54.144]                   if (TRUE) {
[13:13:54.144]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.144]                     {
[13:13:54.144]                       inherits <- base::inherits
[13:13:54.144]                       invokeRestart <- base::invokeRestart
[13:13:54.144]                       is.null <- base::is.null
[13:13:54.144]                       muffled <- FALSE
[13:13:54.144]                       if (inherits(cond, "message")) {
[13:13:54.144]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:54.144]                         if (muffled) 
[13:13:54.144]                           invokeRestart("muffleMessage")
[13:13:54.144]                       }
[13:13:54.144]                       else if (inherits(cond, "warning")) {
[13:13:54.144]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:54.144]                         if (muffled) 
[13:13:54.144]                           invokeRestart("muffleWarning")
[13:13:54.144]                       }
[13:13:54.144]                       else if (inherits(cond, "condition")) {
[13:13:54.144]                         if (!is.null(pattern)) {
[13:13:54.144]                           computeRestarts <- base::computeRestarts
[13:13:54.144]                           grepl <- base::grepl
[13:13:54.144]                           restarts <- computeRestarts(cond)
[13:13:54.144]                           for (restart in restarts) {
[13:13:54.144]                             name <- restart$name
[13:13:54.144]                             if (is.null(name)) 
[13:13:54.144]                               next
[13:13:54.144]                             if (!grepl(pattern, name)) 
[13:13:54.144]                               next
[13:13:54.144]                             invokeRestart(restart)
[13:13:54.144]                             muffled <- TRUE
[13:13:54.144]                             break
[13:13:54.144]                           }
[13:13:54.144]                         }
[13:13:54.144]                       }
[13:13:54.144]                       invisible(muffled)
[13:13:54.144]                     }
[13:13:54.144]                     muffleCondition(cond, pattern = "^muffle")
[13:13:54.144]                   }
[13:13:54.144]                 }
[13:13:54.144]             }
[13:13:54.144]         }))
[13:13:54.144]     }, error = function(ex) {
[13:13:54.144]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:54.144]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:54.144]                 ...future.rng), started = ...future.startTime, 
[13:13:54.144]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:54.144]             version = "1.8"), class = "FutureResult")
[13:13:54.144]     }, finally = {
[13:13:54.144]         if (!identical(...future.workdir, getwd())) 
[13:13:54.144]             setwd(...future.workdir)
[13:13:54.144]         {
[13:13:54.144]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:54.144]                 ...future.oldOptions$nwarnings <- NULL
[13:13:54.144]             }
[13:13:54.144]             base::options(...future.oldOptions)
[13:13:54.144]             if (.Platform$OS.type == "windows") {
[13:13:54.144]                 old_names <- names(...future.oldEnvVars)
[13:13:54.144]                 envs <- base::Sys.getenv()
[13:13:54.144]                 names <- names(envs)
[13:13:54.144]                 common <- intersect(names, old_names)
[13:13:54.144]                 added <- setdiff(names, old_names)
[13:13:54.144]                 removed <- setdiff(old_names, names)
[13:13:54.144]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:54.144]                   envs[common]]
[13:13:54.144]                 NAMES <- toupper(changed)
[13:13:54.144]                 args <- list()
[13:13:54.144]                 for (kk in seq_along(NAMES)) {
[13:13:54.144]                   name <- changed[[kk]]
[13:13:54.144]                   NAME <- NAMES[[kk]]
[13:13:54.144]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.144]                     next
[13:13:54.144]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:54.144]                 }
[13:13:54.144]                 NAMES <- toupper(added)
[13:13:54.144]                 for (kk in seq_along(NAMES)) {
[13:13:54.144]                   name <- added[[kk]]
[13:13:54.144]                   NAME <- NAMES[[kk]]
[13:13:54.144]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.144]                     next
[13:13:54.144]                   args[[name]] <- ""
[13:13:54.144]                 }
[13:13:54.144]                 NAMES <- toupper(removed)
[13:13:54.144]                 for (kk in seq_along(NAMES)) {
[13:13:54.144]                   name <- removed[[kk]]
[13:13:54.144]                   NAME <- NAMES[[kk]]
[13:13:54.144]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.144]                     next
[13:13:54.144]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:54.144]                 }
[13:13:54.144]                 if (length(args) > 0) 
[13:13:54.144]                   base::do.call(base::Sys.setenv, args = args)
[13:13:54.144]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:54.144]             }
[13:13:54.144]             else {
[13:13:54.144]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:54.144]             }
[13:13:54.144]             {
[13:13:54.144]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:54.144]                   0L) {
[13:13:54.144]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:54.144]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:54.144]                   base::options(opts)
[13:13:54.144]                 }
[13:13:54.144]                 {
[13:13:54.144]                   {
[13:13:54.144]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:54.144]                     NULL
[13:13:54.144]                   }
[13:13:54.144]                   options(future.plan = NULL)
[13:13:54.144]                   if (is.na(NA_character_)) 
[13:13:54.144]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:54.144]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:54.144]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:54.144]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:54.144]                     envir = parent.frame()) 
[13:13:54.144]                   {
[13:13:54.144]                     if (is.function(workers)) 
[13:13:54.144]                       workers <- workers()
[13:13:54.144]                     workers <- structure(as.integer(workers), 
[13:13:54.144]                       class = class(workers))
[13:13:54.144]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:54.144]                       workers >= 1)
[13:13:54.144]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:54.144]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:54.144]                     }
[13:13:54.144]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:54.144]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:54.144]                       envir = envir)
[13:13:54.144]                     if (!future$lazy) 
[13:13:54.144]                       future <- run(future)
[13:13:54.144]                     invisible(future)
[13:13:54.144]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:54.144]                 }
[13:13:54.144]             }
[13:13:54.144]         }
[13:13:54.144]     })
[13:13:54.144]     if (TRUE) {
[13:13:54.144]         base::sink(type = "output", split = FALSE)
[13:13:54.144]         if (TRUE) {
[13:13:54.144]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:54.144]         }
[13:13:54.144]         else {
[13:13:54.144]             ...future.result["stdout"] <- base::list(NULL)
[13:13:54.144]         }
[13:13:54.144]         base::close(...future.stdout)
[13:13:54.144]         ...future.stdout <- NULL
[13:13:54.144]     }
[13:13:54.144]     ...future.result$conditions <- ...future.conditions
[13:13:54.144]     ...future.result$finished <- base::Sys.time()
[13:13:54.144]     ...future.result
[13:13:54.144] }
[13:13:54.150] Exporting 5 global objects (280 bytes) to cluster node #1 ...
[13:13:54.150] Exporting '...future.FUN' (56 bytes) to cluster node #1 ...
[13:13:54.151] Exporting '...future.FUN' (56 bytes) to cluster node #1 ... DONE
[13:13:54.151] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:54.151] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:54.152] Exporting '...future.elements_ii' (224 bytes) to cluster node #1 ...
[13:13:54.152] Exporting '...future.elements_ii' (224 bytes) to cluster node #1 ... DONE
[13:13:54.152] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:54.153] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:54.153] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:54.153] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:54.154] Exporting 5 global objects (280 bytes) to cluster node #1 ... DONE
[13:13:54.155] MultisessionFuture started
[13:13:54.155] - Launch lazy future ... done
[13:13:54.155] run() for 'MultisessionFuture' ... done
[13:13:54.155] Created future:
[13:13:54.171] receiveMessageFromWorker() for ClusterFuture ...
[13:13:54.172] - Validating connection of MultisessionFuture
[13:13:54.172] - received message: FutureResult
[13:13:54.172] - Received FutureResult
[13:13:54.172] - Erased future from FutureRegistry
[13:13:54.173] result() for ClusterFuture ...
[13:13:54.173] - result already collected: FutureResult
[13:13:54.173] result() for ClusterFuture ... done
[13:13:54.173] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:54.155] MultisessionFuture:
[13:13:54.155] Label: 'future_mapply-1'
[13:13:54.155] Expression:
[13:13:54.155] {
[13:13:54.155]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:54.155]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:54.155]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:54.155]         on.exit(options(oopts), add = TRUE)
[13:13:54.155]     }
[13:13:54.155]     {
[13:13:54.155]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:54.155]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:54.155]         do.call(mapply, args = args)
[13:13:54.155]     }
[13:13:54.155] }
[13:13:54.155] Lazy evaluation: FALSE
[13:13:54.155] Asynchronous evaluation: TRUE
[13:13:54.155] Local evaluation: TRUE
[13:13:54.155] Environment: R_GlobalEnv
[13:13:54.155] Capture standard output: TRUE
[13:13:54.155] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:54.155] Globals: 5 objects totaling 280 bytes (function '...future.FUN' of 56 bytes, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 224 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:54.155] Packages: <none>
[13:13:54.155] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:54.155] Resolved: TRUE
[13:13:54.155] Value: <not collected>
[13:13:54.155] Conditions captured: <none>
[13:13:54.155] Early signaling: FALSE
[13:13:54.155] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:54.155] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:54.174] Chunk #1 of 2 ... DONE
[13:13:54.174] Chunk #2 of 2 ...
[13:13:54.174]  - Finding globals in '...' for chunk #2 ...
[13:13:54.174] getGlobalsAndPackages() ...
[13:13:54.175] Searching for globals...
[13:13:54.175] 
[13:13:54.175] Searching for globals ... DONE
[13:13:54.176] - globals: [0] <none>
[13:13:54.176] getGlobalsAndPackages() ... DONE
[13:13:54.176]    + additional globals found: [n=0] 
[13:13:54.176]    + additional namespaces needed: [n=0] 
[13:13:54.176]  - Finding globals in '...' for chunk #2 ... DONE
[13:13:54.177]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:54.177]  - seeds: <none>
[13:13:54.177]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.177] getGlobalsAndPackages() ...
[13:13:54.177] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.178] Resolving globals: FALSE
[13:13:54.178] The total size of the 5 globals is 280 bytes (280 bytes)
[13:13:54.179] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 280 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (224 bytes of class 'list'), '...future.FUN' (56 bytes of class 'function') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:54.179] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.180] 
[13:13:54.180] getGlobalsAndPackages() ... DONE
[13:13:54.180] run() for 'Future' ...
[13:13:54.180] - state: 'created'
[13:13:54.181] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:54.195] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:54.195] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:54.196]   - Field: 'node'
[13:13:54.196]   - Field: 'label'
[13:13:54.196]   - Field: 'local'
[13:13:54.196]   - Field: 'owner'
[13:13:54.196]   - Field: 'envir'
[13:13:54.196]   - Field: 'workers'
[13:13:54.197]   - Field: 'packages'
[13:13:54.197]   - Field: 'gc'
[13:13:54.197]   - Field: 'conditions'
[13:13:54.197]   - Field: 'persistent'
[13:13:54.198]   - Field: 'expr'
[13:13:54.198]   - Field: 'uuid'
[13:13:54.198]   - Field: 'seed'
[13:13:54.198]   - Field: 'version'
[13:13:54.198]   - Field: 'result'
[13:13:54.199]   - Field: 'asynchronous'
[13:13:54.199]   - Field: 'calls'
[13:13:54.199]   - Field: 'globals'
[13:13:54.199]   - Field: 'stdout'
[13:13:54.199]   - Field: 'earlySignal'
[13:13:54.200]   - Field: 'lazy'
[13:13:54.200]   - Field: 'state'
[13:13:54.200] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:54.200] - Launch lazy future ...
[13:13:54.201] Packages needed by the future expression (n = 0): <none>
[13:13:54.201] Packages needed by future strategies (n = 0): <none>
[13:13:54.201] {
[13:13:54.201]     {
[13:13:54.201]         {
[13:13:54.201]             ...future.startTime <- base::Sys.time()
[13:13:54.201]             {
[13:13:54.201]                 {
[13:13:54.201]                   {
[13:13:54.201]                     {
[13:13:54.201]                       base::local({
[13:13:54.201]                         has_future <- base::requireNamespace("future", 
[13:13:54.201]                           quietly = TRUE)
[13:13:54.201]                         if (has_future) {
[13:13:54.201]                           ns <- base::getNamespace("future")
[13:13:54.201]                           version <- ns[[".package"]][["version"]]
[13:13:54.201]                           if (is.null(version)) 
[13:13:54.201]                             version <- utils::packageVersion("future")
[13:13:54.201]                         }
[13:13:54.201]                         else {
[13:13:54.201]                           version <- NULL
[13:13:54.201]                         }
[13:13:54.201]                         if (!has_future || version < "1.8.0") {
[13:13:54.201]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:54.201]                             "", base::R.version$version.string), 
[13:13:54.201]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:54.201]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:54.201]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:54.201]                               "release", "version")], collapse = " "), 
[13:13:54.201]                             hostname = base::Sys.info()[["nodename"]])
[13:13:54.201]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:54.201]                             info)
[13:13:54.201]                           info <- base::paste(info, collapse = "; ")
[13:13:54.201]                           if (!has_future) {
[13:13:54.201]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:54.201]                               info)
[13:13:54.201]                           }
[13:13:54.201]                           else {
[13:13:54.201]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:54.201]                               info, version)
[13:13:54.201]                           }
[13:13:54.201]                           base::stop(msg)
[13:13:54.201]                         }
[13:13:54.201]                       })
[13:13:54.201]                     }
[13:13:54.201]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:54.201]                     base::options(mc.cores = 1L)
[13:13:54.201]                   }
[13:13:54.201]                   options(future.plan = NULL)
[13:13:54.201]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:54.201]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:54.201]                 }
[13:13:54.201]                 ...future.workdir <- getwd()
[13:13:54.201]             }
[13:13:54.201]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:54.201]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:54.201]         }
[13:13:54.201]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:54.201]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:54.201]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:54.201]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:54.201]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:54.201]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:54.201]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:54.201]             base::names(...future.oldOptions))
[13:13:54.201]     }
[13:13:54.201]     if (FALSE) {
[13:13:54.201]     }
[13:13:54.201]     else {
[13:13:54.201]         if (TRUE) {
[13:13:54.201]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:54.201]                 open = "w")
[13:13:54.201]         }
[13:13:54.201]         else {
[13:13:54.201]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:54.201]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:54.201]         }
[13:13:54.201]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:54.201]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:54.201]             base::sink(type = "output", split = FALSE)
[13:13:54.201]             base::close(...future.stdout)
[13:13:54.201]         }, add = TRUE)
[13:13:54.201]     }
[13:13:54.201]     ...future.frame <- base::sys.nframe()
[13:13:54.201]     ...future.conditions <- base::list()
[13:13:54.201]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:54.201]     if (FALSE) {
[13:13:54.201]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:54.201]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:54.201]     }
[13:13:54.201]     ...future.result <- base::tryCatch({
[13:13:54.201]         base::withCallingHandlers({
[13:13:54.201]             ...future.value <- base::withVisible(base::local({
[13:13:54.201]                 ...future.makeSendCondition <- local({
[13:13:54.201]                   sendCondition <- NULL
[13:13:54.201]                   function(frame = 1L) {
[13:13:54.201]                     if (is.function(sendCondition)) 
[13:13:54.201]                       return(sendCondition)
[13:13:54.201]                     ns <- getNamespace("parallel")
[13:13:54.201]                     if (exists("sendData", mode = "function", 
[13:13:54.201]                       envir = ns)) {
[13:13:54.201]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:54.201]                         envir = ns)
[13:13:54.201]                       envir <- sys.frame(frame)
[13:13:54.201]                       master <- NULL
[13:13:54.201]                       while (!identical(envir, .GlobalEnv) && 
[13:13:54.201]                         !identical(envir, emptyenv())) {
[13:13:54.201]                         if (exists("master", mode = "list", envir = envir, 
[13:13:54.201]                           inherits = FALSE)) {
[13:13:54.201]                           master <- get("master", mode = "list", 
[13:13:54.201]                             envir = envir, inherits = FALSE)
[13:13:54.201]                           if (inherits(master, c("SOCKnode", 
[13:13:54.201]                             "SOCK0node"))) {
[13:13:54.201]                             sendCondition <<- function(cond) {
[13:13:54.201]                               data <- list(type = "VALUE", value = cond, 
[13:13:54.201]                                 success = TRUE)
[13:13:54.201]                               parallel_sendData(master, data)
[13:13:54.201]                             }
[13:13:54.201]                             return(sendCondition)
[13:13:54.201]                           }
[13:13:54.201]                         }
[13:13:54.201]                         frame <- frame + 1L
[13:13:54.201]                         envir <- sys.frame(frame)
[13:13:54.201]                       }
[13:13:54.201]                     }
[13:13:54.201]                     sendCondition <<- function(cond) NULL
[13:13:54.201]                   }
[13:13:54.201]                 })
[13:13:54.201]                 withCallingHandlers({
[13:13:54.201]                   {
[13:13:54.201]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:54.201]                     if (!identical(...future.globals.maxSize.org, 
[13:13:54.201]                       ...future.globals.maxSize)) {
[13:13:54.201]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:54.201]                       on.exit(options(oopts), add = TRUE)
[13:13:54.201]                     }
[13:13:54.201]                     {
[13:13:54.201]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:54.201]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:54.201]                         USE.NAMES = FALSE)
[13:13:54.201]                       do.call(mapply, args = args)
[13:13:54.201]                     }
[13:13:54.201]                   }
[13:13:54.201]                 }, immediateCondition = function(cond) {
[13:13:54.201]                   sendCondition <- ...future.makeSendCondition()
[13:13:54.201]                   sendCondition(cond)
[13:13:54.201]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.201]                   {
[13:13:54.201]                     inherits <- base::inherits
[13:13:54.201]                     invokeRestart <- base::invokeRestart
[13:13:54.201]                     is.null <- base::is.null
[13:13:54.201]                     muffled <- FALSE
[13:13:54.201]                     if (inherits(cond, "message")) {
[13:13:54.201]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:54.201]                       if (muffled) 
[13:13:54.201]                         invokeRestart("muffleMessage")
[13:13:54.201]                     }
[13:13:54.201]                     else if (inherits(cond, "warning")) {
[13:13:54.201]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:54.201]                       if (muffled) 
[13:13:54.201]                         invokeRestart("muffleWarning")
[13:13:54.201]                     }
[13:13:54.201]                     else if (inherits(cond, "condition")) {
[13:13:54.201]                       if (!is.null(pattern)) {
[13:13:54.201]                         computeRestarts <- base::computeRestarts
[13:13:54.201]                         grepl <- base::grepl
[13:13:54.201]                         restarts <- computeRestarts(cond)
[13:13:54.201]                         for (restart in restarts) {
[13:13:54.201]                           name <- restart$name
[13:13:54.201]                           if (is.null(name)) 
[13:13:54.201]                             next
[13:13:54.201]                           if (!grepl(pattern, name)) 
[13:13:54.201]                             next
[13:13:54.201]                           invokeRestart(restart)
[13:13:54.201]                           muffled <- TRUE
[13:13:54.201]                           break
[13:13:54.201]                         }
[13:13:54.201]                       }
[13:13:54.201]                     }
[13:13:54.201]                     invisible(muffled)
[13:13:54.201]                   }
[13:13:54.201]                   muffleCondition(cond)
[13:13:54.201]                 })
[13:13:54.201]             }))
[13:13:54.201]             future::FutureResult(value = ...future.value$value, 
[13:13:54.201]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:54.201]                   ...future.rng), globalenv = if (FALSE) 
[13:13:54.201]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:54.201]                     ...future.globalenv.names))
[13:13:54.201]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:54.201]         }, condition = base::local({
[13:13:54.201]             c <- base::c
[13:13:54.201]             inherits <- base::inherits
[13:13:54.201]             invokeRestart <- base::invokeRestart
[13:13:54.201]             length <- base::length
[13:13:54.201]             list <- base::list
[13:13:54.201]             seq.int <- base::seq.int
[13:13:54.201]             signalCondition <- base::signalCondition
[13:13:54.201]             sys.calls <- base::sys.calls
[13:13:54.201]             `[[` <- base::`[[`
[13:13:54.201]             `+` <- base::`+`
[13:13:54.201]             `<<-` <- base::`<<-`
[13:13:54.201]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:54.201]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:54.201]                   3L)]
[13:13:54.201]             }
[13:13:54.201]             function(cond) {
[13:13:54.201]                 is_error <- inherits(cond, "error")
[13:13:54.201]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:54.201]                   NULL)
[13:13:54.201]                 if (is_error) {
[13:13:54.201]                   sessionInformation <- function() {
[13:13:54.201]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:54.201]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:54.201]                       search = base::search(), system = base::Sys.info())
[13:13:54.201]                   }
[13:13:54.201]                   ...future.conditions[[length(...future.conditions) + 
[13:13:54.201]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:54.201]                     cond$call), session = sessionInformation(), 
[13:13:54.201]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:54.201]                   signalCondition(cond)
[13:13:54.201]                 }
[13:13:54.201]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:54.201]                 "immediateCondition"))) {
[13:13:54.201]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:54.201]                   ...future.conditions[[length(...future.conditions) + 
[13:13:54.201]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:54.201]                   if (TRUE && !signal) {
[13:13:54.201]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.201]                     {
[13:13:54.201]                       inherits <- base::inherits
[13:13:54.201]                       invokeRestart <- base::invokeRestart
[13:13:54.201]                       is.null <- base::is.null
[13:13:54.201]                       muffled <- FALSE
[13:13:54.201]                       if (inherits(cond, "message")) {
[13:13:54.201]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:54.201]                         if (muffled) 
[13:13:54.201]                           invokeRestart("muffleMessage")
[13:13:54.201]                       }
[13:13:54.201]                       else if (inherits(cond, "warning")) {
[13:13:54.201]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:54.201]                         if (muffled) 
[13:13:54.201]                           invokeRestart("muffleWarning")
[13:13:54.201]                       }
[13:13:54.201]                       else if (inherits(cond, "condition")) {
[13:13:54.201]                         if (!is.null(pattern)) {
[13:13:54.201]                           computeRestarts <- base::computeRestarts
[13:13:54.201]                           grepl <- base::grepl
[13:13:54.201]                           restarts <- computeRestarts(cond)
[13:13:54.201]                           for (restart in restarts) {
[13:13:54.201]                             name <- restart$name
[13:13:54.201]                             if (is.null(name)) 
[13:13:54.201]                               next
[13:13:54.201]                             if (!grepl(pattern, name)) 
[13:13:54.201]                               next
[13:13:54.201]                             invokeRestart(restart)
[13:13:54.201]                             muffled <- TRUE
[13:13:54.201]                             break
[13:13:54.201]                           }
[13:13:54.201]                         }
[13:13:54.201]                       }
[13:13:54.201]                       invisible(muffled)
[13:13:54.201]                     }
[13:13:54.201]                     muffleCondition(cond, pattern = "^muffle")
[13:13:54.201]                   }
[13:13:54.201]                 }
[13:13:54.201]                 else {
[13:13:54.201]                   if (TRUE) {
[13:13:54.201]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.201]                     {
[13:13:54.201]                       inherits <- base::inherits
[13:13:54.201]                       invokeRestart <- base::invokeRestart
[13:13:54.201]                       is.null <- base::is.null
[13:13:54.201]                       muffled <- FALSE
[13:13:54.201]                       if (inherits(cond, "message")) {
[13:13:54.201]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:54.201]                         if (muffled) 
[13:13:54.201]                           invokeRestart("muffleMessage")
[13:13:54.201]                       }
[13:13:54.201]                       else if (inherits(cond, "warning")) {
[13:13:54.201]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:54.201]                         if (muffled) 
[13:13:54.201]                           invokeRestart("muffleWarning")
[13:13:54.201]                       }
[13:13:54.201]                       else if (inherits(cond, "condition")) {
[13:13:54.201]                         if (!is.null(pattern)) {
[13:13:54.201]                           computeRestarts <- base::computeRestarts
[13:13:54.201]                           grepl <- base::grepl
[13:13:54.201]                           restarts <- computeRestarts(cond)
[13:13:54.201]                           for (restart in restarts) {
[13:13:54.201]                             name <- restart$name
[13:13:54.201]                             if (is.null(name)) 
[13:13:54.201]                               next
[13:13:54.201]                             if (!grepl(pattern, name)) 
[13:13:54.201]                               next
[13:13:54.201]                             invokeRestart(restart)
[13:13:54.201]                             muffled <- TRUE
[13:13:54.201]                             break
[13:13:54.201]                           }
[13:13:54.201]                         }
[13:13:54.201]                       }
[13:13:54.201]                       invisible(muffled)
[13:13:54.201]                     }
[13:13:54.201]                     muffleCondition(cond, pattern = "^muffle")
[13:13:54.201]                   }
[13:13:54.201]                 }
[13:13:54.201]             }
[13:13:54.201]         }))
[13:13:54.201]     }, error = function(ex) {
[13:13:54.201]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:54.201]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:54.201]                 ...future.rng), started = ...future.startTime, 
[13:13:54.201]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:54.201]             version = "1.8"), class = "FutureResult")
[13:13:54.201]     }, finally = {
[13:13:54.201]         if (!identical(...future.workdir, getwd())) 
[13:13:54.201]             setwd(...future.workdir)
[13:13:54.201]         {
[13:13:54.201]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:54.201]                 ...future.oldOptions$nwarnings <- NULL
[13:13:54.201]             }
[13:13:54.201]             base::options(...future.oldOptions)
[13:13:54.201]             if (.Platform$OS.type == "windows") {
[13:13:54.201]                 old_names <- names(...future.oldEnvVars)
[13:13:54.201]                 envs <- base::Sys.getenv()
[13:13:54.201]                 names <- names(envs)
[13:13:54.201]                 common <- intersect(names, old_names)
[13:13:54.201]                 added <- setdiff(names, old_names)
[13:13:54.201]                 removed <- setdiff(old_names, names)
[13:13:54.201]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:54.201]                   envs[common]]
[13:13:54.201]                 NAMES <- toupper(changed)
[13:13:54.201]                 args <- list()
[13:13:54.201]                 for (kk in seq_along(NAMES)) {
[13:13:54.201]                   name <- changed[[kk]]
[13:13:54.201]                   NAME <- NAMES[[kk]]
[13:13:54.201]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.201]                     next
[13:13:54.201]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:54.201]                 }
[13:13:54.201]                 NAMES <- toupper(added)
[13:13:54.201]                 for (kk in seq_along(NAMES)) {
[13:13:54.201]                   name <- added[[kk]]
[13:13:54.201]                   NAME <- NAMES[[kk]]
[13:13:54.201]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.201]                     next
[13:13:54.201]                   args[[name]] <- ""
[13:13:54.201]                 }
[13:13:54.201]                 NAMES <- toupper(removed)
[13:13:54.201]                 for (kk in seq_along(NAMES)) {
[13:13:54.201]                   name <- removed[[kk]]
[13:13:54.201]                   NAME <- NAMES[[kk]]
[13:13:54.201]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.201]                     next
[13:13:54.201]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:54.201]                 }
[13:13:54.201]                 if (length(args) > 0) 
[13:13:54.201]                   base::do.call(base::Sys.setenv, args = args)
[13:13:54.201]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:54.201]             }
[13:13:54.201]             else {
[13:13:54.201]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:54.201]             }
[13:13:54.201]             {
[13:13:54.201]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:54.201]                   0L) {
[13:13:54.201]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:54.201]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:54.201]                   base::options(opts)
[13:13:54.201]                 }
[13:13:54.201]                 {
[13:13:54.201]                   {
[13:13:54.201]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:54.201]                     NULL
[13:13:54.201]                   }
[13:13:54.201]                   options(future.plan = NULL)
[13:13:54.201]                   if (is.na(NA_character_)) 
[13:13:54.201]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:54.201]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:54.201]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:54.201]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:54.201]                     envir = parent.frame()) 
[13:13:54.201]                   {
[13:13:54.201]                     if (is.function(workers)) 
[13:13:54.201]                       workers <- workers()
[13:13:54.201]                     workers <- structure(as.integer(workers), 
[13:13:54.201]                       class = class(workers))
[13:13:54.201]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:54.201]                       workers >= 1)
[13:13:54.201]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:54.201]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:54.201]                     }
[13:13:54.201]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:54.201]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:54.201]                       envir = envir)
[13:13:54.201]                     if (!future$lazy) 
[13:13:54.201]                       future <- run(future)
[13:13:54.201]                     invisible(future)
[13:13:54.201]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:54.201]                 }
[13:13:54.201]             }
[13:13:54.201]         }
[13:13:54.201]     })
[13:13:54.201]     if (TRUE) {
[13:13:54.201]         base::sink(type = "output", split = FALSE)
[13:13:54.201]         if (TRUE) {
[13:13:54.201]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:54.201]         }
[13:13:54.201]         else {
[13:13:54.201]             ...future.result["stdout"] <- base::list(NULL)
[13:13:54.201]         }
[13:13:54.201]         base::close(...future.stdout)
[13:13:54.201]         ...future.stdout <- NULL
[13:13:54.201]     }
[13:13:54.201]     ...future.result$conditions <- ...future.conditions
[13:13:54.201]     ...future.result$finished <- base::Sys.time()
[13:13:54.201]     ...future.result
[13:13:54.201] }
[13:13:54.207] Exporting 5 global objects (280 bytes) to cluster node #1 ...
[13:13:54.207] Exporting '...future.FUN' (56 bytes) to cluster node #1 ...
[13:13:54.208] Exporting '...future.FUN' (56 bytes) to cluster node #1 ... DONE
[13:13:54.208] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:54.208] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:54.209] Exporting '...future.elements_ii' (224 bytes) to cluster node #1 ...
[13:13:54.209] Exporting '...future.elements_ii' (224 bytes) to cluster node #1 ... DONE
[13:13:54.209] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:54.210] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:54.210] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:54.210] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:54.211] Exporting 5 global objects (280 bytes) to cluster node #1 ... DONE
[13:13:54.211] MultisessionFuture started
[13:13:54.212] - Launch lazy future ... done
[13:13:54.212] run() for 'MultisessionFuture' ... done
[13:13:54.212] Created future:
[13:13:54.227] receiveMessageFromWorker() for ClusterFuture ...
[13:13:54.228] - Validating connection of MultisessionFuture
[13:13:54.228] - received message: FutureResult
[13:13:54.228] - Received FutureResult
[13:13:54.228] - Erased future from FutureRegistry
[13:13:54.229] result() for ClusterFuture ...
[13:13:54.229] - result already collected: FutureResult
[13:13:54.229] result() for ClusterFuture ... done
[13:13:54.229] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:54.212] MultisessionFuture:
[13:13:54.212] Label: 'future_mapply-2'
[13:13:54.212] Expression:
[13:13:54.212] {
[13:13:54.212]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:54.212]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:54.212]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:54.212]         on.exit(options(oopts), add = TRUE)
[13:13:54.212]     }
[13:13:54.212]     {
[13:13:54.212]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:54.212]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:54.212]         do.call(mapply, args = args)
[13:13:54.212]     }
[13:13:54.212] }
[13:13:54.212] Lazy evaluation: FALSE
[13:13:54.212] Asynchronous evaluation: TRUE
[13:13:54.212] Local evaluation: TRUE
[13:13:54.212] Environment: R_GlobalEnv
[13:13:54.212] Capture standard output: TRUE
[13:13:54.212] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:54.212] Globals: 5 objects totaling 280 bytes (function '...future.FUN' of 56 bytes, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 224 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:54.212] Packages: <none>
[13:13:54.212] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:54.212] Resolved: TRUE
[13:13:54.212] Value: <not collected>
[13:13:54.212] Conditions captured: <none>
[13:13:54.212] Early signaling: FALSE
[13:13:54.212] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:54.212] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:54.230] Chunk #2 of 2 ... DONE
[13:13:54.230] Launching 2 futures (chunks) ... DONE
[13:13:54.230] Resolving 2 futures (chunks) ...
[13:13:54.230] resolve() on list ...
[13:13:54.230]  recursive: 0
[13:13:54.231]  length: 2
[13:13:54.231] 
[13:13:54.231] Future #1
[13:13:54.231] result() for ClusterFuture ...
[13:13:54.231] - result already collected: FutureResult
[13:13:54.231] result() for ClusterFuture ... done
[13:13:54.232] result() for ClusterFuture ...
[13:13:54.232] - result already collected: FutureResult
[13:13:54.232] result() for ClusterFuture ... done
[13:13:54.232] signalConditionsASAP(MultisessionFuture, pos=1) ...
[13:13:54.232] - nx: 2
[13:13:54.233] - relay: TRUE
[13:13:54.233] - stdout: TRUE
[13:13:54.233] - signal: TRUE
[13:13:54.233] - resignal: FALSE
[13:13:54.233] - force: TRUE
[13:13:54.233] - relayed: [n=2] FALSE, FALSE
[13:13:54.234] - queued futures: [n=2] FALSE, FALSE
[13:13:54.234]  - until=1
[13:13:54.234]  - relaying element #1
[13:13:54.234] result() for ClusterFuture ...
[13:13:54.234] - result already collected: FutureResult
[13:13:54.235] result() for ClusterFuture ... done
[13:13:54.235] result() for ClusterFuture ...
[13:13:54.235] - result already collected: FutureResult
[13:13:54.235] result() for ClusterFuture ... done
[13:13:54.235] result() for ClusterFuture ...
[13:13:54.236] - result already collected: FutureResult
[13:13:54.236] result() for ClusterFuture ... done
[13:13:54.236] result() for ClusterFuture ...
[13:13:54.236] - result already collected: FutureResult
[13:13:54.236] result() for ClusterFuture ... done
[13:13:54.236] - relayed: [n=2] TRUE, FALSE
[13:13:54.237] - queued futures: [n=2] TRUE, FALSE
[13:13:54.237] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[13:13:54.237]  length: 1 (resolved future 1)
[13:13:54.237] Future #2
[13:13:54.237] result() for ClusterFuture ...
[13:13:54.240] - result already collected: FutureResult
[13:13:54.240] result() for ClusterFuture ... done
[13:13:54.240] result() for ClusterFuture ...
[13:13:54.240] - result already collected: FutureResult
[13:13:54.240] result() for ClusterFuture ... done
[13:13:54.241] signalConditionsASAP(MultisessionFuture, pos=2) ...
[13:13:54.241] - nx: 2
[13:13:54.241] - relay: TRUE
[13:13:54.241] - stdout: TRUE
[13:13:54.241] - signal: TRUE
[13:13:54.241] - resignal: FALSE
[13:13:54.242] - force: TRUE
[13:13:54.242] - relayed: [n=2] TRUE, FALSE
[13:13:54.242] - queued futures: [n=2] TRUE, FALSE
[13:13:54.242]  - until=2
[13:13:54.242]  - relaying element #2
[13:13:54.242] result() for ClusterFuture ...
[13:13:54.242] - result already collected: FutureResult
[13:13:54.243] result() for ClusterFuture ... done
[13:13:54.243] result() for ClusterFuture ...
[13:13:54.243] - result already collected: FutureResult
[13:13:54.243] result() for ClusterFuture ... done
[13:13:54.243] result() for ClusterFuture ...
[13:13:54.243] - result already collected: FutureResult
[13:13:54.244] result() for ClusterFuture ... done
[13:13:54.244] result() for ClusterFuture ...
[13:13:54.244] - result already collected: FutureResult
[13:13:54.244] result() for ClusterFuture ... done
[13:13:54.244] - relayed: [n=2] TRUE, TRUE
[13:13:54.244] - queued futures: [n=2] TRUE, TRUE
[13:13:54.245] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[13:13:54.245]  length: 0 (resolved future 2)
[13:13:54.245] Relaying remaining futures
[13:13:54.245] signalConditionsASAP(NULL, pos=0) ...
[13:13:54.245] - nx: 2
[13:13:54.245] - relay: TRUE
[13:13:54.245] - stdout: TRUE
[13:13:54.246] - signal: TRUE
[13:13:54.246] - resignal: FALSE
[13:13:54.246] - force: TRUE
[13:13:54.246] - relayed: [n=2] TRUE, TRUE
[13:13:54.246] - queued futures: [n=2] TRUE, TRUE
 - flush all
[13:13:54.246] - relayed: [n=2] TRUE, TRUE
[13:13:54.247] - queued futures: [n=2] TRUE, TRUE
[13:13:54.247] signalConditionsASAP(NULL, pos=0) ... done
[13:13:54.247] resolve() on list ... DONE
[13:13:54.247] result() for ClusterFuture ...
[13:13:54.247] - result already collected: FutureResult
[13:13:54.247] result() for ClusterFuture ... done
[13:13:54.248] result() for ClusterFuture ...
[13:13:54.248] - result already collected: FutureResult
[13:13:54.248] result() for ClusterFuture ... done
[13:13:54.248] result() for ClusterFuture ...
[13:13:54.248] - result already collected: FutureResult
[13:13:54.248] result() for ClusterFuture ... done
[13:13:54.249] result() for ClusterFuture ...
[13:13:54.249] - result already collected: FutureResult
[13:13:54.249] result() for ClusterFuture ... done
[13:13:54.249]  - Number of value chunks collected: 2
[13:13:54.249] Resolving 2 futures (chunks) ... DONE
[13:13:54.249] Reducing values from 2 chunks ...
[13:13:54.249]  - Number of values collected after concatenation: 4
[13:13:54.250]  - Number of values expected: 4
[13:13:54.250] Reducing values from 2 chunks ... DONE
[13:13:54.250] future_mapply() ... DONE
[13:13:54.250] future_mapply() ...
[13:13:54.253] Number of chunks: 2
[13:13:54.253] getGlobalsAndPackagesXApply() ...
[13:13:54.253]  - future.globals: TRUE
[13:13:54.253] getGlobalsAndPackages() ...
[13:13:54.253] Searching for globals...
[13:13:54.254] - globals found: [1] 'FUN'
[13:13:54.254] Searching for globals ... DONE
[13:13:54.255] Resolving globals: FALSE
[13:13:54.255] The total size of the 1 globals is 56 bytes (56 bytes)
[13:13:54.255] The total size of the 1 globals exported for future expression ('FUN()') is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (56 bytes of class 'function')
[13:13:54.256] - globals: [1] 'FUN'
[13:13:54.256] 
[13:13:54.256] getGlobalsAndPackages() ... DONE
[13:13:54.256]  - globals found/used: [n=1] 'FUN'
[13:13:54.256]  - needed namespaces: [n=0] 
[13:13:54.256] Finding globals ... DONE
[13:13:54.257] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:54.257] List of 2
[13:13:54.257]  $ ...future.FUN:function (x, ...)  
[13:13:54.257]  $ MoreArgs     : NULL
[13:13:54.257]  - attr(*, "where")=List of 2
[13:13:54.257]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:54.257]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:54.257]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:54.257]  - attr(*, "resolved")= logi FALSE
[13:13:54.257]  - attr(*, "total_size")= num NA
[13:13:54.260] Packages to be attached in all futures: [n=0] 
[13:13:54.260] getGlobalsAndPackagesXApply() ... DONE
[13:13:54.260] Number of futures (= number of chunks): 2
[13:13:54.261] Launching 2 futures (chunks) ...
[13:13:54.261] Chunk #1 of 2 ...
[13:13:54.261]  - Finding globals in '...' for chunk #1 ...
[13:13:54.261] getGlobalsAndPackages() ...
[13:13:54.261] Searching for globals...
[13:13:54.262] 
[13:13:54.262] Searching for globals ... DONE
[13:13:54.262] - globals: [0] <none>
[13:13:54.262] getGlobalsAndPackages() ... DONE
[13:13:54.262]    + additional globals found: [n=0] 
[13:13:54.262]    + additional namespaces needed: [n=0] 
[13:13:54.263]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:54.263]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:54.263]  - seeds: <none>
[13:13:54.263]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.263] getGlobalsAndPackages() ...
[13:13:54.263] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.264] Resolving globals: FALSE
[13:13:54.264] The total size of the 5 globals is 280 bytes (280 bytes)
[13:13:54.265] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 280 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (224 bytes of class 'list'), '...future.FUN' (56 bytes of class 'function') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:54.265] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.265] 
[13:13:54.265] getGlobalsAndPackages() ... DONE
[13:13:54.266] run() for 'Future' ...
[13:13:54.266] - state: 'created'
[13:13:54.266] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:54.282] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:54.282] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:54.282]   - Field: 'node'
[13:13:54.282]   - Field: 'label'
[13:13:54.283]   - Field: 'local'
[13:13:54.283]   - Field: 'owner'
[13:13:54.283]   - Field: 'envir'
[13:13:54.283]   - Field: 'workers'
[13:13:54.283]   - Field: 'packages'
[13:13:54.283]   - Field: 'gc'
[13:13:54.284]   - Field: 'conditions'
[13:13:54.284]   - Field: 'persistent'
[13:13:54.284]   - Field: 'expr'
[13:13:54.284]   - Field: 'uuid'
[13:13:54.284]   - Field: 'seed'
[13:13:54.285]   - Field: 'version'
[13:13:54.285]   - Field: 'result'
[13:13:54.285]   - Field: 'asynchronous'
[13:13:54.285]   - Field: 'calls'
[13:13:54.285]   - Field: 'globals'
[13:13:54.286]   - Field: 'stdout'
[13:13:54.286]   - Field: 'earlySignal'
[13:13:54.286]   - Field: 'lazy'
[13:13:54.286]   - Field: 'state'
[13:13:54.286] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:54.286] - Launch lazy future ...
[13:13:54.287] Packages needed by the future expression (n = 0): <none>
[13:13:54.287] Packages needed by future strategies (n = 0): <none>
[13:13:54.288] {
[13:13:54.288]     {
[13:13:54.288]         {
[13:13:54.288]             ...future.startTime <- base::Sys.time()
[13:13:54.288]             {
[13:13:54.288]                 {
[13:13:54.288]                   {
[13:13:54.288]                     {
[13:13:54.288]                       base::local({
[13:13:54.288]                         has_future <- base::requireNamespace("future", 
[13:13:54.288]                           quietly = TRUE)
[13:13:54.288]                         if (has_future) {
[13:13:54.288]                           ns <- base::getNamespace("future")
[13:13:54.288]                           version <- ns[[".package"]][["version"]]
[13:13:54.288]                           if (is.null(version)) 
[13:13:54.288]                             version <- utils::packageVersion("future")
[13:13:54.288]                         }
[13:13:54.288]                         else {
[13:13:54.288]                           version <- NULL
[13:13:54.288]                         }
[13:13:54.288]                         if (!has_future || version < "1.8.0") {
[13:13:54.288]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:54.288]                             "", base::R.version$version.string), 
[13:13:54.288]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:54.288]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:54.288]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:54.288]                               "release", "version")], collapse = " "), 
[13:13:54.288]                             hostname = base::Sys.info()[["nodename"]])
[13:13:54.288]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:54.288]                             info)
[13:13:54.288]                           info <- base::paste(info, collapse = "; ")
[13:13:54.288]                           if (!has_future) {
[13:13:54.288]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:54.288]                               info)
[13:13:54.288]                           }
[13:13:54.288]                           else {
[13:13:54.288]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:54.288]                               info, version)
[13:13:54.288]                           }
[13:13:54.288]                           base::stop(msg)
[13:13:54.288]                         }
[13:13:54.288]                       })
[13:13:54.288]                     }
[13:13:54.288]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:54.288]                     base::options(mc.cores = 1L)
[13:13:54.288]                   }
[13:13:54.288]                   options(future.plan = NULL)
[13:13:54.288]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:54.288]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:54.288]                 }
[13:13:54.288]                 ...future.workdir <- getwd()
[13:13:54.288]             }
[13:13:54.288]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:54.288]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:54.288]         }
[13:13:54.288]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:54.288]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:54.288]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:54.288]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:54.288]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:54.288]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:54.288]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:54.288]             base::names(...future.oldOptions))
[13:13:54.288]     }
[13:13:54.288]     if (FALSE) {
[13:13:54.288]     }
[13:13:54.288]     else {
[13:13:54.288]         if (TRUE) {
[13:13:54.288]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:54.288]                 open = "w")
[13:13:54.288]         }
[13:13:54.288]         else {
[13:13:54.288]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:54.288]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:54.288]         }
[13:13:54.288]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:54.288]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:54.288]             base::sink(type = "output", split = FALSE)
[13:13:54.288]             base::close(...future.stdout)
[13:13:54.288]         }, add = TRUE)
[13:13:54.288]     }
[13:13:54.288]     ...future.frame <- base::sys.nframe()
[13:13:54.288]     ...future.conditions <- base::list()
[13:13:54.288]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:54.288]     if (FALSE) {
[13:13:54.288]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:54.288]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:54.288]     }
[13:13:54.288]     ...future.result <- base::tryCatch({
[13:13:54.288]         base::withCallingHandlers({
[13:13:54.288]             ...future.value <- base::withVisible(base::local({
[13:13:54.288]                 ...future.makeSendCondition <- local({
[13:13:54.288]                   sendCondition <- NULL
[13:13:54.288]                   function(frame = 1L) {
[13:13:54.288]                     if (is.function(sendCondition)) 
[13:13:54.288]                       return(sendCondition)
[13:13:54.288]                     ns <- getNamespace("parallel")
[13:13:54.288]                     if (exists("sendData", mode = "function", 
[13:13:54.288]                       envir = ns)) {
[13:13:54.288]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:54.288]                         envir = ns)
[13:13:54.288]                       envir <- sys.frame(frame)
[13:13:54.288]                       master <- NULL
[13:13:54.288]                       while (!identical(envir, .GlobalEnv) && 
[13:13:54.288]                         !identical(envir, emptyenv())) {
[13:13:54.288]                         if (exists("master", mode = "list", envir = envir, 
[13:13:54.288]                           inherits = FALSE)) {
[13:13:54.288]                           master <- get("master", mode = "list", 
[13:13:54.288]                             envir = envir, inherits = FALSE)
[13:13:54.288]                           if (inherits(master, c("SOCKnode", 
[13:13:54.288]                             "SOCK0node"))) {
[13:13:54.288]                             sendCondition <<- function(cond) {
[13:13:54.288]                               data <- list(type = "VALUE", value = cond, 
[13:13:54.288]                                 success = TRUE)
[13:13:54.288]                               parallel_sendData(master, data)
[13:13:54.288]                             }
[13:13:54.288]                             return(sendCondition)
[13:13:54.288]                           }
[13:13:54.288]                         }
[13:13:54.288]                         frame <- frame + 1L
[13:13:54.288]                         envir <- sys.frame(frame)
[13:13:54.288]                       }
[13:13:54.288]                     }
[13:13:54.288]                     sendCondition <<- function(cond) NULL
[13:13:54.288]                   }
[13:13:54.288]                 })
[13:13:54.288]                 withCallingHandlers({
[13:13:54.288]                   {
[13:13:54.288]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:54.288]                     if (!identical(...future.globals.maxSize.org, 
[13:13:54.288]                       ...future.globals.maxSize)) {
[13:13:54.288]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:54.288]                       on.exit(options(oopts), add = TRUE)
[13:13:54.288]                     }
[13:13:54.288]                     {
[13:13:54.288]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:54.288]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:54.288]                         USE.NAMES = FALSE)
[13:13:54.288]                       do.call(mapply, args = args)
[13:13:54.288]                     }
[13:13:54.288]                   }
[13:13:54.288]                 }, immediateCondition = function(cond) {
[13:13:54.288]                   sendCondition <- ...future.makeSendCondition()
[13:13:54.288]                   sendCondition(cond)
[13:13:54.288]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.288]                   {
[13:13:54.288]                     inherits <- base::inherits
[13:13:54.288]                     invokeRestart <- base::invokeRestart
[13:13:54.288]                     is.null <- base::is.null
[13:13:54.288]                     muffled <- FALSE
[13:13:54.288]                     if (inherits(cond, "message")) {
[13:13:54.288]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:54.288]                       if (muffled) 
[13:13:54.288]                         invokeRestart("muffleMessage")
[13:13:54.288]                     }
[13:13:54.288]                     else if (inherits(cond, "warning")) {
[13:13:54.288]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:54.288]                       if (muffled) 
[13:13:54.288]                         invokeRestart("muffleWarning")
[13:13:54.288]                     }
[13:13:54.288]                     else if (inherits(cond, "condition")) {
[13:13:54.288]                       if (!is.null(pattern)) {
[13:13:54.288]                         computeRestarts <- base::computeRestarts
[13:13:54.288]                         grepl <- base::grepl
[13:13:54.288]                         restarts <- computeRestarts(cond)
[13:13:54.288]                         for (restart in restarts) {
[13:13:54.288]                           name <- restart$name
[13:13:54.288]                           if (is.null(name)) 
[13:13:54.288]                             next
[13:13:54.288]                           if (!grepl(pattern, name)) 
[13:13:54.288]                             next
[13:13:54.288]                           invokeRestart(restart)
[13:13:54.288]                           muffled <- TRUE
[13:13:54.288]                           break
[13:13:54.288]                         }
[13:13:54.288]                       }
[13:13:54.288]                     }
[13:13:54.288]                     invisible(muffled)
[13:13:54.288]                   }
[13:13:54.288]                   muffleCondition(cond)
[13:13:54.288]                 })
[13:13:54.288]             }))
[13:13:54.288]             future::FutureResult(value = ...future.value$value, 
[13:13:54.288]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:54.288]                   ...future.rng), globalenv = if (FALSE) 
[13:13:54.288]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:54.288]                     ...future.globalenv.names))
[13:13:54.288]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:54.288]         }, condition = base::local({
[13:13:54.288]             c <- base::c
[13:13:54.288]             inherits <- base::inherits
[13:13:54.288]             invokeRestart <- base::invokeRestart
[13:13:54.288]             length <- base::length
[13:13:54.288]             list <- base::list
[13:13:54.288]             seq.int <- base::seq.int
[13:13:54.288]             signalCondition <- base::signalCondition
[13:13:54.288]             sys.calls <- base::sys.calls
[13:13:54.288]             `[[` <- base::`[[`
[13:13:54.288]             `+` <- base::`+`
[13:13:54.288]             `<<-` <- base::`<<-`
[13:13:54.288]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:54.288]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:54.288]                   3L)]
[13:13:54.288]             }
[13:13:54.288]             function(cond) {
[13:13:54.288]                 is_error <- inherits(cond, "error")
[13:13:54.288]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:54.288]                   NULL)
[13:13:54.288]                 if (is_error) {
[13:13:54.288]                   sessionInformation <- function() {
[13:13:54.288]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:54.288]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:54.288]                       search = base::search(), system = base::Sys.info())
[13:13:54.288]                   }
[13:13:54.288]                   ...future.conditions[[length(...future.conditions) + 
[13:13:54.288]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:54.288]                     cond$call), session = sessionInformation(), 
[13:13:54.288]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:54.288]                   signalCondition(cond)
[13:13:54.288]                 }
[13:13:54.288]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:54.288]                 "immediateCondition"))) {
[13:13:54.288]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:54.288]                   ...future.conditions[[length(...future.conditions) + 
[13:13:54.288]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:54.288]                   if (TRUE && !signal) {
[13:13:54.288]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.288]                     {
[13:13:54.288]                       inherits <- base::inherits
[13:13:54.288]                       invokeRestart <- base::invokeRestart
[13:13:54.288]                       is.null <- base::is.null
[13:13:54.288]                       muffled <- FALSE
[13:13:54.288]                       if (inherits(cond, "message")) {
[13:13:54.288]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:54.288]                         if (muffled) 
[13:13:54.288]                           invokeRestart("muffleMessage")
[13:13:54.288]                       }
[13:13:54.288]                       else if (inherits(cond, "warning")) {
[13:13:54.288]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:54.288]                         if (muffled) 
[13:13:54.288]                           invokeRestart("muffleWarning")
[13:13:54.288]                       }
[13:13:54.288]                       else if (inherits(cond, "condition")) {
[13:13:54.288]                         if (!is.null(pattern)) {
[13:13:54.288]                           computeRestarts <- base::computeRestarts
[13:13:54.288]                           grepl <- base::grepl
[13:13:54.288]                           restarts <- computeRestarts(cond)
[13:13:54.288]                           for (restart in restarts) {
[13:13:54.288]                             name <- restart$name
[13:13:54.288]                             if (is.null(name)) 
[13:13:54.288]                               next
[13:13:54.288]                             if (!grepl(pattern, name)) 
[13:13:54.288]                               next
[13:13:54.288]                             invokeRestart(restart)
[13:13:54.288]                             muffled <- TRUE
[13:13:54.288]                             break
[13:13:54.288]                           }
[13:13:54.288]                         }
[13:13:54.288]                       }
[13:13:54.288]                       invisible(muffled)
[13:13:54.288]                     }
[13:13:54.288]                     muffleCondition(cond, pattern = "^muffle")
[13:13:54.288]                   }
[13:13:54.288]                 }
[13:13:54.288]                 else {
[13:13:54.288]                   if (TRUE) {
[13:13:54.288]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.288]                     {
[13:13:54.288]                       inherits <- base::inherits
[13:13:54.288]                       invokeRestart <- base::invokeRestart
[13:13:54.288]                       is.null <- base::is.null
[13:13:54.288]                       muffled <- FALSE
[13:13:54.288]                       if (inherits(cond, "message")) {
[13:13:54.288]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:54.288]                         if (muffled) 
[13:13:54.288]                           invokeRestart("muffleMessage")
[13:13:54.288]                       }
[13:13:54.288]                       else if (inherits(cond, "warning")) {
[13:13:54.288]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:54.288]                         if (muffled) 
[13:13:54.288]                           invokeRestart("muffleWarning")
[13:13:54.288]                       }
[13:13:54.288]                       else if (inherits(cond, "condition")) {
[13:13:54.288]                         if (!is.null(pattern)) {
[13:13:54.288]                           computeRestarts <- base::computeRestarts
[13:13:54.288]                           grepl <- base::grepl
[13:13:54.288]                           restarts <- computeRestarts(cond)
[13:13:54.288]                           for (restart in restarts) {
[13:13:54.288]                             name <- restart$name
[13:13:54.288]                             if (is.null(name)) 
[13:13:54.288]                               next
[13:13:54.288]                             if (!grepl(pattern, name)) 
[13:13:54.288]                               next
[13:13:54.288]                             invokeRestart(restart)
[13:13:54.288]                             muffled <- TRUE
[13:13:54.288]                             break
[13:13:54.288]                           }
[13:13:54.288]                         }
[13:13:54.288]                       }
[13:13:54.288]                       invisible(muffled)
[13:13:54.288]                     }
[13:13:54.288]                     muffleCondition(cond, pattern = "^muffle")
[13:13:54.288]                   }
[13:13:54.288]                 }
[13:13:54.288]             }
[13:13:54.288]         }))
[13:13:54.288]     }, error = function(ex) {
[13:13:54.288]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:54.288]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:54.288]                 ...future.rng), started = ...future.startTime, 
[13:13:54.288]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:54.288]             version = "1.8"), class = "FutureResult")
[13:13:54.288]     }, finally = {
[13:13:54.288]         if (!identical(...future.workdir, getwd())) 
[13:13:54.288]             setwd(...future.workdir)
[13:13:54.288]         {
[13:13:54.288]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:54.288]                 ...future.oldOptions$nwarnings <- NULL
[13:13:54.288]             }
[13:13:54.288]             base::options(...future.oldOptions)
[13:13:54.288]             if (.Platform$OS.type == "windows") {
[13:13:54.288]                 old_names <- names(...future.oldEnvVars)
[13:13:54.288]                 envs <- base::Sys.getenv()
[13:13:54.288]                 names <- names(envs)
[13:13:54.288]                 common <- intersect(names, old_names)
[13:13:54.288]                 added <- setdiff(names, old_names)
[13:13:54.288]                 removed <- setdiff(old_names, names)
[13:13:54.288]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:54.288]                   envs[common]]
[13:13:54.288]                 NAMES <- toupper(changed)
[13:13:54.288]                 args <- list()
[13:13:54.288]                 for (kk in seq_along(NAMES)) {
[13:13:54.288]                   name <- changed[[kk]]
[13:13:54.288]                   NAME <- NAMES[[kk]]
[13:13:54.288]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.288]                     next
[13:13:54.288]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:54.288]                 }
[13:13:54.288]                 NAMES <- toupper(added)
[13:13:54.288]                 for (kk in seq_along(NAMES)) {
[13:13:54.288]                   name <- added[[kk]]
[13:13:54.288]                   NAME <- NAMES[[kk]]
[13:13:54.288]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.288]                     next
[13:13:54.288]                   args[[name]] <- ""
[13:13:54.288]                 }
[13:13:54.288]                 NAMES <- toupper(removed)
[13:13:54.288]                 for (kk in seq_along(NAMES)) {
[13:13:54.288]                   name <- removed[[kk]]
[13:13:54.288]                   NAME <- NAMES[[kk]]
[13:13:54.288]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.288]                     next
[13:13:54.288]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:54.288]                 }
[13:13:54.288]                 if (length(args) > 0) 
[13:13:54.288]                   base::do.call(base::Sys.setenv, args = args)
[13:13:54.288]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:54.288]             }
[13:13:54.288]             else {
[13:13:54.288]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:54.288]             }
[13:13:54.288]             {
[13:13:54.288]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:54.288]                   0L) {
[13:13:54.288]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:54.288]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:54.288]                   base::options(opts)
[13:13:54.288]                 }
[13:13:54.288]                 {
[13:13:54.288]                   {
[13:13:54.288]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:54.288]                     NULL
[13:13:54.288]                   }
[13:13:54.288]                   options(future.plan = NULL)
[13:13:54.288]                   if (is.na(NA_character_)) 
[13:13:54.288]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:54.288]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:54.288]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:54.288]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:54.288]                     envir = parent.frame()) 
[13:13:54.288]                   {
[13:13:54.288]                     if (is.function(workers)) 
[13:13:54.288]                       workers <- workers()
[13:13:54.288]                     workers <- structure(as.integer(workers), 
[13:13:54.288]                       class = class(workers))
[13:13:54.288]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:54.288]                       workers >= 1)
[13:13:54.288]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:54.288]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:54.288]                     }
[13:13:54.288]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:54.288]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:54.288]                       envir = envir)
[13:13:54.288]                     if (!future$lazy) 
[13:13:54.288]                       future <- run(future)
[13:13:54.288]                     invisible(future)
[13:13:54.288]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:54.288]                 }
[13:13:54.288]             }
[13:13:54.288]         }
[13:13:54.288]     })
[13:13:54.288]     if (TRUE) {
[13:13:54.288]         base::sink(type = "output", split = FALSE)
[13:13:54.288]         if (TRUE) {
[13:13:54.288]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:54.288]         }
[13:13:54.288]         else {
[13:13:54.288]             ...future.result["stdout"] <- base::list(NULL)
[13:13:54.288]         }
[13:13:54.288]         base::close(...future.stdout)
[13:13:54.288]         ...future.stdout <- NULL
[13:13:54.288]     }
[13:13:54.288]     ...future.result$conditions <- ...future.conditions
[13:13:54.288]     ...future.result$finished <- base::Sys.time()
[13:13:54.288]     ...future.result
[13:13:54.288] }
[13:13:54.293] Exporting 5 global objects (280 bytes) to cluster node #1 ...
[13:13:54.293] Exporting '...future.FUN' (56 bytes) to cluster node #1 ...
[13:13:54.294] Exporting '...future.FUN' (56 bytes) to cluster node #1 ... DONE
[13:13:54.294] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:54.294] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:54.295] Exporting '...future.elements_ii' (224 bytes) to cluster node #1 ...
[13:13:54.295] Exporting '...future.elements_ii' (224 bytes) to cluster node #1 ... DONE
[13:13:54.295] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:54.296] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:54.296] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:54.296] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:54.296] Exporting 5 global objects (280 bytes) to cluster node #1 ... DONE
[13:13:54.297] MultisessionFuture started
[13:13:54.297] - Launch lazy future ... done
[13:13:54.297] run() for 'MultisessionFuture' ... done
[13:13:54.298] Created future:
[13:13:54.312] receiveMessageFromWorker() for ClusterFuture ...
[13:13:54.313] - Validating connection of MultisessionFuture
[13:13:54.313] - received message: FutureResult
[13:13:54.313] - Received FutureResult
[13:13:54.313] - Erased future from FutureRegistry
[13:13:54.313] result() for ClusterFuture ...
[13:13:54.314] - result already collected: FutureResult
[13:13:54.314] result() for ClusterFuture ... done
[13:13:54.314] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:54.298] MultisessionFuture:
[13:13:54.298] Label: 'future_mapply-1'
[13:13:54.298] Expression:
[13:13:54.298] {
[13:13:54.298]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:54.298]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:54.298]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:54.298]         on.exit(options(oopts), add = TRUE)
[13:13:54.298]     }
[13:13:54.298]     {
[13:13:54.298]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:54.298]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:54.298]         do.call(mapply, args = args)
[13:13:54.298]     }
[13:13:54.298] }
[13:13:54.298] Lazy evaluation: FALSE
[13:13:54.298] Asynchronous evaluation: TRUE
[13:13:54.298] Local evaluation: TRUE
[13:13:54.298] Environment: R_GlobalEnv
[13:13:54.298] Capture standard output: TRUE
[13:13:54.298] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:54.298] Globals: 5 objects totaling 280 bytes (function '...future.FUN' of 56 bytes, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 224 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:54.298] Packages: <none>
[13:13:54.298] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:54.298] Resolved: TRUE
[13:13:54.298] Value: <not collected>
[13:13:54.298] Conditions captured: <none>
[13:13:54.298] Early signaling: FALSE
[13:13:54.298] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:54.298] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:54.314] Chunk #1 of 2 ... DONE
[13:13:54.314] Chunk #2 of 2 ...
[13:13:54.315]  - Finding globals in '...' for chunk #2 ...
[13:13:54.315] getGlobalsAndPackages() ...
[13:13:54.315] Searching for globals...
[13:13:54.315] 
[13:13:54.316] Searching for globals ... DONE
[13:13:54.316] - globals: [0] <none>
[13:13:54.316] getGlobalsAndPackages() ... DONE
[13:13:54.316]    + additional globals found: [n=0] 
[13:13:54.316]    + additional namespaces needed: [n=0] 
[13:13:54.316]  - Finding globals in '...' for chunk #2 ... DONE
[13:13:54.317]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:54.317]  - seeds: <none>
[13:13:54.317]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.317] getGlobalsAndPackages() ...
[13:13:54.317] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.317] Resolving globals: FALSE
[13:13:54.318] The total size of the 5 globals is 280 bytes (280 bytes)
[13:13:54.319] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 280 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (224 bytes of class 'list'), '...future.FUN' (56 bytes of class 'function') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:54.319] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.319] 
[13:13:54.319] getGlobalsAndPackages() ... DONE
[13:13:54.320] run() for 'Future' ...
[13:13:54.320] - state: 'created'
[13:13:54.320] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:54.334] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:54.334] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:54.334]   - Field: 'node'
[13:13:54.334]   - Field: 'label'
[13:13:54.335]   - Field: 'local'
[13:13:54.335]   - Field: 'owner'
[13:13:54.335]   - Field: 'envir'
[13:13:54.335]   - Field: 'workers'
[13:13:54.335]   - Field: 'packages'
[13:13:54.336]   - Field: 'gc'
[13:13:54.336]   - Field: 'conditions'
[13:13:54.336]   - Field: 'persistent'
[13:13:54.336]   - Field: 'expr'
[13:13:54.336]   - Field: 'uuid'
[13:13:54.336]   - Field: 'seed'
[13:13:54.337]   - Field: 'version'
[13:13:54.337]   - Field: 'result'
[13:13:54.337]   - Field: 'asynchronous'
[13:13:54.337]   - Field: 'calls'
[13:13:54.337]   - Field: 'globals'
[13:13:54.338]   - Field: 'stdout'
[13:13:54.338]   - Field: 'earlySignal'
[13:13:54.338]   - Field: 'lazy'
[13:13:54.338]   - Field: 'state'
[13:13:54.338] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:54.338] - Launch lazy future ...
[13:13:54.339] Packages needed by the future expression (n = 0): <none>
[13:13:54.339] Packages needed by future strategies (n = 0): <none>
[13:13:54.340] {
[13:13:54.340]     {
[13:13:54.340]         {
[13:13:54.340]             ...future.startTime <- base::Sys.time()
[13:13:54.340]             {
[13:13:54.340]                 {
[13:13:54.340]                   {
[13:13:54.340]                     {
[13:13:54.340]                       base::local({
[13:13:54.340]                         has_future <- base::requireNamespace("future", 
[13:13:54.340]                           quietly = TRUE)
[13:13:54.340]                         if (has_future) {
[13:13:54.340]                           ns <- base::getNamespace("future")
[13:13:54.340]                           version <- ns[[".package"]][["version"]]
[13:13:54.340]                           if (is.null(version)) 
[13:13:54.340]                             version <- utils::packageVersion("future")
[13:13:54.340]                         }
[13:13:54.340]                         else {
[13:13:54.340]                           version <- NULL
[13:13:54.340]                         }
[13:13:54.340]                         if (!has_future || version < "1.8.0") {
[13:13:54.340]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:54.340]                             "", base::R.version$version.string), 
[13:13:54.340]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:54.340]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:54.340]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:54.340]                               "release", "version")], collapse = " "), 
[13:13:54.340]                             hostname = base::Sys.info()[["nodename"]])
[13:13:54.340]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:54.340]                             info)
[13:13:54.340]                           info <- base::paste(info, collapse = "; ")
[13:13:54.340]                           if (!has_future) {
[13:13:54.340]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:54.340]                               info)
[13:13:54.340]                           }
[13:13:54.340]                           else {
[13:13:54.340]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:54.340]                               info, version)
[13:13:54.340]                           }
[13:13:54.340]                           base::stop(msg)
[13:13:54.340]                         }
[13:13:54.340]                       })
[13:13:54.340]                     }
[13:13:54.340]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:54.340]                     base::options(mc.cores = 1L)
[13:13:54.340]                   }
[13:13:54.340]                   options(future.plan = NULL)
[13:13:54.340]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:54.340]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:54.340]                 }
[13:13:54.340]                 ...future.workdir <- getwd()
[13:13:54.340]             }
[13:13:54.340]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:54.340]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:54.340]         }
[13:13:54.340]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:54.340]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:54.340]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:54.340]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:54.340]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:54.340]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:54.340]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:54.340]             base::names(...future.oldOptions))
[13:13:54.340]     }
[13:13:54.340]     if (FALSE) {
[13:13:54.340]     }
[13:13:54.340]     else {
[13:13:54.340]         if (TRUE) {
[13:13:54.340]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:54.340]                 open = "w")
[13:13:54.340]         }
[13:13:54.340]         else {
[13:13:54.340]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:54.340]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:54.340]         }
[13:13:54.340]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:54.340]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:54.340]             base::sink(type = "output", split = FALSE)
[13:13:54.340]             base::close(...future.stdout)
[13:13:54.340]         }, add = TRUE)
[13:13:54.340]     }
[13:13:54.340]     ...future.frame <- base::sys.nframe()
[13:13:54.340]     ...future.conditions <- base::list()
[13:13:54.340]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:54.340]     if (FALSE) {
[13:13:54.340]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:54.340]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:54.340]     }
[13:13:54.340]     ...future.result <- base::tryCatch({
[13:13:54.340]         base::withCallingHandlers({
[13:13:54.340]             ...future.value <- base::withVisible(base::local({
[13:13:54.340]                 ...future.makeSendCondition <- local({
[13:13:54.340]                   sendCondition <- NULL
[13:13:54.340]                   function(frame = 1L) {
[13:13:54.340]                     if (is.function(sendCondition)) 
[13:13:54.340]                       return(sendCondition)
[13:13:54.340]                     ns <- getNamespace("parallel")
[13:13:54.340]                     if (exists("sendData", mode = "function", 
[13:13:54.340]                       envir = ns)) {
[13:13:54.340]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:54.340]                         envir = ns)
[13:13:54.340]                       envir <- sys.frame(frame)
[13:13:54.340]                       master <- NULL
[13:13:54.340]                       while (!identical(envir, .GlobalEnv) && 
[13:13:54.340]                         !identical(envir, emptyenv())) {
[13:13:54.340]                         if (exists("master", mode = "list", envir = envir, 
[13:13:54.340]                           inherits = FALSE)) {
[13:13:54.340]                           master <- get("master", mode = "list", 
[13:13:54.340]                             envir = envir, inherits = FALSE)
[13:13:54.340]                           if (inherits(master, c("SOCKnode", 
[13:13:54.340]                             "SOCK0node"))) {
[13:13:54.340]                             sendCondition <<- function(cond) {
[13:13:54.340]                               data <- list(type = "VALUE", value = cond, 
[13:13:54.340]                                 success = TRUE)
[13:13:54.340]                               parallel_sendData(master, data)
[13:13:54.340]                             }
[13:13:54.340]                             return(sendCondition)
[13:13:54.340]                           }
[13:13:54.340]                         }
[13:13:54.340]                         frame <- frame + 1L
[13:13:54.340]                         envir <- sys.frame(frame)
[13:13:54.340]                       }
[13:13:54.340]                     }
[13:13:54.340]                     sendCondition <<- function(cond) NULL
[13:13:54.340]                   }
[13:13:54.340]                 })
[13:13:54.340]                 withCallingHandlers({
[13:13:54.340]                   {
[13:13:54.340]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:54.340]                     if (!identical(...future.globals.maxSize.org, 
[13:13:54.340]                       ...future.globals.maxSize)) {
[13:13:54.340]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:54.340]                       on.exit(options(oopts), add = TRUE)
[13:13:54.340]                     }
[13:13:54.340]                     {
[13:13:54.340]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:54.340]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:54.340]                         USE.NAMES = FALSE)
[13:13:54.340]                       do.call(mapply, args = args)
[13:13:54.340]                     }
[13:13:54.340]                   }
[13:13:54.340]                 }, immediateCondition = function(cond) {
[13:13:54.340]                   sendCondition <- ...future.makeSendCondition()
[13:13:54.340]                   sendCondition(cond)
[13:13:54.340]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.340]                   {
[13:13:54.340]                     inherits <- base::inherits
[13:13:54.340]                     invokeRestart <- base::invokeRestart
[13:13:54.340]                     is.null <- base::is.null
[13:13:54.340]                     muffled <- FALSE
[13:13:54.340]                     if (inherits(cond, "message")) {
[13:13:54.340]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:54.340]                       if (muffled) 
[13:13:54.340]                         invokeRestart("muffleMessage")
[13:13:54.340]                     }
[13:13:54.340]                     else if (inherits(cond, "warning")) {
[13:13:54.340]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:54.340]                       if (muffled) 
[13:13:54.340]                         invokeRestart("muffleWarning")
[13:13:54.340]                     }
[13:13:54.340]                     else if (inherits(cond, "condition")) {
[13:13:54.340]                       if (!is.null(pattern)) {
[13:13:54.340]                         computeRestarts <- base::computeRestarts
[13:13:54.340]                         grepl <- base::grepl
[13:13:54.340]                         restarts <- computeRestarts(cond)
[13:13:54.340]                         for (restart in restarts) {
[13:13:54.340]                           name <- restart$name
[13:13:54.340]                           if (is.null(name)) 
[13:13:54.340]                             next
[13:13:54.340]                           if (!grepl(pattern, name)) 
[13:13:54.340]                             next
[13:13:54.340]                           invokeRestart(restart)
[13:13:54.340]                           muffled <- TRUE
[13:13:54.340]                           break
[13:13:54.340]                         }
[13:13:54.340]                       }
[13:13:54.340]                     }
[13:13:54.340]                     invisible(muffled)
[13:13:54.340]                   }
[13:13:54.340]                   muffleCondition(cond)
[13:13:54.340]                 })
[13:13:54.340]             }))
[13:13:54.340]             future::FutureResult(value = ...future.value$value, 
[13:13:54.340]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:54.340]                   ...future.rng), globalenv = if (FALSE) 
[13:13:54.340]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:54.340]                     ...future.globalenv.names))
[13:13:54.340]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:54.340]         }, condition = base::local({
[13:13:54.340]             c <- base::c
[13:13:54.340]             inherits <- base::inherits
[13:13:54.340]             invokeRestart <- base::invokeRestart
[13:13:54.340]             length <- base::length
[13:13:54.340]             list <- base::list
[13:13:54.340]             seq.int <- base::seq.int
[13:13:54.340]             signalCondition <- base::signalCondition
[13:13:54.340]             sys.calls <- base::sys.calls
[13:13:54.340]             `[[` <- base::`[[`
[13:13:54.340]             `+` <- base::`+`
[13:13:54.340]             `<<-` <- base::`<<-`
[13:13:54.340]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:54.340]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:54.340]                   3L)]
[13:13:54.340]             }
[13:13:54.340]             function(cond) {
[13:13:54.340]                 is_error <- inherits(cond, "error")
[13:13:54.340]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:54.340]                   NULL)
[13:13:54.340]                 if (is_error) {
[13:13:54.340]                   sessionInformation <- function() {
[13:13:54.340]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:54.340]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:54.340]                       search = base::search(), system = base::Sys.info())
[13:13:54.340]                   }
[13:13:54.340]                   ...future.conditions[[length(...future.conditions) + 
[13:13:54.340]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:54.340]                     cond$call), session = sessionInformation(), 
[13:13:54.340]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:54.340]                   signalCondition(cond)
[13:13:54.340]                 }
[13:13:54.340]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:54.340]                 "immediateCondition"))) {
[13:13:54.340]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:54.340]                   ...future.conditions[[length(...future.conditions) + 
[13:13:54.340]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:54.340]                   if (TRUE && !signal) {
[13:13:54.340]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.340]                     {
[13:13:54.340]                       inherits <- base::inherits
[13:13:54.340]                       invokeRestart <- base::invokeRestart
[13:13:54.340]                       is.null <- base::is.null
[13:13:54.340]                       muffled <- FALSE
[13:13:54.340]                       if (inherits(cond, "message")) {
[13:13:54.340]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:54.340]                         if (muffled) 
[13:13:54.340]                           invokeRestart("muffleMessage")
[13:13:54.340]                       }
[13:13:54.340]                       else if (inherits(cond, "warning")) {
[13:13:54.340]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:54.340]                         if (muffled) 
[13:13:54.340]                           invokeRestart("muffleWarning")
[13:13:54.340]                       }
[13:13:54.340]                       else if (inherits(cond, "condition")) {
[13:13:54.340]                         if (!is.null(pattern)) {
[13:13:54.340]                           computeRestarts <- base::computeRestarts
[13:13:54.340]                           grepl <- base::grepl
[13:13:54.340]                           restarts <- computeRestarts(cond)
[13:13:54.340]                           for (restart in restarts) {
[13:13:54.340]                             name <- restart$name
[13:13:54.340]                             if (is.null(name)) 
[13:13:54.340]                               next
[13:13:54.340]                             if (!grepl(pattern, name)) 
[13:13:54.340]                               next
[13:13:54.340]                             invokeRestart(restart)
[13:13:54.340]                             muffled <- TRUE
[13:13:54.340]                             break
[13:13:54.340]                           }
[13:13:54.340]                         }
[13:13:54.340]                       }
[13:13:54.340]                       invisible(muffled)
[13:13:54.340]                     }
[13:13:54.340]                     muffleCondition(cond, pattern = "^muffle")
[13:13:54.340]                   }
[13:13:54.340]                 }
[13:13:54.340]                 else {
[13:13:54.340]                   if (TRUE) {
[13:13:54.340]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.340]                     {
[13:13:54.340]                       inherits <- base::inherits
[13:13:54.340]                       invokeRestart <- base::invokeRestart
[13:13:54.340]                       is.null <- base::is.null
[13:13:54.340]                       muffled <- FALSE
[13:13:54.340]                       if (inherits(cond, "message")) {
[13:13:54.340]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:54.340]                         if (muffled) 
[13:13:54.340]                           invokeRestart("muffleMessage")
[13:13:54.340]                       }
[13:13:54.340]                       else if (inherits(cond, "warning")) {
[13:13:54.340]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:54.340]                         if (muffled) 
[13:13:54.340]                           invokeRestart("muffleWarning")
[13:13:54.340]                       }
[13:13:54.340]                       else if (inherits(cond, "condition")) {
[13:13:54.340]                         if (!is.null(pattern)) {
[13:13:54.340]                           computeRestarts <- base::computeRestarts
[13:13:54.340]                           grepl <- base::grepl
[13:13:54.340]                           restarts <- computeRestarts(cond)
[13:13:54.340]                           for (restart in restarts) {
[13:13:54.340]                             name <- restart$name
[13:13:54.340]                             if (is.null(name)) 
[13:13:54.340]                               next
[13:13:54.340]                             if (!grepl(pattern, name)) 
[13:13:54.340]                               next
[13:13:54.340]                             invokeRestart(restart)
[13:13:54.340]                             muffled <- TRUE
[13:13:54.340]                             break
[13:13:54.340]                           }
[13:13:54.340]                         }
[13:13:54.340]                       }
[13:13:54.340]                       invisible(muffled)
[13:13:54.340]                     }
[13:13:54.340]                     muffleCondition(cond, pattern = "^muffle")
[13:13:54.340]                   }
[13:13:54.340]                 }
[13:13:54.340]             }
[13:13:54.340]         }))
[13:13:54.340]     }, error = function(ex) {
[13:13:54.340]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:54.340]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:54.340]                 ...future.rng), started = ...future.startTime, 
[13:13:54.340]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:54.340]             version = "1.8"), class = "FutureResult")
[13:13:54.340]     }, finally = {
[13:13:54.340]         if (!identical(...future.workdir, getwd())) 
[13:13:54.340]             setwd(...future.workdir)
[13:13:54.340]         {
[13:13:54.340]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:54.340]                 ...future.oldOptions$nwarnings <- NULL
[13:13:54.340]             }
[13:13:54.340]             base::options(...future.oldOptions)
[13:13:54.340]             if (.Platform$OS.type == "windows") {
[13:13:54.340]                 old_names <- names(...future.oldEnvVars)
[13:13:54.340]                 envs <- base::Sys.getenv()
[13:13:54.340]                 names <- names(envs)
[13:13:54.340]                 common <- intersect(names, old_names)
[13:13:54.340]                 added <- setdiff(names, old_names)
[13:13:54.340]                 removed <- setdiff(old_names, names)
[13:13:54.340]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:54.340]                   envs[common]]
[13:13:54.340]                 NAMES <- toupper(changed)
[13:13:54.340]                 args <- list()
[13:13:54.340]                 for (kk in seq_along(NAMES)) {
[13:13:54.340]                   name <- changed[[kk]]
[13:13:54.340]                   NAME <- NAMES[[kk]]
[13:13:54.340]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.340]                     next
[13:13:54.340]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:54.340]                 }
[13:13:54.340]                 NAMES <- toupper(added)
[13:13:54.340]                 for (kk in seq_along(NAMES)) {
[13:13:54.340]                   name <- added[[kk]]
[13:13:54.340]                   NAME <- NAMES[[kk]]
[13:13:54.340]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.340]                     next
[13:13:54.340]                   args[[name]] <- ""
[13:13:54.340]                 }
[13:13:54.340]                 NAMES <- toupper(removed)
[13:13:54.340]                 for (kk in seq_along(NAMES)) {
[13:13:54.340]                   name <- removed[[kk]]
[13:13:54.340]                   NAME <- NAMES[[kk]]
[13:13:54.340]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.340]                     next
[13:13:54.340]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:54.340]                 }
[13:13:54.340]                 if (length(args) > 0) 
[13:13:54.340]                   base::do.call(base::Sys.setenv, args = args)
[13:13:54.340]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:54.340]             }
[13:13:54.340]             else {
[13:13:54.340]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:54.340]             }
[13:13:54.340]             {
[13:13:54.340]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:54.340]                   0L) {
[13:13:54.340]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:54.340]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:54.340]                   base::options(opts)
[13:13:54.340]                 }
[13:13:54.340]                 {
[13:13:54.340]                   {
[13:13:54.340]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:54.340]                     NULL
[13:13:54.340]                   }
[13:13:54.340]                   options(future.plan = NULL)
[13:13:54.340]                   if (is.na(NA_character_)) 
[13:13:54.340]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:54.340]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:54.340]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:54.340]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:54.340]                     envir = parent.frame()) 
[13:13:54.340]                   {
[13:13:54.340]                     if (is.function(workers)) 
[13:13:54.340]                       workers <- workers()
[13:13:54.340]                     workers <- structure(as.integer(workers), 
[13:13:54.340]                       class = class(workers))
[13:13:54.340]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:54.340]                       workers >= 1)
[13:13:54.340]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:54.340]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:54.340]                     }
[13:13:54.340]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:54.340]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:54.340]                       envir = envir)
[13:13:54.340]                     if (!future$lazy) 
[13:13:54.340]                       future <- run(future)
[13:13:54.340]                     invisible(future)
[13:13:54.340]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:54.340]                 }
[13:13:54.340]             }
[13:13:54.340]         }
[13:13:54.340]     })
[13:13:54.340]     if (TRUE) {
[13:13:54.340]         base::sink(type = "output", split = FALSE)
[13:13:54.340]         if (TRUE) {
[13:13:54.340]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:54.340]         }
[13:13:54.340]         else {
[13:13:54.340]             ...future.result["stdout"] <- base::list(NULL)
[13:13:54.340]         }
[13:13:54.340]         base::close(...future.stdout)
[13:13:54.340]         ...future.stdout <- NULL
[13:13:54.340]     }
[13:13:54.340]     ...future.result$conditions <- ...future.conditions
[13:13:54.340]     ...future.result$finished <- base::Sys.time()
[13:13:54.340]     ...future.result
[13:13:54.340] }
[13:13:54.345] Exporting 5 global objects (280 bytes) to cluster node #1 ...
[13:13:54.345] Exporting '...future.FUN' (56 bytes) to cluster node #1 ...
[13:13:54.345] Exporting '...future.FUN' (56 bytes) to cluster node #1 ... DONE
[13:13:54.346] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:54.346] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:54.346] Exporting '...future.elements_ii' (224 bytes) to cluster node #1 ...
[13:13:54.347] Exporting '...future.elements_ii' (224 bytes) to cluster node #1 ... DONE
[13:13:54.347] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:54.348] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:54.348] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:54.348] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:54.349] Exporting 5 global objects (280 bytes) to cluster node #1 ... DONE
[13:13:54.349] MultisessionFuture started
[13:13:54.349] - Launch lazy future ... done
[13:13:54.350] run() for 'MultisessionFuture' ... done
[13:13:54.350] Created future:
[13:13:54.365] receiveMessageFromWorker() for ClusterFuture ...
[13:13:54.366] - Validating connection of MultisessionFuture
[13:13:54.366] - received message: FutureResult
[13:13:54.366] - Received FutureResult
[13:13:54.366] - Erased future from FutureRegistry
[13:13:54.366] result() for ClusterFuture ...
[13:13:54.367] - result already collected: FutureResult
[13:13:54.367] result() for ClusterFuture ... done
[13:13:54.367] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:54.350] MultisessionFuture:
[13:13:54.350] Label: 'future_mapply-2'
[13:13:54.350] Expression:
[13:13:54.350] {
[13:13:54.350]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:54.350]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:54.350]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:54.350]         on.exit(options(oopts), add = TRUE)
[13:13:54.350]     }
[13:13:54.350]     {
[13:13:54.350]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:54.350]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:54.350]         do.call(mapply, args = args)
[13:13:54.350]     }
[13:13:54.350] }
[13:13:54.350] Lazy evaluation: FALSE
[13:13:54.350] Asynchronous evaluation: TRUE
[13:13:54.350] Local evaluation: TRUE
[13:13:54.350] Environment: R_GlobalEnv
[13:13:54.350] Capture standard output: TRUE
[13:13:54.350] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:54.350] Globals: 5 objects totaling 280 bytes (function '...future.FUN' of 56 bytes, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 224 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:54.350] Packages: <none>
[13:13:54.350] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:54.350] Resolved: TRUE
[13:13:54.350] Value: <not collected>
[13:13:54.350] Conditions captured: <none>
[13:13:54.350] Early signaling: FALSE
[13:13:54.350] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:54.350] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:54.367] Chunk #2 of 2 ... DONE
[13:13:54.368] Launching 2 futures (chunks) ... DONE
[13:13:54.368] Resolving 2 futures (chunks) ...
[13:13:54.368] resolve() on list ...
[13:13:54.368]  recursive: 0
[13:13:54.368]  length: 2
[13:13:54.368] 
[13:13:54.368] Future #1
[13:13:54.369] result() for ClusterFuture ...
[13:13:54.369] - result already collected: FutureResult
[13:13:54.369] result() for ClusterFuture ... done
[13:13:54.369] result() for ClusterFuture ...
[13:13:54.369] - result already collected: FutureResult
[13:13:54.369] result() for ClusterFuture ... done
[13:13:54.370] signalConditionsASAP(MultisessionFuture, pos=1) ...
[13:13:54.370] - nx: 2
[13:13:54.370] - relay: TRUE
[13:13:54.370] - stdout: TRUE
[13:13:54.370] - signal: TRUE
[13:13:54.370] - resignal: FALSE
[13:13:54.371] - force: TRUE
[13:13:54.371] - relayed: [n=2] FALSE, FALSE
[13:13:54.371] - queued futures: [n=2] FALSE, FALSE
[13:13:54.371]  - until=1
[13:13:54.371]  - relaying element #1
[13:13:54.371] result() for ClusterFuture ...
[13:13:54.372] - result already collected: FutureResult
[13:13:54.372] result() for ClusterFuture ... done
[13:13:54.372] result() for ClusterFuture ...
[13:13:54.372] - result already collected: FutureResult
[13:13:54.372] result() for ClusterFuture ... done
[13:13:54.372] result() for ClusterFuture ...
[13:13:54.373] - result already collected: FutureResult
[13:13:54.373] result() for ClusterFuture ... done
[13:13:54.373] result() for ClusterFuture ...
[13:13:54.373] - result already collected: FutureResult
[13:13:54.373] result() for ClusterFuture ... done
[13:13:54.373] - relayed: [n=2] TRUE, FALSE
[13:13:54.373] - queued futures: [n=2] TRUE, FALSE
[13:13:54.374] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[13:13:54.374]  length: 1 (resolved future 1)
[13:13:54.374] Future #2
[13:13:54.374] result() for ClusterFuture ...
[13:13:54.374] - result already collected: FutureResult
[13:13:54.374] result() for ClusterFuture ... done
[13:13:54.375] result() for ClusterFuture ...
[13:13:54.375] - result already collected: FutureResult
[13:13:54.375] result() for ClusterFuture ... done
[13:13:54.375] signalConditionsASAP(MultisessionFuture, pos=2) ...
[13:13:54.375] - nx: 2
[13:13:54.375] - relay: TRUE
[13:13:54.376] - stdout: TRUE
[13:13:54.376] - signal: TRUE
[13:13:54.376] - resignal: FALSE
[13:13:54.376] - force: TRUE
[13:13:54.376] - relayed: [n=2] TRUE, FALSE
[13:13:54.376] - queued futures: [n=2] TRUE, FALSE
[13:13:54.377]  - until=2
[13:13:54.377]  - relaying element #2
[13:13:54.377] result() for ClusterFuture ...
[13:13:54.377] - result already collected: FutureResult
[13:13:54.377] result() for ClusterFuture ... done
[13:13:54.377] result() for ClusterFuture ...
[13:13:54.377] - result already collected: FutureResult
[13:13:54.378] result() for ClusterFuture ... done
[13:13:54.378] result() for ClusterFuture ...
[13:13:54.378] - result already collected: FutureResult
[13:13:54.378] result() for ClusterFuture ... done
[13:13:54.378] result() for ClusterFuture ...
[13:13:54.379] - result already collected: FutureResult
[13:13:54.379] result() for ClusterFuture ... done
[13:13:54.379] - relayed: [n=2] TRUE, TRUE
[13:13:54.379] - queued futures: [n=2] TRUE, TRUE
[13:13:54.379] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[13:13:54.379]  length: 0 (resolved future 2)
[13:13:54.379] Relaying remaining futures
[13:13:54.380] signalConditionsASAP(NULL, pos=0) ...
[13:13:54.380] - nx: 2
[13:13:54.380] - relay: TRUE
[13:13:54.380] - stdout: TRUE
[13:13:54.380] - signal: TRUE
[13:13:54.380] - resignal: FALSE
[13:13:54.381] - force: TRUE
[13:13:54.381] - relayed: [n=2] TRUE, TRUE
[13:13:54.381] - queued futures: [n=2] TRUE, TRUE
 - flush all
[13:13:54.381] - relayed: [n=2] TRUE, TRUE
[13:13:54.381] - queued futures: [n=2] TRUE, TRUE
[13:13:54.381] signalConditionsASAP(NULL, pos=0) ... done
[13:13:54.382] resolve() on list ... DONE
[13:13:54.382] result() for ClusterFuture ...
[13:13:54.382] - result already collected: FutureResult
[13:13:54.382] result() for ClusterFuture ... done
[13:13:54.382] result() for ClusterFuture ...
[13:13:54.382] - result already collected: FutureResult
[13:13:54.383] result() for ClusterFuture ... done
[13:13:54.383] result() for ClusterFuture ...
[13:13:54.383] - result already collected: FutureResult
[13:13:54.383] result() for ClusterFuture ... done
[13:13:54.383] result() for ClusterFuture ...
[13:13:54.383] - result already collected: FutureResult
[13:13:54.383] result() for ClusterFuture ... done
[13:13:54.384]  - Number of value chunks collected: 2
[13:13:54.384] Resolving 2 futures (chunks) ... DONE
[13:13:54.384] Reducing values from 2 chunks ...
[13:13:54.384]  - Number of values collected after concatenation: 4
[13:13:54.384]  - Number of values expected: 4
[13:13:54.384] Reducing values from 2 chunks ... DONE
[13:13:54.385] future_mapply() ... DONE
[13:13:54.385] future_mapply() ...
[13:13:54.387] Number of chunks: 2
[13:13:54.388] getGlobalsAndPackagesXApply() ...
[13:13:54.388]  - future.globals: TRUE
[13:13:54.388] getGlobalsAndPackages() ...
[13:13:54.388] Searching for globals...
[13:13:54.389] - globals found: [1] 'FUN'
[13:13:54.389] Searching for globals ... DONE
[13:13:54.389] Resolving globals: FALSE
[13:13:54.390] The total size of the 1 globals is 56 bytes (56 bytes)
[13:13:54.390] The total size of the 1 globals exported for future expression ('FUN()') is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (56 bytes of class 'function')
[13:13:54.390] - globals: [1] 'FUN'
[13:13:54.390] 
[13:13:54.390] getGlobalsAndPackages() ... DONE
[13:13:54.391]  - globals found/used: [n=1] 'FUN'
[13:13:54.391]  - needed namespaces: [n=0] 
[13:13:54.391] Finding globals ... DONE
[13:13:54.391] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:54.391] List of 2
[13:13:54.391]  $ ...future.FUN:function (x, ...)  
[13:13:54.391]  $ MoreArgs     : NULL
[13:13:54.391]  - attr(*, "where")=List of 2
[13:13:54.391]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:54.391]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:54.391]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:54.391]  - attr(*, "resolved")= logi FALSE
[13:13:54.391]  - attr(*, "total_size")= num NA
[13:13:54.395] Packages to be attached in all futures: [n=0] 
[13:13:54.395] getGlobalsAndPackagesXApply() ... DONE
[13:13:54.395] Number of futures (= number of chunks): 2
[13:13:54.395] Launching 2 futures (chunks) ...
[13:13:54.395] Chunk #1 of 2 ...
[13:13:54.396]  - Finding globals in '...' for chunk #1 ...
[13:13:54.396] getGlobalsAndPackages() ...
[13:13:54.396] Searching for globals...
[13:13:54.396] 
[13:13:54.397] Searching for globals ... DONE
[13:13:54.397] - globals: [0] <none>
[13:13:54.397] getGlobalsAndPackages() ... DONE
[13:13:54.397]    + additional globals found: [n=0] 
[13:13:54.397]    + additional namespaces needed: [n=0] 
[13:13:54.397]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:54.398]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:54.398]  - seeds: <none>
[13:13:54.398]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.398] getGlobalsAndPackages() ...
[13:13:54.398] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.398] Resolving globals: FALSE
[13:13:54.399] The total size of the 5 globals is 280 bytes (280 bytes)
[13:13:54.400] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 280 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (224 bytes of class 'list'), '...future.FUN' (56 bytes of class 'function') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:54.400] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.400] 
[13:13:54.400] getGlobalsAndPackages() ... DONE
[13:13:54.400] run() for 'Future' ...
[13:13:54.401] - state: 'created'
[13:13:54.401] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:54.415] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:54.415] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:54.415]   - Field: 'node'
[13:13:54.416]   - Field: 'label'
[13:13:54.416]   - Field: 'local'
[13:13:54.416]   - Field: 'owner'
[13:13:54.416]   - Field: 'envir'
[13:13:54.416]   - Field: 'workers'
[13:13:54.417]   - Field: 'packages'
[13:13:54.417]   - Field: 'gc'
[13:13:54.417]   - Field: 'conditions'
[13:13:54.417]   - Field: 'persistent'
[13:13:54.417]   - Field: 'expr'
[13:13:54.417]   - Field: 'uuid'
[13:13:54.418]   - Field: 'seed'
[13:13:54.418]   - Field: 'version'
[13:13:54.418]   - Field: 'result'
[13:13:54.418]   - Field: 'asynchronous'
[13:13:54.418]   - Field: 'calls'
[13:13:54.419]   - Field: 'globals'
[13:13:54.419]   - Field: 'stdout'
[13:13:54.419]   - Field: 'earlySignal'
[13:13:54.419]   - Field: 'lazy'
[13:13:54.419]   - Field: 'state'
[13:13:54.419] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:54.420] - Launch lazy future ...
[13:13:54.420] Packages needed by the future expression (n = 0): <none>
[13:13:54.420] Packages needed by future strategies (n = 0): <none>
[13:13:54.421] {
[13:13:54.421]     {
[13:13:54.421]         {
[13:13:54.421]             ...future.startTime <- base::Sys.time()
[13:13:54.421]             {
[13:13:54.421]                 {
[13:13:54.421]                   {
[13:13:54.421]                     {
[13:13:54.421]                       base::local({
[13:13:54.421]                         has_future <- base::requireNamespace("future", 
[13:13:54.421]                           quietly = TRUE)
[13:13:54.421]                         if (has_future) {
[13:13:54.421]                           ns <- base::getNamespace("future")
[13:13:54.421]                           version <- ns[[".package"]][["version"]]
[13:13:54.421]                           if (is.null(version)) 
[13:13:54.421]                             version <- utils::packageVersion("future")
[13:13:54.421]                         }
[13:13:54.421]                         else {
[13:13:54.421]                           version <- NULL
[13:13:54.421]                         }
[13:13:54.421]                         if (!has_future || version < "1.8.0") {
[13:13:54.421]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:54.421]                             "", base::R.version$version.string), 
[13:13:54.421]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:54.421]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:54.421]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:54.421]                               "release", "version")], collapse = " "), 
[13:13:54.421]                             hostname = base::Sys.info()[["nodename"]])
[13:13:54.421]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:54.421]                             info)
[13:13:54.421]                           info <- base::paste(info, collapse = "; ")
[13:13:54.421]                           if (!has_future) {
[13:13:54.421]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:54.421]                               info)
[13:13:54.421]                           }
[13:13:54.421]                           else {
[13:13:54.421]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:54.421]                               info, version)
[13:13:54.421]                           }
[13:13:54.421]                           base::stop(msg)
[13:13:54.421]                         }
[13:13:54.421]                       })
[13:13:54.421]                     }
[13:13:54.421]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:54.421]                     base::options(mc.cores = 1L)
[13:13:54.421]                   }
[13:13:54.421]                   options(future.plan = NULL)
[13:13:54.421]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:54.421]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:54.421]                 }
[13:13:54.421]                 ...future.workdir <- getwd()
[13:13:54.421]             }
[13:13:54.421]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:54.421]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:54.421]         }
[13:13:54.421]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:54.421]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:54.421]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:54.421]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:54.421]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:54.421]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:54.421]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:54.421]             base::names(...future.oldOptions))
[13:13:54.421]     }
[13:13:54.421]     if (FALSE) {
[13:13:54.421]     }
[13:13:54.421]     else {
[13:13:54.421]         if (TRUE) {
[13:13:54.421]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:54.421]                 open = "w")
[13:13:54.421]         }
[13:13:54.421]         else {
[13:13:54.421]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:54.421]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:54.421]         }
[13:13:54.421]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:54.421]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:54.421]             base::sink(type = "output", split = FALSE)
[13:13:54.421]             base::close(...future.stdout)
[13:13:54.421]         }, add = TRUE)
[13:13:54.421]     }
[13:13:54.421]     ...future.frame <- base::sys.nframe()
[13:13:54.421]     ...future.conditions <- base::list()
[13:13:54.421]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:54.421]     if (FALSE) {
[13:13:54.421]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:54.421]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:54.421]     }
[13:13:54.421]     ...future.result <- base::tryCatch({
[13:13:54.421]         base::withCallingHandlers({
[13:13:54.421]             ...future.value <- base::withVisible(base::local({
[13:13:54.421]                 ...future.makeSendCondition <- local({
[13:13:54.421]                   sendCondition <- NULL
[13:13:54.421]                   function(frame = 1L) {
[13:13:54.421]                     if (is.function(sendCondition)) 
[13:13:54.421]                       return(sendCondition)
[13:13:54.421]                     ns <- getNamespace("parallel")
[13:13:54.421]                     if (exists("sendData", mode = "function", 
[13:13:54.421]                       envir = ns)) {
[13:13:54.421]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:54.421]                         envir = ns)
[13:13:54.421]                       envir <- sys.frame(frame)
[13:13:54.421]                       master <- NULL
[13:13:54.421]                       while (!identical(envir, .GlobalEnv) && 
[13:13:54.421]                         !identical(envir, emptyenv())) {
[13:13:54.421]                         if (exists("master", mode = "list", envir = envir, 
[13:13:54.421]                           inherits = FALSE)) {
[13:13:54.421]                           master <- get("master", mode = "list", 
[13:13:54.421]                             envir = envir, inherits = FALSE)
[13:13:54.421]                           if (inherits(master, c("SOCKnode", 
[13:13:54.421]                             "SOCK0node"))) {
[13:13:54.421]                             sendCondition <<- function(cond) {
[13:13:54.421]                               data <- list(type = "VALUE", value = cond, 
[13:13:54.421]                                 success = TRUE)
[13:13:54.421]                               parallel_sendData(master, data)
[13:13:54.421]                             }
[13:13:54.421]                             return(sendCondition)
[13:13:54.421]                           }
[13:13:54.421]                         }
[13:13:54.421]                         frame <- frame + 1L
[13:13:54.421]                         envir <- sys.frame(frame)
[13:13:54.421]                       }
[13:13:54.421]                     }
[13:13:54.421]                     sendCondition <<- function(cond) NULL
[13:13:54.421]                   }
[13:13:54.421]                 })
[13:13:54.421]                 withCallingHandlers({
[13:13:54.421]                   {
[13:13:54.421]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:54.421]                     if (!identical(...future.globals.maxSize.org, 
[13:13:54.421]                       ...future.globals.maxSize)) {
[13:13:54.421]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:54.421]                       on.exit(options(oopts), add = TRUE)
[13:13:54.421]                     }
[13:13:54.421]                     {
[13:13:54.421]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:54.421]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:54.421]                         USE.NAMES = FALSE)
[13:13:54.421]                       do.call(mapply, args = args)
[13:13:54.421]                     }
[13:13:54.421]                   }
[13:13:54.421]                 }, immediateCondition = function(cond) {
[13:13:54.421]                   sendCondition <- ...future.makeSendCondition()
[13:13:54.421]                   sendCondition(cond)
[13:13:54.421]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.421]                   {
[13:13:54.421]                     inherits <- base::inherits
[13:13:54.421]                     invokeRestart <- base::invokeRestart
[13:13:54.421]                     is.null <- base::is.null
[13:13:54.421]                     muffled <- FALSE
[13:13:54.421]                     if (inherits(cond, "message")) {
[13:13:54.421]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:54.421]                       if (muffled) 
[13:13:54.421]                         invokeRestart("muffleMessage")
[13:13:54.421]                     }
[13:13:54.421]                     else if (inherits(cond, "warning")) {
[13:13:54.421]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:54.421]                       if (muffled) 
[13:13:54.421]                         invokeRestart("muffleWarning")
[13:13:54.421]                     }
[13:13:54.421]                     else if (inherits(cond, "condition")) {
[13:13:54.421]                       if (!is.null(pattern)) {
[13:13:54.421]                         computeRestarts <- base::computeRestarts
[13:13:54.421]                         grepl <- base::grepl
[13:13:54.421]                         restarts <- computeRestarts(cond)
[13:13:54.421]                         for (restart in restarts) {
[13:13:54.421]                           name <- restart$name
[13:13:54.421]                           if (is.null(name)) 
[13:13:54.421]                             next
[13:13:54.421]                           if (!grepl(pattern, name)) 
[13:13:54.421]                             next
[13:13:54.421]                           invokeRestart(restart)
[13:13:54.421]                           muffled <- TRUE
[13:13:54.421]                           break
[13:13:54.421]                         }
[13:13:54.421]                       }
[13:13:54.421]                     }
[13:13:54.421]                     invisible(muffled)
[13:13:54.421]                   }
[13:13:54.421]                   muffleCondition(cond)
[13:13:54.421]                 })
[13:13:54.421]             }))
[13:13:54.421]             future::FutureResult(value = ...future.value$value, 
[13:13:54.421]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:54.421]                   ...future.rng), globalenv = if (FALSE) 
[13:13:54.421]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:54.421]                     ...future.globalenv.names))
[13:13:54.421]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:54.421]         }, condition = base::local({
[13:13:54.421]             c <- base::c
[13:13:54.421]             inherits <- base::inherits
[13:13:54.421]             invokeRestart <- base::invokeRestart
[13:13:54.421]             length <- base::length
[13:13:54.421]             list <- base::list
[13:13:54.421]             seq.int <- base::seq.int
[13:13:54.421]             signalCondition <- base::signalCondition
[13:13:54.421]             sys.calls <- base::sys.calls
[13:13:54.421]             `[[` <- base::`[[`
[13:13:54.421]             `+` <- base::`+`
[13:13:54.421]             `<<-` <- base::`<<-`
[13:13:54.421]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:54.421]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:54.421]                   3L)]
[13:13:54.421]             }
[13:13:54.421]             function(cond) {
[13:13:54.421]                 is_error <- inherits(cond, "error")
[13:13:54.421]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:54.421]                   NULL)
[13:13:54.421]                 if (is_error) {
[13:13:54.421]                   sessionInformation <- function() {
[13:13:54.421]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:54.421]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:54.421]                       search = base::search(), system = base::Sys.info())
[13:13:54.421]                   }
[13:13:54.421]                   ...future.conditions[[length(...future.conditions) + 
[13:13:54.421]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:54.421]                     cond$call), session = sessionInformation(), 
[13:13:54.421]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:54.421]                   signalCondition(cond)
[13:13:54.421]                 }
[13:13:54.421]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:54.421]                 "immediateCondition"))) {
[13:13:54.421]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:54.421]                   ...future.conditions[[length(...future.conditions) + 
[13:13:54.421]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:54.421]                   if (TRUE && !signal) {
[13:13:54.421]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.421]                     {
[13:13:54.421]                       inherits <- base::inherits
[13:13:54.421]                       invokeRestart <- base::invokeRestart
[13:13:54.421]                       is.null <- base::is.null
[13:13:54.421]                       muffled <- FALSE
[13:13:54.421]                       if (inherits(cond, "message")) {
[13:13:54.421]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:54.421]                         if (muffled) 
[13:13:54.421]                           invokeRestart("muffleMessage")
[13:13:54.421]                       }
[13:13:54.421]                       else if (inherits(cond, "warning")) {
[13:13:54.421]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:54.421]                         if (muffled) 
[13:13:54.421]                           invokeRestart("muffleWarning")
[13:13:54.421]                       }
[13:13:54.421]                       else if (inherits(cond, "condition")) {
[13:13:54.421]                         if (!is.null(pattern)) {
[13:13:54.421]                           computeRestarts <- base::computeRestarts
[13:13:54.421]                           grepl <- base::grepl
[13:13:54.421]                           restarts <- computeRestarts(cond)
[13:13:54.421]                           for (restart in restarts) {
[13:13:54.421]                             name <- restart$name
[13:13:54.421]                             if (is.null(name)) 
[13:13:54.421]                               next
[13:13:54.421]                             if (!grepl(pattern, name)) 
[13:13:54.421]                               next
[13:13:54.421]                             invokeRestart(restart)
[13:13:54.421]                             muffled <- TRUE
[13:13:54.421]                             break
[13:13:54.421]                           }
[13:13:54.421]                         }
[13:13:54.421]                       }
[13:13:54.421]                       invisible(muffled)
[13:13:54.421]                     }
[13:13:54.421]                     muffleCondition(cond, pattern = "^muffle")
[13:13:54.421]                   }
[13:13:54.421]                 }
[13:13:54.421]                 else {
[13:13:54.421]                   if (TRUE) {
[13:13:54.421]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.421]                     {
[13:13:54.421]                       inherits <- base::inherits
[13:13:54.421]                       invokeRestart <- base::invokeRestart
[13:13:54.421]                       is.null <- base::is.null
[13:13:54.421]                       muffled <- FALSE
[13:13:54.421]                       if (inherits(cond, "message")) {
[13:13:54.421]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:54.421]                         if (muffled) 
[13:13:54.421]                           invokeRestart("muffleMessage")
[13:13:54.421]                       }
[13:13:54.421]                       else if (inherits(cond, "warning")) {
[13:13:54.421]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:54.421]                         if (muffled) 
[13:13:54.421]                           invokeRestart("muffleWarning")
[13:13:54.421]                       }
[13:13:54.421]                       else if (inherits(cond, "condition")) {
[13:13:54.421]                         if (!is.null(pattern)) {
[13:13:54.421]                           computeRestarts <- base::computeRestarts
[13:13:54.421]                           grepl <- base::grepl
[13:13:54.421]                           restarts <- computeRestarts(cond)
[13:13:54.421]                           for (restart in restarts) {
[13:13:54.421]                             name <- restart$name
[13:13:54.421]                             if (is.null(name)) 
[13:13:54.421]                               next
[13:13:54.421]                             if (!grepl(pattern, name)) 
[13:13:54.421]                               next
[13:13:54.421]                             invokeRestart(restart)
[13:13:54.421]                             muffled <- TRUE
[13:13:54.421]                             break
[13:13:54.421]                           }
[13:13:54.421]                         }
[13:13:54.421]                       }
[13:13:54.421]                       invisible(muffled)
[13:13:54.421]                     }
[13:13:54.421]                     muffleCondition(cond, pattern = "^muffle")
[13:13:54.421]                   }
[13:13:54.421]                 }
[13:13:54.421]             }
[13:13:54.421]         }))
[13:13:54.421]     }, error = function(ex) {
[13:13:54.421]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:54.421]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:54.421]                 ...future.rng), started = ...future.startTime, 
[13:13:54.421]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:54.421]             version = "1.8"), class = "FutureResult")
[13:13:54.421]     }, finally = {
[13:13:54.421]         if (!identical(...future.workdir, getwd())) 
[13:13:54.421]             setwd(...future.workdir)
[13:13:54.421]         {
[13:13:54.421]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:54.421]                 ...future.oldOptions$nwarnings <- NULL
[13:13:54.421]             }
[13:13:54.421]             base::options(...future.oldOptions)
[13:13:54.421]             if (.Platform$OS.type == "windows") {
[13:13:54.421]                 old_names <- names(...future.oldEnvVars)
[13:13:54.421]                 envs <- base::Sys.getenv()
[13:13:54.421]                 names <- names(envs)
[13:13:54.421]                 common <- intersect(names, old_names)
[13:13:54.421]                 added <- setdiff(names, old_names)
[13:13:54.421]                 removed <- setdiff(old_names, names)
[13:13:54.421]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:54.421]                   envs[common]]
[13:13:54.421]                 NAMES <- toupper(changed)
[13:13:54.421]                 args <- list()
[13:13:54.421]                 for (kk in seq_along(NAMES)) {
[13:13:54.421]                   name <- changed[[kk]]
[13:13:54.421]                   NAME <- NAMES[[kk]]
[13:13:54.421]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.421]                     next
[13:13:54.421]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:54.421]                 }
[13:13:54.421]                 NAMES <- toupper(added)
[13:13:54.421]                 for (kk in seq_along(NAMES)) {
[13:13:54.421]                   name <- added[[kk]]
[13:13:54.421]                   NAME <- NAMES[[kk]]
[13:13:54.421]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.421]                     next
[13:13:54.421]                   args[[name]] <- ""
[13:13:54.421]                 }
[13:13:54.421]                 NAMES <- toupper(removed)
[13:13:54.421]                 for (kk in seq_along(NAMES)) {
[13:13:54.421]                   name <- removed[[kk]]
[13:13:54.421]                   NAME <- NAMES[[kk]]
[13:13:54.421]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.421]                     next
[13:13:54.421]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:54.421]                 }
[13:13:54.421]                 if (length(args) > 0) 
[13:13:54.421]                   base::do.call(base::Sys.setenv, args = args)
[13:13:54.421]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:54.421]             }
[13:13:54.421]             else {
[13:13:54.421]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:54.421]             }
[13:13:54.421]             {
[13:13:54.421]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:54.421]                   0L) {
[13:13:54.421]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:54.421]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:54.421]                   base::options(opts)
[13:13:54.421]                 }
[13:13:54.421]                 {
[13:13:54.421]                   {
[13:13:54.421]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:54.421]                     NULL
[13:13:54.421]                   }
[13:13:54.421]                   options(future.plan = NULL)
[13:13:54.421]                   if (is.na(NA_character_)) 
[13:13:54.421]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:54.421]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:54.421]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:54.421]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:54.421]                     envir = parent.frame()) 
[13:13:54.421]                   {
[13:13:54.421]                     if (is.function(workers)) 
[13:13:54.421]                       workers <- workers()
[13:13:54.421]                     workers <- structure(as.integer(workers), 
[13:13:54.421]                       class = class(workers))
[13:13:54.421]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:54.421]                       workers >= 1)
[13:13:54.421]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:54.421]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:54.421]                     }
[13:13:54.421]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:54.421]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:54.421]                       envir = envir)
[13:13:54.421]                     if (!future$lazy) 
[13:13:54.421]                       future <- run(future)
[13:13:54.421]                     invisible(future)
[13:13:54.421]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:54.421]                 }
[13:13:54.421]             }
[13:13:54.421]         }
[13:13:54.421]     })
[13:13:54.421]     if (TRUE) {
[13:13:54.421]         base::sink(type = "output", split = FALSE)
[13:13:54.421]         if (TRUE) {
[13:13:54.421]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:54.421]         }
[13:13:54.421]         else {
[13:13:54.421]             ...future.result["stdout"] <- base::list(NULL)
[13:13:54.421]         }
[13:13:54.421]         base::close(...future.stdout)
[13:13:54.421]         ...future.stdout <- NULL
[13:13:54.421]     }
[13:13:54.421]     ...future.result$conditions <- ...future.conditions
[13:13:54.421]     ...future.result$finished <- base::Sys.time()
[13:13:54.421]     ...future.result
[13:13:54.421] }
[13:13:54.426] Exporting 5 global objects (280 bytes) to cluster node #1 ...
[13:13:54.426] Exporting '...future.FUN' (56 bytes) to cluster node #1 ...
[13:13:54.427] Exporting '...future.FUN' (56 bytes) to cluster node #1 ... DONE
[13:13:54.427] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:54.427] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:54.428] Exporting '...future.elements_ii' (224 bytes) to cluster node #1 ...
[13:13:54.428] Exporting '...future.elements_ii' (224 bytes) to cluster node #1 ... DONE
[13:13:54.428] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:54.429] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:54.429] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:54.430] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:54.430] Exporting 5 global objects (280 bytes) to cluster node #1 ... DONE
[13:13:54.430] MultisessionFuture started
[13:13:54.431] - Launch lazy future ... done
[13:13:54.431] run() for 'MultisessionFuture' ... done
[13:13:54.431] Created future:
[13:13:54.446] receiveMessageFromWorker() for ClusterFuture ...
[13:13:54.447] - Validating connection of MultisessionFuture
[13:13:54.447] - received message: FutureResult
[13:13:54.447] - Received FutureResult
[13:13:54.447] - Erased future from FutureRegistry
[13:13:54.447] result() for ClusterFuture ...
[13:13:54.448] - result already collected: FutureResult
[13:13:54.448] result() for ClusterFuture ... done
[13:13:54.448] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:54.431] MultisessionFuture:
[13:13:54.431] Label: 'future_mapply-1'
[13:13:54.431] Expression:
[13:13:54.431] {
[13:13:54.431]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:54.431]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:54.431]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:54.431]         on.exit(options(oopts), add = TRUE)
[13:13:54.431]     }
[13:13:54.431]     {
[13:13:54.431]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:54.431]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:54.431]         do.call(mapply, args = args)
[13:13:54.431]     }
[13:13:54.431] }
[13:13:54.431] Lazy evaluation: FALSE
[13:13:54.431] Asynchronous evaluation: TRUE
[13:13:54.431] Local evaluation: TRUE
[13:13:54.431] Environment: R_GlobalEnv
[13:13:54.431] Capture standard output: TRUE
[13:13:54.431] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:54.431] Globals: 5 objects totaling 280 bytes (function '...future.FUN' of 56 bytes, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 224 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:54.431] Packages: <none>
[13:13:54.431] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:54.431] Resolved: TRUE
[13:13:54.431] Value: <not collected>
[13:13:54.431] Conditions captured: <none>
[13:13:54.431] Early signaling: FALSE
[13:13:54.431] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:54.431] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:54.448] Chunk #1 of 2 ... DONE
[13:13:54.449] Chunk #2 of 2 ...
[13:13:54.449]  - Finding globals in '...' for chunk #2 ...
[13:13:54.449] getGlobalsAndPackages() ...
[13:13:54.449] Searching for globals...
[13:13:54.450] 
[13:13:54.450] Searching for globals ... DONE
[13:13:54.450] - globals: [0] <none>
[13:13:54.450] getGlobalsAndPackages() ... DONE
[13:13:54.450]    + additional globals found: [n=0] 
[13:13:54.450]    + additional namespaces needed: [n=0] 
[13:13:54.451]  - Finding globals in '...' for chunk #2 ... DONE
[13:13:54.451]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:54.451]  - seeds: <none>
[13:13:54.453]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.453] getGlobalsAndPackages() ...
[13:13:54.453] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.453] Resolving globals: FALSE
[13:13:54.454] The total size of the 5 globals is 280 bytes (280 bytes)
[13:13:54.454] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 280 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (224 bytes of class 'list'), '...future.FUN' (56 bytes of class 'function') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:54.455] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.455] 
[13:13:54.455] getGlobalsAndPackages() ... DONE
[13:13:54.455] run() for 'Future' ...
[13:13:54.456] - state: 'created'
[13:13:54.456] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:54.470] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:54.470] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:54.470]   - Field: 'node'
[13:13:54.470]   - Field: 'label'
[13:13:54.471]   - Field: 'local'
[13:13:54.471]   - Field: 'owner'
[13:13:54.471]   - Field: 'envir'
[13:13:54.471]   - Field: 'workers'
[13:13:54.471]   - Field: 'packages'
[13:13:54.471]   - Field: 'gc'
[13:13:54.472]   - Field: 'conditions'
[13:13:54.472]   - Field: 'persistent'
[13:13:54.472]   - Field: 'expr'
[13:13:54.472]   - Field: 'uuid'
[13:13:54.472]   - Field: 'seed'
[13:13:54.472]   - Field: 'version'
[13:13:54.473]   - Field: 'result'
[13:13:54.473]   - Field: 'asynchronous'
[13:13:54.473]   - Field: 'calls'
[13:13:54.473]   - Field: 'globals'
[13:13:54.473]   - Field: 'stdout'
[13:13:54.474]   - Field: 'earlySignal'
[13:13:54.474]   - Field: 'lazy'
[13:13:54.474]   - Field: 'state'
[13:13:54.474] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:54.474] - Launch lazy future ...
[13:13:54.475] Packages needed by the future expression (n = 0): <none>
[13:13:54.475] Packages needed by future strategies (n = 0): <none>
[13:13:54.475] {
[13:13:54.475]     {
[13:13:54.475]         {
[13:13:54.475]             ...future.startTime <- base::Sys.time()
[13:13:54.475]             {
[13:13:54.475]                 {
[13:13:54.475]                   {
[13:13:54.475]                     {
[13:13:54.475]                       base::local({
[13:13:54.475]                         has_future <- base::requireNamespace("future", 
[13:13:54.475]                           quietly = TRUE)
[13:13:54.475]                         if (has_future) {
[13:13:54.475]                           ns <- base::getNamespace("future")
[13:13:54.475]                           version <- ns[[".package"]][["version"]]
[13:13:54.475]                           if (is.null(version)) 
[13:13:54.475]                             version <- utils::packageVersion("future")
[13:13:54.475]                         }
[13:13:54.475]                         else {
[13:13:54.475]                           version <- NULL
[13:13:54.475]                         }
[13:13:54.475]                         if (!has_future || version < "1.8.0") {
[13:13:54.475]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:54.475]                             "", base::R.version$version.string), 
[13:13:54.475]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:54.475]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:54.475]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:54.475]                               "release", "version")], collapse = " "), 
[13:13:54.475]                             hostname = base::Sys.info()[["nodename"]])
[13:13:54.475]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:54.475]                             info)
[13:13:54.475]                           info <- base::paste(info, collapse = "; ")
[13:13:54.475]                           if (!has_future) {
[13:13:54.475]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:54.475]                               info)
[13:13:54.475]                           }
[13:13:54.475]                           else {
[13:13:54.475]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:54.475]                               info, version)
[13:13:54.475]                           }
[13:13:54.475]                           base::stop(msg)
[13:13:54.475]                         }
[13:13:54.475]                       })
[13:13:54.475]                     }
[13:13:54.475]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:54.475]                     base::options(mc.cores = 1L)
[13:13:54.475]                   }
[13:13:54.475]                   options(future.plan = NULL)
[13:13:54.475]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:54.475]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:54.475]                 }
[13:13:54.475]                 ...future.workdir <- getwd()
[13:13:54.475]             }
[13:13:54.475]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:54.475]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:54.475]         }
[13:13:54.475]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:54.475]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:54.475]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:54.475]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:54.475]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:54.475]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:54.475]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:54.475]             base::names(...future.oldOptions))
[13:13:54.475]     }
[13:13:54.475]     if (FALSE) {
[13:13:54.475]     }
[13:13:54.475]     else {
[13:13:54.475]         if (TRUE) {
[13:13:54.475]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:54.475]                 open = "w")
[13:13:54.475]         }
[13:13:54.475]         else {
[13:13:54.475]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:54.475]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:54.475]         }
[13:13:54.475]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:54.475]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:54.475]             base::sink(type = "output", split = FALSE)
[13:13:54.475]             base::close(...future.stdout)
[13:13:54.475]         }, add = TRUE)
[13:13:54.475]     }
[13:13:54.475]     ...future.frame <- base::sys.nframe()
[13:13:54.475]     ...future.conditions <- base::list()
[13:13:54.475]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:54.475]     if (FALSE) {
[13:13:54.475]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:54.475]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:54.475]     }
[13:13:54.475]     ...future.result <- base::tryCatch({
[13:13:54.475]         base::withCallingHandlers({
[13:13:54.475]             ...future.value <- base::withVisible(base::local({
[13:13:54.475]                 ...future.makeSendCondition <- local({
[13:13:54.475]                   sendCondition <- NULL
[13:13:54.475]                   function(frame = 1L) {
[13:13:54.475]                     if (is.function(sendCondition)) 
[13:13:54.475]                       return(sendCondition)
[13:13:54.475]                     ns <- getNamespace("parallel")
[13:13:54.475]                     if (exists("sendData", mode = "function", 
[13:13:54.475]                       envir = ns)) {
[13:13:54.475]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:54.475]                         envir = ns)
[13:13:54.475]                       envir <- sys.frame(frame)
[13:13:54.475]                       master <- NULL
[13:13:54.475]                       while (!identical(envir, .GlobalEnv) && 
[13:13:54.475]                         !identical(envir, emptyenv())) {
[13:13:54.475]                         if (exists("master", mode = "list", envir = envir, 
[13:13:54.475]                           inherits = FALSE)) {
[13:13:54.475]                           master <- get("master", mode = "list", 
[13:13:54.475]                             envir = envir, inherits = FALSE)
[13:13:54.475]                           if (inherits(master, c("SOCKnode", 
[13:13:54.475]                             "SOCK0node"))) {
[13:13:54.475]                             sendCondition <<- function(cond) {
[13:13:54.475]                               data <- list(type = "VALUE", value = cond, 
[13:13:54.475]                                 success = TRUE)
[13:13:54.475]                               parallel_sendData(master, data)
[13:13:54.475]                             }
[13:13:54.475]                             return(sendCondition)
[13:13:54.475]                           }
[13:13:54.475]                         }
[13:13:54.475]                         frame <- frame + 1L
[13:13:54.475]                         envir <- sys.frame(frame)
[13:13:54.475]                       }
[13:13:54.475]                     }
[13:13:54.475]                     sendCondition <<- function(cond) NULL
[13:13:54.475]                   }
[13:13:54.475]                 })
[13:13:54.475]                 withCallingHandlers({
[13:13:54.475]                   {
[13:13:54.475]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:54.475]                     if (!identical(...future.globals.maxSize.org, 
[13:13:54.475]                       ...future.globals.maxSize)) {
[13:13:54.475]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:54.475]                       on.exit(options(oopts), add = TRUE)
[13:13:54.475]                     }
[13:13:54.475]                     {
[13:13:54.475]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:54.475]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:54.475]                         USE.NAMES = FALSE)
[13:13:54.475]                       do.call(mapply, args = args)
[13:13:54.475]                     }
[13:13:54.475]                   }
[13:13:54.475]                 }, immediateCondition = function(cond) {
[13:13:54.475]                   sendCondition <- ...future.makeSendCondition()
[13:13:54.475]                   sendCondition(cond)
[13:13:54.475]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.475]                   {
[13:13:54.475]                     inherits <- base::inherits
[13:13:54.475]                     invokeRestart <- base::invokeRestart
[13:13:54.475]                     is.null <- base::is.null
[13:13:54.475]                     muffled <- FALSE
[13:13:54.475]                     if (inherits(cond, "message")) {
[13:13:54.475]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:54.475]                       if (muffled) 
[13:13:54.475]                         invokeRestart("muffleMessage")
[13:13:54.475]                     }
[13:13:54.475]                     else if (inherits(cond, "warning")) {
[13:13:54.475]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:54.475]                       if (muffled) 
[13:13:54.475]                         invokeRestart("muffleWarning")
[13:13:54.475]                     }
[13:13:54.475]                     else if (inherits(cond, "condition")) {
[13:13:54.475]                       if (!is.null(pattern)) {
[13:13:54.475]                         computeRestarts <- base::computeRestarts
[13:13:54.475]                         grepl <- base::grepl
[13:13:54.475]                         restarts <- computeRestarts(cond)
[13:13:54.475]                         for (restart in restarts) {
[13:13:54.475]                           name <- restart$name
[13:13:54.475]                           if (is.null(name)) 
[13:13:54.475]                             next
[13:13:54.475]                           if (!grepl(pattern, name)) 
[13:13:54.475]                             next
[13:13:54.475]                           invokeRestart(restart)
[13:13:54.475]                           muffled <- TRUE
[13:13:54.475]                           break
[13:13:54.475]                         }
[13:13:54.475]                       }
[13:13:54.475]                     }
[13:13:54.475]                     invisible(muffled)
[13:13:54.475]                   }
[13:13:54.475]                   muffleCondition(cond)
[13:13:54.475]                 })
[13:13:54.475]             }))
[13:13:54.475]             future::FutureResult(value = ...future.value$value, 
[13:13:54.475]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:54.475]                   ...future.rng), globalenv = if (FALSE) 
[13:13:54.475]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:54.475]                     ...future.globalenv.names))
[13:13:54.475]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:54.475]         }, condition = base::local({
[13:13:54.475]             c <- base::c
[13:13:54.475]             inherits <- base::inherits
[13:13:54.475]             invokeRestart <- base::invokeRestart
[13:13:54.475]             length <- base::length
[13:13:54.475]             list <- base::list
[13:13:54.475]             seq.int <- base::seq.int
[13:13:54.475]             signalCondition <- base::signalCondition
[13:13:54.475]             sys.calls <- base::sys.calls
[13:13:54.475]             `[[` <- base::`[[`
[13:13:54.475]             `+` <- base::`+`
[13:13:54.475]             `<<-` <- base::`<<-`
[13:13:54.475]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:54.475]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:54.475]                   3L)]
[13:13:54.475]             }
[13:13:54.475]             function(cond) {
[13:13:54.475]                 is_error <- inherits(cond, "error")
[13:13:54.475]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:54.475]                   NULL)
[13:13:54.475]                 if (is_error) {
[13:13:54.475]                   sessionInformation <- function() {
[13:13:54.475]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:54.475]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:54.475]                       search = base::search(), system = base::Sys.info())
[13:13:54.475]                   }
[13:13:54.475]                   ...future.conditions[[length(...future.conditions) + 
[13:13:54.475]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:54.475]                     cond$call), session = sessionInformation(), 
[13:13:54.475]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:54.475]                   signalCondition(cond)
[13:13:54.475]                 }
[13:13:54.475]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:54.475]                 "immediateCondition"))) {
[13:13:54.475]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:54.475]                   ...future.conditions[[length(...future.conditions) + 
[13:13:54.475]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:54.475]                   if (TRUE && !signal) {
[13:13:54.475]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.475]                     {
[13:13:54.475]                       inherits <- base::inherits
[13:13:54.475]                       invokeRestart <- base::invokeRestart
[13:13:54.475]                       is.null <- base::is.null
[13:13:54.475]                       muffled <- FALSE
[13:13:54.475]                       if (inherits(cond, "message")) {
[13:13:54.475]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:54.475]                         if (muffled) 
[13:13:54.475]                           invokeRestart("muffleMessage")
[13:13:54.475]                       }
[13:13:54.475]                       else if (inherits(cond, "warning")) {
[13:13:54.475]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:54.475]                         if (muffled) 
[13:13:54.475]                           invokeRestart("muffleWarning")
[13:13:54.475]                       }
[13:13:54.475]                       else if (inherits(cond, "condition")) {
[13:13:54.475]                         if (!is.null(pattern)) {
[13:13:54.475]                           computeRestarts <- base::computeRestarts
[13:13:54.475]                           grepl <- base::grepl
[13:13:54.475]                           restarts <- computeRestarts(cond)
[13:13:54.475]                           for (restart in restarts) {
[13:13:54.475]                             name <- restart$name
[13:13:54.475]                             if (is.null(name)) 
[13:13:54.475]                               next
[13:13:54.475]                             if (!grepl(pattern, name)) 
[13:13:54.475]                               next
[13:13:54.475]                             invokeRestart(restart)
[13:13:54.475]                             muffled <- TRUE
[13:13:54.475]                             break
[13:13:54.475]                           }
[13:13:54.475]                         }
[13:13:54.475]                       }
[13:13:54.475]                       invisible(muffled)
[13:13:54.475]                     }
[13:13:54.475]                     muffleCondition(cond, pattern = "^muffle")
[13:13:54.475]                   }
[13:13:54.475]                 }
[13:13:54.475]                 else {
[13:13:54.475]                   if (TRUE) {
[13:13:54.475]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.475]                     {
[13:13:54.475]                       inherits <- base::inherits
[13:13:54.475]                       invokeRestart <- base::invokeRestart
[13:13:54.475]                       is.null <- base::is.null
[13:13:54.475]                       muffled <- FALSE
[13:13:54.475]                       if (inherits(cond, "message")) {
[13:13:54.475]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:54.475]                         if (muffled) 
[13:13:54.475]                           invokeRestart("muffleMessage")
[13:13:54.475]                       }
[13:13:54.475]                       else if (inherits(cond, "warning")) {
[13:13:54.475]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:54.475]                         if (muffled) 
[13:13:54.475]                           invokeRestart("muffleWarning")
[13:13:54.475]                       }
[13:13:54.475]                       else if (inherits(cond, "condition")) {
[13:13:54.475]                         if (!is.null(pattern)) {
[13:13:54.475]                           computeRestarts <- base::computeRestarts
[13:13:54.475]                           grepl <- base::grepl
[13:13:54.475]                           restarts <- computeRestarts(cond)
[13:13:54.475]                           for (restart in restarts) {
[13:13:54.475]                             name <- restart$name
[13:13:54.475]                             if (is.null(name)) 
[13:13:54.475]                               next
[13:13:54.475]                             if (!grepl(pattern, name)) 
[13:13:54.475]                               next
[13:13:54.475]                             invokeRestart(restart)
[13:13:54.475]                             muffled <- TRUE
[13:13:54.475]                             break
[13:13:54.475]                           }
[13:13:54.475]                         }
[13:13:54.475]                       }
[13:13:54.475]                       invisible(muffled)
[13:13:54.475]                     }
[13:13:54.475]                     muffleCondition(cond, pattern = "^muffle")
[13:13:54.475]                   }
[13:13:54.475]                 }
[13:13:54.475]             }
[13:13:54.475]         }))
[13:13:54.475]     }, error = function(ex) {
[13:13:54.475]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:54.475]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:54.475]                 ...future.rng), started = ...future.startTime, 
[13:13:54.475]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:54.475]             version = "1.8"), class = "FutureResult")
[13:13:54.475]     }, finally = {
[13:13:54.475]         if (!identical(...future.workdir, getwd())) 
[13:13:54.475]             setwd(...future.workdir)
[13:13:54.475]         {
[13:13:54.475]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:54.475]                 ...future.oldOptions$nwarnings <- NULL
[13:13:54.475]             }
[13:13:54.475]             base::options(...future.oldOptions)
[13:13:54.475]             if (.Platform$OS.type == "windows") {
[13:13:54.475]                 old_names <- names(...future.oldEnvVars)
[13:13:54.475]                 envs <- base::Sys.getenv()
[13:13:54.475]                 names <- names(envs)
[13:13:54.475]                 common <- intersect(names, old_names)
[13:13:54.475]                 added <- setdiff(names, old_names)
[13:13:54.475]                 removed <- setdiff(old_names, names)
[13:13:54.475]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:54.475]                   envs[common]]
[13:13:54.475]                 NAMES <- toupper(changed)
[13:13:54.475]                 args <- list()
[13:13:54.475]                 for (kk in seq_along(NAMES)) {
[13:13:54.475]                   name <- changed[[kk]]
[13:13:54.475]                   NAME <- NAMES[[kk]]
[13:13:54.475]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.475]                     next
[13:13:54.475]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:54.475]                 }
[13:13:54.475]                 NAMES <- toupper(added)
[13:13:54.475]                 for (kk in seq_along(NAMES)) {
[13:13:54.475]                   name <- added[[kk]]
[13:13:54.475]                   NAME <- NAMES[[kk]]
[13:13:54.475]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.475]                     next
[13:13:54.475]                   args[[name]] <- ""
[13:13:54.475]                 }
[13:13:54.475]                 NAMES <- toupper(removed)
[13:13:54.475]                 for (kk in seq_along(NAMES)) {
[13:13:54.475]                   name <- removed[[kk]]
[13:13:54.475]                   NAME <- NAMES[[kk]]
[13:13:54.475]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.475]                     next
[13:13:54.475]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:54.475]                 }
[13:13:54.475]                 if (length(args) > 0) 
[13:13:54.475]                   base::do.call(base::Sys.setenv, args = args)
[13:13:54.475]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:54.475]             }
[13:13:54.475]             else {
[13:13:54.475]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:54.475]             }
[13:13:54.475]             {
[13:13:54.475]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:54.475]                   0L) {
[13:13:54.475]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:54.475]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:54.475]                   base::options(opts)
[13:13:54.475]                 }
[13:13:54.475]                 {
[13:13:54.475]                   {
[13:13:54.475]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:54.475]                     NULL
[13:13:54.475]                   }
[13:13:54.475]                   options(future.plan = NULL)
[13:13:54.475]                   if (is.na(NA_character_)) 
[13:13:54.475]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:54.475]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:54.475]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:54.475]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:54.475]                     envir = parent.frame()) 
[13:13:54.475]                   {
[13:13:54.475]                     if (is.function(workers)) 
[13:13:54.475]                       workers <- workers()
[13:13:54.475]                     workers <- structure(as.integer(workers), 
[13:13:54.475]                       class = class(workers))
[13:13:54.475]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:54.475]                       workers >= 1)
[13:13:54.475]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:54.475]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:54.475]                     }
[13:13:54.475]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:54.475]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:54.475]                       envir = envir)
[13:13:54.475]                     if (!future$lazy) 
[13:13:54.475]                       future <- run(future)
[13:13:54.475]                     invisible(future)
[13:13:54.475]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:54.475]                 }
[13:13:54.475]             }
[13:13:54.475]         }
[13:13:54.475]     })
[13:13:54.475]     if (TRUE) {
[13:13:54.475]         base::sink(type = "output", split = FALSE)
[13:13:54.475]         if (TRUE) {
[13:13:54.475]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:54.475]         }
[13:13:54.475]         else {
[13:13:54.475]             ...future.result["stdout"] <- base::list(NULL)
[13:13:54.475]         }
[13:13:54.475]         base::close(...future.stdout)
[13:13:54.475]         ...future.stdout <- NULL
[13:13:54.475]     }
[13:13:54.475]     ...future.result$conditions <- ...future.conditions
[13:13:54.475]     ...future.result$finished <- base::Sys.time()
[13:13:54.475]     ...future.result
[13:13:54.475] }
[13:13:54.481] Exporting 5 global objects (280 bytes) to cluster node #1 ...
[13:13:54.481] Exporting '...future.FUN' (56 bytes) to cluster node #1 ...
[13:13:54.481] Exporting '...future.FUN' (56 bytes) to cluster node #1 ... DONE
[13:13:54.481] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:54.482] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:54.482] Exporting '...future.elements_ii' (224 bytes) to cluster node #1 ...
[13:13:54.482] Exporting '...future.elements_ii' (224 bytes) to cluster node #1 ... DONE
[13:13:54.483] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:54.483] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:54.483] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:54.484] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:54.484] Exporting 5 global objects (280 bytes) to cluster node #1 ... DONE
[13:13:54.485] MultisessionFuture started
[13:13:54.485] - Launch lazy future ... done
[13:13:54.485] run() for 'MultisessionFuture' ... done
[13:13:54.485] Created future:
[13:13:54.500] receiveMessageFromWorker() for ClusterFuture ...
[13:13:54.500] - Validating connection of MultisessionFuture
[13:13:54.500] - received message: FutureResult
[13:13:54.500] - Received FutureResult
[13:13:54.501] - Erased future from FutureRegistry
[13:13:54.501] result() for ClusterFuture ...
[13:13:54.501] - result already collected: FutureResult
[13:13:54.501] result() for ClusterFuture ... done
[13:13:54.501] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:54.485] MultisessionFuture:
[13:13:54.485] Label: 'future_mapply-2'
[13:13:54.485] Expression:
[13:13:54.485] {
[13:13:54.485]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:54.485]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:54.485]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:54.485]         on.exit(options(oopts), add = TRUE)
[13:13:54.485]     }
[13:13:54.485]     {
[13:13:54.485]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:54.485]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:54.485]         do.call(mapply, args = args)
[13:13:54.485]     }
[13:13:54.485] }
[13:13:54.485] Lazy evaluation: FALSE
[13:13:54.485] Asynchronous evaluation: TRUE
[13:13:54.485] Local evaluation: TRUE
[13:13:54.485] Environment: R_GlobalEnv
[13:13:54.485] Capture standard output: TRUE
[13:13:54.485] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:54.485] Globals: 5 objects totaling 280 bytes (function '...future.FUN' of 56 bytes, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 224 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:54.485] Packages: <none>
[13:13:54.485] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:54.485] Resolved: TRUE
[13:13:54.485] Value: <not collected>
[13:13:54.485] Conditions captured: <none>
[13:13:54.485] Early signaling: FALSE
[13:13:54.485] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:54.485] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:54.502] Chunk #2 of 2 ... DONE
[13:13:54.502] Launching 2 futures (chunks) ... DONE
[13:13:54.502] Resolving 2 futures (chunks) ...
[13:13:54.502] resolve() on list ...
[13:13:54.502]  recursive: 0
[13:13:54.502]  length: 2
[13:13:54.503] 
[13:13:54.503] Future #1
[13:13:54.503] result() for ClusterFuture ...
[13:13:54.503] - result already collected: FutureResult
[13:13:54.503] result() for ClusterFuture ... done
[13:13:54.504] result() for ClusterFuture ...
[13:13:54.504] - result already collected: FutureResult
[13:13:54.504] result() for ClusterFuture ... done
[13:13:54.504] signalConditionsASAP(MultisessionFuture, pos=1) ...
[13:13:54.504] - nx: 2
[13:13:54.504] - relay: TRUE
[13:13:54.505] - stdout: TRUE
[13:13:54.505] - signal: TRUE
[13:13:54.505] - resignal: FALSE
[13:13:54.505] - force: TRUE
[13:13:54.505] - relayed: [n=2] FALSE, FALSE
[13:13:54.505] - queued futures: [n=2] FALSE, FALSE
[13:13:54.506]  - until=1
[13:13:54.506]  - relaying element #1
[13:13:54.506] result() for ClusterFuture ...
[13:13:54.506] - result already collected: FutureResult
[13:13:54.506] result() for ClusterFuture ... done
[13:13:54.506] result() for ClusterFuture ...
[13:13:54.506] - result already collected: FutureResult
[13:13:54.507] result() for ClusterFuture ... done
[13:13:54.507] result() for ClusterFuture ...
[13:13:54.507] - result already collected: FutureResult
[13:13:54.507] result() for ClusterFuture ... done
[13:13:54.507] result() for ClusterFuture ...
[13:13:54.508] - result already collected: FutureResult
[13:13:54.508] result() for ClusterFuture ... done
[13:13:54.508] - relayed: [n=2] TRUE, FALSE
[13:13:54.508] - queued futures: [n=2] TRUE, FALSE
[13:13:54.508] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[13:13:54.508]  length: 1 (resolved future 1)
[13:13:54.509] Future #2
[13:13:54.509] result() for ClusterFuture ...
[13:13:54.509] - result already collected: FutureResult
[13:13:54.509] result() for ClusterFuture ... done
[13:13:54.509] result() for ClusterFuture ...
[13:13:54.509] - result already collected: FutureResult
[13:13:54.509] result() for ClusterFuture ... done
[13:13:54.510] signalConditionsASAP(MultisessionFuture, pos=2) ...
[13:13:54.510] - nx: 2
[13:13:54.510] - relay: TRUE
[13:13:54.510] - stdout: TRUE
[13:13:54.510] - signal: TRUE
[13:13:54.510] - resignal: FALSE
[13:13:54.511] - force: TRUE
[13:13:54.511] - relayed: [n=2] TRUE, FALSE
[13:13:54.511] - queued futures: [n=2] TRUE, FALSE
[13:13:54.511]  - until=2
[13:13:54.511]  - relaying element #2
[13:13:54.511] result() for ClusterFuture ...
[13:13:54.512] - result already collected: FutureResult
[13:13:54.512] result() for ClusterFuture ... done
[13:13:54.512] result() for ClusterFuture ...
[13:13:54.512] - result already collected: FutureResult
[13:13:54.512] result() for ClusterFuture ... done
[13:13:54.512] result() for ClusterFuture ...
[13:13:54.513] - result already collected: FutureResult
[13:13:54.513] result() for ClusterFuture ... done
[13:13:54.513] result() for ClusterFuture ...
[13:13:54.513] - result already collected: FutureResult
[13:13:54.513] result() for ClusterFuture ... done
[13:13:54.513] - relayed: [n=2] TRUE, TRUE
[13:13:54.513] - queued futures: [n=2] TRUE, TRUE
[13:13:54.514] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[13:13:54.514]  length: 0 (resolved future 2)
[13:13:54.514] Relaying remaining futures
[13:13:54.514] signalConditionsASAP(NULL, pos=0) ...
[13:13:54.514] - nx: 2
[13:13:54.514] - relay: TRUE
[13:13:54.515] - stdout: TRUE
[13:13:54.515] - signal: TRUE
[13:13:54.515] - resignal: FALSE
[13:13:54.515] - force: TRUE
[13:13:54.515] - relayed: [n=2] TRUE, TRUE
[13:13:54.515] - queued futures: [n=2] TRUE, TRUE
 - flush all
[13:13:54.516] - relayed: [n=2] TRUE, TRUE
[13:13:54.516] - queued futures: [n=2] TRUE, TRUE
[13:13:54.516] signalConditionsASAP(NULL, pos=0) ... done
[13:13:54.516] resolve() on list ... DONE
[13:13:54.516] result() for ClusterFuture ...
[13:13:54.516] - result already collected: FutureResult
[13:13:54.517] result() for ClusterFuture ... done
[13:13:54.517] result() for ClusterFuture ...
[13:13:54.517] - result already collected: FutureResult
[13:13:54.517] result() for ClusterFuture ... done
[13:13:54.517] result() for ClusterFuture ...
[13:13:54.517] - result already collected: FutureResult
[13:13:54.518] result() for ClusterFuture ... done
[13:13:54.518] result() for ClusterFuture ...
[13:13:54.518] - result already collected: FutureResult
[13:13:54.518] result() for ClusterFuture ... done
[13:13:54.518]  - Number of value chunks collected: 2
[13:13:54.518] Resolving 2 futures (chunks) ... DONE
[13:13:54.518] Reducing values from 2 chunks ...
[13:13:54.519]  - Number of values collected after concatenation: 4
[13:13:54.519]  - Number of values expected: 4
[13:13:54.519] Reducing values from 2 chunks ... DONE
[13:13:54.519] future_mapply() ... DONE
[13:13:54.519] future_mapply() ...
[13:13:54.522] Number of chunks: 2
[13:13:54.522] getGlobalsAndPackagesXApply() ...
[13:13:54.522]  - future.globals: TRUE
[13:13:54.522] getGlobalsAndPackages() ...
[13:13:54.523] Searching for globals...
[13:13:54.523] - globals found: [1] 'FUN'
[13:13:54.523] Searching for globals ... DONE
[13:13:54.524] Resolving globals: FALSE
[13:13:54.524] The total size of the 1 globals is 56 bytes (56 bytes)
[13:13:54.524] The total size of the 1 globals exported for future expression ('FUN(x = 42)') is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (56 bytes of class 'function')
[13:13:54.525] - globals: [1] 'FUN'
[13:13:54.525] 
[13:13:54.525] getGlobalsAndPackages() ... DONE
[13:13:54.525]  - globals found/used: [n=1] 'FUN'
[13:13:54.525]  - needed namespaces: [n=0] 
[13:13:54.525] Finding globals ... DONE
[13:13:54.526] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:54.526] List of 2
[13:13:54.526]  $ ...future.FUN:function (x, ...)  
[13:13:54.526]  $ MoreArgs     :List of 1
[13:13:54.526]   ..$ x: num 42
[13:13:54.526]  - attr(*, "where")=List of 2
[13:13:54.526]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:54.526]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:54.526]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:54.526]  - attr(*, "resolved")= logi FALSE
[13:13:54.526]  - attr(*, "total_size")= num NA
[13:13:54.529] Packages to be attached in all futures: [n=0] 
[13:13:54.530] getGlobalsAndPackagesXApply() ... DONE
[13:13:54.530] Number of futures (= number of chunks): 2
[13:13:54.530] Launching 2 futures (chunks) ...
[13:13:54.530] Chunk #1 of 2 ...
[13:13:54.530]  - Finding globals in '...' for chunk #1 ...
[13:13:54.531] getGlobalsAndPackages() ...
[13:13:54.531] Searching for globals...
[13:13:54.531] 
[13:13:54.531] Searching for globals ... DONE
[13:13:54.531] - globals: [0] <none>
[13:13:54.532] getGlobalsAndPackages() ... DONE
[13:13:54.532]    + additional globals found: [n=0] 
[13:13:54.532]    + additional namespaces needed: [n=0] 
[13:13:54.532]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:54.532]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:54.532]  - seeds: <none>
[13:13:54.533]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.533] getGlobalsAndPackages() ...
[13:13:54.533] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.533] Resolving globals: FALSE
[13:13:54.534] The total size of the 5 globals is 224 bytes (224 bytes)
[13:13:54.535] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 224 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (112 bytes of class 'list'), '...future.FUN' (56 bytes of class 'function') and 'MoreArgs' (56 bytes of class 'list')
[13:13:54.535] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.535] 
[13:13:54.535] getGlobalsAndPackages() ... DONE
[13:13:54.535] run() for 'Future' ...
[13:13:54.536] - state: 'created'
[13:13:54.536] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:54.550] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:54.550] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:54.550]   - Field: 'node'
[13:13:54.551]   - Field: 'label'
[13:13:54.551]   - Field: 'local'
[13:13:54.551]   - Field: 'owner'
[13:13:54.551]   - Field: 'envir'
[13:13:54.551]   - Field: 'workers'
[13:13:54.552]   - Field: 'packages'
[13:13:54.552]   - Field: 'gc'
[13:13:54.552]   - Field: 'conditions'
[13:13:54.552]   - Field: 'persistent'
[13:13:54.552]   - Field: 'expr'
[13:13:54.552]   - Field: 'uuid'
[13:13:54.553]   - Field: 'seed'
[13:13:54.553]   - Field: 'version'
[13:13:54.553]   - Field: 'result'
[13:13:54.553]   - Field: 'asynchronous'
[13:13:54.553]   - Field: 'calls'
[13:13:54.554]   - Field: 'globals'
[13:13:54.554]   - Field: 'stdout'
[13:13:54.554]   - Field: 'earlySignal'
[13:13:54.554]   - Field: 'lazy'
[13:13:54.554]   - Field: 'state'
[13:13:54.554] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:54.555] - Launch lazy future ...
[13:13:54.555] Packages needed by the future expression (n = 0): <none>
[13:13:54.555] Packages needed by future strategies (n = 0): <none>
[13:13:54.556] {
[13:13:54.556]     {
[13:13:54.556]         {
[13:13:54.556]             ...future.startTime <- base::Sys.time()
[13:13:54.556]             {
[13:13:54.556]                 {
[13:13:54.556]                   {
[13:13:54.556]                     {
[13:13:54.556]                       base::local({
[13:13:54.556]                         has_future <- base::requireNamespace("future", 
[13:13:54.556]                           quietly = TRUE)
[13:13:54.556]                         if (has_future) {
[13:13:54.556]                           ns <- base::getNamespace("future")
[13:13:54.556]                           version <- ns[[".package"]][["version"]]
[13:13:54.556]                           if (is.null(version)) 
[13:13:54.556]                             version <- utils::packageVersion("future")
[13:13:54.556]                         }
[13:13:54.556]                         else {
[13:13:54.556]                           version <- NULL
[13:13:54.556]                         }
[13:13:54.556]                         if (!has_future || version < "1.8.0") {
[13:13:54.556]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:54.556]                             "", base::R.version$version.string), 
[13:13:54.556]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:54.556]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:54.556]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:54.556]                               "release", "version")], collapse = " "), 
[13:13:54.556]                             hostname = base::Sys.info()[["nodename"]])
[13:13:54.556]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:54.556]                             info)
[13:13:54.556]                           info <- base::paste(info, collapse = "; ")
[13:13:54.556]                           if (!has_future) {
[13:13:54.556]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:54.556]                               info)
[13:13:54.556]                           }
[13:13:54.556]                           else {
[13:13:54.556]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:54.556]                               info, version)
[13:13:54.556]                           }
[13:13:54.556]                           base::stop(msg)
[13:13:54.556]                         }
[13:13:54.556]                       })
[13:13:54.556]                     }
[13:13:54.556]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:54.556]                     base::options(mc.cores = 1L)
[13:13:54.556]                   }
[13:13:54.556]                   options(future.plan = NULL)
[13:13:54.556]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:54.556]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:54.556]                 }
[13:13:54.556]                 ...future.workdir <- getwd()
[13:13:54.556]             }
[13:13:54.556]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:54.556]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:54.556]         }
[13:13:54.556]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:54.556]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:54.556]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:54.556]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:54.556]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:54.556]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:54.556]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:54.556]             base::names(...future.oldOptions))
[13:13:54.556]     }
[13:13:54.556]     if (FALSE) {
[13:13:54.556]     }
[13:13:54.556]     else {
[13:13:54.556]         if (TRUE) {
[13:13:54.556]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:54.556]                 open = "w")
[13:13:54.556]         }
[13:13:54.556]         else {
[13:13:54.556]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:54.556]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:54.556]         }
[13:13:54.556]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:54.556]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:54.556]             base::sink(type = "output", split = FALSE)
[13:13:54.556]             base::close(...future.stdout)
[13:13:54.556]         }, add = TRUE)
[13:13:54.556]     }
[13:13:54.556]     ...future.frame <- base::sys.nframe()
[13:13:54.556]     ...future.conditions <- base::list()
[13:13:54.556]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:54.556]     if (FALSE) {
[13:13:54.556]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:54.556]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:54.556]     }
[13:13:54.556]     ...future.result <- base::tryCatch({
[13:13:54.556]         base::withCallingHandlers({
[13:13:54.556]             ...future.value <- base::withVisible(base::local({
[13:13:54.556]                 ...future.makeSendCondition <- local({
[13:13:54.556]                   sendCondition <- NULL
[13:13:54.556]                   function(frame = 1L) {
[13:13:54.556]                     if (is.function(sendCondition)) 
[13:13:54.556]                       return(sendCondition)
[13:13:54.556]                     ns <- getNamespace("parallel")
[13:13:54.556]                     if (exists("sendData", mode = "function", 
[13:13:54.556]                       envir = ns)) {
[13:13:54.556]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:54.556]                         envir = ns)
[13:13:54.556]                       envir <- sys.frame(frame)
[13:13:54.556]                       master <- NULL
[13:13:54.556]                       while (!identical(envir, .GlobalEnv) && 
[13:13:54.556]                         !identical(envir, emptyenv())) {
[13:13:54.556]                         if (exists("master", mode = "list", envir = envir, 
[13:13:54.556]                           inherits = FALSE)) {
[13:13:54.556]                           master <- get("master", mode = "list", 
[13:13:54.556]                             envir = envir, inherits = FALSE)
[13:13:54.556]                           if (inherits(master, c("SOCKnode", 
[13:13:54.556]                             "SOCK0node"))) {
[13:13:54.556]                             sendCondition <<- function(cond) {
[13:13:54.556]                               data <- list(type = "VALUE", value = cond, 
[13:13:54.556]                                 success = TRUE)
[13:13:54.556]                               parallel_sendData(master, data)
[13:13:54.556]                             }
[13:13:54.556]                             return(sendCondition)
[13:13:54.556]                           }
[13:13:54.556]                         }
[13:13:54.556]                         frame <- frame + 1L
[13:13:54.556]                         envir <- sys.frame(frame)
[13:13:54.556]                       }
[13:13:54.556]                     }
[13:13:54.556]                     sendCondition <<- function(cond) NULL
[13:13:54.556]                   }
[13:13:54.556]                 })
[13:13:54.556]                 withCallingHandlers({
[13:13:54.556]                   {
[13:13:54.556]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:54.556]                     if (!identical(...future.globals.maxSize.org, 
[13:13:54.556]                       ...future.globals.maxSize)) {
[13:13:54.556]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:54.556]                       on.exit(options(oopts), add = TRUE)
[13:13:54.556]                     }
[13:13:54.556]                     {
[13:13:54.556]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:54.556]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:54.556]                         USE.NAMES = FALSE)
[13:13:54.556]                       do.call(mapply, args = args)
[13:13:54.556]                     }
[13:13:54.556]                   }
[13:13:54.556]                 }, immediateCondition = function(cond) {
[13:13:54.556]                   sendCondition <- ...future.makeSendCondition()
[13:13:54.556]                   sendCondition(cond)
[13:13:54.556]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.556]                   {
[13:13:54.556]                     inherits <- base::inherits
[13:13:54.556]                     invokeRestart <- base::invokeRestart
[13:13:54.556]                     is.null <- base::is.null
[13:13:54.556]                     muffled <- FALSE
[13:13:54.556]                     if (inherits(cond, "message")) {
[13:13:54.556]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:54.556]                       if (muffled) 
[13:13:54.556]                         invokeRestart("muffleMessage")
[13:13:54.556]                     }
[13:13:54.556]                     else if (inherits(cond, "warning")) {
[13:13:54.556]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:54.556]                       if (muffled) 
[13:13:54.556]                         invokeRestart("muffleWarning")
[13:13:54.556]                     }
[13:13:54.556]                     else if (inherits(cond, "condition")) {
[13:13:54.556]                       if (!is.null(pattern)) {
[13:13:54.556]                         computeRestarts <- base::computeRestarts
[13:13:54.556]                         grepl <- base::grepl
[13:13:54.556]                         restarts <- computeRestarts(cond)
[13:13:54.556]                         for (restart in restarts) {
[13:13:54.556]                           name <- restart$name
[13:13:54.556]                           if (is.null(name)) 
[13:13:54.556]                             next
[13:13:54.556]                           if (!grepl(pattern, name)) 
[13:13:54.556]                             next
[13:13:54.556]                           invokeRestart(restart)
[13:13:54.556]                           muffled <- TRUE
[13:13:54.556]                           break
[13:13:54.556]                         }
[13:13:54.556]                       }
[13:13:54.556]                     }
[13:13:54.556]                     invisible(muffled)
[13:13:54.556]                   }
[13:13:54.556]                   muffleCondition(cond)
[13:13:54.556]                 })
[13:13:54.556]             }))
[13:13:54.556]             future::FutureResult(value = ...future.value$value, 
[13:13:54.556]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:54.556]                   ...future.rng), globalenv = if (FALSE) 
[13:13:54.556]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:54.556]                     ...future.globalenv.names))
[13:13:54.556]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:54.556]         }, condition = base::local({
[13:13:54.556]             c <- base::c
[13:13:54.556]             inherits <- base::inherits
[13:13:54.556]             invokeRestart <- base::invokeRestart
[13:13:54.556]             length <- base::length
[13:13:54.556]             list <- base::list
[13:13:54.556]             seq.int <- base::seq.int
[13:13:54.556]             signalCondition <- base::signalCondition
[13:13:54.556]             sys.calls <- base::sys.calls
[13:13:54.556]             `[[` <- base::`[[`
[13:13:54.556]             `+` <- base::`+`
[13:13:54.556]             `<<-` <- base::`<<-`
[13:13:54.556]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:54.556]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:54.556]                   3L)]
[13:13:54.556]             }
[13:13:54.556]             function(cond) {
[13:13:54.556]                 is_error <- inherits(cond, "error")
[13:13:54.556]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:54.556]                   NULL)
[13:13:54.556]                 if (is_error) {
[13:13:54.556]                   sessionInformation <- function() {
[13:13:54.556]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:54.556]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:54.556]                       search = base::search(), system = base::Sys.info())
[13:13:54.556]                   }
[13:13:54.556]                   ...future.conditions[[length(...future.conditions) + 
[13:13:54.556]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:54.556]                     cond$call), session = sessionInformation(), 
[13:13:54.556]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:54.556]                   signalCondition(cond)
[13:13:54.556]                 }
[13:13:54.556]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:54.556]                 "immediateCondition"))) {
[13:13:54.556]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:54.556]                   ...future.conditions[[length(...future.conditions) + 
[13:13:54.556]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:54.556]                   if (TRUE && !signal) {
[13:13:54.556]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.556]                     {
[13:13:54.556]                       inherits <- base::inherits
[13:13:54.556]                       invokeRestart <- base::invokeRestart
[13:13:54.556]                       is.null <- base::is.null
[13:13:54.556]                       muffled <- FALSE
[13:13:54.556]                       if (inherits(cond, "message")) {
[13:13:54.556]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:54.556]                         if (muffled) 
[13:13:54.556]                           invokeRestart("muffleMessage")
[13:13:54.556]                       }
[13:13:54.556]                       else if (inherits(cond, "warning")) {
[13:13:54.556]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:54.556]                         if (muffled) 
[13:13:54.556]                           invokeRestart("muffleWarning")
[13:13:54.556]                       }
[13:13:54.556]                       else if (inherits(cond, "condition")) {
[13:13:54.556]                         if (!is.null(pattern)) {
[13:13:54.556]                           computeRestarts <- base::computeRestarts
[13:13:54.556]                           grepl <- base::grepl
[13:13:54.556]                           restarts <- computeRestarts(cond)
[13:13:54.556]                           for (restart in restarts) {
[13:13:54.556]                             name <- restart$name
[13:13:54.556]                             if (is.null(name)) 
[13:13:54.556]                               next
[13:13:54.556]                             if (!grepl(pattern, name)) 
[13:13:54.556]                               next
[13:13:54.556]                             invokeRestart(restart)
[13:13:54.556]                             muffled <- TRUE
[13:13:54.556]                             break
[13:13:54.556]                           }
[13:13:54.556]                         }
[13:13:54.556]                       }
[13:13:54.556]                       invisible(muffled)
[13:13:54.556]                     }
[13:13:54.556]                     muffleCondition(cond, pattern = "^muffle")
[13:13:54.556]                   }
[13:13:54.556]                 }
[13:13:54.556]                 else {
[13:13:54.556]                   if (TRUE) {
[13:13:54.556]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.556]                     {
[13:13:54.556]                       inherits <- base::inherits
[13:13:54.556]                       invokeRestart <- base::invokeRestart
[13:13:54.556]                       is.null <- base::is.null
[13:13:54.556]                       muffled <- FALSE
[13:13:54.556]                       if (inherits(cond, "message")) {
[13:13:54.556]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:54.556]                         if (muffled) 
[13:13:54.556]                           invokeRestart("muffleMessage")
[13:13:54.556]                       }
[13:13:54.556]                       else if (inherits(cond, "warning")) {
[13:13:54.556]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:54.556]                         if (muffled) 
[13:13:54.556]                           invokeRestart("muffleWarning")
[13:13:54.556]                       }
[13:13:54.556]                       else if (inherits(cond, "condition")) {
[13:13:54.556]                         if (!is.null(pattern)) {
[13:13:54.556]                           computeRestarts <- base::computeRestarts
[13:13:54.556]                           grepl <- base::grepl
[13:13:54.556]                           restarts <- computeRestarts(cond)
[13:13:54.556]                           for (restart in restarts) {
[13:13:54.556]                             name <- restart$name
[13:13:54.556]                             if (is.null(name)) 
[13:13:54.556]                               next
[13:13:54.556]                             if (!grepl(pattern, name)) 
[13:13:54.556]                               next
[13:13:54.556]                             invokeRestart(restart)
[13:13:54.556]                             muffled <- TRUE
[13:13:54.556]                             break
[13:13:54.556]                           }
[13:13:54.556]                         }
[13:13:54.556]                       }
[13:13:54.556]                       invisible(muffled)
[13:13:54.556]                     }
[13:13:54.556]                     muffleCondition(cond, pattern = "^muffle")
[13:13:54.556]                   }
[13:13:54.556]                 }
[13:13:54.556]             }
[13:13:54.556]         }))
[13:13:54.556]     }, error = function(ex) {
[13:13:54.556]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:54.556]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:54.556]                 ...future.rng), started = ...future.startTime, 
[13:13:54.556]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:54.556]             version = "1.8"), class = "FutureResult")
[13:13:54.556]     }, finally = {
[13:13:54.556]         if (!identical(...future.workdir, getwd())) 
[13:13:54.556]             setwd(...future.workdir)
[13:13:54.556]         {
[13:13:54.556]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:54.556]                 ...future.oldOptions$nwarnings <- NULL
[13:13:54.556]             }
[13:13:54.556]             base::options(...future.oldOptions)
[13:13:54.556]             if (.Platform$OS.type == "windows") {
[13:13:54.556]                 old_names <- names(...future.oldEnvVars)
[13:13:54.556]                 envs <- base::Sys.getenv()
[13:13:54.556]                 names <- names(envs)
[13:13:54.556]                 common <- intersect(names, old_names)
[13:13:54.556]                 added <- setdiff(names, old_names)
[13:13:54.556]                 removed <- setdiff(old_names, names)
[13:13:54.556]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:54.556]                   envs[common]]
[13:13:54.556]                 NAMES <- toupper(changed)
[13:13:54.556]                 args <- list()
[13:13:54.556]                 for (kk in seq_along(NAMES)) {
[13:13:54.556]                   name <- changed[[kk]]
[13:13:54.556]                   NAME <- NAMES[[kk]]
[13:13:54.556]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.556]                     next
[13:13:54.556]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:54.556]                 }
[13:13:54.556]                 NAMES <- toupper(added)
[13:13:54.556]                 for (kk in seq_along(NAMES)) {
[13:13:54.556]                   name <- added[[kk]]
[13:13:54.556]                   NAME <- NAMES[[kk]]
[13:13:54.556]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.556]                     next
[13:13:54.556]                   args[[name]] <- ""
[13:13:54.556]                 }
[13:13:54.556]                 NAMES <- toupper(removed)
[13:13:54.556]                 for (kk in seq_along(NAMES)) {
[13:13:54.556]                   name <- removed[[kk]]
[13:13:54.556]                   NAME <- NAMES[[kk]]
[13:13:54.556]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.556]                     next
[13:13:54.556]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:54.556]                 }
[13:13:54.556]                 if (length(args) > 0) 
[13:13:54.556]                   base::do.call(base::Sys.setenv, args = args)
[13:13:54.556]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:54.556]             }
[13:13:54.556]             else {
[13:13:54.556]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:54.556]             }
[13:13:54.556]             {
[13:13:54.556]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:54.556]                   0L) {
[13:13:54.556]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:54.556]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:54.556]                   base::options(opts)
[13:13:54.556]                 }
[13:13:54.556]                 {
[13:13:54.556]                   {
[13:13:54.556]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:54.556]                     NULL
[13:13:54.556]                   }
[13:13:54.556]                   options(future.plan = NULL)
[13:13:54.556]                   if (is.na(NA_character_)) 
[13:13:54.556]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:54.556]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:54.556]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:54.556]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:54.556]                     envir = parent.frame()) 
[13:13:54.556]                   {
[13:13:54.556]                     if (is.function(workers)) 
[13:13:54.556]                       workers <- workers()
[13:13:54.556]                     workers <- structure(as.integer(workers), 
[13:13:54.556]                       class = class(workers))
[13:13:54.556]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:54.556]                       workers >= 1)
[13:13:54.556]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:54.556]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:54.556]                     }
[13:13:54.556]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:54.556]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:54.556]                       envir = envir)
[13:13:54.556]                     if (!future$lazy) 
[13:13:54.556]                       future <- run(future)
[13:13:54.556]                     invisible(future)
[13:13:54.556]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:54.556]                 }
[13:13:54.556]             }
[13:13:54.556]         }
[13:13:54.556]     })
[13:13:54.556]     if (TRUE) {
[13:13:54.556]         base::sink(type = "output", split = FALSE)
[13:13:54.556]         if (TRUE) {
[13:13:54.556]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:54.556]         }
[13:13:54.556]         else {
[13:13:54.556]             ...future.result["stdout"] <- base::list(NULL)
[13:13:54.556]         }
[13:13:54.556]         base::close(...future.stdout)
[13:13:54.556]         ...future.stdout <- NULL
[13:13:54.556]     }
[13:13:54.556]     ...future.result$conditions <- ...future.conditions
[13:13:54.556]     ...future.result$finished <- base::Sys.time()
[13:13:54.556]     ...future.result
[13:13:54.556] }
[13:13:54.561] Exporting 5 global objects (224 bytes) to cluster node #1 ...
[13:13:54.561] Exporting '...future.FUN' (56 bytes) to cluster node #1 ...
[13:13:54.562] Exporting '...future.FUN' (56 bytes) to cluster node #1 ... DONE
[13:13:54.562] Exporting 'MoreArgs' (56 bytes) to cluster node #1 ...
[13:13:54.562] Exporting 'MoreArgs' (56 bytes) to cluster node #1 ... DONE
[13:13:54.563] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ...
[13:13:54.563] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ... DONE
[13:13:54.563] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:54.564] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:54.564] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:54.564] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:54.564] Exporting 5 global objects (224 bytes) to cluster node #1 ... DONE
[13:13:54.565] MultisessionFuture started
[13:13:54.565] - Launch lazy future ... done
[13:13:54.565] run() for 'MultisessionFuture' ... done
[13:13:54.566] Created future:
[13:13:54.581] receiveMessageFromWorker() for ClusterFuture ...
[13:13:54.581] - Validating connection of MultisessionFuture
[13:13:54.582] - received message: FutureResult
[13:13:54.582] - Received FutureResult
[13:13:54.582] - Erased future from FutureRegistry
[13:13:54.582] result() for ClusterFuture ...
[13:13:54.582] - result already collected: FutureResult
[13:13:54.583] result() for ClusterFuture ... done
[13:13:54.583] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:54.566] MultisessionFuture:
[13:13:54.566] Label: 'future_mapply-1'
[13:13:54.566] Expression:
[13:13:54.566] {
[13:13:54.566]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:54.566]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:54.566]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:54.566]         on.exit(options(oopts), add = TRUE)
[13:13:54.566]     }
[13:13:54.566]     {
[13:13:54.566]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:54.566]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:54.566]         do.call(mapply, args = args)
[13:13:54.566]     }
[13:13:54.566] }
[13:13:54.566] Lazy evaluation: FALSE
[13:13:54.566] Asynchronous evaluation: TRUE
[13:13:54.566] Local evaluation: TRUE
[13:13:54.566] Environment: R_GlobalEnv
[13:13:54.566] Capture standard output: TRUE
[13:13:54.566] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:54.566] Globals: 5 objects totaling 224 bytes (function '...future.FUN' of 56 bytes, list 'MoreArgs' of 56 bytes, list '...future.elements_ii' of 112 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:54.566] Packages: <none>
[13:13:54.566] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:54.566] Resolved: TRUE
[13:13:54.566] Value: <not collected>
[13:13:54.566] Conditions captured: <none>
[13:13:54.566] Early signaling: FALSE
[13:13:54.566] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:54.566] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:54.583] Chunk #1 of 2 ... DONE
[13:13:54.583] Chunk #2 of 2 ...
[13:13:54.584]  - Finding globals in '...' for chunk #2 ...
[13:13:54.584] getGlobalsAndPackages() ...
[13:13:54.584] Searching for globals...
[13:13:54.584] 
[13:13:54.584] Searching for globals ... DONE
[13:13:54.585] - globals: [0] <none>
[13:13:54.585] getGlobalsAndPackages() ... DONE
[13:13:54.585]    + additional globals found: [n=0] 
[13:13:54.585]    + additional namespaces needed: [n=0] 
[13:13:54.585]  - Finding globals in '...' for chunk #2 ... DONE
[13:13:54.585]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:54.586]  - seeds: <none>
[13:13:54.586]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.586] getGlobalsAndPackages() ...
[13:13:54.586] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.586] Resolving globals: FALSE
[13:13:54.587] The total size of the 5 globals is 224 bytes (224 bytes)
[13:13:54.588] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 224 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (112 bytes of class 'list'), '...future.FUN' (56 bytes of class 'function') and 'MoreArgs' (56 bytes of class 'list')
[13:13:54.588] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.588] 
[13:13:54.588] getGlobalsAndPackages() ... DONE
[13:13:54.588] run() for 'Future' ...
[13:13:54.589] - state: 'created'
[13:13:54.589] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:54.603] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:54.603] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:54.603]   - Field: 'node'
[13:13:54.603]   - Field: 'label'
[13:13:54.604]   - Field: 'local'
[13:13:54.604]   - Field: 'owner'
[13:13:54.604]   - Field: 'envir'
[13:13:54.604]   - Field: 'workers'
[13:13:54.604]   - Field: 'packages'
[13:13:54.605]   - Field: 'gc'
[13:13:54.605]   - Field: 'conditions'
[13:13:54.605]   - Field: 'persistent'
[13:13:54.605]   - Field: 'expr'
[13:13:54.605]   - Field: 'uuid'
[13:13:54.605]   - Field: 'seed'
[13:13:54.606]   - Field: 'version'
[13:13:54.606]   - Field: 'result'
[13:13:54.606]   - Field: 'asynchronous'
[13:13:54.606]   - Field: 'calls'
[13:13:54.606]   - Field: 'globals'
[13:13:54.606]   - Field: 'stdout'
[13:13:54.607]   - Field: 'earlySignal'
[13:13:54.607]   - Field: 'lazy'
[13:13:54.607]   - Field: 'state'
[13:13:54.607] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:54.607] - Launch lazy future ...
[13:13:54.608] Packages needed by the future expression (n = 0): <none>
[13:13:54.608] Packages needed by future strategies (n = 0): <none>
[13:13:54.608] {
[13:13:54.608]     {
[13:13:54.608]         {
[13:13:54.608]             ...future.startTime <- base::Sys.time()
[13:13:54.608]             {
[13:13:54.608]                 {
[13:13:54.608]                   {
[13:13:54.608]                     {
[13:13:54.608]                       base::local({
[13:13:54.608]                         has_future <- base::requireNamespace("future", 
[13:13:54.608]                           quietly = TRUE)
[13:13:54.608]                         if (has_future) {
[13:13:54.608]                           ns <- base::getNamespace("future")
[13:13:54.608]                           version <- ns[[".package"]][["version"]]
[13:13:54.608]                           if (is.null(version)) 
[13:13:54.608]                             version <- utils::packageVersion("future")
[13:13:54.608]                         }
[13:13:54.608]                         else {
[13:13:54.608]                           version <- NULL
[13:13:54.608]                         }
[13:13:54.608]                         if (!has_future || version < "1.8.0") {
[13:13:54.608]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:54.608]                             "", base::R.version$version.string), 
[13:13:54.608]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:54.608]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:54.608]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:54.608]                               "release", "version")], collapse = " "), 
[13:13:54.608]                             hostname = base::Sys.info()[["nodename"]])
[13:13:54.608]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:54.608]                             info)
[13:13:54.608]                           info <- base::paste(info, collapse = "; ")
[13:13:54.608]                           if (!has_future) {
[13:13:54.608]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:54.608]                               info)
[13:13:54.608]                           }
[13:13:54.608]                           else {
[13:13:54.608]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:54.608]                               info, version)
[13:13:54.608]                           }
[13:13:54.608]                           base::stop(msg)
[13:13:54.608]                         }
[13:13:54.608]                       })
[13:13:54.608]                     }
[13:13:54.608]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:54.608]                     base::options(mc.cores = 1L)
[13:13:54.608]                   }
[13:13:54.608]                   options(future.plan = NULL)
[13:13:54.608]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:54.608]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:54.608]                 }
[13:13:54.608]                 ...future.workdir <- getwd()
[13:13:54.608]             }
[13:13:54.608]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:54.608]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:54.608]         }
[13:13:54.608]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:54.608]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:54.608]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:54.608]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:54.608]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:54.608]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:54.608]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:54.608]             base::names(...future.oldOptions))
[13:13:54.608]     }
[13:13:54.608]     if (FALSE) {
[13:13:54.608]     }
[13:13:54.608]     else {
[13:13:54.608]         if (TRUE) {
[13:13:54.608]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:54.608]                 open = "w")
[13:13:54.608]         }
[13:13:54.608]         else {
[13:13:54.608]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:54.608]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:54.608]         }
[13:13:54.608]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:54.608]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:54.608]             base::sink(type = "output", split = FALSE)
[13:13:54.608]             base::close(...future.stdout)
[13:13:54.608]         }, add = TRUE)
[13:13:54.608]     }
[13:13:54.608]     ...future.frame <- base::sys.nframe()
[13:13:54.608]     ...future.conditions <- base::list()
[13:13:54.608]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:54.608]     if (FALSE) {
[13:13:54.608]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:54.608]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:54.608]     }
[13:13:54.608]     ...future.result <- base::tryCatch({
[13:13:54.608]         base::withCallingHandlers({
[13:13:54.608]             ...future.value <- base::withVisible(base::local({
[13:13:54.608]                 ...future.makeSendCondition <- local({
[13:13:54.608]                   sendCondition <- NULL
[13:13:54.608]                   function(frame = 1L) {
[13:13:54.608]                     if (is.function(sendCondition)) 
[13:13:54.608]                       return(sendCondition)
[13:13:54.608]                     ns <- getNamespace("parallel")
[13:13:54.608]                     if (exists("sendData", mode = "function", 
[13:13:54.608]                       envir = ns)) {
[13:13:54.608]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:54.608]                         envir = ns)
[13:13:54.608]                       envir <- sys.frame(frame)
[13:13:54.608]                       master <- NULL
[13:13:54.608]                       while (!identical(envir, .GlobalEnv) && 
[13:13:54.608]                         !identical(envir, emptyenv())) {
[13:13:54.608]                         if (exists("master", mode = "list", envir = envir, 
[13:13:54.608]                           inherits = FALSE)) {
[13:13:54.608]                           master <- get("master", mode = "list", 
[13:13:54.608]                             envir = envir, inherits = FALSE)
[13:13:54.608]                           if (inherits(master, c("SOCKnode", 
[13:13:54.608]                             "SOCK0node"))) {
[13:13:54.608]                             sendCondition <<- function(cond) {
[13:13:54.608]                               data <- list(type = "VALUE", value = cond, 
[13:13:54.608]                                 success = TRUE)
[13:13:54.608]                               parallel_sendData(master, data)
[13:13:54.608]                             }
[13:13:54.608]                             return(sendCondition)
[13:13:54.608]                           }
[13:13:54.608]                         }
[13:13:54.608]                         frame <- frame + 1L
[13:13:54.608]                         envir <- sys.frame(frame)
[13:13:54.608]                       }
[13:13:54.608]                     }
[13:13:54.608]                     sendCondition <<- function(cond) NULL
[13:13:54.608]                   }
[13:13:54.608]                 })
[13:13:54.608]                 withCallingHandlers({
[13:13:54.608]                   {
[13:13:54.608]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:54.608]                     if (!identical(...future.globals.maxSize.org, 
[13:13:54.608]                       ...future.globals.maxSize)) {
[13:13:54.608]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:54.608]                       on.exit(options(oopts), add = TRUE)
[13:13:54.608]                     }
[13:13:54.608]                     {
[13:13:54.608]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:54.608]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:54.608]                         USE.NAMES = FALSE)
[13:13:54.608]                       do.call(mapply, args = args)
[13:13:54.608]                     }
[13:13:54.608]                   }
[13:13:54.608]                 }, immediateCondition = function(cond) {
[13:13:54.608]                   sendCondition <- ...future.makeSendCondition()
[13:13:54.608]                   sendCondition(cond)
[13:13:54.608]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.608]                   {
[13:13:54.608]                     inherits <- base::inherits
[13:13:54.608]                     invokeRestart <- base::invokeRestart
[13:13:54.608]                     is.null <- base::is.null
[13:13:54.608]                     muffled <- FALSE
[13:13:54.608]                     if (inherits(cond, "message")) {
[13:13:54.608]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:54.608]                       if (muffled) 
[13:13:54.608]                         invokeRestart("muffleMessage")
[13:13:54.608]                     }
[13:13:54.608]                     else if (inherits(cond, "warning")) {
[13:13:54.608]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:54.608]                       if (muffled) 
[13:13:54.608]                         invokeRestart("muffleWarning")
[13:13:54.608]                     }
[13:13:54.608]                     else if (inherits(cond, "condition")) {
[13:13:54.608]                       if (!is.null(pattern)) {
[13:13:54.608]                         computeRestarts <- base::computeRestarts
[13:13:54.608]                         grepl <- base::grepl
[13:13:54.608]                         restarts <- computeRestarts(cond)
[13:13:54.608]                         for (restart in restarts) {
[13:13:54.608]                           name <- restart$name
[13:13:54.608]                           if (is.null(name)) 
[13:13:54.608]                             next
[13:13:54.608]                           if (!grepl(pattern, name)) 
[13:13:54.608]                             next
[13:13:54.608]                           invokeRestart(restart)
[13:13:54.608]                           muffled <- TRUE
[13:13:54.608]                           break
[13:13:54.608]                         }
[13:13:54.608]                       }
[13:13:54.608]                     }
[13:13:54.608]                     invisible(muffled)
[13:13:54.608]                   }
[13:13:54.608]                   muffleCondition(cond)
[13:13:54.608]                 })
[13:13:54.608]             }))
[13:13:54.608]             future::FutureResult(value = ...future.value$value, 
[13:13:54.608]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:54.608]                   ...future.rng), globalenv = if (FALSE) 
[13:13:54.608]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:54.608]                     ...future.globalenv.names))
[13:13:54.608]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:54.608]         }, condition = base::local({
[13:13:54.608]             c <- base::c
[13:13:54.608]             inherits <- base::inherits
[13:13:54.608]             invokeRestart <- base::invokeRestart
[13:13:54.608]             length <- base::length
[13:13:54.608]             list <- base::list
[13:13:54.608]             seq.int <- base::seq.int
[13:13:54.608]             signalCondition <- base::signalCondition
[13:13:54.608]             sys.calls <- base::sys.calls
[13:13:54.608]             `[[` <- base::`[[`
[13:13:54.608]             `+` <- base::`+`
[13:13:54.608]             `<<-` <- base::`<<-`
[13:13:54.608]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:54.608]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:54.608]                   3L)]
[13:13:54.608]             }
[13:13:54.608]             function(cond) {
[13:13:54.608]                 is_error <- inherits(cond, "error")
[13:13:54.608]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:54.608]                   NULL)
[13:13:54.608]                 if (is_error) {
[13:13:54.608]                   sessionInformation <- function() {
[13:13:54.608]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:54.608]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:54.608]                       search = base::search(), system = base::Sys.info())
[13:13:54.608]                   }
[13:13:54.608]                   ...future.conditions[[length(...future.conditions) + 
[13:13:54.608]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:54.608]                     cond$call), session = sessionInformation(), 
[13:13:54.608]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:54.608]                   signalCondition(cond)
[13:13:54.608]                 }
[13:13:54.608]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:54.608]                 "immediateCondition"))) {
[13:13:54.608]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:54.608]                   ...future.conditions[[length(...future.conditions) + 
[13:13:54.608]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:54.608]                   if (TRUE && !signal) {
[13:13:54.608]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.608]                     {
[13:13:54.608]                       inherits <- base::inherits
[13:13:54.608]                       invokeRestart <- base::invokeRestart
[13:13:54.608]                       is.null <- base::is.null
[13:13:54.608]                       muffled <- FALSE
[13:13:54.608]                       if (inherits(cond, "message")) {
[13:13:54.608]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:54.608]                         if (muffled) 
[13:13:54.608]                           invokeRestart("muffleMessage")
[13:13:54.608]                       }
[13:13:54.608]                       else if (inherits(cond, "warning")) {
[13:13:54.608]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:54.608]                         if (muffled) 
[13:13:54.608]                           invokeRestart("muffleWarning")
[13:13:54.608]                       }
[13:13:54.608]                       else if (inherits(cond, "condition")) {
[13:13:54.608]                         if (!is.null(pattern)) {
[13:13:54.608]                           computeRestarts <- base::computeRestarts
[13:13:54.608]                           grepl <- base::grepl
[13:13:54.608]                           restarts <- computeRestarts(cond)
[13:13:54.608]                           for (restart in restarts) {
[13:13:54.608]                             name <- restart$name
[13:13:54.608]                             if (is.null(name)) 
[13:13:54.608]                               next
[13:13:54.608]                             if (!grepl(pattern, name)) 
[13:13:54.608]                               next
[13:13:54.608]                             invokeRestart(restart)
[13:13:54.608]                             muffled <- TRUE
[13:13:54.608]                             break
[13:13:54.608]                           }
[13:13:54.608]                         }
[13:13:54.608]                       }
[13:13:54.608]                       invisible(muffled)
[13:13:54.608]                     }
[13:13:54.608]                     muffleCondition(cond, pattern = "^muffle")
[13:13:54.608]                   }
[13:13:54.608]                 }
[13:13:54.608]                 else {
[13:13:54.608]                   if (TRUE) {
[13:13:54.608]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.608]                     {
[13:13:54.608]                       inherits <- base::inherits
[13:13:54.608]                       invokeRestart <- base::invokeRestart
[13:13:54.608]                       is.null <- base::is.null
[13:13:54.608]                       muffled <- FALSE
[13:13:54.608]                       if (inherits(cond, "message")) {
[13:13:54.608]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:54.608]                         if (muffled) 
[13:13:54.608]                           invokeRestart("muffleMessage")
[13:13:54.608]                       }
[13:13:54.608]                       else if (inherits(cond, "warning")) {
[13:13:54.608]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:54.608]                         if (muffled) 
[13:13:54.608]                           invokeRestart("muffleWarning")
[13:13:54.608]                       }
[13:13:54.608]                       else if (inherits(cond, "condition")) {
[13:13:54.608]                         if (!is.null(pattern)) {
[13:13:54.608]                           computeRestarts <- base::computeRestarts
[13:13:54.608]                           grepl <- base::grepl
[13:13:54.608]                           restarts <- computeRestarts(cond)
[13:13:54.608]                           for (restart in restarts) {
[13:13:54.608]                             name <- restart$name
[13:13:54.608]                             if (is.null(name)) 
[13:13:54.608]                               next
[13:13:54.608]                             if (!grepl(pattern, name)) 
[13:13:54.608]                               next
[13:13:54.608]                             invokeRestart(restart)
[13:13:54.608]                             muffled <- TRUE
[13:13:54.608]                             break
[13:13:54.608]                           }
[13:13:54.608]                         }
[13:13:54.608]                       }
[13:13:54.608]                       invisible(muffled)
[13:13:54.608]                     }
[13:13:54.608]                     muffleCondition(cond, pattern = "^muffle")
[13:13:54.608]                   }
[13:13:54.608]                 }
[13:13:54.608]             }
[13:13:54.608]         }))
[13:13:54.608]     }, error = function(ex) {
[13:13:54.608]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:54.608]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:54.608]                 ...future.rng), started = ...future.startTime, 
[13:13:54.608]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:54.608]             version = "1.8"), class = "FutureResult")
[13:13:54.608]     }, finally = {
[13:13:54.608]         if (!identical(...future.workdir, getwd())) 
[13:13:54.608]             setwd(...future.workdir)
[13:13:54.608]         {
[13:13:54.608]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:54.608]                 ...future.oldOptions$nwarnings <- NULL
[13:13:54.608]             }
[13:13:54.608]             base::options(...future.oldOptions)
[13:13:54.608]             if (.Platform$OS.type == "windows") {
[13:13:54.608]                 old_names <- names(...future.oldEnvVars)
[13:13:54.608]                 envs <- base::Sys.getenv()
[13:13:54.608]                 names <- names(envs)
[13:13:54.608]                 common <- intersect(names, old_names)
[13:13:54.608]                 added <- setdiff(names, old_names)
[13:13:54.608]                 removed <- setdiff(old_names, names)
[13:13:54.608]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:54.608]                   envs[common]]
[13:13:54.608]                 NAMES <- toupper(changed)
[13:13:54.608]                 args <- list()
[13:13:54.608]                 for (kk in seq_along(NAMES)) {
[13:13:54.608]                   name <- changed[[kk]]
[13:13:54.608]                   NAME <- NAMES[[kk]]
[13:13:54.608]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.608]                     next
[13:13:54.608]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:54.608]                 }
[13:13:54.608]                 NAMES <- toupper(added)
[13:13:54.608]                 for (kk in seq_along(NAMES)) {
[13:13:54.608]                   name <- added[[kk]]
[13:13:54.608]                   NAME <- NAMES[[kk]]
[13:13:54.608]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.608]                     next
[13:13:54.608]                   args[[name]] <- ""
[13:13:54.608]                 }
[13:13:54.608]                 NAMES <- toupper(removed)
[13:13:54.608]                 for (kk in seq_along(NAMES)) {
[13:13:54.608]                   name <- removed[[kk]]
[13:13:54.608]                   NAME <- NAMES[[kk]]
[13:13:54.608]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.608]                     next
[13:13:54.608]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:54.608]                 }
[13:13:54.608]                 if (length(args) > 0) 
[13:13:54.608]                   base::do.call(base::Sys.setenv, args = args)
[13:13:54.608]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:54.608]             }
[13:13:54.608]             else {
[13:13:54.608]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:54.608]             }
[13:13:54.608]             {
[13:13:54.608]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:54.608]                   0L) {
[13:13:54.608]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:54.608]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:54.608]                   base::options(opts)
[13:13:54.608]                 }
[13:13:54.608]                 {
[13:13:54.608]                   {
[13:13:54.608]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:54.608]                     NULL
[13:13:54.608]                   }
[13:13:54.608]                   options(future.plan = NULL)
[13:13:54.608]                   if (is.na(NA_character_)) 
[13:13:54.608]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:54.608]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:54.608]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:54.608]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:54.608]                     envir = parent.frame()) 
[13:13:54.608]                   {
[13:13:54.608]                     if (is.function(workers)) 
[13:13:54.608]                       workers <- workers()
[13:13:54.608]                     workers <- structure(as.integer(workers), 
[13:13:54.608]                       class = class(workers))
[13:13:54.608]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:54.608]                       workers >= 1)
[13:13:54.608]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:54.608]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:54.608]                     }
[13:13:54.608]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:54.608]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:54.608]                       envir = envir)
[13:13:54.608]                     if (!future$lazy) 
[13:13:54.608]                       future <- run(future)
[13:13:54.608]                     invisible(future)
[13:13:54.608]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:54.608]                 }
[13:13:54.608]             }
[13:13:54.608]         }
[13:13:54.608]     })
[13:13:54.608]     if (TRUE) {
[13:13:54.608]         base::sink(type = "output", split = FALSE)
[13:13:54.608]         if (TRUE) {
[13:13:54.608]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:54.608]         }
[13:13:54.608]         else {
[13:13:54.608]             ...future.result["stdout"] <- base::list(NULL)
[13:13:54.608]         }
[13:13:54.608]         base::close(...future.stdout)
[13:13:54.608]         ...future.stdout <- NULL
[13:13:54.608]     }
[13:13:54.608]     ...future.result$conditions <- ...future.conditions
[13:13:54.608]     ...future.result$finished <- base::Sys.time()
[13:13:54.608]     ...future.result
[13:13:54.608] }
[13:13:54.614] Exporting 5 global objects (224 bytes) to cluster node #1 ...
[13:13:54.614] Exporting '...future.FUN' (56 bytes) to cluster node #1 ...
[13:13:54.614] Exporting '...future.FUN' (56 bytes) to cluster node #1 ... DONE
[13:13:54.615] Exporting 'MoreArgs' (56 bytes) to cluster node #1 ...
[13:13:54.615] Exporting 'MoreArgs' (56 bytes) to cluster node #1 ... DONE
[13:13:54.615] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ...
[13:13:54.616] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ... DONE
[13:13:54.616] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:54.616] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:54.616] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:54.617] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:54.617] Exporting 5 global objects (224 bytes) to cluster node #1 ... DONE
[13:13:54.618] MultisessionFuture started
[13:13:54.618] - Launch lazy future ... done
[13:13:54.618] run() for 'MultisessionFuture' ... done
[13:13:54.618] Created future:
[13:13:54.634] receiveMessageFromWorker() for ClusterFuture ...
[13:13:54.634] - Validating connection of MultisessionFuture
[13:13:54.634] - received message: FutureResult
[13:13:54.634] - Received FutureResult
[13:13:54.635] - Erased future from FutureRegistry
[13:13:54.635] result() for ClusterFuture ...
[13:13:54.635] - result already collected: FutureResult
[13:13:54.635] result() for ClusterFuture ... done
[13:13:54.635] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:54.618] MultisessionFuture:
[13:13:54.618] Label: 'future_mapply-2'
[13:13:54.618] Expression:
[13:13:54.618] {
[13:13:54.618]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:54.618]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:54.618]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:54.618]         on.exit(options(oopts), add = TRUE)
[13:13:54.618]     }
[13:13:54.618]     {
[13:13:54.618]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:54.618]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:54.618]         do.call(mapply, args = args)
[13:13:54.618]     }
[13:13:54.618] }
[13:13:54.618] Lazy evaluation: FALSE
[13:13:54.618] Asynchronous evaluation: TRUE
[13:13:54.618] Local evaluation: TRUE
[13:13:54.618] Environment: R_GlobalEnv
[13:13:54.618] Capture standard output: TRUE
[13:13:54.618] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:54.618] Globals: 5 objects totaling 224 bytes (function '...future.FUN' of 56 bytes, list 'MoreArgs' of 56 bytes, list '...future.elements_ii' of 112 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:54.618] Packages: <none>
[13:13:54.618] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:54.618] Resolved: TRUE
[13:13:54.618] Value: <not collected>
[13:13:54.618] Conditions captured: <none>
[13:13:54.618] Early signaling: FALSE
[13:13:54.618] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:54.618] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:54.636] Chunk #2 of 2 ... DONE
[13:13:54.636] Launching 2 futures (chunks) ... DONE
[13:13:54.636] Resolving 2 futures (chunks) ...
[13:13:54.636] resolve() on list ...
[13:13:54.636]  recursive: 0
[13:13:54.636]  length: 2
[13:13:54.637] 
[13:13:54.637] Future #1
[13:13:54.637] result() for ClusterFuture ...
[13:13:54.637] - result already collected: FutureResult
[13:13:54.637] result() for ClusterFuture ... done
[13:13:54.637] result() for ClusterFuture ...
[13:13:54.638] - result already collected: FutureResult
[13:13:54.638] result() for ClusterFuture ... done
[13:13:54.638] signalConditionsASAP(MultisessionFuture, pos=1) ...
[13:13:54.638] - nx: 2
[13:13:54.638] - relay: TRUE
[13:13:54.638] - stdout: TRUE
[13:13:54.638] - signal: TRUE
[13:13:54.639] - resignal: FALSE
[13:13:54.639] - force: TRUE
[13:13:54.639] - relayed: [n=2] FALSE, FALSE
[13:13:54.639] - queued futures: [n=2] FALSE, FALSE
[13:13:54.639]  - until=1
[13:13:54.639]  - relaying element #1
[13:13:54.640] result() for ClusterFuture ...
[13:13:54.640] - result already collected: FutureResult
[13:13:54.640] result() for ClusterFuture ... done
[13:13:54.640] result() for ClusterFuture ...
[13:13:54.640] - result already collected: FutureResult
[13:13:54.640] result() for ClusterFuture ... done
[13:13:54.641] result() for ClusterFuture ...
[13:13:54.641] - result already collected: FutureResult
[13:13:54.641] result() for ClusterFuture ... done
[13:13:54.641] result() for ClusterFuture ...
[13:13:54.641] - result already collected: FutureResult
[13:13:54.641] result() for ClusterFuture ... done
[13:13:54.642] - relayed: [n=2] TRUE, FALSE
[13:13:54.642] - queued futures: [n=2] TRUE, FALSE
[13:13:54.642] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[13:13:54.642]  length: 1 (resolved future 1)
[13:13:54.642] Future #2
[13:13:54.643] result() for ClusterFuture ...
[13:13:54.643] - result already collected: FutureResult
[13:13:54.643] result() for ClusterFuture ... done
[13:13:54.643] result() for ClusterFuture ...
[13:13:54.643] - result already collected: FutureResult
[13:13:54.643] result() for ClusterFuture ... done
[13:13:54.643] signalConditionsASAP(MultisessionFuture, pos=2) ...
[13:13:54.644] - nx: 2
[13:13:54.644] - relay: TRUE
[13:13:54.644] - stdout: TRUE
[13:13:54.644] - signal: TRUE
[13:13:54.644] - resignal: FALSE
[13:13:54.645] - force: TRUE
[13:13:54.645] - relayed: [n=2] TRUE, FALSE
[13:13:54.645] - queued futures: [n=2] TRUE, FALSE
[13:13:54.645]  - until=2
[13:13:54.645]  - relaying element #2
[13:13:54.645] result() for ClusterFuture ...
[13:13:54.646] - result already collected: FutureResult
[13:13:54.646] result() for ClusterFuture ... done
[13:13:54.646] result() for ClusterFuture ...
[13:13:54.646] - result already collected: FutureResult
[13:13:54.646] result() for ClusterFuture ... done
[13:13:54.646] result() for ClusterFuture ...
[13:13:54.647] - result already collected: FutureResult
[13:13:54.647] result() for ClusterFuture ... done
[13:13:54.647] result() for ClusterFuture ...
[13:13:54.647] - result already collected: FutureResult
[13:13:54.647] result() for ClusterFuture ... done
[13:13:54.647] - relayed: [n=2] TRUE, TRUE
[13:13:54.647] - queued futures: [n=2] TRUE, TRUE
[13:13:54.648] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[13:13:54.648]  length: 0 (resolved future 2)
[13:13:54.648] Relaying remaining futures
[13:13:54.648] signalConditionsASAP(NULL, pos=0) ...
[13:13:54.648] - nx: 2
[13:13:54.648] - relay: TRUE
[13:13:54.649] - stdout: TRUE
[13:13:54.649] - signal: TRUE
[13:13:54.649] - resignal: FALSE
[13:13:54.649] - force: TRUE
[13:13:54.649] - relayed: [n=2] TRUE, TRUE
[13:13:54.649] - queued futures: [n=2] TRUE, TRUE
 - flush all
[13:13:54.650] - relayed: [n=2] TRUE, TRUE
[13:13:54.650] - queued futures: [n=2] TRUE, TRUE
[13:13:54.650] signalConditionsASAP(NULL, pos=0) ... done
[13:13:54.650] resolve() on list ... DONE
[13:13:54.650] result() for ClusterFuture ...
[13:13:54.650] - result already collected: FutureResult
[13:13:54.651] result() for ClusterFuture ... done
[13:13:54.651] result() for ClusterFuture ...
[13:13:54.651] - result already collected: FutureResult
[13:13:54.651] result() for ClusterFuture ... done
[13:13:54.651] result() for ClusterFuture ...
[13:13:54.651] - result already collected: FutureResult
[13:13:54.651] result() for ClusterFuture ... done
[13:13:54.652] result() for ClusterFuture ...
[13:13:54.652] - result already collected: FutureResult
[13:13:54.652] result() for ClusterFuture ... done
[13:13:54.652]  - Number of value chunks collected: 2
[13:13:54.652] Resolving 2 futures (chunks) ... DONE
[13:13:54.652] Reducing values from 2 chunks ...
[13:13:54.653]  - Number of values collected after concatenation: 4
[13:13:54.653]  - Number of values expected: 4
[13:13:54.653] Reducing values from 2 chunks ... DONE
[13:13:54.653] future_mapply() ... DONE
[13:13:54.653] future_mapply() ...
[13:13:54.656] Number of chunks: 2
[13:13:54.656] getGlobalsAndPackagesXApply() ...
[13:13:54.656]  - future.globals: TRUE
[13:13:54.656] getGlobalsAndPackages() ...
[13:13:54.657] Searching for globals...
[13:13:54.658] - globals found: [3] 'FUN', '+', 'seq_len'
[13:13:54.658] Searching for globals ... DONE
[13:13:54.658] Resolving globals: FALSE
[13:13:54.659] The total size of the 1 globals is 1.93 KiB (1976 bytes)
[13:13:54.659] The total size of the 1 globals exported for future expression ('FUN()') is 1.93 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (1.93 KiB of class 'function')
[13:13:54.660] - globals: [1] 'FUN'
[13:13:54.660] 
[13:13:54.660] getGlobalsAndPackages() ... DONE
[13:13:54.660]  - globals found/used: [n=1] 'FUN'
[13:13:54.660]  - needed namespaces: [n=0] 
[13:13:54.660] Finding globals ... DONE
[13:13:54.661] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:54.661] List of 2
[13:13:54.661]  $ ...future.FUN:function (x, y)  
[13:13:54.661]  $ MoreArgs     : NULL
[13:13:54.661]  - attr(*, "where")=List of 2
[13:13:54.661]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:54.661]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:54.661]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:54.661]  - attr(*, "resolved")= logi FALSE
[13:13:54.661]  - attr(*, "total_size")= num NA
[13:13:54.666] Packages to be attached in all futures: [n=0] 
[13:13:54.666] getGlobalsAndPackagesXApply() ... DONE
[13:13:54.666] Number of futures (= number of chunks): 2
[13:13:54.666] Launching 2 futures (chunks) ...
[13:13:54.666] Chunk #1 of 2 ...
[13:13:54.667]  - Finding globals in '...' for chunk #1 ...
[13:13:54.667] getGlobalsAndPackages() ...
[13:13:54.667] Searching for globals...
[13:13:54.667] 
[13:13:54.668] Searching for globals ... DONE
[13:13:54.668] - globals: [0] <none>
[13:13:54.668] getGlobalsAndPackages() ... DONE
[13:13:54.668]    + additional globals found: [n=0] 
[13:13:54.668]    + additional namespaces needed: [n=0] 
[13:13:54.668]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:54.669]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:54.669]  - seeds: <none>
[13:13:54.669]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.669] getGlobalsAndPackages() ...
[13:13:54.669] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.669] Resolving globals: FALSE
[13:13:54.670] The total size of the 5 globals is 2.04 KiB (2088 bytes)
[13:13:54.671] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 2.04 KiB.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (1.93 KiB of class 'function'), '...future.elements_ii' (112 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:54.671] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.671] 
[13:13:54.671] getGlobalsAndPackages() ... DONE
[13:13:54.671] run() for 'Future' ...
[13:13:54.672] - state: 'created'
[13:13:54.672] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:54.686] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:54.686] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:54.686]   - Field: 'node'
[13:13:54.686]   - Field: 'label'
[13:13:54.686]   - Field: 'local'
[13:13:54.687]   - Field: 'owner'
[13:13:54.687]   - Field: 'envir'
[13:13:54.687]   - Field: 'workers'
[13:13:54.687]   - Field: 'packages'
[13:13:54.687]   - Field: 'gc'
[13:13:54.688]   - Field: 'conditions'
[13:13:54.688]   - Field: 'persistent'
[13:13:54.688]   - Field: 'expr'
[13:13:54.688]   - Field: 'uuid'
[13:13:54.688]   - Field: 'seed'
[13:13:54.688]   - Field: 'version'
[13:13:54.689]   - Field: 'result'
[13:13:54.689]   - Field: 'asynchronous'
[13:13:54.689]   - Field: 'calls'
[13:13:54.689]   - Field: 'globals'
[13:13:54.689]   - Field: 'stdout'
[13:13:54.689]   - Field: 'earlySignal'
[13:13:54.690]   - Field: 'lazy'
[13:13:54.690]   - Field: 'state'
[13:13:54.690] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:54.690] - Launch lazy future ...
[13:13:54.690] Packages needed by the future expression (n = 0): <none>
[13:13:54.691] Packages needed by future strategies (n = 0): <none>
[13:13:54.691] {
[13:13:54.691]     {
[13:13:54.691]         {
[13:13:54.691]             ...future.startTime <- base::Sys.time()
[13:13:54.691]             {
[13:13:54.691]                 {
[13:13:54.691]                   {
[13:13:54.691]                     {
[13:13:54.691]                       base::local({
[13:13:54.691]                         has_future <- base::requireNamespace("future", 
[13:13:54.691]                           quietly = TRUE)
[13:13:54.691]                         if (has_future) {
[13:13:54.691]                           ns <- base::getNamespace("future")
[13:13:54.691]                           version <- ns[[".package"]][["version"]]
[13:13:54.691]                           if (is.null(version)) 
[13:13:54.691]                             version <- utils::packageVersion("future")
[13:13:54.691]                         }
[13:13:54.691]                         else {
[13:13:54.691]                           version <- NULL
[13:13:54.691]                         }
[13:13:54.691]                         if (!has_future || version < "1.8.0") {
[13:13:54.691]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:54.691]                             "", base::R.version$version.string), 
[13:13:54.691]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:54.691]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:54.691]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:54.691]                               "release", "version")], collapse = " "), 
[13:13:54.691]                             hostname = base::Sys.info()[["nodename"]])
[13:13:54.691]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:54.691]                             info)
[13:13:54.691]                           info <- base::paste(info, collapse = "; ")
[13:13:54.691]                           if (!has_future) {
[13:13:54.691]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:54.691]                               info)
[13:13:54.691]                           }
[13:13:54.691]                           else {
[13:13:54.691]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:54.691]                               info, version)
[13:13:54.691]                           }
[13:13:54.691]                           base::stop(msg)
[13:13:54.691]                         }
[13:13:54.691]                       })
[13:13:54.691]                     }
[13:13:54.691]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:54.691]                     base::options(mc.cores = 1L)
[13:13:54.691]                   }
[13:13:54.691]                   options(future.plan = NULL)
[13:13:54.691]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:54.691]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:54.691]                 }
[13:13:54.691]                 ...future.workdir <- getwd()
[13:13:54.691]             }
[13:13:54.691]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:54.691]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:54.691]         }
[13:13:54.691]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:54.691]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:54.691]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:54.691]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:54.691]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:54.691]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:54.691]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:54.691]             base::names(...future.oldOptions))
[13:13:54.691]     }
[13:13:54.691]     if (FALSE) {
[13:13:54.691]     }
[13:13:54.691]     else {
[13:13:54.691]         if (TRUE) {
[13:13:54.691]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:54.691]                 open = "w")
[13:13:54.691]         }
[13:13:54.691]         else {
[13:13:54.691]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:54.691]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:54.691]         }
[13:13:54.691]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:54.691]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:54.691]             base::sink(type = "output", split = FALSE)
[13:13:54.691]             base::close(...future.stdout)
[13:13:54.691]         }, add = TRUE)
[13:13:54.691]     }
[13:13:54.691]     ...future.frame <- base::sys.nframe()
[13:13:54.691]     ...future.conditions <- base::list()
[13:13:54.691]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:54.691]     if (FALSE) {
[13:13:54.691]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:54.691]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:54.691]     }
[13:13:54.691]     ...future.result <- base::tryCatch({
[13:13:54.691]         base::withCallingHandlers({
[13:13:54.691]             ...future.value <- base::withVisible(base::local({
[13:13:54.691]                 ...future.makeSendCondition <- local({
[13:13:54.691]                   sendCondition <- NULL
[13:13:54.691]                   function(frame = 1L) {
[13:13:54.691]                     if (is.function(sendCondition)) 
[13:13:54.691]                       return(sendCondition)
[13:13:54.691]                     ns <- getNamespace("parallel")
[13:13:54.691]                     if (exists("sendData", mode = "function", 
[13:13:54.691]                       envir = ns)) {
[13:13:54.691]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:54.691]                         envir = ns)
[13:13:54.691]                       envir <- sys.frame(frame)
[13:13:54.691]                       master <- NULL
[13:13:54.691]                       while (!identical(envir, .GlobalEnv) && 
[13:13:54.691]                         !identical(envir, emptyenv())) {
[13:13:54.691]                         if (exists("master", mode = "list", envir = envir, 
[13:13:54.691]                           inherits = FALSE)) {
[13:13:54.691]                           master <- get("master", mode = "list", 
[13:13:54.691]                             envir = envir, inherits = FALSE)
[13:13:54.691]                           if (inherits(master, c("SOCKnode", 
[13:13:54.691]                             "SOCK0node"))) {
[13:13:54.691]                             sendCondition <<- function(cond) {
[13:13:54.691]                               data <- list(type = "VALUE", value = cond, 
[13:13:54.691]                                 success = TRUE)
[13:13:54.691]                               parallel_sendData(master, data)
[13:13:54.691]                             }
[13:13:54.691]                             return(sendCondition)
[13:13:54.691]                           }
[13:13:54.691]                         }
[13:13:54.691]                         frame <- frame + 1L
[13:13:54.691]                         envir <- sys.frame(frame)
[13:13:54.691]                       }
[13:13:54.691]                     }
[13:13:54.691]                     sendCondition <<- function(cond) NULL
[13:13:54.691]                   }
[13:13:54.691]                 })
[13:13:54.691]                 withCallingHandlers({
[13:13:54.691]                   {
[13:13:54.691]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:54.691]                     if (!identical(...future.globals.maxSize.org, 
[13:13:54.691]                       ...future.globals.maxSize)) {
[13:13:54.691]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:54.691]                       on.exit(options(oopts), add = TRUE)
[13:13:54.691]                     }
[13:13:54.691]                     {
[13:13:54.691]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:54.691]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:54.691]                         USE.NAMES = FALSE)
[13:13:54.691]                       do.call(mapply, args = args)
[13:13:54.691]                     }
[13:13:54.691]                   }
[13:13:54.691]                 }, immediateCondition = function(cond) {
[13:13:54.691]                   sendCondition <- ...future.makeSendCondition()
[13:13:54.691]                   sendCondition(cond)
[13:13:54.691]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.691]                   {
[13:13:54.691]                     inherits <- base::inherits
[13:13:54.691]                     invokeRestart <- base::invokeRestart
[13:13:54.691]                     is.null <- base::is.null
[13:13:54.691]                     muffled <- FALSE
[13:13:54.691]                     if (inherits(cond, "message")) {
[13:13:54.691]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:54.691]                       if (muffled) 
[13:13:54.691]                         invokeRestart("muffleMessage")
[13:13:54.691]                     }
[13:13:54.691]                     else if (inherits(cond, "warning")) {
[13:13:54.691]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:54.691]                       if (muffled) 
[13:13:54.691]                         invokeRestart("muffleWarning")
[13:13:54.691]                     }
[13:13:54.691]                     else if (inherits(cond, "condition")) {
[13:13:54.691]                       if (!is.null(pattern)) {
[13:13:54.691]                         computeRestarts <- base::computeRestarts
[13:13:54.691]                         grepl <- base::grepl
[13:13:54.691]                         restarts <- computeRestarts(cond)
[13:13:54.691]                         for (restart in restarts) {
[13:13:54.691]                           name <- restart$name
[13:13:54.691]                           if (is.null(name)) 
[13:13:54.691]                             next
[13:13:54.691]                           if (!grepl(pattern, name)) 
[13:13:54.691]                             next
[13:13:54.691]                           invokeRestart(restart)
[13:13:54.691]                           muffled <- TRUE
[13:13:54.691]                           break
[13:13:54.691]                         }
[13:13:54.691]                       }
[13:13:54.691]                     }
[13:13:54.691]                     invisible(muffled)
[13:13:54.691]                   }
[13:13:54.691]                   muffleCondition(cond)
[13:13:54.691]                 })
[13:13:54.691]             }))
[13:13:54.691]             future::FutureResult(value = ...future.value$value, 
[13:13:54.691]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:54.691]                   ...future.rng), globalenv = if (FALSE) 
[13:13:54.691]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:54.691]                     ...future.globalenv.names))
[13:13:54.691]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:54.691]         }, condition = base::local({
[13:13:54.691]             c <- base::c
[13:13:54.691]             inherits <- base::inherits
[13:13:54.691]             invokeRestart <- base::invokeRestart
[13:13:54.691]             length <- base::length
[13:13:54.691]             list <- base::list
[13:13:54.691]             seq.int <- base::seq.int
[13:13:54.691]             signalCondition <- base::signalCondition
[13:13:54.691]             sys.calls <- base::sys.calls
[13:13:54.691]             `[[` <- base::`[[`
[13:13:54.691]             `+` <- base::`+`
[13:13:54.691]             `<<-` <- base::`<<-`
[13:13:54.691]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:54.691]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:54.691]                   3L)]
[13:13:54.691]             }
[13:13:54.691]             function(cond) {
[13:13:54.691]                 is_error <- inherits(cond, "error")
[13:13:54.691]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:54.691]                   NULL)
[13:13:54.691]                 if (is_error) {
[13:13:54.691]                   sessionInformation <- function() {
[13:13:54.691]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:54.691]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:54.691]                       search = base::search(), system = base::Sys.info())
[13:13:54.691]                   }
[13:13:54.691]                   ...future.conditions[[length(...future.conditions) + 
[13:13:54.691]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:54.691]                     cond$call), session = sessionInformation(), 
[13:13:54.691]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:54.691]                   signalCondition(cond)
[13:13:54.691]                 }
[13:13:54.691]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:54.691]                 "immediateCondition"))) {
[13:13:54.691]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:54.691]                   ...future.conditions[[length(...future.conditions) + 
[13:13:54.691]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:54.691]                   if (TRUE && !signal) {
[13:13:54.691]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.691]                     {
[13:13:54.691]                       inherits <- base::inherits
[13:13:54.691]                       invokeRestart <- base::invokeRestart
[13:13:54.691]                       is.null <- base::is.null
[13:13:54.691]                       muffled <- FALSE
[13:13:54.691]                       if (inherits(cond, "message")) {
[13:13:54.691]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:54.691]                         if (muffled) 
[13:13:54.691]                           invokeRestart("muffleMessage")
[13:13:54.691]                       }
[13:13:54.691]                       else if (inherits(cond, "warning")) {
[13:13:54.691]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:54.691]                         if (muffled) 
[13:13:54.691]                           invokeRestart("muffleWarning")
[13:13:54.691]                       }
[13:13:54.691]                       else if (inherits(cond, "condition")) {
[13:13:54.691]                         if (!is.null(pattern)) {
[13:13:54.691]                           computeRestarts <- base::computeRestarts
[13:13:54.691]                           grepl <- base::grepl
[13:13:54.691]                           restarts <- computeRestarts(cond)
[13:13:54.691]                           for (restart in restarts) {
[13:13:54.691]                             name <- restart$name
[13:13:54.691]                             if (is.null(name)) 
[13:13:54.691]                               next
[13:13:54.691]                             if (!grepl(pattern, name)) 
[13:13:54.691]                               next
[13:13:54.691]                             invokeRestart(restart)
[13:13:54.691]                             muffled <- TRUE
[13:13:54.691]                             break
[13:13:54.691]                           }
[13:13:54.691]                         }
[13:13:54.691]                       }
[13:13:54.691]                       invisible(muffled)
[13:13:54.691]                     }
[13:13:54.691]                     muffleCondition(cond, pattern = "^muffle")
[13:13:54.691]                   }
[13:13:54.691]                 }
[13:13:54.691]                 else {
[13:13:54.691]                   if (TRUE) {
[13:13:54.691]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.691]                     {
[13:13:54.691]                       inherits <- base::inherits
[13:13:54.691]                       invokeRestart <- base::invokeRestart
[13:13:54.691]                       is.null <- base::is.null
[13:13:54.691]                       muffled <- FALSE
[13:13:54.691]                       if (inherits(cond, "message")) {
[13:13:54.691]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:54.691]                         if (muffled) 
[13:13:54.691]                           invokeRestart("muffleMessage")
[13:13:54.691]                       }
[13:13:54.691]                       else if (inherits(cond, "warning")) {
[13:13:54.691]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:54.691]                         if (muffled) 
[13:13:54.691]                           invokeRestart("muffleWarning")
[13:13:54.691]                       }
[13:13:54.691]                       else if (inherits(cond, "condition")) {
[13:13:54.691]                         if (!is.null(pattern)) {
[13:13:54.691]                           computeRestarts <- base::computeRestarts
[13:13:54.691]                           grepl <- base::grepl
[13:13:54.691]                           restarts <- computeRestarts(cond)
[13:13:54.691]                           for (restart in restarts) {
[13:13:54.691]                             name <- restart$name
[13:13:54.691]                             if (is.null(name)) 
[13:13:54.691]                               next
[13:13:54.691]                             if (!grepl(pattern, name)) 
[13:13:54.691]                               next
[13:13:54.691]                             invokeRestart(restart)
[13:13:54.691]                             muffled <- TRUE
[13:13:54.691]                             break
[13:13:54.691]                           }
[13:13:54.691]                         }
[13:13:54.691]                       }
[13:13:54.691]                       invisible(muffled)
[13:13:54.691]                     }
[13:13:54.691]                     muffleCondition(cond, pattern = "^muffle")
[13:13:54.691]                   }
[13:13:54.691]                 }
[13:13:54.691]             }
[13:13:54.691]         }))
[13:13:54.691]     }, error = function(ex) {
[13:13:54.691]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:54.691]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:54.691]                 ...future.rng), started = ...future.startTime, 
[13:13:54.691]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:54.691]             version = "1.8"), class = "FutureResult")
[13:13:54.691]     }, finally = {
[13:13:54.691]         if (!identical(...future.workdir, getwd())) 
[13:13:54.691]             setwd(...future.workdir)
[13:13:54.691]         {
[13:13:54.691]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:54.691]                 ...future.oldOptions$nwarnings <- NULL
[13:13:54.691]             }
[13:13:54.691]             base::options(...future.oldOptions)
[13:13:54.691]             if (.Platform$OS.type == "windows") {
[13:13:54.691]                 old_names <- names(...future.oldEnvVars)
[13:13:54.691]                 envs <- base::Sys.getenv()
[13:13:54.691]                 names <- names(envs)
[13:13:54.691]                 common <- intersect(names, old_names)
[13:13:54.691]                 added <- setdiff(names, old_names)
[13:13:54.691]                 removed <- setdiff(old_names, names)
[13:13:54.691]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:54.691]                   envs[common]]
[13:13:54.691]                 NAMES <- toupper(changed)
[13:13:54.691]                 args <- list()
[13:13:54.691]                 for (kk in seq_along(NAMES)) {
[13:13:54.691]                   name <- changed[[kk]]
[13:13:54.691]                   NAME <- NAMES[[kk]]
[13:13:54.691]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.691]                     next
[13:13:54.691]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:54.691]                 }
[13:13:54.691]                 NAMES <- toupper(added)
[13:13:54.691]                 for (kk in seq_along(NAMES)) {
[13:13:54.691]                   name <- added[[kk]]
[13:13:54.691]                   NAME <- NAMES[[kk]]
[13:13:54.691]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.691]                     next
[13:13:54.691]                   args[[name]] <- ""
[13:13:54.691]                 }
[13:13:54.691]                 NAMES <- toupper(removed)
[13:13:54.691]                 for (kk in seq_along(NAMES)) {
[13:13:54.691]                   name <- removed[[kk]]
[13:13:54.691]                   NAME <- NAMES[[kk]]
[13:13:54.691]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.691]                     next
[13:13:54.691]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:54.691]                 }
[13:13:54.691]                 if (length(args) > 0) 
[13:13:54.691]                   base::do.call(base::Sys.setenv, args = args)
[13:13:54.691]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:54.691]             }
[13:13:54.691]             else {
[13:13:54.691]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:54.691]             }
[13:13:54.691]             {
[13:13:54.691]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:54.691]                   0L) {
[13:13:54.691]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:54.691]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:54.691]                   base::options(opts)
[13:13:54.691]                 }
[13:13:54.691]                 {
[13:13:54.691]                   {
[13:13:54.691]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:54.691]                     NULL
[13:13:54.691]                   }
[13:13:54.691]                   options(future.plan = NULL)
[13:13:54.691]                   if (is.na(NA_character_)) 
[13:13:54.691]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:54.691]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:54.691]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:54.691]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:54.691]                     envir = parent.frame()) 
[13:13:54.691]                   {
[13:13:54.691]                     if (is.function(workers)) 
[13:13:54.691]                       workers <- workers()
[13:13:54.691]                     workers <- structure(as.integer(workers), 
[13:13:54.691]                       class = class(workers))
[13:13:54.691]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:54.691]                       workers >= 1)
[13:13:54.691]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:54.691]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:54.691]                     }
[13:13:54.691]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:54.691]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:54.691]                       envir = envir)
[13:13:54.691]                     if (!future$lazy) 
[13:13:54.691]                       future <- run(future)
[13:13:54.691]                     invisible(future)
[13:13:54.691]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:54.691]                 }
[13:13:54.691]             }
[13:13:54.691]         }
[13:13:54.691]     })
[13:13:54.691]     if (TRUE) {
[13:13:54.691]         base::sink(type = "output", split = FALSE)
[13:13:54.691]         if (TRUE) {
[13:13:54.691]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:54.691]         }
[13:13:54.691]         else {
[13:13:54.691]             ...future.result["stdout"] <- base::list(NULL)
[13:13:54.691]         }
[13:13:54.691]         base::close(...future.stdout)
[13:13:54.691]         ...future.stdout <- NULL
[13:13:54.691]     }
[13:13:54.691]     ...future.result$conditions <- ...future.conditions
[13:13:54.691]     ...future.result$finished <- base::Sys.time()
[13:13:54.691]     ...future.result
[13:13:54.691] }
[13:13:54.696] Exporting 5 global objects (2.04 KiB) to cluster node #1 ...
[13:13:54.697] Exporting '...future.FUN' (1.93 KiB) to cluster node #1 ...
[13:13:54.697] Exporting '...future.FUN' (1.93 KiB) to cluster node #1 ... DONE
[13:13:54.697] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:54.698] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:54.698] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ...
[13:13:54.698] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ... DONE
[13:13:54.699] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:54.699] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:54.699] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:54.700] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:54.700] Exporting 5 global objects (2.04 KiB) to cluster node #1 ... DONE
[13:13:54.700] MultisessionFuture started
[13:13:54.701] - Launch lazy future ... done
[13:13:54.701] run() for 'MultisessionFuture' ... done
[13:13:54.701] Created future:
[13:13:54.716] receiveMessageFromWorker() for ClusterFuture ...
[13:13:54.716] - Validating connection of MultisessionFuture
[13:13:54.716] - received message: FutureResult
[13:13:54.716] - Received FutureResult
[13:13:54.717] - Erased future from FutureRegistry
[13:13:54.717] result() for ClusterFuture ...
[13:13:54.717] - result already collected: FutureResult
[13:13:54.717] result() for ClusterFuture ... done
[13:13:54.717] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:54.701] MultisessionFuture:
[13:13:54.701] Label: 'future_mapply-1'
[13:13:54.701] Expression:
[13:13:54.701] {
[13:13:54.701]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:54.701]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:54.701]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:54.701]         on.exit(options(oopts), add = TRUE)
[13:13:54.701]     }
[13:13:54.701]     {
[13:13:54.701]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:54.701]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:54.701]         do.call(mapply, args = args)
[13:13:54.701]     }
[13:13:54.701] }
[13:13:54.701] Lazy evaluation: FALSE
[13:13:54.701] Asynchronous evaluation: TRUE
[13:13:54.701] Local evaluation: TRUE
[13:13:54.701] Environment: R_GlobalEnv
[13:13:54.701] Capture standard output: TRUE
[13:13:54.701] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:54.701] Globals: 5 objects totaling 2.04 KiB (function '...future.FUN' of 1.93 KiB, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 112 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:54.701] Packages: <none>
[13:13:54.701] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:54.701] Resolved: TRUE
[13:13:54.701] Value: <not collected>
[13:13:54.701] Conditions captured: <none>
[13:13:54.701] Early signaling: FALSE
[13:13:54.701] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:54.701] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:54.718] Chunk #1 of 2 ... DONE
[13:13:54.718] Chunk #2 of 2 ...
[13:13:54.718]  - Finding globals in '...' for chunk #2 ...
[13:13:54.718] getGlobalsAndPackages() ...
[13:13:54.718] Searching for globals...
[13:13:54.719] 
[13:13:54.719] Searching for globals ... DONE
[13:13:54.719] - globals: [0] <none>
[13:13:54.719] getGlobalsAndPackages() ... DONE
[13:13:54.719]    + additional globals found: [n=0] 
[13:13:54.720]    + additional namespaces needed: [n=0] 
[13:13:54.720]  - Finding globals in '...' for chunk #2 ... DONE
[13:13:54.720]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:54.720]  - seeds: <none>
[13:13:54.720]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.720] getGlobalsAndPackages() ...
[13:13:54.721] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.721] Resolving globals: FALSE
[13:13:54.721] The total size of the 5 globals is 2.15 KiB (2200 bytes)
[13:13:54.722] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 2.15 KiB.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (1.93 KiB of class 'function'), '...future.elements_ii' (224 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:54.722] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.722] 
[13:13:54.723] getGlobalsAndPackages() ... DONE
[13:13:54.723] run() for 'Future' ...
[13:13:54.723] - state: 'created'
[13:13:54.723] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:54.737] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:54.737] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:54.738]   - Field: 'node'
[13:13:54.738]   - Field: 'label'
[13:13:54.738]   - Field: 'local'
[13:13:54.738]   - Field: 'owner'
[13:13:54.738]   - Field: 'envir'
[13:13:54.738]   - Field: 'workers'
[13:13:54.739]   - Field: 'packages'
[13:13:54.739]   - Field: 'gc'
[13:13:54.739]   - Field: 'conditions'
[13:13:54.739]   - Field: 'persistent'
[13:13:54.739]   - Field: 'expr'
[13:13:54.740]   - Field: 'uuid'
[13:13:54.740]   - Field: 'seed'
[13:13:54.740]   - Field: 'version'
[13:13:54.740]   - Field: 'result'
[13:13:54.740]   - Field: 'asynchronous'
[13:13:54.740]   - Field: 'calls'
[13:13:54.741]   - Field: 'globals'
[13:13:54.741]   - Field: 'stdout'
[13:13:54.741]   - Field: 'earlySignal'
[13:13:54.741]   - Field: 'lazy'
[13:13:54.741]   - Field: 'state'
[13:13:54.741] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:54.742] - Launch lazy future ...
[13:13:54.742] Packages needed by the future expression (n = 0): <none>
[13:13:54.742] Packages needed by future strategies (n = 0): <none>
[13:13:54.743] {
[13:13:54.743]     {
[13:13:54.743]         {
[13:13:54.743]             ...future.startTime <- base::Sys.time()
[13:13:54.743]             {
[13:13:54.743]                 {
[13:13:54.743]                   {
[13:13:54.743]                     {
[13:13:54.743]                       base::local({
[13:13:54.743]                         has_future <- base::requireNamespace("future", 
[13:13:54.743]                           quietly = TRUE)
[13:13:54.743]                         if (has_future) {
[13:13:54.743]                           ns <- base::getNamespace("future")
[13:13:54.743]                           version <- ns[[".package"]][["version"]]
[13:13:54.743]                           if (is.null(version)) 
[13:13:54.743]                             version <- utils::packageVersion("future")
[13:13:54.743]                         }
[13:13:54.743]                         else {
[13:13:54.743]                           version <- NULL
[13:13:54.743]                         }
[13:13:54.743]                         if (!has_future || version < "1.8.0") {
[13:13:54.743]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:54.743]                             "", base::R.version$version.string), 
[13:13:54.743]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:54.743]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:54.743]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:54.743]                               "release", "version")], collapse = " "), 
[13:13:54.743]                             hostname = base::Sys.info()[["nodename"]])
[13:13:54.743]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:54.743]                             info)
[13:13:54.743]                           info <- base::paste(info, collapse = "; ")
[13:13:54.743]                           if (!has_future) {
[13:13:54.743]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:54.743]                               info)
[13:13:54.743]                           }
[13:13:54.743]                           else {
[13:13:54.743]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:54.743]                               info, version)
[13:13:54.743]                           }
[13:13:54.743]                           base::stop(msg)
[13:13:54.743]                         }
[13:13:54.743]                       })
[13:13:54.743]                     }
[13:13:54.743]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:54.743]                     base::options(mc.cores = 1L)
[13:13:54.743]                   }
[13:13:54.743]                   options(future.plan = NULL)
[13:13:54.743]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:54.743]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:54.743]                 }
[13:13:54.743]                 ...future.workdir <- getwd()
[13:13:54.743]             }
[13:13:54.743]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:54.743]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:54.743]         }
[13:13:54.743]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:54.743]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:54.743]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:54.743]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:54.743]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:54.743]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:54.743]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:54.743]             base::names(...future.oldOptions))
[13:13:54.743]     }
[13:13:54.743]     if (FALSE) {
[13:13:54.743]     }
[13:13:54.743]     else {
[13:13:54.743]         if (TRUE) {
[13:13:54.743]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:54.743]                 open = "w")
[13:13:54.743]         }
[13:13:54.743]         else {
[13:13:54.743]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:54.743]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:54.743]         }
[13:13:54.743]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:54.743]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:54.743]             base::sink(type = "output", split = FALSE)
[13:13:54.743]             base::close(...future.stdout)
[13:13:54.743]         }, add = TRUE)
[13:13:54.743]     }
[13:13:54.743]     ...future.frame <- base::sys.nframe()
[13:13:54.743]     ...future.conditions <- base::list()
[13:13:54.743]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:54.743]     if (FALSE) {
[13:13:54.743]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:54.743]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:54.743]     }
[13:13:54.743]     ...future.result <- base::tryCatch({
[13:13:54.743]         base::withCallingHandlers({
[13:13:54.743]             ...future.value <- base::withVisible(base::local({
[13:13:54.743]                 ...future.makeSendCondition <- local({
[13:13:54.743]                   sendCondition <- NULL
[13:13:54.743]                   function(frame = 1L) {
[13:13:54.743]                     if (is.function(sendCondition)) 
[13:13:54.743]                       return(sendCondition)
[13:13:54.743]                     ns <- getNamespace("parallel")
[13:13:54.743]                     if (exists("sendData", mode = "function", 
[13:13:54.743]                       envir = ns)) {
[13:13:54.743]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:54.743]                         envir = ns)
[13:13:54.743]                       envir <- sys.frame(frame)
[13:13:54.743]                       master <- NULL
[13:13:54.743]                       while (!identical(envir, .GlobalEnv) && 
[13:13:54.743]                         !identical(envir, emptyenv())) {
[13:13:54.743]                         if (exists("master", mode = "list", envir = envir, 
[13:13:54.743]                           inherits = FALSE)) {
[13:13:54.743]                           master <- get("master", mode = "list", 
[13:13:54.743]                             envir = envir, inherits = FALSE)
[13:13:54.743]                           if (inherits(master, c("SOCKnode", 
[13:13:54.743]                             "SOCK0node"))) {
[13:13:54.743]                             sendCondition <<- function(cond) {
[13:13:54.743]                               data <- list(type = "VALUE", value = cond, 
[13:13:54.743]                                 success = TRUE)
[13:13:54.743]                               parallel_sendData(master, data)
[13:13:54.743]                             }
[13:13:54.743]                             return(sendCondition)
[13:13:54.743]                           }
[13:13:54.743]                         }
[13:13:54.743]                         frame <- frame + 1L
[13:13:54.743]                         envir <- sys.frame(frame)
[13:13:54.743]                       }
[13:13:54.743]                     }
[13:13:54.743]                     sendCondition <<- function(cond) NULL
[13:13:54.743]                   }
[13:13:54.743]                 })
[13:13:54.743]                 withCallingHandlers({
[13:13:54.743]                   {
[13:13:54.743]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:54.743]                     if (!identical(...future.globals.maxSize.org, 
[13:13:54.743]                       ...future.globals.maxSize)) {
[13:13:54.743]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:54.743]                       on.exit(options(oopts), add = TRUE)
[13:13:54.743]                     }
[13:13:54.743]                     {
[13:13:54.743]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:54.743]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:54.743]                         USE.NAMES = FALSE)
[13:13:54.743]                       do.call(mapply, args = args)
[13:13:54.743]                     }
[13:13:54.743]                   }
[13:13:54.743]                 }, immediateCondition = function(cond) {
[13:13:54.743]                   sendCondition <- ...future.makeSendCondition()
[13:13:54.743]                   sendCondition(cond)
[13:13:54.743]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.743]                   {
[13:13:54.743]                     inherits <- base::inherits
[13:13:54.743]                     invokeRestart <- base::invokeRestart
[13:13:54.743]                     is.null <- base::is.null
[13:13:54.743]                     muffled <- FALSE
[13:13:54.743]                     if (inherits(cond, "message")) {
[13:13:54.743]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:54.743]                       if (muffled) 
[13:13:54.743]                         invokeRestart("muffleMessage")
[13:13:54.743]                     }
[13:13:54.743]                     else if (inherits(cond, "warning")) {
[13:13:54.743]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:54.743]                       if (muffled) 
[13:13:54.743]                         invokeRestart("muffleWarning")
[13:13:54.743]                     }
[13:13:54.743]                     else if (inherits(cond, "condition")) {
[13:13:54.743]                       if (!is.null(pattern)) {
[13:13:54.743]                         computeRestarts <- base::computeRestarts
[13:13:54.743]                         grepl <- base::grepl
[13:13:54.743]                         restarts <- computeRestarts(cond)
[13:13:54.743]                         for (restart in restarts) {
[13:13:54.743]                           name <- restart$name
[13:13:54.743]                           if (is.null(name)) 
[13:13:54.743]                             next
[13:13:54.743]                           if (!grepl(pattern, name)) 
[13:13:54.743]                             next
[13:13:54.743]                           invokeRestart(restart)
[13:13:54.743]                           muffled <- TRUE
[13:13:54.743]                           break
[13:13:54.743]                         }
[13:13:54.743]                       }
[13:13:54.743]                     }
[13:13:54.743]                     invisible(muffled)
[13:13:54.743]                   }
[13:13:54.743]                   muffleCondition(cond)
[13:13:54.743]                 })
[13:13:54.743]             }))
[13:13:54.743]             future::FutureResult(value = ...future.value$value, 
[13:13:54.743]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:54.743]                   ...future.rng), globalenv = if (FALSE) 
[13:13:54.743]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:54.743]                     ...future.globalenv.names))
[13:13:54.743]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:54.743]         }, condition = base::local({
[13:13:54.743]             c <- base::c
[13:13:54.743]             inherits <- base::inherits
[13:13:54.743]             invokeRestart <- base::invokeRestart
[13:13:54.743]             length <- base::length
[13:13:54.743]             list <- base::list
[13:13:54.743]             seq.int <- base::seq.int
[13:13:54.743]             signalCondition <- base::signalCondition
[13:13:54.743]             sys.calls <- base::sys.calls
[13:13:54.743]             `[[` <- base::`[[`
[13:13:54.743]             `+` <- base::`+`
[13:13:54.743]             `<<-` <- base::`<<-`
[13:13:54.743]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:54.743]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:54.743]                   3L)]
[13:13:54.743]             }
[13:13:54.743]             function(cond) {
[13:13:54.743]                 is_error <- inherits(cond, "error")
[13:13:54.743]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:54.743]                   NULL)
[13:13:54.743]                 if (is_error) {
[13:13:54.743]                   sessionInformation <- function() {
[13:13:54.743]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:54.743]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:54.743]                       search = base::search(), system = base::Sys.info())
[13:13:54.743]                   }
[13:13:54.743]                   ...future.conditions[[length(...future.conditions) + 
[13:13:54.743]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:54.743]                     cond$call), session = sessionInformation(), 
[13:13:54.743]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:54.743]                   signalCondition(cond)
[13:13:54.743]                 }
[13:13:54.743]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:54.743]                 "immediateCondition"))) {
[13:13:54.743]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:54.743]                   ...future.conditions[[length(...future.conditions) + 
[13:13:54.743]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:54.743]                   if (TRUE && !signal) {
[13:13:54.743]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.743]                     {
[13:13:54.743]                       inherits <- base::inherits
[13:13:54.743]                       invokeRestart <- base::invokeRestart
[13:13:54.743]                       is.null <- base::is.null
[13:13:54.743]                       muffled <- FALSE
[13:13:54.743]                       if (inherits(cond, "message")) {
[13:13:54.743]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:54.743]                         if (muffled) 
[13:13:54.743]                           invokeRestart("muffleMessage")
[13:13:54.743]                       }
[13:13:54.743]                       else if (inherits(cond, "warning")) {
[13:13:54.743]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:54.743]                         if (muffled) 
[13:13:54.743]                           invokeRestart("muffleWarning")
[13:13:54.743]                       }
[13:13:54.743]                       else if (inherits(cond, "condition")) {
[13:13:54.743]                         if (!is.null(pattern)) {
[13:13:54.743]                           computeRestarts <- base::computeRestarts
[13:13:54.743]                           grepl <- base::grepl
[13:13:54.743]                           restarts <- computeRestarts(cond)
[13:13:54.743]                           for (restart in restarts) {
[13:13:54.743]                             name <- restart$name
[13:13:54.743]                             if (is.null(name)) 
[13:13:54.743]                               next
[13:13:54.743]                             if (!grepl(pattern, name)) 
[13:13:54.743]                               next
[13:13:54.743]                             invokeRestart(restart)
[13:13:54.743]                             muffled <- TRUE
[13:13:54.743]                             break
[13:13:54.743]                           }
[13:13:54.743]                         }
[13:13:54.743]                       }
[13:13:54.743]                       invisible(muffled)
[13:13:54.743]                     }
[13:13:54.743]                     muffleCondition(cond, pattern = "^muffle")
[13:13:54.743]                   }
[13:13:54.743]                 }
[13:13:54.743]                 else {
[13:13:54.743]                   if (TRUE) {
[13:13:54.743]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.743]                     {
[13:13:54.743]                       inherits <- base::inherits
[13:13:54.743]                       invokeRestart <- base::invokeRestart
[13:13:54.743]                       is.null <- base::is.null
[13:13:54.743]                       muffled <- FALSE
[13:13:54.743]                       if (inherits(cond, "message")) {
[13:13:54.743]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:54.743]                         if (muffled) 
[13:13:54.743]                           invokeRestart("muffleMessage")
[13:13:54.743]                       }
[13:13:54.743]                       else if (inherits(cond, "warning")) {
[13:13:54.743]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:54.743]                         if (muffled) 
[13:13:54.743]                           invokeRestart("muffleWarning")
[13:13:54.743]                       }
[13:13:54.743]                       else if (inherits(cond, "condition")) {
[13:13:54.743]                         if (!is.null(pattern)) {
[13:13:54.743]                           computeRestarts <- base::computeRestarts
[13:13:54.743]                           grepl <- base::grepl
[13:13:54.743]                           restarts <- computeRestarts(cond)
[13:13:54.743]                           for (restart in restarts) {
[13:13:54.743]                             name <- restart$name
[13:13:54.743]                             if (is.null(name)) 
[13:13:54.743]                               next
[13:13:54.743]                             if (!grepl(pattern, name)) 
[13:13:54.743]                               next
[13:13:54.743]                             invokeRestart(restart)
[13:13:54.743]                             muffled <- TRUE
[13:13:54.743]                             break
[13:13:54.743]                           }
[13:13:54.743]                         }
[13:13:54.743]                       }
[13:13:54.743]                       invisible(muffled)
[13:13:54.743]                     }
[13:13:54.743]                     muffleCondition(cond, pattern = "^muffle")
[13:13:54.743]                   }
[13:13:54.743]                 }
[13:13:54.743]             }
[13:13:54.743]         }))
[13:13:54.743]     }, error = function(ex) {
[13:13:54.743]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:54.743]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:54.743]                 ...future.rng), started = ...future.startTime, 
[13:13:54.743]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:54.743]             version = "1.8"), class = "FutureResult")
[13:13:54.743]     }, finally = {
[13:13:54.743]         if (!identical(...future.workdir, getwd())) 
[13:13:54.743]             setwd(...future.workdir)
[13:13:54.743]         {
[13:13:54.743]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:54.743]                 ...future.oldOptions$nwarnings <- NULL
[13:13:54.743]             }
[13:13:54.743]             base::options(...future.oldOptions)
[13:13:54.743]             if (.Platform$OS.type == "windows") {
[13:13:54.743]                 old_names <- names(...future.oldEnvVars)
[13:13:54.743]                 envs <- base::Sys.getenv()
[13:13:54.743]                 names <- names(envs)
[13:13:54.743]                 common <- intersect(names, old_names)
[13:13:54.743]                 added <- setdiff(names, old_names)
[13:13:54.743]                 removed <- setdiff(old_names, names)
[13:13:54.743]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:54.743]                   envs[common]]
[13:13:54.743]                 NAMES <- toupper(changed)
[13:13:54.743]                 args <- list()
[13:13:54.743]                 for (kk in seq_along(NAMES)) {
[13:13:54.743]                   name <- changed[[kk]]
[13:13:54.743]                   NAME <- NAMES[[kk]]
[13:13:54.743]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.743]                     next
[13:13:54.743]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:54.743]                 }
[13:13:54.743]                 NAMES <- toupper(added)
[13:13:54.743]                 for (kk in seq_along(NAMES)) {
[13:13:54.743]                   name <- added[[kk]]
[13:13:54.743]                   NAME <- NAMES[[kk]]
[13:13:54.743]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.743]                     next
[13:13:54.743]                   args[[name]] <- ""
[13:13:54.743]                 }
[13:13:54.743]                 NAMES <- toupper(removed)
[13:13:54.743]                 for (kk in seq_along(NAMES)) {
[13:13:54.743]                   name <- removed[[kk]]
[13:13:54.743]                   NAME <- NAMES[[kk]]
[13:13:54.743]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.743]                     next
[13:13:54.743]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:54.743]                 }
[13:13:54.743]                 if (length(args) > 0) 
[13:13:54.743]                   base::do.call(base::Sys.setenv, args = args)
[13:13:54.743]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:54.743]             }
[13:13:54.743]             else {
[13:13:54.743]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:54.743]             }
[13:13:54.743]             {
[13:13:54.743]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:54.743]                   0L) {
[13:13:54.743]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:54.743]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:54.743]                   base::options(opts)
[13:13:54.743]                 }
[13:13:54.743]                 {
[13:13:54.743]                   {
[13:13:54.743]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:54.743]                     NULL
[13:13:54.743]                   }
[13:13:54.743]                   options(future.plan = NULL)
[13:13:54.743]                   if (is.na(NA_character_)) 
[13:13:54.743]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:54.743]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:54.743]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:54.743]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:54.743]                     envir = parent.frame()) 
[13:13:54.743]                   {
[13:13:54.743]                     if (is.function(workers)) 
[13:13:54.743]                       workers <- workers()
[13:13:54.743]                     workers <- structure(as.integer(workers), 
[13:13:54.743]                       class = class(workers))
[13:13:54.743]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:54.743]                       workers >= 1)
[13:13:54.743]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:54.743]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:54.743]                     }
[13:13:54.743]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:54.743]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:54.743]                       envir = envir)
[13:13:54.743]                     if (!future$lazy) 
[13:13:54.743]                       future <- run(future)
[13:13:54.743]                     invisible(future)
[13:13:54.743]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:54.743]                 }
[13:13:54.743]             }
[13:13:54.743]         }
[13:13:54.743]     })
[13:13:54.743]     if (TRUE) {
[13:13:54.743]         base::sink(type = "output", split = FALSE)
[13:13:54.743]         if (TRUE) {
[13:13:54.743]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:54.743]         }
[13:13:54.743]         else {
[13:13:54.743]             ...future.result["stdout"] <- base::list(NULL)
[13:13:54.743]         }
[13:13:54.743]         base::close(...future.stdout)
[13:13:54.743]         ...future.stdout <- NULL
[13:13:54.743]     }
[13:13:54.743]     ...future.result$conditions <- ...future.conditions
[13:13:54.743]     ...future.result$finished <- base::Sys.time()
[13:13:54.743]     ...future.result
[13:13:54.743] }
[13:13:54.748] Exporting 5 global objects (2.15 KiB) to cluster node #1 ...
[13:13:54.748] Exporting '...future.FUN' (1.93 KiB) to cluster node #1 ...
[13:13:54.749] Exporting '...future.FUN' (1.93 KiB) to cluster node #1 ... DONE
[13:13:54.749] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:54.749] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:54.750] Exporting '...future.elements_ii' (224 bytes) to cluster node #1 ...
[13:13:54.750] Exporting '...future.elements_ii' (224 bytes) to cluster node #1 ... DONE
[13:13:54.750] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:54.751] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:54.751] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:54.751] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:54.752] Exporting 5 global objects (2.15 KiB) to cluster node #1 ... DONE
[13:13:54.752] MultisessionFuture started
[13:13:54.752] - Launch lazy future ... done
[13:13:54.753] run() for 'MultisessionFuture' ... done
[13:13:54.753] Created future:
[13:13:54.768] receiveMessageFromWorker() for ClusterFuture ...
[13:13:54.769] - Validating connection of MultisessionFuture
[13:13:54.769] - received message: FutureResult
[13:13:54.769] - Received FutureResult
[13:13:54.769] - Erased future from FutureRegistry
[13:13:54.769] result() for ClusterFuture ...
[13:13:54.770] - result already collected: FutureResult
[13:13:54.770] result() for ClusterFuture ... done
[13:13:54.770] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:54.753] MultisessionFuture:
[13:13:54.753] Label: 'future_mapply-2'
[13:13:54.753] Expression:
[13:13:54.753] {
[13:13:54.753]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:54.753]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:54.753]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:54.753]         on.exit(options(oopts), add = TRUE)
[13:13:54.753]     }
[13:13:54.753]     {
[13:13:54.753]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:54.753]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:54.753]         do.call(mapply, args = args)
[13:13:54.753]     }
[13:13:54.753] }
[13:13:54.753] Lazy evaluation: FALSE
[13:13:54.753] Asynchronous evaluation: TRUE
[13:13:54.753] Local evaluation: TRUE
[13:13:54.753] Environment: R_GlobalEnv
[13:13:54.753] Capture standard output: TRUE
[13:13:54.753] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:54.753] Globals: 5 objects totaling 2.15 KiB (function '...future.FUN' of 1.93 KiB, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 224 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:54.753] Packages: <none>
[13:13:54.753] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:54.753] Resolved: TRUE
[13:13:54.753] Value: <not collected>
[13:13:54.753] Conditions captured: <none>
[13:13:54.753] Early signaling: FALSE
[13:13:54.753] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:54.753] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:54.771] Chunk #2 of 2 ... DONE
[13:13:54.771] Launching 2 futures (chunks) ... DONE
[13:13:54.771] Resolving 2 futures (chunks) ...
[13:13:54.771] resolve() on list ...
[13:13:54.771]  recursive: 0
[13:13:54.771]  length: 2
[13:13:54.772] 
[13:13:54.772] Future #1
[13:13:54.772] result() for ClusterFuture ...
[13:13:54.772] - result already collected: FutureResult
[13:13:54.772] result() for ClusterFuture ... done
[13:13:54.772] result() for ClusterFuture ...
[13:13:54.773] - result already collected: FutureResult
[13:13:54.773] result() for ClusterFuture ... done
[13:13:54.773] signalConditionsASAP(MultisessionFuture, pos=1) ...
[13:13:54.773] - nx: 2
[13:13:54.773] - relay: TRUE
[13:13:54.773] - stdout: TRUE
[13:13:54.773] - signal: TRUE
[13:13:54.774] - resignal: FALSE
[13:13:54.774] - force: TRUE
[13:13:54.774] - relayed: [n=2] FALSE, FALSE
[13:13:54.774] - queued futures: [n=2] FALSE, FALSE
[13:13:54.774]  - until=1
[13:13:54.774]  - relaying element #1
[13:13:54.775] result() for ClusterFuture ...
[13:13:54.775] - result already collected: FutureResult
[13:13:54.775] result() for ClusterFuture ... done
[13:13:54.775] result() for ClusterFuture ...
[13:13:54.775] - result already collected: FutureResult
[13:13:54.775] result() for ClusterFuture ... done
[13:13:54.776] result() for ClusterFuture ...
[13:13:54.776] - result already collected: FutureResult
[13:13:54.776] result() for ClusterFuture ... done
[13:13:54.776] result() for ClusterFuture ...
[13:13:54.776] - result already collected: FutureResult
[13:13:54.776] result() for ClusterFuture ... done
[13:13:54.777] - relayed: [n=2] TRUE, FALSE
[13:13:54.777] - queued futures: [n=2] TRUE, FALSE
[13:13:54.777] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[13:13:54.777]  length: 1 (resolved future 1)
[13:13:54.777] Future #2
[13:13:54.777] result() for ClusterFuture ...
[13:13:54.778] - result already collected: FutureResult
[13:13:54.778] result() for ClusterFuture ... done
[13:13:54.778] result() for ClusterFuture ...
[13:13:54.778] - result already collected: FutureResult
[13:13:54.778] result() for ClusterFuture ... done
[13:13:54.778] signalConditionsASAP(MultisessionFuture, pos=2) ...
[13:13:54.778] - nx: 2
[13:13:54.779] - relay: TRUE
[13:13:54.779] - stdout: TRUE
[13:13:54.779] - signal: TRUE
[13:13:54.779] - resignal: FALSE
[13:13:54.779] - force: TRUE
[13:13:54.779] - relayed: [n=2] TRUE, FALSE
[13:13:54.780] - queued futures: [n=2] TRUE, FALSE
[13:13:54.780]  - until=2
[13:13:54.780]  - relaying element #2
[13:13:54.780] result() for ClusterFuture ...
[13:13:54.780] - result already collected: FutureResult
[13:13:54.780] result() for ClusterFuture ... done
[13:13:54.780] result() for ClusterFuture ...
[13:13:54.781] - result already collected: FutureResult
[13:13:54.781] result() for ClusterFuture ... done
[13:13:54.781] result() for ClusterFuture ...
[13:13:54.781] - result already collected: FutureResult
[13:13:54.781] result() for ClusterFuture ... done
[13:13:54.781] result() for ClusterFuture ...
[13:13:54.782] - result already collected: FutureResult
[13:13:54.782] result() for ClusterFuture ... done
[13:13:54.782] - relayed: [n=2] TRUE, TRUE
[13:13:54.782] - queued futures: [n=2] TRUE, TRUE
[13:13:54.782] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[13:13:54.782]  length: 0 (resolved future 2)
[13:13:54.783] Relaying remaining futures
[13:13:54.783] signalConditionsASAP(NULL, pos=0) ...
[13:13:54.783] - nx: 2
[13:13:54.783] - relay: TRUE
[13:13:54.783] - stdout: TRUE
[13:13:54.783] - signal: TRUE
[13:13:54.784] - resignal: FALSE
[13:13:54.784] - force: TRUE
[13:13:54.784] - relayed: [n=2] TRUE, TRUE
[13:13:54.784] - queued futures: [n=2] TRUE, TRUE
 - flush all
[13:13:54.784] - relayed: [n=2] TRUE, TRUE
[13:13:54.784] - queued futures: [n=2] TRUE, TRUE
[13:13:54.785] signalConditionsASAP(NULL, pos=0) ... done
[13:13:54.785] resolve() on list ... DONE
[13:13:54.785] result() for ClusterFuture ...
[13:13:54.785] - result already collected: FutureResult
[13:13:54.785] result() for ClusterFuture ... done
[13:13:54.785] result() for ClusterFuture ...
[13:13:54.786] - result already collected: FutureResult
[13:13:54.786] result() for ClusterFuture ... done
[13:13:54.786] result() for ClusterFuture ...
[13:13:54.786] - result already collected: FutureResult
[13:13:54.786] result() for ClusterFuture ... done
[13:13:54.786] result() for ClusterFuture ...
[13:13:54.786] - result already collected: FutureResult
[13:13:54.787] result() for ClusterFuture ... done
[13:13:54.787]  - Number of value chunks collected: 2
[13:13:54.787] Resolving 2 futures (chunks) ... DONE
[13:13:54.787] Reducing values from 2 chunks ...
[13:13:54.787]  - Number of values collected after concatenation: 3
[13:13:54.787]  - Number of values expected: 3
[13:13:54.788] Reducing values from 2 chunks ... DONE
[13:13:54.788] future_mapply() ... DONE
- future_.mapply()
[13:13:54.788] future_mapply() ...
[13:13:54.791] Number of chunks: 2
[13:13:54.791] getGlobalsAndPackagesXApply() ...
[13:13:54.791]  - future.globals: TRUE
[13:13:54.791] getGlobalsAndPackages() ...
[13:13:54.791] Searching for globals...
[13:13:54.793] - globals found: [3] 'FUN', '+', 'seq_len'
[13:13:54.793] Searching for globals ... DONE
[13:13:54.793] Resolving globals: FALSE
[13:13:54.794] The total size of the 1 globals is 1.93 KiB (1976 bytes)
[13:13:54.794] The total size of the 1 globals exported for future expression ('FUN()') is 1.93 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (1.93 KiB of class 'function')
[13:13:54.794] - globals: [1] 'FUN'
[13:13:54.795] 
[13:13:54.795] getGlobalsAndPackages() ... DONE
[13:13:54.795]  - globals found/used: [n=1] 'FUN'
[13:13:54.795]  - needed namespaces: [n=0] 
[13:13:54.795] Finding globals ... DONE
[13:13:54.796] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:54.796] List of 2
[13:13:54.796]  $ ...future.FUN:function (x, y)  
[13:13:54.796]  $ MoreArgs     : list()
[13:13:54.796]  - attr(*, "where")=List of 2
[13:13:54.796]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:54.796]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:54.796]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:54.796]  - attr(*, "resolved")= logi FALSE
[13:13:54.796]  - attr(*, "total_size")= num NA
[13:13:54.799] Packages to be attached in all futures: [n=0] 
[13:13:54.799] getGlobalsAndPackagesXApply() ... DONE
[13:13:54.799] Number of futures (= number of chunks): 2
[13:13:54.799] Launching 2 futures (chunks) ...
[13:13:54.800] Chunk #1 of 2 ...
[13:13:54.800]  - Finding globals in '...' for chunk #1 ...
[13:13:54.800] getGlobalsAndPackages() ...
[13:13:54.800] Searching for globals...
[13:13:54.801] 
[13:13:54.801] Searching for globals ... DONE
[13:13:54.801] - globals: [0] <none>
[13:13:54.801] getGlobalsAndPackages() ... DONE
[13:13:54.801]    + additional globals found: [n=0] 
[13:13:54.801]    + additional namespaces needed: [n=0] 
[13:13:54.802]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:54.802]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:54.802]  - seeds: <none>
[13:13:54.802]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.802] getGlobalsAndPackages() ...
[13:13:54.802] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.803] Resolving globals: FALSE
[13:13:54.803] The total size of the 5 globals is 2.04 KiB (2088 bytes)
[13:13:54.804] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 2.04 KiB.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (1.93 KiB of class 'function'), '...future.elements_ii' (112 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'list')
[13:13:54.804] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.804] 
[13:13:54.804] getGlobalsAndPackages() ... DONE
[13:13:54.805] run() for 'Future' ...
[13:13:54.805] - state: 'created'
[13:13:54.805] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:54.819] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:54.819] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:54.820]   - Field: 'node'
[13:13:54.820]   - Field: 'label'
[13:13:54.820]   - Field: 'local'
[13:13:54.820]   - Field: 'owner'
[13:13:54.820]   - Field: 'envir'
[13:13:54.821]   - Field: 'workers'
[13:13:54.821]   - Field: 'packages'
[13:13:54.821]   - Field: 'gc'
[13:13:54.821]   - Field: 'conditions'
[13:13:54.821]   - Field: 'persistent'
[13:13:54.821]   - Field: 'expr'
[13:13:54.822]   - Field: 'uuid'
[13:13:54.822]   - Field: 'seed'
[13:13:54.822]   - Field: 'version'
[13:13:54.822]   - Field: 'result'
[13:13:54.822]   - Field: 'asynchronous'
[13:13:54.823]   - Field: 'calls'
[13:13:54.823]   - Field: 'globals'
[13:13:54.823]   - Field: 'stdout'
[13:13:54.823]   - Field: 'earlySignal'
[13:13:54.823]   - Field: 'lazy'
[13:13:54.823]   - Field: 'state'
[13:13:54.824] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:54.824] - Launch lazy future ...
[13:13:54.824] Packages needed by the future expression (n = 0): <none>
[13:13:54.824] Packages needed by future strategies (n = 0): <none>
[13:13:54.825] {
[13:13:54.825]     {
[13:13:54.825]         {
[13:13:54.825]             ...future.startTime <- base::Sys.time()
[13:13:54.825]             {
[13:13:54.825]                 {
[13:13:54.825]                   {
[13:13:54.825]                     {
[13:13:54.825]                       base::local({
[13:13:54.825]                         has_future <- base::requireNamespace("future", 
[13:13:54.825]                           quietly = TRUE)
[13:13:54.825]                         if (has_future) {
[13:13:54.825]                           ns <- base::getNamespace("future")
[13:13:54.825]                           version <- ns[[".package"]][["version"]]
[13:13:54.825]                           if (is.null(version)) 
[13:13:54.825]                             version <- utils::packageVersion("future")
[13:13:54.825]                         }
[13:13:54.825]                         else {
[13:13:54.825]                           version <- NULL
[13:13:54.825]                         }
[13:13:54.825]                         if (!has_future || version < "1.8.0") {
[13:13:54.825]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:54.825]                             "", base::R.version$version.string), 
[13:13:54.825]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:54.825]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:54.825]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:54.825]                               "release", "version")], collapse = " "), 
[13:13:54.825]                             hostname = base::Sys.info()[["nodename"]])
[13:13:54.825]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:54.825]                             info)
[13:13:54.825]                           info <- base::paste(info, collapse = "; ")
[13:13:54.825]                           if (!has_future) {
[13:13:54.825]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:54.825]                               info)
[13:13:54.825]                           }
[13:13:54.825]                           else {
[13:13:54.825]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:54.825]                               info, version)
[13:13:54.825]                           }
[13:13:54.825]                           base::stop(msg)
[13:13:54.825]                         }
[13:13:54.825]                       })
[13:13:54.825]                     }
[13:13:54.825]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:54.825]                     base::options(mc.cores = 1L)
[13:13:54.825]                   }
[13:13:54.825]                   options(future.plan = NULL)
[13:13:54.825]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:54.825]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:54.825]                 }
[13:13:54.825]                 ...future.workdir <- getwd()
[13:13:54.825]             }
[13:13:54.825]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:54.825]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:54.825]         }
[13:13:54.825]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:54.825]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:54.825]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:54.825]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:54.825]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:54.825]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:54.825]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:54.825]             base::names(...future.oldOptions))
[13:13:54.825]     }
[13:13:54.825]     if (FALSE) {
[13:13:54.825]     }
[13:13:54.825]     else {
[13:13:54.825]         if (TRUE) {
[13:13:54.825]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:54.825]                 open = "w")
[13:13:54.825]         }
[13:13:54.825]         else {
[13:13:54.825]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:54.825]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:54.825]         }
[13:13:54.825]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:54.825]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:54.825]             base::sink(type = "output", split = FALSE)
[13:13:54.825]             base::close(...future.stdout)
[13:13:54.825]         }, add = TRUE)
[13:13:54.825]     }
[13:13:54.825]     ...future.frame <- base::sys.nframe()
[13:13:54.825]     ...future.conditions <- base::list()
[13:13:54.825]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:54.825]     if (FALSE) {
[13:13:54.825]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:54.825]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:54.825]     }
[13:13:54.825]     ...future.result <- base::tryCatch({
[13:13:54.825]         base::withCallingHandlers({
[13:13:54.825]             ...future.value <- base::withVisible(base::local({
[13:13:54.825]                 ...future.makeSendCondition <- local({
[13:13:54.825]                   sendCondition <- NULL
[13:13:54.825]                   function(frame = 1L) {
[13:13:54.825]                     if (is.function(sendCondition)) 
[13:13:54.825]                       return(sendCondition)
[13:13:54.825]                     ns <- getNamespace("parallel")
[13:13:54.825]                     if (exists("sendData", mode = "function", 
[13:13:54.825]                       envir = ns)) {
[13:13:54.825]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:54.825]                         envir = ns)
[13:13:54.825]                       envir <- sys.frame(frame)
[13:13:54.825]                       master <- NULL
[13:13:54.825]                       while (!identical(envir, .GlobalEnv) && 
[13:13:54.825]                         !identical(envir, emptyenv())) {
[13:13:54.825]                         if (exists("master", mode = "list", envir = envir, 
[13:13:54.825]                           inherits = FALSE)) {
[13:13:54.825]                           master <- get("master", mode = "list", 
[13:13:54.825]                             envir = envir, inherits = FALSE)
[13:13:54.825]                           if (inherits(master, c("SOCKnode", 
[13:13:54.825]                             "SOCK0node"))) {
[13:13:54.825]                             sendCondition <<- function(cond) {
[13:13:54.825]                               data <- list(type = "VALUE", value = cond, 
[13:13:54.825]                                 success = TRUE)
[13:13:54.825]                               parallel_sendData(master, data)
[13:13:54.825]                             }
[13:13:54.825]                             return(sendCondition)
[13:13:54.825]                           }
[13:13:54.825]                         }
[13:13:54.825]                         frame <- frame + 1L
[13:13:54.825]                         envir <- sys.frame(frame)
[13:13:54.825]                       }
[13:13:54.825]                     }
[13:13:54.825]                     sendCondition <<- function(cond) NULL
[13:13:54.825]                   }
[13:13:54.825]                 })
[13:13:54.825]                 withCallingHandlers({
[13:13:54.825]                   {
[13:13:54.825]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:54.825]                     if (!identical(...future.globals.maxSize.org, 
[13:13:54.825]                       ...future.globals.maxSize)) {
[13:13:54.825]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:54.825]                       on.exit(options(oopts), add = TRUE)
[13:13:54.825]                     }
[13:13:54.825]                     {
[13:13:54.825]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:54.825]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:54.825]                         USE.NAMES = FALSE)
[13:13:54.825]                       do.call(mapply, args = args)
[13:13:54.825]                     }
[13:13:54.825]                   }
[13:13:54.825]                 }, immediateCondition = function(cond) {
[13:13:54.825]                   sendCondition <- ...future.makeSendCondition()
[13:13:54.825]                   sendCondition(cond)
[13:13:54.825]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.825]                   {
[13:13:54.825]                     inherits <- base::inherits
[13:13:54.825]                     invokeRestart <- base::invokeRestart
[13:13:54.825]                     is.null <- base::is.null
[13:13:54.825]                     muffled <- FALSE
[13:13:54.825]                     if (inherits(cond, "message")) {
[13:13:54.825]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:54.825]                       if (muffled) 
[13:13:54.825]                         invokeRestart("muffleMessage")
[13:13:54.825]                     }
[13:13:54.825]                     else if (inherits(cond, "warning")) {
[13:13:54.825]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:54.825]                       if (muffled) 
[13:13:54.825]                         invokeRestart("muffleWarning")
[13:13:54.825]                     }
[13:13:54.825]                     else if (inherits(cond, "condition")) {
[13:13:54.825]                       if (!is.null(pattern)) {
[13:13:54.825]                         computeRestarts <- base::computeRestarts
[13:13:54.825]                         grepl <- base::grepl
[13:13:54.825]                         restarts <- computeRestarts(cond)
[13:13:54.825]                         for (restart in restarts) {
[13:13:54.825]                           name <- restart$name
[13:13:54.825]                           if (is.null(name)) 
[13:13:54.825]                             next
[13:13:54.825]                           if (!grepl(pattern, name)) 
[13:13:54.825]                             next
[13:13:54.825]                           invokeRestart(restart)
[13:13:54.825]                           muffled <- TRUE
[13:13:54.825]                           break
[13:13:54.825]                         }
[13:13:54.825]                       }
[13:13:54.825]                     }
[13:13:54.825]                     invisible(muffled)
[13:13:54.825]                   }
[13:13:54.825]                   muffleCondition(cond)
[13:13:54.825]                 })
[13:13:54.825]             }))
[13:13:54.825]             future::FutureResult(value = ...future.value$value, 
[13:13:54.825]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:54.825]                   ...future.rng), globalenv = if (FALSE) 
[13:13:54.825]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:54.825]                     ...future.globalenv.names))
[13:13:54.825]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:54.825]         }, condition = base::local({
[13:13:54.825]             c <- base::c
[13:13:54.825]             inherits <- base::inherits
[13:13:54.825]             invokeRestart <- base::invokeRestart
[13:13:54.825]             length <- base::length
[13:13:54.825]             list <- base::list
[13:13:54.825]             seq.int <- base::seq.int
[13:13:54.825]             signalCondition <- base::signalCondition
[13:13:54.825]             sys.calls <- base::sys.calls
[13:13:54.825]             `[[` <- base::`[[`
[13:13:54.825]             `+` <- base::`+`
[13:13:54.825]             `<<-` <- base::`<<-`
[13:13:54.825]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:54.825]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:54.825]                   3L)]
[13:13:54.825]             }
[13:13:54.825]             function(cond) {
[13:13:54.825]                 is_error <- inherits(cond, "error")
[13:13:54.825]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:54.825]                   NULL)
[13:13:54.825]                 if (is_error) {
[13:13:54.825]                   sessionInformation <- function() {
[13:13:54.825]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:54.825]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:54.825]                       search = base::search(), system = base::Sys.info())
[13:13:54.825]                   }
[13:13:54.825]                   ...future.conditions[[length(...future.conditions) + 
[13:13:54.825]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:54.825]                     cond$call), session = sessionInformation(), 
[13:13:54.825]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:54.825]                   signalCondition(cond)
[13:13:54.825]                 }
[13:13:54.825]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:54.825]                 "immediateCondition"))) {
[13:13:54.825]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:54.825]                   ...future.conditions[[length(...future.conditions) + 
[13:13:54.825]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:54.825]                   if (TRUE && !signal) {
[13:13:54.825]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.825]                     {
[13:13:54.825]                       inherits <- base::inherits
[13:13:54.825]                       invokeRestart <- base::invokeRestart
[13:13:54.825]                       is.null <- base::is.null
[13:13:54.825]                       muffled <- FALSE
[13:13:54.825]                       if (inherits(cond, "message")) {
[13:13:54.825]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:54.825]                         if (muffled) 
[13:13:54.825]                           invokeRestart("muffleMessage")
[13:13:54.825]                       }
[13:13:54.825]                       else if (inherits(cond, "warning")) {
[13:13:54.825]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:54.825]                         if (muffled) 
[13:13:54.825]                           invokeRestart("muffleWarning")
[13:13:54.825]                       }
[13:13:54.825]                       else if (inherits(cond, "condition")) {
[13:13:54.825]                         if (!is.null(pattern)) {
[13:13:54.825]                           computeRestarts <- base::computeRestarts
[13:13:54.825]                           grepl <- base::grepl
[13:13:54.825]                           restarts <- computeRestarts(cond)
[13:13:54.825]                           for (restart in restarts) {
[13:13:54.825]                             name <- restart$name
[13:13:54.825]                             if (is.null(name)) 
[13:13:54.825]                               next
[13:13:54.825]                             if (!grepl(pattern, name)) 
[13:13:54.825]                               next
[13:13:54.825]                             invokeRestart(restart)
[13:13:54.825]                             muffled <- TRUE
[13:13:54.825]                             break
[13:13:54.825]                           }
[13:13:54.825]                         }
[13:13:54.825]                       }
[13:13:54.825]                       invisible(muffled)
[13:13:54.825]                     }
[13:13:54.825]                     muffleCondition(cond, pattern = "^muffle")
[13:13:54.825]                   }
[13:13:54.825]                 }
[13:13:54.825]                 else {
[13:13:54.825]                   if (TRUE) {
[13:13:54.825]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.825]                     {
[13:13:54.825]                       inherits <- base::inherits
[13:13:54.825]                       invokeRestart <- base::invokeRestart
[13:13:54.825]                       is.null <- base::is.null
[13:13:54.825]                       muffled <- FALSE
[13:13:54.825]                       if (inherits(cond, "message")) {
[13:13:54.825]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:54.825]                         if (muffled) 
[13:13:54.825]                           invokeRestart("muffleMessage")
[13:13:54.825]                       }
[13:13:54.825]                       else if (inherits(cond, "warning")) {
[13:13:54.825]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:54.825]                         if (muffled) 
[13:13:54.825]                           invokeRestart("muffleWarning")
[13:13:54.825]                       }
[13:13:54.825]                       else if (inherits(cond, "condition")) {
[13:13:54.825]                         if (!is.null(pattern)) {
[13:13:54.825]                           computeRestarts <- base::computeRestarts
[13:13:54.825]                           grepl <- base::grepl
[13:13:54.825]                           restarts <- computeRestarts(cond)
[13:13:54.825]                           for (restart in restarts) {
[13:13:54.825]                             name <- restart$name
[13:13:54.825]                             if (is.null(name)) 
[13:13:54.825]                               next
[13:13:54.825]                             if (!grepl(pattern, name)) 
[13:13:54.825]                               next
[13:13:54.825]                             invokeRestart(restart)
[13:13:54.825]                             muffled <- TRUE
[13:13:54.825]                             break
[13:13:54.825]                           }
[13:13:54.825]                         }
[13:13:54.825]                       }
[13:13:54.825]                       invisible(muffled)
[13:13:54.825]                     }
[13:13:54.825]                     muffleCondition(cond, pattern = "^muffle")
[13:13:54.825]                   }
[13:13:54.825]                 }
[13:13:54.825]             }
[13:13:54.825]         }))
[13:13:54.825]     }, error = function(ex) {
[13:13:54.825]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:54.825]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:54.825]                 ...future.rng), started = ...future.startTime, 
[13:13:54.825]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:54.825]             version = "1.8"), class = "FutureResult")
[13:13:54.825]     }, finally = {
[13:13:54.825]         if (!identical(...future.workdir, getwd())) 
[13:13:54.825]             setwd(...future.workdir)
[13:13:54.825]         {
[13:13:54.825]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:54.825]                 ...future.oldOptions$nwarnings <- NULL
[13:13:54.825]             }
[13:13:54.825]             base::options(...future.oldOptions)
[13:13:54.825]             if (.Platform$OS.type == "windows") {
[13:13:54.825]                 old_names <- names(...future.oldEnvVars)
[13:13:54.825]                 envs <- base::Sys.getenv()
[13:13:54.825]                 names <- names(envs)
[13:13:54.825]                 common <- intersect(names, old_names)
[13:13:54.825]                 added <- setdiff(names, old_names)
[13:13:54.825]                 removed <- setdiff(old_names, names)
[13:13:54.825]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:54.825]                   envs[common]]
[13:13:54.825]                 NAMES <- toupper(changed)
[13:13:54.825]                 args <- list()
[13:13:54.825]                 for (kk in seq_along(NAMES)) {
[13:13:54.825]                   name <- changed[[kk]]
[13:13:54.825]                   NAME <- NAMES[[kk]]
[13:13:54.825]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.825]                     next
[13:13:54.825]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:54.825]                 }
[13:13:54.825]                 NAMES <- toupper(added)
[13:13:54.825]                 for (kk in seq_along(NAMES)) {
[13:13:54.825]                   name <- added[[kk]]
[13:13:54.825]                   NAME <- NAMES[[kk]]
[13:13:54.825]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.825]                     next
[13:13:54.825]                   args[[name]] <- ""
[13:13:54.825]                 }
[13:13:54.825]                 NAMES <- toupper(removed)
[13:13:54.825]                 for (kk in seq_along(NAMES)) {
[13:13:54.825]                   name <- removed[[kk]]
[13:13:54.825]                   NAME <- NAMES[[kk]]
[13:13:54.825]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.825]                     next
[13:13:54.825]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:54.825]                 }
[13:13:54.825]                 if (length(args) > 0) 
[13:13:54.825]                   base::do.call(base::Sys.setenv, args = args)
[13:13:54.825]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:54.825]             }
[13:13:54.825]             else {
[13:13:54.825]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:54.825]             }
[13:13:54.825]             {
[13:13:54.825]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:54.825]                   0L) {
[13:13:54.825]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:54.825]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:54.825]                   base::options(opts)
[13:13:54.825]                 }
[13:13:54.825]                 {
[13:13:54.825]                   {
[13:13:54.825]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:54.825]                     NULL
[13:13:54.825]                   }
[13:13:54.825]                   options(future.plan = NULL)
[13:13:54.825]                   if (is.na(NA_character_)) 
[13:13:54.825]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:54.825]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:54.825]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:54.825]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:54.825]                     envir = parent.frame()) 
[13:13:54.825]                   {
[13:13:54.825]                     if (is.function(workers)) 
[13:13:54.825]                       workers <- workers()
[13:13:54.825]                     workers <- structure(as.integer(workers), 
[13:13:54.825]                       class = class(workers))
[13:13:54.825]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:54.825]                       workers >= 1)
[13:13:54.825]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:54.825]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:54.825]                     }
[13:13:54.825]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:54.825]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:54.825]                       envir = envir)
[13:13:54.825]                     if (!future$lazy) 
[13:13:54.825]                       future <- run(future)
[13:13:54.825]                     invisible(future)
[13:13:54.825]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:54.825]                 }
[13:13:54.825]             }
[13:13:54.825]         }
[13:13:54.825]     })
[13:13:54.825]     if (TRUE) {
[13:13:54.825]         base::sink(type = "output", split = FALSE)
[13:13:54.825]         if (TRUE) {
[13:13:54.825]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:54.825]         }
[13:13:54.825]         else {
[13:13:54.825]             ...future.result["stdout"] <- base::list(NULL)
[13:13:54.825]         }
[13:13:54.825]         base::close(...future.stdout)
[13:13:54.825]         ...future.stdout <- NULL
[13:13:54.825]     }
[13:13:54.825]     ...future.result$conditions <- ...future.conditions
[13:13:54.825]     ...future.result$finished <- base::Sys.time()
[13:13:54.825]     ...future.result
[13:13:54.825] }
[13:13:54.830] Exporting 5 global objects (2.04 KiB) to cluster node #1 ...
[13:13:54.830] Exporting '...future.FUN' (1.93 KiB) to cluster node #1 ...
[13:13:54.831] Exporting '...future.FUN' (1.93 KiB) to cluster node #1 ... DONE
[13:13:54.831] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:54.831] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:54.832] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ...
[13:13:54.832] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ... DONE
[13:13:54.832] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:54.833] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:54.833] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:54.833] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:54.834] Exporting 5 global objects (2.04 KiB) to cluster node #1 ... DONE
[13:13:54.834] MultisessionFuture started
[13:13:54.834] - Launch lazy future ... done
[13:13:54.835] run() for 'MultisessionFuture' ... done
[13:13:54.835] Created future:
[13:13:54.850] receiveMessageFromWorker() for ClusterFuture ...
[13:13:54.851] - Validating connection of MultisessionFuture
[13:13:54.851] - received message: FutureResult
[13:13:54.851] - Received FutureResult
[13:13:54.851] - Erased future from FutureRegistry
[13:13:54.851] result() for ClusterFuture ...
[13:13:54.852] - result already collected: FutureResult
[13:13:54.852] result() for ClusterFuture ... done
[13:13:54.852] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:54.835] MultisessionFuture:
[13:13:54.835] Label: 'future_.mapply-1'
[13:13:54.835] Expression:
[13:13:54.835] {
[13:13:54.835]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:54.835]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:54.835]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:54.835]         on.exit(options(oopts), add = TRUE)
[13:13:54.835]     }
[13:13:54.835]     {
[13:13:54.835]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:54.835]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:54.835]         do.call(mapply, args = args)
[13:13:54.835]     }
[13:13:54.835] }
[13:13:54.835] Lazy evaluation: FALSE
[13:13:54.835] Asynchronous evaluation: TRUE
[13:13:54.835] Local evaluation: TRUE
[13:13:54.835] Environment: R_GlobalEnv
[13:13:54.835] Capture standard output: TRUE
[13:13:54.835] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:54.835] Globals: 5 objects totaling 2.04 KiB (function '...future.FUN' of 1.93 KiB, list 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 112 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:54.835] Packages: <none>
[13:13:54.835] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:54.835] Resolved: TRUE
[13:13:54.835] Value: <not collected>
[13:13:54.835] Conditions captured: <none>
[13:13:54.835] Early signaling: FALSE
[13:13:54.835] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:54.835] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:54.852] Chunk #1 of 2 ... DONE
[13:13:54.852] Chunk #2 of 2 ...
[13:13:54.853]  - Finding globals in '...' for chunk #2 ...
[13:13:54.853] getGlobalsAndPackages() ...
[13:13:54.853] Searching for globals...
[13:13:54.853] 
[13:13:54.854] Searching for globals ... DONE
[13:13:54.854] - globals: [0] <none>
[13:13:54.854] getGlobalsAndPackages() ... DONE
[13:13:54.854]    + additional globals found: [n=0] 
[13:13:54.854]    + additional namespaces needed: [n=0] 
[13:13:54.854]  - Finding globals in '...' for chunk #2 ... DONE
[13:13:54.855]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:54.855]  - seeds: <none>
[13:13:54.855]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.855] getGlobalsAndPackages() ...
[13:13:54.855] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.855] Resolving globals: FALSE
[13:13:54.856] The total size of the 5 globals is 2.15 KiB (2200 bytes)
[13:13:54.857] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 2.15 KiB.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (1.93 KiB of class 'function'), '...future.elements_ii' (224 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'list')
[13:13:54.857] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.857] 
[13:13:54.857] getGlobalsAndPackages() ... DONE
[13:13:54.857] run() for 'Future' ...
[13:13:54.858] - state: 'created'
[13:13:54.858] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:54.872] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:54.872] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:54.873]   - Field: 'node'
[13:13:54.873]   - Field: 'label'
[13:13:54.873]   - Field: 'local'
[13:13:54.873]   - Field: 'owner'
[13:13:54.873]   - Field: 'envir'
[13:13:54.873]   - Field: 'workers'
[13:13:54.874]   - Field: 'packages'
[13:13:54.874]   - Field: 'gc'
[13:13:54.874]   - Field: 'conditions'
[13:13:54.874]   - Field: 'persistent'
[13:13:54.874]   - Field: 'expr'
[13:13:54.875]   - Field: 'uuid'
[13:13:54.875]   - Field: 'seed'
[13:13:54.875]   - Field: 'version'
[13:13:54.875]   - Field: 'result'
[13:13:54.875]   - Field: 'asynchronous'
[13:13:54.875]   - Field: 'calls'
[13:13:54.876]   - Field: 'globals'
[13:13:54.876]   - Field: 'stdout'
[13:13:54.876]   - Field: 'earlySignal'
[13:13:54.876]   - Field: 'lazy'
[13:13:54.876]   - Field: 'state'
[13:13:54.876] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:54.877] - Launch lazy future ...
[13:13:54.877] Packages needed by the future expression (n = 0): <none>
[13:13:54.877] Packages needed by future strategies (n = 0): <none>
[13:13:54.878] {
[13:13:54.878]     {
[13:13:54.878]         {
[13:13:54.878]             ...future.startTime <- base::Sys.time()
[13:13:54.878]             {
[13:13:54.878]                 {
[13:13:54.878]                   {
[13:13:54.878]                     {
[13:13:54.878]                       base::local({
[13:13:54.878]                         has_future <- base::requireNamespace("future", 
[13:13:54.878]                           quietly = TRUE)
[13:13:54.878]                         if (has_future) {
[13:13:54.878]                           ns <- base::getNamespace("future")
[13:13:54.878]                           version <- ns[[".package"]][["version"]]
[13:13:54.878]                           if (is.null(version)) 
[13:13:54.878]                             version <- utils::packageVersion("future")
[13:13:54.878]                         }
[13:13:54.878]                         else {
[13:13:54.878]                           version <- NULL
[13:13:54.878]                         }
[13:13:54.878]                         if (!has_future || version < "1.8.0") {
[13:13:54.878]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:54.878]                             "", base::R.version$version.string), 
[13:13:54.878]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:54.878]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:54.878]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:54.878]                               "release", "version")], collapse = " "), 
[13:13:54.878]                             hostname = base::Sys.info()[["nodename"]])
[13:13:54.878]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:54.878]                             info)
[13:13:54.878]                           info <- base::paste(info, collapse = "; ")
[13:13:54.878]                           if (!has_future) {
[13:13:54.878]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:54.878]                               info)
[13:13:54.878]                           }
[13:13:54.878]                           else {
[13:13:54.878]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:54.878]                               info, version)
[13:13:54.878]                           }
[13:13:54.878]                           base::stop(msg)
[13:13:54.878]                         }
[13:13:54.878]                       })
[13:13:54.878]                     }
[13:13:54.878]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:54.878]                     base::options(mc.cores = 1L)
[13:13:54.878]                   }
[13:13:54.878]                   options(future.plan = NULL)
[13:13:54.878]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:54.878]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:54.878]                 }
[13:13:54.878]                 ...future.workdir <- getwd()
[13:13:54.878]             }
[13:13:54.878]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:54.878]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:54.878]         }
[13:13:54.878]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:54.878]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:54.878]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:54.878]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:54.878]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:54.878]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:54.878]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:54.878]             base::names(...future.oldOptions))
[13:13:54.878]     }
[13:13:54.878]     if (FALSE) {
[13:13:54.878]     }
[13:13:54.878]     else {
[13:13:54.878]         if (TRUE) {
[13:13:54.878]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:54.878]                 open = "w")
[13:13:54.878]         }
[13:13:54.878]         else {
[13:13:54.878]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:54.878]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:54.878]         }
[13:13:54.878]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:54.878]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:54.878]             base::sink(type = "output", split = FALSE)
[13:13:54.878]             base::close(...future.stdout)
[13:13:54.878]         }, add = TRUE)
[13:13:54.878]     }
[13:13:54.878]     ...future.frame <- base::sys.nframe()
[13:13:54.878]     ...future.conditions <- base::list()
[13:13:54.878]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:54.878]     if (FALSE) {
[13:13:54.878]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:54.878]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:54.878]     }
[13:13:54.878]     ...future.result <- base::tryCatch({
[13:13:54.878]         base::withCallingHandlers({
[13:13:54.878]             ...future.value <- base::withVisible(base::local({
[13:13:54.878]                 ...future.makeSendCondition <- local({
[13:13:54.878]                   sendCondition <- NULL
[13:13:54.878]                   function(frame = 1L) {
[13:13:54.878]                     if (is.function(sendCondition)) 
[13:13:54.878]                       return(sendCondition)
[13:13:54.878]                     ns <- getNamespace("parallel")
[13:13:54.878]                     if (exists("sendData", mode = "function", 
[13:13:54.878]                       envir = ns)) {
[13:13:54.878]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:54.878]                         envir = ns)
[13:13:54.878]                       envir <- sys.frame(frame)
[13:13:54.878]                       master <- NULL
[13:13:54.878]                       while (!identical(envir, .GlobalEnv) && 
[13:13:54.878]                         !identical(envir, emptyenv())) {
[13:13:54.878]                         if (exists("master", mode = "list", envir = envir, 
[13:13:54.878]                           inherits = FALSE)) {
[13:13:54.878]                           master <- get("master", mode = "list", 
[13:13:54.878]                             envir = envir, inherits = FALSE)
[13:13:54.878]                           if (inherits(master, c("SOCKnode", 
[13:13:54.878]                             "SOCK0node"))) {
[13:13:54.878]                             sendCondition <<- function(cond) {
[13:13:54.878]                               data <- list(type = "VALUE", value = cond, 
[13:13:54.878]                                 success = TRUE)
[13:13:54.878]                               parallel_sendData(master, data)
[13:13:54.878]                             }
[13:13:54.878]                             return(sendCondition)
[13:13:54.878]                           }
[13:13:54.878]                         }
[13:13:54.878]                         frame <- frame + 1L
[13:13:54.878]                         envir <- sys.frame(frame)
[13:13:54.878]                       }
[13:13:54.878]                     }
[13:13:54.878]                     sendCondition <<- function(cond) NULL
[13:13:54.878]                   }
[13:13:54.878]                 })
[13:13:54.878]                 withCallingHandlers({
[13:13:54.878]                   {
[13:13:54.878]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:54.878]                     if (!identical(...future.globals.maxSize.org, 
[13:13:54.878]                       ...future.globals.maxSize)) {
[13:13:54.878]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:54.878]                       on.exit(options(oopts), add = TRUE)
[13:13:54.878]                     }
[13:13:54.878]                     {
[13:13:54.878]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:54.878]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:54.878]                         USE.NAMES = FALSE)
[13:13:54.878]                       do.call(mapply, args = args)
[13:13:54.878]                     }
[13:13:54.878]                   }
[13:13:54.878]                 }, immediateCondition = function(cond) {
[13:13:54.878]                   sendCondition <- ...future.makeSendCondition()
[13:13:54.878]                   sendCondition(cond)
[13:13:54.878]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.878]                   {
[13:13:54.878]                     inherits <- base::inherits
[13:13:54.878]                     invokeRestart <- base::invokeRestart
[13:13:54.878]                     is.null <- base::is.null
[13:13:54.878]                     muffled <- FALSE
[13:13:54.878]                     if (inherits(cond, "message")) {
[13:13:54.878]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:54.878]                       if (muffled) 
[13:13:54.878]                         invokeRestart("muffleMessage")
[13:13:54.878]                     }
[13:13:54.878]                     else if (inherits(cond, "warning")) {
[13:13:54.878]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:54.878]                       if (muffled) 
[13:13:54.878]                         invokeRestart("muffleWarning")
[13:13:54.878]                     }
[13:13:54.878]                     else if (inherits(cond, "condition")) {
[13:13:54.878]                       if (!is.null(pattern)) {
[13:13:54.878]                         computeRestarts <- base::computeRestarts
[13:13:54.878]                         grepl <- base::grepl
[13:13:54.878]                         restarts <- computeRestarts(cond)
[13:13:54.878]                         for (restart in restarts) {
[13:13:54.878]                           name <- restart$name
[13:13:54.878]                           if (is.null(name)) 
[13:13:54.878]                             next
[13:13:54.878]                           if (!grepl(pattern, name)) 
[13:13:54.878]                             next
[13:13:54.878]                           invokeRestart(restart)
[13:13:54.878]                           muffled <- TRUE
[13:13:54.878]                           break
[13:13:54.878]                         }
[13:13:54.878]                       }
[13:13:54.878]                     }
[13:13:54.878]                     invisible(muffled)
[13:13:54.878]                   }
[13:13:54.878]                   muffleCondition(cond)
[13:13:54.878]                 })
[13:13:54.878]             }))
[13:13:54.878]             future::FutureResult(value = ...future.value$value, 
[13:13:54.878]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:54.878]                   ...future.rng), globalenv = if (FALSE) 
[13:13:54.878]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:54.878]                     ...future.globalenv.names))
[13:13:54.878]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:54.878]         }, condition = base::local({
[13:13:54.878]             c <- base::c
[13:13:54.878]             inherits <- base::inherits
[13:13:54.878]             invokeRestart <- base::invokeRestart
[13:13:54.878]             length <- base::length
[13:13:54.878]             list <- base::list
[13:13:54.878]             seq.int <- base::seq.int
[13:13:54.878]             signalCondition <- base::signalCondition
[13:13:54.878]             sys.calls <- base::sys.calls
[13:13:54.878]             `[[` <- base::`[[`
[13:13:54.878]             `+` <- base::`+`
[13:13:54.878]             `<<-` <- base::`<<-`
[13:13:54.878]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:54.878]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:54.878]                   3L)]
[13:13:54.878]             }
[13:13:54.878]             function(cond) {
[13:13:54.878]                 is_error <- inherits(cond, "error")
[13:13:54.878]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:54.878]                   NULL)
[13:13:54.878]                 if (is_error) {
[13:13:54.878]                   sessionInformation <- function() {
[13:13:54.878]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:54.878]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:54.878]                       search = base::search(), system = base::Sys.info())
[13:13:54.878]                   }
[13:13:54.878]                   ...future.conditions[[length(...future.conditions) + 
[13:13:54.878]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:54.878]                     cond$call), session = sessionInformation(), 
[13:13:54.878]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:54.878]                   signalCondition(cond)
[13:13:54.878]                 }
[13:13:54.878]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:54.878]                 "immediateCondition"))) {
[13:13:54.878]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:54.878]                   ...future.conditions[[length(...future.conditions) + 
[13:13:54.878]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:54.878]                   if (TRUE && !signal) {
[13:13:54.878]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.878]                     {
[13:13:54.878]                       inherits <- base::inherits
[13:13:54.878]                       invokeRestart <- base::invokeRestart
[13:13:54.878]                       is.null <- base::is.null
[13:13:54.878]                       muffled <- FALSE
[13:13:54.878]                       if (inherits(cond, "message")) {
[13:13:54.878]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:54.878]                         if (muffled) 
[13:13:54.878]                           invokeRestart("muffleMessage")
[13:13:54.878]                       }
[13:13:54.878]                       else if (inherits(cond, "warning")) {
[13:13:54.878]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:54.878]                         if (muffled) 
[13:13:54.878]                           invokeRestart("muffleWarning")
[13:13:54.878]                       }
[13:13:54.878]                       else if (inherits(cond, "condition")) {
[13:13:54.878]                         if (!is.null(pattern)) {
[13:13:54.878]                           computeRestarts <- base::computeRestarts
[13:13:54.878]                           grepl <- base::grepl
[13:13:54.878]                           restarts <- computeRestarts(cond)
[13:13:54.878]                           for (restart in restarts) {
[13:13:54.878]                             name <- restart$name
[13:13:54.878]                             if (is.null(name)) 
[13:13:54.878]                               next
[13:13:54.878]                             if (!grepl(pattern, name)) 
[13:13:54.878]                               next
[13:13:54.878]                             invokeRestart(restart)
[13:13:54.878]                             muffled <- TRUE
[13:13:54.878]                             break
[13:13:54.878]                           }
[13:13:54.878]                         }
[13:13:54.878]                       }
[13:13:54.878]                       invisible(muffled)
[13:13:54.878]                     }
[13:13:54.878]                     muffleCondition(cond, pattern = "^muffle")
[13:13:54.878]                   }
[13:13:54.878]                 }
[13:13:54.878]                 else {
[13:13:54.878]                   if (TRUE) {
[13:13:54.878]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.878]                     {
[13:13:54.878]                       inherits <- base::inherits
[13:13:54.878]                       invokeRestart <- base::invokeRestart
[13:13:54.878]                       is.null <- base::is.null
[13:13:54.878]                       muffled <- FALSE
[13:13:54.878]                       if (inherits(cond, "message")) {
[13:13:54.878]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:54.878]                         if (muffled) 
[13:13:54.878]                           invokeRestart("muffleMessage")
[13:13:54.878]                       }
[13:13:54.878]                       else if (inherits(cond, "warning")) {
[13:13:54.878]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:54.878]                         if (muffled) 
[13:13:54.878]                           invokeRestart("muffleWarning")
[13:13:54.878]                       }
[13:13:54.878]                       else if (inherits(cond, "condition")) {
[13:13:54.878]                         if (!is.null(pattern)) {
[13:13:54.878]                           computeRestarts <- base::computeRestarts
[13:13:54.878]                           grepl <- base::grepl
[13:13:54.878]                           restarts <- computeRestarts(cond)
[13:13:54.878]                           for (restart in restarts) {
[13:13:54.878]                             name <- restart$name
[13:13:54.878]                             if (is.null(name)) 
[13:13:54.878]                               next
[13:13:54.878]                             if (!grepl(pattern, name)) 
[13:13:54.878]                               next
[13:13:54.878]                             invokeRestart(restart)
[13:13:54.878]                             muffled <- TRUE
[13:13:54.878]                             break
[13:13:54.878]                           }
[13:13:54.878]                         }
[13:13:54.878]                       }
[13:13:54.878]                       invisible(muffled)
[13:13:54.878]                     }
[13:13:54.878]                     muffleCondition(cond, pattern = "^muffle")
[13:13:54.878]                   }
[13:13:54.878]                 }
[13:13:54.878]             }
[13:13:54.878]         }))
[13:13:54.878]     }, error = function(ex) {
[13:13:54.878]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:54.878]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:54.878]                 ...future.rng), started = ...future.startTime, 
[13:13:54.878]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:54.878]             version = "1.8"), class = "FutureResult")
[13:13:54.878]     }, finally = {
[13:13:54.878]         if (!identical(...future.workdir, getwd())) 
[13:13:54.878]             setwd(...future.workdir)
[13:13:54.878]         {
[13:13:54.878]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:54.878]                 ...future.oldOptions$nwarnings <- NULL
[13:13:54.878]             }
[13:13:54.878]             base::options(...future.oldOptions)
[13:13:54.878]             if (.Platform$OS.type == "windows") {
[13:13:54.878]                 old_names <- names(...future.oldEnvVars)
[13:13:54.878]                 envs <- base::Sys.getenv()
[13:13:54.878]                 names <- names(envs)
[13:13:54.878]                 common <- intersect(names, old_names)
[13:13:54.878]                 added <- setdiff(names, old_names)
[13:13:54.878]                 removed <- setdiff(old_names, names)
[13:13:54.878]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:54.878]                   envs[common]]
[13:13:54.878]                 NAMES <- toupper(changed)
[13:13:54.878]                 args <- list()
[13:13:54.878]                 for (kk in seq_along(NAMES)) {
[13:13:54.878]                   name <- changed[[kk]]
[13:13:54.878]                   NAME <- NAMES[[kk]]
[13:13:54.878]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.878]                     next
[13:13:54.878]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:54.878]                 }
[13:13:54.878]                 NAMES <- toupper(added)
[13:13:54.878]                 for (kk in seq_along(NAMES)) {
[13:13:54.878]                   name <- added[[kk]]
[13:13:54.878]                   NAME <- NAMES[[kk]]
[13:13:54.878]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.878]                     next
[13:13:54.878]                   args[[name]] <- ""
[13:13:54.878]                 }
[13:13:54.878]                 NAMES <- toupper(removed)
[13:13:54.878]                 for (kk in seq_along(NAMES)) {
[13:13:54.878]                   name <- removed[[kk]]
[13:13:54.878]                   NAME <- NAMES[[kk]]
[13:13:54.878]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.878]                     next
[13:13:54.878]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:54.878]                 }
[13:13:54.878]                 if (length(args) > 0) 
[13:13:54.878]                   base::do.call(base::Sys.setenv, args = args)
[13:13:54.878]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:54.878]             }
[13:13:54.878]             else {
[13:13:54.878]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:54.878]             }
[13:13:54.878]             {
[13:13:54.878]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:54.878]                   0L) {
[13:13:54.878]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:54.878]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:54.878]                   base::options(opts)
[13:13:54.878]                 }
[13:13:54.878]                 {
[13:13:54.878]                   {
[13:13:54.878]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:54.878]                     NULL
[13:13:54.878]                   }
[13:13:54.878]                   options(future.plan = NULL)
[13:13:54.878]                   if (is.na(NA_character_)) 
[13:13:54.878]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:54.878]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:54.878]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:54.878]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:54.878]                     envir = parent.frame()) 
[13:13:54.878]                   {
[13:13:54.878]                     if (is.function(workers)) 
[13:13:54.878]                       workers <- workers()
[13:13:54.878]                     workers <- structure(as.integer(workers), 
[13:13:54.878]                       class = class(workers))
[13:13:54.878]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:54.878]                       workers >= 1)
[13:13:54.878]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:54.878]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:54.878]                     }
[13:13:54.878]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:54.878]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:54.878]                       envir = envir)
[13:13:54.878]                     if (!future$lazy) 
[13:13:54.878]                       future <- run(future)
[13:13:54.878]                     invisible(future)
[13:13:54.878]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:54.878]                 }
[13:13:54.878]             }
[13:13:54.878]         }
[13:13:54.878]     })
[13:13:54.878]     if (TRUE) {
[13:13:54.878]         base::sink(type = "output", split = FALSE)
[13:13:54.878]         if (TRUE) {
[13:13:54.878]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:54.878]         }
[13:13:54.878]         else {
[13:13:54.878]             ...future.result["stdout"] <- base::list(NULL)
[13:13:54.878]         }
[13:13:54.878]         base::close(...future.stdout)
[13:13:54.878]         ...future.stdout <- NULL
[13:13:54.878]     }
[13:13:54.878]     ...future.result$conditions <- ...future.conditions
[13:13:54.878]     ...future.result$finished <- base::Sys.time()
[13:13:54.878]     ...future.result
[13:13:54.878] }
[13:13:54.883] Exporting 5 global objects (2.15 KiB) to cluster node #1 ...
[13:13:54.883] Exporting '...future.FUN' (1.93 KiB) to cluster node #1 ...
[13:13:54.884] Exporting '...future.FUN' (1.93 KiB) to cluster node #1 ... DONE
[13:13:54.884] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:54.884] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:54.885] Exporting '...future.elements_ii' (224 bytes) to cluster node #1 ...
[13:13:54.887] Exporting '...future.elements_ii' (224 bytes) to cluster node #1 ... DONE
[13:13:54.887] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:54.888] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:54.888] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:54.888] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:54.888] Exporting 5 global objects (2.15 KiB) to cluster node #1 ... DONE
[13:13:54.889] MultisessionFuture started
[13:13:54.889] - Launch lazy future ... done
[13:13:54.889] run() for 'MultisessionFuture' ... done
[13:13:54.890] Created future:
[13:13:54.904] receiveMessageFromWorker() for ClusterFuture ...
[13:13:54.905] - Validating connection of MultisessionFuture
[13:13:54.905] - received message: FutureResult
[13:13:54.905] - Received FutureResult
[13:13:54.905] - Erased future from FutureRegistry
[13:13:54.905] result() for ClusterFuture ...
[13:13:54.906] - result already collected: FutureResult
[13:13:54.906] result() for ClusterFuture ... done
[13:13:54.906] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:54.890] MultisessionFuture:
[13:13:54.890] Label: 'future_.mapply-2'
[13:13:54.890] Expression:
[13:13:54.890] {
[13:13:54.890]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:54.890]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:54.890]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:54.890]         on.exit(options(oopts), add = TRUE)
[13:13:54.890]     }
[13:13:54.890]     {
[13:13:54.890]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:54.890]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:54.890]         do.call(mapply, args = args)
[13:13:54.890]     }
[13:13:54.890] }
[13:13:54.890] Lazy evaluation: FALSE
[13:13:54.890] Asynchronous evaluation: TRUE
[13:13:54.890] Local evaluation: TRUE
[13:13:54.890] Environment: R_GlobalEnv
[13:13:54.890] Capture standard output: TRUE
[13:13:54.890] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:54.890] Globals: 5 objects totaling 2.15 KiB (function '...future.FUN' of 1.93 KiB, list 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 224 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:54.890] Packages: <none>
[13:13:54.890] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:54.890] Resolved: TRUE
[13:13:54.890] Value: <not collected>
[13:13:54.890] Conditions captured: <none>
[13:13:54.890] Early signaling: FALSE
[13:13:54.890] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:54.890] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:54.906] Chunk #2 of 2 ... DONE
[13:13:54.906] Launching 2 futures (chunks) ... DONE
[13:13:54.907] Resolving 2 futures (chunks) ...
[13:13:54.907] resolve() on list ...
[13:13:54.907]  recursive: 0
[13:13:54.907]  length: 2
[13:13:54.907] 
[13:13:54.907] Future #1
[13:13:54.908] result() for ClusterFuture ...
[13:13:54.908] - result already collected: FutureResult
[13:13:54.908] result() for ClusterFuture ... done
[13:13:54.908] result() for ClusterFuture ...
[13:13:54.908] - result already collected: FutureResult
[13:13:54.908] result() for ClusterFuture ... done
[13:13:54.909] signalConditionsASAP(MultisessionFuture, pos=1) ...
[13:13:54.909] - nx: 2
[13:13:54.909] - relay: TRUE
[13:13:54.909] - stdout: TRUE
[13:13:54.909] - signal: TRUE
[13:13:54.909] - resignal: FALSE
[13:13:54.909] - force: TRUE
[13:13:54.910] - relayed: [n=2] FALSE, FALSE
[13:13:54.910] - queued futures: [n=2] FALSE, FALSE
[13:13:54.910]  - until=1
[13:13:54.910]  - relaying element #1
[13:13:54.910] result() for ClusterFuture ...
[13:13:54.910] - result already collected: FutureResult
[13:13:54.911] result() for ClusterFuture ... done
[13:13:54.911] result() for ClusterFuture ...
[13:13:54.911] - result already collected: FutureResult
[13:13:54.911] result() for ClusterFuture ... done
[13:13:54.911] result() for ClusterFuture ...
[13:13:54.911] - result already collected: FutureResult
[13:13:54.912] result() for ClusterFuture ... done
[13:13:54.912] result() for ClusterFuture ...
[13:13:54.912] - result already collected: FutureResult
[13:13:54.912] result() for ClusterFuture ... done
[13:13:54.912] - relayed: [n=2] TRUE, FALSE
[13:13:54.912] - queued futures: [n=2] TRUE, FALSE
[13:13:54.912] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[13:13:54.913]  length: 1 (resolved future 1)
[13:13:54.913] Future #2
[13:13:54.913] result() for ClusterFuture ...
[13:13:54.913] - result already collected: FutureResult
[13:13:54.913] result() for ClusterFuture ... done
[13:13:54.913] result() for ClusterFuture ...
[13:13:54.914] - result already collected: FutureResult
[13:13:54.914] result() for ClusterFuture ... done
[13:13:54.914] signalConditionsASAP(MultisessionFuture, pos=2) ...
[13:13:54.914] - nx: 2
[13:13:54.914] - relay: TRUE
[13:13:54.914] - stdout: TRUE
[13:13:54.915] - signal: TRUE
[13:13:54.915] - resignal: FALSE
[13:13:54.915] - force: TRUE
[13:13:54.915] - relayed: [n=2] TRUE, FALSE
[13:13:54.915] - queued futures: [n=2] TRUE, FALSE
[13:13:54.915]  - until=2
[13:13:54.915]  - relaying element #2
[13:13:54.916] result() for ClusterFuture ...
[13:13:54.916] - result already collected: FutureResult
[13:13:54.916] result() for ClusterFuture ... done
[13:13:54.916] result() for ClusterFuture ...
[13:13:54.916] - result already collected: FutureResult
[13:13:54.916] result() for ClusterFuture ... done
[13:13:54.917] result() for ClusterFuture ...
[13:13:54.917] - result already collected: FutureResult
[13:13:54.917] result() for ClusterFuture ... done
[13:13:54.917] result() for ClusterFuture ...
[13:13:54.917] - result already collected: FutureResult
[13:13:54.917] result() for ClusterFuture ... done
[13:13:54.918] - relayed: [n=2] TRUE, TRUE
[13:13:54.918] - queued futures: [n=2] TRUE, TRUE
[13:13:54.918] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[13:13:54.918]  length: 0 (resolved future 2)
[13:13:54.918] Relaying remaining futures
[13:13:54.918] signalConditionsASAP(NULL, pos=0) ...
[13:13:54.919] - nx: 2
[13:13:54.919] - relay: TRUE
[13:13:54.919] - stdout: TRUE
[13:13:54.919] - signal: TRUE
[13:13:54.919] - resignal: FALSE
[13:13:54.919] - force: TRUE
[13:13:54.919] - relayed: [n=2] TRUE, TRUE
[13:13:54.920] - queued futures: [n=2] TRUE, TRUE
 - flush all
[13:13:54.920] - relayed: [n=2] TRUE, TRUE
[13:13:54.920] - queued futures: [n=2] TRUE, TRUE
[13:13:54.920] signalConditionsASAP(NULL, pos=0) ... done
[13:13:54.920] resolve() on list ... DONE
[13:13:54.920] result() for ClusterFuture ...
[13:13:54.921] - result already collected: FutureResult
[13:13:54.921] result() for ClusterFuture ... done
[13:13:54.921] result() for ClusterFuture ...
[13:13:54.921] - result already collected: FutureResult
[13:13:54.921] result() for ClusterFuture ... done
[13:13:54.921] result() for ClusterFuture ...
[13:13:54.922] - result already collected: FutureResult
[13:13:54.922] result() for ClusterFuture ... done
[13:13:54.922] result() for ClusterFuture ...
[13:13:54.922] - result already collected: FutureResult
[13:13:54.922] result() for ClusterFuture ... done
[13:13:54.922]  - Number of value chunks collected: 2
[13:13:54.923] Resolving 2 futures (chunks) ... DONE
[13:13:54.923] Reducing values from 2 chunks ...
[13:13:54.923]  - Number of values collected after concatenation: 3
[13:13:54.923]  - Number of values expected: 3
[13:13:54.923] Reducing values from 2 chunks ... DONE
[13:13:54.923] future_mapply() ... DONE
[13:13:54.924] future_mapply() ...
[13:13:54.926] Number of chunks: 5
[13:13:54.926] getGlobalsAndPackagesXApply() ...
[13:13:54.927]  - future.globals: TRUE
[13:13:54.927] getGlobalsAndPackages() ...
[13:13:54.927] Searching for globals...
[13:13:54.928] - globals found: [3] 'FUN', 'paste', 'rep.int'
[13:13:54.929] Searching for globals ... DONE
[13:13:54.929] Resolving globals: FALSE
[13:13:54.929] The total size of the 1 globals is 3.24 KiB (3320 bytes)
[13:13:54.930] The total size of the 1 globals exported for future expression ('FUN()') is 3.24 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (3.24 KiB of class 'function')
[13:13:54.930] - globals: [1] 'FUN'
[13:13:54.930] 
[13:13:54.930] getGlobalsAndPackages() ... DONE
[13:13:54.930]  - globals found/used: [n=1] 'FUN'
[13:13:54.931]  - needed namespaces: [n=0] 
[13:13:54.931] Finding globals ... DONE
[13:13:54.931] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:54.931] List of 2
[13:13:54.931]  $ ...future.FUN:function (C, k)  
[13:13:54.931]  $ MoreArgs     : NULL
[13:13:54.931]  - attr(*, "where")=List of 2
[13:13:54.931]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:54.931]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:54.931]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:54.931]  - attr(*, "resolved")= logi FALSE
[13:13:54.931]  - attr(*, "total_size")= num NA
[13:13:54.934] Packages to be attached in all futures: [n=0] 
[13:13:54.934] getGlobalsAndPackagesXApply() ... DONE
[13:13:54.935] Number of futures (= number of chunks): 5
[13:13:54.935] Launching 5 futures (chunks) ...
[13:13:54.935] Chunk #1 of 5 ...
[13:13:54.935]  - Finding globals in '...' for chunk #1 ...
[13:13:54.936] getGlobalsAndPackages() ...
[13:13:54.936] Searching for globals...
[13:13:54.936] 
[13:13:54.936] Searching for globals ... DONE
[13:13:54.936] - globals: [0] <none>
[13:13:54.937] getGlobalsAndPackages() ... DONE
[13:13:54.937]    + additional globals found: [n=0] 
[13:13:54.937]    + additional namespaces needed: [n=0] 
[13:13:54.937]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:54.937]  - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes)
[13:13:54.937]  - seeds: <none>
[13:13:54.938]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.938] getGlobalsAndPackages() ...
[13:13:54.938] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.938] Resolving globals: FALSE
[13:13:54.939] The total size of the 5 globals is 3.41 KiB (3488 bytes)
[13:13:54.939] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 3.41 KiB.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (3.24 KiB of class 'function'), '...future.elements_ii' (168 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:54.939] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.940] 
[13:13:54.940] getGlobalsAndPackages() ... DONE
[13:13:54.940] run() for 'Future' ...
[13:13:54.940] - state: 'created'
[13:13:54.941] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:54.955] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:54.955] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:54.956]   - Field: 'node'
[13:13:54.956]   - Field: 'label'
[13:13:54.956]   - Field: 'local'
[13:13:54.956]   - Field: 'owner'
[13:13:54.956]   - Field: 'envir'
[13:13:54.957]   - Field: 'workers'
[13:13:54.957]   - Field: 'packages'
[13:13:54.957]   - Field: 'gc'
[13:13:54.957]   - Field: 'conditions'
[13:13:54.957]   - Field: 'persistent'
[13:13:54.958]   - Field: 'expr'
[13:13:54.958]   - Field: 'uuid'
[13:13:54.958]   - Field: 'seed'
[13:13:54.958]   - Field: 'version'
[13:13:54.958]   - Field: 'result'
[13:13:54.959]   - Field: 'asynchronous'
[13:13:54.959]   - Field: 'calls'
[13:13:54.959]   - Field: 'globals'
[13:13:54.959]   - Field: 'stdout'
[13:13:54.959]   - Field: 'earlySignal'
[13:13:54.959]   - Field: 'lazy'
[13:13:54.960]   - Field: 'state'
[13:13:54.960] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:54.960] - Launch lazy future ...
[13:13:54.960] Packages needed by the future expression (n = 0): <none>
[13:13:54.961] Packages needed by future strategies (n = 0): <none>
[13:13:54.961] {
[13:13:54.961]     {
[13:13:54.961]         {
[13:13:54.961]             ...future.startTime <- base::Sys.time()
[13:13:54.961]             {
[13:13:54.961]                 {
[13:13:54.961]                   {
[13:13:54.961]                     {
[13:13:54.961]                       base::local({
[13:13:54.961]                         has_future <- base::requireNamespace("future", 
[13:13:54.961]                           quietly = TRUE)
[13:13:54.961]                         if (has_future) {
[13:13:54.961]                           ns <- base::getNamespace("future")
[13:13:54.961]                           version <- ns[[".package"]][["version"]]
[13:13:54.961]                           if (is.null(version)) 
[13:13:54.961]                             version <- utils::packageVersion("future")
[13:13:54.961]                         }
[13:13:54.961]                         else {
[13:13:54.961]                           version <- NULL
[13:13:54.961]                         }
[13:13:54.961]                         if (!has_future || version < "1.8.0") {
[13:13:54.961]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:54.961]                             "", base::R.version$version.string), 
[13:13:54.961]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:54.961]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:54.961]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:54.961]                               "release", "version")], collapse = " "), 
[13:13:54.961]                             hostname = base::Sys.info()[["nodename"]])
[13:13:54.961]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:54.961]                             info)
[13:13:54.961]                           info <- base::paste(info, collapse = "; ")
[13:13:54.961]                           if (!has_future) {
[13:13:54.961]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:54.961]                               info)
[13:13:54.961]                           }
[13:13:54.961]                           else {
[13:13:54.961]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:54.961]                               info, version)
[13:13:54.961]                           }
[13:13:54.961]                           base::stop(msg)
[13:13:54.961]                         }
[13:13:54.961]                       })
[13:13:54.961]                     }
[13:13:54.961]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:54.961]                     base::options(mc.cores = 1L)
[13:13:54.961]                   }
[13:13:54.961]                   options(future.plan = NULL)
[13:13:54.961]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:54.961]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:54.961]                 }
[13:13:54.961]                 ...future.workdir <- getwd()
[13:13:54.961]             }
[13:13:54.961]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:54.961]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:54.961]         }
[13:13:54.961]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:54.961]             future.globals.maxSize = 2621440000, future.globals.method = NULL, 
[13:13:54.961]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:54.961]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:54.961]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:54.961]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:54.961]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:54.961]             base::names(...future.oldOptions))
[13:13:54.961]     }
[13:13:54.961]     if (FALSE) {
[13:13:54.961]     }
[13:13:54.961]     else {
[13:13:54.961]         if (TRUE) {
[13:13:54.961]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:54.961]                 open = "w")
[13:13:54.961]         }
[13:13:54.961]         else {
[13:13:54.961]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:54.961]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:54.961]         }
[13:13:54.961]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:54.961]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:54.961]             base::sink(type = "output", split = FALSE)
[13:13:54.961]             base::close(...future.stdout)
[13:13:54.961]         }, add = TRUE)
[13:13:54.961]     }
[13:13:54.961]     ...future.frame <- base::sys.nframe()
[13:13:54.961]     ...future.conditions <- base::list()
[13:13:54.961]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:54.961]     if (FALSE) {
[13:13:54.961]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:54.961]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:54.961]     }
[13:13:54.961]     ...future.result <- base::tryCatch({
[13:13:54.961]         base::withCallingHandlers({
[13:13:54.961]             ...future.value <- base::withVisible(base::local({
[13:13:54.961]                 ...future.makeSendCondition <- local({
[13:13:54.961]                   sendCondition <- NULL
[13:13:54.961]                   function(frame = 1L) {
[13:13:54.961]                     if (is.function(sendCondition)) 
[13:13:54.961]                       return(sendCondition)
[13:13:54.961]                     ns <- getNamespace("parallel")
[13:13:54.961]                     if (exists("sendData", mode = "function", 
[13:13:54.961]                       envir = ns)) {
[13:13:54.961]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:54.961]                         envir = ns)
[13:13:54.961]                       envir <- sys.frame(frame)
[13:13:54.961]                       master <- NULL
[13:13:54.961]                       while (!identical(envir, .GlobalEnv) && 
[13:13:54.961]                         !identical(envir, emptyenv())) {
[13:13:54.961]                         if (exists("master", mode = "list", envir = envir, 
[13:13:54.961]                           inherits = FALSE)) {
[13:13:54.961]                           master <- get("master", mode = "list", 
[13:13:54.961]                             envir = envir, inherits = FALSE)
[13:13:54.961]                           if (inherits(master, c("SOCKnode", 
[13:13:54.961]                             "SOCK0node"))) {
[13:13:54.961]                             sendCondition <<- function(cond) {
[13:13:54.961]                               data <- list(type = "VALUE", value = cond, 
[13:13:54.961]                                 success = TRUE)
[13:13:54.961]                               parallel_sendData(master, data)
[13:13:54.961]                             }
[13:13:54.961]                             return(sendCondition)
[13:13:54.961]                           }
[13:13:54.961]                         }
[13:13:54.961]                         frame <- frame + 1L
[13:13:54.961]                         envir <- sys.frame(frame)
[13:13:54.961]                       }
[13:13:54.961]                     }
[13:13:54.961]                     sendCondition <<- function(cond) NULL
[13:13:54.961]                   }
[13:13:54.961]                 })
[13:13:54.961]                 withCallingHandlers({
[13:13:54.961]                   {
[13:13:54.961]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:54.961]                     if (!identical(...future.globals.maxSize.org, 
[13:13:54.961]                       ...future.globals.maxSize)) {
[13:13:54.961]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:54.961]                       on.exit(options(oopts), add = TRUE)
[13:13:54.961]                     }
[13:13:54.961]                     {
[13:13:54.961]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:54.961]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:54.961]                         USE.NAMES = FALSE)
[13:13:54.961]                       do.call(mapply, args = args)
[13:13:54.961]                     }
[13:13:54.961]                   }
[13:13:54.961]                 }, immediateCondition = function(cond) {
[13:13:54.961]                   sendCondition <- ...future.makeSendCondition()
[13:13:54.961]                   sendCondition(cond)
[13:13:54.961]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.961]                   {
[13:13:54.961]                     inherits <- base::inherits
[13:13:54.961]                     invokeRestart <- base::invokeRestart
[13:13:54.961]                     is.null <- base::is.null
[13:13:54.961]                     muffled <- FALSE
[13:13:54.961]                     if (inherits(cond, "message")) {
[13:13:54.961]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:54.961]                       if (muffled) 
[13:13:54.961]                         invokeRestart("muffleMessage")
[13:13:54.961]                     }
[13:13:54.961]                     else if (inherits(cond, "warning")) {
[13:13:54.961]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:54.961]                       if (muffled) 
[13:13:54.961]                         invokeRestart("muffleWarning")
[13:13:54.961]                     }
[13:13:54.961]                     else if (inherits(cond, "condition")) {
[13:13:54.961]                       if (!is.null(pattern)) {
[13:13:54.961]                         computeRestarts <- base::computeRestarts
[13:13:54.961]                         grepl <- base::grepl
[13:13:54.961]                         restarts <- computeRestarts(cond)
[13:13:54.961]                         for (restart in restarts) {
[13:13:54.961]                           name <- restart$name
[13:13:54.961]                           if (is.null(name)) 
[13:13:54.961]                             next
[13:13:54.961]                           if (!grepl(pattern, name)) 
[13:13:54.961]                             next
[13:13:54.961]                           invokeRestart(restart)
[13:13:54.961]                           muffled <- TRUE
[13:13:54.961]                           break
[13:13:54.961]                         }
[13:13:54.961]                       }
[13:13:54.961]                     }
[13:13:54.961]                     invisible(muffled)
[13:13:54.961]                   }
[13:13:54.961]                   muffleCondition(cond)
[13:13:54.961]                 })
[13:13:54.961]             }))
[13:13:54.961]             future::FutureResult(value = ...future.value$value, 
[13:13:54.961]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:54.961]                   ...future.rng), globalenv = if (FALSE) 
[13:13:54.961]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:54.961]                     ...future.globalenv.names))
[13:13:54.961]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:54.961]         }, condition = base::local({
[13:13:54.961]             c <- base::c
[13:13:54.961]             inherits <- base::inherits
[13:13:54.961]             invokeRestart <- base::invokeRestart
[13:13:54.961]             length <- base::length
[13:13:54.961]             list <- base::list
[13:13:54.961]             seq.int <- base::seq.int
[13:13:54.961]             signalCondition <- base::signalCondition
[13:13:54.961]             sys.calls <- base::sys.calls
[13:13:54.961]             `[[` <- base::`[[`
[13:13:54.961]             `+` <- base::`+`
[13:13:54.961]             `<<-` <- base::`<<-`
[13:13:54.961]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:54.961]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:54.961]                   3L)]
[13:13:54.961]             }
[13:13:54.961]             function(cond) {
[13:13:54.961]                 is_error <- inherits(cond, "error")
[13:13:54.961]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:54.961]                   NULL)
[13:13:54.961]                 if (is_error) {
[13:13:54.961]                   sessionInformation <- function() {
[13:13:54.961]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:54.961]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:54.961]                       search = base::search(), system = base::Sys.info())
[13:13:54.961]                   }
[13:13:54.961]                   ...future.conditions[[length(...future.conditions) + 
[13:13:54.961]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:54.961]                     cond$call), session = sessionInformation(), 
[13:13:54.961]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:54.961]                   signalCondition(cond)
[13:13:54.961]                 }
[13:13:54.961]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:54.961]                 "immediateCondition"))) {
[13:13:54.961]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:54.961]                   ...future.conditions[[length(...future.conditions) + 
[13:13:54.961]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:54.961]                   if (TRUE && !signal) {
[13:13:54.961]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.961]                     {
[13:13:54.961]                       inherits <- base::inherits
[13:13:54.961]                       invokeRestart <- base::invokeRestart
[13:13:54.961]                       is.null <- base::is.null
[13:13:54.961]                       muffled <- FALSE
[13:13:54.961]                       if (inherits(cond, "message")) {
[13:13:54.961]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:54.961]                         if (muffled) 
[13:13:54.961]                           invokeRestart("muffleMessage")
[13:13:54.961]                       }
[13:13:54.961]                       else if (inherits(cond, "warning")) {
[13:13:54.961]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:54.961]                         if (muffled) 
[13:13:54.961]                           invokeRestart("muffleWarning")
[13:13:54.961]                       }
[13:13:54.961]                       else if (inherits(cond, "condition")) {
[13:13:54.961]                         if (!is.null(pattern)) {
[13:13:54.961]                           computeRestarts <- base::computeRestarts
[13:13:54.961]                           grepl <- base::grepl
[13:13:54.961]                           restarts <- computeRestarts(cond)
[13:13:54.961]                           for (restart in restarts) {
[13:13:54.961]                             name <- restart$name
[13:13:54.961]                             if (is.null(name)) 
[13:13:54.961]                               next
[13:13:54.961]                             if (!grepl(pattern, name)) 
[13:13:54.961]                               next
[13:13:54.961]                             invokeRestart(restart)
[13:13:54.961]                             muffled <- TRUE
[13:13:54.961]                             break
[13:13:54.961]                           }
[13:13:54.961]                         }
[13:13:54.961]                       }
[13:13:54.961]                       invisible(muffled)
[13:13:54.961]                     }
[13:13:54.961]                     muffleCondition(cond, pattern = "^muffle")
[13:13:54.961]                   }
[13:13:54.961]                 }
[13:13:54.961]                 else {
[13:13:54.961]                   if (TRUE) {
[13:13:54.961]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:54.961]                     {
[13:13:54.961]                       inherits <- base::inherits
[13:13:54.961]                       invokeRestart <- base::invokeRestart
[13:13:54.961]                       is.null <- base::is.null
[13:13:54.961]                       muffled <- FALSE
[13:13:54.961]                       if (inherits(cond, "message")) {
[13:13:54.961]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:54.961]                         if (muffled) 
[13:13:54.961]                           invokeRestart("muffleMessage")
[13:13:54.961]                       }
[13:13:54.961]                       else if (inherits(cond, "warning")) {
[13:13:54.961]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:54.961]                         if (muffled) 
[13:13:54.961]                           invokeRestart("muffleWarning")
[13:13:54.961]                       }
[13:13:54.961]                       else if (inherits(cond, "condition")) {
[13:13:54.961]                         if (!is.null(pattern)) {
[13:13:54.961]                           computeRestarts <- base::computeRestarts
[13:13:54.961]                           grepl <- base::grepl
[13:13:54.961]                           restarts <- computeRestarts(cond)
[13:13:54.961]                           for (restart in restarts) {
[13:13:54.961]                             name <- restart$name
[13:13:54.961]                             if (is.null(name)) 
[13:13:54.961]                               next
[13:13:54.961]                             if (!grepl(pattern, name)) 
[13:13:54.961]                               next
[13:13:54.961]                             invokeRestart(restart)
[13:13:54.961]                             muffled <- TRUE
[13:13:54.961]                             break
[13:13:54.961]                           }
[13:13:54.961]                         }
[13:13:54.961]                       }
[13:13:54.961]                       invisible(muffled)
[13:13:54.961]                     }
[13:13:54.961]                     muffleCondition(cond, pattern = "^muffle")
[13:13:54.961]                   }
[13:13:54.961]                 }
[13:13:54.961]             }
[13:13:54.961]         }))
[13:13:54.961]     }, error = function(ex) {
[13:13:54.961]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:54.961]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:54.961]                 ...future.rng), started = ...future.startTime, 
[13:13:54.961]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:54.961]             version = "1.8"), class = "FutureResult")
[13:13:54.961]     }, finally = {
[13:13:54.961]         if (!identical(...future.workdir, getwd())) 
[13:13:54.961]             setwd(...future.workdir)
[13:13:54.961]         {
[13:13:54.961]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:54.961]                 ...future.oldOptions$nwarnings <- NULL
[13:13:54.961]             }
[13:13:54.961]             base::options(...future.oldOptions)
[13:13:54.961]             if (.Platform$OS.type == "windows") {
[13:13:54.961]                 old_names <- names(...future.oldEnvVars)
[13:13:54.961]                 envs <- base::Sys.getenv()
[13:13:54.961]                 names <- names(envs)
[13:13:54.961]                 common <- intersect(names, old_names)
[13:13:54.961]                 added <- setdiff(names, old_names)
[13:13:54.961]                 removed <- setdiff(old_names, names)
[13:13:54.961]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:54.961]                   envs[common]]
[13:13:54.961]                 NAMES <- toupper(changed)
[13:13:54.961]                 args <- list()
[13:13:54.961]                 for (kk in seq_along(NAMES)) {
[13:13:54.961]                   name <- changed[[kk]]
[13:13:54.961]                   NAME <- NAMES[[kk]]
[13:13:54.961]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.961]                     next
[13:13:54.961]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:54.961]                 }
[13:13:54.961]                 NAMES <- toupper(added)
[13:13:54.961]                 for (kk in seq_along(NAMES)) {
[13:13:54.961]                   name <- added[[kk]]
[13:13:54.961]                   NAME <- NAMES[[kk]]
[13:13:54.961]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.961]                     next
[13:13:54.961]                   args[[name]] <- ""
[13:13:54.961]                 }
[13:13:54.961]                 NAMES <- toupper(removed)
[13:13:54.961]                 for (kk in seq_along(NAMES)) {
[13:13:54.961]                   name <- removed[[kk]]
[13:13:54.961]                   NAME <- NAMES[[kk]]
[13:13:54.961]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:54.961]                     next
[13:13:54.961]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:54.961]                 }
[13:13:54.961]                 if (length(args) > 0) 
[13:13:54.961]                   base::do.call(base::Sys.setenv, args = args)
[13:13:54.961]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:54.961]             }
[13:13:54.961]             else {
[13:13:54.961]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:54.961]             }
[13:13:54.961]             {
[13:13:54.961]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:54.961]                   0L) {
[13:13:54.961]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:54.961]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:54.961]                   base::options(opts)
[13:13:54.961]                 }
[13:13:54.961]                 {
[13:13:54.961]                   {
[13:13:54.961]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:54.961]                     NULL
[13:13:54.961]                   }
[13:13:54.961]                   options(future.plan = NULL)
[13:13:54.961]                   if (is.na(NA_character_)) 
[13:13:54.961]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:54.961]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:54.961]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:54.961]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:54.961]                     envir = parent.frame()) 
[13:13:54.961]                   {
[13:13:54.961]                     if (is.function(workers)) 
[13:13:54.961]                       workers <- workers()
[13:13:54.961]                     workers <- structure(as.integer(workers), 
[13:13:54.961]                       class = class(workers))
[13:13:54.961]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:54.961]                       workers >= 1)
[13:13:54.961]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:54.961]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:54.961]                     }
[13:13:54.961]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:54.961]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:54.961]                       envir = envir)
[13:13:54.961]                     if (!future$lazy) 
[13:13:54.961]                       future <- run(future)
[13:13:54.961]                     invisible(future)
[13:13:54.961]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:54.961]                 }
[13:13:54.961]             }
[13:13:54.961]         }
[13:13:54.961]     })
[13:13:54.961]     if (TRUE) {
[13:13:54.961]         base::sink(type = "output", split = FALSE)
[13:13:54.961]         if (TRUE) {
[13:13:54.961]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:54.961]         }
[13:13:54.961]         else {
[13:13:54.961]             ...future.result["stdout"] <- base::list(NULL)
[13:13:54.961]         }
[13:13:54.961]         base::close(...future.stdout)
[13:13:54.961]         ...future.stdout <- NULL
[13:13:54.961]     }
[13:13:54.961]     ...future.result$conditions <- ...future.conditions
[13:13:54.961]     ...future.result$finished <- base::Sys.time()
[13:13:54.961]     ...future.result
[13:13:54.961] }
[13:13:54.967] Exporting 5 global objects (3.41 KiB) to cluster node #1 ...
[13:13:54.967] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ...
[13:13:54.967] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ... DONE
[13:13:54.967] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:54.968] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:54.968] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ...
[13:13:54.968] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ... DONE
[13:13:54.969] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:54.969] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:54.969] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:54.970] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:54.970] Exporting 5 global objects (3.41 KiB) to cluster node #1 ... DONE
[13:13:54.971] MultisessionFuture started
[13:13:54.971] - Launch lazy future ... done
[13:13:54.971] run() for 'MultisessionFuture' ... done
[13:13:54.971] Created future:
[13:13:54.987] receiveMessageFromWorker() for ClusterFuture ...
[13:13:54.987] - Validating connection of MultisessionFuture
[13:13:54.987] - received message: FutureResult
[13:13:54.987] - Received FutureResult
[13:13:54.988] - Erased future from FutureRegistry
[13:13:54.988] result() for ClusterFuture ...
[13:13:54.988] - result already collected: FutureResult
[13:13:54.988] result() for ClusterFuture ... done
[13:13:54.988] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:54.971] MultisessionFuture:
[13:13:54.971] Label: 'future_mapply-1'
[13:13:54.971] Expression:
[13:13:54.971] {
[13:13:54.971]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:54.971]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:54.971]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:54.971]         on.exit(options(oopts), add = TRUE)
[13:13:54.971]     }
[13:13:54.971]     {
[13:13:54.971]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:54.971]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:54.971]         do.call(mapply, args = args)
[13:13:54.971]     }
[13:13:54.971] }
[13:13:54.971] Lazy evaluation: FALSE
[13:13:54.971] Asynchronous evaluation: TRUE
[13:13:54.971] Local evaluation: TRUE
[13:13:54.971] Environment: R_GlobalEnv
[13:13:54.971] Capture standard output: TRUE
[13:13:54.971] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:54.971] Globals: 5 objects totaling 3.41 KiB (function '...future.FUN' of 3.24 KiB, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 168 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:54.971] Packages: <none>
[13:13:54.971] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:54.971] Resolved: TRUE
[13:13:54.971] Value: <not collected>
[13:13:54.971] Conditions captured: <none>
[13:13:54.971] Early signaling: FALSE
[13:13:54.971] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:54.971] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:54.989] Chunk #1 of 5 ... DONE
[13:13:54.989] Chunk #2 of 5 ...
[13:13:54.989]  - Finding globals in '...' for chunk #2 ...
[13:13:54.989] getGlobalsAndPackages() ...
[13:13:54.989] Searching for globals...
[13:13:54.990] 
[13:13:54.990] Searching for globals ... DONE
[13:13:54.990] - globals: [0] <none>
[13:13:54.990] getGlobalsAndPackages() ... DONE
[13:13:54.990]    + additional globals found: [n=0] 
[13:13:54.991]    + additional namespaces needed: [n=0] 
[13:13:54.991]  - Finding globals in '...' for chunk #2 ... DONE
[13:13:54.991]  - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes)
[13:13:54.991]  - seeds: <none>
[13:13:54.991]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.991] getGlobalsAndPackages() ...
[13:13:54.992] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.992] Resolving globals: FALSE
[13:13:54.992] The total size of the 5 globals is 3.41 KiB (3488 bytes)
[13:13:54.993] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 3.41 KiB.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (3.24 KiB of class 'function'), '...future.elements_ii' (168 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:54.993] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:54.993] 
[13:13:54.994] getGlobalsAndPackages() ... DONE
[13:13:54.994] run() for 'Future' ...
[13:13:54.994] - state: 'created'
[13:13:54.994] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:55.009] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:55.009] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:55.009]   - Field: 'node'
[13:13:55.009]   - Field: 'label'
[13:13:55.009]   - Field: 'local'
[13:13:55.010]   - Field: 'owner'
[13:13:55.010]   - Field: 'envir'
[13:13:55.010]   - Field: 'workers'
[13:13:55.010]   - Field: 'packages'
[13:13:55.010]   - Field: 'gc'
[13:13:55.010]   - Field: 'conditions'
[13:13:55.011]   - Field: 'persistent'
[13:13:55.011]   - Field: 'expr'
[13:13:55.011]   - Field: 'uuid'
[13:13:55.011]   - Field: 'seed'
[13:13:55.011]   - Field: 'version'
[13:13:55.012]   - Field: 'result'
[13:13:55.012]   - Field: 'asynchronous'
[13:13:55.012]   - Field: 'calls'
[13:13:55.012]   - Field: 'globals'
[13:13:55.012]   - Field: 'stdout'
[13:13:55.012]   - Field: 'earlySignal'
[13:13:55.013]   - Field: 'lazy'
[13:13:55.013]   - Field: 'state'
[13:13:55.013] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:55.013] - Launch lazy future ...
[13:13:55.013] Packages needed by the future expression (n = 0): <none>
[13:13:55.014] Packages needed by future strategies (n = 0): <none>
[13:13:55.014] {
[13:13:55.014]     {
[13:13:55.014]         {
[13:13:55.014]             ...future.startTime <- base::Sys.time()
[13:13:55.014]             {
[13:13:55.014]                 {
[13:13:55.014]                   {
[13:13:55.014]                     {
[13:13:55.014]                       base::local({
[13:13:55.014]                         has_future <- base::requireNamespace("future", 
[13:13:55.014]                           quietly = TRUE)
[13:13:55.014]                         if (has_future) {
[13:13:55.014]                           ns <- base::getNamespace("future")
[13:13:55.014]                           version <- ns[[".package"]][["version"]]
[13:13:55.014]                           if (is.null(version)) 
[13:13:55.014]                             version <- utils::packageVersion("future")
[13:13:55.014]                         }
[13:13:55.014]                         else {
[13:13:55.014]                           version <- NULL
[13:13:55.014]                         }
[13:13:55.014]                         if (!has_future || version < "1.8.0") {
[13:13:55.014]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:55.014]                             "", base::R.version$version.string), 
[13:13:55.014]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:55.014]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:55.014]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:55.014]                               "release", "version")], collapse = " "), 
[13:13:55.014]                             hostname = base::Sys.info()[["nodename"]])
[13:13:55.014]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:55.014]                             info)
[13:13:55.014]                           info <- base::paste(info, collapse = "; ")
[13:13:55.014]                           if (!has_future) {
[13:13:55.014]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:55.014]                               info)
[13:13:55.014]                           }
[13:13:55.014]                           else {
[13:13:55.014]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:55.014]                               info, version)
[13:13:55.014]                           }
[13:13:55.014]                           base::stop(msg)
[13:13:55.014]                         }
[13:13:55.014]                       })
[13:13:55.014]                     }
[13:13:55.014]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:55.014]                     base::options(mc.cores = 1L)
[13:13:55.014]                   }
[13:13:55.014]                   options(future.plan = NULL)
[13:13:55.014]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:55.014]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:55.014]                 }
[13:13:55.014]                 ...future.workdir <- getwd()
[13:13:55.014]             }
[13:13:55.014]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:55.014]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:55.014]         }
[13:13:55.014]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:55.014]             future.globals.maxSize = 2621440000, future.globals.method = NULL, 
[13:13:55.014]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:55.014]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:55.014]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:55.014]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:55.014]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:55.014]             base::names(...future.oldOptions))
[13:13:55.014]     }
[13:13:55.014]     if (FALSE) {
[13:13:55.014]     }
[13:13:55.014]     else {
[13:13:55.014]         if (TRUE) {
[13:13:55.014]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:55.014]                 open = "w")
[13:13:55.014]         }
[13:13:55.014]         else {
[13:13:55.014]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:55.014]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:55.014]         }
[13:13:55.014]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:55.014]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:55.014]             base::sink(type = "output", split = FALSE)
[13:13:55.014]             base::close(...future.stdout)
[13:13:55.014]         }, add = TRUE)
[13:13:55.014]     }
[13:13:55.014]     ...future.frame <- base::sys.nframe()
[13:13:55.014]     ...future.conditions <- base::list()
[13:13:55.014]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:55.014]     if (FALSE) {
[13:13:55.014]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:55.014]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:55.014]     }
[13:13:55.014]     ...future.result <- base::tryCatch({
[13:13:55.014]         base::withCallingHandlers({
[13:13:55.014]             ...future.value <- base::withVisible(base::local({
[13:13:55.014]                 ...future.makeSendCondition <- local({
[13:13:55.014]                   sendCondition <- NULL
[13:13:55.014]                   function(frame = 1L) {
[13:13:55.014]                     if (is.function(sendCondition)) 
[13:13:55.014]                       return(sendCondition)
[13:13:55.014]                     ns <- getNamespace("parallel")
[13:13:55.014]                     if (exists("sendData", mode = "function", 
[13:13:55.014]                       envir = ns)) {
[13:13:55.014]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:55.014]                         envir = ns)
[13:13:55.014]                       envir <- sys.frame(frame)
[13:13:55.014]                       master <- NULL
[13:13:55.014]                       while (!identical(envir, .GlobalEnv) && 
[13:13:55.014]                         !identical(envir, emptyenv())) {
[13:13:55.014]                         if (exists("master", mode = "list", envir = envir, 
[13:13:55.014]                           inherits = FALSE)) {
[13:13:55.014]                           master <- get("master", mode = "list", 
[13:13:55.014]                             envir = envir, inherits = FALSE)
[13:13:55.014]                           if (inherits(master, c("SOCKnode", 
[13:13:55.014]                             "SOCK0node"))) {
[13:13:55.014]                             sendCondition <<- function(cond) {
[13:13:55.014]                               data <- list(type = "VALUE", value = cond, 
[13:13:55.014]                                 success = TRUE)
[13:13:55.014]                               parallel_sendData(master, data)
[13:13:55.014]                             }
[13:13:55.014]                             return(sendCondition)
[13:13:55.014]                           }
[13:13:55.014]                         }
[13:13:55.014]                         frame <- frame + 1L
[13:13:55.014]                         envir <- sys.frame(frame)
[13:13:55.014]                       }
[13:13:55.014]                     }
[13:13:55.014]                     sendCondition <<- function(cond) NULL
[13:13:55.014]                   }
[13:13:55.014]                 })
[13:13:55.014]                 withCallingHandlers({
[13:13:55.014]                   {
[13:13:55.014]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:55.014]                     if (!identical(...future.globals.maxSize.org, 
[13:13:55.014]                       ...future.globals.maxSize)) {
[13:13:55.014]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:55.014]                       on.exit(options(oopts), add = TRUE)
[13:13:55.014]                     }
[13:13:55.014]                     {
[13:13:55.014]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:55.014]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:55.014]                         USE.NAMES = FALSE)
[13:13:55.014]                       do.call(mapply, args = args)
[13:13:55.014]                     }
[13:13:55.014]                   }
[13:13:55.014]                 }, immediateCondition = function(cond) {
[13:13:55.014]                   sendCondition <- ...future.makeSendCondition()
[13:13:55.014]                   sendCondition(cond)
[13:13:55.014]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.014]                   {
[13:13:55.014]                     inherits <- base::inherits
[13:13:55.014]                     invokeRestart <- base::invokeRestart
[13:13:55.014]                     is.null <- base::is.null
[13:13:55.014]                     muffled <- FALSE
[13:13:55.014]                     if (inherits(cond, "message")) {
[13:13:55.014]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:55.014]                       if (muffled) 
[13:13:55.014]                         invokeRestart("muffleMessage")
[13:13:55.014]                     }
[13:13:55.014]                     else if (inherits(cond, "warning")) {
[13:13:55.014]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:55.014]                       if (muffled) 
[13:13:55.014]                         invokeRestart("muffleWarning")
[13:13:55.014]                     }
[13:13:55.014]                     else if (inherits(cond, "condition")) {
[13:13:55.014]                       if (!is.null(pattern)) {
[13:13:55.014]                         computeRestarts <- base::computeRestarts
[13:13:55.014]                         grepl <- base::grepl
[13:13:55.014]                         restarts <- computeRestarts(cond)
[13:13:55.014]                         for (restart in restarts) {
[13:13:55.014]                           name <- restart$name
[13:13:55.014]                           if (is.null(name)) 
[13:13:55.014]                             next
[13:13:55.014]                           if (!grepl(pattern, name)) 
[13:13:55.014]                             next
[13:13:55.014]                           invokeRestart(restart)
[13:13:55.014]                           muffled <- TRUE
[13:13:55.014]                           break
[13:13:55.014]                         }
[13:13:55.014]                       }
[13:13:55.014]                     }
[13:13:55.014]                     invisible(muffled)
[13:13:55.014]                   }
[13:13:55.014]                   muffleCondition(cond)
[13:13:55.014]                 })
[13:13:55.014]             }))
[13:13:55.014]             future::FutureResult(value = ...future.value$value, 
[13:13:55.014]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:55.014]                   ...future.rng), globalenv = if (FALSE) 
[13:13:55.014]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:55.014]                     ...future.globalenv.names))
[13:13:55.014]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:55.014]         }, condition = base::local({
[13:13:55.014]             c <- base::c
[13:13:55.014]             inherits <- base::inherits
[13:13:55.014]             invokeRestart <- base::invokeRestart
[13:13:55.014]             length <- base::length
[13:13:55.014]             list <- base::list
[13:13:55.014]             seq.int <- base::seq.int
[13:13:55.014]             signalCondition <- base::signalCondition
[13:13:55.014]             sys.calls <- base::sys.calls
[13:13:55.014]             `[[` <- base::`[[`
[13:13:55.014]             `+` <- base::`+`
[13:13:55.014]             `<<-` <- base::`<<-`
[13:13:55.014]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:55.014]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:55.014]                   3L)]
[13:13:55.014]             }
[13:13:55.014]             function(cond) {
[13:13:55.014]                 is_error <- inherits(cond, "error")
[13:13:55.014]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:55.014]                   NULL)
[13:13:55.014]                 if (is_error) {
[13:13:55.014]                   sessionInformation <- function() {
[13:13:55.014]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:55.014]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:55.014]                       search = base::search(), system = base::Sys.info())
[13:13:55.014]                   }
[13:13:55.014]                   ...future.conditions[[length(...future.conditions) + 
[13:13:55.014]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:55.014]                     cond$call), session = sessionInformation(), 
[13:13:55.014]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:55.014]                   signalCondition(cond)
[13:13:55.014]                 }
[13:13:55.014]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:55.014]                 "immediateCondition"))) {
[13:13:55.014]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:55.014]                   ...future.conditions[[length(...future.conditions) + 
[13:13:55.014]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:55.014]                   if (TRUE && !signal) {
[13:13:55.014]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.014]                     {
[13:13:55.014]                       inherits <- base::inherits
[13:13:55.014]                       invokeRestart <- base::invokeRestart
[13:13:55.014]                       is.null <- base::is.null
[13:13:55.014]                       muffled <- FALSE
[13:13:55.014]                       if (inherits(cond, "message")) {
[13:13:55.014]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:55.014]                         if (muffled) 
[13:13:55.014]                           invokeRestart("muffleMessage")
[13:13:55.014]                       }
[13:13:55.014]                       else if (inherits(cond, "warning")) {
[13:13:55.014]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:55.014]                         if (muffled) 
[13:13:55.014]                           invokeRestart("muffleWarning")
[13:13:55.014]                       }
[13:13:55.014]                       else if (inherits(cond, "condition")) {
[13:13:55.014]                         if (!is.null(pattern)) {
[13:13:55.014]                           computeRestarts <- base::computeRestarts
[13:13:55.014]                           grepl <- base::grepl
[13:13:55.014]                           restarts <- computeRestarts(cond)
[13:13:55.014]                           for (restart in restarts) {
[13:13:55.014]                             name <- restart$name
[13:13:55.014]                             if (is.null(name)) 
[13:13:55.014]                               next
[13:13:55.014]                             if (!grepl(pattern, name)) 
[13:13:55.014]                               next
[13:13:55.014]                             invokeRestart(restart)
[13:13:55.014]                             muffled <- TRUE
[13:13:55.014]                             break
[13:13:55.014]                           }
[13:13:55.014]                         }
[13:13:55.014]                       }
[13:13:55.014]                       invisible(muffled)
[13:13:55.014]                     }
[13:13:55.014]                     muffleCondition(cond, pattern = "^muffle")
[13:13:55.014]                   }
[13:13:55.014]                 }
[13:13:55.014]                 else {
[13:13:55.014]                   if (TRUE) {
[13:13:55.014]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.014]                     {
[13:13:55.014]                       inherits <- base::inherits
[13:13:55.014]                       invokeRestart <- base::invokeRestart
[13:13:55.014]                       is.null <- base::is.null
[13:13:55.014]                       muffled <- FALSE
[13:13:55.014]                       if (inherits(cond, "message")) {
[13:13:55.014]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:55.014]                         if (muffled) 
[13:13:55.014]                           invokeRestart("muffleMessage")
[13:13:55.014]                       }
[13:13:55.014]                       else if (inherits(cond, "warning")) {
[13:13:55.014]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:55.014]                         if (muffled) 
[13:13:55.014]                           invokeRestart("muffleWarning")
[13:13:55.014]                       }
[13:13:55.014]                       else if (inherits(cond, "condition")) {
[13:13:55.014]                         if (!is.null(pattern)) {
[13:13:55.014]                           computeRestarts <- base::computeRestarts
[13:13:55.014]                           grepl <- base::grepl
[13:13:55.014]                           restarts <- computeRestarts(cond)
[13:13:55.014]                           for (restart in restarts) {
[13:13:55.014]                             name <- restart$name
[13:13:55.014]                             if (is.null(name)) 
[13:13:55.014]                               next
[13:13:55.014]                             if (!grepl(pattern, name)) 
[13:13:55.014]                               next
[13:13:55.014]                             invokeRestart(restart)
[13:13:55.014]                             muffled <- TRUE
[13:13:55.014]                             break
[13:13:55.014]                           }
[13:13:55.014]                         }
[13:13:55.014]                       }
[13:13:55.014]                       invisible(muffled)
[13:13:55.014]                     }
[13:13:55.014]                     muffleCondition(cond, pattern = "^muffle")
[13:13:55.014]                   }
[13:13:55.014]                 }
[13:13:55.014]             }
[13:13:55.014]         }))
[13:13:55.014]     }, error = function(ex) {
[13:13:55.014]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:55.014]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:55.014]                 ...future.rng), started = ...future.startTime, 
[13:13:55.014]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:55.014]             version = "1.8"), class = "FutureResult")
[13:13:55.014]     }, finally = {
[13:13:55.014]         if (!identical(...future.workdir, getwd())) 
[13:13:55.014]             setwd(...future.workdir)
[13:13:55.014]         {
[13:13:55.014]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:55.014]                 ...future.oldOptions$nwarnings <- NULL
[13:13:55.014]             }
[13:13:55.014]             base::options(...future.oldOptions)
[13:13:55.014]             if (.Platform$OS.type == "windows") {
[13:13:55.014]                 old_names <- names(...future.oldEnvVars)
[13:13:55.014]                 envs <- base::Sys.getenv()
[13:13:55.014]                 names <- names(envs)
[13:13:55.014]                 common <- intersect(names, old_names)
[13:13:55.014]                 added <- setdiff(names, old_names)
[13:13:55.014]                 removed <- setdiff(old_names, names)
[13:13:55.014]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:55.014]                   envs[common]]
[13:13:55.014]                 NAMES <- toupper(changed)
[13:13:55.014]                 args <- list()
[13:13:55.014]                 for (kk in seq_along(NAMES)) {
[13:13:55.014]                   name <- changed[[kk]]
[13:13:55.014]                   NAME <- NAMES[[kk]]
[13:13:55.014]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.014]                     next
[13:13:55.014]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:55.014]                 }
[13:13:55.014]                 NAMES <- toupper(added)
[13:13:55.014]                 for (kk in seq_along(NAMES)) {
[13:13:55.014]                   name <- added[[kk]]
[13:13:55.014]                   NAME <- NAMES[[kk]]
[13:13:55.014]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.014]                     next
[13:13:55.014]                   args[[name]] <- ""
[13:13:55.014]                 }
[13:13:55.014]                 NAMES <- toupper(removed)
[13:13:55.014]                 for (kk in seq_along(NAMES)) {
[13:13:55.014]                   name <- removed[[kk]]
[13:13:55.014]                   NAME <- NAMES[[kk]]
[13:13:55.014]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.014]                     next
[13:13:55.014]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:55.014]                 }
[13:13:55.014]                 if (length(args) > 0) 
[13:13:55.014]                   base::do.call(base::Sys.setenv, args = args)
[13:13:55.014]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:55.014]             }
[13:13:55.014]             else {
[13:13:55.014]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:55.014]             }
[13:13:55.014]             {
[13:13:55.014]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:55.014]                   0L) {
[13:13:55.014]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:55.014]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:55.014]                   base::options(opts)
[13:13:55.014]                 }
[13:13:55.014]                 {
[13:13:55.014]                   {
[13:13:55.014]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:55.014]                     NULL
[13:13:55.014]                   }
[13:13:55.014]                   options(future.plan = NULL)
[13:13:55.014]                   if (is.na(NA_character_)) 
[13:13:55.014]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:55.014]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:55.014]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:55.014]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:55.014]                     envir = parent.frame()) 
[13:13:55.014]                   {
[13:13:55.014]                     if (is.function(workers)) 
[13:13:55.014]                       workers <- workers()
[13:13:55.014]                     workers <- structure(as.integer(workers), 
[13:13:55.014]                       class = class(workers))
[13:13:55.014]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:55.014]                       workers >= 1)
[13:13:55.014]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:55.014]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:55.014]                     }
[13:13:55.014]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:55.014]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:55.014]                       envir = envir)
[13:13:55.014]                     if (!future$lazy) 
[13:13:55.014]                       future <- run(future)
[13:13:55.014]                     invisible(future)
[13:13:55.014]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:55.014]                 }
[13:13:55.014]             }
[13:13:55.014]         }
[13:13:55.014]     })
[13:13:55.014]     if (TRUE) {
[13:13:55.014]         base::sink(type = "output", split = FALSE)
[13:13:55.014]         if (TRUE) {
[13:13:55.014]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:55.014]         }
[13:13:55.014]         else {
[13:13:55.014]             ...future.result["stdout"] <- base::list(NULL)
[13:13:55.014]         }
[13:13:55.014]         base::close(...future.stdout)
[13:13:55.014]         ...future.stdout <- NULL
[13:13:55.014]     }
[13:13:55.014]     ...future.result$conditions <- ...future.conditions
[13:13:55.014]     ...future.result$finished <- base::Sys.time()
[13:13:55.014]     ...future.result
[13:13:55.014] }
[13:13:55.020] Exporting 5 global objects (3.41 KiB) to cluster node #1 ...
[13:13:55.020] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ...
[13:13:55.020] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ... DONE
[13:13:55.021] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:55.021] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:55.021] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ...
[13:13:55.022] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ... DONE
[13:13:55.022] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:55.022] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:55.023] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:55.023] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:55.023] Exporting 5 global objects (3.41 KiB) to cluster node #1 ... DONE
[13:13:55.024] MultisessionFuture started
[13:13:55.024] - Launch lazy future ... done
[13:13:55.024] run() for 'MultisessionFuture' ... done
[13:13:55.024] Created future:
[13:13:55.040] receiveMessageFromWorker() for ClusterFuture ...
[13:13:55.040] - Validating connection of MultisessionFuture
[13:13:55.040] - received message: FutureResult
[13:13:55.040] - Received FutureResult
[13:13:55.041] - Erased future from FutureRegistry
[13:13:55.041] result() for ClusterFuture ...
[13:13:55.041] - result already collected: FutureResult
[13:13:55.041] result() for ClusterFuture ... done
[13:13:55.041] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:55.025] MultisessionFuture:
[13:13:55.025] Label: 'future_mapply-2'
[13:13:55.025] Expression:
[13:13:55.025] {
[13:13:55.025]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:55.025]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:55.025]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:55.025]         on.exit(options(oopts), add = TRUE)
[13:13:55.025]     }
[13:13:55.025]     {
[13:13:55.025]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:55.025]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:55.025]         do.call(mapply, args = args)
[13:13:55.025]     }
[13:13:55.025] }
[13:13:55.025] Lazy evaluation: FALSE
[13:13:55.025] Asynchronous evaluation: TRUE
[13:13:55.025] Local evaluation: TRUE
[13:13:55.025] Environment: R_GlobalEnv
[13:13:55.025] Capture standard output: TRUE
[13:13:55.025] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:55.025] Globals: 5 objects totaling 3.41 KiB (function '...future.FUN' of 3.24 KiB, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 168 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:55.025] Packages: <none>
[13:13:55.025] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:55.025] Resolved: TRUE
[13:13:55.025] Value: <not collected>
[13:13:55.025] Conditions captured: <none>
[13:13:55.025] Early signaling: FALSE
[13:13:55.025] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:55.025] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:55.042] Chunk #2 of 5 ... DONE
[13:13:55.042] Chunk #3 of 5 ...
[13:13:55.042]  - Finding globals in '...' for chunk #3 ...
[13:13:55.042] getGlobalsAndPackages() ...
[13:13:55.042] Searching for globals...
[13:13:55.043] 
[13:13:55.043] Searching for globals ... DONE
[13:13:55.043] - globals: [0] <none>
[13:13:55.043] getGlobalsAndPackages() ... DONE
[13:13:55.043]    + additional globals found: [n=0] 
[13:13:55.044]    + additional namespaces needed: [n=0] 
[13:13:55.044]  - Finding globals in '...' for chunk #3 ... DONE
[13:13:55.044]  - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes)
[13:13:55.044]  - seeds: <none>
[13:13:55.044]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.044] getGlobalsAndPackages() ...
[13:13:55.045] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.045] Resolving globals: FALSE
[13:13:55.045] The total size of the 5 globals is 3.41 KiB (3488 bytes)
[13:13:55.046] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 3.41 KiB.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (3.24 KiB of class 'function'), '...future.elements_ii' (168 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:55.046] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.046] 
[13:13:55.047] getGlobalsAndPackages() ... DONE
[13:13:55.047] run() for 'Future' ...
[13:13:55.047] - state: 'created'
[13:13:55.047] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:55.062] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:55.062] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:55.062]   - Field: 'node'
[13:13:55.062]   - Field: 'label'
[13:13:55.062]   - Field: 'local'
[13:13:55.063]   - Field: 'owner'
[13:13:55.063]   - Field: 'envir'
[13:13:55.063]   - Field: 'workers'
[13:13:55.063]   - Field: 'packages'
[13:13:55.063]   - Field: 'gc'
[13:13:55.063]   - Field: 'conditions'
[13:13:55.064]   - Field: 'persistent'
[13:13:55.064]   - Field: 'expr'
[13:13:55.064]   - Field: 'uuid'
[13:13:55.064]   - Field: 'seed'
[13:13:55.064]   - Field: 'version'
[13:13:55.064]   - Field: 'result'
[13:13:55.065]   - Field: 'asynchronous'
[13:13:55.065]   - Field: 'calls'
[13:13:55.065]   - Field: 'globals'
[13:13:55.065]   - Field: 'stdout'
[13:13:55.065]   - Field: 'earlySignal'
[13:13:55.066]   - Field: 'lazy'
[13:13:55.066]   - Field: 'state'
[13:13:55.066] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:55.066] - Launch lazy future ...
[13:13:55.066] Packages needed by the future expression (n = 0): <none>
[13:13:55.067] Packages needed by future strategies (n = 0): <none>
[13:13:55.067] {
[13:13:55.067]     {
[13:13:55.067]         {
[13:13:55.067]             ...future.startTime <- base::Sys.time()
[13:13:55.067]             {
[13:13:55.067]                 {
[13:13:55.067]                   {
[13:13:55.067]                     {
[13:13:55.067]                       base::local({
[13:13:55.067]                         has_future <- base::requireNamespace("future", 
[13:13:55.067]                           quietly = TRUE)
[13:13:55.067]                         if (has_future) {
[13:13:55.067]                           ns <- base::getNamespace("future")
[13:13:55.067]                           version <- ns[[".package"]][["version"]]
[13:13:55.067]                           if (is.null(version)) 
[13:13:55.067]                             version <- utils::packageVersion("future")
[13:13:55.067]                         }
[13:13:55.067]                         else {
[13:13:55.067]                           version <- NULL
[13:13:55.067]                         }
[13:13:55.067]                         if (!has_future || version < "1.8.0") {
[13:13:55.067]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:55.067]                             "", base::R.version$version.string), 
[13:13:55.067]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:55.067]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:55.067]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:55.067]                               "release", "version")], collapse = " "), 
[13:13:55.067]                             hostname = base::Sys.info()[["nodename"]])
[13:13:55.067]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:55.067]                             info)
[13:13:55.067]                           info <- base::paste(info, collapse = "; ")
[13:13:55.067]                           if (!has_future) {
[13:13:55.067]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:55.067]                               info)
[13:13:55.067]                           }
[13:13:55.067]                           else {
[13:13:55.067]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:55.067]                               info, version)
[13:13:55.067]                           }
[13:13:55.067]                           base::stop(msg)
[13:13:55.067]                         }
[13:13:55.067]                       })
[13:13:55.067]                     }
[13:13:55.067]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:55.067]                     base::options(mc.cores = 1L)
[13:13:55.067]                   }
[13:13:55.067]                   options(future.plan = NULL)
[13:13:55.067]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:55.067]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:55.067]                 }
[13:13:55.067]                 ...future.workdir <- getwd()
[13:13:55.067]             }
[13:13:55.067]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:55.067]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:55.067]         }
[13:13:55.067]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:55.067]             future.globals.maxSize = 2621440000, future.globals.method = NULL, 
[13:13:55.067]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:55.067]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:55.067]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:55.067]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:55.067]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:55.067]             base::names(...future.oldOptions))
[13:13:55.067]     }
[13:13:55.067]     if (FALSE) {
[13:13:55.067]     }
[13:13:55.067]     else {
[13:13:55.067]         if (TRUE) {
[13:13:55.067]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:55.067]                 open = "w")
[13:13:55.067]         }
[13:13:55.067]         else {
[13:13:55.067]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:55.067]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:55.067]         }
[13:13:55.067]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:55.067]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:55.067]             base::sink(type = "output", split = FALSE)
[13:13:55.067]             base::close(...future.stdout)
[13:13:55.067]         }, add = TRUE)
[13:13:55.067]     }
[13:13:55.067]     ...future.frame <- base::sys.nframe()
[13:13:55.067]     ...future.conditions <- base::list()
[13:13:55.067]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:55.067]     if (FALSE) {
[13:13:55.067]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:55.067]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:55.067]     }
[13:13:55.067]     ...future.result <- base::tryCatch({
[13:13:55.067]         base::withCallingHandlers({
[13:13:55.067]             ...future.value <- base::withVisible(base::local({
[13:13:55.067]                 ...future.makeSendCondition <- local({
[13:13:55.067]                   sendCondition <- NULL
[13:13:55.067]                   function(frame = 1L) {
[13:13:55.067]                     if (is.function(sendCondition)) 
[13:13:55.067]                       return(sendCondition)
[13:13:55.067]                     ns <- getNamespace("parallel")
[13:13:55.067]                     if (exists("sendData", mode = "function", 
[13:13:55.067]                       envir = ns)) {
[13:13:55.067]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:55.067]                         envir = ns)
[13:13:55.067]                       envir <- sys.frame(frame)
[13:13:55.067]                       master <- NULL
[13:13:55.067]                       while (!identical(envir, .GlobalEnv) && 
[13:13:55.067]                         !identical(envir, emptyenv())) {
[13:13:55.067]                         if (exists("master", mode = "list", envir = envir, 
[13:13:55.067]                           inherits = FALSE)) {
[13:13:55.067]                           master <- get("master", mode = "list", 
[13:13:55.067]                             envir = envir, inherits = FALSE)
[13:13:55.067]                           if (inherits(master, c("SOCKnode", 
[13:13:55.067]                             "SOCK0node"))) {
[13:13:55.067]                             sendCondition <<- function(cond) {
[13:13:55.067]                               data <- list(type = "VALUE", value = cond, 
[13:13:55.067]                                 success = TRUE)
[13:13:55.067]                               parallel_sendData(master, data)
[13:13:55.067]                             }
[13:13:55.067]                             return(sendCondition)
[13:13:55.067]                           }
[13:13:55.067]                         }
[13:13:55.067]                         frame <- frame + 1L
[13:13:55.067]                         envir <- sys.frame(frame)
[13:13:55.067]                       }
[13:13:55.067]                     }
[13:13:55.067]                     sendCondition <<- function(cond) NULL
[13:13:55.067]                   }
[13:13:55.067]                 })
[13:13:55.067]                 withCallingHandlers({
[13:13:55.067]                   {
[13:13:55.067]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:55.067]                     if (!identical(...future.globals.maxSize.org, 
[13:13:55.067]                       ...future.globals.maxSize)) {
[13:13:55.067]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:55.067]                       on.exit(options(oopts), add = TRUE)
[13:13:55.067]                     }
[13:13:55.067]                     {
[13:13:55.067]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:55.067]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:55.067]                         USE.NAMES = FALSE)
[13:13:55.067]                       do.call(mapply, args = args)
[13:13:55.067]                     }
[13:13:55.067]                   }
[13:13:55.067]                 }, immediateCondition = function(cond) {
[13:13:55.067]                   sendCondition <- ...future.makeSendCondition()
[13:13:55.067]                   sendCondition(cond)
[13:13:55.067]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.067]                   {
[13:13:55.067]                     inherits <- base::inherits
[13:13:55.067]                     invokeRestart <- base::invokeRestart
[13:13:55.067]                     is.null <- base::is.null
[13:13:55.067]                     muffled <- FALSE
[13:13:55.067]                     if (inherits(cond, "message")) {
[13:13:55.067]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:55.067]                       if (muffled) 
[13:13:55.067]                         invokeRestart("muffleMessage")
[13:13:55.067]                     }
[13:13:55.067]                     else if (inherits(cond, "warning")) {
[13:13:55.067]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:55.067]                       if (muffled) 
[13:13:55.067]                         invokeRestart("muffleWarning")
[13:13:55.067]                     }
[13:13:55.067]                     else if (inherits(cond, "condition")) {
[13:13:55.067]                       if (!is.null(pattern)) {
[13:13:55.067]                         computeRestarts <- base::computeRestarts
[13:13:55.067]                         grepl <- base::grepl
[13:13:55.067]                         restarts <- computeRestarts(cond)
[13:13:55.067]                         for (restart in restarts) {
[13:13:55.067]                           name <- restart$name
[13:13:55.067]                           if (is.null(name)) 
[13:13:55.067]                             next
[13:13:55.067]                           if (!grepl(pattern, name)) 
[13:13:55.067]                             next
[13:13:55.067]                           invokeRestart(restart)
[13:13:55.067]                           muffled <- TRUE
[13:13:55.067]                           break
[13:13:55.067]                         }
[13:13:55.067]                       }
[13:13:55.067]                     }
[13:13:55.067]                     invisible(muffled)
[13:13:55.067]                   }
[13:13:55.067]                   muffleCondition(cond)
[13:13:55.067]                 })
[13:13:55.067]             }))
[13:13:55.067]             future::FutureResult(value = ...future.value$value, 
[13:13:55.067]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:55.067]                   ...future.rng), globalenv = if (FALSE) 
[13:13:55.067]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:55.067]                     ...future.globalenv.names))
[13:13:55.067]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:55.067]         }, condition = base::local({
[13:13:55.067]             c <- base::c
[13:13:55.067]             inherits <- base::inherits
[13:13:55.067]             invokeRestart <- base::invokeRestart
[13:13:55.067]             length <- base::length
[13:13:55.067]             list <- base::list
[13:13:55.067]             seq.int <- base::seq.int
[13:13:55.067]             signalCondition <- base::signalCondition
[13:13:55.067]             sys.calls <- base::sys.calls
[13:13:55.067]             `[[` <- base::`[[`
[13:13:55.067]             `+` <- base::`+`
[13:13:55.067]             `<<-` <- base::`<<-`
[13:13:55.067]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:55.067]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:55.067]                   3L)]
[13:13:55.067]             }
[13:13:55.067]             function(cond) {
[13:13:55.067]                 is_error <- inherits(cond, "error")
[13:13:55.067]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:55.067]                   NULL)
[13:13:55.067]                 if (is_error) {
[13:13:55.067]                   sessionInformation <- function() {
[13:13:55.067]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:55.067]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:55.067]                       search = base::search(), system = base::Sys.info())
[13:13:55.067]                   }
[13:13:55.067]                   ...future.conditions[[length(...future.conditions) + 
[13:13:55.067]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:55.067]                     cond$call), session = sessionInformation(), 
[13:13:55.067]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:55.067]                   signalCondition(cond)
[13:13:55.067]                 }
[13:13:55.067]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:55.067]                 "immediateCondition"))) {
[13:13:55.067]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:55.067]                   ...future.conditions[[length(...future.conditions) + 
[13:13:55.067]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:55.067]                   if (TRUE && !signal) {
[13:13:55.067]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.067]                     {
[13:13:55.067]                       inherits <- base::inherits
[13:13:55.067]                       invokeRestart <- base::invokeRestart
[13:13:55.067]                       is.null <- base::is.null
[13:13:55.067]                       muffled <- FALSE
[13:13:55.067]                       if (inherits(cond, "message")) {
[13:13:55.067]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:55.067]                         if (muffled) 
[13:13:55.067]                           invokeRestart("muffleMessage")
[13:13:55.067]                       }
[13:13:55.067]                       else if (inherits(cond, "warning")) {
[13:13:55.067]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:55.067]                         if (muffled) 
[13:13:55.067]                           invokeRestart("muffleWarning")
[13:13:55.067]                       }
[13:13:55.067]                       else if (inherits(cond, "condition")) {
[13:13:55.067]                         if (!is.null(pattern)) {
[13:13:55.067]                           computeRestarts <- base::computeRestarts
[13:13:55.067]                           grepl <- base::grepl
[13:13:55.067]                           restarts <- computeRestarts(cond)
[13:13:55.067]                           for (restart in restarts) {
[13:13:55.067]                             name <- restart$name
[13:13:55.067]                             if (is.null(name)) 
[13:13:55.067]                               next
[13:13:55.067]                             if (!grepl(pattern, name)) 
[13:13:55.067]                               next
[13:13:55.067]                             invokeRestart(restart)
[13:13:55.067]                             muffled <- TRUE
[13:13:55.067]                             break
[13:13:55.067]                           }
[13:13:55.067]                         }
[13:13:55.067]                       }
[13:13:55.067]                       invisible(muffled)
[13:13:55.067]                     }
[13:13:55.067]                     muffleCondition(cond, pattern = "^muffle")
[13:13:55.067]                   }
[13:13:55.067]                 }
[13:13:55.067]                 else {
[13:13:55.067]                   if (TRUE) {
[13:13:55.067]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.067]                     {
[13:13:55.067]                       inherits <- base::inherits
[13:13:55.067]                       invokeRestart <- base::invokeRestart
[13:13:55.067]                       is.null <- base::is.null
[13:13:55.067]                       muffled <- FALSE
[13:13:55.067]                       if (inherits(cond, "message")) {
[13:13:55.067]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:55.067]                         if (muffled) 
[13:13:55.067]                           invokeRestart("muffleMessage")
[13:13:55.067]                       }
[13:13:55.067]                       else if (inherits(cond, "warning")) {
[13:13:55.067]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:55.067]                         if (muffled) 
[13:13:55.067]                           invokeRestart("muffleWarning")
[13:13:55.067]                       }
[13:13:55.067]                       else if (inherits(cond, "condition")) {
[13:13:55.067]                         if (!is.null(pattern)) {
[13:13:55.067]                           computeRestarts <- base::computeRestarts
[13:13:55.067]                           grepl <- base::grepl
[13:13:55.067]                           restarts <- computeRestarts(cond)
[13:13:55.067]                           for (restart in restarts) {
[13:13:55.067]                             name <- restart$name
[13:13:55.067]                             if (is.null(name)) 
[13:13:55.067]                               next
[13:13:55.067]                             if (!grepl(pattern, name)) 
[13:13:55.067]                               next
[13:13:55.067]                             invokeRestart(restart)
[13:13:55.067]                             muffled <- TRUE
[13:13:55.067]                             break
[13:13:55.067]                           }
[13:13:55.067]                         }
[13:13:55.067]                       }
[13:13:55.067]                       invisible(muffled)
[13:13:55.067]                     }
[13:13:55.067]                     muffleCondition(cond, pattern = "^muffle")
[13:13:55.067]                   }
[13:13:55.067]                 }
[13:13:55.067]             }
[13:13:55.067]         }))
[13:13:55.067]     }, error = function(ex) {
[13:13:55.067]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:55.067]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:55.067]                 ...future.rng), started = ...future.startTime, 
[13:13:55.067]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:55.067]             version = "1.8"), class = "FutureResult")
[13:13:55.067]     }, finally = {
[13:13:55.067]         if (!identical(...future.workdir, getwd())) 
[13:13:55.067]             setwd(...future.workdir)
[13:13:55.067]         {
[13:13:55.067]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:55.067]                 ...future.oldOptions$nwarnings <- NULL
[13:13:55.067]             }
[13:13:55.067]             base::options(...future.oldOptions)
[13:13:55.067]             if (.Platform$OS.type == "windows") {
[13:13:55.067]                 old_names <- names(...future.oldEnvVars)
[13:13:55.067]                 envs <- base::Sys.getenv()
[13:13:55.067]                 names <- names(envs)
[13:13:55.067]                 common <- intersect(names, old_names)
[13:13:55.067]                 added <- setdiff(names, old_names)
[13:13:55.067]                 removed <- setdiff(old_names, names)
[13:13:55.067]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:55.067]                   envs[common]]
[13:13:55.067]                 NAMES <- toupper(changed)
[13:13:55.067]                 args <- list()
[13:13:55.067]                 for (kk in seq_along(NAMES)) {
[13:13:55.067]                   name <- changed[[kk]]
[13:13:55.067]                   NAME <- NAMES[[kk]]
[13:13:55.067]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.067]                     next
[13:13:55.067]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:55.067]                 }
[13:13:55.067]                 NAMES <- toupper(added)
[13:13:55.067]                 for (kk in seq_along(NAMES)) {
[13:13:55.067]                   name <- added[[kk]]
[13:13:55.067]                   NAME <- NAMES[[kk]]
[13:13:55.067]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.067]                     next
[13:13:55.067]                   args[[name]] <- ""
[13:13:55.067]                 }
[13:13:55.067]                 NAMES <- toupper(removed)
[13:13:55.067]                 for (kk in seq_along(NAMES)) {
[13:13:55.067]                   name <- removed[[kk]]
[13:13:55.067]                   NAME <- NAMES[[kk]]
[13:13:55.067]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.067]                     next
[13:13:55.067]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:55.067]                 }
[13:13:55.067]                 if (length(args) > 0) 
[13:13:55.067]                   base::do.call(base::Sys.setenv, args = args)
[13:13:55.067]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:55.067]             }
[13:13:55.067]             else {
[13:13:55.067]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:55.067]             }
[13:13:55.067]             {
[13:13:55.067]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:55.067]                   0L) {
[13:13:55.067]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:55.067]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:55.067]                   base::options(opts)
[13:13:55.067]                 }
[13:13:55.067]                 {
[13:13:55.067]                   {
[13:13:55.067]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:55.067]                     NULL
[13:13:55.067]                   }
[13:13:55.067]                   options(future.plan = NULL)
[13:13:55.067]                   if (is.na(NA_character_)) 
[13:13:55.067]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:55.067]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:55.067]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:55.067]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:55.067]                     envir = parent.frame()) 
[13:13:55.067]                   {
[13:13:55.067]                     if (is.function(workers)) 
[13:13:55.067]                       workers <- workers()
[13:13:55.067]                     workers <- structure(as.integer(workers), 
[13:13:55.067]                       class = class(workers))
[13:13:55.067]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:55.067]                       workers >= 1)
[13:13:55.067]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:55.067]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:55.067]                     }
[13:13:55.067]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:55.067]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:55.067]                       envir = envir)
[13:13:55.067]                     if (!future$lazy) 
[13:13:55.067]                       future <- run(future)
[13:13:55.067]                     invisible(future)
[13:13:55.067]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:55.067]                 }
[13:13:55.067]             }
[13:13:55.067]         }
[13:13:55.067]     })
[13:13:55.067]     if (TRUE) {
[13:13:55.067]         base::sink(type = "output", split = FALSE)
[13:13:55.067]         if (TRUE) {
[13:13:55.067]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:55.067]         }
[13:13:55.067]         else {
[13:13:55.067]             ...future.result["stdout"] <- base::list(NULL)
[13:13:55.067]         }
[13:13:55.067]         base::close(...future.stdout)
[13:13:55.067]         ...future.stdout <- NULL
[13:13:55.067]     }
[13:13:55.067]     ...future.result$conditions <- ...future.conditions
[13:13:55.067]     ...future.result$finished <- base::Sys.time()
[13:13:55.067]     ...future.result
[13:13:55.067] }
[13:13:55.073] Exporting 5 global objects (3.41 KiB) to cluster node #1 ...
[13:13:55.073] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ...
[13:13:55.073] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ... DONE
[13:13:55.074] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:55.074] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:55.074] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ...
[13:13:55.075] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ... DONE
[13:13:55.075] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:55.075] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:55.075] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:55.076] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:55.076] Exporting 5 global objects (3.41 KiB) to cluster node #1 ... DONE
[13:13:55.077] MultisessionFuture started
[13:13:55.077] - Launch lazy future ... done
[13:13:55.077] run() for 'MultisessionFuture' ... done
[13:13:55.077] Created future:
[13:13:55.092] receiveMessageFromWorker() for ClusterFuture ...
[13:13:55.092] - Validating connection of MultisessionFuture
[13:13:55.092] - received message: FutureResult
[13:13:55.093] - Received FutureResult
[13:13:55.093] - Erased future from FutureRegistry
[13:13:55.093] result() for ClusterFuture ...
[13:13:55.093] - result already collected: FutureResult
[13:13:55.093] result() for ClusterFuture ... done
[13:13:55.093] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:55.078] MultisessionFuture:
[13:13:55.078] Label: 'future_mapply-3'
[13:13:55.078] Expression:
[13:13:55.078] {
[13:13:55.078]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:55.078]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:55.078]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:55.078]         on.exit(options(oopts), add = TRUE)
[13:13:55.078]     }
[13:13:55.078]     {
[13:13:55.078]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:55.078]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:55.078]         do.call(mapply, args = args)
[13:13:55.078]     }
[13:13:55.078] }
[13:13:55.078] Lazy evaluation: FALSE
[13:13:55.078] Asynchronous evaluation: TRUE
[13:13:55.078] Local evaluation: TRUE
[13:13:55.078] Environment: R_GlobalEnv
[13:13:55.078] Capture standard output: TRUE
[13:13:55.078] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:55.078] Globals: 5 objects totaling 3.41 KiB (function '...future.FUN' of 3.24 KiB, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 168 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:55.078] Packages: <none>
[13:13:55.078] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:55.078] Resolved: TRUE
[13:13:55.078] Value: <not collected>
[13:13:55.078] Conditions captured: <none>
[13:13:55.078] Early signaling: FALSE
[13:13:55.078] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:55.078] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:55.094] Chunk #3 of 5 ... DONE
[13:13:55.094] Chunk #4 of 5 ...
[13:13:55.094]  - Finding globals in '...' for chunk #4 ...
[13:13:55.094] getGlobalsAndPackages() ...
[13:13:55.095] Searching for globals...
[13:13:55.095] 
[13:13:55.095] Searching for globals ... DONE
[13:13:55.095] - globals: [0] <none>
[13:13:55.095] getGlobalsAndPackages() ... DONE
[13:13:55.096]    + additional globals found: [n=0] 
[13:13:55.096]    + additional namespaces needed: [n=0] 
[13:13:55.096]  - Finding globals in '...' for chunk #4 ... DONE
[13:13:55.096]  - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes)
[13:13:55.096]  - seeds: <none>
[13:13:55.096]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.097] getGlobalsAndPackages() ...
[13:13:55.097] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.097] Resolving globals: FALSE
[13:13:55.098] The total size of the 5 globals is 3.41 KiB (3488 bytes)
[13:13:55.098] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 3.41 KiB.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (3.24 KiB of class 'function'), '...future.elements_ii' (168 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:55.099] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.099] 
[13:13:55.099] getGlobalsAndPackages() ... DONE
[13:13:55.099] run() for 'Future' ...
[13:13:55.099] - state: 'created'
[13:13:55.100] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:55.114] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:55.114] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:55.114]   - Field: 'node'
[13:13:55.114]   - Field: 'label'
[13:13:55.115]   - Field: 'local'
[13:13:55.115]   - Field: 'owner'
[13:13:55.115]   - Field: 'envir'
[13:13:55.115]   - Field: 'workers'
[13:13:55.115]   - Field: 'packages'
[13:13:55.115]   - Field: 'gc'
[13:13:55.116]   - Field: 'conditions'
[13:13:55.116]   - Field: 'persistent'
[13:13:55.116]   - Field: 'expr'
[13:13:55.116]   - Field: 'uuid'
[13:13:55.116]   - Field: 'seed'
[13:13:55.117]   - Field: 'version'
[13:13:55.117]   - Field: 'result'
[13:13:55.117]   - Field: 'asynchronous'
[13:13:55.117]   - Field: 'calls'
[13:13:55.117]   - Field: 'globals'
[13:13:55.117]   - Field: 'stdout'
[13:13:55.118]   - Field: 'earlySignal'
[13:13:55.118]   - Field: 'lazy'
[13:13:55.118]   - Field: 'state'
[13:13:55.118] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:55.118] - Launch lazy future ...
[13:13:55.119] Packages needed by the future expression (n = 0): <none>
[13:13:55.119] Packages needed by future strategies (n = 0): <none>
[13:13:55.119] {
[13:13:55.119]     {
[13:13:55.119]         {
[13:13:55.119]             ...future.startTime <- base::Sys.time()
[13:13:55.119]             {
[13:13:55.119]                 {
[13:13:55.119]                   {
[13:13:55.119]                     {
[13:13:55.119]                       base::local({
[13:13:55.119]                         has_future <- base::requireNamespace("future", 
[13:13:55.119]                           quietly = TRUE)
[13:13:55.119]                         if (has_future) {
[13:13:55.119]                           ns <- base::getNamespace("future")
[13:13:55.119]                           version <- ns[[".package"]][["version"]]
[13:13:55.119]                           if (is.null(version)) 
[13:13:55.119]                             version <- utils::packageVersion("future")
[13:13:55.119]                         }
[13:13:55.119]                         else {
[13:13:55.119]                           version <- NULL
[13:13:55.119]                         }
[13:13:55.119]                         if (!has_future || version < "1.8.0") {
[13:13:55.119]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:55.119]                             "", base::R.version$version.string), 
[13:13:55.119]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:55.119]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:55.119]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:55.119]                               "release", "version")], collapse = " "), 
[13:13:55.119]                             hostname = base::Sys.info()[["nodename"]])
[13:13:55.119]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:55.119]                             info)
[13:13:55.119]                           info <- base::paste(info, collapse = "; ")
[13:13:55.119]                           if (!has_future) {
[13:13:55.119]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:55.119]                               info)
[13:13:55.119]                           }
[13:13:55.119]                           else {
[13:13:55.119]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:55.119]                               info, version)
[13:13:55.119]                           }
[13:13:55.119]                           base::stop(msg)
[13:13:55.119]                         }
[13:13:55.119]                       })
[13:13:55.119]                     }
[13:13:55.119]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:55.119]                     base::options(mc.cores = 1L)
[13:13:55.119]                   }
[13:13:55.119]                   options(future.plan = NULL)
[13:13:55.119]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:55.119]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:55.119]                 }
[13:13:55.119]                 ...future.workdir <- getwd()
[13:13:55.119]             }
[13:13:55.119]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:55.119]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:55.119]         }
[13:13:55.119]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:55.119]             future.globals.maxSize = 2621440000, future.globals.method = NULL, 
[13:13:55.119]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:55.119]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:55.119]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:55.119]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:55.119]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:55.119]             base::names(...future.oldOptions))
[13:13:55.119]     }
[13:13:55.119]     if (FALSE) {
[13:13:55.119]     }
[13:13:55.119]     else {
[13:13:55.119]         if (TRUE) {
[13:13:55.119]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:55.119]                 open = "w")
[13:13:55.119]         }
[13:13:55.119]         else {
[13:13:55.119]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:55.119]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:55.119]         }
[13:13:55.119]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:55.119]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:55.119]             base::sink(type = "output", split = FALSE)
[13:13:55.119]             base::close(...future.stdout)
[13:13:55.119]         }, add = TRUE)
[13:13:55.119]     }
[13:13:55.119]     ...future.frame <- base::sys.nframe()
[13:13:55.119]     ...future.conditions <- base::list()
[13:13:55.119]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:55.119]     if (FALSE) {
[13:13:55.119]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:55.119]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:55.119]     }
[13:13:55.119]     ...future.result <- base::tryCatch({
[13:13:55.119]         base::withCallingHandlers({
[13:13:55.119]             ...future.value <- base::withVisible(base::local({
[13:13:55.119]                 ...future.makeSendCondition <- local({
[13:13:55.119]                   sendCondition <- NULL
[13:13:55.119]                   function(frame = 1L) {
[13:13:55.119]                     if (is.function(sendCondition)) 
[13:13:55.119]                       return(sendCondition)
[13:13:55.119]                     ns <- getNamespace("parallel")
[13:13:55.119]                     if (exists("sendData", mode = "function", 
[13:13:55.119]                       envir = ns)) {
[13:13:55.119]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:55.119]                         envir = ns)
[13:13:55.119]                       envir <- sys.frame(frame)
[13:13:55.119]                       master <- NULL
[13:13:55.119]                       while (!identical(envir, .GlobalEnv) && 
[13:13:55.119]                         !identical(envir, emptyenv())) {
[13:13:55.119]                         if (exists("master", mode = "list", envir = envir, 
[13:13:55.119]                           inherits = FALSE)) {
[13:13:55.119]                           master <- get("master", mode = "list", 
[13:13:55.119]                             envir = envir, inherits = FALSE)
[13:13:55.119]                           if (inherits(master, c("SOCKnode", 
[13:13:55.119]                             "SOCK0node"))) {
[13:13:55.119]                             sendCondition <<- function(cond) {
[13:13:55.119]                               data <- list(type = "VALUE", value = cond, 
[13:13:55.119]                                 success = TRUE)
[13:13:55.119]                               parallel_sendData(master, data)
[13:13:55.119]                             }
[13:13:55.119]                             return(sendCondition)
[13:13:55.119]                           }
[13:13:55.119]                         }
[13:13:55.119]                         frame <- frame + 1L
[13:13:55.119]                         envir <- sys.frame(frame)
[13:13:55.119]                       }
[13:13:55.119]                     }
[13:13:55.119]                     sendCondition <<- function(cond) NULL
[13:13:55.119]                   }
[13:13:55.119]                 })
[13:13:55.119]                 withCallingHandlers({
[13:13:55.119]                   {
[13:13:55.119]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:55.119]                     if (!identical(...future.globals.maxSize.org, 
[13:13:55.119]                       ...future.globals.maxSize)) {
[13:13:55.119]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:55.119]                       on.exit(options(oopts), add = TRUE)
[13:13:55.119]                     }
[13:13:55.119]                     {
[13:13:55.119]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:55.119]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:55.119]                         USE.NAMES = FALSE)
[13:13:55.119]                       do.call(mapply, args = args)
[13:13:55.119]                     }
[13:13:55.119]                   }
[13:13:55.119]                 }, immediateCondition = function(cond) {
[13:13:55.119]                   sendCondition <- ...future.makeSendCondition()
[13:13:55.119]                   sendCondition(cond)
[13:13:55.119]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.119]                   {
[13:13:55.119]                     inherits <- base::inherits
[13:13:55.119]                     invokeRestart <- base::invokeRestart
[13:13:55.119]                     is.null <- base::is.null
[13:13:55.119]                     muffled <- FALSE
[13:13:55.119]                     if (inherits(cond, "message")) {
[13:13:55.119]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:55.119]                       if (muffled) 
[13:13:55.119]                         invokeRestart("muffleMessage")
[13:13:55.119]                     }
[13:13:55.119]                     else if (inherits(cond, "warning")) {
[13:13:55.119]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:55.119]                       if (muffled) 
[13:13:55.119]                         invokeRestart("muffleWarning")
[13:13:55.119]                     }
[13:13:55.119]                     else if (inherits(cond, "condition")) {
[13:13:55.119]                       if (!is.null(pattern)) {
[13:13:55.119]                         computeRestarts <- base::computeRestarts
[13:13:55.119]                         grepl <- base::grepl
[13:13:55.119]                         restarts <- computeRestarts(cond)
[13:13:55.119]                         for (restart in restarts) {
[13:13:55.119]                           name <- restart$name
[13:13:55.119]                           if (is.null(name)) 
[13:13:55.119]                             next
[13:13:55.119]                           if (!grepl(pattern, name)) 
[13:13:55.119]                             next
[13:13:55.119]                           invokeRestart(restart)
[13:13:55.119]                           muffled <- TRUE
[13:13:55.119]                           break
[13:13:55.119]                         }
[13:13:55.119]                       }
[13:13:55.119]                     }
[13:13:55.119]                     invisible(muffled)
[13:13:55.119]                   }
[13:13:55.119]                   muffleCondition(cond)
[13:13:55.119]                 })
[13:13:55.119]             }))
[13:13:55.119]             future::FutureResult(value = ...future.value$value, 
[13:13:55.119]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:55.119]                   ...future.rng), globalenv = if (FALSE) 
[13:13:55.119]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:55.119]                     ...future.globalenv.names))
[13:13:55.119]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:55.119]         }, condition = base::local({
[13:13:55.119]             c <- base::c
[13:13:55.119]             inherits <- base::inherits
[13:13:55.119]             invokeRestart <- base::invokeRestart
[13:13:55.119]             length <- base::length
[13:13:55.119]             list <- base::list
[13:13:55.119]             seq.int <- base::seq.int
[13:13:55.119]             signalCondition <- base::signalCondition
[13:13:55.119]             sys.calls <- base::sys.calls
[13:13:55.119]             `[[` <- base::`[[`
[13:13:55.119]             `+` <- base::`+`
[13:13:55.119]             `<<-` <- base::`<<-`
[13:13:55.119]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:55.119]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:55.119]                   3L)]
[13:13:55.119]             }
[13:13:55.119]             function(cond) {
[13:13:55.119]                 is_error <- inherits(cond, "error")
[13:13:55.119]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:55.119]                   NULL)
[13:13:55.119]                 if (is_error) {
[13:13:55.119]                   sessionInformation <- function() {
[13:13:55.119]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:55.119]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:55.119]                       search = base::search(), system = base::Sys.info())
[13:13:55.119]                   }
[13:13:55.119]                   ...future.conditions[[length(...future.conditions) + 
[13:13:55.119]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:55.119]                     cond$call), session = sessionInformation(), 
[13:13:55.119]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:55.119]                   signalCondition(cond)
[13:13:55.119]                 }
[13:13:55.119]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:55.119]                 "immediateCondition"))) {
[13:13:55.119]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:55.119]                   ...future.conditions[[length(...future.conditions) + 
[13:13:55.119]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:55.119]                   if (TRUE && !signal) {
[13:13:55.119]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.119]                     {
[13:13:55.119]                       inherits <- base::inherits
[13:13:55.119]                       invokeRestart <- base::invokeRestart
[13:13:55.119]                       is.null <- base::is.null
[13:13:55.119]                       muffled <- FALSE
[13:13:55.119]                       if (inherits(cond, "message")) {
[13:13:55.119]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:55.119]                         if (muffled) 
[13:13:55.119]                           invokeRestart("muffleMessage")
[13:13:55.119]                       }
[13:13:55.119]                       else if (inherits(cond, "warning")) {
[13:13:55.119]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:55.119]                         if (muffled) 
[13:13:55.119]                           invokeRestart("muffleWarning")
[13:13:55.119]                       }
[13:13:55.119]                       else if (inherits(cond, "condition")) {
[13:13:55.119]                         if (!is.null(pattern)) {
[13:13:55.119]                           computeRestarts <- base::computeRestarts
[13:13:55.119]                           grepl <- base::grepl
[13:13:55.119]                           restarts <- computeRestarts(cond)
[13:13:55.119]                           for (restart in restarts) {
[13:13:55.119]                             name <- restart$name
[13:13:55.119]                             if (is.null(name)) 
[13:13:55.119]                               next
[13:13:55.119]                             if (!grepl(pattern, name)) 
[13:13:55.119]                               next
[13:13:55.119]                             invokeRestart(restart)
[13:13:55.119]                             muffled <- TRUE
[13:13:55.119]                             break
[13:13:55.119]                           }
[13:13:55.119]                         }
[13:13:55.119]                       }
[13:13:55.119]                       invisible(muffled)
[13:13:55.119]                     }
[13:13:55.119]                     muffleCondition(cond, pattern = "^muffle")
[13:13:55.119]                   }
[13:13:55.119]                 }
[13:13:55.119]                 else {
[13:13:55.119]                   if (TRUE) {
[13:13:55.119]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.119]                     {
[13:13:55.119]                       inherits <- base::inherits
[13:13:55.119]                       invokeRestart <- base::invokeRestart
[13:13:55.119]                       is.null <- base::is.null
[13:13:55.119]                       muffled <- FALSE
[13:13:55.119]                       if (inherits(cond, "message")) {
[13:13:55.119]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:55.119]                         if (muffled) 
[13:13:55.119]                           invokeRestart("muffleMessage")
[13:13:55.119]                       }
[13:13:55.119]                       else if (inherits(cond, "warning")) {
[13:13:55.119]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:55.119]                         if (muffled) 
[13:13:55.119]                           invokeRestart("muffleWarning")
[13:13:55.119]                       }
[13:13:55.119]                       else if (inherits(cond, "condition")) {
[13:13:55.119]                         if (!is.null(pattern)) {
[13:13:55.119]                           computeRestarts <- base::computeRestarts
[13:13:55.119]                           grepl <- base::grepl
[13:13:55.119]                           restarts <- computeRestarts(cond)
[13:13:55.119]                           for (restart in restarts) {
[13:13:55.119]                             name <- restart$name
[13:13:55.119]                             if (is.null(name)) 
[13:13:55.119]                               next
[13:13:55.119]                             if (!grepl(pattern, name)) 
[13:13:55.119]                               next
[13:13:55.119]                             invokeRestart(restart)
[13:13:55.119]                             muffled <- TRUE
[13:13:55.119]                             break
[13:13:55.119]                           }
[13:13:55.119]                         }
[13:13:55.119]                       }
[13:13:55.119]                       invisible(muffled)
[13:13:55.119]                     }
[13:13:55.119]                     muffleCondition(cond, pattern = "^muffle")
[13:13:55.119]                   }
[13:13:55.119]                 }
[13:13:55.119]             }
[13:13:55.119]         }))
[13:13:55.119]     }, error = function(ex) {
[13:13:55.119]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:55.119]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:55.119]                 ...future.rng), started = ...future.startTime, 
[13:13:55.119]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:55.119]             version = "1.8"), class = "FutureResult")
[13:13:55.119]     }, finally = {
[13:13:55.119]         if (!identical(...future.workdir, getwd())) 
[13:13:55.119]             setwd(...future.workdir)
[13:13:55.119]         {
[13:13:55.119]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:55.119]                 ...future.oldOptions$nwarnings <- NULL
[13:13:55.119]             }
[13:13:55.119]             base::options(...future.oldOptions)
[13:13:55.119]             if (.Platform$OS.type == "windows") {
[13:13:55.119]                 old_names <- names(...future.oldEnvVars)
[13:13:55.119]                 envs <- base::Sys.getenv()
[13:13:55.119]                 names <- names(envs)
[13:13:55.119]                 common <- intersect(names, old_names)
[13:13:55.119]                 added <- setdiff(names, old_names)
[13:13:55.119]                 removed <- setdiff(old_names, names)
[13:13:55.119]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:55.119]                   envs[common]]
[13:13:55.119]                 NAMES <- toupper(changed)
[13:13:55.119]                 args <- list()
[13:13:55.119]                 for (kk in seq_along(NAMES)) {
[13:13:55.119]                   name <- changed[[kk]]
[13:13:55.119]                   NAME <- NAMES[[kk]]
[13:13:55.119]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.119]                     next
[13:13:55.119]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:55.119]                 }
[13:13:55.119]                 NAMES <- toupper(added)
[13:13:55.119]                 for (kk in seq_along(NAMES)) {
[13:13:55.119]                   name <- added[[kk]]
[13:13:55.119]                   NAME <- NAMES[[kk]]
[13:13:55.119]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.119]                     next
[13:13:55.119]                   args[[name]] <- ""
[13:13:55.119]                 }
[13:13:55.119]                 NAMES <- toupper(removed)
[13:13:55.119]                 for (kk in seq_along(NAMES)) {
[13:13:55.119]                   name <- removed[[kk]]
[13:13:55.119]                   NAME <- NAMES[[kk]]
[13:13:55.119]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.119]                     next
[13:13:55.119]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:55.119]                 }
[13:13:55.119]                 if (length(args) > 0) 
[13:13:55.119]                   base::do.call(base::Sys.setenv, args = args)
[13:13:55.119]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:55.119]             }
[13:13:55.119]             else {
[13:13:55.119]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:55.119]             }
[13:13:55.119]             {
[13:13:55.119]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:55.119]                   0L) {
[13:13:55.119]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:55.119]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:55.119]                   base::options(opts)
[13:13:55.119]                 }
[13:13:55.119]                 {
[13:13:55.119]                   {
[13:13:55.119]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:55.119]                     NULL
[13:13:55.119]                   }
[13:13:55.119]                   options(future.plan = NULL)
[13:13:55.119]                   if (is.na(NA_character_)) 
[13:13:55.119]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:55.119]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:55.119]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:55.119]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:55.119]                     envir = parent.frame()) 
[13:13:55.119]                   {
[13:13:55.119]                     if (is.function(workers)) 
[13:13:55.119]                       workers <- workers()
[13:13:55.119]                     workers <- structure(as.integer(workers), 
[13:13:55.119]                       class = class(workers))
[13:13:55.119]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:55.119]                       workers >= 1)
[13:13:55.119]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:55.119]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:55.119]                     }
[13:13:55.119]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:55.119]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:55.119]                       envir = envir)
[13:13:55.119]                     if (!future$lazy) 
[13:13:55.119]                       future <- run(future)
[13:13:55.119]                     invisible(future)
[13:13:55.119]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:55.119]                 }
[13:13:55.119]             }
[13:13:55.119]         }
[13:13:55.119]     })
[13:13:55.119]     if (TRUE) {
[13:13:55.119]         base::sink(type = "output", split = FALSE)
[13:13:55.119]         if (TRUE) {
[13:13:55.119]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:55.119]         }
[13:13:55.119]         else {
[13:13:55.119]             ...future.result["stdout"] <- base::list(NULL)
[13:13:55.119]         }
[13:13:55.119]         base::close(...future.stdout)
[13:13:55.119]         ...future.stdout <- NULL
[13:13:55.119]     }
[13:13:55.119]     ...future.result$conditions <- ...future.conditions
[13:13:55.119]     ...future.result$finished <- base::Sys.time()
[13:13:55.119]     ...future.result
[13:13:55.119] }
[13:13:55.127] Exporting 5 global objects (3.41 KiB) to cluster node #1 ...
[13:13:55.127] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ...
[13:13:55.128] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ... DONE
[13:13:55.128] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:55.128] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:55.128] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ...
[13:13:55.129] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ... DONE
[13:13:55.129] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:55.130] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:55.130] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:55.130] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:55.130] Exporting 5 global objects (3.41 KiB) to cluster node #1 ... DONE
[13:13:55.131] MultisessionFuture started
[13:13:55.131] - Launch lazy future ... done
[13:13:55.131] run() for 'MultisessionFuture' ... done
[13:13:55.132] Created future:
[13:13:55.147] receiveMessageFromWorker() for ClusterFuture ...
[13:13:55.147] - Validating connection of MultisessionFuture
[13:13:55.148] - received message: FutureResult
[13:13:55.148] - Received FutureResult
[13:13:55.148] - Erased future from FutureRegistry
[13:13:55.148] result() for ClusterFuture ...
[13:13:55.148] - result already collected: FutureResult
[13:13:55.148] result() for ClusterFuture ... done
[13:13:55.149] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:55.132] MultisessionFuture:
[13:13:55.132] Label: 'future_mapply-4'
[13:13:55.132] Expression:
[13:13:55.132] {
[13:13:55.132]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:55.132]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:55.132]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:55.132]         on.exit(options(oopts), add = TRUE)
[13:13:55.132]     }
[13:13:55.132]     {
[13:13:55.132]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:55.132]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:55.132]         do.call(mapply, args = args)
[13:13:55.132]     }
[13:13:55.132] }
[13:13:55.132] Lazy evaluation: FALSE
[13:13:55.132] Asynchronous evaluation: TRUE
[13:13:55.132] Local evaluation: TRUE
[13:13:55.132] Environment: R_GlobalEnv
[13:13:55.132] Capture standard output: TRUE
[13:13:55.132] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:55.132] Globals: 5 objects totaling 3.41 KiB (function '...future.FUN' of 3.24 KiB, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 168 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:55.132] Packages: <none>
[13:13:55.132] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:55.132] Resolved: TRUE
[13:13:55.132] Value: <not collected>
[13:13:55.132] Conditions captured: <none>
[13:13:55.132] Early signaling: FALSE
[13:13:55.132] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:55.132] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:55.149] Chunk #4 of 5 ... DONE
[13:13:55.149] Chunk #5 of 5 ...
[13:13:55.149]  - Finding globals in '...' for chunk #5 ...
[13:13:55.150] getGlobalsAndPackages() ...
[13:13:55.150] Searching for globals...
[13:13:55.150] 
[13:13:55.150] Searching for globals ... DONE
[13:13:55.150] - globals: [0] <none>
[13:13:55.151] getGlobalsAndPackages() ... DONE
[13:13:55.151]    + additional globals found: [n=0] 
[13:13:55.151]    + additional namespaces needed: [n=0] 
[13:13:55.151]  - Finding globals in '...' for chunk #5 ... DONE
[13:13:55.151]  - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes)
[13:13:55.151]  - seeds: <none>
[13:13:55.152]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.152] getGlobalsAndPackages() ...
[13:13:55.152] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.152] Resolving globals: FALSE
[13:13:55.153] The total size of the 5 globals is 3.41 KiB (3488 bytes)
[13:13:55.153] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 3.41 KiB.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (3.24 KiB of class 'function'), '...future.elements_ii' (168 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:55.153] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.154] 
[13:13:55.154] getGlobalsAndPackages() ... DONE
[13:13:55.154] run() for 'Future' ...
[13:13:55.154] - state: 'created'
[13:13:55.155] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:55.169] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:55.169] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:55.169]   - Field: 'node'
[13:13:55.169]   - Field: 'label'
[13:13:55.169]   - Field: 'local'
[13:13:55.169]   - Field: 'owner'
[13:13:55.170]   - Field: 'envir'
[13:13:55.170]   - Field: 'workers'
[13:13:55.170]   - Field: 'packages'
[13:13:55.170]   - Field: 'gc'
[13:13:55.170]   - Field: 'conditions'
[13:13:55.171]   - Field: 'persistent'
[13:13:55.171]   - Field: 'expr'
[13:13:55.171]   - Field: 'uuid'
[13:13:55.171]   - Field: 'seed'
[13:13:55.171]   - Field: 'version'
[13:13:55.171]   - Field: 'result'
[13:13:55.172]   - Field: 'asynchronous'
[13:13:55.172]   - Field: 'calls'
[13:13:55.172]   - Field: 'globals'
[13:13:55.172]   - Field: 'stdout'
[13:13:55.172]   - Field: 'earlySignal'
[13:13:55.173]   - Field: 'lazy'
[13:13:55.173]   - Field: 'state'
[13:13:55.173] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:55.173] - Launch lazy future ...
[13:13:55.173] Packages needed by the future expression (n = 0): <none>
[13:13:55.174] Packages needed by future strategies (n = 0): <none>
[13:13:55.174] {
[13:13:55.174]     {
[13:13:55.174]         {
[13:13:55.174]             ...future.startTime <- base::Sys.time()
[13:13:55.174]             {
[13:13:55.174]                 {
[13:13:55.174]                   {
[13:13:55.174]                     {
[13:13:55.174]                       base::local({
[13:13:55.174]                         has_future <- base::requireNamespace("future", 
[13:13:55.174]                           quietly = TRUE)
[13:13:55.174]                         if (has_future) {
[13:13:55.174]                           ns <- base::getNamespace("future")
[13:13:55.174]                           version <- ns[[".package"]][["version"]]
[13:13:55.174]                           if (is.null(version)) 
[13:13:55.174]                             version <- utils::packageVersion("future")
[13:13:55.174]                         }
[13:13:55.174]                         else {
[13:13:55.174]                           version <- NULL
[13:13:55.174]                         }
[13:13:55.174]                         if (!has_future || version < "1.8.0") {
[13:13:55.174]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:55.174]                             "", base::R.version$version.string), 
[13:13:55.174]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:55.174]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:55.174]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:55.174]                               "release", "version")], collapse = " "), 
[13:13:55.174]                             hostname = base::Sys.info()[["nodename"]])
[13:13:55.174]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:55.174]                             info)
[13:13:55.174]                           info <- base::paste(info, collapse = "; ")
[13:13:55.174]                           if (!has_future) {
[13:13:55.174]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:55.174]                               info)
[13:13:55.174]                           }
[13:13:55.174]                           else {
[13:13:55.174]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:55.174]                               info, version)
[13:13:55.174]                           }
[13:13:55.174]                           base::stop(msg)
[13:13:55.174]                         }
[13:13:55.174]                       })
[13:13:55.174]                     }
[13:13:55.174]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:55.174]                     base::options(mc.cores = 1L)
[13:13:55.174]                   }
[13:13:55.174]                   options(future.plan = NULL)
[13:13:55.174]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:55.174]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:55.174]                 }
[13:13:55.174]                 ...future.workdir <- getwd()
[13:13:55.174]             }
[13:13:55.174]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:55.174]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:55.174]         }
[13:13:55.174]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:55.174]             future.globals.maxSize = 2621440000, future.globals.method = NULL, 
[13:13:55.174]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:55.174]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:55.174]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:55.174]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:55.174]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:55.174]             base::names(...future.oldOptions))
[13:13:55.174]     }
[13:13:55.174]     if (FALSE) {
[13:13:55.174]     }
[13:13:55.174]     else {
[13:13:55.174]         if (TRUE) {
[13:13:55.174]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:55.174]                 open = "w")
[13:13:55.174]         }
[13:13:55.174]         else {
[13:13:55.174]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:55.174]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:55.174]         }
[13:13:55.174]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:55.174]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:55.174]             base::sink(type = "output", split = FALSE)
[13:13:55.174]             base::close(...future.stdout)
[13:13:55.174]         }, add = TRUE)
[13:13:55.174]     }
[13:13:55.174]     ...future.frame <- base::sys.nframe()
[13:13:55.174]     ...future.conditions <- base::list()
[13:13:55.174]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:55.174]     if (FALSE) {
[13:13:55.174]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:55.174]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:55.174]     }
[13:13:55.174]     ...future.result <- base::tryCatch({
[13:13:55.174]         base::withCallingHandlers({
[13:13:55.174]             ...future.value <- base::withVisible(base::local({
[13:13:55.174]                 ...future.makeSendCondition <- local({
[13:13:55.174]                   sendCondition <- NULL
[13:13:55.174]                   function(frame = 1L) {
[13:13:55.174]                     if (is.function(sendCondition)) 
[13:13:55.174]                       return(sendCondition)
[13:13:55.174]                     ns <- getNamespace("parallel")
[13:13:55.174]                     if (exists("sendData", mode = "function", 
[13:13:55.174]                       envir = ns)) {
[13:13:55.174]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:55.174]                         envir = ns)
[13:13:55.174]                       envir <- sys.frame(frame)
[13:13:55.174]                       master <- NULL
[13:13:55.174]                       while (!identical(envir, .GlobalEnv) && 
[13:13:55.174]                         !identical(envir, emptyenv())) {
[13:13:55.174]                         if (exists("master", mode = "list", envir = envir, 
[13:13:55.174]                           inherits = FALSE)) {
[13:13:55.174]                           master <- get("master", mode = "list", 
[13:13:55.174]                             envir = envir, inherits = FALSE)
[13:13:55.174]                           if (inherits(master, c("SOCKnode", 
[13:13:55.174]                             "SOCK0node"))) {
[13:13:55.174]                             sendCondition <<- function(cond) {
[13:13:55.174]                               data <- list(type = "VALUE", value = cond, 
[13:13:55.174]                                 success = TRUE)
[13:13:55.174]                               parallel_sendData(master, data)
[13:13:55.174]                             }
[13:13:55.174]                             return(sendCondition)
[13:13:55.174]                           }
[13:13:55.174]                         }
[13:13:55.174]                         frame <- frame + 1L
[13:13:55.174]                         envir <- sys.frame(frame)
[13:13:55.174]                       }
[13:13:55.174]                     }
[13:13:55.174]                     sendCondition <<- function(cond) NULL
[13:13:55.174]                   }
[13:13:55.174]                 })
[13:13:55.174]                 withCallingHandlers({
[13:13:55.174]                   {
[13:13:55.174]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:55.174]                     if (!identical(...future.globals.maxSize.org, 
[13:13:55.174]                       ...future.globals.maxSize)) {
[13:13:55.174]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:55.174]                       on.exit(options(oopts), add = TRUE)
[13:13:55.174]                     }
[13:13:55.174]                     {
[13:13:55.174]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:55.174]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:55.174]                         USE.NAMES = FALSE)
[13:13:55.174]                       do.call(mapply, args = args)
[13:13:55.174]                     }
[13:13:55.174]                   }
[13:13:55.174]                 }, immediateCondition = function(cond) {
[13:13:55.174]                   sendCondition <- ...future.makeSendCondition()
[13:13:55.174]                   sendCondition(cond)
[13:13:55.174]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.174]                   {
[13:13:55.174]                     inherits <- base::inherits
[13:13:55.174]                     invokeRestart <- base::invokeRestart
[13:13:55.174]                     is.null <- base::is.null
[13:13:55.174]                     muffled <- FALSE
[13:13:55.174]                     if (inherits(cond, "message")) {
[13:13:55.174]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:55.174]                       if (muffled) 
[13:13:55.174]                         invokeRestart("muffleMessage")
[13:13:55.174]                     }
[13:13:55.174]                     else if (inherits(cond, "warning")) {
[13:13:55.174]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:55.174]                       if (muffled) 
[13:13:55.174]                         invokeRestart("muffleWarning")
[13:13:55.174]                     }
[13:13:55.174]                     else if (inherits(cond, "condition")) {
[13:13:55.174]                       if (!is.null(pattern)) {
[13:13:55.174]                         computeRestarts <- base::computeRestarts
[13:13:55.174]                         grepl <- base::grepl
[13:13:55.174]                         restarts <- computeRestarts(cond)
[13:13:55.174]                         for (restart in restarts) {
[13:13:55.174]                           name <- restart$name
[13:13:55.174]                           if (is.null(name)) 
[13:13:55.174]                             next
[13:13:55.174]                           if (!grepl(pattern, name)) 
[13:13:55.174]                             next
[13:13:55.174]                           invokeRestart(restart)
[13:13:55.174]                           muffled <- TRUE
[13:13:55.174]                           break
[13:13:55.174]                         }
[13:13:55.174]                       }
[13:13:55.174]                     }
[13:13:55.174]                     invisible(muffled)
[13:13:55.174]                   }
[13:13:55.174]                   muffleCondition(cond)
[13:13:55.174]                 })
[13:13:55.174]             }))
[13:13:55.174]             future::FutureResult(value = ...future.value$value, 
[13:13:55.174]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:55.174]                   ...future.rng), globalenv = if (FALSE) 
[13:13:55.174]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:55.174]                     ...future.globalenv.names))
[13:13:55.174]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:55.174]         }, condition = base::local({
[13:13:55.174]             c <- base::c
[13:13:55.174]             inherits <- base::inherits
[13:13:55.174]             invokeRestart <- base::invokeRestart
[13:13:55.174]             length <- base::length
[13:13:55.174]             list <- base::list
[13:13:55.174]             seq.int <- base::seq.int
[13:13:55.174]             signalCondition <- base::signalCondition
[13:13:55.174]             sys.calls <- base::sys.calls
[13:13:55.174]             `[[` <- base::`[[`
[13:13:55.174]             `+` <- base::`+`
[13:13:55.174]             `<<-` <- base::`<<-`
[13:13:55.174]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:55.174]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:55.174]                   3L)]
[13:13:55.174]             }
[13:13:55.174]             function(cond) {
[13:13:55.174]                 is_error <- inherits(cond, "error")
[13:13:55.174]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:55.174]                   NULL)
[13:13:55.174]                 if (is_error) {
[13:13:55.174]                   sessionInformation <- function() {
[13:13:55.174]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:55.174]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:55.174]                       search = base::search(), system = base::Sys.info())
[13:13:55.174]                   }
[13:13:55.174]                   ...future.conditions[[length(...future.conditions) + 
[13:13:55.174]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:55.174]                     cond$call), session = sessionInformation(), 
[13:13:55.174]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:55.174]                   signalCondition(cond)
[13:13:55.174]                 }
[13:13:55.174]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:55.174]                 "immediateCondition"))) {
[13:13:55.174]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:55.174]                   ...future.conditions[[length(...future.conditions) + 
[13:13:55.174]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:55.174]                   if (TRUE && !signal) {
[13:13:55.174]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.174]                     {
[13:13:55.174]                       inherits <- base::inherits
[13:13:55.174]                       invokeRestart <- base::invokeRestart
[13:13:55.174]                       is.null <- base::is.null
[13:13:55.174]                       muffled <- FALSE
[13:13:55.174]                       if (inherits(cond, "message")) {
[13:13:55.174]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:55.174]                         if (muffled) 
[13:13:55.174]                           invokeRestart("muffleMessage")
[13:13:55.174]                       }
[13:13:55.174]                       else if (inherits(cond, "warning")) {
[13:13:55.174]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:55.174]                         if (muffled) 
[13:13:55.174]                           invokeRestart("muffleWarning")
[13:13:55.174]                       }
[13:13:55.174]                       else if (inherits(cond, "condition")) {
[13:13:55.174]                         if (!is.null(pattern)) {
[13:13:55.174]                           computeRestarts <- base::computeRestarts
[13:13:55.174]                           grepl <- base::grepl
[13:13:55.174]                           restarts <- computeRestarts(cond)
[13:13:55.174]                           for (restart in restarts) {
[13:13:55.174]                             name <- restart$name
[13:13:55.174]                             if (is.null(name)) 
[13:13:55.174]                               next
[13:13:55.174]                             if (!grepl(pattern, name)) 
[13:13:55.174]                               next
[13:13:55.174]                             invokeRestart(restart)
[13:13:55.174]                             muffled <- TRUE
[13:13:55.174]                             break
[13:13:55.174]                           }
[13:13:55.174]                         }
[13:13:55.174]                       }
[13:13:55.174]                       invisible(muffled)
[13:13:55.174]                     }
[13:13:55.174]                     muffleCondition(cond, pattern = "^muffle")
[13:13:55.174]                   }
[13:13:55.174]                 }
[13:13:55.174]                 else {
[13:13:55.174]                   if (TRUE) {
[13:13:55.174]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.174]                     {
[13:13:55.174]                       inherits <- base::inherits
[13:13:55.174]                       invokeRestart <- base::invokeRestart
[13:13:55.174]                       is.null <- base::is.null
[13:13:55.174]                       muffled <- FALSE
[13:13:55.174]                       if (inherits(cond, "message")) {
[13:13:55.174]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:55.174]                         if (muffled) 
[13:13:55.174]                           invokeRestart("muffleMessage")
[13:13:55.174]                       }
[13:13:55.174]                       else if (inherits(cond, "warning")) {
[13:13:55.174]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:55.174]                         if (muffled) 
[13:13:55.174]                           invokeRestart("muffleWarning")
[13:13:55.174]                       }
[13:13:55.174]                       else if (inherits(cond, "condition")) {
[13:13:55.174]                         if (!is.null(pattern)) {
[13:13:55.174]                           computeRestarts <- base::computeRestarts
[13:13:55.174]                           grepl <- base::grepl
[13:13:55.174]                           restarts <- computeRestarts(cond)
[13:13:55.174]                           for (restart in restarts) {
[13:13:55.174]                             name <- restart$name
[13:13:55.174]                             if (is.null(name)) 
[13:13:55.174]                               next
[13:13:55.174]                             if (!grepl(pattern, name)) 
[13:13:55.174]                               next
[13:13:55.174]                             invokeRestart(restart)
[13:13:55.174]                             muffled <- TRUE
[13:13:55.174]                             break
[13:13:55.174]                           }
[13:13:55.174]                         }
[13:13:55.174]                       }
[13:13:55.174]                       invisible(muffled)
[13:13:55.174]                     }
[13:13:55.174]                     muffleCondition(cond, pattern = "^muffle")
[13:13:55.174]                   }
[13:13:55.174]                 }
[13:13:55.174]             }
[13:13:55.174]         }))
[13:13:55.174]     }, error = function(ex) {
[13:13:55.174]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:55.174]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:55.174]                 ...future.rng), started = ...future.startTime, 
[13:13:55.174]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:55.174]             version = "1.8"), class = "FutureResult")
[13:13:55.174]     }, finally = {
[13:13:55.174]         if (!identical(...future.workdir, getwd())) 
[13:13:55.174]             setwd(...future.workdir)
[13:13:55.174]         {
[13:13:55.174]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:55.174]                 ...future.oldOptions$nwarnings <- NULL
[13:13:55.174]             }
[13:13:55.174]             base::options(...future.oldOptions)
[13:13:55.174]             if (.Platform$OS.type == "windows") {
[13:13:55.174]                 old_names <- names(...future.oldEnvVars)
[13:13:55.174]                 envs <- base::Sys.getenv()
[13:13:55.174]                 names <- names(envs)
[13:13:55.174]                 common <- intersect(names, old_names)
[13:13:55.174]                 added <- setdiff(names, old_names)
[13:13:55.174]                 removed <- setdiff(old_names, names)
[13:13:55.174]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:55.174]                   envs[common]]
[13:13:55.174]                 NAMES <- toupper(changed)
[13:13:55.174]                 args <- list()
[13:13:55.174]                 for (kk in seq_along(NAMES)) {
[13:13:55.174]                   name <- changed[[kk]]
[13:13:55.174]                   NAME <- NAMES[[kk]]
[13:13:55.174]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.174]                     next
[13:13:55.174]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:55.174]                 }
[13:13:55.174]                 NAMES <- toupper(added)
[13:13:55.174]                 for (kk in seq_along(NAMES)) {
[13:13:55.174]                   name <- added[[kk]]
[13:13:55.174]                   NAME <- NAMES[[kk]]
[13:13:55.174]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.174]                     next
[13:13:55.174]                   args[[name]] <- ""
[13:13:55.174]                 }
[13:13:55.174]                 NAMES <- toupper(removed)
[13:13:55.174]                 for (kk in seq_along(NAMES)) {
[13:13:55.174]                   name <- removed[[kk]]
[13:13:55.174]                   NAME <- NAMES[[kk]]
[13:13:55.174]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.174]                     next
[13:13:55.174]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:55.174]                 }
[13:13:55.174]                 if (length(args) > 0) 
[13:13:55.174]                   base::do.call(base::Sys.setenv, args = args)
[13:13:55.174]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:55.174]             }
[13:13:55.174]             else {
[13:13:55.174]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:55.174]             }
[13:13:55.174]             {
[13:13:55.174]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:55.174]                   0L) {
[13:13:55.174]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:55.174]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:55.174]                   base::options(opts)
[13:13:55.174]                 }
[13:13:55.174]                 {
[13:13:55.174]                   {
[13:13:55.174]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:55.174]                     NULL
[13:13:55.174]                   }
[13:13:55.174]                   options(future.plan = NULL)
[13:13:55.174]                   if (is.na(NA_character_)) 
[13:13:55.174]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:55.174]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:55.174]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:55.174]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:55.174]                     envir = parent.frame()) 
[13:13:55.174]                   {
[13:13:55.174]                     if (is.function(workers)) 
[13:13:55.174]                       workers <- workers()
[13:13:55.174]                     workers <- structure(as.integer(workers), 
[13:13:55.174]                       class = class(workers))
[13:13:55.174]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:55.174]                       workers >= 1)
[13:13:55.174]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:55.174]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:55.174]                     }
[13:13:55.174]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:55.174]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:55.174]                       envir = envir)
[13:13:55.174]                     if (!future$lazy) 
[13:13:55.174]                       future <- run(future)
[13:13:55.174]                     invisible(future)
[13:13:55.174]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:55.174]                 }
[13:13:55.174]             }
[13:13:55.174]         }
[13:13:55.174]     })
[13:13:55.174]     if (TRUE) {
[13:13:55.174]         base::sink(type = "output", split = FALSE)
[13:13:55.174]         if (TRUE) {
[13:13:55.174]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:55.174]         }
[13:13:55.174]         else {
[13:13:55.174]             ...future.result["stdout"] <- base::list(NULL)
[13:13:55.174]         }
[13:13:55.174]         base::close(...future.stdout)
[13:13:55.174]         ...future.stdout <- NULL
[13:13:55.174]     }
[13:13:55.174]     ...future.result$conditions <- ...future.conditions
[13:13:55.174]     ...future.result$finished <- base::Sys.time()
[13:13:55.174]     ...future.result
[13:13:55.174] }
[13:13:55.179] Exporting 5 global objects (3.41 KiB) to cluster node #1 ...
[13:13:55.180] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ...
[13:13:55.180] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ... DONE
[13:13:55.180] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:55.181] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:55.181] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ...
[13:13:55.181] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ... DONE
[13:13:55.182] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:55.182] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:55.182] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:55.183] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:55.183] Exporting 5 global objects (3.41 KiB) to cluster node #1 ... DONE
[13:13:55.184] MultisessionFuture started
[13:13:55.184] - Launch lazy future ... done
[13:13:55.184] run() for 'MultisessionFuture' ... done
[13:13:55.184] Created future:
[13:13:55.199] receiveMessageFromWorker() for ClusterFuture ...
[13:13:55.200] - Validating connection of MultisessionFuture
[13:13:55.200] - received message: FutureResult
[13:13:55.200] - Received FutureResult
[13:13:55.200] - Erased future from FutureRegistry
[13:13:55.200] result() for ClusterFuture ...
[13:13:55.201] - result already collected: FutureResult
[13:13:55.201] result() for ClusterFuture ... done
[13:13:55.201] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:55.184] MultisessionFuture:
[13:13:55.184] Label: 'future_mapply-5'
[13:13:55.184] Expression:
[13:13:55.184] {
[13:13:55.184]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:55.184]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:55.184]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:55.184]         on.exit(options(oopts), add = TRUE)
[13:13:55.184]     }
[13:13:55.184]     {
[13:13:55.184]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:55.184]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:55.184]         do.call(mapply, args = args)
[13:13:55.184]     }
[13:13:55.184] }
[13:13:55.184] Lazy evaluation: FALSE
[13:13:55.184] Asynchronous evaluation: TRUE
[13:13:55.184] Local evaluation: TRUE
[13:13:55.184] Environment: R_GlobalEnv
[13:13:55.184] Capture standard output: TRUE
[13:13:55.184] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:55.184] Globals: 5 objects totaling 3.41 KiB (function '...future.FUN' of 3.24 KiB, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 168 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:55.184] Packages: <none>
[13:13:55.184] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:55.184] Resolved: TRUE
[13:13:55.184] Value: <not collected>
[13:13:55.184] Conditions captured: <none>
[13:13:55.184] Early signaling: FALSE
[13:13:55.184] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:55.184] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:55.201] Chunk #5 of 5 ... DONE
[13:13:55.202] Launching 5 futures (chunks) ... DONE
[13:13:55.202] Resolving 5 futures (chunks) ...
[13:13:55.202] resolve() on list ...
[13:13:55.202]  recursive: 0
[13:13:55.202]  length: 5
[13:13:55.202] 
[13:13:55.203] Future #1
[13:13:55.203] result() for ClusterFuture ...
[13:13:55.203] - result already collected: FutureResult
[13:13:55.203] result() for ClusterFuture ... done
[13:13:55.203] result() for ClusterFuture ...
[13:13:55.203] - result already collected: FutureResult
[13:13:55.204] result() for ClusterFuture ... done
[13:13:55.204] signalConditionsASAP(MultisessionFuture, pos=1) ...
[13:13:55.204] - nx: 5
[13:13:55.204] - relay: TRUE
[13:13:55.204] - stdout: TRUE
[13:13:55.204] - signal: TRUE
[13:13:55.205] - resignal: FALSE
[13:13:55.205] - force: TRUE
[13:13:55.205] - relayed: [n=5] FALSE, FALSE, FALSE, FALSE, FALSE
[13:13:55.205] - queued futures: [n=5] FALSE, FALSE, FALSE, FALSE, FALSE
[13:13:55.205]  - until=1
[13:13:55.205]  - relaying element #1
[13:13:55.205] result() for ClusterFuture ...
[13:13:55.206] - result already collected: FutureResult
[13:13:55.206] result() for ClusterFuture ... done
[13:13:55.206] result() for ClusterFuture ...
[13:13:55.206] - result already collected: FutureResult
[13:13:55.206] result() for ClusterFuture ... done
[13:13:55.207] result() for ClusterFuture ...
[13:13:55.207] - result already collected: FutureResult
[13:13:55.207] result() for ClusterFuture ... done
[13:13:55.207] result() for ClusterFuture ...
[13:13:55.207] - result already collected: FutureResult
[13:13:55.207] result() for ClusterFuture ... done
[13:13:55.207] - relayed: [n=5] TRUE, FALSE, FALSE, FALSE, FALSE
[13:13:55.208] - queued futures: [n=5] TRUE, FALSE, FALSE, FALSE, FALSE
[13:13:55.208] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[13:13:55.208]  length: 4 (resolved future 1)
[13:13:55.208] Future #2
[13:13:55.208] result() for ClusterFuture ...
[13:13:55.208] - result already collected: FutureResult
[13:13:55.209] result() for ClusterFuture ... done
[13:13:55.209] result() for ClusterFuture ...
[13:13:55.209] - result already collected: FutureResult
[13:13:55.209] result() for ClusterFuture ... done
[13:13:55.209] signalConditionsASAP(MultisessionFuture, pos=2) ...
[13:13:55.209] - nx: 5
[13:13:55.210] - relay: TRUE
[13:13:55.210] - stdout: TRUE
[13:13:55.210] - signal: TRUE
[13:13:55.210] - resignal: FALSE
[13:13:55.210] - force: TRUE
[13:13:55.210] - relayed: [n=5] TRUE, FALSE, FALSE, FALSE, FALSE
[13:13:55.211] - queued futures: [n=5] TRUE, FALSE, FALSE, FALSE, FALSE
[13:13:55.211]  - until=2
[13:13:55.211]  - relaying element #2
[13:13:55.211] result() for ClusterFuture ...
[13:13:55.211] - result already collected: FutureResult
[13:13:55.211] result() for ClusterFuture ... done
[13:13:55.212] result() for ClusterFuture ...
[13:13:55.212] - result already collected: FutureResult
[13:13:55.212] result() for ClusterFuture ... done
[13:13:55.212] result() for ClusterFuture ...
[13:13:55.212] - result already collected: FutureResult
[13:13:55.212] result() for ClusterFuture ... done
[13:13:55.212] result() for ClusterFuture ...
[13:13:55.213] - result already collected: FutureResult
[13:13:55.213] result() for ClusterFuture ... done
[13:13:55.213] - relayed: [n=5] TRUE, TRUE, FALSE, FALSE, FALSE
[13:13:55.213] - queued futures: [n=5] TRUE, TRUE, FALSE, FALSE, FALSE
[13:13:55.213] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[13:13:55.213]  length: 3 (resolved future 2)
[13:13:55.214] Future #3
[13:13:55.214] result() for ClusterFuture ...
[13:13:55.214] - result already collected: FutureResult
[13:13:55.214] result() for ClusterFuture ... done
[13:13:55.214] result() for ClusterFuture ...
[13:13:55.214] - result already collected: FutureResult
[13:13:55.215] result() for ClusterFuture ... done
[13:13:55.215] signalConditionsASAP(MultisessionFuture, pos=3) ...
[13:13:55.215] - nx: 5
[13:13:55.215] - relay: TRUE
[13:13:55.215] - stdout: TRUE
[13:13:55.215] - signal: TRUE
[13:13:55.216] - resignal: FALSE
[13:13:55.216] - force: TRUE
[13:13:55.216] - relayed: [n=5] TRUE, TRUE, FALSE, FALSE, FALSE
[13:13:55.216] - queued futures: [n=5] TRUE, TRUE, FALSE, FALSE, FALSE
[13:13:55.216]  - until=3
[13:13:55.216]  - relaying element #3
[13:13:55.216] result() for ClusterFuture ...
[13:13:55.217] - result already collected: FutureResult
[13:13:55.217] result() for ClusterFuture ... done
[13:13:55.217] result() for ClusterFuture ...
[13:13:55.217] - result already collected: FutureResult
[13:13:55.217] result() for ClusterFuture ... done
[13:13:55.217] result() for ClusterFuture ...
[13:13:55.218] - result already collected: FutureResult
[13:13:55.218] result() for ClusterFuture ... done
[13:13:55.218] result() for ClusterFuture ...
[13:13:55.218] - result already collected: FutureResult
[13:13:55.218] result() for ClusterFuture ... done
[13:13:55.218] - relayed: [n=5] TRUE, TRUE, TRUE, FALSE, FALSE
[13:13:55.219] - queued futures: [n=5] TRUE, TRUE, TRUE, FALSE, FALSE
[13:13:55.219] signalConditionsASAP(MultisessionFuture, pos=3) ... done
[13:13:55.219]  length: 2 (resolved future 3)
[13:13:55.219] Future #4
[13:13:55.219] result() for ClusterFuture ...
[13:13:55.219] - result already collected: FutureResult
[13:13:55.220] result() for ClusterFuture ... done
[13:13:55.220] result() for ClusterFuture ...
[13:13:55.220] - result already collected: FutureResult
[13:13:55.220] result() for ClusterFuture ... done
[13:13:55.220] signalConditionsASAP(MultisessionFuture, pos=4) ...
[13:13:55.220] - nx: 5
[13:13:55.221] - relay: TRUE
[13:13:55.221] - stdout: TRUE
[13:13:55.221] - signal: TRUE
[13:13:55.221] - resignal: FALSE
[13:13:55.221] - force: TRUE
[13:13:55.221] - relayed: [n=5] TRUE, TRUE, TRUE, FALSE, FALSE
[13:13:55.221] - queued futures: [n=5] TRUE, TRUE, TRUE, FALSE, FALSE
[13:13:55.222]  - until=4
[13:13:55.222]  - relaying element #4
[13:13:55.222] result() for ClusterFuture ...
[13:13:55.222] - result already collected: FutureResult
[13:13:55.222] result() for ClusterFuture ... done
[13:13:55.222] result() for ClusterFuture ...
[13:13:55.223] - result already collected: FutureResult
[13:13:55.223] result() for ClusterFuture ... done
[13:13:55.223] result() for ClusterFuture ...
[13:13:55.223] - result already collected: FutureResult
[13:13:55.223] result() for ClusterFuture ... done
[13:13:55.223] result() for ClusterFuture ...
[13:13:55.224] - result already collected: FutureResult
[13:13:55.224] result() for ClusterFuture ... done
[13:13:55.224] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, FALSE
[13:13:55.224] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, FALSE
[13:13:55.224] signalConditionsASAP(MultisessionFuture, pos=4) ... done
[13:13:55.224]  length: 1 (resolved future 4)
[13:13:55.225] Future #5
[13:13:55.225] result() for ClusterFuture ...
[13:13:55.225] - result already collected: FutureResult
[13:13:55.225] result() for ClusterFuture ... done
[13:13:55.225] result() for ClusterFuture ...
[13:13:55.225] - result already collected: FutureResult
[13:13:55.225] result() for ClusterFuture ... done
[13:13:55.226] signalConditionsASAP(MultisessionFuture, pos=5) ...
[13:13:55.226] - nx: 5
[13:13:55.226] - relay: TRUE
[13:13:55.226] - stdout: TRUE
[13:13:55.226] - signal: TRUE
[13:13:55.226] - resignal: FALSE
[13:13:55.227] - force: TRUE
[13:13:55.227] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, FALSE
[13:13:55.227] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, FALSE
[13:13:55.227]  - until=5
[13:13:55.227]  - relaying element #5
[13:13:55.227] result() for ClusterFuture ...
[13:13:55.228] - result already collected: FutureResult
[13:13:55.228] result() for ClusterFuture ... done
[13:13:55.228] result() for ClusterFuture ...
[13:13:55.228] - result already collected: FutureResult
[13:13:55.228] result() for ClusterFuture ... done
[13:13:55.228] result() for ClusterFuture ...
[13:13:55.229] - result already collected: FutureResult
[13:13:55.229] result() for ClusterFuture ... done
[13:13:55.229] result() for ClusterFuture ...
[13:13:55.229] - result already collected: FutureResult
[13:13:55.229] result() for ClusterFuture ... done
[13:13:55.229] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE
[13:13:55.229] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE
[13:13:55.230] signalConditionsASAP(MultisessionFuture, pos=5) ... done
[13:13:55.230]  length: 0 (resolved future 5)
[13:13:55.230] Relaying remaining futures
[13:13:55.230] signalConditionsASAP(NULL, pos=0) ...
[13:13:55.230] - nx: 5
[13:13:55.230] - relay: TRUE
[13:13:55.231] - stdout: TRUE
[13:13:55.231] - signal: TRUE
[13:13:55.231] - resignal: FALSE
[13:13:55.231] - force: TRUE
[13:13:55.231] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE
[13:13:55.231] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE
 - flush all
[13:13:55.232] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE
[13:13:55.232] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE
[13:13:55.232] signalConditionsASAP(NULL, pos=0) ... done
[13:13:55.232] resolve() on list ... DONE
[13:13:55.232] result() for ClusterFuture ...
[13:13:55.232] - result already collected: FutureResult
[13:13:55.233] result() for ClusterFuture ... done
[13:13:55.233] result() for ClusterFuture ...
[13:13:55.233] - result already collected: FutureResult
[13:13:55.233] result() for ClusterFuture ... done
[13:13:55.233] result() for ClusterFuture ...
[13:13:55.233] - result already collected: FutureResult
[13:13:55.234] result() for ClusterFuture ... done
[13:13:55.234] result() for ClusterFuture ...
[13:13:55.234] - result already collected: FutureResult
[13:13:55.234] result() for ClusterFuture ... done
[13:13:55.234] result() for ClusterFuture ...
[13:13:55.234] - result already collected: FutureResult
[13:13:55.234] result() for ClusterFuture ... done
[13:13:55.235] result() for ClusterFuture ...
[13:13:55.235] - result already collected: FutureResult
[13:13:55.235] result() for ClusterFuture ... done
[13:13:55.235] result() for ClusterFuture ...
[13:13:55.235] - result already collected: FutureResult
[13:13:55.235] result() for ClusterFuture ... done
[13:13:55.236] result() for ClusterFuture ...
[13:13:55.236] - result already collected: FutureResult
[13:13:55.236] result() for ClusterFuture ... done
[13:13:55.236] result() for ClusterFuture ...
[13:13:55.236] - result already collected: FutureResult
[13:13:55.236] result() for ClusterFuture ... done
[13:13:55.237] result() for ClusterFuture ...
[13:13:55.237] - result already collected: FutureResult
[13:13:55.237] result() for ClusterFuture ... done
[13:13:55.237]  - Number of value chunks collected: 5
[13:13:55.237] Resolving 5 futures (chunks) ... DONE
[13:13:55.237] Reducing values from 5 chunks ...
[13:13:55.238]  - Number of values collected after concatenation: 5
[13:13:55.238]  - Number of values expected: 5
[13:13:55.238] Reducing values from 5 chunks ... DONE
[13:13:55.238] future_mapply() ... DONE
[13:13:55.238] future_mapply() ...
[13:13:55.241] Number of chunks: 2
[13:13:55.241] getGlobalsAndPackagesXApply() ...
[13:13:55.241]  - future.globals: TRUE
[13:13:55.241] getGlobalsAndPackages() ...
[13:13:55.242] Searching for globals...
[13:13:55.243] - globals found: [3] 'FUN', 'paste', 'rep.int'
[13:13:55.243] Searching for globals ... DONE
[13:13:55.244] Resolving globals: FALSE
[13:13:55.244] The total size of the 1 globals is 3.24 KiB (3320 bytes)
[13:13:55.244] The total size of the 1 globals exported for future expression ('FUN()') is 3.24 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (3.24 KiB of class 'function')
[13:13:55.245] - globals: [1] 'FUN'
[13:13:55.245] 
[13:13:55.245] getGlobalsAndPackages() ... DONE
[13:13:55.245]  - globals found/used: [n=1] 'FUN'
[13:13:55.245]  - needed namespaces: [n=0] 
[13:13:55.246] Finding globals ... DONE
[13:13:55.246] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:55.246] List of 2
[13:13:55.246]  $ ...future.FUN:function (C, k)  
[13:13:55.246]  $ MoreArgs     : list()
[13:13:55.246]  - attr(*, "where")=List of 2
[13:13:55.246]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:55.246]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:55.246]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:55.246]  - attr(*, "resolved")= logi FALSE
[13:13:55.246]  - attr(*, "total_size")= num NA
[13:13:55.249] Packages to be attached in all futures: [n=0] 
[13:13:55.249] getGlobalsAndPackagesXApply() ... DONE
[13:13:55.250] Number of futures (= number of chunks): 2
[13:13:55.250] Launching 2 futures (chunks) ...
[13:13:55.250] Chunk #1 of 2 ...
[13:13:55.250]  - Finding globals in '...' for chunk #1 ...
[13:13:55.250] getGlobalsAndPackages() ...
[13:13:55.250] Searching for globals...
[13:13:55.251] 
[13:13:55.251] Searching for globals ... DONE
[13:13:55.251] - globals: [0] <none>
[13:13:55.251] getGlobalsAndPackages() ... DONE
[13:13:55.251]    + additional globals found: [n=0] 
[13:13:55.252]    + additional namespaces needed: [n=0] 
[13:13:55.252]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:55.252]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:55.252]  - seeds: <none>
[13:13:55.252]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.253] getGlobalsAndPackages() ...
[13:13:55.253] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.253] Resolving globals: FALSE
[13:13:55.254] The total size of the 5 globals is 3.57 KiB (3656 bytes)
[13:13:55.254] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 3.57 KiB.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (3.24 KiB of class 'function'), '...future.elements_ii' (336 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'list')
[13:13:55.254] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.255] 
[13:13:55.255] getGlobalsAndPackages() ... DONE
[13:13:55.255] run() for 'Future' ...
[13:13:55.255] - state: 'created'
[13:13:55.256] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:55.270] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:55.270] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:55.270]   - Field: 'node'
[13:13:55.271]   - Field: 'label'
[13:13:55.271]   - Field: 'local'
[13:13:55.271]   - Field: 'owner'
[13:13:55.271]   - Field: 'envir'
[13:13:55.271]   - Field: 'workers'
[13:13:55.271]   - Field: 'packages'
[13:13:55.272]   - Field: 'gc'
[13:13:55.272]   - Field: 'conditions'
[13:13:55.272]   - Field: 'persistent'
[13:13:55.272]   - Field: 'expr'
[13:13:55.272]   - Field: 'uuid'
[13:13:55.272]   - Field: 'seed'
[13:13:55.273]   - Field: 'version'
[13:13:55.273]   - Field: 'result'
[13:13:55.273]   - Field: 'asynchronous'
[13:13:55.273]   - Field: 'calls'
[13:13:55.273]   - Field: 'globals'
[13:13:55.274]   - Field: 'stdout'
[13:13:55.274]   - Field: 'earlySignal'
[13:13:55.274]   - Field: 'lazy'
[13:13:55.274]   - Field: 'state'
[13:13:55.274] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:55.274] - Launch lazy future ...
[13:13:55.275] Packages needed by the future expression (n = 0): <none>
[13:13:55.275] Packages needed by future strategies (n = 0): <none>
[13:13:55.276] {
[13:13:55.276]     {
[13:13:55.276]         {
[13:13:55.276]             ...future.startTime <- base::Sys.time()
[13:13:55.276]             {
[13:13:55.276]                 {
[13:13:55.276]                   {
[13:13:55.276]                     {
[13:13:55.276]                       base::local({
[13:13:55.276]                         has_future <- base::requireNamespace("future", 
[13:13:55.276]                           quietly = TRUE)
[13:13:55.276]                         if (has_future) {
[13:13:55.276]                           ns <- base::getNamespace("future")
[13:13:55.276]                           version <- ns[[".package"]][["version"]]
[13:13:55.276]                           if (is.null(version)) 
[13:13:55.276]                             version <- utils::packageVersion("future")
[13:13:55.276]                         }
[13:13:55.276]                         else {
[13:13:55.276]                           version <- NULL
[13:13:55.276]                         }
[13:13:55.276]                         if (!has_future || version < "1.8.0") {
[13:13:55.276]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:55.276]                             "", base::R.version$version.string), 
[13:13:55.276]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:55.276]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:55.276]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:55.276]                               "release", "version")], collapse = " "), 
[13:13:55.276]                             hostname = base::Sys.info()[["nodename"]])
[13:13:55.276]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:55.276]                             info)
[13:13:55.276]                           info <- base::paste(info, collapse = "; ")
[13:13:55.276]                           if (!has_future) {
[13:13:55.276]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:55.276]                               info)
[13:13:55.276]                           }
[13:13:55.276]                           else {
[13:13:55.276]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:55.276]                               info, version)
[13:13:55.276]                           }
[13:13:55.276]                           base::stop(msg)
[13:13:55.276]                         }
[13:13:55.276]                       })
[13:13:55.276]                     }
[13:13:55.276]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:55.276]                     base::options(mc.cores = 1L)
[13:13:55.276]                   }
[13:13:55.276]                   options(future.plan = NULL)
[13:13:55.276]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:55.276]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:55.276]                 }
[13:13:55.276]                 ...future.workdir <- getwd()
[13:13:55.276]             }
[13:13:55.276]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:55.276]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:55.276]         }
[13:13:55.276]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:55.276]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:55.276]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:55.276]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:55.276]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:55.276]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:55.276]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:55.276]             base::names(...future.oldOptions))
[13:13:55.276]     }
[13:13:55.276]     if (FALSE) {
[13:13:55.276]     }
[13:13:55.276]     else {
[13:13:55.276]         if (TRUE) {
[13:13:55.276]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:55.276]                 open = "w")
[13:13:55.276]         }
[13:13:55.276]         else {
[13:13:55.276]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:55.276]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:55.276]         }
[13:13:55.276]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:55.276]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:55.276]             base::sink(type = "output", split = FALSE)
[13:13:55.276]             base::close(...future.stdout)
[13:13:55.276]         }, add = TRUE)
[13:13:55.276]     }
[13:13:55.276]     ...future.frame <- base::sys.nframe()
[13:13:55.276]     ...future.conditions <- base::list()
[13:13:55.276]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:55.276]     if (FALSE) {
[13:13:55.276]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:55.276]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:55.276]     }
[13:13:55.276]     ...future.result <- base::tryCatch({
[13:13:55.276]         base::withCallingHandlers({
[13:13:55.276]             ...future.value <- base::withVisible(base::local({
[13:13:55.276]                 ...future.makeSendCondition <- local({
[13:13:55.276]                   sendCondition <- NULL
[13:13:55.276]                   function(frame = 1L) {
[13:13:55.276]                     if (is.function(sendCondition)) 
[13:13:55.276]                       return(sendCondition)
[13:13:55.276]                     ns <- getNamespace("parallel")
[13:13:55.276]                     if (exists("sendData", mode = "function", 
[13:13:55.276]                       envir = ns)) {
[13:13:55.276]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:55.276]                         envir = ns)
[13:13:55.276]                       envir <- sys.frame(frame)
[13:13:55.276]                       master <- NULL
[13:13:55.276]                       while (!identical(envir, .GlobalEnv) && 
[13:13:55.276]                         !identical(envir, emptyenv())) {
[13:13:55.276]                         if (exists("master", mode = "list", envir = envir, 
[13:13:55.276]                           inherits = FALSE)) {
[13:13:55.276]                           master <- get("master", mode = "list", 
[13:13:55.276]                             envir = envir, inherits = FALSE)
[13:13:55.276]                           if (inherits(master, c("SOCKnode", 
[13:13:55.276]                             "SOCK0node"))) {
[13:13:55.276]                             sendCondition <<- function(cond) {
[13:13:55.276]                               data <- list(type = "VALUE", value = cond, 
[13:13:55.276]                                 success = TRUE)
[13:13:55.276]                               parallel_sendData(master, data)
[13:13:55.276]                             }
[13:13:55.276]                             return(sendCondition)
[13:13:55.276]                           }
[13:13:55.276]                         }
[13:13:55.276]                         frame <- frame + 1L
[13:13:55.276]                         envir <- sys.frame(frame)
[13:13:55.276]                       }
[13:13:55.276]                     }
[13:13:55.276]                     sendCondition <<- function(cond) NULL
[13:13:55.276]                   }
[13:13:55.276]                 })
[13:13:55.276]                 withCallingHandlers({
[13:13:55.276]                   {
[13:13:55.276]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:55.276]                     if (!identical(...future.globals.maxSize.org, 
[13:13:55.276]                       ...future.globals.maxSize)) {
[13:13:55.276]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:55.276]                       on.exit(options(oopts), add = TRUE)
[13:13:55.276]                     }
[13:13:55.276]                     {
[13:13:55.276]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:55.276]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:55.276]                         USE.NAMES = FALSE)
[13:13:55.276]                       do.call(mapply, args = args)
[13:13:55.276]                     }
[13:13:55.276]                   }
[13:13:55.276]                 }, immediateCondition = function(cond) {
[13:13:55.276]                   sendCondition <- ...future.makeSendCondition()
[13:13:55.276]                   sendCondition(cond)
[13:13:55.276]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.276]                   {
[13:13:55.276]                     inherits <- base::inherits
[13:13:55.276]                     invokeRestart <- base::invokeRestart
[13:13:55.276]                     is.null <- base::is.null
[13:13:55.276]                     muffled <- FALSE
[13:13:55.276]                     if (inherits(cond, "message")) {
[13:13:55.276]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:55.276]                       if (muffled) 
[13:13:55.276]                         invokeRestart("muffleMessage")
[13:13:55.276]                     }
[13:13:55.276]                     else if (inherits(cond, "warning")) {
[13:13:55.276]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:55.276]                       if (muffled) 
[13:13:55.276]                         invokeRestart("muffleWarning")
[13:13:55.276]                     }
[13:13:55.276]                     else if (inherits(cond, "condition")) {
[13:13:55.276]                       if (!is.null(pattern)) {
[13:13:55.276]                         computeRestarts <- base::computeRestarts
[13:13:55.276]                         grepl <- base::grepl
[13:13:55.276]                         restarts <- computeRestarts(cond)
[13:13:55.276]                         for (restart in restarts) {
[13:13:55.276]                           name <- restart$name
[13:13:55.276]                           if (is.null(name)) 
[13:13:55.276]                             next
[13:13:55.276]                           if (!grepl(pattern, name)) 
[13:13:55.276]                             next
[13:13:55.276]                           invokeRestart(restart)
[13:13:55.276]                           muffled <- TRUE
[13:13:55.276]                           break
[13:13:55.276]                         }
[13:13:55.276]                       }
[13:13:55.276]                     }
[13:13:55.276]                     invisible(muffled)
[13:13:55.276]                   }
[13:13:55.276]                   muffleCondition(cond)
[13:13:55.276]                 })
[13:13:55.276]             }))
[13:13:55.276]             future::FutureResult(value = ...future.value$value, 
[13:13:55.276]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:55.276]                   ...future.rng), globalenv = if (FALSE) 
[13:13:55.276]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:55.276]                     ...future.globalenv.names))
[13:13:55.276]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:55.276]         }, condition = base::local({
[13:13:55.276]             c <- base::c
[13:13:55.276]             inherits <- base::inherits
[13:13:55.276]             invokeRestart <- base::invokeRestart
[13:13:55.276]             length <- base::length
[13:13:55.276]             list <- base::list
[13:13:55.276]             seq.int <- base::seq.int
[13:13:55.276]             signalCondition <- base::signalCondition
[13:13:55.276]             sys.calls <- base::sys.calls
[13:13:55.276]             `[[` <- base::`[[`
[13:13:55.276]             `+` <- base::`+`
[13:13:55.276]             `<<-` <- base::`<<-`
[13:13:55.276]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:55.276]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:55.276]                   3L)]
[13:13:55.276]             }
[13:13:55.276]             function(cond) {
[13:13:55.276]                 is_error <- inherits(cond, "error")
[13:13:55.276]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:55.276]                   NULL)
[13:13:55.276]                 if (is_error) {
[13:13:55.276]                   sessionInformation <- function() {
[13:13:55.276]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:55.276]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:55.276]                       search = base::search(), system = base::Sys.info())
[13:13:55.276]                   }
[13:13:55.276]                   ...future.conditions[[length(...future.conditions) + 
[13:13:55.276]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:55.276]                     cond$call), session = sessionInformation(), 
[13:13:55.276]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:55.276]                   signalCondition(cond)
[13:13:55.276]                 }
[13:13:55.276]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:55.276]                 "immediateCondition"))) {
[13:13:55.276]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:55.276]                   ...future.conditions[[length(...future.conditions) + 
[13:13:55.276]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:55.276]                   if (TRUE && !signal) {
[13:13:55.276]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.276]                     {
[13:13:55.276]                       inherits <- base::inherits
[13:13:55.276]                       invokeRestart <- base::invokeRestart
[13:13:55.276]                       is.null <- base::is.null
[13:13:55.276]                       muffled <- FALSE
[13:13:55.276]                       if (inherits(cond, "message")) {
[13:13:55.276]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:55.276]                         if (muffled) 
[13:13:55.276]                           invokeRestart("muffleMessage")
[13:13:55.276]                       }
[13:13:55.276]                       else if (inherits(cond, "warning")) {
[13:13:55.276]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:55.276]                         if (muffled) 
[13:13:55.276]                           invokeRestart("muffleWarning")
[13:13:55.276]                       }
[13:13:55.276]                       else if (inherits(cond, "condition")) {
[13:13:55.276]                         if (!is.null(pattern)) {
[13:13:55.276]                           computeRestarts <- base::computeRestarts
[13:13:55.276]                           grepl <- base::grepl
[13:13:55.276]                           restarts <- computeRestarts(cond)
[13:13:55.276]                           for (restart in restarts) {
[13:13:55.276]                             name <- restart$name
[13:13:55.276]                             if (is.null(name)) 
[13:13:55.276]                               next
[13:13:55.276]                             if (!grepl(pattern, name)) 
[13:13:55.276]                               next
[13:13:55.276]                             invokeRestart(restart)
[13:13:55.276]                             muffled <- TRUE
[13:13:55.276]                             break
[13:13:55.276]                           }
[13:13:55.276]                         }
[13:13:55.276]                       }
[13:13:55.276]                       invisible(muffled)
[13:13:55.276]                     }
[13:13:55.276]                     muffleCondition(cond, pattern = "^muffle")
[13:13:55.276]                   }
[13:13:55.276]                 }
[13:13:55.276]                 else {
[13:13:55.276]                   if (TRUE) {
[13:13:55.276]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.276]                     {
[13:13:55.276]                       inherits <- base::inherits
[13:13:55.276]                       invokeRestart <- base::invokeRestart
[13:13:55.276]                       is.null <- base::is.null
[13:13:55.276]                       muffled <- FALSE
[13:13:55.276]                       if (inherits(cond, "message")) {
[13:13:55.276]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:55.276]                         if (muffled) 
[13:13:55.276]                           invokeRestart("muffleMessage")
[13:13:55.276]                       }
[13:13:55.276]                       else if (inherits(cond, "warning")) {
[13:13:55.276]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:55.276]                         if (muffled) 
[13:13:55.276]                           invokeRestart("muffleWarning")
[13:13:55.276]                       }
[13:13:55.276]                       else if (inherits(cond, "condition")) {
[13:13:55.276]                         if (!is.null(pattern)) {
[13:13:55.276]                           computeRestarts <- base::computeRestarts
[13:13:55.276]                           grepl <- base::grepl
[13:13:55.276]                           restarts <- computeRestarts(cond)
[13:13:55.276]                           for (restart in restarts) {
[13:13:55.276]                             name <- restart$name
[13:13:55.276]                             if (is.null(name)) 
[13:13:55.276]                               next
[13:13:55.276]                             if (!grepl(pattern, name)) 
[13:13:55.276]                               next
[13:13:55.276]                             invokeRestart(restart)
[13:13:55.276]                             muffled <- TRUE
[13:13:55.276]                             break
[13:13:55.276]                           }
[13:13:55.276]                         }
[13:13:55.276]                       }
[13:13:55.276]                       invisible(muffled)
[13:13:55.276]                     }
[13:13:55.276]                     muffleCondition(cond, pattern = "^muffle")
[13:13:55.276]                   }
[13:13:55.276]                 }
[13:13:55.276]             }
[13:13:55.276]         }))
[13:13:55.276]     }, error = function(ex) {
[13:13:55.276]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:55.276]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:55.276]                 ...future.rng), started = ...future.startTime, 
[13:13:55.276]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:55.276]             version = "1.8"), class = "FutureResult")
[13:13:55.276]     }, finally = {
[13:13:55.276]         if (!identical(...future.workdir, getwd())) 
[13:13:55.276]             setwd(...future.workdir)
[13:13:55.276]         {
[13:13:55.276]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:55.276]                 ...future.oldOptions$nwarnings <- NULL
[13:13:55.276]             }
[13:13:55.276]             base::options(...future.oldOptions)
[13:13:55.276]             if (.Platform$OS.type == "windows") {
[13:13:55.276]                 old_names <- names(...future.oldEnvVars)
[13:13:55.276]                 envs <- base::Sys.getenv()
[13:13:55.276]                 names <- names(envs)
[13:13:55.276]                 common <- intersect(names, old_names)
[13:13:55.276]                 added <- setdiff(names, old_names)
[13:13:55.276]                 removed <- setdiff(old_names, names)
[13:13:55.276]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:55.276]                   envs[common]]
[13:13:55.276]                 NAMES <- toupper(changed)
[13:13:55.276]                 args <- list()
[13:13:55.276]                 for (kk in seq_along(NAMES)) {
[13:13:55.276]                   name <- changed[[kk]]
[13:13:55.276]                   NAME <- NAMES[[kk]]
[13:13:55.276]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.276]                     next
[13:13:55.276]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:55.276]                 }
[13:13:55.276]                 NAMES <- toupper(added)
[13:13:55.276]                 for (kk in seq_along(NAMES)) {
[13:13:55.276]                   name <- added[[kk]]
[13:13:55.276]                   NAME <- NAMES[[kk]]
[13:13:55.276]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.276]                     next
[13:13:55.276]                   args[[name]] <- ""
[13:13:55.276]                 }
[13:13:55.276]                 NAMES <- toupper(removed)
[13:13:55.276]                 for (kk in seq_along(NAMES)) {
[13:13:55.276]                   name <- removed[[kk]]
[13:13:55.276]                   NAME <- NAMES[[kk]]
[13:13:55.276]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.276]                     next
[13:13:55.276]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:55.276]                 }
[13:13:55.276]                 if (length(args) > 0) 
[13:13:55.276]                   base::do.call(base::Sys.setenv, args = args)
[13:13:55.276]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:55.276]             }
[13:13:55.276]             else {
[13:13:55.276]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:55.276]             }
[13:13:55.276]             {
[13:13:55.276]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:55.276]                   0L) {
[13:13:55.276]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:55.276]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:55.276]                   base::options(opts)
[13:13:55.276]                 }
[13:13:55.276]                 {
[13:13:55.276]                   {
[13:13:55.276]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:55.276]                     NULL
[13:13:55.276]                   }
[13:13:55.276]                   options(future.plan = NULL)
[13:13:55.276]                   if (is.na(NA_character_)) 
[13:13:55.276]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:55.276]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:55.276]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:55.276]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:55.276]                     envir = parent.frame()) 
[13:13:55.276]                   {
[13:13:55.276]                     if (is.function(workers)) 
[13:13:55.276]                       workers <- workers()
[13:13:55.276]                     workers <- structure(as.integer(workers), 
[13:13:55.276]                       class = class(workers))
[13:13:55.276]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:55.276]                       workers >= 1)
[13:13:55.276]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:55.276]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:55.276]                     }
[13:13:55.276]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:55.276]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:55.276]                       envir = envir)
[13:13:55.276]                     if (!future$lazy) 
[13:13:55.276]                       future <- run(future)
[13:13:55.276]                     invisible(future)
[13:13:55.276]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:55.276]                 }
[13:13:55.276]             }
[13:13:55.276]         }
[13:13:55.276]     })
[13:13:55.276]     if (TRUE) {
[13:13:55.276]         base::sink(type = "output", split = FALSE)
[13:13:55.276]         if (TRUE) {
[13:13:55.276]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:55.276]         }
[13:13:55.276]         else {
[13:13:55.276]             ...future.result["stdout"] <- base::list(NULL)
[13:13:55.276]         }
[13:13:55.276]         base::close(...future.stdout)
[13:13:55.276]         ...future.stdout <- NULL
[13:13:55.276]     }
[13:13:55.276]     ...future.result$conditions <- ...future.conditions
[13:13:55.276]     ...future.result$finished <- base::Sys.time()
[13:13:55.276]     ...future.result
[13:13:55.276] }
[13:13:55.281] Exporting 5 global objects (3.57 KiB) to cluster node #1 ...
[13:13:55.281] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ...
[13:13:55.282] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ... DONE
[13:13:55.282] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:55.282] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:55.283] Exporting '...future.elements_ii' (336 bytes) to cluster node #1 ...
[13:13:55.283] Exporting '...future.elements_ii' (336 bytes) to cluster node #1 ... DONE
[13:13:55.283] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:55.284] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:55.284] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:55.284] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:55.284] Exporting 5 global objects (3.57 KiB) to cluster node #1 ... DONE
[13:13:55.285] MultisessionFuture started
[13:13:55.286] - Launch lazy future ... done
[13:13:55.286] run() for 'MultisessionFuture' ... done
[13:13:55.286] Created future:
[13:13:55.314] receiveMessageFromWorker() for ClusterFuture ...
[13:13:55.315] - Validating connection of MultisessionFuture
[13:13:55.315] - received message: FutureResult
[13:13:55.315] - Received FutureResult
[13:13:55.315] - Erased future from FutureRegistry
[13:13:55.315] result() for ClusterFuture ...
[13:13:55.316] - result already collected: FutureResult
[13:13:55.316] result() for ClusterFuture ... done
[13:13:55.316] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:55.286] MultisessionFuture:
[13:13:55.286] Label: 'future_.mapply-1'
[13:13:55.286] Expression:
[13:13:55.286] {
[13:13:55.286]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:55.286]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:55.286]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:55.286]         on.exit(options(oopts), add = TRUE)
[13:13:55.286]     }
[13:13:55.286]     {
[13:13:55.286]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:55.286]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:55.286]         do.call(mapply, args = args)
[13:13:55.286]     }
[13:13:55.286] }
[13:13:55.286] Lazy evaluation: FALSE
[13:13:55.286] Asynchronous evaluation: TRUE
[13:13:55.286] Local evaluation: TRUE
[13:13:55.286] Environment: R_GlobalEnv
[13:13:55.286] Capture standard output: TRUE
[13:13:55.286] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:55.286] Globals: 5 objects totaling 3.57 KiB (function '...future.FUN' of 3.24 KiB, list 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 336 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:55.286] Packages: <none>
[13:13:55.286] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:55.286] Resolved: TRUE
[13:13:55.286] Value: <not collected>
[13:13:55.286] Conditions captured: <none>
[13:13:55.286] Early signaling: FALSE
[13:13:55.286] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:55.286] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:55.316] Chunk #1 of 2 ... DONE
[13:13:55.316] Chunk #2 of 2 ...
[13:13:55.317]  - Finding globals in '...' for chunk #2 ...
[13:13:55.317] getGlobalsAndPackages() ...
[13:13:55.317] Searching for globals...
[13:13:55.317] 
[13:13:55.318] Searching for globals ... DONE
[13:13:55.318] - globals: [0] <none>
[13:13:55.318] getGlobalsAndPackages() ... DONE
[13:13:55.318]    + additional globals found: [n=0] 
[13:13:55.318]    + additional namespaces needed: [n=0] 
[13:13:55.318]  - Finding globals in '...' for chunk #2 ... DONE
[13:13:55.319]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:55.319]  - seeds: <none>
[13:13:55.319]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.319] getGlobalsAndPackages() ...
[13:13:55.319] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.319] Resolving globals: FALSE
[13:13:55.320] The total size of the 5 globals is 3.73 KiB (3824 bytes)
[13:13:55.321] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 3.73 KiB.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (3.24 KiB of class 'function'), '...future.elements_ii' (504 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'list')
[13:13:55.321] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.321] 
[13:13:55.321] getGlobalsAndPackages() ... DONE
[13:13:55.322] run() for 'Future' ...
[13:13:55.322] - state: 'created'
[13:13:55.322] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:55.336] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:55.336] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:55.336]   - Field: 'node'
[13:13:55.337]   - Field: 'label'
[13:13:55.337]   - Field: 'local'
[13:13:55.337]   - Field: 'owner'
[13:13:55.337]   - Field: 'envir'
[13:13:55.337]   - Field: 'workers'
[13:13:55.337]   - Field: 'packages'
[13:13:55.338]   - Field: 'gc'
[13:13:55.338]   - Field: 'conditions'
[13:13:55.338]   - Field: 'persistent'
[13:13:55.338]   - Field: 'expr'
[13:13:55.338]   - Field: 'uuid'
[13:13:55.338]   - Field: 'seed'
[13:13:55.339]   - Field: 'version'
[13:13:55.339]   - Field: 'result'
[13:13:55.339]   - Field: 'asynchronous'
[13:13:55.339]   - Field: 'calls'
[13:13:55.339]   - Field: 'globals'
[13:13:55.340]   - Field: 'stdout'
[13:13:55.340]   - Field: 'earlySignal'
[13:13:55.340]   - Field: 'lazy'
[13:13:55.340]   - Field: 'state'
[13:13:55.340] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:55.340] - Launch lazy future ...
[13:13:55.341] Packages needed by the future expression (n = 0): <none>
[13:13:55.341] Packages needed by future strategies (n = 0): <none>
[13:13:55.342] {
[13:13:55.342]     {
[13:13:55.342]         {
[13:13:55.342]             ...future.startTime <- base::Sys.time()
[13:13:55.342]             {
[13:13:55.342]                 {
[13:13:55.342]                   {
[13:13:55.342]                     {
[13:13:55.342]                       base::local({
[13:13:55.342]                         has_future <- base::requireNamespace("future", 
[13:13:55.342]                           quietly = TRUE)
[13:13:55.342]                         if (has_future) {
[13:13:55.342]                           ns <- base::getNamespace("future")
[13:13:55.342]                           version <- ns[[".package"]][["version"]]
[13:13:55.342]                           if (is.null(version)) 
[13:13:55.342]                             version <- utils::packageVersion("future")
[13:13:55.342]                         }
[13:13:55.342]                         else {
[13:13:55.342]                           version <- NULL
[13:13:55.342]                         }
[13:13:55.342]                         if (!has_future || version < "1.8.0") {
[13:13:55.342]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:55.342]                             "", base::R.version$version.string), 
[13:13:55.342]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:55.342]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:55.342]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:55.342]                               "release", "version")], collapse = " "), 
[13:13:55.342]                             hostname = base::Sys.info()[["nodename"]])
[13:13:55.342]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:55.342]                             info)
[13:13:55.342]                           info <- base::paste(info, collapse = "; ")
[13:13:55.342]                           if (!has_future) {
[13:13:55.342]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:55.342]                               info)
[13:13:55.342]                           }
[13:13:55.342]                           else {
[13:13:55.342]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:55.342]                               info, version)
[13:13:55.342]                           }
[13:13:55.342]                           base::stop(msg)
[13:13:55.342]                         }
[13:13:55.342]                       })
[13:13:55.342]                     }
[13:13:55.342]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:55.342]                     base::options(mc.cores = 1L)
[13:13:55.342]                   }
[13:13:55.342]                   options(future.plan = NULL)
[13:13:55.342]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:55.342]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:55.342]                 }
[13:13:55.342]                 ...future.workdir <- getwd()
[13:13:55.342]             }
[13:13:55.342]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:55.342]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:55.342]         }
[13:13:55.342]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:55.342]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:55.342]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:55.342]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:55.342]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:55.342]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:55.342]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:55.342]             base::names(...future.oldOptions))
[13:13:55.342]     }
[13:13:55.342]     if (FALSE) {
[13:13:55.342]     }
[13:13:55.342]     else {
[13:13:55.342]         if (TRUE) {
[13:13:55.342]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:55.342]                 open = "w")
[13:13:55.342]         }
[13:13:55.342]         else {
[13:13:55.342]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:55.342]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:55.342]         }
[13:13:55.342]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:55.342]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:55.342]             base::sink(type = "output", split = FALSE)
[13:13:55.342]             base::close(...future.stdout)
[13:13:55.342]         }, add = TRUE)
[13:13:55.342]     }
[13:13:55.342]     ...future.frame <- base::sys.nframe()
[13:13:55.342]     ...future.conditions <- base::list()
[13:13:55.342]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:55.342]     if (FALSE) {
[13:13:55.342]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:55.342]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:55.342]     }
[13:13:55.342]     ...future.result <- base::tryCatch({
[13:13:55.342]         base::withCallingHandlers({
[13:13:55.342]             ...future.value <- base::withVisible(base::local({
[13:13:55.342]                 ...future.makeSendCondition <- local({
[13:13:55.342]                   sendCondition <- NULL
[13:13:55.342]                   function(frame = 1L) {
[13:13:55.342]                     if (is.function(sendCondition)) 
[13:13:55.342]                       return(sendCondition)
[13:13:55.342]                     ns <- getNamespace("parallel")
[13:13:55.342]                     if (exists("sendData", mode = "function", 
[13:13:55.342]                       envir = ns)) {
[13:13:55.342]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:55.342]                         envir = ns)
[13:13:55.342]                       envir <- sys.frame(frame)
[13:13:55.342]                       master <- NULL
[13:13:55.342]                       while (!identical(envir, .GlobalEnv) && 
[13:13:55.342]                         !identical(envir, emptyenv())) {
[13:13:55.342]                         if (exists("master", mode = "list", envir = envir, 
[13:13:55.342]                           inherits = FALSE)) {
[13:13:55.342]                           master <- get("master", mode = "list", 
[13:13:55.342]                             envir = envir, inherits = FALSE)
[13:13:55.342]                           if (inherits(master, c("SOCKnode", 
[13:13:55.342]                             "SOCK0node"))) {
[13:13:55.342]                             sendCondition <<- function(cond) {
[13:13:55.342]                               data <- list(type = "VALUE", value = cond, 
[13:13:55.342]                                 success = TRUE)
[13:13:55.342]                               parallel_sendData(master, data)
[13:13:55.342]                             }
[13:13:55.342]                             return(sendCondition)
[13:13:55.342]                           }
[13:13:55.342]                         }
[13:13:55.342]                         frame <- frame + 1L
[13:13:55.342]                         envir <- sys.frame(frame)
[13:13:55.342]                       }
[13:13:55.342]                     }
[13:13:55.342]                     sendCondition <<- function(cond) NULL
[13:13:55.342]                   }
[13:13:55.342]                 })
[13:13:55.342]                 withCallingHandlers({
[13:13:55.342]                   {
[13:13:55.342]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:55.342]                     if (!identical(...future.globals.maxSize.org, 
[13:13:55.342]                       ...future.globals.maxSize)) {
[13:13:55.342]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:55.342]                       on.exit(options(oopts), add = TRUE)
[13:13:55.342]                     }
[13:13:55.342]                     {
[13:13:55.342]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:55.342]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:55.342]                         USE.NAMES = FALSE)
[13:13:55.342]                       do.call(mapply, args = args)
[13:13:55.342]                     }
[13:13:55.342]                   }
[13:13:55.342]                 }, immediateCondition = function(cond) {
[13:13:55.342]                   sendCondition <- ...future.makeSendCondition()
[13:13:55.342]                   sendCondition(cond)
[13:13:55.342]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.342]                   {
[13:13:55.342]                     inherits <- base::inherits
[13:13:55.342]                     invokeRestart <- base::invokeRestart
[13:13:55.342]                     is.null <- base::is.null
[13:13:55.342]                     muffled <- FALSE
[13:13:55.342]                     if (inherits(cond, "message")) {
[13:13:55.342]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:55.342]                       if (muffled) 
[13:13:55.342]                         invokeRestart("muffleMessage")
[13:13:55.342]                     }
[13:13:55.342]                     else if (inherits(cond, "warning")) {
[13:13:55.342]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:55.342]                       if (muffled) 
[13:13:55.342]                         invokeRestart("muffleWarning")
[13:13:55.342]                     }
[13:13:55.342]                     else if (inherits(cond, "condition")) {
[13:13:55.342]                       if (!is.null(pattern)) {
[13:13:55.342]                         computeRestarts <- base::computeRestarts
[13:13:55.342]                         grepl <- base::grepl
[13:13:55.342]                         restarts <- computeRestarts(cond)
[13:13:55.342]                         for (restart in restarts) {
[13:13:55.342]                           name <- restart$name
[13:13:55.342]                           if (is.null(name)) 
[13:13:55.342]                             next
[13:13:55.342]                           if (!grepl(pattern, name)) 
[13:13:55.342]                             next
[13:13:55.342]                           invokeRestart(restart)
[13:13:55.342]                           muffled <- TRUE
[13:13:55.342]                           break
[13:13:55.342]                         }
[13:13:55.342]                       }
[13:13:55.342]                     }
[13:13:55.342]                     invisible(muffled)
[13:13:55.342]                   }
[13:13:55.342]                   muffleCondition(cond)
[13:13:55.342]                 })
[13:13:55.342]             }))
[13:13:55.342]             future::FutureResult(value = ...future.value$value, 
[13:13:55.342]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:55.342]                   ...future.rng), globalenv = if (FALSE) 
[13:13:55.342]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:55.342]                     ...future.globalenv.names))
[13:13:55.342]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:55.342]         }, condition = base::local({
[13:13:55.342]             c <- base::c
[13:13:55.342]             inherits <- base::inherits
[13:13:55.342]             invokeRestart <- base::invokeRestart
[13:13:55.342]             length <- base::length
[13:13:55.342]             list <- base::list
[13:13:55.342]             seq.int <- base::seq.int
[13:13:55.342]             signalCondition <- base::signalCondition
[13:13:55.342]             sys.calls <- base::sys.calls
[13:13:55.342]             `[[` <- base::`[[`
[13:13:55.342]             `+` <- base::`+`
[13:13:55.342]             `<<-` <- base::`<<-`
[13:13:55.342]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:55.342]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:55.342]                   3L)]
[13:13:55.342]             }
[13:13:55.342]             function(cond) {
[13:13:55.342]                 is_error <- inherits(cond, "error")
[13:13:55.342]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:55.342]                   NULL)
[13:13:55.342]                 if (is_error) {
[13:13:55.342]                   sessionInformation <- function() {
[13:13:55.342]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:55.342]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:55.342]                       search = base::search(), system = base::Sys.info())
[13:13:55.342]                   }
[13:13:55.342]                   ...future.conditions[[length(...future.conditions) + 
[13:13:55.342]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:55.342]                     cond$call), session = sessionInformation(), 
[13:13:55.342]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:55.342]                   signalCondition(cond)
[13:13:55.342]                 }
[13:13:55.342]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:55.342]                 "immediateCondition"))) {
[13:13:55.342]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:55.342]                   ...future.conditions[[length(...future.conditions) + 
[13:13:55.342]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:55.342]                   if (TRUE && !signal) {
[13:13:55.342]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.342]                     {
[13:13:55.342]                       inherits <- base::inherits
[13:13:55.342]                       invokeRestart <- base::invokeRestart
[13:13:55.342]                       is.null <- base::is.null
[13:13:55.342]                       muffled <- FALSE
[13:13:55.342]                       if (inherits(cond, "message")) {
[13:13:55.342]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:55.342]                         if (muffled) 
[13:13:55.342]                           invokeRestart("muffleMessage")
[13:13:55.342]                       }
[13:13:55.342]                       else if (inherits(cond, "warning")) {
[13:13:55.342]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:55.342]                         if (muffled) 
[13:13:55.342]                           invokeRestart("muffleWarning")
[13:13:55.342]                       }
[13:13:55.342]                       else if (inherits(cond, "condition")) {
[13:13:55.342]                         if (!is.null(pattern)) {
[13:13:55.342]                           computeRestarts <- base::computeRestarts
[13:13:55.342]                           grepl <- base::grepl
[13:13:55.342]                           restarts <- computeRestarts(cond)
[13:13:55.342]                           for (restart in restarts) {
[13:13:55.342]                             name <- restart$name
[13:13:55.342]                             if (is.null(name)) 
[13:13:55.342]                               next
[13:13:55.342]                             if (!grepl(pattern, name)) 
[13:13:55.342]                               next
[13:13:55.342]                             invokeRestart(restart)
[13:13:55.342]                             muffled <- TRUE
[13:13:55.342]                             break
[13:13:55.342]                           }
[13:13:55.342]                         }
[13:13:55.342]                       }
[13:13:55.342]                       invisible(muffled)
[13:13:55.342]                     }
[13:13:55.342]                     muffleCondition(cond, pattern = "^muffle")
[13:13:55.342]                   }
[13:13:55.342]                 }
[13:13:55.342]                 else {
[13:13:55.342]                   if (TRUE) {
[13:13:55.342]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.342]                     {
[13:13:55.342]                       inherits <- base::inherits
[13:13:55.342]                       invokeRestart <- base::invokeRestart
[13:13:55.342]                       is.null <- base::is.null
[13:13:55.342]                       muffled <- FALSE
[13:13:55.342]                       if (inherits(cond, "message")) {
[13:13:55.342]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:55.342]                         if (muffled) 
[13:13:55.342]                           invokeRestart("muffleMessage")
[13:13:55.342]                       }
[13:13:55.342]                       else if (inherits(cond, "warning")) {
[13:13:55.342]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:55.342]                         if (muffled) 
[13:13:55.342]                           invokeRestart("muffleWarning")
[13:13:55.342]                       }
[13:13:55.342]                       else if (inherits(cond, "condition")) {
[13:13:55.342]                         if (!is.null(pattern)) {
[13:13:55.342]                           computeRestarts <- base::computeRestarts
[13:13:55.342]                           grepl <- base::grepl
[13:13:55.342]                           restarts <- computeRestarts(cond)
[13:13:55.342]                           for (restart in restarts) {
[13:13:55.342]                             name <- restart$name
[13:13:55.342]                             if (is.null(name)) 
[13:13:55.342]                               next
[13:13:55.342]                             if (!grepl(pattern, name)) 
[13:13:55.342]                               next
[13:13:55.342]                             invokeRestart(restart)
[13:13:55.342]                             muffled <- TRUE
[13:13:55.342]                             break
[13:13:55.342]                           }
[13:13:55.342]                         }
[13:13:55.342]                       }
[13:13:55.342]                       invisible(muffled)
[13:13:55.342]                     }
[13:13:55.342]                     muffleCondition(cond, pattern = "^muffle")
[13:13:55.342]                   }
[13:13:55.342]                 }
[13:13:55.342]             }
[13:13:55.342]         }))
[13:13:55.342]     }, error = function(ex) {
[13:13:55.342]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:55.342]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:55.342]                 ...future.rng), started = ...future.startTime, 
[13:13:55.342]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:55.342]             version = "1.8"), class = "FutureResult")
[13:13:55.342]     }, finally = {
[13:13:55.342]         if (!identical(...future.workdir, getwd())) 
[13:13:55.342]             setwd(...future.workdir)
[13:13:55.342]         {
[13:13:55.342]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:55.342]                 ...future.oldOptions$nwarnings <- NULL
[13:13:55.342]             }
[13:13:55.342]             base::options(...future.oldOptions)
[13:13:55.342]             if (.Platform$OS.type == "windows") {
[13:13:55.342]                 old_names <- names(...future.oldEnvVars)
[13:13:55.342]                 envs <- base::Sys.getenv()
[13:13:55.342]                 names <- names(envs)
[13:13:55.342]                 common <- intersect(names, old_names)
[13:13:55.342]                 added <- setdiff(names, old_names)
[13:13:55.342]                 removed <- setdiff(old_names, names)
[13:13:55.342]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:55.342]                   envs[common]]
[13:13:55.342]                 NAMES <- toupper(changed)
[13:13:55.342]                 args <- list()
[13:13:55.342]                 for (kk in seq_along(NAMES)) {
[13:13:55.342]                   name <- changed[[kk]]
[13:13:55.342]                   NAME <- NAMES[[kk]]
[13:13:55.342]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.342]                     next
[13:13:55.342]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:55.342]                 }
[13:13:55.342]                 NAMES <- toupper(added)
[13:13:55.342]                 for (kk in seq_along(NAMES)) {
[13:13:55.342]                   name <- added[[kk]]
[13:13:55.342]                   NAME <- NAMES[[kk]]
[13:13:55.342]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.342]                     next
[13:13:55.342]                   args[[name]] <- ""
[13:13:55.342]                 }
[13:13:55.342]                 NAMES <- toupper(removed)
[13:13:55.342]                 for (kk in seq_along(NAMES)) {
[13:13:55.342]                   name <- removed[[kk]]
[13:13:55.342]                   NAME <- NAMES[[kk]]
[13:13:55.342]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.342]                     next
[13:13:55.342]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:55.342]                 }
[13:13:55.342]                 if (length(args) > 0) 
[13:13:55.342]                   base::do.call(base::Sys.setenv, args = args)
[13:13:55.342]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:55.342]             }
[13:13:55.342]             else {
[13:13:55.342]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:55.342]             }
[13:13:55.342]             {
[13:13:55.342]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:55.342]                   0L) {
[13:13:55.342]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:55.342]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:55.342]                   base::options(opts)
[13:13:55.342]                 }
[13:13:55.342]                 {
[13:13:55.342]                   {
[13:13:55.342]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:55.342]                     NULL
[13:13:55.342]                   }
[13:13:55.342]                   options(future.plan = NULL)
[13:13:55.342]                   if (is.na(NA_character_)) 
[13:13:55.342]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:55.342]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:55.342]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:55.342]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:55.342]                     envir = parent.frame()) 
[13:13:55.342]                   {
[13:13:55.342]                     if (is.function(workers)) 
[13:13:55.342]                       workers <- workers()
[13:13:55.342]                     workers <- structure(as.integer(workers), 
[13:13:55.342]                       class = class(workers))
[13:13:55.342]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:55.342]                       workers >= 1)
[13:13:55.342]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:55.342]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:55.342]                     }
[13:13:55.342]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:55.342]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:55.342]                       envir = envir)
[13:13:55.342]                     if (!future$lazy) 
[13:13:55.342]                       future <- run(future)
[13:13:55.342]                     invisible(future)
[13:13:55.342]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:55.342]                 }
[13:13:55.342]             }
[13:13:55.342]         }
[13:13:55.342]     })
[13:13:55.342]     if (TRUE) {
[13:13:55.342]         base::sink(type = "output", split = FALSE)
[13:13:55.342]         if (TRUE) {
[13:13:55.342]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:55.342]         }
[13:13:55.342]         else {
[13:13:55.342]             ...future.result["stdout"] <- base::list(NULL)
[13:13:55.342]         }
[13:13:55.342]         base::close(...future.stdout)
[13:13:55.342]         ...future.stdout <- NULL
[13:13:55.342]     }
[13:13:55.342]     ...future.result$conditions <- ...future.conditions
[13:13:55.342]     ...future.result$finished <- base::Sys.time()
[13:13:55.342]     ...future.result
[13:13:55.342] }
[13:13:55.347] Exporting 5 global objects (3.73 KiB) to cluster node #1 ...
[13:13:55.378] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ...
[13:13:55.379] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ... DONE
[13:13:55.379] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:55.380] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:55.380] Exporting '...future.elements_ii' (504 bytes) to cluster node #1 ...
[13:13:55.381] Exporting '...future.elements_ii' (504 bytes) to cluster node #1 ... DONE
[13:13:55.381] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:55.381] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:55.381] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:55.382] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:55.382] Exporting 5 global objects (3.73 KiB) to cluster node #1 ... DONE
[13:13:55.383] MultisessionFuture started
[13:13:55.383] - Launch lazy future ... done
[13:13:55.383] run() for 'MultisessionFuture' ... done
[13:13:55.383] Created future:
[13:13:55.405] receiveMessageFromWorker() for ClusterFuture ...
[13:13:55.406] - Validating connection of MultisessionFuture
[13:13:55.406] - received message: FutureResult
[13:13:55.406] - Received FutureResult
[13:13:55.406] - Erased future from FutureRegistry
[13:13:55.406] result() for ClusterFuture ...
[13:13:55.407] - result already collected: FutureResult
[13:13:55.407] result() for ClusterFuture ... done
[13:13:55.407] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:55.384] MultisessionFuture:
[13:13:55.384] Label: 'future_.mapply-2'
[13:13:55.384] Expression:
[13:13:55.384] {
[13:13:55.384]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:55.384]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:55.384]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:55.384]         on.exit(options(oopts), add = TRUE)
[13:13:55.384]     }
[13:13:55.384]     {
[13:13:55.384]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:55.384]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:55.384]         do.call(mapply, args = args)
[13:13:55.384]     }
[13:13:55.384] }
[13:13:55.384] Lazy evaluation: FALSE
[13:13:55.384] Asynchronous evaluation: TRUE
[13:13:55.384] Local evaluation: TRUE
[13:13:55.384] Environment: R_GlobalEnv
[13:13:55.384] Capture standard output: TRUE
[13:13:55.384] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:55.384] Globals: 5 objects totaling 3.73 KiB (function '...future.FUN' of 3.24 KiB, list 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 504 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:55.384] Packages: <none>
[13:13:55.384] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:55.384] Resolved: TRUE
[13:13:55.384] Value: <not collected>
[13:13:55.384] Conditions captured: <none>
[13:13:55.384] Early signaling: FALSE
[13:13:55.384] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:55.384] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:55.407] Chunk #2 of 2 ... DONE
[13:13:55.407] Launching 2 futures (chunks) ... DONE
[13:13:55.408] Resolving 2 futures (chunks) ...
[13:13:55.408] resolve() on list ...
[13:13:55.408]  recursive: 0
[13:13:55.408]  length: 2
[13:13:55.408] 
[13:13:55.408] Future #1
[13:13:55.409] result() for ClusterFuture ...
[13:13:55.409] - result already collected: FutureResult
[13:13:55.409] result() for ClusterFuture ... done
[13:13:55.409] result() for ClusterFuture ...
[13:13:55.409] - result already collected: FutureResult
[13:13:55.409] result() for ClusterFuture ... done
[13:13:55.409] signalConditionsASAP(MultisessionFuture, pos=1) ...
[13:13:55.410] - nx: 2
[13:13:55.410] - relay: TRUE
[13:13:55.410] - stdout: TRUE
[13:13:55.410] - signal: TRUE
[13:13:55.410] - resignal: FALSE
[13:13:55.410] - force: TRUE
[13:13:55.410] - relayed: [n=2] FALSE, FALSE
[13:13:55.411] - queued futures: [n=2] FALSE, FALSE
[13:13:55.411]  - until=1
[13:13:55.411]  - relaying element #1
[13:13:55.411] result() for ClusterFuture ...
[13:13:55.411] - result already collected: FutureResult
[13:13:55.411] result() for ClusterFuture ... done
[13:13:55.411] result() for ClusterFuture ...
[13:13:55.412] - result already collected: FutureResult
[13:13:55.412] result() for ClusterFuture ... done
[13:13:55.412] result() for ClusterFuture ...
[13:13:55.412] - result already collected: FutureResult
[13:13:55.412] result() for ClusterFuture ... done
[13:13:55.412] result() for ClusterFuture ...
[13:13:55.413] - result already collected: FutureResult
[13:13:55.413] result() for ClusterFuture ... done
[13:13:55.413] - relayed: [n=2] TRUE, FALSE
[13:13:55.413] - queued futures: [n=2] TRUE, FALSE
[13:13:55.413] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[13:13:55.413]  length: 1 (resolved future 1)
[13:13:55.414] Future #2
[13:13:55.414] result() for ClusterFuture ...
[13:13:55.414] - result already collected: FutureResult
[13:13:55.414] result() for ClusterFuture ... done
[13:13:55.414] result() for ClusterFuture ...
[13:13:55.414] - result already collected: FutureResult
[13:13:55.414] result() for ClusterFuture ... done
[13:13:55.415] signalConditionsASAP(MultisessionFuture, pos=2) ...
[13:13:55.415] - nx: 2
[13:13:55.415] - relay: TRUE
[13:13:55.415] - stdout: TRUE
[13:13:55.415] - signal: TRUE
[13:13:55.415] - resignal: FALSE
[13:13:55.415] - force: TRUE
[13:13:55.416] - relayed: [n=2] TRUE, FALSE
[13:13:55.416] - queued futures: [n=2] TRUE, FALSE
[13:13:55.416]  - until=2
[13:13:55.416]  - relaying element #2
[13:13:55.416] result() for ClusterFuture ...
[13:13:55.416] - result already collected: FutureResult
[13:13:55.416] result() for ClusterFuture ... done
[13:13:55.417] result() for ClusterFuture ...
[13:13:55.417] - result already collected: FutureResult
[13:13:55.417] result() for ClusterFuture ... done
[13:13:55.417] result() for ClusterFuture ...
[13:13:55.417] - result already collected: FutureResult
[13:13:55.417] result() for ClusterFuture ... done
[13:13:55.418] result() for ClusterFuture ...
[13:13:55.418] - result already collected: FutureResult
[13:13:55.418] result() for ClusterFuture ... done
[13:13:55.418] - relayed: [n=2] TRUE, TRUE
[13:13:55.418] - queued futures: [n=2] TRUE, TRUE
[13:13:55.418] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[13:13:55.418]  length: 0 (resolved future 2)
[13:13:55.419] Relaying remaining futures
[13:13:55.419] signalConditionsASAP(NULL, pos=0) ...
[13:13:55.419] - nx: 2
[13:13:55.419] - relay: TRUE
[13:13:55.419] - stdout: TRUE
[13:13:55.419] - signal: TRUE
[13:13:55.419] - resignal: FALSE
[13:13:55.420] - force: TRUE
[13:13:55.420] - relayed: [n=2] TRUE, TRUE
[13:13:55.420] - queued futures: [n=2] TRUE, TRUE
 - flush all
[13:13:55.420] - relayed: [n=2] TRUE, TRUE
[13:13:55.420] - queued futures: [n=2] TRUE, TRUE
[13:13:55.420] signalConditionsASAP(NULL, pos=0) ... done
[13:13:55.421] resolve() on list ... DONE
[13:13:55.421] result() for ClusterFuture ...
[13:13:55.421] - result already collected: FutureResult
[13:13:55.421] result() for ClusterFuture ... done
[13:13:55.421] result() for ClusterFuture ...
[13:13:55.421] - result already collected: FutureResult
[13:13:55.422] result() for ClusterFuture ... done
[13:13:55.422] result() for ClusterFuture ...
[13:13:55.422] - result already collected: FutureResult
[13:13:55.422] result() for ClusterFuture ... done
[13:13:55.422] result() for ClusterFuture ...
[13:13:55.422] - result already collected: FutureResult
[13:13:55.423] result() for ClusterFuture ... done
[13:13:55.423]  - Number of value chunks collected: 2
[13:13:55.423] Resolving 2 futures (chunks) ... DONE
[13:13:55.423] Reducing values from 2 chunks ...
[13:13:55.423]  - Number of values collected after concatenation: 5
[13:13:55.423]  - Number of values expected: 5
[13:13:55.423] Reducing values from 2 chunks ... DONE
[13:13:55.424] future_mapply() ... DONE
[13:13:55.424] future_mapply() ...
[13:13:55.426] Number of chunks: 3
[13:13:55.427] Index remapping (attribute 'ordering'): [n = 5] 4, 2, 3, 1, 5
[13:13:55.427] getGlobalsAndPackagesXApply() ...
[13:13:55.427]  - future.globals: TRUE
[13:13:55.427] getGlobalsAndPackages() ...
[13:13:55.427] Searching for globals...
[13:13:55.429] - globals found: [3] 'FUN', 'paste', 'rep.int'
[13:13:55.429] Searching for globals ... DONE
[13:13:55.429] Resolving globals: FALSE
[13:13:55.430] The total size of the 1 globals is 3.24 KiB (3320 bytes)
[13:13:55.430] The total size of the 1 globals exported for future expression ('FUN()') is 3.24 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (3.24 KiB of class 'function')
[13:13:55.430] - globals: [1] 'FUN'
[13:13:55.430] 
[13:13:55.431] getGlobalsAndPackages() ... DONE
[13:13:55.431]  - globals found/used: [n=1] 'FUN'
[13:13:55.431]  - needed namespaces: [n=0] 
[13:13:55.431] Finding globals ... DONE
[13:13:55.431] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:55.431] List of 2
[13:13:55.431]  $ ...future.FUN:function (C, k)  
[13:13:55.431]  $ MoreArgs     : NULL
[13:13:55.431]  - attr(*, "where")=List of 2
[13:13:55.431]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:55.431]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:55.431]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:55.431]  - attr(*, "resolved")= logi FALSE
[13:13:55.431]  - attr(*, "total_size")= num NA
[13:13:55.434] Packages to be attached in all futures: [n=0] 
[13:13:55.435] getGlobalsAndPackagesXApply() ... DONE
[13:13:55.435] Number of futures (= number of chunks): 3
[13:13:55.435] Launching 3 futures (chunks) ...
[13:13:55.435] Chunk #1 of 3 ...
[13:13:55.435]  - Finding globals in '...' for chunk #1 ...
[13:13:55.435] getGlobalsAndPackages() ...
[13:13:55.436] Searching for globals...
[13:13:55.436] 
[13:13:55.436] Searching for globals ... DONE
[13:13:55.436] - globals: [0] <none>
[13:13:55.436] getGlobalsAndPackages() ... DONE
[13:13:55.437]    + additional globals found: [n=0] 
[13:13:55.437]    + additional namespaces needed: [n=0] 
[13:13:55.437]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:55.437]  - Adjusted option 'future.globals.maxSize': 524288000 -> 3 * 524288000 = 1572864000 (bytes)
[13:13:55.437]  - seeds: <none>
[13:13:55.437]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.438] getGlobalsAndPackages() ...
[13:13:55.438] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.438] Resolving globals: FALSE
[13:13:55.438] The total size of the 5 globals is 3.57 KiB (3656 bytes)
[13:13:55.439] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 3.57 KiB.. This exceeds the maximum allowed size of 1.46 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (3.24 KiB of class 'function'), '...future.elements_ii' (336 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:55.439] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.439] 
[13:13:55.440] getGlobalsAndPackages() ... DONE
[13:13:55.440] run() for 'Future' ...
[13:13:55.440] - state: 'created'
[13:13:55.440] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:55.454] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:55.454] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:55.454]   - Field: 'node'
[13:13:55.454]   - Field: 'label'
[13:13:55.454]   - Field: 'local'
[13:13:55.455]   - Field: 'owner'
[13:13:55.455]   - Field: 'envir'
[13:13:55.455]   - Field: 'workers'
[13:13:55.455]   - Field: 'packages'
[13:13:55.455]   - Field: 'gc'
[13:13:55.456]   - Field: 'conditions'
[13:13:55.456]   - Field: 'persistent'
[13:13:55.456]   - Field: 'expr'
[13:13:55.456]   - Field: 'uuid'
[13:13:55.457]   - Field: 'seed'
[13:13:55.457]   - Field: 'version'
[13:13:55.457]   - Field: 'result'
[13:13:55.457]   - Field: 'asynchronous'
[13:13:55.457]   - Field: 'calls'
[13:13:55.457]   - Field: 'globals'
[13:13:55.458]   - Field: 'stdout'
[13:13:55.458]   - Field: 'earlySignal'
[13:13:55.458]   - Field: 'lazy'
[13:13:55.458]   - Field: 'state'
[13:13:55.458] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:55.458] - Launch lazy future ...
[13:13:55.459] Packages needed by the future expression (n = 0): <none>
[13:13:55.459] Packages needed by future strategies (n = 0): <none>
[13:13:55.459] {
[13:13:55.459]     {
[13:13:55.459]         {
[13:13:55.459]             ...future.startTime <- base::Sys.time()
[13:13:55.459]             {
[13:13:55.459]                 {
[13:13:55.459]                   {
[13:13:55.459]                     {
[13:13:55.459]                       base::local({
[13:13:55.459]                         has_future <- base::requireNamespace("future", 
[13:13:55.459]                           quietly = TRUE)
[13:13:55.459]                         if (has_future) {
[13:13:55.459]                           ns <- base::getNamespace("future")
[13:13:55.459]                           version <- ns[[".package"]][["version"]]
[13:13:55.459]                           if (is.null(version)) 
[13:13:55.459]                             version <- utils::packageVersion("future")
[13:13:55.459]                         }
[13:13:55.459]                         else {
[13:13:55.459]                           version <- NULL
[13:13:55.459]                         }
[13:13:55.459]                         if (!has_future || version < "1.8.0") {
[13:13:55.459]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:55.459]                             "", base::R.version$version.string), 
[13:13:55.459]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:55.459]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:55.459]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:55.459]                               "release", "version")], collapse = " "), 
[13:13:55.459]                             hostname = base::Sys.info()[["nodename"]])
[13:13:55.459]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:55.459]                             info)
[13:13:55.459]                           info <- base::paste(info, collapse = "; ")
[13:13:55.459]                           if (!has_future) {
[13:13:55.459]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:55.459]                               info)
[13:13:55.459]                           }
[13:13:55.459]                           else {
[13:13:55.459]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:55.459]                               info, version)
[13:13:55.459]                           }
[13:13:55.459]                           base::stop(msg)
[13:13:55.459]                         }
[13:13:55.459]                       })
[13:13:55.459]                     }
[13:13:55.459]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:55.459]                     base::options(mc.cores = 1L)
[13:13:55.459]                   }
[13:13:55.459]                   options(future.plan = NULL)
[13:13:55.459]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:55.459]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:55.459]                 }
[13:13:55.459]                 ...future.workdir <- getwd()
[13:13:55.459]             }
[13:13:55.459]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:55.459]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:55.459]         }
[13:13:55.459]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:55.459]             future.globals.maxSize = 1572864000, future.globals.method = NULL, 
[13:13:55.459]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:55.459]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:55.459]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:55.459]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:55.459]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:55.459]             base::names(...future.oldOptions))
[13:13:55.459]     }
[13:13:55.459]     if (FALSE) {
[13:13:55.459]     }
[13:13:55.459]     else {
[13:13:55.459]         if (TRUE) {
[13:13:55.459]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:55.459]                 open = "w")
[13:13:55.459]         }
[13:13:55.459]         else {
[13:13:55.459]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:55.459]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:55.459]         }
[13:13:55.459]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:55.459]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:55.459]             base::sink(type = "output", split = FALSE)
[13:13:55.459]             base::close(...future.stdout)
[13:13:55.459]         }, add = TRUE)
[13:13:55.459]     }
[13:13:55.459]     ...future.frame <- base::sys.nframe()
[13:13:55.459]     ...future.conditions <- base::list()
[13:13:55.459]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:55.459]     if (FALSE) {
[13:13:55.459]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:55.459]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:55.459]     }
[13:13:55.459]     ...future.result <- base::tryCatch({
[13:13:55.459]         base::withCallingHandlers({
[13:13:55.459]             ...future.value <- base::withVisible(base::local({
[13:13:55.459]                 ...future.makeSendCondition <- local({
[13:13:55.459]                   sendCondition <- NULL
[13:13:55.459]                   function(frame = 1L) {
[13:13:55.459]                     if (is.function(sendCondition)) 
[13:13:55.459]                       return(sendCondition)
[13:13:55.459]                     ns <- getNamespace("parallel")
[13:13:55.459]                     if (exists("sendData", mode = "function", 
[13:13:55.459]                       envir = ns)) {
[13:13:55.459]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:55.459]                         envir = ns)
[13:13:55.459]                       envir <- sys.frame(frame)
[13:13:55.459]                       master <- NULL
[13:13:55.459]                       while (!identical(envir, .GlobalEnv) && 
[13:13:55.459]                         !identical(envir, emptyenv())) {
[13:13:55.459]                         if (exists("master", mode = "list", envir = envir, 
[13:13:55.459]                           inherits = FALSE)) {
[13:13:55.459]                           master <- get("master", mode = "list", 
[13:13:55.459]                             envir = envir, inherits = FALSE)
[13:13:55.459]                           if (inherits(master, c("SOCKnode", 
[13:13:55.459]                             "SOCK0node"))) {
[13:13:55.459]                             sendCondition <<- function(cond) {
[13:13:55.459]                               data <- list(type = "VALUE", value = cond, 
[13:13:55.459]                                 success = TRUE)
[13:13:55.459]                               parallel_sendData(master, data)
[13:13:55.459]                             }
[13:13:55.459]                             return(sendCondition)
[13:13:55.459]                           }
[13:13:55.459]                         }
[13:13:55.459]                         frame <- frame + 1L
[13:13:55.459]                         envir <- sys.frame(frame)
[13:13:55.459]                       }
[13:13:55.459]                     }
[13:13:55.459]                     sendCondition <<- function(cond) NULL
[13:13:55.459]                   }
[13:13:55.459]                 })
[13:13:55.459]                 withCallingHandlers({
[13:13:55.459]                   {
[13:13:55.459]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:55.459]                     if (!identical(...future.globals.maxSize.org, 
[13:13:55.459]                       ...future.globals.maxSize)) {
[13:13:55.459]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:55.459]                       on.exit(options(oopts), add = TRUE)
[13:13:55.459]                     }
[13:13:55.459]                     {
[13:13:55.459]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:55.459]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:55.459]                         USE.NAMES = FALSE)
[13:13:55.459]                       do.call(mapply, args = args)
[13:13:55.459]                     }
[13:13:55.459]                   }
[13:13:55.459]                 }, immediateCondition = function(cond) {
[13:13:55.459]                   sendCondition <- ...future.makeSendCondition()
[13:13:55.459]                   sendCondition(cond)
[13:13:55.459]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.459]                   {
[13:13:55.459]                     inherits <- base::inherits
[13:13:55.459]                     invokeRestart <- base::invokeRestart
[13:13:55.459]                     is.null <- base::is.null
[13:13:55.459]                     muffled <- FALSE
[13:13:55.459]                     if (inherits(cond, "message")) {
[13:13:55.459]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:55.459]                       if (muffled) 
[13:13:55.459]                         invokeRestart("muffleMessage")
[13:13:55.459]                     }
[13:13:55.459]                     else if (inherits(cond, "warning")) {
[13:13:55.459]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:55.459]                       if (muffled) 
[13:13:55.459]                         invokeRestart("muffleWarning")
[13:13:55.459]                     }
[13:13:55.459]                     else if (inherits(cond, "condition")) {
[13:13:55.459]                       if (!is.null(pattern)) {
[13:13:55.459]                         computeRestarts <- base::computeRestarts
[13:13:55.459]                         grepl <- base::grepl
[13:13:55.459]                         restarts <- computeRestarts(cond)
[13:13:55.459]                         for (restart in restarts) {
[13:13:55.459]                           name <- restart$name
[13:13:55.459]                           if (is.null(name)) 
[13:13:55.459]                             next
[13:13:55.459]                           if (!grepl(pattern, name)) 
[13:13:55.459]                             next
[13:13:55.459]                           invokeRestart(restart)
[13:13:55.459]                           muffled <- TRUE
[13:13:55.459]                           break
[13:13:55.459]                         }
[13:13:55.459]                       }
[13:13:55.459]                     }
[13:13:55.459]                     invisible(muffled)
[13:13:55.459]                   }
[13:13:55.459]                   muffleCondition(cond)
[13:13:55.459]                 })
[13:13:55.459]             }))
[13:13:55.459]             future::FutureResult(value = ...future.value$value, 
[13:13:55.459]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:55.459]                   ...future.rng), globalenv = if (FALSE) 
[13:13:55.459]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:55.459]                     ...future.globalenv.names))
[13:13:55.459]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:55.459]         }, condition = base::local({
[13:13:55.459]             c <- base::c
[13:13:55.459]             inherits <- base::inherits
[13:13:55.459]             invokeRestart <- base::invokeRestart
[13:13:55.459]             length <- base::length
[13:13:55.459]             list <- base::list
[13:13:55.459]             seq.int <- base::seq.int
[13:13:55.459]             signalCondition <- base::signalCondition
[13:13:55.459]             sys.calls <- base::sys.calls
[13:13:55.459]             `[[` <- base::`[[`
[13:13:55.459]             `+` <- base::`+`
[13:13:55.459]             `<<-` <- base::`<<-`
[13:13:55.459]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:55.459]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:55.459]                   3L)]
[13:13:55.459]             }
[13:13:55.459]             function(cond) {
[13:13:55.459]                 is_error <- inherits(cond, "error")
[13:13:55.459]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:55.459]                   NULL)
[13:13:55.459]                 if (is_error) {
[13:13:55.459]                   sessionInformation <- function() {
[13:13:55.459]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:55.459]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:55.459]                       search = base::search(), system = base::Sys.info())
[13:13:55.459]                   }
[13:13:55.459]                   ...future.conditions[[length(...future.conditions) + 
[13:13:55.459]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:55.459]                     cond$call), session = sessionInformation(), 
[13:13:55.459]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:55.459]                   signalCondition(cond)
[13:13:55.459]                 }
[13:13:55.459]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:55.459]                 "immediateCondition"))) {
[13:13:55.459]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:55.459]                   ...future.conditions[[length(...future.conditions) + 
[13:13:55.459]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:55.459]                   if (TRUE && !signal) {
[13:13:55.459]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.459]                     {
[13:13:55.459]                       inherits <- base::inherits
[13:13:55.459]                       invokeRestart <- base::invokeRestart
[13:13:55.459]                       is.null <- base::is.null
[13:13:55.459]                       muffled <- FALSE
[13:13:55.459]                       if (inherits(cond, "message")) {
[13:13:55.459]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:55.459]                         if (muffled) 
[13:13:55.459]                           invokeRestart("muffleMessage")
[13:13:55.459]                       }
[13:13:55.459]                       else if (inherits(cond, "warning")) {
[13:13:55.459]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:55.459]                         if (muffled) 
[13:13:55.459]                           invokeRestart("muffleWarning")
[13:13:55.459]                       }
[13:13:55.459]                       else if (inherits(cond, "condition")) {
[13:13:55.459]                         if (!is.null(pattern)) {
[13:13:55.459]                           computeRestarts <- base::computeRestarts
[13:13:55.459]                           grepl <- base::grepl
[13:13:55.459]                           restarts <- computeRestarts(cond)
[13:13:55.459]                           for (restart in restarts) {
[13:13:55.459]                             name <- restart$name
[13:13:55.459]                             if (is.null(name)) 
[13:13:55.459]                               next
[13:13:55.459]                             if (!grepl(pattern, name)) 
[13:13:55.459]                               next
[13:13:55.459]                             invokeRestart(restart)
[13:13:55.459]                             muffled <- TRUE
[13:13:55.459]                             break
[13:13:55.459]                           }
[13:13:55.459]                         }
[13:13:55.459]                       }
[13:13:55.459]                       invisible(muffled)
[13:13:55.459]                     }
[13:13:55.459]                     muffleCondition(cond, pattern = "^muffle")
[13:13:55.459]                   }
[13:13:55.459]                 }
[13:13:55.459]                 else {
[13:13:55.459]                   if (TRUE) {
[13:13:55.459]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.459]                     {
[13:13:55.459]                       inherits <- base::inherits
[13:13:55.459]                       invokeRestart <- base::invokeRestart
[13:13:55.459]                       is.null <- base::is.null
[13:13:55.459]                       muffled <- FALSE
[13:13:55.459]                       if (inherits(cond, "message")) {
[13:13:55.459]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:55.459]                         if (muffled) 
[13:13:55.459]                           invokeRestart("muffleMessage")
[13:13:55.459]                       }
[13:13:55.459]                       else if (inherits(cond, "warning")) {
[13:13:55.459]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:55.459]                         if (muffled) 
[13:13:55.459]                           invokeRestart("muffleWarning")
[13:13:55.459]                       }
[13:13:55.459]                       else if (inherits(cond, "condition")) {
[13:13:55.459]                         if (!is.null(pattern)) {
[13:13:55.459]                           computeRestarts <- base::computeRestarts
[13:13:55.459]                           grepl <- base::grepl
[13:13:55.459]                           restarts <- computeRestarts(cond)
[13:13:55.459]                           for (restart in restarts) {
[13:13:55.459]                             name <- restart$name
[13:13:55.459]                             if (is.null(name)) 
[13:13:55.459]                               next
[13:13:55.459]                             if (!grepl(pattern, name)) 
[13:13:55.459]                               next
[13:13:55.459]                             invokeRestart(restart)
[13:13:55.459]                             muffled <- TRUE
[13:13:55.459]                             break
[13:13:55.459]                           }
[13:13:55.459]                         }
[13:13:55.459]                       }
[13:13:55.459]                       invisible(muffled)
[13:13:55.459]                     }
[13:13:55.459]                     muffleCondition(cond, pattern = "^muffle")
[13:13:55.459]                   }
[13:13:55.459]                 }
[13:13:55.459]             }
[13:13:55.459]         }))
[13:13:55.459]     }, error = function(ex) {
[13:13:55.459]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:55.459]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:55.459]                 ...future.rng), started = ...future.startTime, 
[13:13:55.459]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:55.459]             version = "1.8"), class = "FutureResult")
[13:13:55.459]     }, finally = {
[13:13:55.459]         if (!identical(...future.workdir, getwd())) 
[13:13:55.459]             setwd(...future.workdir)
[13:13:55.459]         {
[13:13:55.459]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:55.459]                 ...future.oldOptions$nwarnings <- NULL
[13:13:55.459]             }
[13:13:55.459]             base::options(...future.oldOptions)
[13:13:55.459]             if (.Platform$OS.type == "windows") {
[13:13:55.459]                 old_names <- names(...future.oldEnvVars)
[13:13:55.459]                 envs <- base::Sys.getenv()
[13:13:55.459]                 names <- names(envs)
[13:13:55.459]                 common <- intersect(names, old_names)
[13:13:55.459]                 added <- setdiff(names, old_names)
[13:13:55.459]                 removed <- setdiff(old_names, names)
[13:13:55.459]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:55.459]                   envs[common]]
[13:13:55.459]                 NAMES <- toupper(changed)
[13:13:55.459]                 args <- list()
[13:13:55.459]                 for (kk in seq_along(NAMES)) {
[13:13:55.459]                   name <- changed[[kk]]
[13:13:55.459]                   NAME <- NAMES[[kk]]
[13:13:55.459]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.459]                     next
[13:13:55.459]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:55.459]                 }
[13:13:55.459]                 NAMES <- toupper(added)
[13:13:55.459]                 for (kk in seq_along(NAMES)) {
[13:13:55.459]                   name <- added[[kk]]
[13:13:55.459]                   NAME <- NAMES[[kk]]
[13:13:55.459]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.459]                     next
[13:13:55.459]                   args[[name]] <- ""
[13:13:55.459]                 }
[13:13:55.459]                 NAMES <- toupper(removed)
[13:13:55.459]                 for (kk in seq_along(NAMES)) {
[13:13:55.459]                   name <- removed[[kk]]
[13:13:55.459]                   NAME <- NAMES[[kk]]
[13:13:55.459]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.459]                     next
[13:13:55.459]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:55.459]                 }
[13:13:55.459]                 if (length(args) > 0) 
[13:13:55.459]                   base::do.call(base::Sys.setenv, args = args)
[13:13:55.459]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:55.459]             }
[13:13:55.459]             else {
[13:13:55.459]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:55.459]             }
[13:13:55.459]             {
[13:13:55.459]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:55.459]                   0L) {
[13:13:55.459]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:55.459]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:55.459]                   base::options(opts)
[13:13:55.459]                 }
[13:13:55.459]                 {
[13:13:55.459]                   {
[13:13:55.459]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:55.459]                     NULL
[13:13:55.459]                   }
[13:13:55.459]                   options(future.plan = NULL)
[13:13:55.459]                   if (is.na(NA_character_)) 
[13:13:55.459]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:55.459]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:55.459]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:55.459]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:55.459]                     envir = parent.frame()) 
[13:13:55.459]                   {
[13:13:55.459]                     if (is.function(workers)) 
[13:13:55.459]                       workers <- workers()
[13:13:55.459]                     workers <- structure(as.integer(workers), 
[13:13:55.459]                       class = class(workers))
[13:13:55.459]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:55.459]                       workers >= 1)
[13:13:55.459]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:55.459]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:55.459]                     }
[13:13:55.459]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:55.459]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:55.459]                       envir = envir)
[13:13:55.459]                     if (!future$lazy) 
[13:13:55.459]                       future <- run(future)
[13:13:55.459]                     invisible(future)
[13:13:55.459]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:55.459]                 }
[13:13:55.459]             }
[13:13:55.459]         }
[13:13:55.459]     })
[13:13:55.459]     if (TRUE) {
[13:13:55.459]         base::sink(type = "output", split = FALSE)
[13:13:55.459]         if (TRUE) {
[13:13:55.459]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:55.459]         }
[13:13:55.459]         else {
[13:13:55.459]             ...future.result["stdout"] <- base::list(NULL)
[13:13:55.459]         }
[13:13:55.459]         base::close(...future.stdout)
[13:13:55.459]         ...future.stdout <- NULL
[13:13:55.459]     }
[13:13:55.459]     ...future.result$conditions <- ...future.conditions
[13:13:55.459]     ...future.result$finished <- base::Sys.time()
[13:13:55.459]     ...future.result
[13:13:55.459] }
[13:13:55.465] Exporting 5 global objects (3.57 KiB) to cluster node #1 ...
[13:13:55.465] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ...
[13:13:55.465] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ... DONE
[13:13:55.465] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:55.466] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:55.466] Exporting '...future.elements_ii' (336 bytes) to cluster node #1 ...
[13:13:55.467] Exporting '...future.elements_ii' (336 bytes) to cluster node #1 ... DONE
[13:13:55.467] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:55.467] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:55.467] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:55.468] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:55.468] Exporting 5 global objects (3.57 KiB) to cluster node #1 ... DONE
[13:13:55.469] MultisessionFuture started
[13:13:55.469] - Launch lazy future ... done
[13:13:55.469] run() for 'MultisessionFuture' ... done
[13:13:55.469] Created future:
[13:13:55.486] receiveMessageFromWorker() for ClusterFuture ...
[13:13:55.487] - Validating connection of MultisessionFuture
[13:13:55.487] - received message: FutureResult
[13:13:55.487] - Received FutureResult
[13:13:55.487] - Erased future from FutureRegistry
[13:13:55.487] result() for ClusterFuture ...
[13:13:55.488] - result already collected: FutureResult
[13:13:55.488] result() for ClusterFuture ... done
[13:13:55.488] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:55.469] MultisessionFuture:
[13:13:55.469] Label: 'future_mapply-1'
[13:13:55.469] Expression:
[13:13:55.469] {
[13:13:55.469]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:55.469]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:55.469]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:55.469]         on.exit(options(oopts), add = TRUE)
[13:13:55.469]     }
[13:13:55.469]     {
[13:13:55.469]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:55.469]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:55.469]         do.call(mapply, args = args)
[13:13:55.469]     }
[13:13:55.469] }
[13:13:55.469] Lazy evaluation: FALSE
[13:13:55.469] Asynchronous evaluation: TRUE
[13:13:55.469] Local evaluation: TRUE
[13:13:55.469] Environment: R_GlobalEnv
[13:13:55.469] Capture standard output: TRUE
[13:13:55.469] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:55.469] Globals: 5 objects totaling 3.57 KiB (function '...future.FUN' of 3.24 KiB, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 336 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:55.469] Packages: <none>
[13:13:55.469] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:55.469] Resolved: TRUE
[13:13:55.469] Value: <not collected>
[13:13:55.469] Conditions captured: <none>
[13:13:55.469] Early signaling: FALSE
[13:13:55.469] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:55.469] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:55.488] Chunk #1 of 3 ... DONE
[13:13:55.488] Chunk #2 of 3 ...
[13:13:55.489]  - Finding globals in '...' for chunk #2 ...
[13:13:55.489] getGlobalsAndPackages() ...
[13:13:55.489] Searching for globals...
[13:13:55.489] 
[13:13:55.489] Searching for globals ... DONE
[13:13:55.490] - globals: [0] <none>
[13:13:55.490] getGlobalsAndPackages() ... DONE
[13:13:55.490]    + additional globals found: [n=0] 
[13:13:55.490]    + additional namespaces needed: [n=0] 
[13:13:55.490]  - Finding globals in '...' for chunk #2 ... DONE
[13:13:55.490]  - Adjusted option 'future.globals.maxSize': 524288000 -> 3 * 524288000 = 1572864000 (bytes)
[13:13:55.490]  - seeds: <none>
[13:13:55.491]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.491] getGlobalsAndPackages() ...
[13:13:55.491] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.491] Resolving globals: FALSE
[13:13:55.492] The total size of the 5 globals is 3.41 KiB (3488 bytes)
[13:13:55.492] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 3.41 KiB.. This exceeds the maximum allowed size of 1.46 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (3.24 KiB of class 'function'), '...future.elements_ii' (168 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:55.492] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.493] 
[13:13:55.493] getGlobalsAndPackages() ... DONE
[13:13:55.493] run() for 'Future' ...
[13:13:55.493] - state: 'created'
[13:13:55.494] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:55.507] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:55.507] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:55.507]   - Field: 'node'
[13:13:55.507]   - Field: 'label'
[13:13:55.508]   - Field: 'local'
[13:13:55.508]   - Field: 'owner'
[13:13:55.508]   - Field: 'envir'
[13:13:55.508]   - Field: 'workers'
[13:13:55.508]   - Field: 'packages'
[13:13:55.508]   - Field: 'gc'
[13:13:55.509]   - Field: 'conditions'
[13:13:55.509]   - Field: 'persistent'
[13:13:55.509]   - Field: 'expr'
[13:13:55.509]   - Field: 'uuid'
[13:13:55.509]   - Field: 'seed'
[13:13:55.510]   - Field: 'version'
[13:13:55.510]   - Field: 'result'
[13:13:55.510]   - Field: 'asynchronous'
[13:13:55.510]   - Field: 'calls'
[13:13:55.510]   - Field: 'globals'
[13:13:55.510]   - Field: 'stdout'
[13:13:55.511]   - Field: 'earlySignal'
[13:13:55.511]   - Field: 'lazy'
[13:13:55.511]   - Field: 'state'
[13:13:55.511] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:55.511] - Launch lazy future ...
[13:13:55.512] Packages needed by the future expression (n = 0): <none>
[13:13:55.512] Packages needed by future strategies (n = 0): <none>
[13:13:55.512] {
[13:13:55.512]     {
[13:13:55.512]         {
[13:13:55.512]             ...future.startTime <- base::Sys.time()
[13:13:55.512]             {
[13:13:55.512]                 {
[13:13:55.512]                   {
[13:13:55.512]                     {
[13:13:55.512]                       base::local({
[13:13:55.512]                         has_future <- base::requireNamespace("future", 
[13:13:55.512]                           quietly = TRUE)
[13:13:55.512]                         if (has_future) {
[13:13:55.512]                           ns <- base::getNamespace("future")
[13:13:55.512]                           version <- ns[[".package"]][["version"]]
[13:13:55.512]                           if (is.null(version)) 
[13:13:55.512]                             version <- utils::packageVersion("future")
[13:13:55.512]                         }
[13:13:55.512]                         else {
[13:13:55.512]                           version <- NULL
[13:13:55.512]                         }
[13:13:55.512]                         if (!has_future || version < "1.8.0") {
[13:13:55.512]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:55.512]                             "", base::R.version$version.string), 
[13:13:55.512]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:55.512]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:55.512]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:55.512]                               "release", "version")], collapse = " "), 
[13:13:55.512]                             hostname = base::Sys.info()[["nodename"]])
[13:13:55.512]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:55.512]                             info)
[13:13:55.512]                           info <- base::paste(info, collapse = "; ")
[13:13:55.512]                           if (!has_future) {
[13:13:55.512]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:55.512]                               info)
[13:13:55.512]                           }
[13:13:55.512]                           else {
[13:13:55.512]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:55.512]                               info, version)
[13:13:55.512]                           }
[13:13:55.512]                           base::stop(msg)
[13:13:55.512]                         }
[13:13:55.512]                       })
[13:13:55.512]                     }
[13:13:55.512]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:55.512]                     base::options(mc.cores = 1L)
[13:13:55.512]                   }
[13:13:55.512]                   options(future.plan = NULL)
[13:13:55.512]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:55.512]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:55.512]                 }
[13:13:55.512]                 ...future.workdir <- getwd()
[13:13:55.512]             }
[13:13:55.512]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:55.512]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:55.512]         }
[13:13:55.512]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:55.512]             future.globals.maxSize = 1572864000, future.globals.method = NULL, 
[13:13:55.512]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:55.512]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:55.512]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:55.512]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:55.512]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:55.512]             base::names(...future.oldOptions))
[13:13:55.512]     }
[13:13:55.512]     if (FALSE) {
[13:13:55.512]     }
[13:13:55.512]     else {
[13:13:55.512]         if (TRUE) {
[13:13:55.512]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:55.512]                 open = "w")
[13:13:55.512]         }
[13:13:55.512]         else {
[13:13:55.512]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:55.512]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:55.512]         }
[13:13:55.512]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:55.512]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:55.512]             base::sink(type = "output", split = FALSE)
[13:13:55.512]             base::close(...future.stdout)
[13:13:55.512]         }, add = TRUE)
[13:13:55.512]     }
[13:13:55.512]     ...future.frame <- base::sys.nframe()
[13:13:55.512]     ...future.conditions <- base::list()
[13:13:55.512]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:55.512]     if (FALSE) {
[13:13:55.512]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:55.512]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:55.512]     }
[13:13:55.512]     ...future.result <- base::tryCatch({
[13:13:55.512]         base::withCallingHandlers({
[13:13:55.512]             ...future.value <- base::withVisible(base::local({
[13:13:55.512]                 ...future.makeSendCondition <- local({
[13:13:55.512]                   sendCondition <- NULL
[13:13:55.512]                   function(frame = 1L) {
[13:13:55.512]                     if (is.function(sendCondition)) 
[13:13:55.512]                       return(sendCondition)
[13:13:55.512]                     ns <- getNamespace("parallel")
[13:13:55.512]                     if (exists("sendData", mode = "function", 
[13:13:55.512]                       envir = ns)) {
[13:13:55.512]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:55.512]                         envir = ns)
[13:13:55.512]                       envir <- sys.frame(frame)
[13:13:55.512]                       master <- NULL
[13:13:55.512]                       while (!identical(envir, .GlobalEnv) && 
[13:13:55.512]                         !identical(envir, emptyenv())) {
[13:13:55.512]                         if (exists("master", mode = "list", envir = envir, 
[13:13:55.512]                           inherits = FALSE)) {
[13:13:55.512]                           master <- get("master", mode = "list", 
[13:13:55.512]                             envir = envir, inherits = FALSE)
[13:13:55.512]                           if (inherits(master, c("SOCKnode", 
[13:13:55.512]                             "SOCK0node"))) {
[13:13:55.512]                             sendCondition <<- function(cond) {
[13:13:55.512]                               data <- list(type = "VALUE", value = cond, 
[13:13:55.512]                                 success = TRUE)
[13:13:55.512]                               parallel_sendData(master, data)
[13:13:55.512]                             }
[13:13:55.512]                             return(sendCondition)
[13:13:55.512]                           }
[13:13:55.512]                         }
[13:13:55.512]                         frame <- frame + 1L
[13:13:55.512]                         envir <- sys.frame(frame)
[13:13:55.512]                       }
[13:13:55.512]                     }
[13:13:55.512]                     sendCondition <<- function(cond) NULL
[13:13:55.512]                   }
[13:13:55.512]                 })
[13:13:55.512]                 withCallingHandlers({
[13:13:55.512]                   {
[13:13:55.512]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:55.512]                     if (!identical(...future.globals.maxSize.org, 
[13:13:55.512]                       ...future.globals.maxSize)) {
[13:13:55.512]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:55.512]                       on.exit(options(oopts), add = TRUE)
[13:13:55.512]                     }
[13:13:55.512]                     {
[13:13:55.512]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:55.512]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:55.512]                         USE.NAMES = FALSE)
[13:13:55.512]                       do.call(mapply, args = args)
[13:13:55.512]                     }
[13:13:55.512]                   }
[13:13:55.512]                 }, immediateCondition = function(cond) {
[13:13:55.512]                   sendCondition <- ...future.makeSendCondition()
[13:13:55.512]                   sendCondition(cond)
[13:13:55.512]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.512]                   {
[13:13:55.512]                     inherits <- base::inherits
[13:13:55.512]                     invokeRestart <- base::invokeRestart
[13:13:55.512]                     is.null <- base::is.null
[13:13:55.512]                     muffled <- FALSE
[13:13:55.512]                     if (inherits(cond, "message")) {
[13:13:55.512]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:55.512]                       if (muffled) 
[13:13:55.512]                         invokeRestart("muffleMessage")
[13:13:55.512]                     }
[13:13:55.512]                     else if (inherits(cond, "warning")) {
[13:13:55.512]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:55.512]                       if (muffled) 
[13:13:55.512]                         invokeRestart("muffleWarning")
[13:13:55.512]                     }
[13:13:55.512]                     else if (inherits(cond, "condition")) {
[13:13:55.512]                       if (!is.null(pattern)) {
[13:13:55.512]                         computeRestarts <- base::computeRestarts
[13:13:55.512]                         grepl <- base::grepl
[13:13:55.512]                         restarts <- computeRestarts(cond)
[13:13:55.512]                         for (restart in restarts) {
[13:13:55.512]                           name <- restart$name
[13:13:55.512]                           if (is.null(name)) 
[13:13:55.512]                             next
[13:13:55.512]                           if (!grepl(pattern, name)) 
[13:13:55.512]                             next
[13:13:55.512]                           invokeRestart(restart)
[13:13:55.512]                           muffled <- TRUE
[13:13:55.512]                           break
[13:13:55.512]                         }
[13:13:55.512]                       }
[13:13:55.512]                     }
[13:13:55.512]                     invisible(muffled)
[13:13:55.512]                   }
[13:13:55.512]                   muffleCondition(cond)
[13:13:55.512]                 })
[13:13:55.512]             }))
[13:13:55.512]             future::FutureResult(value = ...future.value$value, 
[13:13:55.512]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:55.512]                   ...future.rng), globalenv = if (FALSE) 
[13:13:55.512]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:55.512]                     ...future.globalenv.names))
[13:13:55.512]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:55.512]         }, condition = base::local({
[13:13:55.512]             c <- base::c
[13:13:55.512]             inherits <- base::inherits
[13:13:55.512]             invokeRestart <- base::invokeRestart
[13:13:55.512]             length <- base::length
[13:13:55.512]             list <- base::list
[13:13:55.512]             seq.int <- base::seq.int
[13:13:55.512]             signalCondition <- base::signalCondition
[13:13:55.512]             sys.calls <- base::sys.calls
[13:13:55.512]             `[[` <- base::`[[`
[13:13:55.512]             `+` <- base::`+`
[13:13:55.512]             `<<-` <- base::`<<-`
[13:13:55.512]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:55.512]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:55.512]                   3L)]
[13:13:55.512]             }
[13:13:55.512]             function(cond) {
[13:13:55.512]                 is_error <- inherits(cond, "error")
[13:13:55.512]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:55.512]                   NULL)
[13:13:55.512]                 if (is_error) {
[13:13:55.512]                   sessionInformation <- function() {
[13:13:55.512]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:55.512]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:55.512]                       search = base::search(), system = base::Sys.info())
[13:13:55.512]                   }
[13:13:55.512]                   ...future.conditions[[length(...future.conditions) + 
[13:13:55.512]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:55.512]                     cond$call), session = sessionInformation(), 
[13:13:55.512]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:55.512]                   signalCondition(cond)
[13:13:55.512]                 }
[13:13:55.512]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:55.512]                 "immediateCondition"))) {
[13:13:55.512]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:55.512]                   ...future.conditions[[length(...future.conditions) + 
[13:13:55.512]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:55.512]                   if (TRUE && !signal) {
[13:13:55.512]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.512]                     {
[13:13:55.512]                       inherits <- base::inherits
[13:13:55.512]                       invokeRestart <- base::invokeRestart
[13:13:55.512]                       is.null <- base::is.null
[13:13:55.512]                       muffled <- FALSE
[13:13:55.512]                       if (inherits(cond, "message")) {
[13:13:55.512]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:55.512]                         if (muffled) 
[13:13:55.512]                           invokeRestart("muffleMessage")
[13:13:55.512]                       }
[13:13:55.512]                       else if (inherits(cond, "warning")) {
[13:13:55.512]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:55.512]                         if (muffled) 
[13:13:55.512]                           invokeRestart("muffleWarning")
[13:13:55.512]                       }
[13:13:55.512]                       else if (inherits(cond, "condition")) {
[13:13:55.512]                         if (!is.null(pattern)) {
[13:13:55.512]                           computeRestarts <- base::computeRestarts
[13:13:55.512]                           grepl <- base::grepl
[13:13:55.512]                           restarts <- computeRestarts(cond)
[13:13:55.512]                           for (restart in restarts) {
[13:13:55.512]                             name <- restart$name
[13:13:55.512]                             if (is.null(name)) 
[13:13:55.512]                               next
[13:13:55.512]                             if (!grepl(pattern, name)) 
[13:13:55.512]                               next
[13:13:55.512]                             invokeRestart(restart)
[13:13:55.512]                             muffled <- TRUE
[13:13:55.512]                             break
[13:13:55.512]                           }
[13:13:55.512]                         }
[13:13:55.512]                       }
[13:13:55.512]                       invisible(muffled)
[13:13:55.512]                     }
[13:13:55.512]                     muffleCondition(cond, pattern = "^muffle")
[13:13:55.512]                   }
[13:13:55.512]                 }
[13:13:55.512]                 else {
[13:13:55.512]                   if (TRUE) {
[13:13:55.512]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.512]                     {
[13:13:55.512]                       inherits <- base::inherits
[13:13:55.512]                       invokeRestart <- base::invokeRestart
[13:13:55.512]                       is.null <- base::is.null
[13:13:55.512]                       muffled <- FALSE
[13:13:55.512]                       if (inherits(cond, "message")) {
[13:13:55.512]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:55.512]                         if (muffled) 
[13:13:55.512]                           invokeRestart("muffleMessage")
[13:13:55.512]                       }
[13:13:55.512]                       else if (inherits(cond, "warning")) {
[13:13:55.512]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:55.512]                         if (muffled) 
[13:13:55.512]                           invokeRestart("muffleWarning")
[13:13:55.512]                       }
[13:13:55.512]                       else if (inherits(cond, "condition")) {
[13:13:55.512]                         if (!is.null(pattern)) {
[13:13:55.512]                           computeRestarts <- base::computeRestarts
[13:13:55.512]                           grepl <- base::grepl
[13:13:55.512]                           restarts <- computeRestarts(cond)
[13:13:55.512]                           for (restart in restarts) {
[13:13:55.512]                             name <- restart$name
[13:13:55.512]                             if (is.null(name)) 
[13:13:55.512]                               next
[13:13:55.512]                             if (!grepl(pattern, name)) 
[13:13:55.512]                               next
[13:13:55.512]                             invokeRestart(restart)
[13:13:55.512]                             muffled <- TRUE
[13:13:55.512]                             break
[13:13:55.512]                           }
[13:13:55.512]                         }
[13:13:55.512]                       }
[13:13:55.512]                       invisible(muffled)
[13:13:55.512]                     }
[13:13:55.512]                     muffleCondition(cond, pattern = "^muffle")
[13:13:55.512]                   }
[13:13:55.512]                 }
[13:13:55.512]             }
[13:13:55.512]         }))
[13:13:55.512]     }, error = function(ex) {
[13:13:55.512]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:55.512]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:55.512]                 ...future.rng), started = ...future.startTime, 
[13:13:55.512]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:55.512]             version = "1.8"), class = "FutureResult")
[13:13:55.512]     }, finally = {
[13:13:55.512]         if (!identical(...future.workdir, getwd())) 
[13:13:55.512]             setwd(...future.workdir)
[13:13:55.512]         {
[13:13:55.512]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:55.512]                 ...future.oldOptions$nwarnings <- NULL
[13:13:55.512]             }
[13:13:55.512]             base::options(...future.oldOptions)
[13:13:55.512]             if (.Platform$OS.type == "windows") {
[13:13:55.512]                 old_names <- names(...future.oldEnvVars)
[13:13:55.512]                 envs <- base::Sys.getenv()
[13:13:55.512]                 names <- names(envs)
[13:13:55.512]                 common <- intersect(names, old_names)
[13:13:55.512]                 added <- setdiff(names, old_names)
[13:13:55.512]                 removed <- setdiff(old_names, names)
[13:13:55.512]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:55.512]                   envs[common]]
[13:13:55.512]                 NAMES <- toupper(changed)
[13:13:55.512]                 args <- list()
[13:13:55.512]                 for (kk in seq_along(NAMES)) {
[13:13:55.512]                   name <- changed[[kk]]
[13:13:55.512]                   NAME <- NAMES[[kk]]
[13:13:55.512]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.512]                     next
[13:13:55.512]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:55.512]                 }
[13:13:55.512]                 NAMES <- toupper(added)
[13:13:55.512]                 for (kk in seq_along(NAMES)) {
[13:13:55.512]                   name <- added[[kk]]
[13:13:55.512]                   NAME <- NAMES[[kk]]
[13:13:55.512]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.512]                     next
[13:13:55.512]                   args[[name]] <- ""
[13:13:55.512]                 }
[13:13:55.512]                 NAMES <- toupper(removed)
[13:13:55.512]                 for (kk in seq_along(NAMES)) {
[13:13:55.512]                   name <- removed[[kk]]
[13:13:55.512]                   NAME <- NAMES[[kk]]
[13:13:55.512]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.512]                     next
[13:13:55.512]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:55.512]                 }
[13:13:55.512]                 if (length(args) > 0) 
[13:13:55.512]                   base::do.call(base::Sys.setenv, args = args)
[13:13:55.512]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:55.512]             }
[13:13:55.512]             else {
[13:13:55.512]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:55.512]             }
[13:13:55.512]             {
[13:13:55.512]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:55.512]                   0L) {
[13:13:55.512]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:55.512]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:55.512]                   base::options(opts)
[13:13:55.512]                 }
[13:13:55.512]                 {
[13:13:55.512]                   {
[13:13:55.512]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:55.512]                     NULL
[13:13:55.512]                   }
[13:13:55.512]                   options(future.plan = NULL)
[13:13:55.512]                   if (is.na(NA_character_)) 
[13:13:55.512]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:55.512]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:55.512]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:55.512]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:55.512]                     envir = parent.frame()) 
[13:13:55.512]                   {
[13:13:55.512]                     if (is.function(workers)) 
[13:13:55.512]                       workers <- workers()
[13:13:55.512]                     workers <- structure(as.integer(workers), 
[13:13:55.512]                       class = class(workers))
[13:13:55.512]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:55.512]                       workers >= 1)
[13:13:55.512]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:55.512]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:55.512]                     }
[13:13:55.512]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:55.512]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:55.512]                       envir = envir)
[13:13:55.512]                     if (!future$lazy) 
[13:13:55.512]                       future <- run(future)
[13:13:55.512]                     invisible(future)
[13:13:55.512]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:55.512]                 }
[13:13:55.512]             }
[13:13:55.512]         }
[13:13:55.512]     })
[13:13:55.512]     if (TRUE) {
[13:13:55.512]         base::sink(type = "output", split = FALSE)
[13:13:55.512]         if (TRUE) {
[13:13:55.512]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:55.512]         }
[13:13:55.512]         else {
[13:13:55.512]             ...future.result["stdout"] <- base::list(NULL)
[13:13:55.512]         }
[13:13:55.512]         base::close(...future.stdout)
[13:13:55.512]         ...future.stdout <- NULL
[13:13:55.512]     }
[13:13:55.512]     ...future.result$conditions <- ...future.conditions
[13:13:55.512]     ...future.result$finished <- base::Sys.time()
[13:13:55.512]     ...future.result
[13:13:55.512] }
[13:13:55.518] Exporting 5 global objects (3.41 KiB) to cluster node #1 ...
[13:13:55.518] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ...
[13:13:55.518] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ... DONE
[13:13:55.519] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:55.519] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:55.519] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ...
[13:13:55.520] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ... DONE
[13:13:55.520] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:55.520] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:55.521] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:55.521] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:55.521] Exporting 5 global objects (3.41 KiB) to cluster node #1 ... DONE
[13:13:55.522] MultisessionFuture started
[13:13:55.522] - Launch lazy future ... done
[13:13:55.522] run() for 'MultisessionFuture' ... done
[13:13:55.523] Created future:
[13:13:55.538] receiveMessageFromWorker() for ClusterFuture ...
[13:13:55.538] - Validating connection of MultisessionFuture
[13:13:55.539] - received message: FutureResult
[13:13:55.539] - Received FutureResult
[13:13:55.539] - Erased future from FutureRegistry
[13:13:55.539] result() for ClusterFuture ...
[13:13:55.539] - result already collected: FutureResult
[13:13:55.540] result() for ClusterFuture ... done
[13:13:55.540] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:55.523] MultisessionFuture:
[13:13:55.523] Label: 'future_mapply-2'
[13:13:55.523] Expression:
[13:13:55.523] {
[13:13:55.523]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:55.523]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:55.523]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:55.523]         on.exit(options(oopts), add = TRUE)
[13:13:55.523]     }
[13:13:55.523]     {
[13:13:55.523]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:55.523]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:55.523]         do.call(mapply, args = args)
[13:13:55.523]     }
[13:13:55.523] }
[13:13:55.523] Lazy evaluation: FALSE
[13:13:55.523] Asynchronous evaluation: TRUE
[13:13:55.523] Local evaluation: TRUE
[13:13:55.523] Environment: R_GlobalEnv
[13:13:55.523] Capture standard output: TRUE
[13:13:55.523] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:55.523] Globals: 5 objects totaling 3.41 KiB (function '...future.FUN' of 3.24 KiB, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 168 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:55.523] Packages: <none>
[13:13:55.523] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:55.523] Resolved: TRUE
[13:13:55.523] Value: <not collected>
[13:13:55.523] Conditions captured: <none>
[13:13:55.523] Early signaling: FALSE
[13:13:55.523] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:55.523] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:55.540] Chunk #2 of 3 ... DONE
[13:13:55.540] Chunk #3 of 3 ...
[13:13:55.541]  - Finding globals in '...' for chunk #3 ...
[13:13:55.541] getGlobalsAndPackages() ...
[13:13:55.541] Searching for globals...
[13:13:55.541] 
[13:13:55.541] Searching for globals ... DONE
[13:13:55.542] - globals: [0] <none>
[13:13:55.542] getGlobalsAndPackages() ... DONE
[13:13:55.542]    + additional globals found: [n=0] 
[13:13:55.542]    + additional namespaces needed: [n=0] 
[13:13:55.542]  - Finding globals in '...' for chunk #3 ... DONE
[13:13:55.542]  - Adjusted option 'future.globals.maxSize': 524288000 -> 3 * 524288000 = 1572864000 (bytes)
[13:13:55.543]  - seeds: <none>
[13:13:55.543]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.543] getGlobalsAndPackages() ...
[13:13:55.543] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.543] Resolving globals: FALSE
[13:13:55.544] The total size of the 5 globals is 3.57 KiB (3656 bytes)
[13:13:55.544] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 3.57 KiB.. This exceeds the maximum allowed size of 1.46 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (3.24 KiB of class 'function'), '...future.elements_ii' (336 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:55.545] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.545] 
[13:13:55.545] getGlobalsAndPackages() ... DONE
[13:13:55.545] run() for 'Future' ...
[13:13:55.546] - state: 'created'
[13:13:55.546] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:55.560] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:55.560] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:55.561]   - Field: 'node'
[13:13:55.561]   - Field: 'label'
[13:13:55.561]   - Field: 'local'
[13:13:55.561]   - Field: 'owner'
[13:13:55.561]   - Field: 'envir'
[13:13:55.562]   - Field: 'workers'
[13:13:55.562]   - Field: 'packages'
[13:13:55.562]   - Field: 'gc'
[13:13:55.562]   - Field: 'conditions'
[13:13:55.562]   - Field: 'persistent'
[13:13:55.562]   - Field: 'expr'
[13:13:55.563]   - Field: 'uuid'
[13:13:55.563]   - Field: 'seed'
[13:13:55.563]   - Field: 'version'
[13:13:55.563]   - Field: 'result'
[13:13:55.563]   - Field: 'asynchronous'
[13:13:55.563]   - Field: 'calls'
[13:13:55.564]   - Field: 'globals'
[13:13:55.564]   - Field: 'stdout'
[13:13:55.564]   - Field: 'earlySignal'
[13:13:55.564]   - Field: 'lazy'
[13:13:55.564]   - Field: 'state'
[13:13:55.564] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:55.565] - Launch lazy future ...
[13:13:55.565] Packages needed by the future expression (n = 0): <none>
[13:13:55.565] Packages needed by future strategies (n = 0): <none>
[13:13:55.566] {
[13:13:55.566]     {
[13:13:55.566]         {
[13:13:55.566]             ...future.startTime <- base::Sys.time()
[13:13:55.566]             {
[13:13:55.566]                 {
[13:13:55.566]                   {
[13:13:55.566]                     {
[13:13:55.566]                       base::local({
[13:13:55.566]                         has_future <- base::requireNamespace("future", 
[13:13:55.566]                           quietly = TRUE)
[13:13:55.566]                         if (has_future) {
[13:13:55.566]                           ns <- base::getNamespace("future")
[13:13:55.566]                           version <- ns[[".package"]][["version"]]
[13:13:55.566]                           if (is.null(version)) 
[13:13:55.566]                             version <- utils::packageVersion("future")
[13:13:55.566]                         }
[13:13:55.566]                         else {
[13:13:55.566]                           version <- NULL
[13:13:55.566]                         }
[13:13:55.566]                         if (!has_future || version < "1.8.0") {
[13:13:55.566]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:55.566]                             "", base::R.version$version.string), 
[13:13:55.566]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:55.566]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:55.566]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:55.566]                               "release", "version")], collapse = " "), 
[13:13:55.566]                             hostname = base::Sys.info()[["nodename"]])
[13:13:55.566]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:55.566]                             info)
[13:13:55.566]                           info <- base::paste(info, collapse = "; ")
[13:13:55.566]                           if (!has_future) {
[13:13:55.566]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:55.566]                               info)
[13:13:55.566]                           }
[13:13:55.566]                           else {
[13:13:55.566]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:55.566]                               info, version)
[13:13:55.566]                           }
[13:13:55.566]                           base::stop(msg)
[13:13:55.566]                         }
[13:13:55.566]                       })
[13:13:55.566]                     }
[13:13:55.566]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:55.566]                     base::options(mc.cores = 1L)
[13:13:55.566]                   }
[13:13:55.566]                   options(future.plan = NULL)
[13:13:55.566]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:55.566]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:55.566]                 }
[13:13:55.566]                 ...future.workdir <- getwd()
[13:13:55.566]             }
[13:13:55.566]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:55.566]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:55.566]         }
[13:13:55.566]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:55.566]             future.globals.maxSize = 1572864000, future.globals.method = NULL, 
[13:13:55.566]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:55.566]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:55.566]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:55.566]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:55.566]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:55.566]             base::names(...future.oldOptions))
[13:13:55.566]     }
[13:13:55.566]     if (FALSE) {
[13:13:55.566]     }
[13:13:55.566]     else {
[13:13:55.566]         if (TRUE) {
[13:13:55.566]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:55.566]                 open = "w")
[13:13:55.566]         }
[13:13:55.566]         else {
[13:13:55.566]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:55.566]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:55.566]         }
[13:13:55.566]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:55.566]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:55.566]             base::sink(type = "output", split = FALSE)
[13:13:55.566]             base::close(...future.stdout)
[13:13:55.566]         }, add = TRUE)
[13:13:55.566]     }
[13:13:55.566]     ...future.frame <- base::sys.nframe()
[13:13:55.566]     ...future.conditions <- base::list()
[13:13:55.566]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:55.566]     if (FALSE) {
[13:13:55.566]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:55.566]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:55.566]     }
[13:13:55.566]     ...future.result <- base::tryCatch({
[13:13:55.566]         base::withCallingHandlers({
[13:13:55.566]             ...future.value <- base::withVisible(base::local({
[13:13:55.566]                 ...future.makeSendCondition <- local({
[13:13:55.566]                   sendCondition <- NULL
[13:13:55.566]                   function(frame = 1L) {
[13:13:55.566]                     if (is.function(sendCondition)) 
[13:13:55.566]                       return(sendCondition)
[13:13:55.566]                     ns <- getNamespace("parallel")
[13:13:55.566]                     if (exists("sendData", mode = "function", 
[13:13:55.566]                       envir = ns)) {
[13:13:55.566]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:55.566]                         envir = ns)
[13:13:55.566]                       envir <- sys.frame(frame)
[13:13:55.566]                       master <- NULL
[13:13:55.566]                       while (!identical(envir, .GlobalEnv) && 
[13:13:55.566]                         !identical(envir, emptyenv())) {
[13:13:55.566]                         if (exists("master", mode = "list", envir = envir, 
[13:13:55.566]                           inherits = FALSE)) {
[13:13:55.566]                           master <- get("master", mode = "list", 
[13:13:55.566]                             envir = envir, inherits = FALSE)
[13:13:55.566]                           if (inherits(master, c("SOCKnode", 
[13:13:55.566]                             "SOCK0node"))) {
[13:13:55.566]                             sendCondition <<- function(cond) {
[13:13:55.566]                               data <- list(type = "VALUE", value = cond, 
[13:13:55.566]                                 success = TRUE)
[13:13:55.566]                               parallel_sendData(master, data)
[13:13:55.566]                             }
[13:13:55.566]                             return(sendCondition)
[13:13:55.566]                           }
[13:13:55.566]                         }
[13:13:55.566]                         frame <- frame + 1L
[13:13:55.566]                         envir <- sys.frame(frame)
[13:13:55.566]                       }
[13:13:55.566]                     }
[13:13:55.566]                     sendCondition <<- function(cond) NULL
[13:13:55.566]                   }
[13:13:55.566]                 })
[13:13:55.566]                 withCallingHandlers({
[13:13:55.566]                   {
[13:13:55.566]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:55.566]                     if (!identical(...future.globals.maxSize.org, 
[13:13:55.566]                       ...future.globals.maxSize)) {
[13:13:55.566]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:55.566]                       on.exit(options(oopts), add = TRUE)
[13:13:55.566]                     }
[13:13:55.566]                     {
[13:13:55.566]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:55.566]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:55.566]                         USE.NAMES = FALSE)
[13:13:55.566]                       do.call(mapply, args = args)
[13:13:55.566]                     }
[13:13:55.566]                   }
[13:13:55.566]                 }, immediateCondition = function(cond) {
[13:13:55.566]                   sendCondition <- ...future.makeSendCondition()
[13:13:55.566]                   sendCondition(cond)
[13:13:55.566]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.566]                   {
[13:13:55.566]                     inherits <- base::inherits
[13:13:55.566]                     invokeRestart <- base::invokeRestart
[13:13:55.566]                     is.null <- base::is.null
[13:13:55.566]                     muffled <- FALSE
[13:13:55.566]                     if (inherits(cond, "message")) {
[13:13:55.566]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:55.566]                       if (muffled) 
[13:13:55.566]                         invokeRestart("muffleMessage")
[13:13:55.566]                     }
[13:13:55.566]                     else if (inherits(cond, "warning")) {
[13:13:55.566]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:55.566]                       if (muffled) 
[13:13:55.566]                         invokeRestart("muffleWarning")
[13:13:55.566]                     }
[13:13:55.566]                     else if (inherits(cond, "condition")) {
[13:13:55.566]                       if (!is.null(pattern)) {
[13:13:55.566]                         computeRestarts <- base::computeRestarts
[13:13:55.566]                         grepl <- base::grepl
[13:13:55.566]                         restarts <- computeRestarts(cond)
[13:13:55.566]                         for (restart in restarts) {
[13:13:55.566]                           name <- restart$name
[13:13:55.566]                           if (is.null(name)) 
[13:13:55.566]                             next
[13:13:55.566]                           if (!grepl(pattern, name)) 
[13:13:55.566]                             next
[13:13:55.566]                           invokeRestart(restart)
[13:13:55.566]                           muffled <- TRUE
[13:13:55.566]                           break
[13:13:55.566]                         }
[13:13:55.566]                       }
[13:13:55.566]                     }
[13:13:55.566]                     invisible(muffled)
[13:13:55.566]                   }
[13:13:55.566]                   muffleCondition(cond)
[13:13:55.566]                 })
[13:13:55.566]             }))
[13:13:55.566]             future::FutureResult(value = ...future.value$value, 
[13:13:55.566]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:55.566]                   ...future.rng), globalenv = if (FALSE) 
[13:13:55.566]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:55.566]                     ...future.globalenv.names))
[13:13:55.566]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:55.566]         }, condition = base::local({
[13:13:55.566]             c <- base::c
[13:13:55.566]             inherits <- base::inherits
[13:13:55.566]             invokeRestart <- base::invokeRestart
[13:13:55.566]             length <- base::length
[13:13:55.566]             list <- base::list
[13:13:55.566]             seq.int <- base::seq.int
[13:13:55.566]             signalCondition <- base::signalCondition
[13:13:55.566]             sys.calls <- base::sys.calls
[13:13:55.566]             `[[` <- base::`[[`
[13:13:55.566]             `+` <- base::`+`
[13:13:55.566]             `<<-` <- base::`<<-`
[13:13:55.566]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:55.566]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:55.566]                   3L)]
[13:13:55.566]             }
[13:13:55.566]             function(cond) {
[13:13:55.566]                 is_error <- inherits(cond, "error")
[13:13:55.566]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:55.566]                   NULL)
[13:13:55.566]                 if (is_error) {
[13:13:55.566]                   sessionInformation <- function() {
[13:13:55.566]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:55.566]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:55.566]                       search = base::search(), system = base::Sys.info())
[13:13:55.566]                   }
[13:13:55.566]                   ...future.conditions[[length(...future.conditions) + 
[13:13:55.566]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:55.566]                     cond$call), session = sessionInformation(), 
[13:13:55.566]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:55.566]                   signalCondition(cond)
[13:13:55.566]                 }
[13:13:55.566]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:55.566]                 "immediateCondition"))) {
[13:13:55.566]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:55.566]                   ...future.conditions[[length(...future.conditions) + 
[13:13:55.566]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:55.566]                   if (TRUE && !signal) {
[13:13:55.566]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.566]                     {
[13:13:55.566]                       inherits <- base::inherits
[13:13:55.566]                       invokeRestart <- base::invokeRestart
[13:13:55.566]                       is.null <- base::is.null
[13:13:55.566]                       muffled <- FALSE
[13:13:55.566]                       if (inherits(cond, "message")) {
[13:13:55.566]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:55.566]                         if (muffled) 
[13:13:55.566]                           invokeRestart("muffleMessage")
[13:13:55.566]                       }
[13:13:55.566]                       else if (inherits(cond, "warning")) {
[13:13:55.566]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:55.566]                         if (muffled) 
[13:13:55.566]                           invokeRestart("muffleWarning")
[13:13:55.566]                       }
[13:13:55.566]                       else if (inherits(cond, "condition")) {
[13:13:55.566]                         if (!is.null(pattern)) {
[13:13:55.566]                           computeRestarts <- base::computeRestarts
[13:13:55.566]                           grepl <- base::grepl
[13:13:55.566]                           restarts <- computeRestarts(cond)
[13:13:55.566]                           for (restart in restarts) {
[13:13:55.566]                             name <- restart$name
[13:13:55.566]                             if (is.null(name)) 
[13:13:55.566]                               next
[13:13:55.566]                             if (!grepl(pattern, name)) 
[13:13:55.566]                               next
[13:13:55.566]                             invokeRestart(restart)
[13:13:55.566]                             muffled <- TRUE
[13:13:55.566]                             break
[13:13:55.566]                           }
[13:13:55.566]                         }
[13:13:55.566]                       }
[13:13:55.566]                       invisible(muffled)
[13:13:55.566]                     }
[13:13:55.566]                     muffleCondition(cond, pattern = "^muffle")
[13:13:55.566]                   }
[13:13:55.566]                 }
[13:13:55.566]                 else {
[13:13:55.566]                   if (TRUE) {
[13:13:55.566]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.566]                     {
[13:13:55.566]                       inherits <- base::inherits
[13:13:55.566]                       invokeRestart <- base::invokeRestart
[13:13:55.566]                       is.null <- base::is.null
[13:13:55.566]                       muffled <- FALSE
[13:13:55.566]                       if (inherits(cond, "message")) {
[13:13:55.566]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:55.566]                         if (muffled) 
[13:13:55.566]                           invokeRestart("muffleMessage")
[13:13:55.566]                       }
[13:13:55.566]                       else if (inherits(cond, "warning")) {
[13:13:55.566]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:55.566]                         if (muffled) 
[13:13:55.566]                           invokeRestart("muffleWarning")
[13:13:55.566]                       }
[13:13:55.566]                       else if (inherits(cond, "condition")) {
[13:13:55.566]                         if (!is.null(pattern)) {
[13:13:55.566]                           computeRestarts <- base::computeRestarts
[13:13:55.566]                           grepl <- base::grepl
[13:13:55.566]                           restarts <- computeRestarts(cond)
[13:13:55.566]                           for (restart in restarts) {
[13:13:55.566]                             name <- restart$name
[13:13:55.566]                             if (is.null(name)) 
[13:13:55.566]                               next
[13:13:55.566]                             if (!grepl(pattern, name)) 
[13:13:55.566]                               next
[13:13:55.566]                             invokeRestart(restart)
[13:13:55.566]                             muffled <- TRUE
[13:13:55.566]                             break
[13:13:55.566]                           }
[13:13:55.566]                         }
[13:13:55.566]                       }
[13:13:55.566]                       invisible(muffled)
[13:13:55.566]                     }
[13:13:55.566]                     muffleCondition(cond, pattern = "^muffle")
[13:13:55.566]                   }
[13:13:55.566]                 }
[13:13:55.566]             }
[13:13:55.566]         }))
[13:13:55.566]     }, error = function(ex) {
[13:13:55.566]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:55.566]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:55.566]                 ...future.rng), started = ...future.startTime, 
[13:13:55.566]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:55.566]             version = "1.8"), class = "FutureResult")
[13:13:55.566]     }, finally = {
[13:13:55.566]         if (!identical(...future.workdir, getwd())) 
[13:13:55.566]             setwd(...future.workdir)
[13:13:55.566]         {
[13:13:55.566]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:55.566]                 ...future.oldOptions$nwarnings <- NULL
[13:13:55.566]             }
[13:13:55.566]             base::options(...future.oldOptions)
[13:13:55.566]             if (.Platform$OS.type == "windows") {
[13:13:55.566]                 old_names <- names(...future.oldEnvVars)
[13:13:55.566]                 envs <- base::Sys.getenv()
[13:13:55.566]                 names <- names(envs)
[13:13:55.566]                 common <- intersect(names, old_names)
[13:13:55.566]                 added <- setdiff(names, old_names)
[13:13:55.566]                 removed <- setdiff(old_names, names)
[13:13:55.566]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:55.566]                   envs[common]]
[13:13:55.566]                 NAMES <- toupper(changed)
[13:13:55.566]                 args <- list()
[13:13:55.566]                 for (kk in seq_along(NAMES)) {
[13:13:55.566]                   name <- changed[[kk]]
[13:13:55.566]                   NAME <- NAMES[[kk]]
[13:13:55.566]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.566]                     next
[13:13:55.566]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:55.566]                 }
[13:13:55.566]                 NAMES <- toupper(added)
[13:13:55.566]                 for (kk in seq_along(NAMES)) {
[13:13:55.566]                   name <- added[[kk]]
[13:13:55.566]                   NAME <- NAMES[[kk]]
[13:13:55.566]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.566]                     next
[13:13:55.566]                   args[[name]] <- ""
[13:13:55.566]                 }
[13:13:55.566]                 NAMES <- toupper(removed)
[13:13:55.566]                 for (kk in seq_along(NAMES)) {
[13:13:55.566]                   name <- removed[[kk]]
[13:13:55.566]                   NAME <- NAMES[[kk]]
[13:13:55.566]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.566]                     next
[13:13:55.566]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:55.566]                 }
[13:13:55.566]                 if (length(args) > 0) 
[13:13:55.566]                   base::do.call(base::Sys.setenv, args = args)
[13:13:55.566]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:55.566]             }
[13:13:55.566]             else {
[13:13:55.566]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:55.566]             }
[13:13:55.566]             {
[13:13:55.566]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:55.566]                   0L) {
[13:13:55.566]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:55.566]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:55.566]                   base::options(opts)
[13:13:55.566]                 }
[13:13:55.566]                 {
[13:13:55.566]                   {
[13:13:55.566]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:55.566]                     NULL
[13:13:55.566]                   }
[13:13:55.566]                   options(future.plan = NULL)
[13:13:55.566]                   if (is.na(NA_character_)) 
[13:13:55.566]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:55.566]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:55.566]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:55.566]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:55.566]                     envir = parent.frame()) 
[13:13:55.566]                   {
[13:13:55.566]                     if (is.function(workers)) 
[13:13:55.566]                       workers <- workers()
[13:13:55.566]                     workers <- structure(as.integer(workers), 
[13:13:55.566]                       class = class(workers))
[13:13:55.566]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:55.566]                       workers >= 1)
[13:13:55.566]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:55.566]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:55.566]                     }
[13:13:55.566]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:55.566]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:55.566]                       envir = envir)
[13:13:55.566]                     if (!future$lazy) 
[13:13:55.566]                       future <- run(future)
[13:13:55.566]                     invisible(future)
[13:13:55.566]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:55.566]                 }
[13:13:55.566]             }
[13:13:55.566]         }
[13:13:55.566]     })
[13:13:55.566]     if (TRUE) {
[13:13:55.566]         base::sink(type = "output", split = FALSE)
[13:13:55.566]         if (TRUE) {
[13:13:55.566]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:55.566]         }
[13:13:55.566]         else {
[13:13:55.566]             ...future.result["stdout"] <- base::list(NULL)
[13:13:55.566]         }
[13:13:55.566]         base::close(...future.stdout)
[13:13:55.566]         ...future.stdout <- NULL
[13:13:55.566]     }
[13:13:55.566]     ...future.result$conditions <- ...future.conditions
[13:13:55.566]     ...future.result$finished <- base::Sys.time()
[13:13:55.566]     ...future.result
[13:13:55.566] }
[13:13:55.571] Exporting 5 global objects (3.57 KiB) to cluster node #1 ...
[13:13:55.571] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ...
[13:13:55.572] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ... DONE
[13:13:55.572] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:55.572] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:55.573] Exporting '...future.elements_ii' (336 bytes) to cluster node #1 ...
[13:13:55.573] Exporting '...future.elements_ii' (336 bytes) to cluster node #1 ... DONE
[13:13:55.573] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:55.574] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:55.574] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:55.574] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:55.574] Exporting 5 global objects (3.57 KiB) to cluster node #1 ... DONE
[13:13:55.575] MultisessionFuture started
[13:13:55.575] - Launch lazy future ... done
[13:13:55.575] run() for 'MultisessionFuture' ... done
[13:13:55.576] Created future:
[13:13:55.591] receiveMessageFromWorker() for ClusterFuture ...
[13:13:55.591] - Validating connection of MultisessionFuture
[13:13:55.592] - received message: FutureResult
[13:13:55.592] - Received FutureResult
[13:13:55.592] - Erased future from FutureRegistry
[13:13:55.592] result() for ClusterFuture ...
[13:13:55.592] - result already collected: FutureResult
[13:13:55.593] result() for ClusterFuture ... done
[13:13:55.593] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:55.576] MultisessionFuture:
[13:13:55.576] Label: 'future_mapply-3'
[13:13:55.576] Expression:
[13:13:55.576] {
[13:13:55.576]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:55.576]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:55.576]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:55.576]         on.exit(options(oopts), add = TRUE)
[13:13:55.576]     }
[13:13:55.576]     {
[13:13:55.576]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:55.576]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:55.576]         do.call(mapply, args = args)
[13:13:55.576]     }
[13:13:55.576] }
[13:13:55.576] Lazy evaluation: FALSE
[13:13:55.576] Asynchronous evaluation: TRUE
[13:13:55.576] Local evaluation: TRUE
[13:13:55.576] Environment: R_GlobalEnv
[13:13:55.576] Capture standard output: TRUE
[13:13:55.576] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:55.576] Globals: 5 objects totaling 3.57 KiB (function '...future.FUN' of 3.24 KiB, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 336 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:55.576] Packages: <none>
[13:13:55.576] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:55.576] Resolved: TRUE
[13:13:55.576] Value: <not collected>
[13:13:55.576] Conditions captured: <none>
[13:13:55.576] Early signaling: FALSE
[13:13:55.576] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:55.576] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:55.593] Chunk #3 of 3 ... DONE
[13:13:55.593] Launching 3 futures (chunks) ... DONE
[13:13:55.593] Resolving 3 futures (chunks) ...
[13:13:55.594] resolve() on list ...
[13:13:55.594]  recursive: 0
[13:13:55.594]  length: 3
[13:13:55.594] 
[13:13:55.594] Future #1
[13:13:55.594] result() for ClusterFuture ...
[13:13:55.595] - result already collected: FutureResult
[13:13:55.595] result() for ClusterFuture ... done
[13:13:55.595] result() for ClusterFuture ...
[13:13:55.595] - result already collected: FutureResult
[13:13:55.595] result() for ClusterFuture ... done
[13:13:55.595] signalConditionsASAP(MultisessionFuture, pos=1) ...
[13:13:55.596] - nx: 3
[13:13:55.596] - relay: TRUE
[13:13:55.596] - stdout: TRUE
[13:13:55.596] - signal: TRUE
[13:13:55.596] - resignal: FALSE
[13:13:55.596] - force: TRUE
[13:13:55.597] - relayed: [n=3] FALSE, FALSE, FALSE
[13:13:55.597] - queued futures: [n=3] FALSE, FALSE, FALSE
[13:13:55.597]  - until=1
[13:13:55.597]  - relaying element #1
[13:13:55.597] result() for ClusterFuture ...
[13:13:55.597] - result already collected: FutureResult
[13:13:55.598] result() for ClusterFuture ... done
[13:13:55.598] result() for ClusterFuture ...
[13:13:55.598] - result already collected: FutureResult
[13:13:55.598] result() for ClusterFuture ... done
[13:13:55.598] result() for ClusterFuture ...
[13:13:55.598] - result already collected: FutureResult
[13:13:55.599] result() for ClusterFuture ... done
[13:13:55.599] result() for ClusterFuture ...
[13:13:55.599] - result already collected: FutureResult
[13:13:55.599] result() for ClusterFuture ... done
[13:13:55.599] - relayed: [n=3] TRUE, FALSE, FALSE
[13:13:55.599] - queued futures: [n=3] TRUE, FALSE, FALSE
[13:13:55.600] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[13:13:55.600]  length: 2 (resolved future 1)
[13:13:55.600] Future #2
[13:13:55.600] result() for ClusterFuture ...
[13:13:55.600] - result already collected: FutureResult
[13:13:55.600] result() for ClusterFuture ... done
[13:13:55.601] result() for ClusterFuture ...
[13:13:55.601] - result already collected: FutureResult
[13:13:55.601] result() for ClusterFuture ... done
[13:13:55.601] signalConditionsASAP(MultisessionFuture, pos=2) ...
[13:13:55.601] - nx: 3
[13:13:55.601] - relay: TRUE
[13:13:55.602] - stdout: TRUE
[13:13:55.602] - signal: TRUE
[13:13:55.602] - resignal: FALSE
[13:13:55.602] - force: TRUE
[13:13:55.602] - relayed: [n=3] TRUE, FALSE, FALSE
[13:13:55.602] - queued futures: [n=3] TRUE, FALSE, FALSE
[13:13:55.602]  - until=2
[13:13:55.603]  - relaying element #2
[13:13:55.603] result() for ClusterFuture ...
[13:13:55.603] - result already collected: FutureResult
[13:13:55.603] result() for ClusterFuture ... done
[13:13:55.603] result() for ClusterFuture ...
[13:13:55.603] - result already collected: FutureResult
[13:13:55.604] result() for ClusterFuture ... done
[13:13:55.604] result() for ClusterFuture ...
[13:13:55.604] - result already collected: FutureResult
[13:13:55.604] result() for ClusterFuture ... done
[13:13:55.604] result() for ClusterFuture ...
[13:13:55.604] - result already collected: FutureResult
[13:13:55.605] result() for ClusterFuture ... done
[13:13:55.605] - relayed: [n=3] TRUE, TRUE, FALSE
[13:13:55.605] - queued futures: [n=3] TRUE, TRUE, FALSE
[13:13:55.605] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[13:13:55.605]  length: 1 (resolved future 2)
[13:13:55.605] Future #3
[13:13:55.606] result() for ClusterFuture ...
[13:13:55.606] - result already collected: FutureResult
[13:13:55.606] result() for ClusterFuture ... done
[13:13:55.606] result() for ClusterFuture ...
[13:13:55.606] - result already collected: FutureResult
[13:13:55.606] result() for ClusterFuture ... done
[13:13:55.607] signalConditionsASAP(MultisessionFuture, pos=3) ...
[13:13:55.607] - nx: 3
[13:13:55.607] - relay: TRUE
[13:13:55.607] - stdout: TRUE
[13:13:55.607] - signal: TRUE
[13:13:55.607] - resignal: FALSE
[13:13:55.607] - force: TRUE
[13:13:55.608] - relayed: [n=3] TRUE, TRUE, FALSE
[13:13:55.608] - queued futures: [n=3] TRUE, TRUE, FALSE
[13:13:55.608]  - until=3
[13:13:55.608]  - relaying element #3
[13:13:55.608] result() for ClusterFuture ...
[13:13:55.608] - result already collected: FutureResult
[13:13:55.609] result() for ClusterFuture ... done
[13:13:55.609] result() for ClusterFuture ...
[13:13:55.609] - result already collected: FutureResult
[13:13:55.609] result() for ClusterFuture ... done
[13:13:55.609] result() for ClusterFuture ...
[13:13:55.609] - result already collected: FutureResult
[13:13:55.610] result() for ClusterFuture ... done
[13:13:55.611] result() for ClusterFuture ...
[13:13:55.611] - result already collected: FutureResult
[13:13:55.612] result() for ClusterFuture ... done
[13:13:55.612] - relayed: [n=3] TRUE, TRUE, TRUE
[13:13:55.612] - queued futures: [n=3] TRUE, TRUE, TRUE
[13:13:55.612] signalConditionsASAP(MultisessionFuture, pos=3) ... done
[13:13:55.612]  length: 0 (resolved future 3)
[13:13:55.612] Relaying remaining futures
[13:13:55.613] signalConditionsASAP(NULL, pos=0) ...
[13:13:55.613] - nx: 3
[13:13:55.613] - relay: TRUE
[13:13:55.613] - stdout: TRUE
[13:13:55.613] - signal: TRUE
[13:13:55.613] - resignal: FALSE
[13:13:55.614] - force: TRUE
[13:13:55.614] - relayed: [n=3] TRUE, TRUE, TRUE
[13:13:55.614] - queued futures: [n=3] TRUE, TRUE, TRUE
 - flush all
[13:13:55.614] - relayed: [n=3] TRUE, TRUE, TRUE
[13:13:55.614] - queued futures: [n=3] TRUE, TRUE, TRUE
[13:13:55.614] signalConditionsASAP(NULL, pos=0) ... done
[13:13:55.615] resolve() on list ... DONE
[13:13:55.615] result() for ClusterFuture ...
[13:13:55.615] - result already collected: FutureResult
[13:13:55.615] result() for ClusterFuture ... done
[13:13:55.615] result() for ClusterFuture ...
[13:13:55.615] - result already collected: FutureResult
[13:13:55.615] result() for ClusterFuture ... done
[13:13:55.616] result() for ClusterFuture ...
[13:13:55.616] - result already collected: FutureResult
[13:13:55.616] result() for ClusterFuture ... done
[13:13:55.616] result() for ClusterFuture ...
[13:13:55.616] - result already collected: FutureResult
[13:13:55.616] result() for ClusterFuture ... done
[13:13:55.617] result() for ClusterFuture ...
[13:13:55.617] - result already collected: FutureResult
[13:13:55.617] result() for ClusterFuture ... done
[13:13:55.617] result() for ClusterFuture ...
[13:13:55.617] - result already collected: FutureResult
[13:13:55.617] result() for ClusterFuture ... done
[13:13:55.618]  - Number of value chunks collected: 3
[13:13:55.618] Resolving 3 futures (chunks) ... DONE
[13:13:55.618] Reducing values from 3 chunks ...
[13:13:55.618]  - Number of values collected after concatenation: 5
[13:13:55.618]  - Number of values expected: 5
[13:13:55.618] Reverse index remapping (attribute 'ordering'): [n = 5] 4, 2, 3, 1, 5
[13:13:55.619] Reducing values from 3 chunks ... DONE
[13:13:55.619] future_mapply() ... DONE
[13:13:55.619] future_mapply() ...
[13:13:55.622] Number of chunks: 2
[13:13:55.622] getGlobalsAndPackagesXApply() ...
[13:13:55.622]  - future.globals: TRUE
[13:13:55.622] getGlobalsAndPackages() ...
[13:13:55.622] Searching for globals...
[13:13:55.624] - globals found: [3] 'FUN', 'paste', 'rep.int'
[13:13:55.624] Searching for globals ... DONE
[13:13:55.624] Resolving globals: FALSE
[13:13:55.625] The total size of the 1 globals is 3.24 KiB (3320 bytes)
[13:13:55.625] The total size of the 1 globals exported for future expression ('FUN()') is 3.24 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (3.24 KiB of class 'function')
[13:13:55.625] - globals: [1] 'FUN'
[13:13:55.625] 
[13:13:55.626] getGlobalsAndPackages() ... DONE
[13:13:55.626]  - globals found/used: [n=1] 'FUN'
[13:13:55.626]  - needed namespaces: [n=0] 
[13:13:55.626] Finding globals ... DONE
[13:13:55.626] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:55.627] List of 2
[13:13:55.627]  $ ...future.FUN:function (C, k)  
[13:13:55.627]  $ MoreArgs     : list()
[13:13:55.627]  - attr(*, "where")=List of 2
[13:13:55.627]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:55.627]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:55.627]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:55.627]  - attr(*, "resolved")= logi FALSE
[13:13:55.627]  - attr(*, "total_size")= num NA
[13:13:55.630] Packages to be attached in all futures: [n=0] 
[13:13:55.630] getGlobalsAndPackagesXApply() ... DONE
[13:13:55.630] Number of futures (= number of chunks): 2
[13:13:55.630] Launching 2 futures (chunks) ...
[13:13:55.630] Chunk #1 of 2 ...
[13:13:55.631]  - Finding globals in '...' for chunk #1 ...
[13:13:55.631] getGlobalsAndPackages() ...
[13:13:55.631] Searching for globals...
[13:13:55.631] 
[13:13:55.631] Searching for globals ... DONE
[13:13:55.632] - globals: [0] <none>
[13:13:55.632] getGlobalsAndPackages() ... DONE
[13:13:55.632]    + additional globals found: [n=0] 
[13:13:55.632]    + additional namespaces needed: [n=0] 
[13:13:55.632]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:55.632]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:55.633]  - seeds: <none>
[13:13:55.633]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.633] getGlobalsAndPackages() ...
[13:13:55.633] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.633] Resolving globals: FALSE
[13:13:55.634] The total size of the 5 globals is 3.57 KiB (3656 bytes)
[13:13:55.634] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 3.57 KiB.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (3.24 KiB of class 'function'), '...future.elements_ii' (336 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'list')
[13:13:55.635] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.635] 
[13:13:55.635] getGlobalsAndPackages() ... DONE
[13:13:55.635] run() for 'Future' ...
[13:13:55.636] - state: 'created'
[13:13:55.636] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:55.649] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:55.650] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:55.650]   - Field: 'node'
[13:13:55.650]   - Field: 'label'
[13:13:55.650]   - Field: 'local'
[13:13:55.650]   - Field: 'owner'
[13:13:55.650]   - Field: 'envir'
[13:13:55.651]   - Field: 'workers'
[13:13:55.651]   - Field: 'packages'
[13:13:55.651]   - Field: 'gc'
[13:13:55.651]   - Field: 'conditions'
[13:13:55.651]   - Field: 'persistent'
[13:13:55.651]   - Field: 'expr'
[13:13:55.652]   - Field: 'uuid'
[13:13:55.652]   - Field: 'seed'
[13:13:55.652]   - Field: 'version'
[13:13:55.652]   - Field: 'result'
[13:13:55.652]   - Field: 'asynchronous'
[13:13:55.653]   - Field: 'calls'
[13:13:55.653]   - Field: 'globals'
[13:13:55.653]   - Field: 'stdout'
[13:13:55.653]   - Field: 'earlySignal'
[13:13:55.653]   - Field: 'lazy'
[13:13:55.653]   - Field: 'state'
[13:13:55.654] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:55.654] - Launch lazy future ...
[13:13:55.654] Packages needed by the future expression (n = 0): <none>
[13:13:55.654] Packages needed by future strategies (n = 0): <none>
[13:13:55.655] {
[13:13:55.655]     {
[13:13:55.655]         {
[13:13:55.655]             ...future.startTime <- base::Sys.time()
[13:13:55.655]             {
[13:13:55.655]                 {
[13:13:55.655]                   {
[13:13:55.655]                     {
[13:13:55.655]                       base::local({
[13:13:55.655]                         has_future <- base::requireNamespace("future", 
[13:13:55.655]                           quietly = TRUE)
[13:13:55.655]                         if (has_future) {
[13:13:55.655]                           ns <- base::getNamespace("future")
[13:13:55.655]                           version <- ns[[".package"]][["version"]]
[13:13:55.655]                           if (is.null(version)) 
[13:13:55.655]                             version <- utils::packageVersion("future")
[13:13:55.655]                         }
[13:13:55.655]                         else {
[13:13:55.655]                           version <- NULL
[13:13:55.655]                         }
[13:13:55.655]                         if (!has_future || version < "1.8.0") {
[13:13:55.655]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:55.655]                             "", base::R.version$version.string), 
[13:13:55.655]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:55.655]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:55.655]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:55.655]                               "release", "version")], collapse = " "), 
[13:13:55.655]                             hostname = base::Sys.info()[["nodename"]])
[13:13:55.655]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:55.655]                             info)
[13:13:55.655]                           info <- base::paste(info, collapse = "; ")
[13:13:55.655]                           if (!has_future) {
[13:13:55.655]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:55.655]                               info)
[13:13:55.655]                           }
[13:13:55.655]                           else {
[13:13:55.655]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:55.655]                               info, version)
[13:13:55.655]                           }
[13:13:55.655]                           base::stop(msg)
[13:13:55.655]                         }
[13:13:55.655]                       })
[13:13:55.655]                     }
[13:13:55.655]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:55.655]                     base::options(mc.cores = 1L)
[13:13:55.655]                   }
[13:13:55.655]                   options(future.plan = NULL)
[13:13:55.655]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:55.655]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:55.655]                 }
[13:13:55.655]                 ...future.workdir <- getwd()
[13:13:55.655]             }
[13:13:55.655]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:55.655]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:55.655]         }
[13:13:55.655]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:55.655]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:55.655]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:55.655]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:55.655]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:55.655]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:55.655]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:55.655]             base::names(...future.oldOptions))
[13:13:55.655]     }
[13:13:55.655]     if (FALSE) {
[13:13:55.655]     }
[13:13:55.655]     else {
[13:13:55.655]         if (TRUE) {
[13:13:55.655]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:55.655]                 open = "w")
[13:13:55.655]         }
[13:13:55.655]         else {
[13:13:55.655]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:55.655]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:55.655]         }
[13:13:55.655]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:55.655]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:55.655]             base::sink(type = "output", split = FALSE)
[13:13:55.655]             base::close(...future.stdout)
[13:13:55.655]         }, add = TRUE)
[13:13:55.655]     }
[13:13:55.655]     ...future.frame <- base::sys.nframe()
[13:13:55.655]     ...future.conditions <- base::list()
[13:13:55.655]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:55.655]     if (FALSE) {
[13:13:55.655]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:55.655]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:55.655]     }
[13:13:55.655]     ...future.result <- base::tryCatch({
[13:13:55.655]         base::withCallingHandlers({
[13:13:55.655]             ...future.value <- base::withVisible(base::local({
[13:13:55.655]                 ...future.makeSendCondition <- local({
[13:13:55.655]                   sendCondition <- NULL
[13:13:55.655]                   function(frame = 1L) {
[13:13:55.655]                     if (is.function(sendCondition)) 
[13:13:55.655]                       return(sendCondition)
[13:13:55.655]                     ns <- getNamespace("parallel")
[13:13:55.655]                     if (exists("sendData", mode = "function", 
[13:13:55.655]                       envir = ns)) {
[13:13:55.655]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:55.655]                         envir = ns)
[13:13:55.655]                       envir <- sys.frame(frame)
[13:13:55.655]                       master <- NULL
[13:13:55.655]                       while (!identical(envir, .GlobalEnv) && 
[13:13:55.655]                         !identical(envir, emptyenv())) {
[13:13:55.655]                         if (exists("master", mode = "list", envir = envir, 
[13:13:55.655]                           inherits = FALSE)) {
[13:13:55.655]                           master <- get("master", mode = "list", 
[13:13:55.655]                             envir = envir, inherits = FALSE)
[13:13:55.655]                           if (inherits(master, c("SOCKnode", 
[13:13:55.655]                             "SOCK0node"))) {
[13:13:55.655]                             sendCondition <<- function(cond) {
[13:13:55.655]                               data <- list(type = "VALUE", value = cond, 
[13:13:55.655]                                 success = TRUE)
[13:13:55.655]                               parallel_sendData(master, data)
[13:13:55.655]                             }
[13:13:55.655]                             return(sendCondition)
[13:13:55.655]                           }
[13:13:55.655]                         }
[13:13:55.655]                         frame <- frame + 1L
[13:13:55.655]                         envir <- sys.frame(frame)
[13:13:55.655]                       }
[13:13:55.655]                     }
[13:13:55.655]                     sendCondition <<- function(cond) NULL
[13:13:55.655]                   }
[13:13:55.655]                 })
[13:13:55.655]                 withCallingHandlers({
[13:13:55.655]                   {
[13:13:55.655]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:55.655]                     if (!identical(...future.globals.maxSize.org, 
[13:13:55.655]                       ...future.globals.maxSize)) {
[13:13:55.655]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:55.655]                       on.exit(options(oopts), add = TRUE)
[13:13:55.655]                     }
[13:13:55.655]                     {
[13:13:55.655]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:55.655]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:55.655]                         USE.NAMES = FALSE)
[13:13:55.655]                       do.call(mapply, args = args)
[13:13:55.655]                     }
[13:13:55.655]                   }
[13:13:55.655]                 }, immediateCondition = function(cond) {
[13:13:55.655]                   sendCondition <- ...future.makeSendCondition()
[13:13:55.655]                   sendCondition(cond)
[13:13:55.655]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.655]                   {
[13:13:55.655]                     inherits <- base::inherits
[13:13:55.655]                     invokeRestart <- base::invokeRestart
[13:13:55.655]                     is.null <- base::is.null
[13:13:55.655]                     muffled <- FALSE
[13:13:55.655]                     if (inherits(cond, "message")) {
[13:13:55.655]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:55.655]                       if (muffled) 
[13:13:55.655]                         invokeRestart("muffleMessage")
[13:13:55.655]                     }
[13:13:55.655]                     else if (inherits(cond, "warning")) {
[13:13:55.655]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:55.655]                       if (muffled) 
[13:13:55.655]                         invokeRestart("muffleWarning")
[13:13:55.655]                     }
[13:13:55.655]                     else if (inherits(cond, "condition")) {
[13:13:55.655]                       if (!is.null(pattern)) {
[13:13:55.655]                         computeRestarts <- base::computeRestarts
[13:13:55.655]                         grepl <- base::grepl
[13:13:55.655]                         restarts <- computeRestarts(cond)
[13:13:55.655]                         for (restart in restarts) {
[13:13:55.655]                           name <- restart$name
[13:13:55.655]                           if (is.null(name)) 
[13:13:55.655]                             next
[13:13:55.655]                           if (!grepl(pattern, name)) 
[13:13:55.655]                             next
[13:13:55.655]                           invokeRestart(restart)
[13:13:55.655]                           muffled <- TRUE
[13:13:55.655]                           break
[13:13:55.655]                         }
[13:13:55.655]                       }
[13:13:55.655]                     }
[13:13:55.655]                     invisible(muffled)
[13:13:55.655]                   }
[13:13:55.655]                   muffleCondition(cond)
[13:13:55.655]                 })
[13:13:55.655]             }))
[13:13:55.655]             future::FutureResult(value = ...future.value$value, 
[13:13:55.655]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:55.655]                   ...future.rng), globalenv = if (FALSE) 
[13:13:55.655]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:55.655]                     ...future.globalenv.names))
[13:13:55.655]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:55.655]         }, condition = base::local({
[13:13:55.655]             c <- base::c
[13:13:55.655]             inherits <- base::inherits
[13:13:55.655]             invokeRestart <- base::invokeRestart
[13:13:55.655]             length <- base::length
[13:13:55.655]             list <- base::list
[13:13:55.655]             seq.int <- base::seq.int
[13:13:55.655]             signalCondition <- base::signalCondition
[13:13:55.655]             sys.calls <- base::sys.calls
[13:13:55.655]             `[[` <- base::`[[`
[13:13:55.655]             `+` <- base::`+`
[13:13:55.655]             `<<-` <- base::`<<-`
[13:13:55.655]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:55.655]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:55.655]                   3L)]
[13:13:55.655]             }
[13:13:55.655]             function(cond) {
[13:13:55.655]                 is_error <- inherits(cond, "error")
[13:13:55.655]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:55.655]                   NULL)
[13:13:55.655]                 if (is_error) {
[13:13:55.655]                   sessionInformation <- function() {
[13:13:55.655]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:55.655]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:55.655]                       search = base::search(), system = base::Sys.info())
[13:13:55.655]                   }
[13:13:55.655]                   ...future.conditions[[length(...future.conditions) + 
[13:13:55.655]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:55.655]                     cond$call), session = sessionInformation(), 
[13:13:55.655]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:55.655]                   signalCondition(cond)
[13:13:55.655]                 }
[13:13:55.655]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:55.655]                 "immediateCondition"))) {
[13:13:55.655]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:55.655]                   ...future.conditions[[length(...future.conditions) + 
[13:13:55.655]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:55.655]                   if (TRUE && !signal) {
[13:13:55.655]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.655]                     {
[13:13:55.655]                       inherits <- base::inherits
[13:13:55.655]                       invokeRestart <- base::invokeRestart
[13:13:55.655]                       is.null <- base::is.null
[13:13:55.655]                       muffled <- FALSE
[13:13:55.655]                       if (inherits(cond, "message")) {
[13:13:55.655]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:55.655]                         if (muffled) 
[13:13:55.655]                           invokeRestart("muffleMessage")
[13:13:55.655]                       }
[13:13:55.655]                       else if (inherits(cond, "warning")) {
[13:13:55.655]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:55.655]                         if (muffled) 
[13:13:55.655]                           invokeRestart("muffleWarning")
[13:13:55.655]                       }
[13:13:55.655]                       else if (inherits(cond, "condition")) {
[13:13:55.655]                         if (!is.null(pattern)) {
[13:13:55.655]                           computeRestarts <- base::computeRestarts
[13:13:55.655]                           grepl <- base::grepl
[13:13:55.655]                           restarts <- computeRestarts(cond)
[13:13:55.655]                           for (restart in restarts) {
[13:13:55.655]                             name <- restart$name
[13:13:55.655]                             if (is.null(name)) 
[13:13:55.655]                               next
[13:13:55.655]                             if (!grepl(pattern, name)) 
[13:13:55.655]                               next
[13:13:55.655]                             invokeRestart(restart)
[13:13:55.655]                             muffled <- TRUE
[13:13:55.655]                             break
[13:13:55.655]                           }
[13:13:55.655]                         }
[13:13:55.655]                       }
[13:13:55.655]                       invisible(muffled)
[13:13:55.655]                     }
[13:13:55.655]                     muffleCondition(cond, pattern = "^muffle")
[13:13:55.655]                   }
[13:13:55.655]                 }
[13:13:55.655]                 else {
[13:13:55.655]                   if (TRUE) {
[13:13:55.655]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.655]                     {
[13:13:55.655]                       inherits <- base::inherits
[13:13:55.655]                       invokeRestart <- base::invokeRestart
[13:13:55.655]                       is.null <- base::is.null
[13:13:55.655]                       muffled <- FALSE
[13:13:55.655]                       if (inherits(cond, "message")) {
[13:13:55.655]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:55.655]                         if (muffled) 
[13:13:55.655]                           invokeRestart("muffleMessage")
[13:13:55.655]                       }
[13:13:55.655]                       else if (inherits(cond, "warning")) {
[13:13:55.655]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:55.655]                         if (muffled) 
[13:13:55.655]                           invokeRestart("muffleWarning")
[13:13:55.655]                       }
[13:13:55.655]                       else if (inherits(cond, "condition")) {
[13:13:55.655]                         if (!is.null(pattern)) {
[13:13:55.655]                           computeRestarts <- base::computeRestarts
[13:13:55.655]                           grepl <- base::grepl
[13:13:55.655]                           restarts <- computeRestarts(cond)
[13:13:55.655]                           for (restart in restarts) {
[13:13:55.655]                             name <- restart$name
[13:13:55.655]                             if (is.null(name)) 
[13:13:55.655]                               next
[13:13:55.655]                             if (!grepl(pattern, name)) 
[13:13:55.655]                               next
[13:13:55.655]                             invokeRestart(restart)
[13:13:55.655]                             muffled <- TRUE
[13:13:55.655]                             break
[13:13:55.655]                           }
[13:13:55.655]                         }
[13:13:55.655]                       }
[13:13:55.655]                       invisible(muffled)
[13:13:55.655]                     }
[13:13:55.655]                     muffleCondition(cond, pattern = "^muffle")
[13:13:55.655]                   }
[13:13:55.655]                 }
[13:13:55.655]             }
[13:13:55.655]         }))
[13:13:55.655]     }, error = function(ex) {
[13:13:55.655]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:55.655]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:55.655]                 ...future.rng), started = ...future.startTime, 
[13:13:55.655]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:55.655]             version = "1.8"), class = "FutureResult")
[13:13:55.655]     }, finally = {
[13:13:55.655]         if (!identical(...future.workdir, getwd())) 
[13:13:55.655]             setwd(...future.workdir)
[13:13:55.655]         {
[13:13:55.655]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:55.655]                 ...future.oldOptions$nwarnings <- NULL
[13:13:55.655]             }
[13:13:55.655]             base::options(...future.oldOptions)
[13:13:55.655]             if (.Platform$OS.type == "windows") {
[13:13:55.655]                 old_names <- names(...future.oldEnvVars)
[13:13:55.655]                 envs <- base::Sys.getenv()
[13:13:55.655]                 names <- names(envs)
[13:13:55.655]                 common <- intersect(names, old_names)
[13:13:55.655]                 added <- setdiff(names, old_names)
[13:13:55.655]                 removed <- setdiff(old_names, names)
[13:13:55.655]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:55.655]                   envs[common]]
[13:13:55.655]                 NAMES <- toupper(changed)
[13:13:55.655]                 args <- list()
[13:13:55.655]                 for (kk in seq_along(NAMES)) {
[13:13:55.655]                   name <- changed[[kk]]
[13:13:55.655]                   NAME <- NAMES[[kk]]
[13:13:55.655]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.655]                     next
[13:13:55.655]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:55.655]                 }
[13:13:55.655]                 NAMES <- toupper(added)
[13:13:55.655]                 for (kk in seq_along(NAMES)) {
[13:13:55.655]                   name <- added[[kk]]
[13:13:55.655]                   NAME <- NAMES[[kk]]
[13:13:55.655]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.655]                     next
[13:13:55.655]                   args[[name]] <- ""
[13:13:55.655]                 }
[13:13:55.655]                 NAMES <- toupper(removed)
[13:13:55.655]                 for (kk in seq_along(NAMES)) {
[13:13:55.655]                   name <- removed[[kk]]
[13:13:55.655]                   NAME <- NAMES[[kk]]
[13:13:55.655]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.655]                     next
[13:13:55.655]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:55.655]                 }
[13:13:55.655]                 if (length(args) > 0) 
[13:13:55.655]                   base::do.call(base::Sys.setenv, args = args)
[13:13:55.655]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:55.655]             }
[13:13:55.655]             else {
[13:13:55.655]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:55.655]             }
[13:13:55.655]             {
[13:13:55.655]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:55.655]                   0L) {
[13:13:55.655]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:55.655]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:55.655]                   base::options(opts)
[13:13:55.655]                 }
[13:13:55.655]                 {
[13:13:55.655]                   {
[13:13:55.655]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:55.655]                     NULL
[13:13:55.655]                   }
[13:13:55.655]                   options(future.plan = NULL)
[13:13:55.655]                   if (is.na(NA_character_)) 
[13:13:55.655]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:55.655]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:55.655]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:55.655]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:55.655]                     envir = parent.frame()) 
[13:13:55.655]                   {
[13:13:55.655]                     if (is.function(workers)) 
[13:13:55.655]                       workers <- workers()
[13:13:55.655]                     workers <- structure(as.integer(workers), 
[13:13:55.655]                       class = class(workers))
[13:13:55.655]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:55.655]                       workers >= 1)
[13:13:55.655]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:55.655]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:55.655]                     }
[13:13:55.655]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:55.655]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:55.655]                       envir = envir)
[13:13:55.655]                     if (!future$lazy) 
[13:13:55.655]                       future <- run(future)
[13:13:55.655]                     invisible(future)
[13:13:55.655]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:55.655]                 }
[13:13:55.655]             }
[13:13:55.655]         }
[13:13:55.655]     })
[13:13:55.655]     if (TRUE) {
[13:13:55.655]         base::sink(type = "output", split = FALSE)
[13:13:55.655]         if (TRUE) {
[13:13:55.655]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:55.655]         }
[13:13:55.655]         else {
[13:13:55.655]             ...future.result["stdout"] <- base::list(NULL)
[13:13:55.655]         }
[13:13:55.655]         base::close(...future.stdout)
[13:13:55.655]         ...future.stdout <- NULL
[13:13:55.655]     }
[13:13:55.655]     ...future.result$conditions <- ...future.conditions
[13:13:55.655]     ...future.result$finished <- base::Sys.time()
[13:13:55.655]     ...future.result
[13:13:55.655] }
[13:13:55.660] Exporting 5 global objects (3.57 KiB) to cluster node #1 ...
[13:13:55.660] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ...
[13:13:55.661] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ... DONE
[13:13:55.661] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:55.662] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:55.662] Exporting '...future.elements_ii' (336 bytes) to cluster node #1 ...
[13:13:55.662] Exporting '...future.elements_ii' (336 bytes) to cluster node #1 ... DONE
[13:13:55.662] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:55.663] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:55.663] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:55.663] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:55.664] Exporting 5 global objects (3.57 KiB) to cluster node #1 ... DONE
[13:13:55.664] MultisessionFuture started
[13:13:55.664] - Launch lazy future ... done
[13:13:55.665] run() for 'MultisessionFuture' ... done
[13:13:55.665] Created future:
[13:13:55.680] receiveMessageFromWorker() for ClusterFuture ...
[13:13:55.681] - Validating connection of MultisessionFuture
[13:13:55.681] - received message: FutureResult
[13:13:55.681] - Received FutureResult
[13:13:55.681] - Erased future from FutureRegistry
[13:13:55.681] result() for ClusterFuture ...
[13:13:55.682] - result already collected: FutureResult
[13:13:55.682] result() for ClusterFuture ... done
[13:13:55.682] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:55.665] MultisessionFuture:
[13:13:55.665] Label: 'future_.mapply-1'
[13:13:55.665] Expression:
[13:13:55.665] {
[13:13:55.665]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:55.665]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:55.665]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:55.665]         on.exit(options(oopts), add = TRUE)
[13:13:55.665]     }
[13:13:55.665]     {
[13:13:55.665]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:55.665]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:55.665]         do.call(mapply, args = args)
[13:13:55.665]     }
[13:13:55.665] }
[13:13:55.665] Lazy evaluation: FALSE
[13:13:55.665] Asynchronous evaluation: TRUE
[13:13:55.665] Local evaluation: TRUE
[13:13:55.665] Environment: R_GlobalEnv
[13:13:55.665] Capture standard output: TRUE
[13:13:55.665] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:55.665] Globals: 5 objects totaling 3.57 KiB (function '...future.FUN' of 3.24 KiB, list 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 336 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:55.665] Packages: <none>
[13:13:55.665] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:55.665] Resolved: TRUE
[13:13:55.665] Value: <not collected>
[13:13:55.665] Conditions captured: <none>
[13:13:55.665] Early signaling: FALSE
[13:13:55.665] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:55.665] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:55.682] Chunk #1 of 2 ... DONE
[13:13:55.682] Chunk #2 of 2 ...
[13:13:55.683]  - Finding globals in '...' for chunk #2 ...
[13:13:55.683] getGlobalsAndPackages() ...
[13:13:55.683] Searching for globals...
[13:13:55.683] 
[13:13:55.684] Searching for globals ... DONE
[13:13:55.684] - globals: [0] <none>
[13:13:55.684] getGlobalsAndPackages() ... DONE
[13:13:55.684]    + additional globals found: [n=0] 
[13:13:55.684]    + additional namespaces needed: [n=0] 
[13:13:55.684]  - Finding globals in '...' for chunk #2 ... DONE
[13:13:55.685]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:55.685]  - seeds: <none>
[13:13:55.685]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.685] getGlobalsAndPackages() ...
[13:13:55.685] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.685] Resolving globals: FALSE
[13:13:55.686] The total size of the 5 globals is 3.73 KiB (3824 bytes)
[13:13:55.687] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 3.73 KiB.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (3.24 KiB of class 'function'), '...future.elements_ii' (504 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'list')
[13:13:55.687] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.687] 
[13:13:55.687] getGlobalsAndPackages() ... DONE
[13:13:55.687] run() for 'Future' ...
[13:13:55.688] - state: 'created'
[13:13:55.688] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:55.702] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:55.702] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:55.702]   - Field: 'node'
[13:13:55.702]   - Field: 'label'
[13:13:55.702]   - Field: 'local'
[13:13:55.703]   - Field: 'owner'
[13:13:55.703]   - Field: 'envir'
[13:13:55.703]   - Field: 'workers'
[13:13:55.703]   - Field: 'packages'
[13:13:55.703]   - Field: 'gc'
[13:13:55.704]   - Field: 'conditions'
[13:13:55.704]   - Field: 'persistent'
[13:13:55.704]   - Field: 'expr'
[13:13:55.704]   - Field: 'uuid'
[13:13:55.704]   - Field: 'seed'
[13:13:55.704]   - Field: 'version'
[13:13:55.705]   - Field: 'result'
[13:13:55.705]   - Field: 'asynchronous'
[13:13:55.705]   - Field: 'calls'
[13:13:55.705]   - Field: 'globals'
[13:13:55.705]   - Field: 'stdout'
[13:13:55.705]   - Field: 'earlySignal'
[13:13:55.706]   - Field: 'lazy'
[13:13:55.706]   - Field: 'state'
[13:13:55.706] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:55.706] - Launch lazy future ...
[13:13:55.706] Packages needed by the future expression (n = 0): <none>
[13:13:55.707] Packages needed by future strategies (n = 0): <none>
[13:13:55.707] {
[13:13:55.707]     {
[13:13:55.707]         {
[13:13:55.707]             ...future.startTime <- base::Sys.time()
[13:13:55.707]             {
[13:13:55.707]                 {
[13:13:55.707]                   {
[13:13:55.707]                     {
[13:13:55.707]                       base::local({
[13:13:55.707]                         has_future <- base::requireNamespace("future", 
[13:13:55.707]                           quietly = TRUE)
[13:13:55.707]                         if (has_future) {
[13:13:55.707]                           ns <- base::getNamespace("future")
[13:13:55.707]                           version <- ns[[".package"]][["version"]]
[13:13:55.707]                           if (is.null(version)) 
[13:13:55.707]                             version <- utils::packageVersion("future")
[13:13:55.707]                         }
[13:13:55.707]                         else {
[13:13:55.707]                           version <- NULL
[13:13:55.707]                         }
[13:13:55.707]                         if (!has_future || version < "1.8.0") {
[13:13:55.707]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:55.707]                             "", base::R.version$version.string), 
[13:13:55.707]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:55.707]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:55.707]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:55.707]                               "release", "version")], collapse = " "), 
[13:13:55.707]                             hostname = base::Sys.info()[["nodename"]])
[13:13:55.707]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:55.707]                             info)
[13:13:55.707]                           info <- base::paste(info, collapse = "; ")
[13:13:55.707]                           if (!has_future) {
[13:13:55.707]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:55.707]                               info)
[13:13:55.707]                           }
[13:13:55.707]                           else {
[13:13:55.707]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:55.707]                               info, version)
[13:13:55.707]                           }
[13:13:55.707]                           base::stop(msg)
[13:13:55.707]                         }
[13:13:55.707]                       })
[13:13:55.707]                     }
[13:13:55.707]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:55.707]                     base::options(mc.cores = 1L)
[13:13:55.707]                   }
[13:13:55.707]                   options(future.plan = NULL)
[13:13:55.707]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:55.707]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:55.707]                 }
[13:13:55.707]                 ...future.workdir <- getwd()
[13:13:55.707]             }
[13:13:55.707]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:55.707]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:55.707]         }
[13:13:55.707]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:55.707]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:55.707]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:55.707]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:55.707]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:55.707]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:55.707]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:55.707]             base::names(...future.oldOptions))
[13:13:55.707]     }
[13:13:55.707]     if (FALSE) {
[13:13:55.707]     }
[13:13:55.707]     else {
[13:13:55.707]         if (TRUE) {
[13:13:55.707]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:55.707]                 open = "w")
[13:13:55.707]         }
[13:13:55.707]         else {
[13:13:55.707]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:55.707]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:55.707]         }
[13:13:55.707]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:55.707]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:55.707]             base::sink(type = "output", split = FALSE)
[13:13:55.707]             base::close(...future.stdout)
[13:13:55.707]         }, add = TRUE)
[13:13:55.707]     }
[13:13:55.707]     ...future.frame <- base::sys.nframe()
[13:13:55.707]     ...future.conditions <- base::list()
[13:13:55.707]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:55.707]     if (FALSE) {
[13:13:55.707]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:55.707]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:55.707]     }
[13:13:55.707]     ...future.result <- base::tryCatch({
[13:13:55.707]         base::withCallingHandlers({
[13:13:55.707]             ...future.value <- base::withVisible(base::local({
[13:13:55.707]                 ...future.makeSendCondition <- local({
[13:13:55.707]                   sendCondition <- NULL
[13:13:55.707]                   function(frame = 1L) {
[13:13:55.707]                     if (is.function(sendCondition)) 
[13:13:55.707]                       return(sendCondition)
[13:13:55.707]                     ns <- getNamespace("parallel")
[13:13:55.707]                     if (exists("sendData", mode = "function", 
[13:13:55.707]                       envir = ns)) {
[13:13:55.707]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:55.707]                         envir = ns)
[13:13:55.707]                       envir <- sys.frame(frame)
[13:13:55.707]                       master <- NULL
[13:13:55.707]                       while (!identical(envir, .GlobalEnv) && 
[13:13:55.707]                         !identical(envir, emptyenv())) {
[13:13:55.707]                         if (exists("master", mode = "list", envir = envir, 
[13:13:55.707]                           inherits = FALSE)) {
[13:13:55.707]                           master <- get("master", mode = "list", 
[13:13:55.707]                             envir = envir, inherits = FALSE)
[13:13:55.707]                           if (inherits(master, c("SOCKnode", 
[13:13:55.707]                             "SOCK0node"))) {
[13:13:55.707]                             sendCondition <<- function(cond) {
[13:13:55.707]                               data <- list(type = "VALUE", value = cond, 
[13:13:55.707]                                 success = TRUE)
[13:13:55.707]                               parallel_sendData(master, data)
[13:13:55.707]                             }
[13:13:55.707]                             return(sendCondition)
[13:13:55.707]                           }
[13:13:55.707]                         }
[13:13:55.707]                         frame <- frame + 1L
[13:13:55.707]                         envir <- sys.frame(frame)
[13:13:55.707]                       }
[13:13:55.707]                     }
[13:13:55.707]                     sendCondition <<- function(cond) NULL
[13:13:55.707]                   }
[13:13:55.707]                 })
[13:13:55.707]                 withCallingHandlers({
[13:13:55.707]                   {
[13:13:55.707]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:55.707]                     if (!identical(...future.globals.maxSize.org, 
[13:13:55.707]                       ...future.globals.maxSize)) {
[13:13:55.707]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:55.707]                       on.exit(options(oopts), add = TRUE)
[13:13:55.707]                     }
[13:13:55.707]                     {
[13:13:55.707]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:55.707]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:55.707]                         USE.NAMES = FALSE)
[13:13:55.707]                       do.call(mapply, args = args)
[13:13:55.707]                     }
[13:13:55.707]                   }
[13:13:55.707]                 }, immediateCondition = function(cond) {
[13:13:55.707]                   sendCondition <- ...future.makeSendCondition()
[13:13:55.707]                   sendCondition(cond)
[13:13:55.707]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.707]                   {
[13:13:55.707]                     inherits <- base::inherits
[13:13:55.707]                     invokeRestart <- base::invokeRestart
[13:13:55.707]                     is.null <- base::is.null
[13:13:55.707]                     muffled <- FALSE
[13:13:55.707]                     if (inherits(cond, "message")) {
[13:13:55.707]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:55.707]                       if (muffled) 
[13:13:55.707]                         invokeRestart("muffleMessage")
[13:13:55.707]                     }
[13:13:55.707]                     else if (inherits(cond, "warning")) {
[13:13:55.707]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:55.707]                       if (muffled) 
[13:13:55.707]                         invokeRestart("muffleWarning")
[13:13:55.707]                     }
[13:13:55.707]                     else if (inherits(cond, "condition")) {
[13:13:55.707]                       if (!is.null(pattern)) {
[13:13:55.707]                         computeRestarts <- base::computeRestarts
[13:13:55.707]                         grepl <- base::grepl
[13:13:55.707]                         restarts <- computeRestarts(cond)
[13:13:55.707]                         for (restart in restarts) {
[13:13:55.707]                           name <- restart$name
[13:13:55.707]                           if (is.null(name)) 
[13:13:55.707]                             next
[13:13:55.707]                           if (!grepl(pattern, name)) 
[13:13:55.707]                             next
[13:13:55.707]                           invokeRestart(restart)
[13:13:55.707]                           muffled <- TRUE
[13:13:55.707]                           break
[13:13:55.707]                         }
[13:13:55.707]                       }
[13:13:55.707]                     }
[13:13:55.707]                     invisible(muffled)
[13:13:55.707]                   }
[13:13:55.707]                   muffleCondition(cond)
[13:13:55.707]                 })
[13:13:55.707]             }))
[13:13:55.707]             future::FutureResult(value = ...future.value$value, 
[13:13:55.707]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:55.707]                   ...future.rng), globalenv = if (FALSE) 
[13:13:55.707]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:55.707]                     ...future.globalenv.names))
[13:13:55.707]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:55.707]         }, condition = base::local({
[13:13:55.707]             c <- base::c
[13:13:55.707]             inherits <- base::inherits
[13:13:55.707]             invokeRestart <- base::invokeRestart
[13:13:55.707]             length <- base::length
[13:13:55.707]             list <- base::list
[13:13:55.707]             seq.int <- base::seq.int
[13:13:55.707]             signalCondition <- base::signalCondition
[13:13:55.707]             sys.calls <- base::sys.calls
[13:13:55.707]             `[[` <- base::`[[`
[13:13:55.707]             `+` <- base::`+`
[13:13:55.707]             `<<-` <- base::`<<-`
[13:13:55.707]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:55.707]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:55.707]                   3L)]
[13:13:55.707]             }
[13:13:55.707]             function(cond) {
[13:13:55.707]                 is_error <- inherits(cond, "error")
[13:13:55.707]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:55.707]                   NULL)
[13:13:55.707]                 if (is_error) {
[13:13:55.707]                   sessionInformation <- function() {
[13:13:55.707]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:55.707]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:55.707]                       search = base::search(), system = base::Sys.info())
[13:13:55.707]                   }
[13:13:55.707]                   ...future.conditions[[length(...future.conditions) + 
[13:13:55.707]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:55.707]                     cond$call), session = sessionInformation(), 
[13:13:55.707]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:55.707]                   signalCondition(cond)
[13:13:55.707]                 }
[13:13:55.707]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:55.707]                 "immediateCondition"))) {
[13:13:55.707]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:55.707]                   ...future.conditions[[length(...future.conditions) + 
[13:13:55.707]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:55.707]                   if (TRUE && !signal) {
[13:13:55.707]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.707]                     {
[13:13:55.707]                       inherits <- base::inherits
[13:13:55.707]                       invokeRestart <- base::invokeRestart
[13:13:55.707]                       is.null <- base::is.null
[13:13:55.707]                       muffled <- FALSE
[13:13:55.707]                       if (inherits(cond, "message")) {
[13:13:55.707]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:55.707]                         if (muffled) 
[13:13:55.707]                           invokeRestart("muffleMessage")
[13:13:55.707]                       }
[13:13:55.707]                       else if (inherits(cond, "warning")) {
[13:13:55.707]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:55.707]                         if (muffled) 
[13:13:55.707]                           invokeRestart("muffleWarning")
[13:13:55.707]                       }
[13:13:55.707]                       else if (inherits(cond, "condition")) {
[13:13:55.707]                         if (!is.null(pattern)) {
[13:13:55.707]                           computeRestarts <- base::computeRestarts
[13:13:55.707]                           grepl <- base::grepl
[13:13:55.707]                           restarts <- computeRestarts(cond)
[13:13:55.707]                           for (restart in restarts) {
[13:13:55.707]                             name <- restart$name
[13:13:55.707]                             if (is.null(name)) 
[13:13:55.707]                               next
[13:13:55.707]                             if (!grepl(pattern, name)) 
[13:13:55.707]                               next
[13:13:55.707]                             invokeRestart(restart)
[13:13:55.707]                             muffled <- TRUE
[13:13:55.707]                             break
[13:13:55.707]                           }
[13:13:55.707]                         }
[13:13:55.707]                       }
[13:13:55.707]                       invisible(muffled)
[13:13:55.707]                     }
[13:13:55.707]                     muffleCondition(cond, pattern = "^muffle")
[13:13:55.707]                   }
[13:13:55.707]                 }
[13:13:55.707]                 else {
[13:13:55.707]                   if (TRUE) {
[13:13:55.707]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.707]                     {
[13:13:55.707]                       inherits <- base::inherits
[13:13:55.707]                       invokeRestart <- base::invokeRestart
[13:13:55.707]                       is.null <- base::is.null
[13:13:55.707]                       muffled <- FALSE
[13:13:55.707]                       if (inherits(cond, "message")) {
[13:13:55.707]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:55.707]                         if (muffled) 
[13:13:55.707]                           invokeRestart("muffleMessage")
[13:13:55.707]                       }
[13:13:55.707]                       else if (inherits(cond, "warning")) {
[13:13:55.707]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:55.707]                         if (muffled) 
[13:13:55.707]                           invokeRestart("muffleWarning")
[13:13:55.707]                       }
[13:13:55.707]                       else if (inherits(cond, "condition")) {
[13:13:55.707]                         if (!is.null(pattern)) {
[13:13:55.707]                           computeRestarts <- base::computeRestarts
[13:13:55.707]                           grepl <- base::grepl
[13:13:55.707]                           restarts <- computeRestarts(cond)
[13:13:55.707]                           for (restart in restarts) {
[13:13:55.707]                             name <- restart$name
[13:13:55.707]                             if (is.null(name)) 
[13:13:55.707]                               next
[13:13:55.707]                             if (!grepl(pattern, name)) 
[13:13:55.707]                               next
[13:13:55.707]                             invokeRestart(restart)
[13:13:55.707]                             muffled <- TRUE
[13:13:55.707]                             break
[13:13:55.707]                           }
[13:13:55.707]                         }
[13:13:55.707]                       }
[13:13:55.707]                       invisible(muffled)
[13:13:55.707]                     }
[13:13:55.707]                     muffleCondition(cond, pattern = "^muffle")
[13:13:55.707]                   }
[13:13:55.707]                 }
[13:13:55.707]             }
[13:13:55.707]         }))
[13:13:55.707]     }, error = function(ex) {
[13:13:55.707]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:55.707]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:55.707]                 ...future.rng), started = ...future.startTime, 
[13:13:55.707]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:55.707]             version = "1.8"), class = "FutureResult")
[13:13:55.707]     }, finally = {
[13:13:55.707]         if (!identical(...future.workdir, getwd())) 
[13:13:55.707]             setwd(...future.workdir)
[13:13:55.707]         {
[13:13:55.707]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:55.707]                 ...future.oldOptions$nwarnings <- NULL
[13:13:55.707]             }
[13:13:55.707]             base::options(...future.oldOptions)
[13:13:55.707]             if (.Platform$OS.type == "windows") {
[13:13:55.707]                 old_names <- names(...future.oldEnvVars)
[13:13:55.707]                 envs <- base::Sys.getenv()
[13:13:55.707]                 names <- names(envs)
[13:13:55.707]                 common <- intersect(names, old_names)
[13:13:55.707]                 added <- setdiff(names, old_names)
[13:13:55.707]                 removed <- setdiff(old_names, names)
[13:13:55.707]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:55.707]                   envs[common]]
[13:13:55.707]                 NAMES <- toupper(changed)
[13:13:55.707]                 args <- list()
[13:13:55.707]                 for (kk in seq_along(NAMES)) {
[13:13:55.707]                   name <- changed[[kk]]
[13:13:55.707]                   NAME <- NAMES[[kk]]
[13:13:55.707]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.707]                     next
[13:13:55.707]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:55.707]                 }
[13:13:55.707]                 NAMES <- toupper(added)
[13:13:55.707]                 for (kk in seq_along(NAMES)) {
[13:13:55.707]                   name <- added[[kk]]
[13:13:55.707]                   NAME <- NAMES[[kk]]
[13:13:55.707]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.707]                     next
[13:13:55.707]                   args[[name]] <- ""
[13:13:55.707]                 }
[13:13:55.707]                 NAMES <- toupper(removed)
[13:13:55.707]                 for (kk in seq_along(NAMES)) {
[13:13:55.707]                   name <- removed[[kk]]
[13:13:55.707]                   NAME <- NAMES[[kk]]
[13:13:55.707]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.707]                     next
[13:13:55.707]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:55.707]                 }
[13:13:55.707]                 if (length(args) > 0) 
[13:13:55.707]                   base::do.call(base::Sys.setenv, args = args)
[13:13:55.707]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:55.707]             }
[13:13:55.707]             else {
[13:13:55.707]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:55.707]             }
[13:13:55.707]             {
[13:13:55.707]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:55.707]                   0L) {
[13:13:55.707]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:55.707]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:55.707]                   base::options(opts)
[13:13:55.707]                 }
[13:13:55.707]                 {
[13:13:55.707]                   {
[13:13:55.707]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:55.707]                     NULL
[13:13:55.707]                   }
[13:13:55.707]                   options(future.plan = NULL)
[13:13:55.707]                   if (is.na(NA_character_)) 
[13:13:55.707]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:55.707]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:55.707]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:55.707]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:55.707]                     envir = parent.frame()) 
[13:13:55.707]                   {
[13:13:55.707]                     if (is.function(workers)) 
[13:13:55.707]                       workers <- workers()
[13:13:55.707]                     workers <- structure(as.integer(workers), 
[13:13:55.707]                       class = class(workers))
[13:13:55.707]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:55.707]                       workers >= 1)
[13:13:55.707]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:55.707]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:55.707]                     }
[13:13:55.707]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:55.707]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:55.707]                       envir = envir)
[13:13:55.707]                     if (!future$lazy) 
[13:13:55.707]                       future <- run(future)
[13:13:55.707]                     invisible(future)
[13:13:55.707]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:55.707]                 }
[13:13:55.707]             }
[13:13:55.707]         }
[13:13:55.707]     })
[13:13:55.707]     if (TRUE) {
[13:13:55.707]         base::sink(type = "output", split = FALSE)
[13:13:55.707]         if (TRUE) {
[13:13:55.707]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:55.707]         }
[13:13:55.707]         else {
[13:13:55.707]             ...future.result["stdout"] <- base::list(NULL)
[13:13:55.707]         }
[13:13:55.707]         base::close(...future.stdout)
[13:13:55.707]         ...future.stdout <- NULL
[13:13:55.707]     }
[13:13:55.707]     ...future.result$conditions <- ...future.conditions
[13:13:55.707]     ...future.result$finished <- base::Sys.time()
[13:13:55.707]     ...future.result
[13:13:55.707] }
[13:13:55.712] Exporting 5 global objects (3.73 KiB) to cluster node #1 ...
[13:13:55.713] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ...
[13:13:55.713] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ... DONE
[13:13:55.713] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:55.714] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:55.714] Exporting '...future.elements_ii' (504 bytes) to cluster node #1 ...
[13:13:55.714] Exporting '...future.elements_ii' (504 bytes) to cluster node #1 ... DONE
[13:13:55.715] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:55.715] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:55.715] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:55.716] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:55.716] Exporting 5 global objects (3.73 KiB) to cluster node #1 ... DONE
[13:13:55.716] MultisessionFuture started
[13:13:55.717] - Launch lazy future ... done
[13:13:55.717] run() for 'MultisessionFuture' ... done
[13:13:55.717] Created future:
[13:13:55.733] receiveMessageFromWorker() for ClusterFuture ...
[13:13:55.733] - Validating connection of MultisessionFuture
[13:13:55.733] - received message: FutureResult
[13:13:55.733] - Received FutureResult
[13:13:55.733] - Erased future from FutureRegistry
[13:13:55.734] result() for ClusterFuture ...
[13:13:55.734] - result already collected: FutureResult
[13:13:55.734] result() for ClusterFuture ... done
[13:13:55.734] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:55.717] MultisessionFuture:
[13:13:55.717] Label: 'future_.mapply-2'
[13:13:55.717] Expression:
[13:13:55.717] {
[13:13:55.717]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:55.717]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:55.717]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:55.717]         on.exit(options(oopts), add = TRUE)
[13:13:55.717]     }
[13:13:55.717]     {
[13:13:55.717]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:55.717]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:55.717]         do.call(mapply, args = args)
[13:13:55.717]     }
[13:13:55.717] }
[13:13:55.717] Lazy evaluation: FALSE
[13:13:55.717] Asynchronous evaluation: TRUE
[13:13:55.717] Local evaluation: TRUE
[13:13:55.717] Environment: R_GlobalEnv
[13:13:55.717] Capture standard output: TRUE
[13:13:55.717] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:55.717] Globals: 5 objects totaling 3.73 KiB (function '...future.FUN' of 3.24 KiB, list 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 504 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:55.717] Packages: <none>
[13:13:55.717] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:55.717] Resolved: TRUE
[13:13:55.717] Value: <not collected>
[13:13:55.717] Conditions captured: <none>
[13:13:55.717] Early signaling: FALSE
[13:13:55.717] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:55.717] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:55.734] Chunk #2 of 2 ... DONE
[13:13:55.735] Launching 2 futures (chunks) ... DONE
[13:13:55.735] Resolving 2 futures (chunks) ...
[13:13:55.735] resolve() on list ...
[13:13:55.735]  recursive: 0
[13:13:55.735]  length: 2
[13:13:55.735] 
[13:13:55.736] Future #1
[13:13:55.736] result() for ClusterFuture ...
[13:13:55.736] - result already collected: FutureResult
[13:13:55.736] result() for ClusterFuture ... done
[13:13:55.736] result() for ClusterFuture ...
[13:13:55.736] - result already collected: FutureResult
[13:13:55.737] result() for ClusterFuture ... done
[13:13:55.737] signalConditionsASAP(MultisessionFuture, pos=1) ...
[13:13:55.737] - nx: 2
[13:13:55.737] - relay: TRUE
[13:13:55.737] - stdout: TRUE
[13:13:55.737] - signal: TRUE
[13:13:55.737] - resignal: FALSE
[13:13:55.738] - force: TRUE
[13:13:55.738] - relayed: [n=2] FALSE, FALSE
[13:13:55.738] - queued futures: [n=2] FALSE, FALSE
[13:13:55.738]  - until=1
[13:13:55.738]  - relaying element #1
[13:13:55.738] result() for ClusterFuture ...
[13:13:55.739] - result already collected: FutureResult
[13:13:55.739] result() for ClusterFuture ... done
[13:13:55.739] result() for ClusterFuture ...
[13:13:55.739] - result already collected: FutureResult
[13:13:55.739] result() for ClusterFuture ... done
[13:13:55.739] result() for ClusterFuture ...
[13:13:55.740] - result already collected: FutureResult
[13:13:55.740] result() for ClusterFuture ... done
[13:13:55.740] result() for ClusterFuture ...
[13:13:55.740] - result already collected: FutureResult
[13:13:55.740] result() for ClusterFuture ... done
[13:13:55.740] - relayed: [n=2] TRUE, FALSE
[13:13:55.740] - queued futures: [n=2] TRUE, FALSE
[13:13:55.741] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[13:13:55.741]  length: 1 (resolved future 1)
[13:13:55.741] Future #2
[13:13:55.741] result() for ClusterFuture ...
[13:13:55.741] - result already collected: FutureResult
[13:13:55.741] result() for ClusterFuture ... done
[13:13:55.742] result() for ClusterFuture ...
[13:13:55.742] - result already collected: FutureResult
[13:13:55.742] result() for ClusterFuture ... done
[13:13:55.742] signalConditionsASAP(MultisessionFuture, pos=2) ...
[13:13:55.742] - nx: 2
[13:13:55.742] - relay: TRUE
[13:13:55.743] - stdout: TRUE
[13:13:55.743] - signal: TRUE
[13:13:55.743] - resignal: FALSE
[13:13:55.743] - force: TRUE
[13:13:55.743] - relayed: [n=2] TRUE, FALSE
[13:13:55.743] - queued futures: [n=2] TRUE, FALSE
[13:13:55.743]  - until=2
[13:13:55.744]  - relaying element #2
[13:13:55.744] result() for ClusterFuture ...
[13:13:55.744] - result already collected: FutureResult
[13:13:55.744] result() for ClusterFuture ... done
[13:13:55.744] result() for ClusterFuture ...
[13:13:55.744] - result already collected: FutureResult
[13:13:55.745] result() for ClusterFuture ... done
[13:13:55.745] result() for ClusterFuture ...
[13:13:55.745] - result already collected: FutureResult
[13:13:55.745] result() for ClusterFuture ... done
[13:13:55.745] result() for ClusterFuture ...
[13:13:55.745] - result already collected: FutureResult
[13:13:55.746] result() for ClusterFuture ... done
[13:13:55.746] - relayed: [n=2] TRUE, TRUE
[13:13:55.746] - queued futures: [n=2] TRUE, TRUE
[13:13:55.746] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[13:13:55.746]  length: 0 (resolved future 2)
[13:13:55.746] Relaying remaining futures
[13:13:55.746] signalConditionsASAP(NULL, pos=0) ...
[13:13:55.747] - nx: 2
[13:13:55.747] - relay: TRUE
[13:13:55.747] - stdout: TRUE
[13:13:55.747] - signal: TRUE
[13:13:55.747] - resignal: FALSE
[13:13:55.747] - force: TRUE
[13:13:55.747] - relayed: [n=2] TRUE, TRUE
[13:13:55.748] - queued futures: [n=2] TRUE, TRUE
 - flush all
[13:13:55.748] - relayed: [n=2] TRUE, TRUE
[13:13:55.748] - queued futures: [n=2] TRUE, TRUE
[13:13:55.748] signalConditionsASAP(NULL, pos=0) ... done
[13:13:55.748] resolve() on list ... DONE
[13:13:55.749] result() for ClusterFuture ...
[13:13:55.749] - result already collected: FutureResult
[13:13:55.749] result() for ClusterFuture ... done
[13:13:55.749] result() for ClusterFuture ...
[13:13:55.749] - result already collected: FutureResult
[13:13:55.749] result() for ClusterFuture ... done
[13:13:55.749] result() for ClusterFuture ...
[13:13:55.750] - result already collected: FutureResult
[13:13:55.750] result() for ClusterFuture ... done
[13:13:55.750] result() for ClusterFuture ...
[13:13:55.750] - result already collected: FutureResult
[13:13:55.750] result() for ClusterFuture ... done
[13:13:55.750]  - Number of value chunks collected: 2
[13:13:55.751] Resolving 2 futures (chunks) ... DONE
[13:13:55.751] Reducing values from 2 chunks ...
[13:13:55.751]  - Number of values collected after concatenation: 5
[13:13:55.751]  - Number of values expected: 5
[13:13:55.751] Reducing values from 2 chunks ... DONE
[13:13:55.751] future_mapply() ... DONE
[13:13:55.752] future_mapply() ...
[13:13:55.754] Number of chunks: 2
[13:13:55.755] Index remapping (attribute 'ordering'): [n = 5] 5, 4, 3, 2, 1
[13:13:55.755] getGlobalsAndPackagesXApply() ...
[13:13:55.755]  - future.globals: TRUE
[13:13:55.755] getGlobalsAndPackages() ...
[13:13:55.755] Searching for globals...
[13:13:55.757] - globals found: [3] 'FUN', 'paste', 'rep.int'
[13:13:55.757] Searching for globals ... DONE
[13:13:55.757] Resolving globals: FALSE
[13:13:55.758] The total size of the 1 globals is 3.24 KiB (3320 bytes)
[13:13:55.758] The total size of the 1 globals exported for future expression ('FUN()') is 3.24 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (3.24 KiB of class 'function')
[13:13:55.758] - globals: [1] 'FUN'
[13:13:55.758] 
[13:13:55.759] getGlobalsAndPackages() ... DONE
[13:13:55.759]  - globals found/used: [n=1] 'FUN'
[13:13:55.759]  - needed namespaces: [n=0] 
[13:13:55.759] Finding globals ... DONE
[13:13:55.759] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:55.759] List of 2
[13:13:55.759]  $ ...future.FUN:function (C, k)  
[13:13:55.759]  $ MoreArgs     : NULL
[13:13:55.759]  - attr(*, "where")=List of 2
[13:13:55.759]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:55.759]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:55.759]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:55.759]  - attr(*, "resolved")= logi FALSE
[13:13:55.759]  - attr(*, "total_size")= num NA
[13:13:55.762] Packages to be attached in all futures: [n=0] 
[13:13:55.763] getGlobalsAndPackagesXApply() ... DONE
[13:13:55.763] Number of futures (= number of chunks): 2
[13:13:55.763] Launching 2 futures (chunks) ...
[13:13:55.763] Chunk #1 of 2 ...
[13:13:55.763]  - Finding globals in '...' for chunk #1 ...
[13:13:55.764] getGlobalsAndPackages() ...
[13:13:55.764] Searching for globals...
[13:13:55.764] 
[13:13:55.764] Searching for globals ... DONE
[13:13:55.764] - globals: [0] <none>
[13:13:55.765] getGlobalsAndPackages() ... DONE
[13:13:55.765]    + additional globals found: [n=0] 
[13:13:55.765]    + additional namespaces needed: [n=0] 
[13:13:55.765]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:55.765]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:55.765]  - seeds: <none>
[13:13:55.766]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.766] getGlobalsAndPackages() ...
[13:13:55.766] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.766] Resolving globals: FALSE
[13:13:55.767] The total size of the 5 globals is 3.57 KiB (3656 bytes)
[13:13:55.767] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 3.57 KiB.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (3.24 KiB of class 'function'), '...future.elements_ii' (336 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:55.768] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.768] 
[13:13:55.768] getGlobalsAndPackages() ... DONE
[13:13:55.768] run() for 'Future' ...
[13:13:55.768] - state: 'created'
[13:13:55.769] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:55.783] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:55.783] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:55.783]   - Field: 'node'
[13:13:55.783]   - Field: 'label'
[13:13:55.784]   - Field: 'local'
[13:13:55.784]   - Field: 'owner'
[13:13:55.784]   - Field: 'envir'
[13:13:55.784]   - Field: 'workers'
[13:13:55.784]   - Field: 'packages'
[13:13:55.785]   - Field: 'gc'
[13:13:55.785]   - Field: 'conditions'
[13:13:55.785]   - Field: 'persistent'
[13:13:55.785]   - Field: 'expr'
[13:13:55.785]   - Field: 'uuid'
[13:13:55.786]   - Field: 'seed'
[13:13:55.786]   - Field: 'version'
[13:13:55.786]   - Field: 'result'
[13:13:55.786]   - Field: 'asynchronous'
[13:13:55.786]   - Field: 'calls'
[13:13:55.786]   - Field: 'globals'
[13:13:55.787]   - Field: 'stdout'
[13:13:55.787]   - Field: 'earlySignal'
[13:13:55.787]   - Field: 'lazy'
[13:13:55.787]   - Field: 'state'
[13:13:55.787] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:55.787] - Launch lazy future ...
[13:13:55.788] Packages needed by the future expression (n = 0): <none>
[13:13:55.788] Packages needed by future strategies (n = 0): <none>
[13:13:55.789] {
[13:13:55.789]     {
[13:13:55.789]         {
[13:13:55.789]             ...future.startTime <- base::Sys.time()
[13:13:55.789]             {
[13:13:55.789]                 {
[13:13:55.789]                   {
[13:13:55.789]                     {
[13:13:55.789]                       base::local({
[13:13:55.789]                         has_future <- base::requireNamespace("future", 
[13:13:55.789]                           quietly = TRUE)
[13:13:55.789]                         if (has_future) {
[13:13:55.789]                           ns <- base::getNamespace("future")
[13:13:55.789]                           version <- ns[[".package"]][["version"]]
[13:13:55.789]                           if (is.null(version)) 
[13:13:55.789]                             version <- utils::packageVersion("future")
[13:13:55.789]                         }
[13:13:55.789]                         else {
[13:13:55.789]                           version <- NULL
[13:13:55.789]                         }
[13:13:55.789]                         if (!has_future || version < "1.8.0") {
[13:13:55.789]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:55.789]                             "", base::R.version$version.string), 
[13:13:55.789]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:55.789]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:55.789]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:55.789]                               "release", "version")], collapse = " "), 
[13:13:55.789]                             hostname = base::Sys.info()[["nodename"]])
[13:13:55.789]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:55.789]                             info)
[13:13:55.789]                           info <- base::paste(info, collapse = "; ")
[13:13:55.789]                           if (!has_future) {
[13:13:55.789]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:55.789]                               info)
[13:13:55.789]                           }
[13:13:55.789]                           else {
[13:13:55.789]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:55.789]                               info, version)
[13:13:55.789]                           }
[13:13:55.789]                           base::stop(msg)
[13:13:55.789]                         }
[13:13:55.789]                       })
[13:13:55.789]                     }
[13:13:55.789]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:55.789]                     base::options(mc.cores = 1L)
[13:13:55.789]                   }
[13:13:55.789]                   options(future.plan = NULL)
[13:13:55.789]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:55.789]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:55.789]                 }
[13:13:55.789]                 ...future.workdir <- getwd()
[13:13:55.789]             }
[13:13:55.789]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:55.789]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:55.789]         }
[13:13:55.789]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:55.789]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:55.789]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:55.789]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:55.789]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:55.789]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:55.789]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:55.789]             base::names(...future.oldOptions))
[13:13:55.789]     }
[13:13:55.789]     if (FALSE) {
[13:13:55.789]     }
[13:13:55.789]     else {
[13:13:55.789]         if (TRUE) {
[13:13:55.789]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:55.789]                 open = "w")
[13:13:55.789]         }
[13:13:55.789]         else {
[13:13:55.789]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:55.789]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:55.789]         }
[13:13:55.789]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:55.789]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:55.789]             base::sink(type = "output", split = FALSE)
[13:13:55.789]             base::close(...future.stdout)
[13:13:55.789]         }, add = TRUE)
[13:13:55.789]     }
[13:13:55.789]     ...future.frame <- base::sys.nframe()
[13:13:55.789]     ...future.conditions <- base::list()
[13:13:55.789]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:55.789]     if (FALSE) {
[13:13:55.789]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:55.789]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:55.789]     }
[13:13:55.789]     ...future.result <- base::tryCatch({
[13:13:55.789]         base::withCallingHandlers({
[13:13:55.789]             ...future.value <- base::withVisible(base::local({
[13:13:55.789]                 ...future.makeSendCondition <- local({
[13:13:55.789]                   sendCondition <- NULL
[13:13:55.789]                   function(frame = 1L) {
[13:13:55.789]                     if (is.function(sendCondition)) 
[13:13:55.789]                       return(sendCondition)
[13:13:55.789]                     ns <- getNamespace("parallel")
[13:13:55.789]                     if (exists("sendData", mode = "function", 
[13:13:55.789]                       envir = ns)) {
[13:13:55.789]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:55.789]                         envir = ns)
[13:13:55.789]                       envir <- sys.frame(frame)
[13:13:55.789]                       master <- NULL
[13:13:55.789]                       while (!identical(envir, .GlobalEnv) && 
[13:13:55.789]                         !identical(envir, emptyenv())) {
[13:13:55.789]                         if (exists("master", mode = "list", envir = envir, 
[13:13:55.789]                           inherits = FALSE)) {
[13:13:55.789]                           master <- get("master", mode = "list", 
[13:13:55.789]                             envir = envir, inherits = FALSE)
[13:13:55.789]                           if (inherits(master, c("SOCKnode", 
[13:13:55.789]                             "SOCK0node"))) {
[13:13:55.789]                             sendCondition <<- function(cond) {
[13:13:55.789]                               data <- list(type = "VALUE", value = cond, 
[13:13:55.789]                                 success = TRUE)
[13:13:55.789]                               parallel_sendData(master, data)
[13:13:55.789]                             }
[13:13:55.789]                             return(sendCondition)
[13:13:55.789]                           }
[13:13:55.789]                         }
[13:13:55.789]                         frame <- frame + 1L
[13:13:55.789]                         envir <- sys.frame(frame)
[13:13:55.789]                       }
[13:13:55.789]                     }
[13:13:55.789]                     sendCondition <<- function(cond) NULL
[13:13:55.789]                   }
[13:13:55.789]                 })
[13:13:55.789]                 withCallingHandlers({
[13:13:55.789]                   {
[13:13:55.789]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:55.789]                     if (!identical(...future.globals.maxSize.org, 
[13:13:55.789]                       ...future.globals.maxSize)) {
[13:13:55.789]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:55.789]                       on.exit(options(oopts), add = TRUE)
[13:13:55.789]                     }
[13:13:55.789]                     {
[13:13:55.789]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:55.789]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:55.789]                         USE.NAMES = FALSE)
[13:13:55.789]                       do.call(mapply, args = args)
[13:13:55.789]                     }
[13:13:55.789]                   }
[13:13:55.789]                 }, immediateCondition = function(cond) {
[13:13:55.789]                   sendCondition <- ...future.makeSendCondition()
[13:13:55.789]                   sendCondition(cond)
[13:13:55.789]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.789]                   {
[13:13:55.789]                     inherits <- base::inherits
[13:13:55.789]                     invokeRestart <- base::invokeRestart
[13:13:55.789]                     is.null <- base::is.null
[13:13:55.789]                     muffled <- FALSE
[13:13:55.789]                     if (inherits(cond, "message")) {
[13:13:55.789]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:55.789]                       if (muffled) 
[13:13:55.789]                         invokeRestart("muffleMessage")
[13:13:55.789]                     }
[13:13:55.789]                     else if (inherits(cond, "warning")) {
[13:13:55.789]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:55.789]                       if (muffled) 
[13:13:55.789]                         invokeRestart("muffleWarning")
[13:13:55.789]                     }
[13:13:55.789]                     else if (inherits(cond, "condition")) {
[13:13:55.789]                       if (!is.null(pattern)) {
[13:13:55.789]                         computeRestarts <- base::computeRestarts
[13:13:55.789]                         grepl <- base::grepl
[13:13:55.789]                         restarts <- computeRestarts(cond)
[13:13:55.789]                         for (restart in restarts) {
[13:13:55.789]                           name <- restart$name
[13:13:55.789]                           if (is.null(name)) 
[13:13:55.789]                             next
[13:13:55.789]                           if (!grepl(pattern, name)) 
[13:13:55.789]                             next
[13:13:55.789]                           invokeRestart(restart)
[13:13:55.789]                           muffled <- TRUE
[13:13:55.789]                           break
[13:13:55.789]                         }
[13:13:55.789]                       }
[13:13:55.789]                     }
[13:13:55.789]                     invisible(muffled)
[13:13:55.789]                   }
[13:13:55.789]                   muffleCondition(cond)
[13:13:55.789]                 })
[13:13:55.789]             }))
[13:13:55.789]             future::FutureResult(value = ...future.value$value, 
[13:13:55.789]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:55.789]                   ...future.rng), globalenv = if (FALSE) 
[13:13:55.789]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:55.789]                     ...future.globalenv.names))
[13:13:55.789]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:55.789]         }, condition = base::local({
[13:13:55.789]             c <- base::c
[13:13:55.789]             inherits <- base::inherits
[13:13:55.789]             invokeRestart <- base::invokeRestart
[13:13:55.789]             length <- base::length
[13:13:55.789]             list <- base::list
[13:13:55.789]             seq.int <- base::seq.int
[13:13:55.789]             signalCondition <- base::signalCondition
[13:13:55.789]             sys.calls <- base::sys.calls
[13:13:55.789]             `[[` <- base::`[[`
[13:13:55.789]             `+` <- base::`+`
[13:13:55.789]             `<<-` <- base::`<<-`
[13:13:55.789]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:55.789]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:55.789]                   3L)]
[13:13:55.789]             }
[13:13:55.789]             function(cond) {
[13:13:55.789]                 is_error <- inherits(cond, "error")
[13:13:55.789]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:55.789]                   NULL)
[13:13:55.789]                 if (is_error) {
[13:13:55.789]                   sessionInformation <- function() {
[13:13:55.789]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:55.789]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:55.789]                       search = base::search(), system = base::Sys.info())
[13:13:55.789]                   }
[13:13:55.789]                   ...future.conditions[[length(...future.conditions) + 
[13:13:55.789]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:55.789]                     cond$call), session = sessionInformation(), 
[13:13:55.789]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:55.789]                   signalCondition(cond)
[13:13:55.789]                 }
[13:13:55.789]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:55.789]                 "immediateCondition"))) {
[13:13:55.789]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:55.789]                   ...future.conditions[[length(...future.conditions) + 
[13:13:55.789]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:55.789]                   if (TRUE && !signal) {
[13:13:55.789]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.789]                     {
[13:13:55.789]                       inherits <- base::inherits
[13:13:55.789]                       invokeRestart <- base::invokeRestart
[13:13:55.789]                       is.null <- base::is.null
[13:13:55.789]                       muffled <- FALSE
[13:13:55.789]                       if (inherits(cond, "message")) {
[13:13:55.789]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:55.789]                         if (muffled) 
[13:13:55.789]                           invokeRestart("muffleMessage")
[13:13:55.789]                       }
[13:13:55.789]                       else if (inherits(cond, "warning")) {
[13:13:55.789]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:55.789]                         if (muffled) 
[13:13:55.789]                           invokeRestart("muffleWarning")
[13:13:55.789]                       }
[13:13:55.789]                       else if (inherits(cond, "condition")) {
[13:13:55.789]                         if (!is.null(pattern)) {
[13:13:55.789]                           computeRestarts <- base::computeRestarts
[13:13:55.789]                           grepl <- base::grepl
[13:13:55.789]                           restarts <- computeRestarts(cond)
[13:13:55.789]                           for (restart in restarts) {
[13:13:55.789]                             name <- restart$name
[13:13:55.789]                             if (is.null(name)) 
[13:13:55.789]                               next
[13:13:55.789]                             if (!grepl(pattern, name)) 
[13:13:55.789]                               next
[13:13:55.789]                             invokeRestart(restart)
[13:13:55.789]                             muffled <- TRUE
[13:13:55.789]                             break
[13:13:55.789]                           }
[13:13:55.789]                         }
[13:13:55.789]                       }
[13:13:55.789]                       invisible(muffled)
[13:13:55.789]                     }
[13:13:55.789]                     muffleCondition(cond, pattern = "^muffle")
[13:13:55.789]                   }
[13:13:55.789]                 }
[13:13:55.789]                 else {
[13:13:55.789]                   if (TRUE) {
[13:13:55.789]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.789]                     {
[13:13:55.789]                       inherits <- base::inherits
[13:13:55.789]                       invokeRestart <- base::invokeRestart
[13:13:55.789]                       is.null <- base::is.null
[13:13:55.789]                       muffled <- FALSE
[13:13:55.789]                       if (inherits(cond, "message")) {
[13:13:55.789]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:55.789]                         if (muffled) 
[13:13:55.789]                           invokeRestart("muffleMessage")
[13:13:55.789]                       }
[13:13:55.789]                       else if (inherits(cond, "warning")) {
[13:13:55.789]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:55.789]                         if (muffled) 
[13:13:55.789]                           invokeRestart("muffleWarning")
[13:13:55.789]                       }
[13:13:55.789]                       else if (inherits(cond, "condition")) {
[13:13:55.789]                         if (!is.null(pattern)) {
[13:13:55.789]                           computeRestarts <- base::computeRestarts
[13:13:55.789]                           grepl <- base::grepl
[13:13:55.789]                           restarts <- computeRestarts(cond)
[13:13:55.789]                           for (restart in restarts) {
[13:13:55.789]                             name <- restart$name
[13:13:55.789]                             if (is.null(name)) 
[13:13:55.789]                               next
[13:13:55.789]                             if (!grepl(pattern, name)) 
[13:13:55.789]                               next
[13:13:55.789]                             invokeRestart(restart)
[13:13:55.789]                             muffled <- TRUE
[13:13:55.789]                             break
[13:13:55.789]                           }
[13:13:55.789]                         }
[13:13:55.789]                       }
[13:13:55.789]                       invisible(muffled)
[13:13:55.789]                     }
[13:13:55.789]                     muffleCondition(cond, pattern = "^muffle")
[13:13:55.789]                   }
[13:13:55.789]                 }
[13:13:55.789]             }
[13:13:55.789]         }))
[13:13:55.789]     }, error = function(ex) {
[13:13:55.789]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:55.789]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:55.789]                 ...future.rng), started = ...future.startTime, 
[13:13:55.789]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:55.789]             version = "1.8"), class = "FutureResult")
[13:13:55.789]     }, finally = {
[13:13:55.789]         if (!identical(...future.workdir, getwd())) 
[13:13:55.789]             setwd(...future.workdir)
[13:13:55.789]         {
[13:13:55.789]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:55.789]                 ...future.oldOptions$nwarnings <- NULL
[13:13:55.789]             }
[13:13:55.789]             base::options(...future.oldOptions)
[13:13:55.789]             if (.Platform$OS.type == "windows") {
[13:13:55.789]                 old_names <- names(...future.oldEnvVars)
[13:13:55.789]                 envs <- base::Sys.getenv()
[13:13:55.789]                 names <- names(envs)
[13:13:55.789]                 common <- intersect(names, old_names)
[13:13:55.789]                 added <- setdiff(names, old_names)
[13:13:55.789]                 removed <- setdiff(old_names, names)
[13:13:55.789]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:55.789]                   envs[common]]
[13:13:55.789]                 NAMES <- toupper(changed)
[13:13:55.789]                 args <- list()
[13:13:55.789]                 for (kk in seq_along(NAMES)) {
[13:13:55.789]                   name <- changed[[kk]]
[13:13:55.789]                   NAME <- NAMES[[kk]]
[13:13:55.789]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.789]                     next
[13:13:55.789]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:55.789]                 }
[13:13:55.789]                 NAMES <- toupper(added)
[13:13:55.789]                 for (kk in seq_along(NAMES)) {
[13:13:55.789]                   name <- added[[kk]]
[13:13:55.789]                   NAME <- NAMES[[kk]]
[13:13:55.789]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.789]                     next
[13:13:55.789]                   args[[name]] <- ""
[13:13:55.789]                 }
[13:13:55.789]                 NAMES <- toupper(removed)
[13:13:55.789]                 for (kk in seq_along(NAMES)) {
[13:13:55.789]                   name <- removed[[kk]]
[13:13:55.789]                   NAME <- NAMES[[kk]]
[13:13:55.789]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.789]                     next
[13:13:55.789]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:55.789]                 }
[13:13:55.789]                 if (length(args) > 0) 
[13:13:55.789]                   base::do.call(base::Sys.setenv, args = args)
[13:13:55.789]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:55.789]             }
[13:13:55.789]             else {
[13:13:55.789]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:55.789]             }
[13:13:55.789]             {
[13:13:55.789]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:55.789]                   0L) {
[13:13:55.789]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:55.789]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:55.789]                   base::options(opts)
[13:13:55.789]                 }
[13:13:55.789]                 {
[13:13:55.789]                   {
[13:13:55.789]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:55.789]                     NULL
[13:13:55.789]                   }
[13:13:55.789]                   options(future.plan = NULL)
[13:13:55.789]                   if (is.na(NA_character_)) 
[13:13:55.789]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:55.789]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:55.789]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:55.789]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:55.789]                     envir = parent.frame()) 
[13:13:55.789]                   {
[13:13:55.789]                     if (is.function(workers)) 
[13:13:55.789]                       workers <- workers()
[13:13:55.789]                     workers <- structure(as.integer(workers), 
[13:13:55.789]                       class = class(workers))
[13:13:55.789]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:55.789]                       workers >= 1)
[13:13:55.789]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:55.789]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:55.789]                     }
[13:13:55.789]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:55.789]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:55.789]                       envir = envir)
[13:13:55.789]                     if (!future$lazy) 
[13:13:55.789]                       future <- run(future)
[13:13:55.789]                     invisible(future)
[13:13:55.789]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:55.789]                 }
[13:13:55.789]             }
[13:13:55.789]         }
[13:13:55.789]     })
[13:13:55.789]     if (TRUE) {
[13:13:55.789]         base::sink(type = "output", split = FALSE)
[13:13:55.789]         if (TRUE) {
[13:13:55.789]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:55.789]         }
[13:13:55.789]         else {
[13:13:55.789]             ...future.result["stdout"] <- base::list(NULL)
[13:13:55.789]         }
[13:13:55.789]         base::close(...future.stdout)
[13:13:55.789]         ...future.stdout <- NULL
[13:13:55.789]     }
[13:13:55.789]     ...future.result$conditions <- ...future.conditions
[13:13:55.789]     ...future.result$finished <- base::Sys.time()
[13:13:55.789]     ...future.result
[13:13:55.789] }
[13:13:55.794] Exporting 5 global objects (3.57 KiB) to cluster node #1 ...
[13:13:55.794] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ...
[13:13:55.795] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ... DONE
[13:13:55.795] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:55.795] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:55.796] Exporting '...future.elements_ii' (336 bytes) to cluster node #1 ...
[13:13:55.796] Exporting '...future.elements_ii' (336 bytes) to cluster node #1 ... DONE
[13:13:55.796] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:55.797] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:55.797] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:55.797] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:55.797] Exporting 5 global objects (3.57 KiB) to cluster node #1 ... DONE
[13:13:55.798] MultisessionFuture started
[13:13:55.798] - Launch lazy future ... done
[13:13:55.798] run() for 'MultisessionFuture' ... done
[13:13:55.799] Created future:
[13:13:55.851] receiveMessageFromWorker() for ClusterFuture ...
[13:13:55.851] - Validating connection of MultisessionFuture
[13:13:55.851] - received message: FutureResult
[13:13:55.852] - Received FutureResult
[13:13:55.852] - Erased future from FutureRegistry
[13:13:55.852] result() for ClusterFuture ...
[13:13:55.852] - result already collected: FutureResult
[13:13:55.852] result() for ClusterFuture ... done
[13:13:55.852] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:55.799] MultisessionFuture:
[13:13:55.799] Label: 'future_mapply-1'
[13:13:55.799] Expression:
[13:13:55.799] {
[13:13:55.799]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:55.799]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:55.799]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:55.799]         on.exit(options(oopts), add = TRUE)
[13:13:55.799]     }
[13:13:55.799]     {
[13:13:55.799]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:55.799]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:55.799]         do.call(mapply, args = args)
[13:13:55.799]     }
[13:13:55.799] }
[13:13:55.799] Lazy evaluation: FALSE
[13:13:55.799] Asynchronous evaluation: TRUE
[13:13:55.799] Local evaluation: TRUE
[13:13:55.799] Environment: R_GlobalEnv
[13:13:55.799] Capture standard output: TRUE
[13:13:55.799] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:55.799] Globals: 5 objects totaling 3.57 KiB (function '...future.FUN' of 3.24 KiB, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 336 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:55.799] Packages: <none>
[13:13:55.799] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:55.799] Resolved: TRUE
[13:13:55.799] Value: <not collected>
[13:13:55.799] Conditions captured: <none>
[13:13:55.799] Early signaling: FALSE
[13:13:55.799] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:55.799] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:55.853] Chunk #1 of 2 ... DONE
[13:13:55.853] Chunk #2 of 2 ...
[13:13:55.853]  - Finding globals in '...' for chunk #2 ...
[13:13:55.853] getGlobalsAndPackages() ...
[13:13:55.854] Searching for globals...
[13:13:55.854] 
[13:13:55.854] Searching for globals ... DONE
[13:13:55.854] - globals: [0] <none>
[13:13:55.855] getGlobalsAndPackages() ... DONE
[13:13:55.856]    + additional globals found: [n=0] 
[13:13:55.856]    + additional namespaces needed: [n=0] 
[13:13:55.857]  - Finding globals in '...' for chunk #2 ... DONE
[13:13:55.857]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:55.857]  - seeds: <none>
[13:13:55.857]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.857] getGlobalsAndPackages() ...
[13:13:55.857] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.858] Resolving globals: FALSE
[13:13:55.858] The total size of the 5 globals is 3.73 KiB (3824 bytes)
[13:13:55.859] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 3.73 KiB.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (3.24 KiB of class 'function'), '...future.elements_ii' (504 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:55.859] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.859] 
[13:13:55.859] getGlobalsAndPackages() ... DONE
[13:13:55.860] run() for 'Future' ...
[13:13:55.860] - state: 'created'
[13:13:55.860] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:55.874] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:55.874] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:55.874]   - Field: 'node'
[13:13:55.875]   - Field: 'label'
[13:13:55.875]   - Field: 'local'
[13:13:55.875]   - Field: 'owner'
[13:13:55.875]   - Field: 'envir'
[13:13:55.875]   - Field: 'workers'
[13:13:55.875]   - Field: 'packages'
[13:13:55.876]   - Field: 'gc'
[13:13:55.876]   - Field: 'conditions'
[13:13:55.876]   - Field: 'persistent'
[13:13:55.876]   - Field: 'expr'
[13:13:55.876]   - Field: 'uuid'
[13:13:55.876]   - Field: 'seed'
[13:13:55.877]   - Field: 'version'
[13:13:55.877]   - Field: 'result'
[13:13:55.877]   - Field: 'asynchronous'
[13:13:55.877]   - Field: 'calls'
[13:13:55.877]   - Field: 'globals'
[13:13:55.878]   - Field: 'stdout'
[13:13:55.878]   - Field: 'earlySignal'
[13:13:55.878]   - Field: 'lazy'
[13:13:55.878]   - Field: 'state'
[13:13:55.878] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:55.878] - Launch lazy future ...
[13:13:55.879] Packages needed by the future expression (n = 0): <none>
[13:13:55.879] Packages needed by future strategies (n = 0): <none>
[13:13:55.879] {
[13:13:55.879]     {
[13:13:55.879]         {
[13:13:55.879]             ...future.startTime <- base::Sys.time()
[13:13:55.879]             {
[13:13:55.879]                 {
[13:13:55.879]                   {
[13:13:55.879]                     {
[13:13:55.879]                       base::local({
[13:13:55.879]                         has_future <- base::requireNamespace("future", 
[13:13:55.879]                           quietly = TRUE)
[13:13:55.879]                         if (has_future) {
[13:13:55.879]                           ns <- base::getNamespace("future")
[13:13:55.879]                           version <- ns[[".package"]][["version"]]
[13:13:55.879]                           if (is.null(version)) 
[13:13:55.879]                             version <- utils::packageVersion("future")
[13:13:55.879]                         }
[13:13:55.879]                         else {
[13:13:55.879]                           version <- NULL
[13:13:55.879]                         }
[13:13:55.879]                         if (!has_future || version < "1.8.0") {
[13:13:55.879]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:55.879]                             "", base::R.version$version.string), 
[13:13:55.879]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:55.879]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:55.879]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:55.879]                               "release", "version")], collapse = " "), 
[13:13:55.879]                             hostname = base::Sys.info()[["nodename"]])
[13:13:55.879]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:55.879]                             info)
[13:13:55.879]                           info <- base::paste(info, collapse = "; ")
[13:13:55.879]                           if (!has_future) {
[13:13:55.879]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:55.879]                               info)
[13:13:55.879]                           }
[13:13:55.879]                           else {
[13:13:55.879]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:55.879]                               info, version)
[13:13:55.879]                           }
[13:13:55.879]                           base::stop(msg)
[13:13:55.879]                         }
[13:13:55.879]                       })
[13:13:55.879]                     }
[13:13:55.879]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:55.879]                     base::options(mc.cores = 1L)
[13:13:55.879]                   }
[13:13:55.879]                   options(future.plan = NULL)
[13:13:55.879]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:55.879]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:55.879]                 }
[13:13:55.879]                 ...future.workdir <- getwd()
[13:13:55.879]             }
[13:13:55.879]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:55.879]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:55.879]         }
[13:13:55.879]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:55.879]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:55.879]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:55.879]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:55.879]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:55.879]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:55.879]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:55.879]             base::names(...future.oldOptions))
[13:13:55.879]     }
[13:13:55.879]     if (FALSE) {
[13:13:55.879]     }
[13:13:55.879]     else {
[13:13:55.879]         if (TRUE) {
[13:13:55.879]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:55.879]                 open = "w")
[13:13:55.879]         }
[13:13:55.879]         else {
[13:13:55.879]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:55.879]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:55.879]         }
[13:13:55.879]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:55.879]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:55.879]             base::sink(type = "output", split = FALSE)
[13:13:55.879]             base::close(...future.stdout)
[13:13:55.879]         }, add = TRUE)
[13:13:55.879]     }
[13:13:55.879]     ...future.frame <- base::sys.nframe()
[13:13:55.879]     ...future.conditions <- base::list()
[13:13:55.879]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:55.879]     if (FALSE) {
[13:13:55.879]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:55.879]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:55.879]     }
[13:13:55.879]     ...future.result <- base::tryCatch({
[13:13:55.879]         base::withCallingHandlers({
[13:13:55.879]             ...future.value <- base::withVisible(base::local({
[13:13:55.879]                 ...future.makeSendCondition <- local({
[13:13:55.879]                   sendCondition <- NULL
[13:13:55.879]                   function(frame = 1L) {
[13:13:55.879]                     if (is.function(sendCondition)) 
[13:13:55.879]                       return(sendCondition)
[13:13:55.879]                     ns <- getNamespace("parallel")
[13:13:55.879]                     if (exists("sendData", mode = "function", 
[13:13:55.879]                       envir = ns)) {
[13:13:55.879]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:55.879]                         envir = ns)
[13:13:55.879]                       envir <- sys.frame(frame)
[13:13:55.879]                       master <- NULL
[13:13:55.879]                       while (!identical(envir, .GlobalEnv) && 
[13:13:55.879]                         !identical(envir, emptyenv())) {
[13:13:55.879]                         if (exists("master", mode = "list", envir = envir, 
[13:13:55.879]                           inherits = FALSE)) {
[13:13:55.879]                           master <- get("master", mode = "list", 
[13:13:55.879]                             envir = envir, inherits = FALSE)
[13:13:55.879]                           if (inherits(master, c("SOCKnode", 
[13:13:55.879]                             "SOCK0node"))) {
[13:13:55.879]                             sendCondition <<- function(cond) {
[13:13:55.879]                               data <- list(type = "VALUE", value = cond, 
[13:13:55.879]                                 success = TRUE)
[13:13:55.879]                               parallel_sendData(master, data)
[13:13:55.879]                             }
[13:13:55.879]                             return(sendCondition)
[13:13:55.879]                           }
[13:13:55.879]                         }
[13:13:55.879]                         frame <- frame + 1L
[13:13:55.879]                         envir <- sys.frame(frame)
[13:13:55.879]                       }
[13:13:55.879]                     }
[13:13:55.879]                     sendCondition <<- function(cond) NULL
[13:13:55.879]                   }
[13:13:55.879]                 })
[13:13:55.879]                 withCallingHandlers({
[13:13:55.879]                   {
[13:13:55.879]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:55.879]                     if (!identical(...future.globals.maxSize.org, 
[13:13:55.879]                       ...future.globals.maxSize)) {
[13:13:55.879]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:55.879]                       on.exit(options(oopts), add = TRUE)
[13:13:55.879]                     }
[13:13:55.879]                     {
[13:13:55.879]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:55.879]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:55.879]                         USE.NAMES = FALSE)
[13:13:55.879]                       do.call(mapply, args = args)
[13:13:55.879]                     }
[13:13:55.879]                   }
[13:13:55.879]                 }, immediateCondition = function(cond) {
[13:13:55.879]                   sendCondition <- ...future.makeSendCondition()
[13:13:55.879]                   sendCondition(cond)
[13:13:55.879]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.879]                   {
[13:13:55.879]                     inherits <- base::inherits
[13:13:55.879]                     invokeRestart <- base::invokeRestart
[13:13:55.879]                     is.null <- base::is.null
[13:13:55.879]                     muffled <- FALSE
[13:13:55.879]                     if (inherits(cond, "message")) {
[13:13:55.879]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:55.879]                       if (muffled) 
[13:13:55.879]                         invokeRestart("muffleMessage")
[13:13:55.879]                     }
[13:13:55.879]                     else if (inherits(cond, "warning")) {
[13:13:55.879]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:55.879]                       if (muffled) 
[13:13:55.879]                         invokeRestart("muffleWarning")
[13:13:55.879]                     }
[13:13:55.879]                     else if (inherits(cond, "condition")) {
[13:13:55.879]                       if (!is.null(pattern)) {
[13:13:55.879]                         computeRestarts <- base::computeRestarts
[13:13:55.879]                         grepl <- base::grepl
[13:13:55.879]                         restarts <- computeRestarts(cond)
[13:13:55.879]                         for (restart in restarts) {
[13:13:55.879]                           name <- restart$name
[13:13:55.879]                           if (is.null(name)) 
[13:13:55.879]                             next
[13:13:55.879]                           if (!grepl(pattern, name)) 
[13:13:55.879]                             next
[13:13:55.879]                           invokeRestart(restart)
[13:13:55.879]                           muffled <- TRUE
[13:13:55.879]                           break
[13:13:55.879]                         }
[13:13:55.879]                       }
[13:13:55.879]                     }
[13:13:55.879]                     invisible(muffled)
[13:13:55.879]                   }
[13:13:55.879]                   muffleCondition(cond)
[13:13:55.879]                 })
[13:13:55.879]             }))
[13:13:55.879]             future::FutureResult(value = ...future.value$value, 
[13:13:55.879]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:55.879]                   ...future.rng), globalenv = if (FALSE) 
[13:13:55.879]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:55.879]                     ...future.globalenv.names))
[13:13:55.879]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:55.879]         }, condition = base::local({
[13:13:55.879]             c <- base::c
[13:13:55.879]             inherits <- base::inherits
[13:13:55.879]             invokeRestart <- base::invokeRestart
[13:13:55.879]             length <- base::length
[13:13:55.879]             list <- base::list
[13:13:55.879]             seq.int <- base::seq.int
[13:13:55.879]             signalCondition <- base::signalCondition
[13:13:55.879]             sys.calls <- base::sys.calls
[13:13:55.879]             `[[` <- base::`[[`
[13:13:55.879]             `+` <- base::`+`
[13:13:55.879]             `<<-` <- base::`<<-`
[13:13:55.879]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:55.879]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:55.879]                   3L)]
[13:13:55.879]             }
[13:13:55.879]             function(cond) {
[13:13:55.879]                 is_error <- inherits(cond, "error")
[13:13:55.879]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:55.879]                   NULL)
[13:13:55.879]                 if (is_error) {
[13:13:55.879]                   sessionInformation <- function() {
[13:13:55.879]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:55.879]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:55.879]                       search = base::search(), system = base::Sys.info())
[13:13:55.879]                   }
[13:13:55.879]                   ...future.conditions[[length(...future.conditions) + 
[13:13:55.879]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:55.879]                     cond$call), session = sessionInformation(), 
[13:13:55.879]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:55.879]                   signalCondition(cond)
[13:13:55.879]                 }
[13:13:55.879]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:55.879]                 "immediateCondition"))) {
[13:13:55.879]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:55.879]                   ...future.conditions[[length(...future.conditions) + 
[13:13:55.879]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:55.879]                   if (TRUE && !signal) {
[13:13:55.879]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.879]                     {
[13:13:55.879]                       inherits <- base::inherits
[13:13:55.879]                       invokeRestart <- base::invokeRestart
[13:13:55.879]                       is.null <- base::is.null
[13:13:55.879]                       muffled <- FALSE
[13:13:55.879]                       if (inherits(cond, "message")) {
[13:13:55.879]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:55.879]                         if (muffled) 
[13:13:55.879]                           invokeRestart("muffleMessage")
[13:13:55.879]                       }
[13:13:55.879]                       else if (inherits(cond, "warning")) {
[13:13:55.879]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:55.879]                         if (muffled) 
[13:13:55.879]                           invokeRestart("muffleWarning")
[13:13:55.879]                       }
[13:13:55.879]                       else if (inherits(cond, "condition")) {
[13:13:55.879]                         if (!is.null(pattern)) {
[13:13:55.879]                           computeRestarts <- base::computeRestarts
[13:13:55.879]                           grepl <- base::grepl
[13:13:55.879]                           restarts <- computeRestarts(cond)
[13:13:55.879]                           for (restart in restarts) {
[13:13:55.879]                             name <- restart$name
[13:13:55.879]                             if (is.null(name)) 
[13:13:55.879]                               next
[13:13:55.879]                             if (!grepl(pattern, name)) 
[13:13:55.879]                               next
[13:13:55.879]                             invokeRestart(restart)
[13:13:55.879]                             muffled <- TRUE
[13:13:55.879]                             break
[13:13:55.879]                           }
[13:13:55.879]                         }
[13:13:55.879]                       }
[13:13:55.879]                       invisible(muffled)
[13:13:55.879]                     }
[13:13:55.879]                     muffleCondition(cond, pattern = "^muffle")
[13:13:55.879]                   }
[13:13:55.879]                 }
[13:13:55.879]                 else {
[13:13:55.879]                   if (TRUE) {
[13:13:55.879]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.879]                     {
[13:13:55.879]                       inherits <- base::inherits
[13:13:55.879]                       invokeRestart <- base::invokeRestart
[13:13:55.879]                       is.null <- base::is.null
[13:13:55.879]                       muffled <- FALSE
[13:13:55.879]                       if (inherits(cond, "message")) {
[13:13:55.879]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:55.879]                         if (muffled) 
[13:13:55.879]                           invokeRestart("muffleMessage")
[13:13:55.879]                       }
[13:13:55.879]                       else if (inherits(cond, "warning")) {
[13:13:55.879]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:55.879]                         if (muffled) 
[13:13:55.879]                           invokeRestart("muffleWarning")
[13:13:55.879]                       }
[13:13:55.879]                       else if (inherits(cond, "condition")) {
[13:13:55.879]                         if (!is.null(pattern)) {
[13:13:55.879]                           computeRestarts <- base::computeRestarts
[13:13:55.879]                           grepl <- base::grepl
[13:13:55.879]                           restarts <- computeRestarts(cond)
[13:13:55.879]                           for (restart in restarts) {
[13:13:55.879]                             name <- restart$name
[13:13:55.879]                             if (is.null(name)) 
[13:13:55.879]                               next
[13:13:55.879]                             if (!grepl(pattern, name)) 
[13:13:55.879]                               next
[13:13:55.879]                             invokeRestart(restart)
[13:13:55.879]                             muffled <- TRUE
[13:13:55.879]                             break
[13:13:55.879]                           }
[13:13:55.879]                         }
[13:13:55.879]                       }
[13:13:55.879]                       invisible(muffled)
[13:13:55.879]                     }
[13:13:55.879]                     muffleCondition(cond, pattern = "^muffle")
[13:13:55.879]                   }
[13:13:55.879]                 }
[13:13:55.879]             }
[13:13:55.879]         }))
[13:13:55.879]     }, error = function(ex) {
[13:13:55.879]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:55.879]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:55.879]                 ...future.rng), started = ...future.startTime, 
[13:13:55.879]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:55.879]             version = "1.8"), class = "FutureResult")
[13:13:55.879]     }, finally = {
[13:13:55.879]         if (!identical(...future.workdir, getwd())) 
[13:13:55.879]             setwd(...future.workdir)
[13:13:55.879]         {
[13:13:55.879]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:55.879]                 ...future.oldOptions$nwarnings <- NULL
[13:13:55.879]             }
[13:13:55.879]             base::options(...future.oldOptions)
[13:13:55.879]             if (.Platform$OS.type == "windows") {
[13:13:55.879]                 old_names <- names(...future.oldEnvVars)
[13:13:55.879]                 envs <- base::Sys.getenv()
[13:13:55.879]                 names <- names(envs)
[13:13:55.879]                 common <- intersect(names, old_names)
[13:13:55.879]                 added <- setdiff(names, old_names)
[13:13:55.879]                 removed <- setdiff(old_names, names)
[13:13:55.879]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:55.879]                   envs[common]]
[13:13:55.879]                 NAMES <- toupper(changed)
[13:13:55.879]                 args <- list()
[13:13:55.879]                 for (kk in seq_along(NAMES)) {
[13:13:55.879]                   name <- changed[[kk]]
[13:13:55.879]                   NAME <- NAMES[[kk]]
[13:13:55.879]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.879]                     next
[13:13:55.879]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:55.879]                 }
[13:13:55.879]                 NAMES <- toupper(added)
[13:13:55.879]                 for (kk in seq_along(NAMES)) {
[13:13:55.879]                   name <- added[[kk]]
[13:13:55.879]                   NAME <- NAMES[[kk]]
[13:13:55.879]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.879]                     next
[13:13:55.879]                   args[[name]] <- ""
[13:13:55.879]                 }
[13:13:55.879]                 NAMES <- toupper(removed)
[13:13:55.879]                 for (kk in seq_along(NAMES)) {
[13:13:55.879]                   name <- removed[[kk]]
[13:13:55.879]                   NAME <- NAMES[[kk]]
[13:13:55.879]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.879]                     next
[13:13:55.879]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:55.879]                 }
[13:13:55.879]                 if (length(args) > 0) 
[13:13:55.879]                   base::do.call(base::Sys.setenv, args = args)
[13:13:55.879]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:55.879]             }
[13:13:55.879]             else {
[13:13:55.879]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:55.879]             }
[13:13:55.879]             {
[13:13:55.879]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:55.879]                   0L) {
[13:13:55.879]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:55.879]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:55.879]                   base::options(opts)
[13:13:55.879]                 }
[13:13:55.879]                 {
[13:13:55.879]                   {
[13:13:55.879]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:55.879]                     NULL
[13:13:55.879]                   }
[13:13:55.879]                   options(future.plan = NULL)
[13:13:55.879]                   if (is.na(NA_character_)) 
[13:13:55.879]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:55.879]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:55.879]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:55.879]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:55.879]                     envir = parent.frame()) 
[13:13:55.879]                   {
[13:13:55.879]                     if (is.function(workers)) 
[13:13:55.879]                       workers <- workers()
[13:13:55.879]                     workers <- structure(as.integer(workers), 
[13:13:55.879]                       class = class(workers))
[13:13:55.879]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:55.879]                       workers >= 1)
[13:13:55.879]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:55.879]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:55.879]                     }
[13:13:55.879]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:55.879]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:55.879]                       envir = envir)
[13:13:55.879]                     if (!future$lazy) 
[13:13:55.879]                       future <- run(future)
[13:13:55.879]                     invisible(future)
[13:13:55.879]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:55.879]                 }
[13:13:55.879]             }
[13:13:55.879]         }
[13:13:55.879]     })
[13:13:55.879]     if (TRUE) {
[13:13:55.879]         base::sink(type = "output", split = FALSE)
[13:13:55.879]         if (TRUE) {
[13:13:55.879]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:55.879]         }
[13:13:55.879]         else {
[13:13:55.879]             ...future.result["stdout"] <- base::list(NULL)
[13:13:55.879]         }
[13:13:55.879]         base::close(...future.stdout)
[13:13:55.879]         ...future.stdout <- NULL
[13:13:55.879]     }
[13:13:55.879]     ...future.result$conditions <- ...future.conditions
[13:13:55.879]     ...future.result$finished <- base::Sys.time()
[13:13:55.879]     ...future.result
[13:13:55.879] }
[13:13:55.885] Exporting 5 global objects (3.73 KiB) to cluster node #1 ...
[13:13:55.885] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ...
[13:13:55.885] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ... DONE
[13:13:55.886] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:55.886] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:55.886] Exporting '...future.elements_ii' (504 bytes) to cluster node #1 ...
[13:13:55.887] Exporting '...future.elements_ii' (504 bytes) to cluster node #1 ... DONE
[13:13:55.887] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:55.887] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:55.888] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:55.888] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:55.888] Exporting 5 global objects (3.73 KiB) to cluster node #1 ... DONE
[13:13:55.889] MultisessionFuture started
[13:13:55.889] - Launch lazy future ... done
[13:13:55.889] run() for 'MultisessionFuture' ... done
[13:13:55.889] Created future:
[13:13:55.910] receiveMessageFromWorker() for ClusterFuture ...
[13:13:55.910] - Validating connection of MultisessionFuture
[13:13:55.910] - received message: FutureResult
[13:13:55.910] - Received FutureResult
[13:13:55.910] - Erased future from FutureRegistry
[13:13:55.911] result() for ClusterFuture ...
[13:13:55.911] - result already collected: FutureResult
[13:13:55.911] result() for ClusterFuture ... done
[13:13:55.911] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:55.890] MultisessionFuture:
[13:13:55.890] Label: 'future_mapply-2'
[13:13:55.890] Expression:
[13:13:55.890] {
[13:13:55.890]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:55.890]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:55.890]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:55.890]         on.exit(options(oopts), add = TRUE)
[13:13:55.890]     }
[13:13:55.890]     {
[13:13:55.890]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:55.890]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:55.890]         do.call(mapply, args = args)
[13:13:55.890]     }
[13:13:55.890] }
[13:13:55.890] Lazy evaluation: FALSE
[13:13:55.890] Asynchronous evaluation: TRUE
[13:13:55.890] Local evaluation: TRUE
[13:13:55.890] Environment: R_GlobalEnv
[13:13:55.890] Capture standard output: TRUE
[13:13:55.890] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:55.890] Globals: 5 objects totaling 3.73 KiB (function '...future.FUN' of 3.24 KiB, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 504 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:55.890] Packages: <none>
[13:13:55.890] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:55.890] Resolved: TRUE
[13:13:55.890] Value: <not collected>
[13:13:55.890] Conditions captured: <none>
[13:13:55.890] Early signaling: FALSE
[13:13:55.890] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:55.890] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:55.911] Chunk #2 of 2 ... DONE
[13:13:55.912] Launching 2 futures (chunks) ... DONE
[13:13:55.912] Resolving 2 futures (chunks) ...
[13:13:55.912] resolve() on list ...
[13:13:55.912]  recursive: 0
[13:13:55.912]  length: 2
[13:13:55.912] 
[13:13:55.913] Future #1
[13:13:55.913] result() for ClusterFuture ...
[13:13:55.913] - result already collected: FutureResult
[13:13:55.913] result() for ClusterFuture ... done
[13:13:55.913] result() for ClusterFuture ...
[13:13:55.913] - result already collected: FutureResult
[13:13:55.914] result() for ClusterFuture ... done
[13:13:55.914] signalConditionsASAP(MultisessionFuture, pos=1) ...
[13:13:55.914] - nx: 2
[13:13:55.914] - relay: TRUE
[13:13:55.914] - stdout: TRUE
[13:13:55.914] - signal: TRUE
[13:13:55.914] - resignal: FALSE
[13:13:55.915] - force: TRUE
[13:13:55.915] - relayed: [n=2] FALSE, FALSE
[13:13:55.915] - queued futures: [n=2] FALSE, FALSE
[13:13:55.915]  - until=1
[13:13:55.915]  - relaying element #1
[13:13:55.915] result() for ClusterFuture ...
[13:13:55.916] - result already collected: FutureResult
[13:13:55.916] result() for ClusterFuture ... done
[13:13:55.916] result() for ClusterFuture ...
[13:13:55.916] - result already collected: FutureResult
[13:13:55.916] result() for ClusterFuture ... done
[13:13:55.916] result() for ClusterFuture ...
[13:13:55.917] - result already collected: FutureResult
[13:13:55.917] result() for ClusterFuture ... done
[13:13:55.917] result() for ClusterFuture ...
[13:13:55.917] - result already collected: FutureResult
[13:13:55.917] result() for ClusterFuture ... done
[13:13:55.917] - relayed: [n=2] TRUE, FALSE
[13:13:55.917] - queued futures: [n=2] TRUE, FALSE
[13:13:55.918] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[13:13:55.918]  length: 1 (resolved future 1)
[13:13:55.918] Future #2
[13:13:55.918] result() for ClusterFuture ...
[13:13:55.918] - result already collected: FutureResult
[13:13:55.918] result() for ClusterFuture ... done
[13:13:55.919] result() for ClusterFuture ...
[13:13:55.919] - result already collected: FutureResult
[13:13:55.919] result() for ClusterFuture ... done
[13:13:55.919] signalConditionsASAP(MultisessionFuture, pos=2) ...
[13:13:55.919] - nx: 2
[13:13:55.919] - relay: TRUE
[13:13:55.920] - stdout: TRUE
[13:13:55.920] - signal: TRUE
[13:13:55.920] - resignal: FALSE
[13:13:55.920] - force: TRUE
[13:13:55.920] - relayed: [n=2] TRUE, FALSE
[13:13:55.920] - queued futures: [n=2] TRUE, FALSE
[13:13:55.920]  - until=2
[13:13:55.921]  - relaying element #2
[13:13:55.921] result() for ClusterFuture ...
[13:13:55.921] - result already collected: FutureResult
[13:13:55.921] result() for ClusterFuture ... done
[13:13:55.921] result() for ClusterFuture ...
[13:13:55.921] - result already collected: FutureResult
[13:13:55.922] result() for ClusterFuture ... done
[13:13:55.922] result() for ClusterFuture ...
[13:13:55.922] - result already collected: FutureResult
[13:13:55.922] result() for ClusterFuture ... done
[13:13:55.922] result() for ClusterFuture ...
[13:13:55.922] - result already collected: FutureResult
[13:13:55.923] result() for ClusterFuture ... done
[13:13:55.923] - relayed: [n=2] TRUE, TRUE
[13:13:55.923] - queued futures: [n=2] TRUE, TRUE
[13:13:55.923] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[13:13:55.923]  length: 0 (resolved future 2)
[13:13:55.923] Relaying remaining futures
[13:13:55.923] signalConditionsASAP(NULL, pos=0) ...
[13:13:55.924] - nx: 2
[13:13:55.924] - relay: TRUE
[13:13:55.924] - stdout: TRUE
[13:13:55.924] - signal: TRUE
[13:13:55.924] - resignal: FALSE
[13:13:55.924] - force: TRUE
[13:13:55.925] - relayed: [n=2] TRUE, TRUE
[13:13:55.925] - queued futures: [n=2] TRUE, TRUE
 - flush all
[13:13:55.925] - relayed: [n=2] TRUE, TRUE
[13:13:55.925] - queued futures: [n=2] TRUE, TRUE
[13:13:55.925] signalConditionsASAP(NULL, pos=0) ... done
[13:13:55.925] resolve() on list ... DONE
[13:13:55.926] result() for ClusterFuture ...
[13:13:55.926] - result already collected: FutureResult
[13:13:55.926] result() for ClusterFuture ... done
[13:13:55.926] result() for ClusterFuture ...
[13:13:55.926] - result already collected: FutureResult
[13:13:55.926] result() for ClusterFuture ... done
[13:13:55.927] result() for ClusterFuture ...
[13:13:55.927] - result already collected: FutureResult
[13:13:55.927] result() for ClusterFuture ... done
[13:13:55.927] result() for ClusterFuture ...
[13:13:55.927] - result already collected: FutureResult
[13:13:55.927] result() for ClusterFuture ... done
[13:13:55.927]  - Number of value chunks collected: 2
[13:13:55.928] Resolving 2 futures (chunks) ... DONE
[13:13:55.928] Reducing values from 2 chunks ...
[13:13:55.928]  - Number of values collected after concatenation: 5
[13:13:55.928]  - Number of values expected: 5
[13:13:55.928] Reverse index remapping (attribute 'ordering'): [n = 5] 5, 4, 3, 2, 1
[13:13:55.928] Reducing values from 2 chunks ... DONE
[13:13:55.929] future_mapply() ... DONE
[13:13:55.929] future_mapply() ...
[13:13:55.931] Number of chunks: 2
[13:13:55.932] getGlobalsAndPackagesXApply() ...
[13:13:55.932]  - future.globals: TRUE
[13:13:55.932] getGlobalsAndPackages() ...
[13:13:55.932] Searching for globals...
[13:13:55.934] - globals found: [3] 'FUN', 'paste', 'rep.int'
[13:13:55.934] Searching for globals ... DONE
[13:13:55.934] Resolving globals: FALSE
[13:13:55.934] The total size of the 1 globals is 3.24 KiB (3320 bytes)
[13:13:55.935] The total size of the 1 globals exported for future expression ('FUN()') is 3.24 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (3.24 KiB of class 'function')
[13:13:55.935] - globals: [1] 'FUN'
[13:13:55.935] 
[13:13:55.935] getGlobalsAndPackages() ... DONE
[13:13:55.936]  - globals found/used: [n=1] 'FUN'
[13:13:55.936]  - needed namespaces: [n=0] 
[13:13:55.936] Finding globals ... DONE
[13:13:55.936] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:55.936] List of 2
[13:13:55.936]  $ ...future.FUN:function (C, k)  
[13:13:55.936]  $ MoreArgs     : list()
[13:13:55.936]  - attr(*, "where")=List of 2
[13:13:55.936]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:55.936]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:55.936]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:55.936]  - attr(*, "resolved")= logi FALSE
[13:13:55.936]  - attr(*, "total_size")= num NA
[13:13:55.939] Packages to be attached in all futures: [n=0] 
[13:13:55.939] getGlobalsAndPackagesXApply() ... DONE
[13:13:55.940] Number of futures (= number of chunks): 2
[13:13:55.940] Launching 2 futures (chunks) ...
[13:13:55.940] Chunk #1 of 2 ...
[13:13:55.940]  - Finding globals in '...' for chunk #1 ...
[13:13:55.940] getGlobalsAndPackages() ...
[13:13:55.941] Searching for globals...
[13:13:55.941] 
[13:13:55.941] Searching for globals ... DONE
[13:13:55.942] - globals: [0] <none>
[13:13:55.942] getGlobalsAndPackages() ... DONE
[13:13:55.942]    + additional globals found: [n=0] 
[13:13:55.942]    + additional namespaces needed: [n=0] 
[13:13:55.942]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:55.942]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:55.943]  - seeds: <none>
[13:13:55.943]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.943] getGlobalsAndPackages() ...
[13:13:55.943] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.943] Resolving globals: FALSE
[13:13:55.944] The total size of the 5 globals is 3.57 KiB (3656 bytes)
[13:13:55.944] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 3.57 KiB.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (3.24 KiB of class 'function'), '...future.elements_ii' (336 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'list')
[13:13:55.945] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.945] 
[13:13:55.945] getGlobalsAndPackages() ... DONE
[13:13:55.945] run() for 'Future' ...
[13:13:55.946] - state: 'created'
[13:13:55.946] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:55.959] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:55.959] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:55.960]   - Field: 'node'
[13:13:55.960]   - Field: 'label'
[13:13:55.960]   - Field: 'local'
[13:13:55.960]   - Field: 'owner'
[13:13:55.960]   - Field: 'envir'
[13:13:55.961]   - Field: 'workers'
[13:13:55.961]   - Field: 'packages'
[13:13:55.961]   - Field: 'gc'
[13:13:55.961]   - Field: 'conditions'
[13:13:55.961]   - Field: 'persistent'
[13:13:55.961]   - Field: 'expr'
[13:13:55.962]   - Field: 'uuid'
[13:13:55.962]   - Field: 'seed'
[13:13:55.962]   - Field: 'version'
[13:13:55.962]   - Field: 'result'
[13:13:55.962]   - Field: 'asynchronous'
[13:13:55.962]   - Field: 'calls'
[13:13:55.963]   - Field: 'globals'
[13:13:55.963]   - Field: 'stdout'
[13:13:55.963]   - Field: 'earlySignal'
[13:13:55.963]   - Field: 'lazy'
[13:13:55.963]   - Field: 'state'
[13:13:55.963] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:55.964] - Launch lazy future ...
[13:13:55.964] Packages needed by the future expression (n = 0): <none>
[13:13:55.964] Packages needed by future strategies (n = 0): <none>
[13:13:55.965] {
[13:13:55.965]     {
[13:13:55.965]         {
[13:13:55.965]             ...future.startTime <- base::Sys.time()
[13:13:55.965]             {
[13:13:55.965]                 {
[13:13:55.965]                   {
[13:13:55.965]                     {
[13:13:55.965]                       base::local({
[13:13:55.965]                         has_future <- base::requireNamespace("future", 
[13:13:55.965]                           quietly = TRUE)
[13:13:55.965]                         if (has_future) {
[13:13:55.965]                           ns <- base::getNamespace("future")
[13:13:55.965]                           version <- ns[[".package"]][["version"]]
[13:13:55.965]                           if (is.null(version)) 
[13:13:55.965]                             version <- utils::packageVersion("future")
[13:13:55.965]                         }
[13:13:55.965]                         else {
[13:13:55.965]                           version <- NULL
[13:13:55.965]                         }
[13:13:55.965]                         if (!has_future || version < "1.8.0") {
[13:13:55.965]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:55.965]                             "", base::R.version$version.string), 
[13:13:55.965]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:55.965]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:55.965]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:55.965]                               "release", "version")], collapse = " "), 
[13:13:55.965]                             hostname = base::Sys.info()[["nodename"]])
[13:13:55.965]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:55.965]                             info)
[13:13:55.965]                           info <- base::paste(info, collapse = "; ")
[13:13:55.965]                           if (!has_future) {
[13:13:55.965]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:55.965]                               info)
[13:13:55.965]                           }
[13:13:55.965]                           else {
[13:13:55.965]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:55.965]                               info, version)
[13:13:55.965]                           }
[13:13:55.965]                           base::stop(msg)
[13:13:55.965]                         }
[13:13:55.965]                       })
[13:13:55.965]                     }
[13:13:55.965]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:55.965]                     base::options(mc.cores = 1L)
[13:13:55.965]                   }
[13:13:55.965]                   options(future.plan = NULL)
[13:13:55.965]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:55.965]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:55.965]                 }
[13:13:55.965]                 ...future.workdir <- getwd()
[13:13:55.965]             }
[13:13:55.965]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:55.965]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:55.965]         }
[13:13:55.965]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:55.965]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:55.965]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:55.965]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:55.965]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:55.965]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:55.965]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:55.965]             base::names(...future.oldOptions))
[13:13:55.965]     }
[13:13:55.965]     if (FALSE) {
[13:13:55.965]     }
[13:13:55.965]     else {
[13:13:55.965]         if (TRUE) {
[13:13:55.965]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:55.965]                 open = "w")
[13:13:55.965]         }
[13:13:55.965]         else {
[13:13:55.965]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:55.965]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:55.965]         }
[13:13:55.965]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:55.965]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:55.965]             base::sink(type = "output", split = FALSE)
[13:13:55.965]             base::close(...future.stdout)
[13:13:55.965]         }, add = TRUE)
[13:13:55.965]     }
[13:13:55.965]     ...future.frame <- base::sys.nframe()
[13:13:55.965]     ...future.conditions <- base::list()
[13:13:55.965]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:55.965]     if (FALSE) {
[13:13:55.965]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:55.965]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:55.965]     }
[13:13:55.965]     ...future.result <- base::tryCatch({
[13:13:55.965]         base::withCallingHandlers({
[13:13:55.965]             ...future.value <- base::withVisible(base::local({
[13:13:55.965]                 ...future.makeSendCondition <- local({
[13:13:55.965]                   sendCondition <- NULL
[13:13:55.965]                   function(frame = 1L) {
[13:13:55.965]                     if (is.function(sendCondition)) 
[13:13:55.965]                       return(sendCondition)
[13:13:55.965]                     ns <- getNamespace("parallel")
[13:13:55.965]                     if (exists("sendData", mode = "function", 
[13:13:55.965]                       envir = ns)) {
[13:13:55.965]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:55.965]                         envir = ns)
[13:13:55.965]                       envir <- sys.frame(frame)
[13:13:55.965]                       master <- NULL
[13:13:55.965]                       while (!identical(envir, .GlobalEnv) && 
[13:13:55.965]                         !identical(envir, emptyenv())) {
[13:13:55.965]                         if (exists("master", mode = "list", envir = envir, 
[13:13:55.965]                           inherits = FALSE)) {
[13:13:55.965]                           master <- get("master", mode = "list", 
[13:13:55.965]                             envir = envir, inherits = FALSE)
[13:13:55.965]                           if (inherits(master, c("SOCKnode", 
[13:13:55.965]                             "SOCK0node"))) {
[13:13:55.965]                             sendCondition <<- function(cond) {
[13:13:55.965]                               data <- list(type = "VALUE", value = cond, 
[13:13:55.965]                                 success = TRUE)
[13:13:55.965]                               parallel_sendData(master, data)
[13:13:55.965]                             }
[13:13:55.965]                             return(sendCondition)
[13:13:55.965]                           }
[13:13:55.965]                         }
[13:13:55.965]                         frame <- frame + 1L
[13:13:55.965]                         envir <- sys.frame(frame)
[13:13:55.965]                       }
[13:13:55.965]                     }
[13:13:55.965]                     sendCondition <<- function(cond) NULL
[13:13:55.965]                   }
[13:13:55.965]                 })
[13:13:55.965]                 withCallingHandlers({
[13:13:55.965]                   {
[13:13:55.965]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:55.965]                     if (!identical(...future.globals.maxSize.org, 
[13:13:55.965]                       ...future.globals.maxSize)) {
[13:13:55.965]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:55.965]                       on.exit(options(oopts), add = TRUE)
[13:13:55.965]                     }
[13:13:55.965]                     {
[13:13:55.965]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:55.965]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:55.965]                         USE.NAMES = FALSE)
[13:13:55.965]                       do.call(mapply, args = args)
[13:13:55.965]                     }
[13:13:55.965]                   }
[13:13:55.965]                 }, immediateCondition = function(cond) {
[13:13:55.965]                   sendCondition <- ...future.makeSendCondition()
[13:13:55.965]                   sendCondition(cond)
[13:13:55.965]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.965]                   {
[13:13:55.965]                     inherits <- base::inherits
[13:13:55.965]                     invokeRestart <- base::invokeRestart
[13:13:55.965]                     is.null <- base::is.null
[13:13:55.965]                     muffled <- FALSE
[13:13:55.965]                     if (inherits(cond, "message")) {
[13:13:55.965]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:55.965]                       if (muffled) 
[13:13:55.965]                         invokeRestart("muffleMessage")
[13:13:55.965]                     }
[13:13:55.965]                     else if (inherits(cond, "warning")) {
[13:13:55.965]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:55.965]                       if (muffled) 
[13:13:55.965]                         invokeRestart("muffleWarning")
[13:13:55.965]                     }
[13:13:55.965]                     else if (inherits(cond, "condition")) {
[13:13:55.965]                       if (!is.null(pattern)) {
[13:13:55.965]                         computeRestarts <- base::computeRestarts
[13:13:55.965]                         grepl <- base::grepl
[13:13:55.965]                         restarts <- computeRestarts(cond)
[13:13:55.965]                         for (restart in restarts) {
[13:13:55.965]                           name <- restart$name
[13:13:55.965]                           if (is.null(name)) 
[13:13:55.965]                             next
[13:13:55.965]                           if (!grepl(pattern, name)) 
[13:13:55.965]                             next
[13:13:55.965]                           invokeRestart(restart)
[13:13:55.965]                           muffled <- TRUE
[13:13:55.965]                           break
[13:13:55.965]                         }
[13:13:55.965]                       }
[13:13:55.965]                     }
[13:13:55.965]                     invisible(muffled)
[13:13:55.965]                   }
[13:13:55.965]                   muffleCondition(cond)
[13:13:55.965]                 })
[13:13:55.965]             }))
[13:13:55.965]             future::FutureResult(value = ...future.value$value, 
[13:13:55.965]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:55.965]                   ...future.rng), globalenv = if (FALSE) 
[13:13:55.965]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:55.965]                     ...future.globalenv.names))
[13:13:55.965]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:55.965]         }, condition = base::local({
[13:13:55.965]             c <- base::c
[13:13:55.965]             inherits <- base::inherits
[13:13:55.965]             invokeRestart <- base::invokeRestart
[13:13:55.965]             length <- base::length
[13:13:55.965]             list <- base::list
[13:13:55.965]             seq.int <- base::seq.int
[13:13:55.965]             signalCondition <- base::signalCondition
[13:13:55.965]             sys.calls <- base::sys.calls
[13:13:55.965]             `[[` <- base::`[[`
[13:13:55.965]             `+` <- base::`+`
[13:13:55.965]             `<<-` <- base::`<<-`
[13:13:55.965]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:55.965]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:55.965]                   3L)]
[13:13:55.965]             }
[13:13:55.965]             function(cond) {
[13:13:55.965]                 is_error <- inherits(cond, "error")
[13:13:55.965]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:55.965]                   NULL)
[13:13:55.965]                 if (is_error) {
[13:13:55.965]                   sessionInformation <- function() {
[13:13:55.965]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:55.965]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:55.965]                       search = base::search(), system = base::Sys.info())
[13:13:55.965]                   }
[13:13:55.965]                   ...future.conditions[[length(...future.conditions) + 
[13:13:55.965]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:55.965]                     cond$call), session = sessionInformation(), 
[13:13:55.965]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:55.965]                   signalCondition(cond)
[13:13:55.965]                 }
[13:13:55.965]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:55.965]                 "immediateCondition"))) {
[13:13:55.965]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:55.965]                   ...future.conditions[[length(...future.conditions) + 
[13:13:55.965]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:55.965]                   if (TRUE && !signal) {
[13:13:55.965]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.965]                     {
[13:13:55.965]                       inherits <- base::inherits
[13:13:55.965]                       invokeRestart <- base::invokeRestart
[13:13:55.965]                       is.null <- base::is.null
[13:13:55.965]                       muffled <- FALSE
[13:13:55.965]                       if (inherits(cond, "message")) {
[13:13:55.965]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:55.965]                         if (muffled) 
[13:13:55.965]                           invokeRestart("muffleMessage")
[13:13:55.965]                       }
[13:13:55.965]                       else if (inherits(cond, "warning")) {
[13:13:55.965]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:55.965]                         if (muffled) 
[13:13:55.965]                           invokeRestart("muffleWarning")
[13:13:55.965]                       }
[13:13:55.965]                       else if (inherits(cond, "condition")) {
[13:13:55.965]                         if (!is.null(pattern)) {
[13:13:55.965]                           computeRestarts <- base::computeRestarts
[13:13:55.965]                           grepl <- base::grepl
[13:13:55.965]                           restarts <- computeRestarts(cond)
[13:13:55.965]                           for (restart in restarts) {
[13:13:55.965]                             name <- restart$name
[13:13:55.965]                             if (is.null(name)) 
[13:13:55.965]                               next
[13:13:55.965]                             if (!grepl(pattern, name)) 
[13:13:55.965]                               next
[13:13:55.965]                             invokeRestart(restart)
[13:13:55.965]                             muffled <- TRUE
[13:13:55.965]                             break
[13:13:55.965]                           }
[13:13:55.965]                         }
[13:13:55.965]                       }
[13:13:55.965]                       invisible(muffled)
[13:13:55.965]                     }
[13:13:55.965]                     muffleCondition(cond, pattern = "^muffle")
[13:13:55.965]                   }
[13:13:55.965]                 }
[13:13:55.965]                 else {
[13:13:55.965]                   if (TRUE) {
[13:13:55.965]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:55.965]                     {
[13:13:55.965]                       inherits <- base::inherits
[13:13:55.965]                       invokeRestart <- base::invokeRestart
[13:13:55.965]                       is.null <- base::is.null
[13:13:55.965]                       muffled <- FALSE
[13:13:55.965]                       if (inherits(cond, "message")) {
[13:13:55.965]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:55.965]                         if (muffled) 
[13:13:55.965]                           invokeRestart("muffleMessage")
[13:13:55.965]                       }
[13:13:55.965]                       else if (inherits(cond, "warning")) {
[13:13:55.965]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:55.965]                         if (muffled) 
[13:13:55.965]                           invokeRestart("muffleWarning")
[13:13:55.965]                       }
[13:13:55.965]                       else if (inherits(cond, "condition")) {
[13:13:55.965]                         if (!is.null(pattern)) {
[13:13:55.965]                           computeRestarts <- base::computeRestarts
[13:13:55.965]                           grepl <- base::grepl
[13:13:55.965]                           restarts <- computeRestarts(cond)
[13:13:55.965]                           for (restart in restarts) {
[13:13:55.965]                             name <- restart$name
[13:13:55.965]                             if (is.null(name)) 
[13:13:55.965]                               next
[13:13:55.965]                             if (!grepl(pattern, name)) 
[13:13:55.965]                               next
[13:13:55.965]                             invokeRestart(restart)
[13:13:55.965]                             muffled <- TRUE
[13:13:55.965]                             break
[13:13:55.965]                           }
[13:13:55.965]                         }
[13:13:55.965]                       }
[13:13:55.965]                       invisible(muffled)
[13:13:55.965]                     }
[13:13:55.965]                     muffleCondition(cond, pattern = "^muffle")
[13:13:55.965]                   }
[13:13:55.965]                 }
[13:13:55.965]             }
[13:13:55.965]         }))
[13:13:55.965]     }, error = function(ex) {
[13:13:55.965]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:55.965]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:55.965]                 ...future.rng), started = ...future.startTime, 
[13:13:55.965]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:55.965]             version = "1.8"), class = "FutureResult")
[13:13:55.965]     }, finally = {
[13:13:55.965]         if (!identical(...future.workdir, getwd())) 
[13:13:55.965]             setwd(...future.workdir)
[13:13:55.965]         {
[13:13:55.965]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:55.965]                 ...future.oldOptions$nwarnings <- NULL
[13:13:55.965]             }
[13:13:55.965]             base::options(...future.oldOptions)
[13:13:55.965]             if (.Platform$OS.type == "windows") {
[13:13:55.965]                 old_names <- names(...future.oldEnvVars)
[13:13:55.965]                 envs <- base::Sys.getenv()
[13:13:55.965]                 names <- names(envs)
[13:13:55.965]                 common <- intersect(names, old_names)
[13:13:55.965]                 added <- setdiff(names, old_names)
[13:13:55.965]                 removed <- setdiff(old_names, names)
[13:13:55.965]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:55.965]                   envs[common]]
[13:13:55.965]                 NAMES <- toupper(changed)
[13:13:55.965]                 args <- list()
[13:13:55.965]                 for (kk in seq_along(NAMES)) {
[13:13:55.965]                   name <- changed[[kk]]
[13:13:55.965]                   NAME <- NAMES[[kk]]
[13:13:55.965]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.965]                     next
[13:13:55.965]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:55.965]                 }
[13:13:55.965]                 NAMES <- toupper(added)
[13:13:55.965]                 for (kk in seq_along(NAMES)) {
[13:13:55.965]                   name <- added[[kk]]
[13:13:55.965]                   NAME <- NAMES[[kk]]
[13:13:55.965]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.965]                     next
[13:13:55.965]                   args[[name]] <- ""
[13:13:55.965]                 }
[13:13:55.965]                 NAMES <- toupper(removed)
[13:13:55.965]                 for (kk in seq_along(NAMES)) {
[13:13:55.965]                   name <- removed[[kk]]
[13:13:55.965]                   NAME <- NAMES[[kk]]
[13:13:55.965]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:55.965]                     next
[13:13:55.965]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:55.965]                 }
[13:13:55.965]                 if (length(args) > 0) 
[13:13:55.965]                   base::do.call(base::Sys.setenv, args = args)
[13:13:55.965]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:55.965]             }
[13:13:55.965]             else {
[13:13:55.965]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:55.965]             }
[13:13:55.965]             {
[13:13:55.965]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:55.965]                   0L) {
[13:13:55.965]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:55.965]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:55.965]                   base::options(opts)
[13:13:55.965]                 }
[13:13:55.965]                 {
[13:13:55.965]                   {
[13:13:55.965]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:55.965]                     NULL
[13:13:55.965]                   }
[13:13:55.965]                   options(future.plan = NULL)
[13:13:55.965]                   if (is.na(NA_character_)) 
[13:13:55.965]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:55.965]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:55.965]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:55.965]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:55.965]                     envir = parent.frame()) 
[13:13:55.965]                   {
[13:13:55.965]                     if (is.function(workers)) 
[13:13:55.965]                       workers <- workers()
[13:13:55.965]                     workers <- structure(as.integer(workers), 
[13:13:55.965]                       class = class(workers))
[13:13:55.965]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:55.965]                       workers >= 1)
[13:13:55.965]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:55.965]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:55.965]                     }
[13:13:55.965]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:55.965]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:55.965]                       envir = envir)
[13:13:55.965]                     if (!future$lazy) 
[13:13:55.965]                       future <- run(future)
[13:13:55.965]                     invisible(future)
[13:13:55.965]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:55.965]                 }
[13:13:55.965]             }
[13:13:55.965]         }
[13:13:55.965]     })
[13:13:55.965]     if (TRUE) {
[13:13:55.965]         base::sink(type = "output", split = FALSE)
[13:13:55.965]         if (TRUE) {
[13:13:55.965]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:55.965]         }
[13:13:55.965]         else {
[13:13:55.965]             ...future.result["stdout"] <- base::list(NULL)
[13:13:55.965]         }
[13:13:55.965]         base::close(...future.stdout)
[13:13:55.965]         ...future.stdout <- NULL
[13:13:55.965]     }
[13:13:55.965]     ...future.result$conditions <- ...future.conditions
[13:13:55.965]     ...future.result$finished <- base::Sys.time()
[13:13:55.965]     ...future.result
[13:13:55.965] }
[13:13:55.970] Exporting 5 global objects (3.57 KiB) to cluster node #1 ...
[13:13:55.970] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ...
[13:13:55.971] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ... DONE
[13:13:55.971] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:55.971] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:55.972] Exporting '...future.elements_ii' (336 bytes) to cluster node #1 ...
[13:13:55.972] Exporting '...future.elements_ii' (336 bytes) to cluster node #1 ... DONE
[13:13:55.972] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:55.973] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:55.973] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:55.973] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:55.973] Exporting 5 global objects (3.57 KiB) to cluster node #1 ... DONE
[13:13:55.974] MultisessionFuture started
[13:13:55.974] - Launch lazy future ... done
[13:13:55.975] run() for 'MultisessionFuture' ... done
[13:13:55.975] Created future:
[13:13:55.994] receiveMessageFromWorker() for ClusterFuture ...
[13:13:55.994] - Validating connection of MultisessionFuture
[13:13:55.994] - received message: FutureResult
[13:13:55.995] - Received FutureResult
[13:13:55.995] - Erased future from FutureRegistry
[13:13:55.995] result() for ClusterFuture ...
[13:13:55.995] - result already collected: FutureResult
[13:13:55.995] result() for ClusterFuture ... done
[13:13:55.995] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:55.975] MultisessionFuture:
[13:13:55.975] Label: 'future_.mapply-1'
[13:13:55.975] Expression:
[13:13:55.975] {
[13:13:55.975]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:55.975]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:55.975]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:55.975]         on.exit(options(oopts), add = TRUE)
[13:13:55.975]     }
[13:13:55.975]     {
[13:13:55.975]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:55.975]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:55.975]         do.call(mapply, args = args)
[13:13:55.975]     }
[13:13:55.975] }
[13:13:55.975] Lazy evaluation: FALSE
[13:13:55.975] Asynchronous evaluation: TRUE
[13:13:55.975] Local evaluation: TRUE
[13:13:55.975] Environment: R_GlobalEnv
[13:13:55.975] Capture standard output: TRUE
[13:13:55.975] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:55.975] Globals: 5 objects totaling 3.57 KiB (function '...future.FUN' of 3.24 KiB, list 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 336 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:55.975] Packages: <none>
[13:13:55.975] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:55.975] Resolved: TRUE
[13:13:55.975] Value: <not collected>
[13:13:55.975] Conditions captured: <none>
[13:13:55.975] Early signaling: FALSE
[13:13:55.975] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:55.975] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:55.996] Chunk #1 of 2 ... DONE
[13:13:55.996] Chunk #2 of 2 ...
[13:13:55.996]  - Finding globals in '...' for chunk #2 ...
[13:13:55.996] getGlobalsAndPackages() ...
[13:13:55.996] Searching for globals...
[13:13:55.997] 
[13:13:55.997] Searching for globals ... DONE
[13:13:55.997] - globals: [0] <none>
[13:13:55.997] getGlobalsAndPackages() ... DONE
[13:13:55.998]    + additional globals found: [n=0] 
[13:13:55.998]    + additional namespaces needed: [n=0] 
[13:13:55.998]  - Finding globals in '...' for chunk #2 ... DONE
[13:13:55.998]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:55.998]  - seeds: <none>
[13:13:55.998]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.999] getGlobalsAndPackages() ...
[13:13:55.999] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:55.999] Resolving globals: FALSE
[13:13:55.999] The total size of the 5 globals is 3.73 KiB (3824 bytes)
[13:13:56.000] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 3.73 KiB.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (3.24 KiB of class 'function'), '...future.elements_ii' (504 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'list')
[13:13:56.000] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.000] 
[13:13:56.001] getGlobalsAndPackages() ... DONE
[13:13:56.001] run() for 'Future' ...
[13:13:56.001] - state: 'created'
[13:13:56.001] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:56.016] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:56.016] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:56.016]   - Field: 'node'
[13:13:56.016]   - Field: 'label'
[13:13:56.017]   - Field: 'local'
[13:13:56.017]   - Field: 'owner'
[13:13:56.017]   - Field: 'envir'
[13:13:56.017]   - Field: 'workers'
[13:13:56.017]   - Field: 'packages'
[13:13:56.017]   - Field: 'gc'
[13:13:56.018]   - Field: 'conditions'
[13:13:56.018]   - Field: 'persistent'
[13:13:56.018]   - Field: 'expr'
[13:13:56.018]   - Field: 'uuid'
[13:13:56.018]   - Field: 'seed'
[13:13:56.018]   - Field: 'version'
[13:13:56.019]   - Field: 'result'
[13:13:56.019]   - Field: 'asynchronous'
[13:13:56.019]   - Field: 'calls'
[13:13:56.019]   - Field: 'globals'
[13:13:56.019]   - Field: 'stdout'
[13:13:56.020]   - Field: 'earlySignal'
[13:13:56.020]   - Field: 'lazy'
[13:13:56.020]   - Field: 'state'
[13:13:56.020] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:56.020] - Launch lazy future ...
[13:13:56.021] Packages needed by the future expression (n = 0): <none>
[13:13:56.021] Packages needed by future strategies (n = 0): <none>
[13:13:56.021] {
[13:13:56.021]     {
[13:13:56.021]         {
[13:13:56.021]             ...future.startTime <- base::Sys.time()
[13:13:56.021]             {
[13:13:56.021]                 {
[13:13:56.021]                   {
[13:13:56.021]                     {
[13:13:56.021]                       base::local({
[13:13:56.021]                         has_future <- base::requireNamespace("future", 
[13:13:56.021]                           quietly = TRUE)
[13:13:56.021]                         if (has_future) {
[13:13:56.021]                           ns <- base::getNamespace("future")
[13:13:56.021]                           version <- ns[[".package"]][["version"]]
[13:13:56.021]                           if (is.null(version)) 
[13:13:56.021]                             version <- utils::packageVersion("future")
[13:13:56.021]                         }
[13:13:56.021]                         else {
[13:13:56.021]                           version <- NULL
[13:13:56.021]                         }
[13:13:56.021]                         if (!has_future || version < "1.8.0") {
[13:13:56.021]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:56.021]                             "", base::R.version$version.string), 
[13:13:56.021]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:56.021]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:56.021]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:56.021]                               "release", "version")], collapse = " "), 
[13:13:56.021]                             hostname = base::Sys.info()[["nodename"]])
[13:13:56.021]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:56.021]                             info)
[13:13:56.021]                           info <- base::paste(info, collapse = "; ")
[13:13:56.021]                           if (!has_future) {
[13:13:56.021]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:56.021]                               info)
[13:13:56.021]                           }
[13:13:56.021]                           else {
[13:13:56.021]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:56.021]                               info, version)
[13:13:56.021]                           }
[13:13:56.021]                           base::stop(msg)
[13:13:56.021]                         }
[13:13:56.021]                       })
[13:13:56.021]                     }
[13:13:56.021]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:56.021]                     base::options(mc.cores = 1L)
[13:13:56.021]                   }
[13:13:56.021]                   options(future.plan = NULL)
[13:13:56.021]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:56.021]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:56.021]                 }
[13:13:56.021]                 ...future.workdir <- getwd()
[13:13:56.021]             }
[13:13:56.021]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:56.021]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:56.021]         }
[13:13:56.021]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:56.021]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:56.021]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:56.021]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:56.021]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:56.021]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:56.021]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:56.021]             base::names(...future.oldOptions))
[13:13:56.021]     }
[13:13:56.021]     if (FALSE) {
[13:13:56.021]     }
[13:13:56.021]     else {
[13:13:56.021]         if (TRUE) {
[13:13:56.021]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:56.021]                 open = "w")
[13:13:56.021]         }
[13:13:56.021]         else {
[13:13:56.021]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:56.021]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:56.021]         }
[13:13:56.021]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:56.021]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:56.021]             base::sink(type = "output", split = FALSE)
[13:13:56.021]             base::close(...future.stdout)
[13:13:56.021]         }, add = TRUE)
[13:13:56.021]     }
[13:13:56.021]     ...future.frame <- base::sys.nframe()
[13:13:56.021]     ...future.conditions <- base::list()
[13:13:56.021]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:56.021]     if (FALSE) {
[13:13:56.021]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:56.021]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:56.021]     }
[13:13:56.021]     ...future.result <- base::tryCatch({
[13:13:56.021]         base::withCallingHandlers({
[13:13:56.021]             ...future.value <- base::withVisible(base::local({
[13:13:56.021]                 ...future.makeSendCondition <- local({
[13:13:56.021]                   sendCondition <- NULL
[13:13:56.021]                   function(frame = 1L) {
[13:13:56.021]                     if (is.function(sendCondition)) 
[13:13:56.021]                       return(sendCondition)
[13:13:56.021]                     ns <- getNamespace("parallel")
[13:13:56.021]                     if (exists("sendData", mode = "function", 
[13:13:56.021]                       envir = ns)) {
[13:13:56.021]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:56.021]                         envir = ns)
[13:13:56.021]                       envir <- sys.frame(frame)
[13:13:56.021]                       master <- NULL
[13:13:56.021]                       while (!identical(envir, .GlobalEnv) && 
[13:13:56.021]                         !identical(envir, emptyenv())) {
[13:13:56.021]                         if (exists("master", mode = "list", envir = envir, 
[13:13:56.021]                           inherits = FALSE)) {
[13:13:56.021]                           master <- get("master", mode = "list", 
[13:13:56.021]                             envir = envir, inherits = FALSE)
[13:13:56.021]                           if (inherits(master, c("SOCKnode", 
[13:13:56.021]                             "SOCK0node"))) {
[13:13:56.021]                             sendCondition <<- function(cond) {
[13:13:56.021]                               data <- list(type = "VALUE", value = cond, 
[13:13:56.021]                                 success = TRUE)
[13:13:56.021]                               parallel_sendData(master, data)
[13:13:56.021]                             }
[13:13:56.021]                             return(sendCondition)
[13:13:56.021]                           }
[13:13:56.021]                         }
[13:13:56.021]                         frame <- frame + 1L
[13:13:56.021]                         envir <- sys.frame(frame)
[13:13:56.021]                       }
[13:13:56.021]                     }
[13:13:56.021]                     sendCondition <<- function(cond) NULL
[13:13:56.021]                   }
[13:13:56.021]                 })
[13:13:56.021]                 withCallingHandlers({
[13:13:56.021]                   {
[13:13:56.021]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:56.021]                     if (!identical(...future.globals.maxSize.org, 
[13:13:56.021]                       ...future.globals.maxSize)) {
[13:13:56.021]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:56.021]                       on.exit(options(oopts), add = TRUE)
[13:13:56.021]                     }
[13:13:56.021]                     {
[13:13:56.021]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:56.021]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:56.021]                         USE.NAMES = FALSE)
[13:13:56.021]                       do.call(mapply, args = args)
[13:13:56.021]                     }
[13:13:56.021]                   }
[13:13:56.021]                 }, immediateCondition = function(cond) {
[13:13:56.021]                   sendCondition <- ...future.makeSendCondition()
[13:13:56.021]                   sendCondition(cond)
[13:13:56.021]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.021]                   {
[13:13:56.021]                     inherits <- base::inherits
[13:13:56.021]                     invokeRestart <- base::invokeRestart
[13:13:56.021]                     is.null <- base::is.null
[13:13:56.021]                     muffled <- FALSE
[13:13:56.021]                     if (inherits(cond, "message")) {
[13:13:56.021]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:56.021]                       if (muffled) 
[13:13:56.021]                         invokeRestart("muffleMessage")
[13:13:56.021]                     }
[13:13:56.021]                     else if (inherits(cond, "warning")) {
[13:13:56.021]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:56.021]                       if (muffled) 
[13:13:56.021]                         invokeRestart("muffleWarning")
[13:13:56.021]                     }
[13:13:56.021]                     else if (inherits(cond, "condition")) {
[13:13:56.021]                       if (!is.null(pattern)) {
[13:13:56.021]                         computeRestarts <- base::computeRestarts
[13:13:56.021]                         grepl <- base::grepl
[13:13:56.021]                         restarts <- computeRestarts(cond)
[13:13:56.021]                         for (restart in restarts) {
[13:13:56.021]                           name <- restart$name
[13:13:56.021]                           if (is.null(name)) 
[13:13:56.021]                             next
[13:13:56.021]                           if (!grepl(pattern, name)) 
[13:13:56.021]                             next
[13:13:56.021]                           invokeRestart(restart)
[13:13:56.021]                           muffled <- TRUE
[13:13:56.021]                           break
[13:13:56.021]                         }
[13:13:56.021]                       }
[13:13:56.021]                     }
[13:13:56.021]                     invisible(muffled)
[13:13:56.021]                   }
[13:13:56.021]                   muffleCondition(cond)
[13:13:56.021]                 })
[13:13:56.021]             }))
[13:13:56.021]             future::FutureResult(value = ...future.value$value, 
[13:13:56.021]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:56.021]                   ...future.rng), globalenv = if (FALSE) 
[13:13:56.021]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:56.021]                     ...future.globalenv.names))
[13:13:56.021]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:56.021]         }, condition = base::local({
[13:13:56.021]             c <- base::c
[13:13:56.021]             inherits <- base::inherits
[13:13:56.021]             invokeRestart <- base::invokeRestart
[13:13:56.021]             length <- base::length
[13:13:56.021]             list <- base::list
[13:13:56.021]             seq.int <- base::seq.int
[13:13:56.021]             signalCondition <- base::signalCondition
[13:13:56.021]             sys.calls <- base::sys.calls
[13:13:56.021]             `[[` <- base::`[[`
[13:13:56.021]             `+` <- base::`+`
[13:13:56.021]             `<<-` <- base::`<<-`
[13:13:56.021]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:56.021]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:56.021]                   3L)]
[13:13:56.021]             }
[13:13:56.021]             function(cond) {
[13:13:56.021]                 is_error <- inherits(cond, "error")
[13:13:56.021]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:56.021]                   NULL)
[13:13:56.021]                 if (is_error) {
[13:13:56.021]                   sessionInformation <- function() {
[13:13:56.021]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:56.021]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:56.021]                       search = base::search(), system = base::Sys.info())
[13:13:56.021]                   }
[13:13:56.021]                   ...future.conditions[[length(...future.conditions) + 
[13:13:56.021]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:56.021]                     cond$call), session = sessionInformation(), 
[13:13:56.021]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:56.021]                   signalCondition(cond)
[13:13:56.021]                 }
[13:13:56.021]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:56.021]                 "immediateCondition"))) {
[13:13:56.021]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:56.021]                   ...future.conditions[[length(...future.conditions) + 
[13:13:56.021]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:56.021]                   if (TRUE && !signal) {
[13:13:56.021]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.021]                     {
[13:13:56.021]                       inherits <- base::inherits
[13:13:56.021]                       invokeRestart <- base::invokeRestart
[13:13:56.021]                       is.null <- base::is.null
[13:13:56.021]                       muffled <- FALSE
[13:13:56.021]                       if (inherits(cond, "message")) {
[13:13:56.021]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:56.021]                         if (muffled) 
[13:13:56.021]                           invokeRestart("muffleMessage")
[13:13:56.021]                       }
[13:13:56.021]                       else if (inherits(cond, "warning")) {
[13:13:56.021]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:56.021]                         if (muffled) 
[13:13:56.021]                           invokeRestart("muffleWarning")
[13:13:56.021]                       }
[13:13:56.021]                       else if (inherits(cond, "condition")) {
[13:13:56.021]                         if (!is.null(pattern)) {
[13:13:56.021]                           computeRestarts <- base::computeRestarts
[13:13:56.021]                           grepl <- base::grepl
[13:13:56.021]                           restarts <- computeRestarts(cond)
[13:13:56.021]                           for (restart in restarts) {
[13:13:56.021]                             name <- restart$name
[13:13:56.021]                             if (is.null(name)) 
[13:13:56.021]                               next
[13:13:56.021]                             if (!grepl(pattern, name)) 
[13:13:56.021]                               next
[13:13:56.021]                             invokeRestart(restart)
[13:13:56.021]                             muffled <- TRUE
[13:13:56.021]                             break
[13:13:56.021]                           }
[13:13:56.021]                         }
[13:13:56.021]                       }
[13:13:56.021]                       invisible(muffled)
[13:13:56.021]                     }
[13:13:56.021]                     muffleCondition(cond, pattern = "^muffle")
[13:13:56.021]                   }
[13:13:56.021]                 }
[13:13:56.021]                 else {
[13:13:56.021]                   if (TRUE) {
[13:13:56.021]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.021]                     {
[13:13:56.021]                       inherits <- base::inherits
[13:13:56.021]                       invokeRestart <- base::invokeRestart
[13:13:56.021]                       is.null <- base::is.null
[13:13:56.021]                       muffled <- FALSE
[13:13:56.021]                       if (inherits(cond, "message")) {
[13:13:56.021]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:56.021]                         if (muffled) 
[13:13:56.021]                           invokeRestart("muffleMessage")
[13:13:56.021]                       }
[13:13:56.021]                       else if (inherits(cond, "warning")) {
[13:13:56.021]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:56.021]                         if (muffled) 
[13:13:56.021]                           invokeRestart("muffleWarning")
[13:13:56.021]                       }
[13:13:56.021]                       else if (inherits(cond, "condition")) {
[13:13:56.021]                         if (!is.null(pattern)) {
[13:13:56.021]                           computeRestarts <- base::computeRestarts
[13:13:56.021]                           grepl <- base::grepl
[13:13:56.021]                           restarts <- computeRestarts(cond)
[13:13:56.021]                           for (restart in restarts) {
[13:13:56.021]                             name <- restart$name
[13:13:56.021]                             if (is.null(name)) 
[13:13:56.021]                               next
[13:13:56.021]                             if (!grepl(pattern, name)) 
[13:13:56.021]                               next
[13:13:56.021]                             invokeRestart(restart)
[13:13:56.021]                             muffled <- TRUE
[13:13:56.021]                             break
[13:13:56.021]                           }
[13:13:56.021]                         }
[13:13:56.021]                       }
[13:13:56.021]                       invisible(muffled)
[13:13:56.021]                     }
[13:13:56.021]                     muffleCondition(cond, pattern = "^muffle")
[13:13:56.021]                   }
[13:13:56.021]                 }
[13:13:56.021]             }
[13:13:56.021]         }))
[13:13:56.021]     }, error = function(ex) {
[13:13:56.021]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:56.021]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:56.021]                 ...future.rng), started = ...future.startTime, 
[13:13:56.021]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:56.021]             version = "1.8"), class = "FutureResult")
[13:13:56.021]     }, finally = {
[13:13:56.021]         if (!identical(...future.workdir, getwd())) 
[13:13:56.021]             setwd(...future.workdir)
[13:13:56.021]         {
[13:13:56.021]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:56.021]                 ...future.oldOptions$nwarnings <- NULL
[13:13:56.021]             }
[13:13:56.021]             base::options(...future.oldOptions)
[13:13:56.021]             if (.Platform$OS.type == "windows") {
[13:13:56.021]                 old_names <- names(...future.oldEnvVars)
[13:13:56.021]                 envs <- base::Sys.getenv()
[13:13:56.021]                 names <- names(envs)
[13:13:56.021]                 common <- intersect(names, old_names)
[13:13:56.021]                 added <- setdiff(names, old_names)
[13:13:56.021]                 removed <- setdiff(old_names, names)
[13:13:56.021]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:56.021]                   envs[common]]
[13:13:56.021]                 NAMES <- toupper(changed)
[13:13:56.021]                 args <- list()
[13:13:56.021]                 for (kk in seq_along(NAMES)) {
[13:13:56.021]                   name <- changed[[kk]]
[13:13:56.021]                   NAME <- NAMES[[kk]]
[13:13:56.021]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.021]                     next
[13:13:56.021]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:56.021]                 }
[13:13:56.021]                 NAMES <- toupper(added)
[13:13:56.021]                 for (kk in seq_along(NAMES)) {
[13:13:56.021]                   name <- added[[kk]]
[13:13:56.021]                   NAME <- NAMES[[kk]]
[13:13:56.021]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.021]                     next
[13:13:56.021]                   args[[name]] <- ""
[13:13:56.021]                 }
[13:13:56.021]                 NAMES <- toupper(removed)
[13:13:56.021]                 for (kk in seq_along(NAMES)) {
[13:13:56.021]                   name <- removed[[kk]]
[13:13:56.021]                   NAME <- NAMES[[kk]]
[13:13:56.021]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.021]                     next
[13:13:56.021]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:56.021]                 }
[13:13:56.021]                 if (length(args) > 0) 
[13:13:56.021]                   base::do.call(base::Sys.setenv, args = args)
[13:13:56.021]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:56.021]             }
[13:13:56.021]             else {
[13:13:56.021]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:56.021]             }
[13:13:56.021]             {
[13:13:56.021]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:56.021]                   0L) {
[13:13:56.021]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:56.021]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:56.021]                   base::options(opts)
[13:13:56.021]                 }
[13:13:56.021]                 {
[13:13:56.021]                   {
[13:13:56.021]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:56.021]                     NULL
[13:13:56.021]                   }
[13:13:56.021]                   options(future.plan = NULL)
[13:13:56.021]                   if (is.na(NA_character_)) 
[13:13:56.021]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:56.021]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:56.021]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:56.021]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:56.021]                     envir = parent.frame()) 
[13:13:56.021]                   {
[13:13:56.021]                     if (is.function(workers)) 
[13:13:56.021]                       workers <- workers()
[13:13:56.021]                     workers <- structure(as.integer(workers), 
[13:13:56.021]                       class = class(workers))
[13:13:56.021]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:56.021]                       workers >= 1)
[13:13:56.021]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:56.021]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:56.021]                     }
[13:13:56.021]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:56.021]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:56.021]                       envir = envir)
[13:13:56.021]                     if (!future$lazy) 
[13:13:56.021]                       future <- run(future)
[13:13:56.021]                     invisible(future)
[13:13:56.021]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:56.021]                 }
[13:13:56.021]             }
[13:13:56.021]         }
[13:13:56.021]     })
[13:13:56.021]     if (TRUE) {
[13:13:56.021]         base::sink(type = "output", split = FALSE)
[13:13:56.021]         if (TRUE) {
[13:13:56.021]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:56.021]         }
[13:13:56.021]         else {
[13:13:56.021]             ...future.result["stdout"] <- base::list(NULL)
[13:13:56.021]         }
[13:13:56.021]         base::close(...future.stdout)
[13:13:56.021]         ...future.stdout <- NULL
[13:13:56.021]     }
[13:13:56.021]     ...future.result$conditions <- ...future.conditions
[13:13:56.021]     ...future.result$finished <- base::Sys.time()
[13:13:56.021]     ...future.result
[13:13:56.021] }
[13:13:56.027] Exporting 5 global objects (3.73 KiB) to cluster node #1 ...
[13:13:56.027] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ...
[13:13:56.027] Exporting '...future.FUN' (3.24 KiB) to cluster node #1 ... DONE
[13:13:56.028] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:56.028] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:56.028] Exporting '...future.elements_ii' (504 bytes) to cluster node #1 ...
[13:13:56.029] Exporting '...future.elements_ii' (504 bytes) to cluster node #1 ... DONE
[13:13:56.029] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:56.029] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:56.030] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:56.030] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:56.030] Exporting 5 global objects (3.73 KiB) to cluster node #1 ... DONE
[13:13:56.031] MultisessionFuture started
[13:13:56.031] - Launch lazy future ... done
[13:13:56.031] run() for 'MultisessionFuture' ... done
[13:13:56.031] Created future:
[13:13:56.047] receiveMessageFromWorker() for ClusterFuture ...
[13:13:56.047] - Validating connection of MultisessionFuture
[13:13:56.047] - received message: FutureResult
[13:13:56.047] - Received FutureResult
[13:13:56.048] - Erased future from FutureRegistry
[13:13:56.048] result() for ClusterFuture ...
[13:13:56.048] - result already collected: FutureResult
[13:13:56.048] result() for ClusterFuture ... done
[13:13:56.048] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:56.032] MultisessionFuture:
[13:13:56.032] Label: 'future_.mapply-2'
[13:13:56.032] Expression:
[13:13:56.032] {
[13:13:56.032]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:56.032]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:56.032]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:56.032]         on.exit(options(oopts), add = TRUE)
[13:13:56.032]     }
[13:13:56.032]     {
[13:13:56.032]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:56.032]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:56.032]         do.call(mapply, args = args)
[13:13:56.032]     }
[13:13:56.032] }
[13:13:56.032] Lazy evaluation: FALSE
[13:13:56.032] Asynchronous evaluation: TRUE
[13:13:56.032] Local evaluation: TRUE
[13:13:56.032] Environment: R_GlobalEnv
[13:13:56.032] Capture standard output: TRUE
[13:13:56.032] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:56.032] Globals: 5 objects totaling 3.73 KiB (function '...future.FUN' of 3.24 KiB, list 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 504 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:56.032] Packages: <none>
[13:13:56.032] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:56.032] Resolved: TRUE
[13:13:56.032] Value: <not collected>
[13:13:56.032] Conditions captured: <none>
[13:13:56.032] Early signaling: FALSE
[13:13:56.032] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:56.032] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:56.049] Chunk #2 of 2 ... DONE
[13:13:56.049] Launching 2 futures (chunks) ... DONE
[13:13:56.049] Resolving 2 futures (chunks) ...
[13:13:56.049] resolve() on list ...
[13:13:56.049]  recursive: 0
[13:13:56.049]  length: 2
[13:13:56.050] 
[13:13:56.050] Future #1
[13:13:56.050] result() for ClusterFuture ...
[13:13:56.050] - result already collected: FutureResult
[13:13:56.050] result() for ClusterFuture ... done
[13:13:56.051] result() for ClusterFuture ...
[13:13:56.051] - result already collected: FutureResult
[13:13:56.051] result() for ClusterFuture ... done
[13:13:56.051] signalConditionsASAP(MultisessionFuture, pos=1) ...
[13:13:56.051] - nx: 2
[13:13:56.051] - relay: TRUE
[13:13:56.052] - stdout: TRUE
[13:13:56.052] - signal: TRUE
[13:13:56.052] - resignal: FALSE
[13:13:56.052] - force: TRUE
[13:13:56.052] - relayed: [n=2] FALSE, FALSE
[13:13:56.052] - queued futures: [n=2] FALSE, FALSE
[13:13:56.052]  - until=1
[13:13:56.053]  - relaying element #1
[13:13:56.053] result() for ClusterFuture ...
[13:13:56.053] - result already collected: FutureResult
[13:13:56.053] result() for ClusterFuture ... done
[13:13:56.053] result() for ClusterFuture ...
[13:13:56.053] - result already collected: FutureResult
[13:13:56.054] result() for ClusterFuture ... done
[13:13:56.054] result() for ClusterFuture ...
[13:13:56.054] - result already collected: FutureResult
[13:13:56.054] result() for ClusterFuture ... done
[13:13:56.054] result() for ClusterFuture ...
[13:13:56.054] - result already collected: FutureResult
[13:13:56.055] result() for ClusterFuture ... done
[13:13:56.055] - relayed: [n=2] TRUE, FALSE
[13:13:56.055] - queued futures: [n=2] TRUE, FALSE
[13:13:56.055] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[13:13:56.055]  length: 1 (resolved future 1)
[13:13:56.055] Future #2
[13:13:56.056] result() for ClusterFuture ...
[13:13:56.056] - result already collected: FutureResult
[13:13:56.056] result() for ClusterFuture ... done
[13:13:56.056] result() for ClusterFuture ...
[13:13:56.056] - result already collected: FutureResult
[13:13:56.056] result() for ClusterFuture ... done
[13:13:56.057] signalConditionsASAP(MultisessionFuture, pos=2) ...
[13:13:56.057] - nx: 2
[13:13:56.057] - relay: TRUE
[13:13:56.057] - stdout: TRUE
[13:13:56.057] - signal: TRUE
[13:13:56.057] - resignal: FALSE
[13:13:56.057] - force: TRUE
[13:13:56.058] - relayed: [n=2] TRUE, FALSE
[13:13:56.058] - queued futures: [n=2] TRUE, FALSE
[13:13:56.058]  - until=2
[13:13:56.058]  - relaying element #2
[13:13:56.058] result() for ClusterFuture ...
[13:13:56.058] - result already collected: FutureResult
[13:13:56.059] result() for ClusterFuture ... done
[13:13:56.059] result() for ClusterFuture ...
[13:13:56.059] - result already collected: FutureResult
[13:13:56.059] result() for ClusterFuture ... done
[13:13:56.059] result() for ClusterFuture ...
[13:13:56.059] - result already collected: FutureResult
[13:13:56.060] result() for ClusterFuture ... done
[13:13:56.060] result() for ClusterFuture ...
[13:13:56.060] - result already collected: FutureResult
[13:13:56.060] result() for ClusterFuture ... done
[13:13:56.060] - relayed: [n=2] TRUE, TRUE
[13:13:56.060] - queued futures: [n=2] TRUE, TRUE
[13:13:56.060] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[13:13:56.061]  length: 0 (resolved future 2)
[13:13:56.061] Relaying remaining futures
[13:13:56.061] signalConditionsASAP(NULL, pos=0) ...
[13:13:56.061] - nx: 2
[13:13:56.061] - relay: TRUE
[13:13:56.061] - stdout: TRUE
[13:13:56.062] - signal: TRUE
[13:13:56.062] - resignal: FALSE
[13:13:56.062] - force: TRUE
[13:13:56.062] - relayed: [n=2] TRUE, TRUE
[13:13:56.062] - queued futures: [n=2] TRUE, TRUE
 - flush all
[13:13:56.062] - relayed: [n=2] TRUE, TRUE
[13:13:56.063] - queued futures: [n=2] TRUE, TRUE
[13:13:56.063] signalConditionsASAP(NULL, pos=0) ... done
[13:13:56.063] resolve() on list ... DONE
[13:13:56.063] result() for ClusterFuture ...
[13:13:56.063] - result already collected: FutureResult
[13:13:56.063] result() for ClusterFuture ... done
[13:13:56.064] result() for ClusterFuture ...
[13:13:56.064] - result already collected: FutureResult
[13:13:56.064] result() for ClusterFuture ... done
[13:13:56.064] result() for ClusterFuture ...
[13:13:56.064] - result already collected: FutureResult
[13:13:56.064] result() for ClusterFuture ... done
[13:13:56.064] result() for ClusterFuture ...
[13:13:56.065] - result already collected: FutureResult
[13:13:56.065] result() for ClusterFuture ... done
[13:13:56.065]  - Number of value chunks collected: 2
[13:13:56.065] Resolving 2 futures (chunks) ... DONE
[13:13:56.065] Reducing values from 2 chunks ...
[13:13:56.065]  - Number of values collected after concatenation: 5
[13:13:56.066]  - Number of values expected: 5
[13:13:56.066] Reducing values from 2 chunks ... DONE
[13:13:56.066] future_mapply() ... DONE
- Subsetting (Issue #17) ...
[13:13:56.066] future_mapply() ...
[13:13:56.069] Number of chunks: 1
[13:13:56.069] getGlobalsAndPackagesXApply() ...
[13:13:56.069]  - future.globals: TRUE
[13:13:56.069] getGlobalsAndPackages() ...
[13:13:56.070] Searching for globals...
[13:13:56.071] - globals found: [1] 'FUN'
[13:13:56.071] Searching for globals ... DONE
[13:13:56.071] Resolving globals: FALSE
[13:13:56.072] The total size of the 1 globals is 848 bytes (848 bytes)
[13:13:56.072] The total size of the 1 globals exported for future expression ('FUN()') is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (848 bytes of class 'function')
[13:13:56.072] - globals: [1] 'FUN'
[13:13:56.072] 
[13:13:56.073] getGlobalsAndPackages() ... DONE
[13:13:56.074]  - globals found/used: [n=1] 'FUN'
[13:13:56.075]  - needed namespaces: [n=0] 
[13:13:56.075] Finding globals ... DONE
[13:13:56.075] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:56.075] List of 2
[13:13:56.075]  $ ...future.FUN:function (x)  
[13:13:56.075]  $ MoreArgs     : NULL
[13:13:56.075]  - attr(*, "where")=List of 2
[13:13:56.075]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:56.075]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:56.075]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:56.075]  - attr(*, "resolved")= logi FALSE
[13:13:56.075]  - attr(*, "total_size")= num NA
[13:13:56.078] Packages to be attached in all futures: [n=0] 
[13:13:56.078] getGlobalsAndPackagesXApply() ... DONE
[13:13:56.079] Number of futures (= number of chunks): 1
[13:13:56.079] Launching 1 futures (chunks) ...
[13:13:56.079] Chunk #1 of 1 ...
[13:13:56.079]  - Finding globals in '...' for chunk #1 ...
[13:13:56.079] getGlobalsAndPackages() ...
[13:13:56.079] Searching for globals...
[13:13:56.080] 
[13:13:56.080] Searching for globals ... DONE
[13:13:56.080] - globals: [0] <none>
[13:13:56.080] getGlobalsAndPackages() ... DONE
[13:13:56.080]    + additional globals found: [n=0] 
[13:13:56.081]    + additional namespaces needed: [n=0] 
[13:13:56.081]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:56.081]  - seeds: <none>
[13:13:56.081]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.081] getGlobalsAndPackages() ...
[13:13:56.081] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.082] Resolving globals: FALSE
[13:13:56.082] The total size of the 5 globals is 1.10 KiB (1128 bytes)
[13:13:56.083] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 1.10 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (848 bytes of class 'function'), '...future.elements_ii' (280 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:56.083] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.083] 
[13:13:56.083] getGlobalsAndPackages() ... DONE
[13:13:56.084] run() for 'Future' ...
[13:13:56.084] - state: 'created'
[13:13:56.084] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:56.098] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:56.098] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:56.098]   - Field: 'node'
[13:13:56.098]   - Field: 'label'
[13:13:56.099]   - Field: 'local'
[13:13:56.099]   - Field: 'owner'
[13:13:56.099]   - Field: 'envir'
[13:13:56.099]   - Field: 'workers'
[13:13:56.099]   - Field: 'packages'
[13:13:56.100]   - Field: 'gc'
[13:13:56.100]   - Field: 'conditions'
[13:13:56.100]   - Field: 'persistent'
[13:13:56.100]   - Field: 'expr'
[13:13:56.100]   - Field: 'uuid'
[13:13:56.100]   - Field: 'seed'
[13:13:56.101]   - Field: 'version'
[13:13:56.101]   - Field: 'result'
[13:13:56.101]   - Field: 'asynchronous'
[13:13:56.101]   - Field: 'calls'
[13:13:56.101]   - Field: 'globals'
[13:13:56.101]   - Field: 'stdout'
[13:13:56.102]   - Field: 'earlySignal'
[13:13:56.102]   - Field: 'lazy'
[13:13:56.102]   - Field: 'state'
[13:13:56.102] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:56.102] - Launch lazy future ...
[13:13:56.103] Packages needed by the future expression (n = 0): <none>
[13:13:56.103] Packages needed by future strategies (n = 0): <none>
[13:13:56.104] {
[13:13:56.104]     {
[13:13:56.104]         {
[13:13:56.104]             ...future.startTime <- base::Sys.time()
[13:13:56.104]             {
[13:13:56.104]                 {
[13:13:56.104]                   {
[13:13:56.104]                     {
[13:13:56.104]                       base::local({
[13:13:56.104]                         has_future <- base::requireNamespace("future", 
[13:13:56.104]                           quietly = TRUE)
[13:13:56.104]                         if (has_future) {
[13:13:56.104]                           ns <- base::getNamespace("future")
[13:13:56.104]                           version <- ns[[".package"]][["version"]]
[13:13:56.104]                           if (is.null(version)) 
[13:13:56.104]                             version <- utils::packageVersion("future")
[13:13:56.104]                         }
[13:13:56.104]                         else {
[13:13:56.104]                           version <- NULL
[13:13:56.104]                         }
[13:13:56.104]                         if (!has_future || version < "1.8.0") {
[13:13:56.104]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:56.104]                             "", base::R.version$version.string), 
[13:13:56.104]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:56.104]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:56.104]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:56.104]                               "release", "version")], collapse = " "), 
[13:13:56.104]                             hostname = base::Sys.info()[["nodename"]])
[13:13:56.104]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:56.104]                             info)
[13:13:56.104]                           info <- base::paste(info, collapse = "; ")
[13:13:56.104]                           if (!has_future) {
[13:13:56.104]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:56.104]                               info)
[13:13:56.104]                           }
[13:13:56.104]                           else {
[13:13:56.104]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:56.104]                               info, version)
[13:13:56.104]                           }
[13:13:56.104]                           base::stop(msg)
[13:13:56.104]                         }
[13:13:56.104]                       })
[13:13:56.104]                     }
[13:13:56.104]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:56.104]                     base::options(mc.cores = 1L)
[13:13:56.104]                   }
[13:13:56.104]                   options(future.plan = NULL)
[13:13:56.104]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:56.104]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:56.104]                 }
[13:13:56.104]                 ...future.workdir <- getwd()
[13:13:56.104]             }
[13:13:56.104]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:56.104]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:56.104]         }
[13:13:56.104]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:56.104]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[13:13:56.104]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:56.104]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:56.104]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:56.104]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:56.104]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:56.104]             base::names(...future.oldOptions))
[13:13:56.104]     }
[13:13:56.104]     if (FALSE) {
[13:13:56.104]     }
[13:13:56.104]     else {
[13:13:56.104]         if (TRUE) {
[13:13:56.104]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:56.104]                 open = "w")
[13:13:56.104]         }
[13:13:56.104]         else {
[13:13:56.104]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:56.104]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:56.104]         }
[13:13:56.104]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:56.104]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:56.104]             base::sink(type = "output", split = FALSE)
[13:13:56.104]             base::close(...future.stdout)
[13:13:56.104]         }, add = TRUE)
[13:13:56.104]     }
[13:13:56.104]     ...future.frame <- base::sys.nframe()
[13:13:56.104]     ...future.conditions <- base::list()
[13:13:56.104]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:56.104]     if (FALSE) {
[13:13:56.104]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:56.104]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:56.104]     }
[13:13:56.104]     ...future.result <- base::tryCatch({
[13:13:56.104]         base::withCallingHandlers({
[13:13:56.104]             ...future.value <- base::withVisible(base::local({
[13:13:56.104]                 ...future.makeSendCondition <- local({
[13:13:56.104]                   sendCondition <- NULL
[13:13:56.104]                   function(frame = 1L) {
[13:13:56.104]                     if (is.function(sendCondition)) 
[13:13:56.104]                       return(sendCondition)
[13:13:56.104]                     ns <- getNamespace("parallel")
[13:13:56.104]                     if (exists("sendData", mode = "function", 
[13:13:56.104]                       envir = ns)) {
[13:13:56.104]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:56.104]                         envir = ns)
[13:13:56.104]                       envir <- sys.frame(frame)
[13:13:56.104]                       master <- NULL
[13:13:56.104]                       while (!identical(envir, .GlobalEnv) && 
[13:13:56.104]                         !identical(envir, emptyenv())) {
[13:13:56.104]                         if (exists("master", mode = "list", envir = envir, 
[13:13:56.104]                           inherits = FALSE)) {
[13:13:56.104]                           master <- get("master", mode = "list", 
[13:13:56.104]                             envir = envir, inherits = FALSE)
[13:13:56.104]                           if (inherits(master, c("SOCKnode", 
[13:13:56.104]                             "SOCK0node"))) {
[13:13:56.104]                             sendCondition <<- function(cond) {
[13:13:56.104]                               data <- list(type = "VALUE", value = cond, 
[13:13:56.104]                                 success = TRUE)
[13:13:56.104]                               parallel_sendData(master, data)
[13:13:56.104]                             }
[13:13:56.104]                             return(sendCondition)
[13:13:56.104]                           }
[13:13:56.104]                         }
[13:13:56.104]                         frame <- frame + 1L
[13:13:56.104]                         envir <- sys.frame(frame)
[13:13:56.104]                       }
[13:13:56.104]                     }
[13:13:56.104]                     sendCondition <<- function(cond) NULL
[13:13:56.104]                   }
[13:13:56.104]                 })
[13:13:56.104]                 withCallingHandlers({
[13:13:56.104]                   {
[13:13:56.104]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:56.104]                     if (!identical(...future.globals.maxSize.org, 
[13:13:56.104]                       ...future.globals.maxSize)) {
[13:13:56.104]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:56.104]                       on.exit(options(oopts), add = TRUE)
[13:13:56.104]                     }
[13:13:56.104]                     {
[13:13:56.104]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:56.104]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:56.104]                         USE.NAMES = FALSE)
[13:13:56.104]                       do.call(mapply, args = args)
[13:13:56.104]                     }
[13:13:56.104]                   }
[13:13:56.104]                 }, immediateCondition = function(cond) {
[13:13:56.104]                   sendCondition <- ...future.makeSendCondition()
[13:13:56.104]                   sendCondition(cond)
[13:13:56.104]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.104]                   {
[13:13:56.104]                     inherits <- base::inherits
[13:13:56.104]                     invokeRestart <- base::invokeRestart
[13:13:56.104]                     is.null <- base::is.null
[13:13:56.104]                     muffled <- FALSE
[13:13:56.104]                     if (inherits(cond, "message")) {
[13:13:56.104]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:56.104]                       if (muffled) 
[13:13:56.104]                         invokeRestart("muffleMessage")
[13:13:56.104]                     }
[13:13:56.104]                     else if (inherits(cond, "warning")) {
[13:13:56.104]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:56.104]                       if (muffled) 
[13:13:56.104]                         invokeRestart("muffleWarning")
[13:13:56.104]                     }
[13:13:56.104]                     else if (inherits(cond, "condition")) {
[13:13:56.104]                       if (!is.null(pattern)) {
[13:13:56.104]                         computeRestarts <- base::computeRestarts
[13:13:56.104]                         grepl <- base::grepl
[13:13:56.104]                         restarts <- computeRestarts(cond)
[13:13:56.104]                         for (restart in restarts) {
[13:13:56.104]                           name <- restart$name
[13:13:56.104]                           if (is.null(name)) 
[13:13:56.104]                             next
[13:13:56.104]                           if (!grepl(pattern, name)) 
[13:13:56.104]                             next
[13:13:56.104]                           invokeRestart(restart)
[13:13:56.104]                           muffled <- TRUE
[13:13:56.104]                           break
[13:13:56.104]                         }
[13:13:56.104]                       }
[13:13:56.104]                     }
[13:13:56.104]                     invisible(muffled)
[13:13:56.104]                   }
[13:13:56.104]                   muffleCondition(cond)
[13:13:56.104]                 })
[13:13:56.104]             }))
[13:13:56.104]             future::FutureResult(value = ...future.value$value, 
[13:13:56.104]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:56.104]                   ...future.rng), globalenv = if (FALSE) 
[13:13:56.104]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:56.104]                     ...future.globalenv.names))
[13:13:56.104]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:56.104]         }, condition = base::local({
[13:13:56.104]             c <- base::c
[13:13:56.104]             inherits <- base::inherits
[13:13:56.104]             invokeRestart <- base::invokeRestart
[13:13:56.104]             length <- base::length
[13:13:56.104]             list <- base::list
[13:13:56.104]             seq.int <- base::seq.int
[13:13:56.104]             signalCondition <- base::signalCondition
[13:13:56.104]             sys.calls <- base::sys.calls
[13:13:56.104]             `[[` <- base::`[[`
[13:13:56.104]             `+` <- base::`+`
[13:13:56.104]             `<<-` <- base::`<<-`
[13:13:56.104]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:56.104]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:56.104]                   3L)]
[13:13:56.104]             }
[13:13:56.104]             function(cond) {
[13:13:56.104]                 is_error <- inherits(cond, "error")
[13:13:56.104]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:56.104]                   NULL)
[13:13:56.104]                 if (is_error) {
[13:13:56.104]                   sessionInformation <- function() {
[13:13:56.104]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:56.104]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:56.104]                       search = base::search(), system = base::Sys.info())
[13:13:56.104]                   }
[13:13:56.104]                   ...future.conditions[[length(...future.conditions) + 
[13:13:56.104]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:56.104]                     cond$call), session = sessionInformation(), 
[13:13:56.104]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:56.104]                   signalCondition(cond)
[13:13:56.104]                 }
[13:13:56.104]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:56.104]                 "immediateCondition"))) {
[13:13:56.104]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:56.104]                   ...future.conditions[[length(...future.conditions) + 
[13:13:56.104]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:56.104]                   if (TRUE && !signal) {
[13:13:56.104]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.104]                     {
[13:13:56.104]                       inherits <- base::inherits
[13:13:56.104]                       invokeRestart <- base::invokeRestart
[13:13:56.104]                       is.null <- base::is.null
[13:13:56.104]                       muffled <- FALSE
[13:13:56.104]                       if (inherits(cond, "message")) {
[13:13:56.104]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:56.104]                         if (muffled) 
[13:13:56.104]                           invokeRestart("muffleMessage")
[13:13:56.104]                       }
[13:13:56.104]                       else if (inherits(cond, "warning")) {
[13:13:56.104]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:56.104]                         if (muffled) 
[13:13:56.104]                           invokeRestart("muffleWarning")
[13:13:56.104]                       }
[13:13:56.104]                       else if (inherits(cond, "condition")) {
[13:13:56.104]                         if (!is.null(pattern)) {
[13:13:56.104]                           computeRestarts <- base::computeRestarts
[13:13:56.104]                           grepl <- base::grepl
[13:13:56.104]                           restarts <- computeRestarts(cond)
[13:13:56.104]                           for (restart in restarts) {
[13:13:56.104]                             name <- restart$name
[13:13:56.104]                             if (is.null(name)) 
[13:13:56.104]                               next
[13:13:56.104]                             if (!grepl(pattern, name)) 
[13:13:56.104]                               next
[13:13:56.104]                             invokeRestart(restart)
[13:13:56.104]                             muffled <- TRUE
[13:13:56.104]                             break
[13:13:56.104]                           }
[13:13:56.104]                         }
[13:13:56.104]                       }
[13:13:56.104]                       invisible(muffled)
[13:13:56.104]                     }
[13:13:56.104]                     muffleCondition(cond, pattern = "^muffle")
[13:13:56.104]                   }
[13:13:56.104]                 }
[13:13:56.104]                 else {
[13:13:56.104]                   if (TRUE) {
[13:13:56.104]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.104]                     {
[13:13:56.104]                       inherits <- base::inherits
[13:13:56.104]                       invokeRestart <- base::invokeRestart
[13:13:56.104]                       is.null <- base::is.null
[13:13:56.104]                       muffled <- FALSE
[13:13:56.104]                       if (inherits(cond, "message")) {
[13:13:56.104]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:56.104]                         if (muffled) 
[13:13:56.104]                           invokeRestart("muffleMessage")
[13:13:56.104]                       }
[13:13:56.104]                       else if (inherits(cond, "warning")) {
[13:13:56.104]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:56.104]                         if (muffled) 
[13:13:56.104]                           invokeRestart("muffleWarning")
[13:13:56.104]                       }
[13:13:56.104]                       else if (inherits(cond, "condition")) {
[13:13:56.104]                         if (!is.null(pattern)) {
[13:13:56.104]                           computeRestarts <- base::computeRestarts
[13:13:56.104]                           grepl <- base::grepl
[13:13:56.104]                           restarts <- computeRestarts(cond)
[13:13:56.104]                           for (restart in restarts) {
[13:13:56.104]                             name <- restart$name
[13:13:56.104]                             if (is.null(name)) 
[13:13:56.104]                               next
[13:13:56.104]                             if (!grepl(pattern, name)) 
[13:13:56.104]                               next
[13:13:56.104]                             invokeRestart(restart)
[13:13:56.104]                             muffled <- TRUE
[13:13:56.104]                             break
[13:13:56.104]                           }
[13:13:56.104]                         }
[13:13:56.104]                       }
[13:13:56.104]                       invisible(muffled)
[13:13:56.104]                     }
[13:13:56.104]                     muffleCondition(cond, pattern = "^muffle")
[13:13:56.104]                   }
[13:13:56.104]                 }
[13:13:56.104]             }
[13:13:56.104]         }))
[13:13:56.104]     }, error = function(ex) {
[13:13:56.104]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:56.104]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:56.104]                 ...future.rng), started = ...future.startTime, 
[13:13:56.104]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:56.104]             version = "1.8"), class = "FutureResult")
[13:13:56.104]     }, finally = {
[13:13:56.104]         if (!identical(...future.workdir, getwd())) 
[13:13:56.104]             setwd(...future.workdir)
[13:13:56.104]         {
[13:13:56.104]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:56.104]                 ...future.oldOptions$nwarnings <- NULL
[13:13:56.104]             }
[13:13:56.104]             base::options(...future.oldOptions)
[13:13:56.104]             if (.Platform$OS.type == "windows") {
[13:13:56.104]                 old_names <- names(...future.oldEnvVars)
[13:13:56.104]                 envs <- base::Sys.getenv()
[13:13:56.104]                 names <- names(envs)
[13:13:56.104]                 common <- intersect(names, old_names)
[13:13:56.104]                 added <- setdiff(names, old_names)
[13:13:56.104]                 removed <- setdiff(old_names, names)
[13:13:56.104]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:56.104]                   envs[common]]
[13:13:56.104]                 NAMES <- toupper(changed)
[13:13:56.104]                 args <- list()
[13:13:56.104]                 for (kk in seq_along(NAMES)) {
[13:13:56.104]                   name <- changed[[kk]]
[13:13:56.104]                   NAME <- NAMES[[kk]]
[13:13:56.104]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.104]                     next
[13:13:56.104]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:56.104]                 }
[13:13:56.104]                 NAMES <- toupper(added)
[13:13:56.104]                 for (kk in seq_along(NAMES)) {
[13:13:56.104]                   name <- added[[kk]]
[13:13:56.104]                   NAME <- NAMES[[kk]]
[13:13:56.104]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.104]                     next
[13:13:56.104]                   args[[name]] <- ""
[13:13:56.104]                 }
[13:13:56.104]                 NAMES <- toupper(removed)
[13:13:56.104]                 for (kk in seq_along(NAMES)) {
[13:13:56.104]                   name <- removed[[kk]]
[13:13:56.104]                   NAME <- NAMES[[kk]]
[13:13:56.104]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.104]                     next
[13:13:56.104]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:56.104]                 }
[13:13:56.104]                 if (length(args) > 0) 
[13:13:56.104]                   base::do.call(base::Sys.setenv, args = args)
[13:13:56.104]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:56.104]             }
[13:13:56.104]             else {
[13:13:56.104]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:56.104]             }
[13:13:56.104]             {
[13:13:56.104]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:56.104]                   0L) {
[13:13:56.104]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:56.104]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:56.104]                   base::options(opts)
[13:13:56.104]                 }
[13:13:56.104]                 {
[13:13:56.104]                   {
[13:13:56.104]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:56.104]                     NULL
[13:13:56.104]                   }
[13:13:56.104]                   options(future.plan = NULL)
[13:13:56.104]                   if (is.na(NA_character_)) 
[13:13:56.104]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:56.104]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:56.104]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:56.104]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:56.104]                     envir = parent.frame()) 
[13:13:56.104]                   {
[13:13:56.104]                     if (is.function(workers)) 
[13:13:56.104]                       workers <- workers()
[13:13:56.104]                     workers <- structure(as.integer(workers), 
[13:13:56.104]                       class = class(workers))
[13:13:56.104]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:56.104]                       workers >= 1)
[13:13:56.104]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:56.104]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:56.104]                     }
[13:13:56.104]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:56.104]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:56.104]                       envir = envir)
[13:13:56.104]                     if (!future$lazy) 
[13:13:56.104]                       future <- run(future)
[13:13:56.104]                     invisible(future)
[13:13:56.104]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:56.104]                 }
[13:13:56.104]             }
[13:13:56.104]         }
[13:13:56.104]     })
[13:13:56.104]     if (TRUE) {
[13:13:56.104]         base::sink(type = "output", split = FALSE)
[13:13:56.104]         if (TRUE) {
[13:13:56.104]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:56.104]         }
[13:13:56.104]         else {
[13:13:56.104]             ...future.result["stdout"] <- base::list(NULL)
[13:13:56.104]         }
[13:13:56.104]         base::close(...future.stdout)
[13:13:56.104]         ...future.stdout <- NULL
[13:13:56.104]     }
[13:13:56.104]     ...future.result$conditions <- ...future.conditions
[13:13:56.104]     ...future.result$finished <- base::Sys.time()
[13:13:56.104]     ...future.result
[13:13:56.104] }
[13:13:56.109] Exporting 5 global objects (1.10 KiB) to cluster node #1 ...
[13:13:56.109] Exporting '...future.FUN' (848 bytes) to cluster node #1 ...
[13:13:56.110] Exporting '...future.FUN' (848 bytes) to cluster node #1 ... DONE
[13:13:56.110] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:56.110] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:56.111] Exporting '...future.elements_ii' (280 bytes) to cluster node #1 ...
[13:13:56.111] Exporting '...future.elements_ii' (280 bytes) to cluster node #1 ... DONE
[13:13:56.111] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:56.112] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:56.112] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:56.112] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:56.113] Exporting 5 global objects (1.10 KiB) to cluster node #1 ... DONE
[13:13:56.113] MultisessionFuture started
[13:13:56.113] - Launch lazy future ... done
[13:13:56.114] run() for 'MultisessionFuture' ... done
[13:13:56.114] Created future:
[13:13:56.130] receiveMessageFromWorker() for ClusterFuture ...
[13:13:56.130] - Validating connection of MultisessionFuture
[13:13:56.130] - received message: FutureResult
[13:13:56.131] - Received FutureResult
[13:13:56.131] - Erased future from FutureRegistry
[13:13:56.131] result() for ClusterFuture ...
[13:13:56.131] - result already collected: FutureResult
[13:13:56.131] result() for ClusterFuture ... done
[13:13:56.132] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:56.114] MultisessionFuture:
[13:13:56.114] Label: 'future_mapply-1'
[13:13:56.114] Expression:
[13:13:56.114] {
[13:13:56.114]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:56.114]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:56.114]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:56.114]         on.exit(options(oopts), add = TRUE)
[13:13:56.114]     }
[13:13:56.114]     {
[13:13:56.114]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:56.114]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:56.114]         do.call(mapply, args = args)
[13:13:56.114]     }
[13:13:56.114] }
[13:13:56.114] Lazy evaluation: FALSE
[13:13:56.114] Asynchronous evaluation: TRUE
[13:13:56.114] Local evaluation: TRUE
[13:13:56.114] Environment: R_GlobalEnv
[13:13:56.114] Capture standard output: TRUE
[13:13:56.114] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:56.114] Globals: 5 objects totaling 1.10 KiB (function '...future.FUN' of 848 bytes, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 280 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:56.114] Packages: <none>
[13:13:56.114] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:56.114] Resolved: TRUE
[13:13:56.114] Value: <not collected>
[13:13:56.114] Conditions captured: <none>
[13:13:56.114] Early signaling: FALSE
[13:13:56.114] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:56.114] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:56.132] Chunk #1 of 1 ... DONE
[13:13:56.132] Launching 1 futures (chunks) ... DONE
[13:13:56.132] Resolving 1 futures (chunks) ...
[13:13:56.132] resolve() on list ...
[13:13:56.133]  recursive: 0
[13:13:56.133]  length: 1
[13:13:56.133] 
[13:13:56.133] Future #1
[13:13:56.133] result() for ClusterFuture ...
[13:13:56.133] - result already collected: FutureResult
[13:13:56.134] result() for ClusterFuture ... done
[13:13:56.134] result() for ClusterFuture ...
[13:13:56.134] - result already collected: FutureResult
[13:13:56.134] result() for ClusterFuture ... done
[13:13:56.134] signalConditionsASAP(MultisessionFuture, pos=1) ...
[13:13:56.134] - nx: 1
[13:13:56.134] - relay: TRUE
[13:13:56.135] - stdout: TRUE
[13:13:56.135] - signal: TRUE
[13:13:56.135] - resignal: FALSE
[13:13:56.135] - force: TRUE
[13:13:56.135] - relayed: [n=1] FALSE
[13:13:56.135] - queued futures: [n=1] FALSE
[13:13:56.136]  - until=1
[13:13:56.136]  - relaying element #1
[13:13:56.136] result() for ClusterFuture ...
[13:13:56.136] - result already collected: FutureResult
[13:13:56.136] result() for ClusterFuture ... done
[13:13:56.136] result() for ClusterFuture ...
[13:13:56.136] - result already collected: FutureResult
[13:13:56.137] result() for ClusterFuture ... done
[13:13:56.137] result() for ClusterFuture ...
[13:13:56.137] - result already collected: FutureResult
[13:13:56.137] result() for ClusterFuture ... done
[13:13:56.137] result() for ClusterFuture ...
[13:13:56.137] - result already collected: FutureResult
[13:13:56.138] result() for ClusterFuture ... done
[13:13:56.138] - relayed: [n=1] TRUE
[13:13:56.138] - queued futures: [n=1] TRUE
[13:13:56.138] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[13:13:56.138]  length: 0 (resolved future 1)
[13:13:56.138] Relaying remaining futures
[13:13:56.139] signalConditionsASAP(NULL, pos=0) ...
[13:13:56.139] - nx: 1
[13:13:56.139] - relay: TRUE
[13:13:56.139] - stdout: TRUE
[13:13:56.139] - signal: TRUE
[13:13:56.139] - resignal: FALSE
[13:13:56.139] - force: TRUE
[13:13:56.140] - relayed: [n=1] TRUE
[13:13:56.140] - queued futures: [n=1] TRUE
 - flush all
[13:13:56.140] - relayed: [n=1] TRUE
[13:13:56.140] - queued futures: [n=1] TRUE
[13:13:56.140] signalConditionsASAP(NULL, pos=0) ... done
[13:13:56.140] resolve() on list ... DONE
[13:13:56.141] result() for ClusterFuture ...
[13:13:56.141] - result already collected: FutureResult
[13:13:56.141] result() for ClusterFuture ... done
[13:13:56.141] result() for ClusterFuture ...
[13:13:56.141] - result already collected: FutureResult
[13:13:56.141] result() for ClusterFuture ... done
[13:13:56.142]  - Number of value chunks collected: 1
[13:13:56.142] Resolving 1 futures (chunks) ... DONE
[13:13:56.142] Reducing values from 1 chunks ...
[13:13:56.142]  - Number of values collected after concatenation: 1
[13:13:56.142]  - Number of values expected: 1
[13:13:56.142] Reducing values from 1 chunks ... DONE
[13:13:56.142] future_mapply() ... DONE
[13:13:56.143] future_mapply() ...
[13:13:56.145] Number of chunks: 1
[13:13:56.145] getGlobalsAndPackagesXApply() ...
[13:13:56.145]  - future.globals: TRUE
[13:13:56.146] getGlobalsAndPackages() ...
[13:13:56.146] Searching for globals...
[13:13:56.147] - globals found: [1] 'FUN'
[13:13:56.147] Searching for globals ... DONE
[13:13:56.147] Resolving globals: FALSE
[13:13:56.148] The total size of the 1 globals is 848 bytes (848 bytes)
[13:13:56.148] The total size of the 1 globals exported for future expression ('FUN()') is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (848 bytes of class 'function')
[13:13:56.148] - globals: [1] 'FUN'
[13:13:56.148] 
[13:13:56.149] getGlobalsAndPackages() ... DONE
[13:13:56.149]  - globals found/used: [n=1] 'FUN'
[13:13:56.149]  - needed namespaces: [n=0] 
[13:13:56.149] Finding globals ... DONE
[13:13:56.149] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:56.149] List of 2
[13:13:56.149]  $ ...future.FUN:function (x)  
[13:13:56.149]  $ MoreArgs     : list()
[13:13:56.149]  - attr(*, "where")=List of 2
[13:13:56.149]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:56.149]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:56.149]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:56.149]  - attr(*, "resolved")= logi FALSE
[13:13:56.149]  - attr(*, "total_size")= num NA
[13:13:56.152] Packages to be attached in all futures: [n=0] 
[13:13:56.153] getGlobalsAndPackagesXApply() ... DONE
[13:13:56.153] Number of futures (= number of chunks): 1
[13:13:56.153] Launching 1 futures (chunks) ...
[13:13:56.153] Chunk #1 of 1 ...
[13:13:56.153]  - Finding globals in '...' for chunk #1 ...
[13:13:56.154] getGlobalsAndPackages() ...
[13:13:56.154] Searching for globals...
[13:13:56.154] 
[13:13:56.154] Searching for globals ... DONE
[13:13:56.154] - globals: [0] <none>
[13:13:56.155] getGlobalsAndPackages() ... DONE
[13:13:56.155]    + additional globals found: [n=0] 
[13:13:56.155]    + additional namespaces needed: [n=0] 
[13:13:56.155]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:56.155]  - seeds: <none>
[13:13:56.155]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.156] getGlobalsAndPackages() ...
[13:13:56.156] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.156] Resolving globals: FALSE
[13:13:56.156] The total size of the 5 globals is 1.10 KiB (1128 bytes)
[13:13:56.157] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 1.10 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (848 bytes of class 'function'), '...future.elements_ii' (280 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'list')
[13:13:56.157] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.157] 
[13:13:56.158] getGlobalsAndPackages() ... DONE
[13:13:56.158] run() for 'Future' ...
[13:13:56.158] - state: 'created'
[13:13:56.158] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:56.172] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:56.172] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:56.172]   - Field: 'node'
[13:13:56.173]   - Field: 'label'
[13:13:56.173]   - Field: 'local'
[13:13:56.173]   - Field: 'owner'
[13:13:56.173]   - Field: 'envir'
[13:13:56.173]   - Field: 'workers'
[13:13:56.173]   - Field: 'packages'
[13:13:56.174]   - Field: 'gc'
[13:13:56.174]   - Field: 'conditions'
[13:13:56.174]   - Field: 'persistent'
[13:13:56.174]   - Field: 'expr'
[13:13:56.174]   - Field: 'uuid'
[13:13:56.174]   - Field: 'seed'
[13:13:56.175]   - Field: 'version'
[13:13:56.175]   - Field: 'result'
[13:13:56.175]   - Field: 'asynchronous'
[13:13:56.175]   - Field: 'calls'
[13:13:56.175]   - Field: 'globals'
[13:13:56.176]   - Field: 'stdout'
[13:13:56.176]   - Field: 'earlySignal'
[13:13:56.176]   - Field: 'lazy'
[13:13:56.176]   - Field: 'state'
[13:13:56.176] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:56.176] - Launch lazy future ...
[13:13:56.177] Packages needed by the future expression (n = 0): <none>
[13:13:56.177] Packages needed by future strategies (n = 0): <none>
[13:13:56.177] {
[13:13:56.177]     {
[13:13:56.177]         {
[13:13:56.177]             ...future.startTime <- base::Sys.time()
[13:13:56.177]             {
[13:13:56.177]                 {
[13:13:56.177]                   {
[13:13:56.177]                     {
[13:13:56.177]                       base::local({
[13:13:56.177]                         has_future <- base::requireNamespace("future", 
[13:13:56.177]                           quietly = TRUE)
[13:13:56.177]                         if (has_future) {
[13:13:56.177]                           ns <- base::getNamespace("future")
[13:13:56.177]                           version <- ns[[".package"]][["version"]]
[13:13:56.177]                           if (is.null(version)) 
[13:13:56.177]                             version <- utils::packageVersion("future")
[13:13:56.177]                         }
[13:13:56.177]                         else {
[13:13:56.177]                           version <- NULL
[13:13:56.177]                         }
[13:13:56.177]                         if (!has_future || version < "1.8.0") {
[13:13:56.177]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:56.177]                             "", base::R.version$version.string), 
[13:13:56.177]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:56.177]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:56.177]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:56.177]                               "release", "version")], collapse = " "), 
[13:13:56.177]                             hostname = base::Sys.info()[["nodename"]])
[13:13:56.177]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:56.177]                             info)
[13:13:56.177]                           info <- base::paste(info, collapse = "; ")
[13:13:56.177]                           if (!has_future) {
[13:13:56.177]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:56.177]                               info)
[13:13:56.177]                           }
[13:13:56.177]                           else {
[13:13:56.177]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:56.177]                               info, version)
[13:13:56.177]                           }
[13:13:56.177]                           base::stop(msg)
[13:13:56.177]                         }
[13:13:56.177]                       })
[13:13:56.177]                     }
[13:13:56.177]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:56.177]                     base::options(mc.cores = 1L)
[13:13:56.177]                   }
[13:13:56.177]                   options(future.plan = NULL)
[13:13:56.177]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:56.177]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:56.177]                 }
[13:13:56.177]                 ...future.workdir <- getwd()
[13:13:56.177]             }
[13:13:56.177]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:56.177]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:56.177]         }
[13:13:56.177]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:56.177]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[13:13:56.177]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:56.177]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:56.177]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:56.177]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:56.177]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:56.177]             base::names(...future.oldOptions))
[13:13:56.177]     }
[13:13:56.177]     if (FALSE) {
[13:13:56.177]     }
[13:13:56.177]     else {
[13:13:56.177]         if (TRUE) {
[13:13:56.177]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:56.177]                 open = "w")
[13:13:56.177]         }
[13:13:56.177]         else {
[13:13:56.177]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:56.177]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:56.177]         }
[13:13:56.177]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:56.177]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:56.177]             base::sink(type = "output", split = FALSE)
[13:13:56.177]             base::close(...future.stdout)
[13:13:56.177]         }, add = TRUE)
[13:13:56.177]     }
[13:13:56.177]     ...future.frame <- base::sys.nframe()
[13:13:56.177]     ...future.conditions <- base::list()
[13:13:56.177]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:56.177]     if (FALSE) {
[13:13:56.177]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:56.177]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:56.177]     }
[13:13:56.177]     ...future.result <- base::tryCatch({
[13:13:56.177]         base::withCallingHandlers({
[13:13:56.177]             ...future.value <- base::withVisible(base::local({
[13:13:56.177]                 ...future.makeSendCondition <- local({
[13:13:56.177]                   sendCondition <- NULL
[13:13:56.177]                   function(frame = 1L) {
[13:13:56.177]                     if (is.function(sendCondition)) 
[13:13:56.177]                       return(sendCondition)
[13:13:56.177]                     ns <- getNamespace("parallel")
[13:13:56.177]                     if (exists("sendData", mode = "function", 
[13:13:56.177]                       envir = ns)) {
[13:13:56.177]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:56.177]                         envir = ns)
[13:13:56.177]                       envir <- sys.frame(frame)
[13:13:56.177]                       master <- NULL
[13:13:56.177]                       while (!identical(envir, .GlobalEnv) && 
[13:13:56.177]                         !identical(envir, emptyenv())) {
[13:13:56.177]                         if (exists("master", mode = "list", envir = envir, 
[13:13:56.177]                           inherits = FALSE)) {
[13:13:56.177]                           master <- get("master", mode = "list", 
[13:13:56.177]                             envir = envir, inherits = FALSE)
[13:13:56.177]                           if (inherits(master, c("SOCKnode", 
[13:13:56.177]                             "SOCK0node"))) {
[13:13:56.177]                             sendCondition <<- function(cond) {
[13:13:56.177]                               data <- list(type = "VALUE", value = cond, 
[13:13:56.177]                                 success = TRUE)
[13:13:56.177]                               parallel_sendData(master, data)
[13:13:56.177]                             }
[13:13:56.177]                             return(sendCondition)
[13:13:56.177]                           }
[13:13:56.177]                         }
[13:13:56.177]                         frame <- frame + 1L
[13:13:56.177]                         envir <- sys.frame(frame)
[13:13:56.177]                       }
[13:13:56.177]                     }
[13:13:56.177]                     sendCondition <<- function(cond) NULL
[13:13:56.177]                   }
[13:13:56.177]                 })
[13:13:56.177]                 withCallingHandlers({
[13:13:56.177]                   {
[13:13:56.177]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:56.177]                     if (!identical(...future.globals.maxSize.org, 
[13:13:56.177]                       ...future.globals.maxSize)) {
[13:13:56.177]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:56.177]                       on.exit(options(oopts), add = TRUE)
[13:13:56.177]                     }
[13:13:56.177]                     {
[13:13:56.177]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:56.177]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:56.177]                         USE.NAMES = FALSE)
[13:13:56.177]                       do.call(mapply, args = args)
[13:13:56.177]                     }
[13:13:56.177]                   }
[13:13:56.177]                 }, immediateCondition = function(cond) {
[13:13:56.177]                   sendCondition <- ...future.makeSendCondition()
[13:13:56.177]                   sendCondition(cond)
[13:13:56.177]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.177]                   {
[13:13:56.177]                     inherits <- base::inherits
[13:13:56.177]                     invokeRestart <- base::invokeRestart
[13:13:56.177]                     is.null <- base::is.null
[13:13:56.177]                     muffled <- FALSE
[13:13:56.177]                     if (inherits(cond, "message")) {
[13:13:56.177]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:56.177]                       if (muffled) 
[13:13:56.177]                         invokeRestart("muffleMessage")
[13:13:56.177]                     }
[13:13:56.177]                     else if (inherits(cond, "warning")) {
[13:13:56.177]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:56.177]                       if (muffled) 
[13:13:56.177]                         invokeRestart("muffleWarning")
[13:13:56.177]                     }
[13:13:56.177]                     else if (inherits(cond, "condition")) {
[13:13:56.177]                       if (!is.null(pattern)) {
[13:13:56.177]                         computeRestarts <- base::computeRestarts
[13:13:56.177]                         grepl <- base::grepl
[13:13:56.177]                         restarts <- computeRestarts(cond)
[13:13:56.177]                         for (restart in restarts) {
[13:13:56.177]                           name <- restart$name
[13:13:56.177]                           if (is.null(name)) 
[13:13:56.177]                             next
[13:13:56.177]                           if (!grepl(pattern, name)) 
[13:13:56.177]                             next
[13:13:56.177]                           invokeRestart(restart)
[13:13:56.177]                           muffled <- TRUE
[13:13:56.177]                           break
[13:13:56.177]                         }
[13:13:56.177]                       }
[13:13:56.177]                     }
[13:13:56.177]                     invisible(muffled)
[13:13:56.177]                   }
[13:13:56.177]                   muffleCondition(cond)
[13:13:56.177]                 })
[13:13:56.177]             }))
[13:13:56.177]             future::FutureResult(value = ...future.value$value, 
[13:13:56.177]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:56.177]                   ...future.rng), globalenv = if (FALSE) 
[13:13:56.177]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:56.177]                     ...future.globalenv.names))
[13:13:56.177]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:56.177]         }, condition = base::local({
[13:13:56.177]             c <- base::c
[13:13:56.177]             inherits <- base::inherits
[13:13:56.177]             invokeRestart <- base::invokeRestart
[13:13:56.177]             length <- base::length
[13:13:56.177]             list <- base::list
[13:13:56.177]             seq.int <- base::seq.int
[13:13:56.177]             signalCondition <- base::signalCondition
[13:13:56.177]             sys.calls <- base::sys.calls
[13:13:56.177]             `[[` <- base::`[[`
[13:13:56.177]             `+` <- base::`+`
[13:13:56.177]             `<<-` <- base::`<<-`
[13:13:56.177]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:56.177]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:56.177]                   3L)]
[13:13:56.177]             }
[13:13:56.177]             function(cond) {
[13:13:56.177]                 is_error <- inherits(cond, "error")
[13:13:56.177]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:56.177]                   NULL)
[13:13:56.177]                 if (is_error) {
[13:13:56.177]                   sessionInformation <- function() {
[13:13:56.177]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:56.177]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:56.177]                       search = base::search(), system = base::Sys.info())
[13:13:56.177]                   }
[13:13:56.177]                   ...future.conditions[[length(...future.conditions) + 
[13:13:56.177]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:56.177]                     cond$call), session = sessionInformation(), 
[13:13:56.177]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:56.177]                   signalCondition(cond)
[13:13:56.177]                 }
[13:13:56.177]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:56.177]                 "immediateCondition"))) {
[13:13:56.177]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:56.177]                   ...future.conditions[[length(...future.conditions) + 
[13:13:56.177]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:56.177]                   if (TRUE && !signal) {
[13:13:56.177]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.177]                     {
[13:13:56.177]                       inherits <- base::inherits
[13:13:56.177]                       invokeRestart <- base::invokeRestart
[13:13:56.177]                       is.null <- base::is.null
[13:13:56.177]                       muffled <- FALSE
[13:13:56.177]                       if (inherits(cond, "message")) {
[13:13:56.177]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:56.177]                         if (muffled) 
[13:13:56.177]                           invokeRestart("muffleMessage")
[13:13:56.177]                       }
[13:13:56.177]                       else if (inherits(cond, "warning")) {
[13:13:56.177]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:56.177]                         if (muffled) 
[13:13:56.177]                           invokeRestart("muffleWarning")
[13:13:56.177]                       }
[13:13:56.177]                       else if (inherits(cond, "condition")) {
[13:13:56.177]                         if (!is.null(pattern)) {
[13:13:56.177]                           computeRestarts <- base::computeRestarts
[13:13:56.177]                           grepl <- base::grepl
[13:13:56.177]                           restarts <- computeRestarts(cond)
[13:13:56.177]                           for (restart in restarts) {
[13:13:56.177]                             name <- restart$name
[13:13:56.177]                             if (is.null(name)) 
[13:13:56.177]                               next
[13:13:56.177]                             if (!grepl(pattern, name)) 
[13:13:56.177]                               next
[13:13:56.177]                             invokeRestart(restart)
[13:13:56.177]                             muffled <- TRUE
[13:13:56.177]                             break
[13:13:56.177]                           }
[13:13:56.177]                         }
[13:13:56.177]                       }
[13:13:56.177]                       invisible(muffled)
[13:13:56.177]                     }
[13:13:56.177]                     muffleCondition(cond, pattern = "^muffle")
[13:13:56.177]                   }
[13:13:56.177]                 }
[13:13:56.177]                 else {
[13:13:56.177]                   if (TRUE) {
[13:13:56.177]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.177]                     {
[13:13:56.177]                       inherits <- base::inherits
[13:13:56.177]                       invokeRestart <- base::invokeRestart
[13:13:56.177]                       is.null <- base::is.null
[13:13:56.177]                       muffled <- FALSE
[13:13:56.177]                       if (inherits(cond, "message")) {
[13:13:56.177]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:56.177]                         if (muffled) 
[13:13:56.177]                           invokeRestart("muffleMessage")
[13:13:56.177]                       }
[13:13:56.177]                       else if (inherits(cond, "warning")) {
[13:13:56.177]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:56.177]                         if (muffled) 
[13:13:56.177]                           invokeRestart("muffleWarning")
[13:13:56.177]                       }
[13:13:56.177]                       else if (inherits(cond, "condition")) {
[13:13:56.177]                         if (!is.null(pattern)) {
[13:13:56.177]                           computeRestarts <- base::computeRestarts
[13:13:56.177]                           grepl <- base::grepl
[13:13:56.177]                           restarts <- computeRestarts(cond)
[13:13:56.177]                           for (restart in restarts) {
[13:13:56.177]                             name <- restart$name
[13:13:56.177]                             if (is.null(name)) 
[13:13:56.177]                               next
[13:13:56.177]                             if (!grepl(pattern, name)) 
[13:13:56.177]                               next
[13:13:56.177]                             invokeRestart(restart)
[13:13:56.177]                             muffled <- TRUE
[13:13:56.177]                             break
[13:13:56.177]                           }
[13:13:56.177]                         }
[13:13:56.177]                       }
[13:13:56.177]                       invisible(muffled)
[13:13:56.177]                     }
[13:13:56.177]                     muffleCondition(cond, pattern = "^muffle")
[13:13:56.177]                   }
[13:13:56.177]                 }
[13:13:56.177]             }
[13:13:56.177]         }))
[13:13:56.177]     }, error = function(ex) {
[13:13:56.177]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:56.177]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:56.177]                 ...future.rng), started = ...future.startTime, 
[13:13:56.177]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:56.177]             version = "1.8"), class = "FutureResult")
[13:13:56.177]     }, finally = {
[13:13:56.177]         if (!identical(...future.workdir, getwd())) 
[13:13:56.177]             setwd(...future.workdir)
[13:13:56.177]         {
[13:13:56.177]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:56.177]                 ...future.oldOptions$nwarnings <- NULL
[13:13:56.177]             }
[13:13:56.177]             base::options(...future.oldOptions)
[13:13:56.177]             if (.Platform$OS.type == "windows") {
[13:13:56.177]                 old_names <- names(...future.oldEnvVars)
[13:13:56.177]                 envs <- base::Sys.getenv()
[13:13:56.177]                 names <- names(envs)
[13:13:56.177]                 common <- intersect(names, old_names)
[13:13:56.177]                 added <- setdiff(names, old_names)
[13:13:56.177]                 removed <- setdiff(old_names, names)
[13:13:56.177]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:56.177]                   envs[common]]
[13:13:56.177]                 NAMES <- toupper(changed)
[13:13:56.177]                 args <- list()
[13:13:56.177]                 for (kk in seq_along(NAMES)) {
[13:13:56.177]                   name <- changed[[kk]]
[13:13:56.177]                   NAME <- NAMES[[kk]]
[13:13:56.177]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.177]                     next
[13:13:56.177]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:56.177]                 }
[13:13:56.177]                 NAMES <- toupper(added)
[13:13:56.177]                 for (kk in seq_along(NAMES)) {
[13:13:56.177]                   name <- added[[kk]]
[13:13:56.177]                   NAME <- NAMES[[kk]]
[13:13:56.177]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.177]                     next
[13:13:56.177]                   args[[name]] <- ""
[13:13:56.177]                 }
[13:13:56.177]                 NAMES <- toupper(removed)
[13:13:56.177]                 for (kk in seq_along(NAMES)) {
[13:13:56.177]                   name <- removed[[kk]]
[13:13:56.177]                   NAME <- NAMES[[kk]]
[13:13:56.177]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.177]                     next
[13:13:56.177]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:56.177]                 }
[13:13:56.177]                 if (length(args) > 0) 
[13:13:56.177]                   base::do.call(base::Sys.setenv, args = args)
[13:13:56.177]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:56.177]             }
[13:13:56.177]             else {
[13:13:56.177]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:56.177]             }
[13:13:56.177]             {
[13:13:56.177]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:56.177]                   0L) {
[13:13:56.177]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:56.177]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:56.177]                   base::options(opts)
[13:13:56.177]                 }
[13:13:56.177]                 {
[13:13:56.177]                   {
[13:13:56.177]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:56.177]                     NULL
[13:13:56.177]                   }
[13:13:56.177]                   options(future.plan = NULL)
[13:13:56.177]                   if (is.na(NA_character_)) 
[13:13:56.177]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:56.177]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:56.177]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:56.177]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:56.177]                     envir = parent.frame()) 
[13:13:56.177]                   {
[13:13:56.177]                     if (is.function(workers)) 
[13:13:56.177]                       workers <- workers()
[13:13:56.177]                     workers <- structure(as.integer(workers), 
[13:13:56.177]                       class = class(workers))
[13:13:56.177]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:56.177]                       workers >= 1)
[13:13:56.177]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:56.177]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:56.177]                     }
[13:13:56.177]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:56.177]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:56.177]                       envir = envir)
[13:13:56.177]                     if (!future$lazy) 
[13:13:56.177]                       future <- run(future)
[13:13:56.177]                     invisible(future)
[13:13:56.177]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:56.177]                 }
[13:13:56.177]             }
[13:13:56.177]         }
[13:13:56.177]     })
[13:13:56.177]     if (TRUE) {
[13:13:56.177]         base::sink(type = "output", split = FALSE)
[13:13:56.177]         if (TRUE) {
[13:13:56.177]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:56.177]         }
[13:13:56.177]         else {
[13:13:56.177]             ...future.result["stdout"] <- base::list(NULL)
[13:13:56.177]         }
[13:13:56.177]         base::close(...future.stdout)
[13:13:56.177]         ...future.stdout <- NULL
[13:13:56.177]     }
[13:13:56.177]     ...future.result$conditions <- ...future.conditions
[13:13:56.177]     ...future.result$finished <- base::Sys.time()
[13:13:56.177]     ...future.result
[13:13:56.177] }
[13:13:56.183] Exporting 5 global objects (1.10 KiB) to cluster node #1 ...
[13:13:56.183] Exporting '...future.FUN' (848 bytes) to cluster node #1 ...
[13:13:56.183] Exporting '...future.FUN' (848 bytes) to cluster node #1 ... DONE
[13:13:56.184] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:56.184] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:56.184] Exporting '...future.elements_ii' (280 bytes) to cluster node #1 ...
[13:13:56.185] Exporting '...future.elements_ii' (280 bytes) to cluster node #1 ... DONE
[13:13:56.185] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:56.185] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:56.185] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:56.186] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:56.186] Exporting 5 global objects (1.10 KiB) to cluster node #1 ... DONE
[13:13:56.187] MultisessionFuture started
[13:13:56.187] - Launch lazy future ... done
[13:13:56.187] run() for 'MultisessionFuture' ... done
[13:13:56.187] Created future:
[13:13:56.203] receiveMessageFromWorker() for ClusterFuture ...
[13:13:56.203] - Validating connection of MultisessionFuture
[13:13:56.204] - received message: FutureResult
[13:13:56.204] - Received FutureResult
[13:13:56.204] - Erased future from FutureRegistry
[13:13:56.204] result() for ClusterFuture ...
[13:13:56.204] - result already collected: FutureResult
[13:13:56.204] result() for ClusterFuture ... done
[13:13:56.205] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:56.187] MultisessionFuture:
[13:13:56.187] Label: 'future_.mapply-1'
[13:13:56.187] Expression:
[13:13:56.187] {
[13:13:56.187]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:56.187]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:56.187]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:56.187]         on.exit(options(oopts), add = TRUE)
[13:13:56.187]     }
[13:13:56.187]     {
[13:13:56.187]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:56.187]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:56.187]         do.call(mapply, args = args)
[13:13:56.187]     }
[13:13:56.187] }
[13:13:56.187] Lazy evaluation: FALSE
[13:13:56.187] Asynchronous evaluation: TRUE
[13:13:56.187] Local evaluation: TRUE
[13:13:56.187] Environment: R_GlobalEnv
[13:13:56.187] Capture standard output: TRUE
[13:13:56.187] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:56.187] Globals: 5 objects totaling 1.10 KiB (function '...future.FUN' of 848 bytes, list 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 280 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:56.187] Packages: <none>
[13:13:56.187] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:56.187] Resolved: TRUE
[13:13:56.187] Value: <not collected>
[13:13:56.187] Conditions captured: <none>
[13:13:56.187] Early signaling: FALSE
[13:13:56.187] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:56.187] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:56.205] Chunk #1 of 1 ... DONE
[13:13:56.205] Launching 1 futures (chunks) ... DONE
[13:13:56.205] Resolving 1 futures (chunks) ...
[13:13:56.206] resolve() on list ...
[13:13:56.206]  recursive: 0
[13:13:56.206]  length: 1
[13:13:56.206] 
[13:13:56.206] Future #1
[13:13:56.206] result() for ClusterFuture ...
[13:13:56.207] - result already collected: FutureResult
[13:13:56.207] result() for ClusterFuture ... done
[13:13:56.207] result() for ClusterFuture ...
[13:13:56.207] - result already collected: FutureResult
[13:13:56.207] result() for ClusterFuture ... done
[13:13:56.207] signalConditionsASAP(MultisessionFuture, pos=1) ...
[13:13:56.208] - nx: 1
[13:13:56.208] - relay: TRUE
[13:13:56.208] - stdout: TRUE
[13:13:56.208] - signal: TRUE
[13:13:56.208] - resignal: FALSE
[13:13:56.208] - force: TRUE
[13:13:56.208] - relayed: [n=1] FALSE
[13:13:56.209] - queued futures: [n=1] FALSE
[13:13:56.209]  - until=1
[13:13:56.209]  - relaying element #1
[13:13:56.209] result() for ClusterFuture ...
[13:13:56.209] - result already collected: FutureResult
[13:13:56.209] result() for ClusterFuture ... done
[13:13:56.210] result() for ClusterFuture ...
[13:13:56.210] - result already collected: FutureResult
[13:13:56.210] result() for ClusterFuture ... done
[13:13:56.210] result() for ClusterFuture ...
[13:13:56.210] - result already collected: FutureResult
[13:13:56.210] result() for ClusterFuture ... done
[13:13:56.211] result() for ClusterFuture ...
[13:13:56.211] - result already collected: FutureResult
[13:13:56.211] result() for ClusterFuture ... done
[13:13:56.211] - relayed: [n=1] TRUE
[13:13:56.211] - queued futures: [n=1] TRUE
[13:13:56.211] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[13:13:56.211]  length: 0 (resolved future 1)
[13:13:56.212] Relaying remaining futures
[13:13:56.212] signalConditionsASAP(NULL, pos=0) ...
[13:13:56.212] - nx: 1
[13:13:56.212] - relay: TRUE
[13:13:56.212] - stdout: TRUE
[13:13:56.212] - signal: TRUE
[13:13:56.213] - resignal: FALSE
[13:13:56.213] - force: TRUE
[13:13:56.213] - relayed: [n=1] TRUE
[13:13:56.213] - queued futures: [n=1] TRUE
 - flush all
[13:13:56.213] - relayed: [n=1] TRUE
[13:13:56.213] - queued futures: [n=1] TRUE
[13:13:56.214] signalConditionsASAP(NULL, pos=0) ... done
[13:13:56.214] resolve() on list ... DONE
[13:13:56.214] result() for ClusterFuture ...
[13:13:56.214] - result already collected: FutureResult
[13:13:56.214] result() for ClusterFuture ... done
[13:13:56.214] result() for ClusterFuture ...
[13:13:56.214] - result already collected: FutureResult
[13:13:56.215] result() for ClusterFuture ... done
[13:13:56.215]  - Number of value chunks collected: 1
[13:13:56.215] Resolving 1 futures (chunks) ... DONE
[13:13:56.215] Reducing values from 1 chunks ...
[13:13:56.215]  - Number of values collected after concatenation: 1
[13:13:56.215]  - Number of values expected: 1
[13:13:56.216] Reducing values from 1 chunks ... DONE
[13:13:56.216] future_mapply() ... DONE
- Non-recycling of MoreArgs (Issue #51) ...
[13:13:56.216] future_mapply() ...
[13:13:56.218] Number of chunks: 2
[13:13:56.219] getGlobalsAndPackagesXApply() ...
[13:13:56.219]  - future.globals: TRUE
[13:13:56.219] getGlobalsAndPackages() ...
[13:13:56.219] Searching for globals...
[13:13:56.220] - globals found: [1] 'FUN'
[13:13:56.221] Searching for globals ... DONE
[13:13:56.221] Resolving globals: FALSE
[13:13:56.221] The total size of the 1 globals is 1.66 KiB (1704 bytes)
[13:13:56.222] The total size of the 1 globals exported for future expression ('FUN(y = 3:4)') is 1.66 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (1.66 KiB of class 'function')
[13:13:56.222] - globals: [1] 'FUN'
[13:13:56.222] 
[13:13:56.222] getGlobalsAndPackages() ... DONE
[13:13:56.222]  - globals found/used: [n=1] 'FUN'
[13:13:56.222]  - needed namespaces: [n=0] 
[13:13:56.223] Finding globals ... DONE
[13:13:56.223] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:56.223] List of 2
[13:13:56.223]  $ ...future.FUN:function (x, y)  
[13:13:56.223]  $ MoreArgs     :List of 1
[13:13:56.223]   ..$ y: int [1:2] 3 4
[13:13:56.223]  - attr(*, "where")=List of 2
[13:13:56.223]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:56.223]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:56.223]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:56.223]  - attr(*, "resolved")= logi FALSE
[13:13:56.223]  - attr(*, "total_size")= num NA
[13:13:56.226] Packages to be attached in all futures: [n=0] 
[13:13:56.227] getGlobalsAndPackagesXApply() ... DONE
[13:13:56.227] Number of futures (= number of chunks): 2
[13:13:56.227] Launching 2 futures (chunks) ...
[13:13:56.227] Chunk #1 of 2 ...
[13:13:56.227]  - Finding globals in '...' for chunk #1 ...
[13:13:56.228] getGlobalsAndPackages() ...
[13:13:56.228] Searching for globals...
[13:13:56.228] 
[13:13:56.228] Searching for globals ... DONE
[13:13:56.228] - globals: [0] <none>
[13:13:56.229] getGlobalsAndPackages() ... DONE
[13:13:56.229]    + additional globals found: [n=0] 
[13:13:56.229]    + additional namespaces needed: [n=0] 
[13:13:56.229]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:56.229]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:56.229]  - seeds: <none>
[13:13:56.229]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.230] getGlobalsAndPackages() ...
[13:13:56.230] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.230] Resolving globals: FALSE
[13:13:56.231] The total size of the 5 globals is 1.77 KiB (1816 bytes)
[13:13:56.231] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 1.77 KiB.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (1.66 KiB of class 'function'), 'MoreArgs' (56 bytes of class 'list') and '...future.elements_ii' (56 bytes of class 'list')
[13:13:56.231] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.232] 
[13:13:56.232] getGlobalsAndPackages() ... DONE
[13:13:56.232] run() for 'Future' ...
[13:13:56.232] - state: 'created'
[13:13:56.232] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:56.247] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:56.247] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:56.248]   - Field: 'node'
[13:13:56.248]   - Field: 'label'
[13:13:56.248]   - Field: 'local'
[13:13:56.248]   - Field: 'owner'
[13:13:56.248]   - Field: 'envir'
[13:13:56.248]   - Field: 'workers'
[13:13:56.249]   - Field: 'packages'
[13:13:56.249]   - Field: 'gc'
[13:13:56.249]   - Field: 'conditions'
[13:13:56.249]   - Field: 'persistent'
[13:13:56.249]   - Field: 'expr'
[13:13:56.250]   - Field: 'uuid'
[13:13:56.250]   - Field: 'seed'
[13:13:56.250]   - Field: 'version'
[13:13:56.250]   - Field: 'result'
[13:13:56.250]   - Field: 'asynchronous'
[13:13:56.250]   - Field: 'calls'
[13:13:56.251]   - Field: 'globals'
[13:13:56.251]   - Field: 'stdout'
[13:13:56.251]   - Field: 'earlySignal'
[13:13:56.251]   - Field: 'lazy'
[13:13:56.251]   - Field: 'state'
[13:13:56.251] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:56.252] - Launch lazy future ...
[13:13:56.252] Packages needed by the future expression (n = 0): <none>
[13:13:56.252] Packages needed by future strategies (n = 0): <none>
[13:13:56.253] {
[13:13:56.253]     {
[13:13:56.253]         {
[13:13:56.253]             ...future.startTime <- base::Sys.time()
[13:13:56.253]             {
[13:13:56.253]                 {
[13:13:56.253]                   {
[13:13:56.253]                     {
[13:13:56.253]                       base::local({
[13:13:56.253]                         has_future <- base::requireNamespace("future", 
[13:13:56.253]                           quietly = TRUE)
[13:13:56.253]                         if (has_future) {
[13:13:56.253]                           ns <- base::getNamespace("future")
[13:13:56.253]                           version <- ns[[".package"]][["version"]]
[13:13:56.253]                           if (is.null(version)) 
[13:13:56.253]                             version <- utils::packageVersion("future")
[13:13:56.253]                         }
[13:13:56.253]                         else {
[13:13:56.253]                           version <- NULL
[13:13:56.253]                         }
[13:13:56.253]                         if (!has_future || version < "1.8.0") {
[13:13:56.253]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:56.253]                             "", base::R.version$version.string), 
[13:13:56.253]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:56.253]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:56.253]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:56.253]                               "release", "version")], collapse = " "), 
[13:13:56.253]                             hostname = base::Sys.info()[["nodename"]])
[13:13:56.253]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:56.253]                             info)
[13:13:56.253]                           info <- base::paste(info, collapse = "; ")
[13:13:56.253]                           if (!has_future) {
[13:13:56.253]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:56.253]                               info)
[13:13:56.253]                           }
[13:13:56.253]                           else {
[13:13:56.253]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:56.253]                               info, version)
[13:13:56.253]                           }
[13:13:56.253]                           base::stop(msg)
[13:13:56.253]                         }
[13:13:56.253]                       })
[13:13:56.253]                     }
[13:13:56.253]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:56.253]                     base::options(mc.cores = 1L)
[13:13:56.253]                   }
[13:13:56.253]                   options(future.plan = NULL)
[13:13:56.253]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:56.253]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:56.253]                 }
[13:13:56.253]                 ...future.workdir <- getwd()
[13:13:56.253]             }
[13:13:56.253]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:56.253]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:56.253]         }
[13:13:56.253]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:56.253]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:56.253]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:56.253]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:56.253]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:56.253]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:56.253]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:56.253]             base::names(...future.oldOptions))
[13:13:56.253]     }
[13:13:56.253]     if (FALSE) {
[13:13:56.253]     }
[13:13:56.253]     else {
[13:13:56.253]         if (TRUE) {
[13:13:56.253]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:56.253]                 open = "w")
[13:13:56.253]         }
[13:13:56.253]         else {
[13:13:56.253]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:56.253]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:56.253]         }
[13:13:56.253]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:56.253]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:56.253]             base::sink(type = "output", split = FALSE)
[13:13:56.253]             base::close(...future.stdout)
[13:13:56.253]         }, add = TRUE)
[13:13:56.253]     }
[13:13:56.253]     ...future.frame <- base::sys.nframe()
[13:13:56.253]     ...future.conditions <- base::list()
[13:13:56.253]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:56.253]     if (FALSE) {
[13:13:56.253]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:56.253]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:56.253]     }
[13:13:56.253]     ...future.result <- base::tryCatch({
[13:13:56.253]         base::withCallingHandlers({
[13:13:56.253]             ...future.value <- base::withVisible(base::local({
[13:13:56.253]                 ...future.makeSendCondition <- local({
[13:13:56.253]                   sendCondition <- NULL
[13:13:56.253]                   function(frame = 1L) {
[13:13:56.253]                     if (is.function(sendCondition)) 
[13:13:56.253]                       return(sendCondition)
[13:13:56.253]                     ns <- getNamespace("parallel")
[13:13:56.253]                     if (exists("sendData", mode = "function", 
[13:13:56.253]                       envir = ns)) {
[13:13:56.253]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:56.253]                         envir = ns)
[13:13:56.253]                       envir <- sys.frame(frame)
[13:13:56.253]                       master <- NULL
[13:13:56.253]                       while (!identical(envir, .GlobalEnv) && 
[13:13:56.253]                         !identical(envir, emptyenv())) {
[13:13:56.253]                         if (exists("master", mode = "list", envir = envir, 
[13:13:56.253]                           inherits = FALSE)) {
[13:13:56.253]                           master <- get("master", mode = "list", 
[13:13:56.253]                             envir = envir, inherits = FALSE)
[13:13:56.253]                           if (inherits(master, c("SOCKnode", 
[13:13:56.253]                             "SOCK0node"))) {
[13:13:56.253]                             sendCondition <<- function(cond) {
[13:13:56.253]                               data <- list(type = "VALUE", value = cond, 
[13:13:56.253]                                 success = TRUE)
[13:13:56.253]                               parallel_sendData(master, data)
[13:13:56.253]                             }
[13:13:56.253]                             return(sendCondition)
[13:13:56.253]                           }
[13:13:56.253]                         }
[13:13:56.253]                         frame <- frame + 1L
[13:13:56.253]                         envir <- sys.frame(frame)
[13:13:56.253]                       }
[13:13:56.253]                     }
[13:13:56.253]                     sendCondition <<- function(cond) NULL
[13:13:56.253]                   }
[13:13:56.253]                 })
[13:13:56.253]                 withCallingHandlers({
[13:13:56.253]                   {
[13:13:56.253]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:56.253]                     if (!identical(...future.globals.maxSize.org, 
[13:13:56.253]                       ...future.globals.maxSize)) {
[13:13:56.253]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:56.253]                       on.exit(options(oopts), add = TRUE)
[13:13:56.253]                     }
[13:13:56.253]                     {
[13:13:56.253]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:56.253]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:56.253]                         USE.NAMES = FALSE)
[13:13:56.253]                       do.call(mapply, args = args)
[13:13:56.253]                     }
[13:13:56.253]                   }
[13:13:56.253]                 }, immediateCondition = function(cond) {
[13:13:56.253]                   sendCondition <- ...future.makeSendCondition()
[13:13:56.253]                   sendCondition(cond)
[13:13:56.253]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.253]                   {
[13:13:56.253]                     inherits <- base::inherits
[13:13:56.253]                     invokeRestart <- base::invokeRestart
[13:13:56.253]                     is.null <- base::is.null
[13:13:56.253]                     muffled <- FALSE
[13:13:56.253]                     if (inherits(cond, "message")) {
[13:13:56.253]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:56.253]                       if (muffled) 
[13:13:56.253]                         invokeRestart("muffleMessage")
[13:13:56.253]                     }
[13:13:56.253]                     else if (inherits(cond, "warning")) {
[13:13:56.253]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:56.253]                       if (muffled) 
[13:13:56.253]                         invokeRestart("muffleWarning")
[13:13:56.253]                     }
[13:13:56.253]                     else if (inherits(cond, "condition")) {
[13:13:56.253]                       if (!is.null(pattern)) {
[13:13:56.253]                         computeRestarts <- base::computeRestarts
[13:13:56.253]                         grepl <- base::grepl
[13:13:56.253]                         restarts <- computeRestarts(cond)
[13:13:56.253]                         for (restart in restarts) {
[13:13:56.253]                           name <- restart$name
[13:13:56.253]                           if (is.null(name)) 
[13:13:56.253]                             next
[13:13:56.253]                           if (!grepl(pattern, name)) 
[13:13:56.253]                             next
[13:13:56.253]                           invokeRestart(restart)
[13:13:56.253]                           muffled <- TRUE
[13:13:56.253]                           break
[13:13:56.253]                         }
[13:13:56.253]                       }
[13:13:56.253]                     }
[13:13:56.253]                     invisible(muffled)
[13:13:56.253]                   }
[13:13:56.253]                   muffleCondition(cond)
[13:13:56.253]                 })
[13:13:56.253]             }))
[13:13:56.253]             future::FutureResult(value = ...future.value$value, 
[13:13:56.253]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:56.253]                   ...future.rng), globalenv = if (FALSE) 
[13:13:56.253]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:56.253]                     ...future.globalenv.names))
[13:13:56.253]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:56.253]         }, condition = base::local({
[13:13:56.253]             c <- base::c
[13:13:56.253]             inherits <- base::inherits
[13:13:56.253]             invokeRestart <- base::invokeRestart
[13:13:56.253]             length <- base::length
[13:13:56.253]             list <- base::list
[13:13:56.253]             seq.int <- base::seq.int
[13:13:56.253]             signalCondition <- base::signalCondition
[13:13:56.253]             sys.calls <- base::sys.calls
[13:13:56.253]             `[[` <- base::`[[`
[13:13:56.253]             `+` <- base::`+`
[13:13:56.253]             `<<-` <- base::`<<-`
[13:13:56.253]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:56.253]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:56.253]                   3L)]
[13:13:56.253]             }
[13:13:56.253]             function(cond) {
[13:13:56.253]                 is_error <- inherits(cond, "error")
[13:13:56.253]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:56.253]                   NULL)
[13:13:56.253]                 if (is_error) {
[13:13:56.253]                   sessionInformation <- function() {
[13:13:56.253]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:56.253]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:56.253]                       search = base::search(), system = base::Sys.info())
[13:13:56.253]                   }
[13:13:56.253]                   ...future.conditions[[length(...future.conditions) + 
[13:13:56.253]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:56.253]                     cond$call), session = sessionInformation(), 
[13:13:56.253]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:56.253]                   signalCondition(cond)
[13:13:56.253]                 }
[13:13:56.253]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:56.253]                 "immediateCondition"))) {
[13:13:56.253]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:56.253]                   ...future.conditions[[length(...future.conditions) + 
[13:13:56.253]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:56.253]                   if (TRUE && !signal) {
[13:13:56.253]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.253]                     {
[13:13:56.253]                       inherits <- base::inherits
[13:13:56.253]                       invokeRestart <- base::invokeRestart
[13:13:56.253]                       is.null <- base::is.null
[13:13:56.253]                       muffled <- FALSE
[13:13:56.253]                       if (inherits(cond, "message")) {
[13:13:56.253]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:56.253]                         if (muffled) 
[13:13:56.253]                           invokeRestart("muffleMessage")
[13:13:56.253]                       }
[13:13:56.253]                       else if (inherits(cond, "warning")) {
[13:13:56.253]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:56.253]                         if (muffled) 
[13:13:56.253]                           invokeRestart("muffleWarning")
[13:13:56.253]                       }
[13:13:56.253]                       else if (inherits(cond, "condition")) {
[13:13:56.253]                         if (!is.null(pattern)) {
[13:13:56.253]                           computeRestarts <- base::computeRestarts
[13:13:56.253]                           grepl <- base::grepl
[13:13:56.253]                           restarts <- computeRestarts(cond)
[13:13:56.253]                           for (restart in restarts) {
[13:13:56.253]                             name <- restart$name
[13:13:56.253]                             if (is.null(name)) 
[13:13:56.253]                               next
[13:13:56.253]                             if (!grepl(pattern, name)) 
[13:13:56.253]                               next
[13:13:56.253]                             invokeRestart(restart)
[13:13:56.253]                             muffled <- TRUE
[13:13:56.253]                             break
[13:13:56.253]                           }
[13:13:56.253]                         }
[13:13:56.253]                       }
[13:13:56.253]                       invisible(muffled)
[13:13:56.253]                     }
[13:13:56.253]                     muffleCondition(cond, pattern = "^muffle")
[13:13:56.253]                   }
[13:13:56.253]                 }
[13:13:56.253]                 else {
[13:13:56.253]                   if (TRUE) {
[13:13:56.253]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.253]                     {
[13:13:56.253]                       inherits <- base::inherits
[13:13:56.253]                       invokeRestart <- base::invokeRestart
[13:13:56.253]                       is.null <- base::is.null
[13:13:56.253]                       muffled <- FALSE
[13:13:56.253]                       if (inherits(cond, "message")) {
[13:13:56.253]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:56.253]                         if (muffled) 
[13:13:56.253]                           invokeRestart("muffleMessage")
[13:13:56.253]                       }
[13:13:56.253]                       else if (inherits(cond, "warning")) {
[13:13:56.253]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:56.253]                         if (muffled) 
[13:13:56.253]                           invokeRestart("muffleWarning")
[13:13:56.253]                       }
[13:13:56.253]                       else if (inherits(cond, "condition")) {
[13:13:56.253]                         if (!is.null(pattern)) {
[13:13:56.253]                           computeRestarts <- base::computeRestarts
[13:13:56.253]                           grepl <- base::grepl
[13:13:56.253]                           restarts <- computeRestarts(cond)
[13:13:56.253]                           for (restart in restarts) {
[13:13:56.253]                             name <- restart$name
[13:13:56.253]                             if (is.null(name)) 
[13:13:56.253]                               next
[13:13:56.253]                             if (!grepl(pattern, name)) 
[13:13:56.253]                               next
[13:13:56.253]                             invokeRestart(restart)
[13:13:56.253]                             muffled <- TRUE
[13:13:56.253]                             break
[13:13:56.253]                           }
[13:13:56.253]                         }
[13:13:56.253]                       }
[13:13:56.253]                       invisible(muffled)
[13:13:56.253]                     }
[13:13:56.253]                     muffleCondition(cond, pattern = "^muffle")
[13:13:56.253]                   }
[13:13:56.253]                 }
[13:13:56.253]             }
[13:13:56.253]         }))
[13:13:56.253]     }, error = function(ex) {
[13:13:56.253]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:56.253]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:56.253]                 ...future.rng), started = ...future.startTime, 
[13:13:56.253]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:56.253]             version = "1.8"), class = "FutureResult")
[13:13:56.253]     }, finally = {
[13:13:56.253]         if (!identical(...future.workdir, getwd())) 
[13:13:56.253]             setwd(...future.workdir)
[13:13:56.253]         {
[13:13:56.253]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:56.253]                 ...future.oldOptions$nwarnings <- NULL
[13:13:56.253]             }
[13:13:56.253]             base::options(...future.oldOptions)
[13:13:56.253]             if (.Platform$OS.type == "windows") {
[13:13:56.253]                 old_names <- names(...future.oldEnvVars)
[13:13:56.253]                 envs <- base::Sys.getenv()
[13:13:56.253]                 names <- names(envs)
[13:13:56.253]                 common <- intersect(names, old_names)
[13:13:56.253]                 added <- setdiff(names, old_names)
[13:13:56.253]                 removed <- setdiff(old_names, names)
[13:13:56.253]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:56.253]                   envs[common]]
[13:13:56.253]                 NAMES <- toupper(changed)
[13:13:56.253]                 args <- list()
[13:13:56.253]                 for (kk in seq_along(NAMES)) {
[13:13:56.253]                   name <- changed[[kk]]
[13:13:56.253]                   NAME <- NAMES[[kk]]
[13:13:56.253]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.253]                     next
[13:13:56.253]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:56.253]                 }
[13:13:56.253]                 NAMES <- toupper(added)
[13:13:56.253]                 for (kk in seq_along(NAMES)) {
[13:13:56.253]                   name <- added[[kk]]
[13:13:56.253]                   NAME <- NAMES[[kk]]
[13:13:56.253]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.253]                     next
[13:13:56.253]                   args[[name]] <- ""
[13:13:56.253]                 }
[13:13:56.253]                 NAMES <- toupper(removed)
[13:13:56.253]                 for (kk in seq_along(NAMES)) {
[13:13:56.253]                   name <- removed[[kk]]
[13:13:56.253]                   NAME <- NAMES[[kk]]
[13:13:56.253]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.253]                     next
[13:13:56.253]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:56.253]                 }
[13:13:56.253]                 if (length(args) > 0) 
[13:13:56.253]                   base::do.call(base::Sys.setenv, args = args)
[13:13:56.253]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:56.253]             }
[13:13:56.253]             else {
[13:13:56.253]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:56.253]             }
[13:13:56.253]             {
[13:13:56.253]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:56.253]                   0L) {
[13:13:56.253]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:56.253]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:56.253]                   base::options(opts)
[13:13:56.253]                 }
[13:13:56.253]                 {
[13:13:56.253]                   {
[13:13:56.253]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:56.253]                     NULL
[13:13:56.253]                   }
[13:13:56.253]                   options(future.plan = NULL)
[13:13:56.253]                   if (is.na(NA_character_)) 
[13:13:56.253]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:56.253]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:56.253]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:56.253]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:56.253]                     envir = parent.frame()) 
[13:13:56.253]                   {
[13:13:56.253]                     if (is.function(workers)) 
[13:13:56.253]                       workers <- workers()
[13:13:56.253]                     workers <- structure(as.integer(workers), 
[13:13:56.253]                       class = class(workers))
[13:13:56.253]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:56.253]                       workers >= 1)
[13:13:56.253]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:56.253]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:56.253]                     }
[13:13:56.253]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:56.253]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:56.253]                       envir = envir)
[13:13:56.253]                     if (!future$lazy) 
[13:13:56.253]                       future <- run(future)
[13:13:56.253]                     invisible(future)
[13:13:56.253]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:56.253]                 }
[13:13:56.253]             }
[13:13:56.253]         }
[13:13:56.253]     })
[13:13:56.253]     if (TRUE) {
[13:13:56.253]         base::sink(type = "output", split = FALSE)
[13:13:56.253]         if (TRUE) {
[13:13:56.253]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:56.253]         }
[13:13:56.253]         else {
[13:13:56.253]             ...future.result["stdout"] <- base::list(NULL)
[13:13:56.253]         }
[13:13:56.253]         base::close(...future.stdout)
[13:13:56.253]         ...future.stdout <- NULL
[13:13:56.253]     }
[13:13:56.253]     ...future.result$conditions <- ...future.conditions
[13:13:56.253]     ...future.result$finished <- base::Sys.time()
[13:13:56.253]     ...future.result
[13:13:56.253] }
[13:13:56.258] Exporting 5 global objects (1.77 KiB) to cluster node #1 ...
[13:13:56.258] Exporting '...future.FUN' (1.66 KiB) to cluster node #1 ...
[13:13:56.259] Exporting '...future.FUN' (1.66 KiB) to cluster node #1 ... DONE
[13:13:56.259] Exporting 'MoreArgs' (56 bytes) to cluster node #1 ...
[13:13:56.260] Exporting 'MoreArgs' (56 bytes) to cluster node #1 ... DONE
[13:13:56.260] Exporting '...future.elements_ii' (56 bytes) to cluster node #1 ...
[13:13:56.260] Exporting '...future.elements_ii' (56 bytes) to cluster node #1 ... DONE
[13:13:56.260] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:56.261] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:56.261] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:56.261] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:56.262] Exporting 5 global objects (1.77 KiB) to cluster node #1 ... DONE
[13:13:56.262] MultisessionFuture started
[13:13:56.262] - Launch lazy future ... done
[13:13:56.263] run() for 'MultisessionFuture' ... done
[13:13:56.263] Created future:
[13:13:56.278] receiveMessageFromWorker() for ClusterFuture ...
[13:13:56.278] - Validating connection of MultisessionFuture
[13:13:56.279] - received message: FutureResult
[13:13:56.279] - Received FutureResult
[13:13:56.279] - Erased future from FutureRegistry
[13:13:56.279] result() for ClusterFuture ...
[13:13:56.279] - result already collected: FutureResult
[13:13:56.279] result() for ClusterFuture ... done
[13:13:56.280] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:56.263] MultisessionFuture:
[13:13:56.263] Label: 'future_mapply-1'
[13:13:56.263] Expression:
[13:13:56.263] {
[13:13:56.263]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:56.263]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:56.263]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:56.263]         on.exit(options(oopts), add = TRUE)
[13:13:56.263]     }
[13:13:56.263]     {
[13:13:56.263]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:56.263]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:56.263]         do.call(mapply, args = args)
[13:13:56.263]     }
[13:13:56.263] }
[13:13:56.263] Lazy evaluation: FALSE
[13:13:56.263] Asynchronous evaluation: TRUE
[13:13:56.263] Local evaluation: TRUE
[13:13:56.263] Environment: R_GlobalEnv
[13:13:56.263] Capture standard output: TRUE
[13:13:56.263] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:56.263] Globals: 5 objects totaling 1.77 KiB (function '...future.FUN' of 1.66 KiB, list 'MoreArgs' of 56 bytes, list '...future.elements_ii' of 56 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:56.263] Packages: <none>
[13:13:56.263] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:56.263] Resolved: TRUE
[13:13:56.263] Value: <not collected>
[13:13:56.263] Conditions captured: <none>
[13:13:56.263] Early signaling: FALSE
[13:13:56.263] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:56.263] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:56.280] Chunk #1 of 2 ... DONE
[13:13:56.280] Chunk #2 of 2 ...
[13:13:56.280]  - Finding globals in '...' for chunk #2 ...
[13:13:56.281] getGlobalsAndPackages() ...
[13:13:56.282] Searching for globals...
[13:13:56.283] 
[13:13:56.283] Searching for globals ... DONE
[13:13:56.283] - globals: [0] <none>
[13:13:56.283] getGlobalsAndPackages() ... DONE
[13:13:56.284]    + additional globals found: [n=0] 
[13:13:56.284]    + additional namespaces needed: [n=0] 
[13:13:56.284]  - Finding globals in '...' for chunk #2 ... DONE
[13:13:56.284]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:56.284]  - seeds: <none>
[13:13:56.284]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.285] getGlobalsAndPackages() ...
[13:13:56.285] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.285] Resolving globals: FALSE
[13:13:56.285] The total size of the 5 globals is 1.77 KiB (1816 bytes)
[13:13:56.286] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 1.77 KiB.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (1.66 KiB of class 'function'), 'MoreArgs' (56 bytes of class 'list') and '...future.elements_ii' (56 bytes of class 'list')
[13:13:56.286] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.286] 
[13:13:56.287] getGlobalsAndPackages() ... DONE
[13:13:56.287] run() for 'Future' ...
[13:13:56.287] - state: 'created'
[13:13:56.287] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:56.301] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:56.301] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:56.301]   - Field: 'node'
[13:13:56.302]   - Field: 'label'
[13:13:56.302]   - Field: 'local'
[13:13:56.302]   - Field: 'owner'
[13:13:56.302]   - Field: 'envir'
[13:13:56.302]   - Field: 'workers'
[13:13:56.303]   - Field: 'packages'
[13:13:56.303]   - Field: 'gc'
[13:13:56.303]   - Field: 'conditions'
[13:13:56.303]   - Field: 'persistent'
[13:13:56.303]   - Field: 'expr'
[13:13:56.303]   - Field: 'uuid'
[13:13:56.304]   - Field: 'seed'
[13:13:56.304]   - Field: 'version'
[13:13:56.304]   - Field: 'result'
[13:13:56.304]   - Field: 'asynchronous'
[13:13:56.304]   - Field: 'calls'
[13:13:56.304]   - Field: 'globals'
[13:13:56.305]   - Field: 'stdout'
[13:13:56.305]   - Field: 'earlySignal'
[13:13:56.305]   - Field: 'lazy'
[13:13:56.305]   - Field: 'state'
[13:13:56.305] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:56.306] - Launch lazy future ...
[13:13:56.306] Packages needed by the future expression (n = 0): <none>
[13:13:56.306] Packages needed by future strategies (n = 0): <none>
[13:13:56.307] {
[13:13:56.307]     {
[13:13:56.307]         {
[13:13:56.307]             ...future.startTime <- base::Sys.time()
[13:13:56.307]             {
[13:13:56.307]                 {
[13:13:56.307]                   {
[13:13:56.307]                     {
[13:13:56.307]                       base::local({
[13:13:56.307]                         has_future <- base::requireNamespace("future", 
[13:13:56.307]                           quietly = TRUE)
[13:13:56.307]                         if (has_future) {
[13:13:56.307]                           ns <- base::getNamespace("future")
[13:13:56.307]                           version <- ns[[".package"]][["version"]]
[13:13:56.307]                           if (is.null(version)) 
[13:13:56.307]                             version <- utils::packageVersion("future")
[13:13:56.307]                         }
[13:13:56.307]                         else {
[13:13:56.307]                           version <- NULL
[13:13:56.307]                         }
[13:13:56.307]                         if (!has_future || version < "1.8.0") {
[13:13:56.307]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:56.307]                             "", base::R.version$version.string), 
[13:13:56.307]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:56.307]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:56.307]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:56.307]                               "release", "version")], collapse = " "), 
[13:13:56.307]                             hostname = base::Sys.info()[["nodename"]])
[13:13:56.307]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:56.307]                             info)
[13:13:56.307]                           info <- base::paste(info, collapse = "; ")
[13:13:56.307]                           if (!has_future) {
[13:13:56.307]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:56.307]                               info)
[13:13:56.307]                           }
[13:13:56.307]                           else {
[13:13:56.307]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:56.307]                               info, version)
[13:13:56.307]                           }
[13:13:56.307]                           base::stop(msg)
[13:13:56.307]                         }
[13:13:56.307]                       })
[13:13:56.307]                     }
[13:13:56.307]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:56.307]                     base::options(mc.cores = 1L)
[13:13:56.307]                   }
[13:13:56.307]                   options(future.plan = NULL)
[13:13:56.307]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:56.307]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:56.307]                 }
[13:13:56.307]                 ...future.workdir <- getwd()
[13:13:56.307]             }
[13:13:56.307]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:56.307]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:56.307]         }
[13:13:56.307]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:56.307]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:56.307]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:56.307]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:56.307]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:56.307]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:56.307]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:56.307]             base::names(...future.oldOptions))
[13:13:56.307]     }
[13:13:56.307]     if (FALSE) {
[13:13:56.307]     }
[13:13:56.307]     else {
[13:13:56.307]         if (TRUE) {
[13:13:56.307]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:56.307]                 open = "w")
[13:13:56.307]         }
[13:13:56.307]         else {
[13:13:56.307]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:56.307]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:56.307]         }
[13:13:56.307]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:56.307]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:56.307]             base::sink(type = "output", split = FALSE)
[13:13:56.307]             base::close(...future.stdout)
[13:13:56.307]         }, add = TRUE)
[13:13:56.307]     }
[13:13:56.307]     ...future.frame <- base::sys.nframe()
[13:13:56.307]     ...future.conditions <- base::list()
[13:13:56.307]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:56.307]     if (FALSE) {
[13:13:56.307]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:56.307]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:56.307]     }
[13:13:56.307]     ...future.result <- base::tryCatch({
[13:13:56.307]         base::withCallingHandlers({
[13:13:56.307]             ...future.value <- base::withVisible(base::local({
[13:13:56.307]                 ...future.makeSendCondition <- local({
[13:13:56.307]                   sendCondition <- NULL
[13:13:56.307]                   function(frame = 1L) {
[13:13:56.307]                     if (is.function(sendCondition)) 
[13:13:56.307]                       return(sendCondition)
[13:13:56.307]                     ns <- getNamespace("parallel")
[13:13:56.307]                     if (exists("sendData", mode = "function", 
[13:13:56.307]                       envir = ns)) {
[13:13:56.307]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:56.307]                         envir = ns)
[13:13:56.307]                       envir <- sys.frame(frame)
[13:13:56.307]                       master <- NULL
[13:13:56.307]                       while (!identical(envir, .GlobalEnv) && 
[13:13:56.307]                         !identical(envir, emptyenv())) {
[13:13:56.307]                         if (exists("master", mode = "list", envir = envir, 
[13:13:56.307]                           inherits = FALSE)) {
[13:13:56.307]                           master <- get("master", mode = "list", 
[13:13:56.307]                             envir = envir, inherits = FALSE)
[13:13:56.307]                           if (inherits(master, c("SOCKnode", 
[13:13:56.307]                             "SOCK0node"))) {
[13:13:56.307]                             sendCondition <<- function(cond) {
[13:13:56.307]                               data <- list(type = "VALUE", value = cond, 
[13:13:56.307]                                 success = TRUE)
[13:13:56.307]                               parallel_sendData(master, data)
[13:13:56.307]                             }
[13:13:56.307]                             return(sendCondition)
[13:13:56.307]                           }
[13:13:56.307]                         }
[13:13:56.307]                         frame <- frame + 1L
[13:13:56.307]                         envir <- sys.frame(frame)
[13:13:56.307]                       }
[13:13:56.307]                     }
[13:13:56.307]                     sendCondition <<- function(cond) NULL
[13:13:56.307]                   }
[13:13:56.307]                 })
[13:13:56.307]                 withCallingHandlers({
[13:13:56.307]                   {
[13:13:56.307]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:56.307]                     if (!identical(...future.globals.maxSize.org, 
[13:13:56.307]                       ...future.globals.maxSize)) {
[13:13:56.307]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:56.307]                       on.exit(options(oopts), add = TRUE)
[13:13:56.307]                     }
[13:13:56.307]                     {
[13:13:56.307]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:56.307]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:56.307]                         USE.NAMES = FALSE)
[13:13:56.307]                       do.call(mapply, args = args)
[13:13:56.307]                     }
[13:13:56.307]                   }
[13:13:56.307]                 }, immediateCondition = function(cond) {
[13:13:56.307]                   sendCondition <- ...future.makeSendCondition()
[13:13:56.307]                   sendCondition(cond)
[13:13:56.307]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.307]                   {
[13:13:56.307]                     inherits <- base::inherits
[13:13:56.307]                     invokeRestart <- base::invokeRestart
[13:13:56.307]                     is.null <- base::is.null
[13:13:56.307]                     muffled <- FALSE
[13:13:56.307]                     if (inherits(cond, "message")) {
[13:13:56.307]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:56.307]                       if (muffled) 
[13:13:56.307]                         invokeRestart("muffleMessage")
[13:13:56.307]                     }
[13:13:56.307]                     else if (inherits(cond, "warning")) {
[13:13:56.307]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:56.307]                       if (muffled) 
[13:13:56.307]                         invokeRestart("muffleWarning")
[13:13:56.307]                     }
[13:13:56.307]                     else if (inherits(cond, "condition")) {
[13:13:56.307]                       if (!is.null(pattern)) {
[13:13:56.307]                         computeRestarts <- base::computeRestarts
[13:13:56.307]                         grepl <- base::grepl
[13:13:56.307]                         restarts <- computeRestarts(cond)
[13:13:56.307]                         for (restart in restarts) {
[13:13:56.307]                           name <- restart$name
[13:13:56.307]                           if (is.null(name)) 
[13:13:56.307]                             next
[13:13:56.307]                           if (!grepl(pattern, name)) 
[13:13:56.307]                             next
[13:13:56.307]                           invokeRestart(restart)
[13:13:56.307]                           muffled <- TRUE
[13:13:56.307]                           break
[13:13:56.307]                         }
[13:13:56.307]                       }
[13:13:56.307]                     }
[13:13:56.307]                     invisible(muffled)
[13:13:56.307]                   }
[13:13:56.307]                   muffleCondition(cond)
[13:13:56.307]                 })
[13:13:56.307]             }))
[13:13:56.307]             future::FutureResult(value = ...future.value$value, 
[13:13:56.307]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:56.307]                   ...future.rng), globalenv = if (FALSE) 
[13:13:56.307]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:56.307]                     ...future.globalenv.names))
[13:13:56.307]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:56.307]         }, condition = base::local({
[13:13:56.307]             c <- base::c
[13:13:56.307]             inherits <- base::inherits
[13:13:56.307]             invokeRestart <- base::invokeRestart
[13:13:56.307]             length <- base::length
[13:13:56.307]             list <- base::list
[13:13:56.307]             seq.int <- base::seq.int
[13:13:56.307]             signalCondition <- base::signalCondition
[13:13:56.307]             sys.calls <- base::sys.calls
[13:13:56.307]             `[[` <- base::`[[`
[13:13:56.307]             `+` <- base::`+`
[13:13:56.307]             `<<-` <- base::`<<-`
[13:13:56.307]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:56.307]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:56.307]                   3L)]
[13:13:56.307]             }
[13:13:56.307]             function(cond) {
[13:13:56.307]                 is_error <- inherits(cond, "error")
[13:13:56.307]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:56.307]                   NULL)
[13:13:56.307]                 if (is_error) {
[13:13:56.307]                   sessionInformation <- function() {
[13:13:56.307]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:56.307]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:56.307]                       search = base::search(), system = base::Sys.info())
[13:13:56.307]                   }
[13:13:56.307]                   ...future.conditions[[length(...future.conditions) + 
[13:13:56.307]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:56.307]                     cond$call), session = sessionInformation(), 
[13:13:56.307]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:56.307]                   signalCondition(cond)
[13:13:56.307]                 }
[13:13:56.307]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:56.307]                 "immediateCondition"))) {
[13:13:56.307]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:56.307]                   ...future.conditions[[length(...future.conditions) + 
[13:13:56.307]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:56.307]                   if (TRUE && !signal) {
[13:13:56.307]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.307]                     {
[13:13:56.307]                       inherits <- base::inherits
[13:13:56.307]                       invokeRestart <- base::invokeRestart
[13:13:56.307]                       is.null <- base::is.null
[13:13:56.307]                       muffled <- FALSE
[13:13:56.307]                       if (inherits(cond, "message")) {
[13:13:56.307]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:56.307]                         if (muffled) 
[13:13:56.307]                           invokeRestart("muffleMessage")
[13:13:56.307]                       }
[13:13:56.307]                       else if (inherits(cond, "warning")) {
[13:13:56.307]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:56.307]                         if (muffled) 
[13:13:56.307]                           invokeRestart("muffleWarning")
[13:13:56.307]                       }
[13:13:56.307]                       else if (inherits(cond, "condition")) {
[13:13:56.307]                         if (!is.null(pattern)) {
[13:13:56.307]                           computeRestarts <- base::computeRestarts
[13:13:56.307]                           grepl <- base::grepl
[13:13:56.307]                           restarts <- computeRestarts(cond)
[13:13:56.307]                           for (restart in restarts) {
[13:13:56.307]                             name <- restart$name
[13:13:56.307]                             if (is.null(name)) 
[13:13:56.307]                               next
[13:13:56.307]                             if (!grepl(pattern, name)) 
[13:13:56.307]                               next
[13:13:56.307]                             invokeRestart(restart)
[13:13:56.307]                             muffled <- TRUE
[13:13:56.307]                             break
[13:13:56.307]                           }
[13:13:56.307]                         }
[13:13:56.307]                       }
[13:13:56.307]                       invisible(muffled)
[13:13:56.307]                     }
[13:13:56.307]                     muffleCondition(cond, pattern = "^muffle")
[13:13:56.307]                   }
[13:13:56.307]                 }
[13:13:56.307]                 else {
[13:13:56.307]                   if (TRUE) {
[13:13:56.307]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.307]                     {
[13:13:56.307]                       inherits <- base::inherits
[13:13:56.307]                       invokeRestart <- base::invokeRestart
[13:13:56.307]                       is.null <- base::is.null
[13:13:56.307]                       muffled <- FALSE
[13:13:56.307]                       if (inherits(cond, "message")) {
[13:13:56.307]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:56.307]                         if (muffled) 
[13:13:56.307]                           invokeRestart("muffleMessage")
[13:13:56.307]                       }
[13:13:56.307]                       else if (inherits(cond, "warning")) {
[13:13:56.307]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:56.307]                         if (muffled) 
[13:13:56.307]                           invokeRestart("muffleWarning")
[13:13:56.307]                       }
[13:13:56.307]                       else if (inherits(cond, "condition")) {
[13:13:56.307]                         if (!is.null(pattern)) {
[13:13:56.307]                           computeRestarts <- base::computeRestarts
[13:13:56.307]                           grepl <- base::grepl
[13:13:56.307]                           restarts <- computeRestarts(cond)
[13:13:56.307]                           for (restart in restarts) {
[13:13:56.307]                             name <- restart$name
[13:13:56.307]                             if (is.null(name)) 
[13:13:56.307]                               next
[13:13:56.307]                             if (!grepl(pattern, name)) 
[13:13:56.307]                               next
[13:13:56.307]                             invokeRestart(restart)
[13:13:56.307]                             muffled <- TRUE
[13:13:56.307]                             break
[13:13:56.307]                           }
[13:13:56.307]                         }
[13:13:56.307]                       }
[13:13:56.307]                       invisible(muffled)
[13:13:56.307]                     }
[13:13:56.307]                     muffleCondition(cond, pattern = "^muffle")
[13:13:56.307]                   }
[13:13:56.307]                 }
[13:13:56.307]             }
[13:13:56.307]         }))
[13:13:56.307]     }, error = function(ex) {
[13:13:56.307]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:56.307]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:56.307]                 ...future.rng), started = ...future.startTime, 
[13:13:56.307]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:56.307]             version = "1.8"), class = "FutureResult")
[13:13:56.307]     }, finally = {
[13:13:56.307]         if (!identical(...future.workdir, getwd())) 
[13:13:56.307]             setwd(...future.workdir)
[13:13:56.307]         {
[13:13:56.307]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:56.307]                 ...future.oldOptions$nwarnings <- NULL
[13:13:56.307]             }
[13:13:56.307]             base::options(...future.oldOptions)
[13:13:56.307]             if (.Platform$OS.type == "windows") {
[13:13:56.307]                 old_names <- names(...future.oldEnvVars)
[13:13:56.307]                 envs <- base::Sys.getenv()
[13:13:56.307]                 names <- names(envs)
[13:13:56.307]                 common <- intersect(names, old_names)
[13:13:56.307]                 added <- setdiff(names, old_names)
[13:13:56.307]                 removed <- setdiff(old_names, names)
[13:13:56.307]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:56.307]                   envs[common]]
[13:13:56.307]                 NAMES <- toupper(changed)
[13:13:56.307]                 args <- list()
[13:13:56.307]                 for (kk in seq_along(NAMES)) {
[13:13:56.307]                   name <- changed[[kk]]
[13:13:56.307]                   NAME <- NAMES[[kk]]
[13:13:56.307]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.307]                     next
[13:13:56.307]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:56.307]                 }
[13:13:56.307]                 NAMES <- toupper(added)
[13:13:56.307]                 for (kk in seq_along(NAMES)) {
[13:13:56.307]                   name <- added[[kk]]
[13:13:56.307]                   NAME <- NAMES[[kk]]
[13:13:56.307]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.307]                     next
[13:13:56.307]                   args[[name]] <- ""
[13:13:56.307]                 }
[13:13:56.307]                 NAMES <- toupper(removed)
[13:13:56.307]                 for (kk in seq_along(NAMES)) {
[13:13:56.307]                   name <- removed[[kk]]
[13:13:56.307]                   NAME <- NAMES[[kk]]
[13:13:56.307]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.307]                     next
[13:13:56.307]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:56.307]                 }
[13:13:56.307]                 if (length(args) > 0) 
[13:13:56.307]                   base::do.call(base::Sys.setenv, args = args)
[13:13:56.307]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:56.307]             }
[13:13:56.307]             else {
[13:13:56.307]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:56.307]             }
[13:13:56.307]             {
[13:13:56.307]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:56.307]                   0L) {
[13:13:56.307]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:56.307]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:56.307]                   base::options(opts)
[13:13:56.307]                 }
[13:13:56.307]                 {
[13:13:56.307]                   {
[13:13:56.307]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:56.307]                     NULL
[13:13:56.307]                   }
[13:13:56.307]                   options(future.plan = NULL)
[13:13:56.307]                   if (is.na(NA_character_)) 
[13:13:56.307]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:56.307]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:56.307]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:56.307]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:56.307]                     envir = parent.frame()) 
[13:13:56.307]                   {
[13:13:56.307]                     if (is.function(workers)) 
[13:13:56.307]                       workers <- workers()
[13:13:56.307]                     workers <- structure(as.integer(workers), 
[13:13:56.307]                       class = class(workers))
[13:13:56.307]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:56.307]                       workers >= 1)
[13:13:56.307]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:56.307]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:56.307]                     }
[13:13:56.307]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:56.307]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:56.307]                       envir = envir)
[13:13:56.307]                     if (!future$lazy) 
[13:13:56.307]                       future <- run(future)
[13:13:56.307]                     invisible(future)
[13:13:56.307]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:56.307]                 }
[13:13:56.307]             }
[13:13:56.307]         }
[13:13:56.307]     })
[13:13:56.307]     if (TRUE) {
[13:13:56.307]         base::sink(type = "output", split = FALSE)
[13:13:56.307]         if (TRUE) {
[13:13:56.307]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:56.307]         }
[13:13:56.307]         else {
[13:13:56.307]             ...future.result["stdout"] <- base::list(NULL)
[13:13:56.307]         }
[13:13:56.307]         base::close(...future.stdout)
[13:13:56.307]         ...future.stdout <- NULL
[13:13:56.307]     }
[13:13:56.307]     ...future.result$conditions <- ...future.conditions
[13:13:56.307]     ...future.result$finished <- base::Sys.time()
[13:13:56.307]     ...future.result
[13:13:56.307] }
[13:13:56.312] Exporting 5 global objects (1.77 KiB) to cluster node #1 ...
[13:13:56.312] Exporting '...future.FUN' (1.66 KiB) to cluster node #1 ...
[13:13:56.313] Exporting '...future.FUN' (1.66 KiB) to cluster node #1 ... DONE
[13:13:56.313] Exporting 'MoreArgs' (56 bytes) to cluster node #1 ...
[13:13:56.313] Exporting 'MoreArgs' (56 bytes) to cluster node #1 ... DONE
[13:13:56.314] Exporting '...future.elements_ii' (56 bytes) to cluster node #1 ...
[13:13:56.314] Exporting '...future.elements_ii' (56 bytes) to cluster node #1 ... DONE
[13:13:56.314] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:56.315] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:56.315] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:56.315] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:56.315] Exporting 5 global objects (1.77 KiB) to cluster node #1 ... DONE
[13:13:56.316] MultisessionFuture started
[13:13:56.316] - Launch lazy future ... done
[13:13:56.316] run() for 'MultisessionFuture' ... done
[13:13:56.317] Created future:
[13:13:56.333] receiveMessageFromWorker() for ClusterFuture ...
[13:13:56.333] - Validating connection of MultisessionFuture
[13:13:56.333] - received message: FutureResult
[13:13:56.333] - Received FutureResult
[13:13:56.334] - Erased future from FutureRegistry
[13:13:56.334] result() for ClusterFuture ...
[13:13:56.334] - result already collected: FutureResult
[13:13:56.334] result() for ClusterFuture ... done
[13:13:56.334] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:56.317] MultisessionFuture:
[13:13:56.317] Label: 'future_mapply-2'
[13:13:56.317] Expression:
[13:13:56.317] {
[13:13:56.317]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:56.317]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:56.317]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:56.317]         on.exit(options(oopts), add = TRUE)
[13:13:56.317]     }
[13:13:56.317]     {
[13:13:56.317]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:56.317]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:56.317]         do.call(mapply, args = args)
[13:13:56.317]     }
[13:13:56.317] }
[13:13:56.317] Lazy evaluation: FALSE
[13:13:56.317] Asynchronous evaluation: TRUE
[13:13:56.317] Local evaluation: TRUE
[13:13:56.317] Environment: R_GlobalEnv
[13:13:56.317] Capture standard output: TRUE
[13:13:56.317] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:56.317] Globals: 5 objects totaling 1.77 KiB (function '...future.FUN' of 1.66 KiB, list 'MoreArgs' of 56 bytes, list '...future.elements_ii' of 56 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:56.317] Packages: <none>
[13:13:56.317] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:56.317] Resolved: TRUE
[13:13:56.317] Value: <not collected>
[13:13:56.317] Conditions captured: <none>
[13:13:56.317] Early signaling: FALSE
[13:13:56.317] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:56.317] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:56.335] Chunk #2 of 2 ... DONE
[13:13:56.335] Launching 2 futures (chunks) ... DONE
[13:13:56.335] Resolving 2 futures (chunks) ...
[13:13:56.335] resolve() on list ...
[13:13:56.335]  recursive: 0
[13:13:56.335]  length: 2
[13:13:56.336] 
[13:13:56.336] Future #1
[13:13:56.336] result() for ClusterFuture ...
[13:13:56.336] - result already collected: FutureResult
[13:13:56.336] result() for ClusterFuture ... done
[13:13:56.336] result() for ClusterFuture ...
[13:13:56.336] - result already collected: FutureResult
[13:13:56.337] result() for ClusterFuture ... done
[13:13:56.337] signalConditionsASAP(MultisessionFuture, pos=1) ...
[13:13:56.337] - nx: 2
[13:13:56.337] - relay: TRUE
[13:13:56.337] - stdout: TRUE
[13:13:56.337] - signal: TRUE
[13:13:56.338] - resignal: FALSE
[13:13:56.338] - force: TRUE
[13:13:56.338] - relayed: [n=2] FALSE, FALSE
[13:13:56.338] - queued futures: [n=2] FALSE, FALSE
[13:13:56.338]  - until=1
[13:13:56.338]  - relaying element #1
[13:13:56.339] result() for ClusterFuture ...
[13:13:56.339] - result already collected: FutureResult
[13:13:56.339] result() for ClusterFuture ... done
[13:13:56.339] result() for ClusterFuture ...
[13:13:56.339] - result already collected: FutureResult
[13:13:56.339] result() for ClusterFuture ... done
[13:13:56.340] result() for ClusterFuture ...
[13:13:56.340] - result already collected: FutureResult
[13:13:56.340] result() for ClusterFuture ... done
[13:13:56.340] result() for ClusterFuture ...
[13:13:56.340] - result already collected: FutureResult
[13:13:56.340] result() for ClusterFuture ... done
[13:13:56.340] - relayed: [n=2] TRUE, FALSE
[13:13:56.341] - queued futures: [n=2] TRUE, FALSE
[13:13:56.341] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[13:13:56.341]  length: 1 (resolved future 1)
[13:13:56.341] Future #2
[13:13:56.341] result() for ClusterFuture ...
[13:13:56.341] - result already collected: FutureResult
[13:13:56.342] result() for ClusterFuture ... done
[13:13:56.342] result() for ClusterFuture ...
[13:13:56.342] - result already collected: FutureResult
[13:13:56.342] result() for ClusterFuture ... done
[13:13:56.342] signalConditionsASAP(MultisessionFuture, pos=2) ...
[13:13:56.342] - nx: 2
[13:13:56.343] - relay: TRUE
[13:13:56.343] - stdout: TRUE
[13:13:56.343] - signal: TRUE
[13:13:56.343] - resignal: FALSE
[13:13:56.343] - force: TRUE
[13:13:56.343] - relayed: [n=2] TRUE, FALSE
[13:13:56.343] - queued futures: [n=2] TRUE, FALSE
[13:13:56.344]  - until=2
[13:13:56.344]  - relaying element #2
[13:13:56.344] result() for ClusterFuture ...
[13:13:56.344] - result already collected: FutureResult
[13:13:56.344] result() for ClusterFuture ... done
[13:13:56.344] result() for ClusterFuture ...
[13:13:56.345] - result already collected: FutureResult
[13:13:56.345] result() for ClusterFuture ... done
[13:13:56.345] result() for ClusterFuture ...
[13:13:56.345] - result already collected: FutureResult
[13:13:56.345] result() for ClusterFuture ... done
[13:13:56.345] result() for ClusterFuture ...
[13:13:56.346] - result already collected: FutureResult
[13:13:56.346] result() for ClusterFuture ... done
[13:13:56.346] - relayed: [n=2] TRUE, TRUE
[13:13:56.346] - queued futures: [n=2] TRUE, TRUE
[13:13:56.346] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[13:13:56.346]  length: 0 (resolved future 2)
[13:13:56.346] Relaying remaining futures
[13:13:56.347] signalConditionsASAP(NULL, pos=0) ...
[13:13:56.347] - nx: 2
[13:13:56.347] - relay: TRUE
[13:13:56.347] - stdout: TRUE
[13:13:56.347] - signal: TRUE
[13:13:56.347] - resignal: FALSE
[13:13:56.348] - force: TRUE
[13:13:56.348] - relayed: [n=2] TRUE, TRUE
[13:13:56.348] - queued futures: [n=2] TRUE, TRUE
 - flush all
[13:13:56.348] - relayed: [n=2] TRUE, TRUE
[13:13:56.348] - queued futures: [n=2] TRUE, TRUE
[13:13:56.348] signalConditionsASAP(NULL, pos=0) ... done
[13:13:56.349] resolve() on list ... DONE
[13:13:56.349] result() for ClusterFuture ...
[13:13:56.349] - result already collected: FutureResult
[13:13:56.349] result() for ClusterFuture ... done
[13:13:56.349] result() for ClusterFuture ...
[13:13:56.349] - result already collected: FutureResult
[13:13:56.349] result() for ClusterFuture ... done
[13:13:56.350] result() for ClusterFuture ...
[13:13:56.350] - result already collected: FutureResult
[13:13:56.350] result() for ClusterFuture ... done
[13:13:56.350] result() for ClusterFuture ...
[13:13:56.350] - result already collected: FutureResult
[13:13:56.350] result() for ClusterFuture ... done
[13:13:56.351]  - Number of value chunks collected: 2
[13:13:56.351] Resolving 2 futures (chunks) ... DONE
[13:13:56.351] Reducing values from 2 chunks ...
[13:13:56.351]  - Number of values collected after concatenation: 2
[13:13:56.351]  - Number of values expected: 2
[13:13:56.351] Reducing values from 2 chunks ... DONE
[13:13:56.352] future_mapply() ... DONE
[13:13:56.352] future_mapply() ...
[13:13:56.352] Generating random seeds ...
[13:13:56.352] Generating random seed streams for 2 elements ...
[13:13:56.352] Generating random seed streams for 2 elements ... DONE
[13:13:56.352] Generating random seeds ... DONE
[13:13:56.353] Will set RNG state on exit: 10407, -63005983, -361971858, 1834436782, 289911346, 1758041794, -211438477
[13:13:56.355] Number of chunks: 2
[13:13:56.355] getGlobalsAndPackagesXApply() ...
[13:13:56.355]  - future.globals: TRUE
[13:13:56.356] getGlobalsAndPackages() ...
[13:13:56.356] Searching for globals...
[13:13:56.357] - globals found: [1] 'FUN'
[13:13:56.357] Searching for globals ... DONE
[13:13:56.357] Resolving globals: FALSE
[13:13:56.358] The total size of the 1 globals is 1.66 KiB (1704 bytes)
[13:13:56.358] The total size of the 1 globals exported for future expression ('FUN(y = 3:4)') is 1.66 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (1.66 KiB of class 'function')
[13:13:56.358] - globals: [1] 'FUN'
[13:13:56.358] 
[13:13:56.359] getGlobalsAndPackages() ... DONE
[13:13:56.359]  - globals found/used: [n=1] 'FUN'
[13:13:56.359]  - needed namespaces: [n=0] 
[13:13:56.359] Finding globals ... DONE
[13:13:56.359] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:56.360] List of 2
[13:13:56.360]  $ ...future.FUN:function (x, y)  
[13:13:56.360]  $ MoreArgs     :List of 1
[13:13:56.360]   ..$ y: int [1:2] 3 4
[13:13:56.360]  - attr(*, "where")=List of 2
[13:13:56.360]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:56.360]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:56.360]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:56.360]  - attr(*, "resolved")= logi FALSE
[13:13:56.360]  - attr(*, "total_size")= num NA
[13:13:56.363] Packages to be attached in all futures: [n=0] 
[13:13:56.363] getGlobalsAndPackagesXApply() ... DONE
[13:13:56.363] Number of futures (= number of chunks): 2
[13:13:56.364] Launching 2 futures (chunks) ...
[13:13:56.364] Chunk #1 of 2 ...
[13:13:56.364]  - Finding globals in '...' for chunk #1 ...
[13:13:56.364] getGlobalsAndPackages() ...
[13:13:56.364] Searching for globals...
[13:13:56.365] 
[13:13:56.365] Searching for globals ... DONE
[13:13:56.365] - globals: [0] <none>
[13:13:56.365] getGlobalsAndPackages() ... DONE
[13:13:56.365]    + additional globals found: [n=0] 
[13:13:56.365]    + additional namespaces needed: [n=0] 
[13:13:56.366]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:56.366]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:56.366]  - seeds: [1] <seeds>
[13:13:56.366]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.366] getGlobalsAndPackages() ...
[13:13:56.366] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.367] Resolving globals: FALSE
[13:13:56.367] The total size of the 5 globals is 1.85 KiB (1896 bytes)
[13:13:56.368] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 1.85 KiB.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (1.66 KiB of class 'function'), '...future.seeds_ii' (80 bytes of class 'list') and 'MoreArgs' (56 bytes of class 'list')
[13:13:56.368] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.368] 
[13:13:56.368] getGlobalsAndPackages() ... DONE
[13:13:56.369] run() for 'Future' ...
[13:13:56.369] - state: 'created'
[13:13:56.369] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:56.383] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:56.383] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:56.383]   - Field: 'node'
[13:13:56.383]   - Field: 'label'
[13:13:56.384]   - Field: 'local'
[13:13:56.384]   - Field: 'owner'
[13:13:56.384]   - Field: 'envir'
[13:13:56.384]   - Field: 'workers'
[13:13:56.384]   - Field: 'packages'
[13:13:56.384]   - Field: 'gc'
[13:13:56.385]   - Field: 'conditions'
[13:13:56.385]   - Field: 'persistent'
[13:13:56.385]   - Field: 'expr'
[13:13:56.385]   - Field: 'uuid'
[13:13:56.385]   - Field: 'seed'
[13:13:56.386]   - Field: 'version'
[13:13:56.386]   - Field: 'result'
[13:13:56.386]   - Field: 'asynchronous'
[13:13:56.386]   - Field: 'calls'
[13:13:56.386]   - Field: 'globals'
[13:13:56.386]   - Field: 'stdout'
[13:13:56.387]   - Field: 'earlySignal'
[13:13:56.387]   - Field: 'lazy'
[13:13:56.387]   - Field: 'state'
[13:13:56.387] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:56.387] - Launch lazy future ...
[13:13:56.388] Packages needed by the future expression (n = 0): <none>
[13:13:56.388] Packages needed by future strategies (n = 0): <none>
[13:13:56.388] {
[13:13:56.388]     {
[13:13:56.388]         {
[13:13:56.388]             ...future.startTime <- base::Sys.time()
[13:13:56.388]             {
[13:13:56.388]                 {
[13:13:56.388]                   {
[13:13:56.388]                     {
[13:13:56.388]                       base::local({
[13:13:56.388]                         has_future <- base::requireNamespace("future", 
[13:13:56.388]                           quietly = TRUE)
[13:13:56.388]                         if (has_future) {
[13:13:56.388]                           ns <- base::getNamespace("future")
[13:13:56.388]                           version <- ns[[".package"]][["version"]]
[13:13:56.388]                           if (is.null(version)) 
[13:13:56.388]                             version <- utils::packageVersion("future")
[13:13:56.388]                         }
[13:13:56.388]                         else {
[13:13:56.388]                           version <- NULL
[13:13:56.388]                         }
[13:13:56.388]                         if (!has_future || version < "1.8.0") {
[13:13:56.388]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:56.388]                             "", base::R.version$version.string), 
[13:13:56.388]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:56.388]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:56.388]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:56.388]                               "release", "version")], collapse = " "), 
[13:13:56.388]                             hostname = base::Sys.info()[["nodename"]])
[13:13:56.388]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:56.388]                             info)
[13:13:56.388]                           info <- base::paste(info, collapse = "; ")
[13:13:56.388]                           if (!has_future) {
[13:13:56.388]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:56.388]                               info)
[13:13:56.388]                           }
[13:13:56.388]                           else {
[13:13:56.388]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:56.388]                               info, version)
[13:13:56.388]                           }
[13:13:56.388]                           base::stop(msg)
[13:13:56.388]                         }
[13:13:56.388]                       })
[13:13:56.388]                     }
[13:13:56.388]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:56.388]                     base::options(mc.cores = 1L)
[13:13:56.388]                   }
[13:13:56.388]                   options(future.plan = NULL)
[13:13:56.388]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:56.388]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:56.388]                 }
[13:13:56.388]                 ...future.workdir <- getwd()
[13:13:56.388]             }
[13:13:56.388]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:56.388]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:56.388]         }
[13:13:56.388]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:56.388]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:56.388]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:56.388]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:56.388]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:56.388]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:56.388]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:56.388]             base::names(...future.oldOptions))
[13:13:56.388]     }
[13:13:56.388]     if (FALSE) {
[13:13:56.388]     }
[13:13:56.388]     else {
[13:13:56.388]         if (TRUE) {
[13:13:56.388]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:56.388]                 open = "w")
[13:13:56.388]         }
[13:13:56.388]         else {
[13:13:56.388]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:56.388]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:56.388]         }
[13:13:56.388]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:56.388]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:56.388]             base::sink(type = "output", split = FALSE)
[13:13:56.388]             base::close(...future.stdout)
[13:13:56.388]         }, add = TRUE)
[13:13:56.388]     }
[13:13:56.388]     ...future.frame <- base::sys.nframe()
[13:13:56.388]     ...future.conditions <- base::list()
[13:13:56.388]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:56.388]     if (FALSE) {
[13:13:56.388]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:56.388]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:56.388]     }
[13:13:56.388]     ...future.result <- base::tryCatch({
[13:13:56.388]         base::withCallingHandlers({
[13:13:56.388]             ...future.value <- base::withVisible(base::local({
[13:13:56.388]                 ...future.makeSendCondition <- local({
[13:13:56.388]                   sendCondition <- NULL
[13:13:56.388]                   function(frame = 1L) {
[13:13:56.388]                     if (is.function(sendCondition)) 
[13:13:56.388]                       return(sendCondition)
[13:13:56.388]                     ns <- getNamespace("parallel")
[13:13:56.388]                     if (exists("sendData", mode = "function", 
[13:13:56.388]                       envir = ns)) {
[13:13:56.388]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:56.388]                         envir = ns)
[13:13:56.388]                       envir <- sys.frame(frame)
[13:13:56.388]                       master <- NULL
[13:13:56.388]                       while (!identical(envir, .GlobalEnv) && 
[13:13:56.388]                         !identical(envir, emptyenv())) {
[13:13:56.388]                         if (exists("master", mode = "list", envir = envir, 
[13:13:56.388]                           inherits = FALSE)) {
[13:13:56.388]                           master <- get("master", mode = "list", 
[13:13:56.388]                             envir = envir, inherits = FALSE)
[13:13:56.388]                           if (inherits(master, c("SOCKnode", 
[13:13:56.388]                             "SOCK0node"))) {
[13:13:56.388]                             sendCondition <<- function(cond) {
[13:13:56.388]                               data <- list(type = "VALUE", value = cond, 
[13:13:56.388]                                 success = TRUE)
[13:13:56.388]                               parallel_sendData(master, data)
[13:13:56.388]                             }
[13:13:56.388]                             return(sendCondition)
[13:13:56.388]                           }
[13:13:56.388]                         }
[13:13:56.388]                         frame <- frame + 1L
[13:13:56.388]                         envir <- sys.frame(frame)
[13:13:56.388]                       }
[13:13:56.388]                     }
[13:13:56.388]                     sendCondition <<- function(cond) NULL
[13:13:56.388]                   }
[13:13:56.388]                 })
[13:13:56.388]                 withCallingHandlers({
[13:13:56.388]                   {
[13:13:56.388]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:56.388]                     if (!identical(...future.globals.maxSize.org, 
[13:13:56.388]                       ...future.globals.maxSize)) {
[13:13:56.388]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:56.388]                       on.exit(options(oopts), add = TRUE)
[13:13:56.388]                     }
[13:13:56.388]                     {
[13:13:56.388]                       ...future.FUN2 <- function(..., ...future.seeds_ii_jj) {
[13:13:56.388]                         assign(".Random.seed", ...future.seeds_ii_jj, 
[13:13:56.388]                           envir = globalenv(), inherits = FALSE)
[13:13:56.388]                         ...future.FUN(...)
[13:13:56.388]                       }
[13:13:56.388]                       args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 
[13:13:56.388]                         list(...future.seeds_ii_jj = ...future.seeds_ii), 
[13:13:56.388]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:56.388]                         USE.NAMES = FALSE)
[13:13:56.388]                       do.call(mapply, args = args)
[13:13:56.388]                     }
[13:13:56.388]                   }
[13:13:56.388]                 }, immediateCondition = function(cond) {
[13:13:56.388]                   sendCondition <- ...future.makeSendCondition()
[13:13:56.388]                   sendCondition(cond)
[13:13:56.388]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.388]                   {
[13:13:56.388]                     inherits <- base::inherits
[13:13:56.388]                     invokeRestart <- base::invokeRestart
[13:13:56.388]                     is.null <- base::is.null
[13:13:56.388]                     muffled <- FALSE
[13:13:56.388]                     if (inherits(cond, "message")) {
[13:13:56.388]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:56.388]                       if (muffled) 
[13:13:56.388]                         invokeRestart("muffleMessage")
[13:13:56.388]                     }
[13:13:56.388]                     else if (inherits(cond, "warning")) {
[13:13:56.388]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:56.388]                       if (muffled) 
[13:13:56.388]                         invokeRestart("muffleWarning")
[13:13:56.388]                     }
[13:13:56.388]                     else if (inherits(cond, "condition")) {
[13:13:56.388]                       if (!is.null(pattern)) {
[13:13:56.388]                         computeRestarts <- base::computeRestarts
[13:13:56.388]                         grepl <- base::grepl
[13:13:56.388]                         restarts <- computeRestarts(cond)
[13:13:56.388]                         for (restart in restarts) {
[13:13:56.388]                           name <- restart$name
[13:13:56.388]                           if (is.null(name)) 
[13:13:56.388]                             next
[13:13:56.388]                           if (!grepl(pattern, name)) 
[13:13:56.388]                             next
[13:13:56.388]                           invokeRestart(restart)
[13:13:56.388]                           muffled <- TRUE
[13:13:56.388]                           break
[13:13:56.388]                         }
[13:13:56.388]                       }
[13:13:56.388]                     }
[13:13:56.388]                     invisible(muffled)
[13:13:56.388]                   }
[13:13:56.388]                   muffleCondition(cond)
[13:13:56.388]                 })
[13:13:56.388]             }))
[13:13:56.388]             future::FutureResult(value = ...future.value$value, 
[13:13:56.388]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:56.388]                   ...future.rng), globalenv = if (FALSE) 
[13:13:56.388]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:56.388]                     ...future.globalenv.names))
[13:13:56.388]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:56.388]         }, condition = base::local({
[13:13:56.388]             c <- base::c
[13:13:56.388]             inherits <- base::inherits
[13:13:56.388]             invokeRestart <- base::invokeRestart
[13:13:56.388]             length <- base::length
[13:13:56.388]             list <- base::list
[13:13:56.388]             seq.int <- base::seq.int
[13:13:56.388]             signalCondition <- base::signalCondition
[13:13:56.388]             sys.calls <- base::sys.calls
[13:13:56.388]             `[[` <- base::`[[`
[13:13:56.388]             `+` <- base::`+`
[13:13:56.388]             `<<-` <- base::`<<-`
[13:13:56.388]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:56.388]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:56.388]                   3L)]
[13:13:56.388]             }
[13:13:56.388]             function(cond) {
[13:13:56.388]                 is_error <- inherits(cond, "error")
[13:13:56.388]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:56.388]                   NULL)
[13:13:56.388]                 if (is_error) {
[13:13:56.388]                   sessionInformation <- function() {
[13:13:56.388]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:56.388]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:56.388]                       search = base::search(), system = base::Sys.info())
[13:13:56.388]                   }
[13:13:56.388]                   ...future.conditions[[length(...future.conditions) + 
[13:13:56.388]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:56.388]                     cond$call), session = sessionInformation(), 
[13:13:56.388]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:56.388]                   signalCondition(cond)
[13:13:56.388]                 }
[13:13:56.388]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:56.388]                 "immediateCondition"))) {
[13:13:56.388]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:56.388]                   ...future.conditions[[length(...future.conditions) + 
[13:13:56.388]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:56.388]                   if (TRUE && !signal) {
[13:13:56.388]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.388]                     {
[13:13:56.388]                       inherits <- base::inherits
[13:13:56.388]                       invokeRestart <- base::invokeRestart
[13:13:56.388]                       is.null <- base::is.null
[13:13:56.388]                       muffled <- FALSE
[13:13:56.388]                       if (inherits(cond, "message")) {
[13:13:56.388]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:56.388]                         if (muffled) 
[13:13:56.388]                           invokeRestart("muffleMessage")
[13:13:56.388]                       }
[13:13:56.388]                       else if (inherits(cond, "warning")) {
[13:13:56.388]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:56.388]                         if (muffled) 
[13:13:56.388]                           invokeRestart("muffleWarning")
[13:13:56.388]                       }
[13:13:56.388]                       else if (inherits(cond, "condition")) {
[13:13:56.388]                         if (!is.null(pattern)) {
[13:13:56.388]                           computeRestarts <- base::computeRestarts
[13:13:56.388]                           grepl <- base::grepl
[13:13:56.388]                           restarts <- computeRestarts(cond)
[13:13:56.388]                           for (restart in restarts) {
[13:13:56.388]                             name <- restart$name
[13:13:56.388]                             if (is.null(name)) 
[13:13:56.388]                               next
[13:13:56.388]                             if (!grepl(pattern, name)) 
[13:13:56.388]                               next
[13:13:56.388]                             invokeRestart(restart)
[13:13:56.388]                             muffled <- TRUE
[13:13:56.388]                             break
[13:13:56.388]                           }
[13:13:56.388]                         }
[13:13:56.388]                       }
[13:13:56.388]                       invisible(muffled)
[13:13:56.388]                     }
[13:13:56.388]                     muffleCondition(cond, pattern = "^muffle")
[13:13:56.388]                   }
[13:13:56.388]                 }
[13:13:56.388]                 else {
[13:13:56.388]                   if (TRUE) {
[13:13:56.388]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.388]                     {
[13:13:56.388]                       inherits <- base::inherits
[13:13:56.388]                       invokeRestart <- base::invokeRestart
[13:13:56.388]                       is.null <- base::is.null
[13:13:56.388]                       muffled <- FALSE
[13:13:56.388]                       if (inherits(cond, "message")) {
[13:13:56.388]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:56.388]                         if (muffled) 
[13:13:56.388]                           invokeRestart("muffleMessage")
[13:13:56.388]                       }
[13:13:56.388]                       else if (inherits(cond, "warning")) {
[13:13:56.388]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:56.388]                         if (muffled) 
[13:13:56.388]                           invokeRestart("muffleWarning")
[13:13:56.388]                       }
[13:13:56.388]                       else if (inherits(cond, "condition")) {
[13:13:56.388]                         if (!is.null(pattern)) {
[13:13:56.388]                           computeRestarts <- base::computeRestarts
[13:13:56.388]                           grepl <- base::grepl
[13:13:56.388]                           restarts <- computeRestarts(cond)
[13:13:56.388]                           for (restart in restarts) {
[13:13:56.388]                             name <- restart$name
[13:13:56.388]                             if (is.null(name)) 
[13:13:56.388]                               next
[13:13:56.388]                             if (!grepl(pattern, name)) 
[13:13:56.388]                               next
[13:13:56.388]                             invokeRestart(restart)
[13:13:56.388]                             muffled <- TRUE
[13:13:56.388]                             break
[13:13:56.388]                           }
[13:13:56.388]                         }
[13:13:56.388]                       }
[13:13:56.388]                       invisible(muffled)
[13:13:56.388]                     }
[13:13:56.388]                     muffleCondition(cond, pattern = "^muffle")
[13:13:56.388]                   }
[13:13:56.388]                 }
[13:13:56.388]             }
[13:13:56.388]         }))
[13:13:56.388]     }, error = function(ex) {
[13:13:56.388]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:56.388]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:56.388]                 ...future.rng), started = ...future.startTime, 
[13:13:56.388]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:56.388]             version = "1.8"), class = "FutureResult")
[13:13:56.388]     }, finally = {
[13:13:56.388]         if (!identical(...future.workdir, getwd())) 
[13:13:56.388]             setwd(...future.workdir)
[13:13:56.388]         {
[13:13:56.388]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:56.388]                 ...future.oldOptions$nwarnings <- NULL
[13:13:56.388]             }
[13:13:56.388]             base::options(...future.oldOptions)
[13:13:56.388]             if (.Platform$OS.type == "windows") {
[13:13:56.388]                 old_names <- names(...future.oldEnvVars)
[13:13:56.388]                 envs <- base::Sys.getenv()
[13:13:56.388]                 names <- names(envs)
[13:13:56.388]                 common <- intersect(names, old_names)
[13:13:56.388]                 added <- setdiff(names, old_names)
[13:13:56.388]                 removed <- setdiff(old_names, names)
[13:13:56.388]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:56.388]                   envs[common]]
[13:13:56.388]                 NAMES <- toupper(changed)
[13:13:56.388]                 args <- list()
[13:13:56.388]                 for (kk in seq_along(NAMES)) {
[13:13:56.388]                   name <- changed[[kk]]
[13:13:56.388]                   NAME <- NAMES[[kk]]
[13:13:56.388]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.388]                     next
[13:13:56.388]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:56.388]                 }
[13:13:56.388]                 NAMES <- toupper(added)
[13:13:56.388]                 for (kk in seq_along(NAMES)) {
[13:13:56.388]                   name <- added[[kk]]
[13:13:56.388]                   NAME <- NAMES[[kk]]
[13:13:56.388]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.388]                     next
[13:13:56.388]                   args[[name]] <- ""
[13:13:56.388]                 }
[13:13:56.388]                 NAMES <- toupper(removed)
[13:13:56.388]                 for (kk in seq_along(NAMES)) {
[13:13:56.388]                   name <- removed[[kk]]
[13:13:56.388]                   NAME <- NAMES[[kk]]
[13:13:56.388]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.388]                     next
[13:13:56.388]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:56.388]                 }
[13:13:56.388]                 if (length(args) > 0) 
[13:13:56.388]                   base::do.call(base::Sys.setenv, args = args)
[13:13:56.388]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:56.388]             }
[13:13:56.388]             else {
[13:13:56.388]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:56.388]             }
[13:13:56.388]             {
[13:13:56.388]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:56.388]                   0L) {
[13:13:56.388]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:56.388]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:56.388]                   base::options(opts)
[13:13:56.388]                 }
[13:13:56.388]                 {
[13:13:56.388]                   {
[13:13:56.388]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:56.388]                     NULL
[13:13:56.388]                   }
[13:13:56.388]                   options(future.plan = NULL)
[13:13:56.388]                   if (is.na(NA_character_)) 
[13:13:56.388]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:56.388]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:56.388]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:56.388]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:56.388]                     envir = parent.frame()) 
[13:13:56.388]                   {
[13:13:56.388]                     if (is.function(workers)) 
[13:13:56.388]                       workers <- workers()
[13:13:56.388]                     workers <- structure(as.integer(workers), 
[13:13:56.388]                       class = class(workers))
[13:13:56.388]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:56.388]                       workers >= 1)
[13:13:56.388]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:56.388]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:56.388]                     }
[13:13:56.388]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:56.388]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:56.388]                       envir = envir)
[13:13:56.388]                     if (!future$lazy) 
[13:13:56.388]                       future <- run(future)
[13:13:56.388]                     invisible(future)
[13:13:56.388]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:56.388]                 }
[13:13:56.388]             }
[13:13:56.388]         }
[13:13:56.388]     })
[13:13:56.388]     if (TRUE) {
[13:13:56.388]         base::sink(type = "output", split = FALSE)
[13:13:56.388]         if (TRUE) {
[13:13:56.388]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:56.388]         }
[13:13:56.388]         else {
[13:13:56.388]             ...future.result["stdout"] <- base::list(NULL)
[13:13:56.388]         }
[13:13:56.388]         base::close(...future.stdout)
[13:13:56.388]         ...future.stdout <- NULL
[13:13:56.388]     }
[13:13:56.388]     ...future.result$conditions <- ...future.conditions
[13:13:56.388]     ...future.result$finished <- base::Sys.time()
[13:13:56.388]     ...future.result
[13:13:56.388] }
[13:13:56.394] Exporting 5 global objects (1.85 KiB) to cluster node #1 ...
[13:13:56.394] Exporting '...future.FUN' (1.66 KiB) to cluster node #1 ...
[13:13:56.395] Exporting '...future.FUN' (1.66 KiB) to cluster node #1 ... DONE
[13:13:56.395] Exporting 'MoreArgs' (56 bytes) to cluster node #1 ...
[13:13:56.395] Exporting 'MoreArgs' (56 bytes) to cluster node #1 ... DONE
[13:13:56.395] Exporting '...future.elements_ii' (56 bytes) to cluster node #1 ...
[13:13:56.396] Exporting '...future.elements_ii' (56 bytes) to cluster node #1 ... DONE
[13:13:56.396] Exporting '...future.seeds_ii' (80 bytes) to cluster node #1 ...
[13:13:56.396] Exporting '...future.seeds_ii' (80 bytes) to cluster node #1 ... DONE
[13:13:56.397] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:56.397] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:56.397] Exporting 5 global objects (1.85 KiB) to cluster node #1 ... DONE
[13:13:56.398] MultisessionFuture started
[13:13:56.398] - Launch lazy future ... done
[13:13:56.398] run() for 'MultisessionFuture' ... done
[13:13:56.398] Created future:
[13:13:56.414] receiveMessageFromWorker() for ClusterFuture ...
[13:13:56.414] - Validating connection of MultisessionFuture
[13:13:56.414] - received message: FutureResult
[13:13:56.415] - Received FutureResult
[13:13:56.415] - Erased future from FutureRegistry
[13:13:56.415] result() for ClusterFuture ...
[13:13:56.415] - result already collected: FutureResult
[13:13:56.415] result() for ClusterFuture ... done
[13:13:56.415] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:56.399] MultisessionFuture:
[13:13:56.399] Label: 'future_mapply-1'
[13:13:56.399] Expression:
[13:13:56.399] {
[13:13:56.399]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:56.399]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:56.399]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:56.399]         on.exit(options(oopts), add = TRUE)
[13:13:56.399]     }
[13:13:56.399]     {
[13:13:56.399]         ...future.FUN2 <- function(..., ...future.seeds_ii_jj) {
[13:13:56.399]             assign(".Random.seed", ...future.seeds_ii_jj, envir = globalenv(), 
[13:13:56.399]                 inherits = FALSE)
[13:13:56.399]             ...future.FUN(...)
[13:13:56.399]         }
[13:13:56.399]         args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 
[13:13:56.399]             list(...future.seeds_ii_jj = ...future.seeds_ii), 
[13:13:56.399]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:56.399]         do.call(mapply, args = args)
[13:13:56.399]     }
[13:13:56.399] }
[13:13:56.399] Lazy evaluation: FALSE
[13:13:56.399] Asynchronous evaluation: TRUE
[13:13:56.399] Local evaluation: TRUE
[13:13:56.399] Environment: R_GlobalEnv
[13:13:56.399] Capture standard output: TRUE
[13:13:56.399] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:56.399] Globals: 5 objects totaling 1.85 KiB (function '...future.FUN' of 1.66 KiB, list 'MoreArgs' of 56 bytes, list '...future.elements_ii' of 56 bytes, list '...future.seeds_ii' of 80 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:56.399] Packages: <none>
[13:13:56.399] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[13:13:56.399] Resolved: TRUE
[13:13:56.399] Value: <not collected>
[13:13:56.399] Conditions captured: <none>
[13:13:56.399] Early signaling: FALSE
[13:13:56.399] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:56.399] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:56.416] Chunk #1 of 2 ... DONE
[13:13:56.416] Chunk #2 of 2 ...
[13:13:56.416]  - Finding globals in '...' for chunk #2 ...
[13:13:56.416] getGlobalsAndPackages() ...
[13:13:56.417] Searching for globals...
[13:13:56.417] 
[13:13:56.417] Searching for globals ... DONE
[13:13:56.417] - globals: [0] <none>
[13:13:56.417] getGlobalsAndPackages() ... DONE
[13:13:56.418]    + additional globals found: [n=0] 
[13:13:56.418]    + additional namespaces needed: [n=0] 
[13:13:56.418]  - Finding globals in '...' for chunk #2 ... DONE
[13:13:56.418]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:56.418]  - seeds: [1] <seeds>
[13:13:56.418]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.419] getGlobalsAndPackages() ...
[13:13:56.419] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.419] Resolving globals: FALSE
[13:13:56.419] The total size of the 5 globals is 1.85 KiB (1896 bytes)
[13:13:56.420] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 1.85 KiB.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (1.66 KiB of class 'function'), '...future.seeds_ii' (80 bytes of class 'list') and 'MoreArgs' (56 bytes of class 'list')
[13:13:56.420] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.421] 
[13:13:56.421] getGlobalsAndPackages() ... DONE
[13:13:56.421] run() for 'Future' ...
[13:13:56.421] - state: 'created'
[13:13:56.421] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:56.435] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:56.435] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:56.436]   - Field: 'node'
[13:13:56.436]   - Field: 'label'
[13:13:56.436]   - Field: 'local'
[13:13:56.436]   - Field: 'owner'
[13:13:56.436]   - Field: 'envir'
[13:13:56.436]   - Field: 'workers'
[13:13:56.437]   - Field: 'packages'
[13:13:56.437]   - Field: 'gc'
[13:13:56.437]   - Field: 'conditions'
[13:13:56.437]   - Field: 'persistent'
[13:13:56.437]   - Field: 'expr'
[13:13:56.438]   - Field: 'uuid'
[13:13:56.438]   - Field: 'seed'
[13:13:56.438]   - Field: 'version'
[13:13:56.438]   - Field: 'result'
[13:13:56.438]   - Field: 'asynchronous'
[13:13:56.438]   - Field: 'calls'
[13:13:56.439]   - Field: 'globals'
[13:13:56.439]   - Field: 'stdout'
[13:13:56.439]   - Field: 'earlySignal'
[13:13:56.439]   - Field: 'lazy'
[13:13:56.439]   - Field: 'state'
[13:13:56.439] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:56.440] - Launch lazy future ...
[13:13:56.440] Packages needed by the future expression (n = 0): <none>
[13:13:56.440] Packages needed by future strategies (n = 0): <none>
[13:13:56.441] {
[13:13:56.441]     {
[13:13:56.441]         {
[13:13:56.441]             ...future.startTime <- base::Sys.time()
[13:13:56.441]             {
[13:13:56.441]                 {
[13:13:56.441]                   {
[13:13:56.441]                     {
[13:13:56.441]                       base::local({
[13:13:56.441]                         has_future <- base::requireNamespace("future", 
[13:13:56.441]                           quietly = TRUE)
[13:13:56.441]                         if (has_future) {
[13:13:56.441]                           ns <- base::getNamespace("future")
[13:13:56.441]                           version <- ns[[".package"]][["version"]]
[13:13:56.441]                           if (is.null(version)) 
[13:13:56.441]                             version <- utils::packageVersion("future")
[13:13:56.441]                         }
[13:13:56.441]                         else {
[13:13:56.441]                           version <- NULL
[13:13:56.441]                         }
[13:13:56.441]                         if (!has_future || version < "1.8.0") {
[13:13:56.441]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:56.441]                             "", base::R.version$version.string), 
[13:13:56.441]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:56.441]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:56.441]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:56.441]                               "release", "version")], collapse = " "), 
[13:13:56.441]                             hostname = base::Sys.info()[["nodename"]])
[13:13:56.441]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:56.441]                             info)
[13:13:56.441]                           info <- base::paste(info, collapse = "; ")
[13:13:56.441]                           if (!has_future) {
[13:13:56.441]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:56.441]                               info)
[13:13:56.441]                           }
[13:13:56.441]                           else {
[13:13:56.441]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:56.441]                               info, version)
[13:13:56.441]                           }
[13:13:56.441]                           base::stop(msg)
[13:13:56.441]                         }
[13:13:56.441]                       })
[13:13:56.441]                     }
[13:13:56.441]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:56.441]                     base::options(mc.cores = 1L)
[13:13:56.441]                   }
[13:13:56.441]                   options(future.plan = NULL)
[13:13:56.441]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:56.441]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:56.441]                 }
[13:13:56.441]                 ...future.workdir <- getwd()
[13:13:56.441]             }
[13:13:56.441]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:56.441]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:56.441]         }
[13:13:56.441]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:56.441]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:56.441]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:56.441]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:56.441]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:56.441]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:56.441]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:56.441]             base::names(...future.oldOptions))
[13:13:56.441]     }
[13:13:56.441]     if (FALSE) {
[13:13:56.441]     }
[13:13:56.441]     else {
[13:13:56.441]         if (TRUE) {
[13:13:56.441]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:56.441]                 open = "w")
[13:13:56.441]         }
[13:13:56.441]         else {
[13:13:56.441]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:56.441]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:56.441]         }
[13:13:56.441]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:56.441]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:56.441]             base::sink(type = "output", split = FALSE)
[13:13:56.441]             base::close(...future.stdout)
[13:13:56.441]         }, add = TRUE)
[13:13:56.441]     }
[13:13:56.441]     ...future.frame <- base::sys.nframe()
[13:13:56.441]     ...future.conditions <- base::list()
[13:13:56.441]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:56.441]     if (FALSE) {
[13:13:56.441]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:56.441]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:56.441]     }
[13:13:56.441]     ...future.result <- base::tryCatch({
[13:13:56.441]         base::withCallingHandlers({
[13:13:56.441]             ...future.value <- base::withVisible(base::local({
[13:13:56.441]                 ...future.makeSendCondition <- local({
[13:13:56.441]                   sendCondition <- NULL
[13:13:56.441]                   function(frame = 1L) {
[13:13:56.441]                     if (is.function(sendCondition)) 
[13:13:56.441]                       return(sendCondition)
[13:13:56.441]                     ns <- getNamespace("parallel")
[13:13:56.441]                     if (exists("sendData", mode = "function", 
[13:13:56.441]                       envir = ns)) {
[13:13:56.441]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:56.441]                         envir = ns)
[13:13:56.441]                       envir <- sys.frame(frame)
[13:13:56.441]                       master <- NULL
[13:13:56.441]                       while (!identical(envir, .GlobalEnv) && 
[13:13:56.441]                         !identical(envir, emptyenv())) {
[13:13:56.441]                         if (exists("master", mode = "list", envir = envir, 
[13:13:56.441]                           inherits = FALSE)) {
[13:13:56.441]                           master <- get("master", mode = "list", 
[13:13:56.441]                             envir = envir, inherits = FALSE)
[13:13:56.441]                           if (inherits(master, c("SOCKnode", 
[13:13:56.441]                             "SOCK0node"))) {
[13:13:56.441]                             sendCondition <<- function(cond) {
[13:13:56.441]                               data <- list(type = "VALUE", value = cond, 
[13:13:56.441]                                 success = TRUE)
[13:13:56.441]                               parallel_sendData(master, data)
[13:13:56.441]                             }
[13:13:56.441]                             return(sendCondition)
[13:13:56.441]                           }
[13:13:56.441]                         }
[13:13:56.441]                         frame <- frame + 1L
[13:13:56.441]                         envir <- sys.frame(frame)
[13:13:56.441]                       }
[13:13:56.441]                     }
[13:13:56.441]                     sendCondition <<- function(cond) NULL
[13:13:56.441]                   }
[13:13:56.441]                 })
[13:13:56.441]                 withCallingHandlers({
[13:13:56.441]                   {
[13:13:56.441]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:56.441]                     if (!identical(...future.globals.maxSize.org, 
[13:13:56.441]                       ...future.globals.maxSize)) {
[13:13:56.441]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:56.441]                       on.exit(options(oopts), add = TRUE)
[13:13:56.441]                     }
[13:13:56.441]                     {
[13:13:56.441]                       ...future.FUN2 <- function(..., ...future.seeds_ii_jj) {
[13:13:56.441]                         assign(".Random.seed", ...future.seeds_ii_jj, 
[13:13:56.441]                           envir = globalenv(), inherits = FALSE)
[13:13:56.441]                         ...future.FUN(...)
[13:13:56.441]                       }
[13:13:56.441]                       args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 
[13:13:56.441]                         list(...future.seeds_ii_jj = ...future.seeds_ii), 
[13:13:56.441]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:56.441]                         USE.NAMES = FALSE)
[13:13:56.441]                       do.call(mapply, args = args)
[13:13:56.441]                     }
[13:13:56.441]                   }
[13:13:56.441]                 }, immediateCondition = function(cond) {
[13:13:56.441]                   sendCondition <- ...future.makeSendCondition()
[13:13:56.441]                   sendCondition(cond)
[13:13:56.441]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.441]                   {
[13:13:56.441]                     inherits <- base::inherits
[13:13:56.441]                     invokeRestart <- base::invokeRestart
[13:13:56.441]                     is.null <- base::is.null
[13:13:56.441]                     muffled <- FALSE
[13:13:56.441]                     if (inherits(cond, "message")) {
[13:13:56.441]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:56.441]                       if (muffled) 
[13:13:56.441]                         invokeRestart("muffleMessage")
[13:13:56.441]                     }
[13:13:56.441]                     else if (inherits(cond, "warning")) {
[13:13:56.441]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:56.441]                       if (muffled) 
[13:13:56.441]                         invokeRestart("muffleWarning")
[13:13:56.441]                     }
[13:13:56.441]                     else if (inherits(cond, "condition")) {
[13:13:56.441]                       if (!is.null(pattern)) {
[13:13:56.441]                         computeRestarts <- base::computeRestarts
[13:13:56.441]                         grepl <- base::grepl
[13:13:56.441]                         restarts <- computeRestarts(cond)
[13:13:56.441]                         for (restart in restarts) {
[13:13:56.441]                           name <- restart$name
[13:13:56.441]                           if (is.null(name)) 
[13:13:56.441]                             next
[13:13:56.441]                           if (!grepl(pattern, name)) 
[13:13:56.441]                             next
[13:13:56.441]                           invokeRestart(restart)
[13:13:56.441]                           muffled <- TRUE
[13:13:56.441]                           break
[13:13:56.441]                         }
[13:13:56.441]                       }
[13:13:56.441]                     }
[13:13:56.441]                     invisible(muffled)
[13:13:56.441]                   }
[13:13:56.441]                   muffleCondition(cond)
[13:13:56.441]                 })
[13:13:56.441]             }))
[13:13:56.441]             future::FutureResult(value = ...future.value$value, 
[13:13:56.441]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:56.441]                   ...future.rng), globalenv = if (FALSE) 
[13:13:56.441]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:56.441]                     ...future.globalenv.names))
[13:13:56.441]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:56.441]         }, condition = base::local({
[13:13:56.441]             c <- base::c
[13:13:56.441]             inherits <- base::inherits
[13:13:56.441]             invokeRestart <- base::invokeRestart
[13:13:56.441]             length <- base::length
[13:13:56.441]             list <- base::list
[13:13:56.441]             seq.int <- base::seq.int
[13:13:56.441]             signalCondition <- base::signalCondition
[13:13:56.441]             sys.calls <- base::sys.calls
[13:13:56.441]             `[[` <- base::`[[`
[13:13:56.441]             `+` <- base::`+`
[13:13:56.441]             `<<-` <- base::`<<-`
[13:13:56.441]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:56.441]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:56.441]                   3L)]
[13:13:56.441]             }
[13:13:56.441]             function(cond) {
[13:13:56.441]                 is_error <- inherits(cond, "error")
[13:13:56.441]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:56.441]                   NULL)
[13:13:56.441]                 if (is_error) {
[13:13:56.441]                   sessionInformation <- function() {
[13:13:56.441]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:56.441]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:56.441]                       search = base::search(), system = base::Sys.info())
[13:13:56.441]                   }
[13:13:56.441]                   ...future.conditions[[length(...future.conditions) + 
[13:13:56.441]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:56.441]                     cond$call), session = sessionInformation(), 
[13:13:56.441]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:56.441]                   signalCondition(cond)
[13:13:56.441]                 }
[13:13:56.441]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:56.441]                 "immediateCondition"))) {
[13:13:56.441]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:56.441]                   ...future.conditions[[length(...future.conditions) + 
[13:13:56.441]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:56.441]                   if (TRUE && !signal) {
[13:13:56.441]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.441]                     {
[13:13:56.441]                       inherits <- base::inherits
[13:13:56.441]                       invokeRestart <- base::invokeRestart
[13:13:56.441]                       is.null <- base::is.null
[13:13:56.441]                       muffled <- FALSE
[13:13:56.441]                       if (inherits(cond, "message")) {
[13:13:56.441]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:56.441]                         if (muffled) 
[13:13:56.441]                           invokeRestart("muffleMessage")
[13:13:56.441]                       }
[13:13:56.441]                       else if (inherits(cond, "warning")) {
[13:13:56.441]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:56.441]                         if (muffled) 
[13:13:56.441]                           invokeRestart("muffleWarning")
[13:13:56.441]                       }
[13:13:56.441]                       else if (inherits(cond, "condition")) {
[13:13:56.441]                         if (!is.null(pattern)) {
[13:13:56.441]                           computeRestarts <- base::computeRestarts
[13:13:56.441]                           grepl <- base::grepl
[13:13:56.441]                           restarts <- computeRestarts(cond)
[13:13:56.441]                           for (restart in restarts) {
[13:13:56.441]                             name <- restart$name
[13:13:56.441]                             if (is.null(name)) 
[13:13:56.441]                               next
[13:13:56.441]                             if (!grepl(pattern, name)) 
[13:13:56.441]                               next
[13:13:56.441]                             invokeRestart(restart)
[13:13:56.441]                             muffled <- TRUE
[13:13:56.441]                             break
[13:13:56.441]                           }
[13:13:56.441]                         }
[13:13:56.441]                       }
[13:13:56.441]                       invisible(muffled)
[13:13:56.441]                     }
[13:13:56.441]                     muffleCondition(cond, pattern = "^muffle")
[13:13:56.441]                   }
[13:13:56.441]                 }
[13:13:56.441]                 else {
[13:13:56.441]                   if (TRUE) {
[13:13:56.441]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.441]                     {
[13:13:56.441]                       inherits <- base::inherits
[13:13:56.441]                       invokeRestart <- base::invokeRestart
[13:13:56.441]                       is.null <- base::is.null
[13:13:56.441]                       muffled <- FALSE
[13:13:56.441]                       if (inherits(cond, "message")) {
[13:13:56.441]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:56.441]                         if (muffled) 
[13:13:56.441]                           invokeRestart("muffleMessage")
[13:13:56.441]                       }
[13:13:56.441]                       else if (inherits(cond, "warning")) {
[13:13:56.441]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:56.441]                         if (muffled) 
[13:13:56.441]                           invokeRestart("muffleWarning")
[13:13:56.441]                       }
[13:13:56.441]                       else if (inherits(cond, "condition")) {
[13:13:56.441]                         if (!is.null(pattern)) {
[13:13:56.441]                           computeRestarts <- base::computeRestarts
[13:13:56.441]                           grepl <- base::grepl
[13:13:56.441]                           restarts <- computeRestarts(cond)
[13:13:56.441]                           for (restart in restarts) {
[13:13:56.441]                             name <- restart$name
[13:13:56.441]                             if (is.null(name)) 
[13:13:56.441]                               next
[13:13:56.441]                             if (!grepl(pattern, name)) 
[13:13:56.441]                               next
[13:13:56.441]                             invokeRestart(restart)
[13:13:56.441]                             muffled <- TRUE
[13:13:56.441]                             break
[13:13:56.441]                           }
[13:13:56.441]                         }
[13:13:56.441]                       }
[13:13:56.441]                       invisible(muffled)
[13:13:56.441]                     }
[13:13:56.441]                     muffleCondition(cond, pattern = "^muffle")
[13:13:56.441]                   }
[13:13:56.441]                 }
[13:13:56.441]             }
[13:13:56.441]         }))
[13:13:56.441]     }, error = function(ex) {
[13:13:56.441]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:56.441]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:56.441]                 ...future.rng), started = ...future.startTime, 
[13:13:56.441]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:56.441]             version = "1.8"), class = "FutureResult")
[13:13:56.441]     }, finally = {
[13:13:56.441]         if (!identical(...future.workdir, getwd())) 
[13:13:56.441]             setwd(...future.workdir)
[13:13:56.441]         {
[13:13:56.441]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:56.441]                 ...future.oldOptions$nwarnings <- NULL
[13:13:56.441]             }
[13:13:56.441]             base::options(...future.oldOptions)
[13:13:56.441]             if (.Platform$OS.type == "windows") {
[13:13:56.441]                 old_names <- names(...future.oldEnvVars)
[13:13:56.441]                 envs <- base::Sys.getenv()
[13:13:56.441]                 names <- names(envs)
[13:13:56.441]                 common <- intersect(names, old_names)
[13:13:56.441]                 added <- setdiff(names, old_names)
[13:13:56.441]                 removed <- setdiff(old_names, names)
[13:13:56.441]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:56.441]                   envs[common]]
[13:13:56.441]                 NAMES <- toupper(changed)
[13:13:56.441]                 args <- list()
[13:13:56.441]                 for (kk in seq_along(NAMES)) {
[13:13:56.441]                   name <- changed[[kk]]
[13:13:56.441]                   NAME <- NAMES[[kk]]
[13:13:56.441]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.441]                     next
[13:13:56.441]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:56.441]                 }
[13:13:56.441]                 NAMES <- toupper(added)
[13:13:56.441]                 for (kk in seq_along(NAMES)) {
[13:13:56.441]                   name <- added[[kk]]
[13:13:56.441]                   NAME <- NAMES[[kk]]
[13:13:56.441]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.441]                     next
[13:13:56.441]                   args[[name]] <- ""
[13:13:56.441]                 }
[13:13:56.441]                 NAMES <- toupper(removed)
[13:13:56.441]                 for (kk in seq_along(NAMES)) {
[13:13:56.441]                   name <- removed[[kk]]
[13:13:56.441]                   NAME <- NAMES[[kk]]
[13:13:56.441]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.441]                     next
[13:13:56.441]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:56.441]                 }
[13:13:56.441]                 if (length(args) > 0) 
[13:13:56.441]                   base::do.call(base::Sys.setenv, args = args)
[13:13:56.441]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:56.441]             }
[13:13:56.441]             else {
[13:13:56.441]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:56.441]             }
[13:13:56.441]             {
[13:13:56.441]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:56.441]                   0L) {
[13:13:56.441]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:56.441]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:56.441]                   base::options(opts)
[13:13:56.441]                 }
[13:13:56.441]                 {
[13:13:56.441]                   {
[13:13:56.441]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:56.441]                     NULL
[13:13:56.441]                   }
[13:13:56.441]                   options(future.plan = NULL)
[13:13:56.441]                   if (is.na(NA_character_)) 
[13:13:56.441]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:56.441]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:56.441]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:56.441]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:56.441]                     envir = parent.frame()) 
[13:13:56.441]                   {
[13:13:56.441]                     if (is.function(workers)) 
[13:13:56.441]                       workers <- workers()
[13:13:56.441]                     workers <- structure(as.integer(workers), 
[13:13:56.441]                       class = class(workers))
[13:13:56.441]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:56.441]                       workers >= 1)
[13:13:56.441]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:56.441]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:56.441]                     }
[13:13:56.441]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:56.441]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:56.441]                       envir = envir)
[13:13:56.441]                     if (!future$lazy) 
[13:13:56.441]                       future <- run(future)
[13:13:56.441]                     invisible(future)
[13:13:56.441]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:56.441]                 }
[13:13:56.441]             }
[13:13:56.441]         }
[13:13:56.441]     })
[13:13:56.441]     if (TRUE) {
[13:13:56.441]         base::sink(type = "output", split = FALSE)
[13:13:56.441]         if (TRUE) {
[13:13:56.441]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:56.441]         }
[13:13:56.441]         else {
[13:13:56.441]             ...future.result["stdout"] <- base::list(NULL)
[13:13:56.441]         }
[13:13:56.441]         base::close(...future.stdout)
[13:13:56.441]         ...future.stdout <- NULL
[13:13:56.441]     }
[13:13:56.441]     ...future.result$conditions <- ...future.conditions
[13:13:56.441]     ...future.result$finished <- base::Sys.time()
[13:13:56.441]     ...future.result
[13:13:56.441] }
[13:13:56.446] Exporting 5 global objects (1.85 KiB) to cluster node #1 ...
[13:13:56.447] Exporting '...future.FUN' (1.66 KiB) to cluster node #1 ...
[13:13:56.447] Exporting '...future.FUN' (1.66 KiB) to cluster node #1 ... DONE
[13:13:56.447] Exporting 'MoreArgs' (56 bytes) to cluster node #1 ...
[13:13:56.448] Exporting 'MoreArgs' (56 bytes) to cluster node #1 ... DONE
[13:13:56.448] Exporting '...future.elements_ii' (56 bytes) to cluster node #1 ...
[13:13:56.448] Exporting '...future.elements_ii' (56 bytes) to cluster node #1 ... DONE
[13:13:56.449] Exporting '...future.seeds_ii' (80 bytes) to cluster node #1 ...
[13:13:56.449] Exporting '...future.seeds_ii' (80 bytes) to cluster node #1 ... DONE
[13:13:56.449] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:56.450] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:56.450] Exporting 5 global objects (1.85 KiB) to cluster node #1 ... DONE
[13:13:56.451] MultisessionFuture started
[13:13:56.451] - Launch lazy future ... done
[13:13:56.451] run() for 'MultisessionFuture' ... done
[13:13:56.451] Created future:
[13:13:56.466] receiveMessageFromWorker() for ClusterFuture ...
[13:13:56.466] - Validating connection of MultisessionFuture
[13:13:56.467] - received message: FutureResult
[13:13:56.467] - Received FutureResult
[13:13:56.467] - Erased future from FutureRegistry
[13:13:56.467] result() for ClusterFuture ...
[13:13:56.467] - result already collected: FutureResult
[13:13:56.468] result() for ClusterFuture ... done
[13:13:56.468] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:56.451] MultisessionFuture:
[13:13:56.451] Label: 'future_mapply-2'
[13:13:56.451] Expression:
[13:13:56.451] {
[13:13:56.451]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:56.451]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:56.451]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:56.451]         on.exit(options(oopts), add = TRUE)
[13:13:56.451]     }
[13:13:56.451]     {
[13:13:56.451]         ...future.FUN2 <- function(..., ...future.seeds_ii_jj) {
[13:13:56.451]             assign(".Random.seed", ...future.seeds_ii_jj, envir = globalenv(), 
[13:13:56.451]                 inherits = FALSE)
[13:13:56.451]             ...future.FUN(...)
[13:13:56.451]         }
[13:13:56.451]         args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 
[13:13:56.451]             list(...future.seeds_ii_jj = ...future.seeds_ii), 
[13:13:56.451]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:56.451]         do.call(mapply, args = args)
[13:13:56.451]     }
[13:13:56.451] }
[13:13:56.451] Lazy evaluation: FALSE
[13:13:56.451] Asynchronous evaluation: TRUE
[13:13:56.451] Local evaluation: TRUE
[13:13:56.451] Environment: R_GlobalEnv
[13:13:56.451] Capture standard output: TRUE
[13:13:56.451] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:56.451] Globals: 5 objects totaling 1.85 KiB (function '...future.FUN' of 1.66 KiB, list 'MoreArgs' of 56 bytes, list '...future.elements_ii' of 56 bytes, list '...future.seeds_ii' of 80 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:56.451] Packages: <none>
[13:13:56.451] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[13:13:56.451] Resolved: TRUE
[13:13:56.451] Value: <not collected>
[13:13:56.451] Conditions captured: <none>
[13:13:56.451] Early signaling: FALSE
[13:13:56.451] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:56.451] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:56.468] Chunk #2 of 2 ... DONE
[13:13:56.468] Launching 2 futures (chunks) ... DONE
[13:13:56.468] Resolving 2 futures (chunks) ...
[13:13:56.469] resolve() on list ...
[13:13:56.469]  recursive: 0
[13:13:56.469]  length: 2
[13:13:56.469] 
[13:13:56.469] Future #1
[13:13:56.469] result() for ClusterFuture ...
[13:13:56.470] - result already collected: FutureResult
[13:13:56.470] result() for ClusterFuture ... done
[13:13:56.470] result() for ClusterFuture ...
[13:13:56.470] - result already collected: FutureResult
[13:13:56.470] result() for ClusterFuture ... done
[13:13:56.470] signalConditionsASAP(MultisessionFuture, pos=1) ...
[13:13:56.471] - nx: 2
[13:13:56.471] - relay: TRUE
[13:13:56.471] - stdout: TRUE
[13:13:56.471] - signal: TRUE
[13:13:56.471] - resignal: FALSE
[13:13:56.471] - force: TRUE
[13:13:56.471] - relayed: [n=2] FALSE, FALSE
[13:13:56.472] - queued futures: [n=2] FALSE, FALSE
[13:13:56.472]  - until=1
[13:13:56.472]  - relaying element #1
[13:13:56.472] result() for ClusterFuture ...
[13:13:56.472] - result already collected: FutureResult
[13:13:56.472] result() for ClusterFuture ... done
[13:13:56.473] result() for ClusterFuture ...
[13:13:56.473] - result already collected: FutureResult
[13:13:56.473] result() for ClusterFuture ... done
[13:13:56.473] result() for ClusterFuture ...
[13:13:56.473] - result already collected: FutureResult
[13:13:56.473] result() for ClusterFuture ... done
[13:13:56.474] result() for ClusterFuture ...
[13:13:56.474] - result already collected: FutureResult
[13:13:56.474] result() for ClusterFuture ... done
[13:13:56.474] - relayed: [n=2] TRUE, FALSE
[13:13:56.474] - queued futures: [n=2] TRUE, FALSE
[13:13:56.474] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[13:13:56.475]  length: 1 (resolved future 1)
[13:13:56.475] Future #2
[13:13:56.475] result() for ClusterFuture ...
[13:13:56.475] - result already collected: FutureResult
[13:13:56.475] result() for ClusterFuture ... done
[13:13:56.475] result() for ClusterFuture ...
[13:13:56.476] - result already collected: FutureResult
[13:13:56.476] result() for ClusterFuture ... done
[13:13:56.476] signalConditionsASAP(MultisessionFuture, pos=2) ...
[13:13:56.476] - nx: 2
[13:13:56.476] - relay: TRUE
[13:13:56.476] - stdout: TRUE
[13:13:56.476] - signal: TRUE
[13:13:56.477] - resignal: FALSE
[13:13:56.477] - force: TRUE
[13:13:56.477] - relayed: [n=2] TRUE, FALSE
[13:13:56.477] - queued futures: [n=2] TRUE, FALSE
[13:13:56.477]  - until=2
[13:13:56.477]  - relaying element #2
[13:13:56.478] result() for ClusterFuture ...
[13:13:56.478] - result already collected: FutureResult
[13:13:56.478] result() for ClusterFuture ... done
[13:13:56.478] result() for ClusterFuture ...
[13:13:56.478] - result already collected: FutureResult
[13:13:56.478] result() for ClusterFuture ... done
[13:13:56.479] result() for ClusterFuture ...
[13:13:56.479] - result already collected: FutureResult
[13:13:56.479] result() for ClusterFuture ... done
[13:13:56.479] result() for ClusterFuture ...
[13:13:56.479] - result already collected: FutureResult
[13:13:56.479] result() for ClusterFuture ... done
[13:13:56.479] - relayed: [n=2] TRUE, TRUE
[13:13:56.480] - queued futures: [n=2] TRUE, TRUE
[13:13:56.480] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[13:13:56.480]  length: 0 (resolved future 2)
[13:13:56.480] Relaying remaining futures
[13:13:56.480] signalConditionsASAP(NULL, pos=0) ...
[13:13:56.480] - nx: 2
[13:13:56.481] - relay: TRUE
[13:13:56.481] - stdout: TRUE
[13:13:56.481] - signal: TRUE
[13:13:56.481] - resignal: FALSE
[13:13:56.481] - force: TRUE
[13:13:56.481] - relayed: [n=2] TRUE, TRUE
[13:13:56.481] - queued futures: [n=2] TRUE, TRUE
 - flush all
[13:13:56.482] - relayed: [n=2] TRUE, TRUE
[13:13:56.482] - queued futures: [n=2] TRUE, TRUE
[13:13:56.482] signalConditionsASAP(NULL, pos=0) ... done
[13:13:56.482] resolve() on list ... DONE
[13:13:56.482] result() for ClusterFuture ...
[13:13:56.483] - result already collected: FutureResult
[13:13:56.483] result() for ClusterFuture ... done
[13:13:56.483] result() for ClusterFuture ...
[13:13:56.483] - result already collected: FutureResult
[13:13:56.483] result() for ClusterFuture ... done
[13:13:56.483] result() for ClusterFuture ...
[13:13:56.483] - result already collected: FutureResult
[13:13:56.484] result() for ClusterFuture ... done
[13:13:56.484] result() for ClusterFuture ...
[13:13:56.484] - result already collected: FutureResult
[13:13:56.484] result() for ClusterFuture ... done
[13:13:56.484]  - Number of value chunks collected: 2
[13:13:56.484] Resolving 2 futures (chunks) ... DONE
[13:13:56.485] Reducing values from 2 chunks ...
[13:13:56.485]  - Number of values collected after concatenation: 2
[13:13:56.485]  - Number of values expected: 2
[13:13:56.485] Reducing values from 2 chunks ... DONE
[13:13:56.485] future_mapply() ... DONE
[13:13:56.485] future_mapply() ...
[13:13:56.488] Number of chunks: 2
[13:13:56.488] getGlobalsAndPackagesXApply() ...
[13:13:56.488]  - future.globals: TRUE
[13:13:56.489] getGlobalsAndPackages() ...
[13:13:56.489] Searching for globals...
[13:13:56.492] - globals found: [1] 'FUN'
[13:13:56.492] Searching for globals ... DONE
[13:13:56.492] Resolving globals: FALSE
[13:13:56.493] The total size of the 1 globals is 1.66 KiB (1704 bytes)
[13:13:56.493] The total size of the 1 globals exported for future expression ('FUN(y = 3:4)') is 1.66 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (1.66 KiB of class 'function')
[13:13:56.493] - globals: [1] 'FUN'
[13:13:56.493] 
[13:13:56.494] getGlobalsAndPackages() ... DONE
[13:13:56.494]  - globals found/used: [n=1] 'FUN'
[13:13:56.494]  - needed namespaces: [n=0] 
[13:13:56.494] Finding globals ... DONE
[13:13:56.494] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:56.494] List of 2
[13:13:56.494]  $ ...future.FUN:function (x, y)  
[13:13:56.494]  $ MoreArgs     :List of 1
[13:13:56.494]   ..$ y: int [1:2] 3 4
[13:13:56.494]  - attr(*, "where")=List of 2
[13:13:56.494]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:56.494]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:56.494]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:56.494]  - attr(*, "resolved")= logi FALSE
[13:13:56.494]  - attr(*, "total_size")= num NA
[13:13:56.498] Packages to be attached in all futures: [n=0] 
[13:13:56.498] getGlobalsAndPackagesXApply() ... DONE
[13:13:56.498] Number of futures (= number of chunks): 2
[13:13:56.499] Launching 2 futures (chunks) ...
[13:13:56.499] Chunk #1 of 2 ...
[13:13:56.499]  - Finding globals in '...' for chunk #1 ...
[13:13:56.499] getGlobalsAndPackages() ...
[13:13:56.499] Searching for globals...
[13:13:56.500] 
[13:13:56.500] Searching for globals ... DONE
[13:13:56.500] - globals: [0] <none>
[13:13:56.500] getGlobalsAndPackages() ... DONE
[13:13:56.500]    + additional globals found: [n=0] 
[13:13:56.500]    + additional namespaces needed: [n=0] 
[13:13:56.501]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:56.501]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:56.501]  - seeds: <none>
[13:13:56.501]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.501] getGlobalsAndPackages() ...
[13:13:56.501] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.502] Resolving globals: FALSE
[13:13:56.502] The total size of the 5 globals is 1.77 KiB (1816 bytes)
[13:13:56.503] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 1.77 KiB.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (1.66 KiB of class 'function'), 'MoreArgs' (56 bytes of class 'list') and '...future.elements_ii' (56 bytes of class 'list')
[13:13:56.503] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.503] 
[13:13:56.503] getGlobalsAndPackages() ... DONE
[13:13:56.504] run() for 'Future' ...
[13:13:56.504] - state: 'created'
[13:13:56.504] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:56.518] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:56.518] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:56.518]   - Field: 'node'
[13:13:56.518]   - Field: 'label'
[13:13:56.519]   - Field: 'local'
[13:13:56.519]   - Field: 'owner'
[13:13:56.519]   - Field: 'envir'
[13:13:56.519]   - Field: 'workers'
[13:13:56.519]   - Field: 'packages'
[13:13:56.520]   - Field: 'gc'
[13:13:56.520]   - Field: 'conditions'
[13:13:56.520]   - Field: 'persistent'
[13:13:56.520]   - Field: 'expr'
[13:13:56.520]   - Field: 'uuid'
[13:13:56.520]   - Field: 'seed'
[13:13:56.521]   - Field: 'version'
[13:13:56.521]   - Field: 'result'
[13:13:56.521]   - Field: 'asynchronous'
[13:13:56.521]   - Field: 'calls'
[13:13:56.521]   - Field: 'globals'
[13:13:56.522]   - Field: 'stdout'
[13:13:56.522]   - Field: 'earlySignal'
[13:13:56.522]   - Field: 'lazy'
[13:13:56.522]   - Field: 'state'
[13:13:56.522] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:56.522] - Launch lazy future ...
[13:13:56.523] Packages needed by the future expression (n = 0): <none>
[13:13:56.523] Packages needed by future strategies (n = 0): <none>
[13:13:56.523] {
[13:13:56.523]     {
[13:13:56.523]         {
[13:13:56.523]             ...future.startTime <- base::Sys.time()
[13:13:56.523]             {
[13:13:56.523]                 {
[13:13:56.523]                   {
[13:13:56.523]                     {
[13:13:56.523]                       base::local({
[13:13:56.523]                         has_future <- base::requireNamespace("future", 
[13:13:56.523]                           quietly = TRUE)
[13:13:56.523]                         if (has_future) {
[13:13:56.523]                           ns <- base::getNamespace("future")
[13:13:56.523]                           version <- ns[[".package"]][["version"]]
[13:13:56.523]                           if (is.null(version)) 
[13:13:56.523]                             version <- utils::packageVersion("future")
[13:13:56.523]                         }
[13:13:56.523]                         else {
[13:13:56.523]                           version <- NULL
[13:13:56.523]                         }
[13:13:56.523]                         if (!has_future || version < "1.8.0") {
[13:13:56.523]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:56.523]                             "", base::R.version$version.string), 
[13:13:56.523]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:56.523]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:56.523]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:56.523]                               "release", "version")], collapse = " "), 
[13:13:56.523]                             hostname = base::Sys.info()[["nodename"]])
[13:13:56.523]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:56.523]                             info)
[13:13:56.523]                           info <- base::paste(info, collapse = "; ")
[13:13:56.523]                           if (!has_future) {
[13:13:56.523]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:56.523]                               info)
[13:13:56.523]                           }
[13:13:56.523]                           else {
[13:13:56.523]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:56.523]                               info, version)
[13:13:56.523]                           }
[13:13:56.523]                           base::stop(msg)
[13:13:56.523]                         }
[13:13:56.523]                       })
[13:13:56.523]                     }
[13:13:56.523]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:56.523]                     base::options(mc.cores = 1L)
[13:13:56.523]                   }
[13:13:56.523]                   options(future.plan = NULL)
[13:13:56.523]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:56.523]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:56.523]                 }
[13:13:56.523]                 ...future.workdir <- getwd()
[13:13:56.523]             }
[13:13:56.523]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:56.523]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:56.523]         }
[13:13:56.523]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:56.523]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:56.523]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:56.523]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:56.523]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:56.523]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:56.523]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:56.523]             base::names(...future.oldOptions))
[13:13:56.523]     }
[13:13:56.523]     if (FALSE) {
[13:13:56.523]     }
[13:13:56.523]     else {
[13:13:56.523]         if (TRUE) {
[13:13:56.523]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:56.523]                 open = "w")
[13:13:56.523]         }
[13:13:56.523]         else {
[13:13:56.523]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:56.523]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:56.523]         }
[13:13:56.523]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:56.523]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:56.523]             base::sink(type = "output", split = FALSE)
[13:13:56.523]             base::close(...future.stdout)
[13:13:56.523]         }, add = TRUE)
[13:13:56.523]     }
[13:13:56.523]     ...future.frame <- base::sys.nframe()
[13:13:56.523]     ...future.conditions <- base::list()
[13:13:56.523]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:56.523]     if (FALSE) {
[13:13:56.523]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:56.523]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:56.523]     }
[13:13:56.523]     ...future.result <- base::tryCatch({
[13:13:56.523]         base::withCallingHandlers({
[13:13:56.523]             ...future.value <- base::withVisible(base::local({
[13:13:56.523]                 ...future.makeSendCondition <- local({
[13:13:56.523]                   sendCondition <- NULL
[13:13:56.523]                   function(frame = 1L) {
[13:13:56.523]                     if (is.function(sendCondition)) 
[13:13:56.523]                       return(sendCondition)
[13:13:56.523]                     ns <- getNamespace("parallel")
[13:13:56.523]                     if (exists("sendData", mode = "function", 
[13:13:56.523]                       envir = ns)) {
[13:13:56.523]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:56.523]                         envir = ns)
[13:13:56.523]                       envir <- sys.frame(frame)
[13:13:56.523]                       master <- NULL
[13:13:56.523]                       while (!identical(envir, .GlobalEnv) && 
[13:13:56.523]                         !identical(envir, emptyenv())) {
[13:13:56.523]                         if (exists("master", mode = "list", envir = envir, 
[13:13:56.523]                           inherits = FALSE)) {
[13:13:56.523]                           master <- get("master", mode = "list", 
[13:13:56.523]                             envir = envir, inherits = FALSE)
[13:13:56.523]                           if (inherits(master, c("SOCKnode", 
[13:13:56.523]                             "SOCK0node"))) {
[13:13:56.523]                             sendCondition <<- function(cond) {
[13:13:56.523]                               data <- list(type = "VALUE", value = cond, 
[13:13:56.523]                                 success = TRUE)
[13:13:56.523]                               parallel_sendData(master, data)
[13:13:56.523]                             }
[13:13:56.523]                             return(sendCondition)
[13:13:56.523]                           }
[13:13:56.523]                         }
[13:13:56.523]                         frame <- frame + 1L
[13:13:56.523]                         envir <- sys.frame(frame)
[13:13:56.523]                       }
[13:13:56.523]                     }
[13:13:56.523]                     sendCondition <<- function(cond) NULL
[13:13:56.523]                   }
[13:13:56.523]                 })
[13:13:56.523]                 withCallingHandlers({
[13:13:56.523]                   {
[13:13:56.523]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:56.523]                     if (!identical(...future.globals.maxSize.org, 
[13:13:56.523]                       ...future.globals.maxSize)) {
[13:13:56.523]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:56.523]                       on.exit(options(oopts), add = TRUE)
[13:13:56.523]                     }
[13:13:56.523]                     {
[13:13:56.523]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:56.523]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:56.523]                         USE.NAMES = FALSE)
[13:13:56.523]                       do.call(mapply, args = args)
[13:13:56.523]                     }
[13:13:56.523]                   }
[13:13:56.523]                 }, immediateCondition = function(cond) {
[13:13:56.523]                   sendCondition <- ...future.makeSendCondition()
[13:13:56.523]                   sendCondition(cond)
[13:13:56.523]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.523]                   {
[13:13:56.523]                     inherits <- base::inherits
[13:13:56.523]                     invokeRestart <- base::invokeRestart
[13:13:56.523]                     is.null <- base::is.null
[13:13:56.523]                     muffled <- FALSE
[13:13:56.523]                     if (inherits(cond, "message")) {
[13:13:56.523]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:56.523]                       if (muffled) 
[13:13:56.523]                         invokeRestart("muffleMessage")
[13:13:56.523]                     }
[13:13:56.523]                     else if (inherits(cond, "warning")) {
[13:13:56.523]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:56.523]                       if (muffled) 
[13:13:56.523]                         invokeRestart("muffleWarning")
[13:13:56.523]                     }
[13:13:56.523]                     else if (inherits(cond, "condition")) {
[13:13:56.523]                       if (!is.null(pattern)) {
[13:13:56.523]                         computeRestarts <- base::computeRestarts
[13:13:56.523]                         grepl <- base::grepl
[13:13:56.523]                         restarts <- computeRestarts(cond)
[13:13:56.523]                         for (restart in restarts) {
[13:13:56.523]                           name <- restart$name
[13:13:56.523]                           if (is.null(name)) 
[13:13:56.523]                             next
[13:13:56.523]                           if (!grepl(pattern, name)) 
[13:13:56.523]                             next
[13:13:56.523]                           invokeRestart(restart)
[13:13:56.523]                           muffled <- TRUE
[13:13:56.523]                           break
[13:13:56.523]                         }
[13:13:56.523]                       }
[13:13:56.523]                     }
[13:13:56.523]                     invisible(muffled)
[13:13:56.523]                   }
[13:13:56.523]                   muffleCondition(cond)
[13:13:56.523]                 })
[13:13:56.523]             }))
[13:13:56.523]             future::FutureResult(value = ...future.value$value, 
[13:13:56.523]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:56.523]                   ...future.rng), globalenv = if (FALSE) 
[13:13:56.523]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:56.523]                     ...future.globalenv.names))
[13:13:56.523]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:56.523]         }, condition = base::local({
[13:13:56.523]             c <- base::c
[13:13:56.523]             inherits <- base::inherits
[13:13:56.523]             invokeRestart <- base::invokeRestart
[13:13:56.523]             length <- base::length
[13:13:56.523]             list <- base::list
[13:13:56.523]             seq.int <- base::seq.int
[13:13:56.523]             signalCondition <- base::signalCondition
[13:13:56.523]             sys.calls <- base::sys.calls
[13:13:56.523]             `[[` <- base::`[[`
[13:13:56.523]             `+` <- base::`+`
[13:13:56.523]             `<<-` <- base::`<<-`
[13:13:56.523]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:56.523]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:56.523]                   3L)]
[13:13:56.523]             }
[13:13:56.523]             function(cond) {
[13:13:56.523]                 is_error <- inherits(cond, "error")
[13:13:56.523]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:56.523]                   NULL)
[13:13:56.523]                 if (is_error) {
[13:13:56.523]                   sessionInformation <- function() {
[13:13:56.523]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:56.523]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:56.523]                       search = base::search(), system = base::Sys.info())
[13:13:56.523]                   }
[13:13:56.523]                   ...future.conditions[[length(...future.conditions) + 
[13:13:56.523]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:56.523]                     cond$call), session = sessionInformation(), 
[13:13:56.523]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:56.523]                   signalCondition(cond)
[13:13:56.523]                 }
[13:13:56.523]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:56.523]                 "immediateCondition"))) {
[13:13:56.523]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:56.523]                   ...future.conditions[[length(...future.conditions) + 
[13:13:56.523]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:56.523]                   if (TRUE && !signal) {
[13:13:56.523]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.523]                     {
[13:13:56.523]                       inherits <- base::inherits
[13:13:56.523]                       invokeRestart <- base::invokeRestart
[13:13:56.523]                       is.null <- base::is.null
[13:13:56.523]                       muffled <- FALSE
[13:13:56.523]                       if (inherits(cond, "message")) {
[13:13:56.523]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:56.523]                         if (muffled) 
[13:13:56.523]                           invokeRestart("muffleMessage")
[13:13:56.523]                       }
[13:13:56.523]                       else if (inherits(cond, "warning")) {
[13:13:56.523]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:56.523]                         if (muffled) 
[13:13:56.523]                           invokeRestart("muffleWarning")
[13:13:56.523]                       }
[13:13:56.523]                       else if (inherits(cond, "condition")) {
[13:13:56.523]                         if (!is.null(pattern)) {
[13:13:56.523]                           computeRestarts <- base::computeRestarts
[13:13:56.523]                           grepl <- base::grepl
[13:13:56.523]                           restarts <- computeRestarts(cond)
[13:13:56.523]                           for (restart in restarts) {
[13:13:56.523]                             name <- restart$name
[13:13:56.523]                             if (is.null(name)) 
[13:13:56.523]                               next
[13:13:56.523]                             if (!grepl(pattern, name)) 
[13:13:56.523]                               next
[13:13:56.523]                             invokeRestart(restart)
[13:13:56.523]                             muffled <- TRUE
[13:13:56.523]                             break
[13:13:56.523]                           }
[13:13:56.523]                         }
[13:13:56.523]                       }
[13:13:56.523]                       invisible(muffled)
[13:13:56.523]                     }
[13:13:56.523]                     muffleCondition(cond, pattern = "^muffle")
[13:13:56.523]                   }
[13:13:56.523]                 }
[13:13:56.523]                 else {
[13:13:56.523]                   if (TRUE) {
[13:13:56.523]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.523]                     {
[13:13:56.523]                       inherits <- base::inherits
[13:13:56.523]                       invokeRestart <- base::invokeRestart
[13:13:56.523]                       is.null <- base::is.null
[13:13:56.523]                       muffled <- FALSE
[13:13:56.523]                       if (inherits(cond, "message")) {
[13:13:56.523]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:56.523]                         if (muffled) 
[13:13:56.523]                           invokeRestart("muffleMessage")
[13:13:56.523]                       }
[13:13:56.523]                       else if (inherits(cond, "warning")) {
[13:13:56.523]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:56.523]                         if (muffled) 
[13:13:56.523]                           invokeRestart("muffleWarning")
[13:13:56.523]                       }
[13:13:56.523]                       else if (inherits(cond, "condition")) {
[13:13:56.523]                         if (!is.null(pattern)) {
[13:13:56.523]                           computeRestarts <- base::computeRestarts
[13:13:56.523]                           grepl <- base::grepl
[13:13:56.523]                           restarts <- computeRestarts(cond)
[13:13:56.523]                           for (restart in restarts) {
[13:13:56.523]                             name <- restart$name
[13:13:56.523]                             if (is.null(name)) 
[13:13:56.523]                               next
[13:13:56.523]                             if (!grepl(pattern, name)) 
[13:13:56.523]                               next
[13:13:56.523]                             invokeRestart(restart)
[13:13:56.523]                             muffled <- TRUE
[13:13:56.523]                             break
[13:13:56.523]                           }
[13:13:56.523]                         }
[13:13:56.523]                       }
[13:13:56.523]                       invisible(muffled)
[13:13:56.523]                     }
[13:13:56.523]                     muffleCondition(cond, pattern = "^muffle")
[13:13:56.523]                   }
[13:13:56.523]                 }
[13:13:56.523]             }
[13:13:56.523]         }))
[13:13:56.523]     }, error = function(ex) {
[13:13:56.523]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:56.523]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:56.523]                 ...future.rng), started = ...future.startTime, 
[13:13:56.523]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:56.523]             version = "1.8"), class = "FutureResult")
[13:13:56.523]     }, finally = {
[13:13:56.523]         if (!identical(...future.workdir, getwd())) 
[13:13:56.523]             setwd(...future.workdir)
[13:13:56.523]         {
[13:13:56.523]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:56.523]                 ...future.oldOptions$nwarnings <- NULL
[13:13:56.523]             }
[13:13:56.523]             base::options(...future.oldOptions)
[13:13:56.523]             if (.Platform$OS.type == "windows") {
[13:13:56.523]                 old_names <- names(...future.oldEnvVars)
[13:13:56.523]                 envs <- base::Sys.getenv()
[13:13:56.523]                 names <- names(envs)
[13:13:56.523]                 common <- intersect(names, old_names)
[13:13:56.523]                 added <- setdiff(names, old_names)
[13:13:56.523]                 removed <- setdiff(old_names, names)
[13:13:56.523]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:56.523]                   envs[common]]
[13:13:56.523]                 NAMES <- toupper(changed)
[13:13:56.523]                 args <- list()
[13:13:56.523]                 for (kk in seq_along(NAMES)) {
[13:13:56.523]                   name <- changed[[kk]]
[13:13:56.523]                   NAME <- NAMES[[kk]]
[13:13:56.523]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.523]                     next
[13:13:56.523]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:56.523]                 }
[13:13:56.523]                 NAMES <- toupper(added)
[13:13:56.523]                 for (kk in seq_along(NAMES)) {
[13:13:56.523]                   name <- added[[kk]]
[13:13:56.523]                   NAME <- NAMES[[kk]]
[13:13:56.523]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.523]                     next
[13:13:56.523]                   args[[name]] <- ""
[13:13:56.523]                 }
[13:13:56.523]                 NAMES <- toupper(removed)
[13:13:56.523]                 for (kk in seq_along(NAMES)) {
[13:13:56.523]                   name <- removed[[kk]]
[13:13:56.523]                   NAME <- NAMES[[kk]]
[13:13:56.523]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.523]                     next
[13:13:56.523]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:56.523]                 }
[13:13:56.523]                 if (length(args) > 0) 
[13:13:56.523]                   base::do.call(base::Sys.setenv, args = args)
[13:13:56.523]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:56.523]             }
[13:13:56.523]             else {
[13:13:56.523]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:56.523]             }
[13:13:56.523]             {
[13:13:56.523]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:56.523]                   0L) {
[13:13:56.523]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:56.523]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:56.523]                   base::options(opts)
[13:13:56.523]                 }
[13:13:56.523]                 {
[13:13:56.523]                   {
[13:13:56.523]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:56.523]                     NULL
[13:13:56.523]                   }
[13:13:56.523]                   options(future.plan = NULL)
[13:13:56.523]                   if (is.na(NA_character_)) 
[13:13:56.523]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:56.523]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:56.523]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:56.523]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:56.523]                     envir = parent.frame()) 
[13:13:56.523]                   {
[13:13:56.523]                     if (is.function(workers)) 
[13:13:56.523]                       workers <- workers()
[13:13:56.523]                     workers <- structure(as.integer(workers), 
[13:13:56.523]                       class = class(workers))
[13:13:56.523]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:56.523]                       workers >= 1)
[13:13:56.523]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:56.523]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:56.523]                     }
[13:13:56.523]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:56.523]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:56.523]                       envir = envir)
[13:13:56.523]                     if (!future$lazy) 
[13:13:56.523]                       future <- run(future)
[13:13:56.523]                     invisible(future)
[13:13:56.523]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:56.523]                 }
[13:13:56.523]             }
[13:13:56.523]         }
[13:13:56.523]     })
[13:13:56.523]     if (TRUE) {
[13:13:56.523]         base::sink(type = "output", split = FALSE)
[13:13:56.523]         if (TRUE) {
[13:13:56.523]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:56.523]         }
[13:13:56.523]         else {
[13:13:56.523]             ...future.result["stdout"] <- base::list(NULL)
[13:13:56.523]         }
[13:13:56.523]         base::close(...future.stdout)
[13:13:56.523]         ...future.stdout <- NULL
[13:13:56.523]     }
[13:13:56.523]     ...future.result$conditions <- ...future.conditions
[13:13:56.523]     ...future.result$finished <- base::Sys.time()
[13:13:56.523]     ...future.result
[13:13:56.523] }
[13:13:56.529] Exporting 5 global objects (1.77 KiB) to cluster node #1 ...
[13:13:56.529] Exporting '...future.FUN' (1.66 KiB) to cluster node #1 ...
[13:13:56.529] Exporting '...future.FUN' (1.66 KiB) to cluster node #1 ... DONE
[13:13:56.530] Exporting 'MoreArgs' (56 bytes) to cluster node #1 ...
[13:13:56.530] Exporting 'MoreArgs' (56 bytes) to cluster node #1 ... DONE
[13:13:56.530] Exporting '...future.elements_ii' (56 bytes) to cluster node #1 ...
[13:13:56.531] Exporting '...future.elements_ii' (56 bytes) to cluster node #1 ... DONE
[13:13:56.531] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:56.532] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:56.532] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:56.532] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:56.532] Exporting 5 global objects (1.77 KiB) to cluster node #1 ... DONE
[13:13:56.533] MultisessionFuture started
[13:13:56.533] - Launch lazy future ... done
[13:13:56.533] run() for 'MultisessionFuture' ... done
[13:13:56.534] Created future:
[13:13:56.549] receiveMessageFromWorker() for ClusterFuture ...
[13:13:56.550] - Validating connection of MultisessionFuture
[13:13:56.550] - received message: FutureResult
[13:13:56.550] - Received FutureResult
[13:13:56.550] - Erased future from FutureRegistry
[13:13:56.551] result() for ClusterFuture ...
[13:13:56.551] - result already collected: FutureResult
[13:13:56.551] result() for ClusterFuture ... done
[13:13:56.551] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:56.534] MultisessionFuture:
[13:13:56.534] Label: 'future_.mapply-1'
[13:13:56.534] Expression:
[13:13:56.534] {
[13:13:56.534]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:56.534]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:56.534]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:56.534]         on.exit(options(oopts), add = TRUE)
[13:13:56.534]     }
[13:13:56.534]     {
[13:13:56.534]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:56.534]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:56.534]         do.call(mapply, args = args)
[13:13:56.534]     }
[13:13:56.534] }
[13:13:56.534] Lazy evaluation: FALSE
[13:13:56.534] Asynchronous evaluation: TRUE
[13:13:56.534] Local evaluation: TRUE
[13:13:56.534] Environment: R_GlobalEnv
[13:13:56.534] Capture standard output: TRUE
[13:13:56.534] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:56.534] Globals: 5 objects totaling 1.77 KiB (function '...future.FUN' of 1.66 KiB, list 'MoreArgs' of 56 bytes, list '...future.elements_ii' of 56 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:56.534] Packages: <none>
[13:13:56.534] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:56.534] Resolved: TRUE
[13:13:56.534] Value: <not collected>
[13:13:56.534] Conditions captured: <none>
[13:13:56.534] Early signaling: FALSE
[13:13:56.534] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:56.534] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:56.551] Chunk #1 of 2 ... DONE
[13:13:56.552] Chunk #2 of 2 ...
[13:13:56.552]  - Finding globals in '...' for chunk #2 ...
[13:13:56.552] getGlobalsAndPackages() ...
[13:13:56.552] Searching for globals...
[13:13:56.552] 
[13:13:56.553] Searching for globals ... DONE
[13:13:56.553] - globals: [0] <none>
[13:13:56.553] getGlobalsAndPackages() ... DONE
[13:13:56.553]    + additional globals found: [n=0] 
[13:13:56.553]    + additional namespaces needed: [n=0] 
[13:13:56.553]  - Finding globals in '...' for chunk #2 ... DONE
[13:13:56.554]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:56.554]  - seeds: <none>
[13:13:56.554]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.554] getGlobalsAndPackages() ...
[13:13:56.554] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.554] Resolving globals: FALSE
[13:13:56.555] The total size of the 5 globals is 1.77 KiB (1816 bytes)
[13:13:56.556] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 1.77 KiB.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (1.66 KiB of class 'function'), 'MoreArgs' (56 bytes of class 'list') and '...future.elements_ii' (56 bytes of class 'list')
[13:13:56.556] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.556] 
[13:13:56.556] getGlobalsAndPackages() ... DONE
[13:13:56.556] run() for 'Future' ...
[13:13:56.557] - state: 'created'
[13:13:56.557] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:56.570] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:56.571] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:56.571]   - Field: 'node'
[13:13:56.571]   - Field: 'label'
[13:13:56.571]   - Field: 'local'
[13:13:56.571]   - Field: 'owner'
[13:13:56.572]   - Field: 'envir'
[13:13:56.572]   - Field: 'workers'
[13:13:56.572]   - Field: 'packages'
[13:13:56.572]   - Field: 'gc'
[13:13:56.572]   - Field: 'conditions'
[13:13:56.572]   - Field: 'persistent'
[13:13:56.573]   - Field: 'expr'
[13:13:56.573]   - Field: 'uuid'
[13:13:56.573]   - Field: 'seed'
[13:13:56.573]   - Field: 'version'
[13:13:56.573]   - Field: 'result'
[13:13:56.573]   - Field: 'asynchronous'
[13:13:56.574]   - Field: 'calls'
[13:13:56.574]   - Field: 'globals'
[13:13:56.574]   - Field: 'stdout'
[13:13:56.574]   - Field: 'earlySignal'
[13:13:56.574]   - Field: 'lazy'
[13:13:56.575]   - Field: 'state'
[13:13:56.575] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:56.575] - Launch lazy future ...
[13:13:56.575] Packages needed by the future expression (n = 0): <none>
[13:13:56.575] Packages needed by future strategies (n = 0): <none>
[13:13:56.576] {
[13:13:56.576]     {
[13:13:56.576]         {
[13:13:56.576]             ...future.startTime <- base::Sys.time()
[13:13:56.576]             {
[13:13:56.576]                 {
[13:13:56.576]                   {
[13:13:56.576]                     {
[13:13:56.576]                       base::local({
[13:13:56.576]                         has_future <- base::requireNamespace("future", 
[13:13:56.576]                           quietly = TRUE)
[13:13:56.576]                         if (has_future) {
[13:13:56.576]                           ns <- base::getNamespace("future")
[13:13:56.576]                           version <- ns[[".package"]][["version"]]
[13:13:56.576]                           if (is.null(version)) 
[13:13:56.576]                             version <- utils::packageVersion("future")
[13:13:56.576]                         }
[13:13:56.576]                         else {
[13:13:56.576]                           version <- NULL
[13:13:56.576]                         }
[13:13:56.576]                         if (!has_future || version < "1.8.0") {
[13:13:56.576]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:56.576]                             "", base::R.version$version.string), 
[13:13:56.576]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:56.576]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:56.576]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:56.576]                               "release", "version")], collapse = " "), 
[13:13:56.576]                             hostname = base::Sys.info()[["nodename"]])
[13:13:56.576]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:56.576]                             info)
[13:13:56.576]                           info <- base::paste(info, collapse = "; ")
[13:13:56.576]                           if (!has_future) {
[13:13:56.576]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:56.576]                               info)
[13:13:56.576]                           }
[13:13:56.576]                           else {
[13:13:56.576]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:56.576]                               info, version)
[13:13:56.576]                           }
[13:13:56.576]                           base::stop(msg)
[13:13:56.576]                         }
[13:13:56.576]                       })
[13:13:56.576]                     }
[13:13:56.576]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:56.576]                     base::options(mc.cores = 1L)
[13:13:56.576]                   }
[13:13:56.576]                   options(future.plan = NULL)
[13:13:56.576]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:56.576]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:56.576]                 }
[13:13:56.576]                 ...future.workdir <- getwd()
[13:13:56.576]             }
[13:13:56.576]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:56.576]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:56.576]         }
[13:13:56.576]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:56.576]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:56.576]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:56.576]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:56.576]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:56.576]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:56.576]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:56.576]             base::names(...future.oldOptions))
[13:13:56.576]     }
[13:13:56.576]     if (FALSE) {
[13:13:56.576]     }
[13:13:56.576]     else {
[13:13:56.576]         if (TRUE) {
[13:13:56.576]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:56.576]                 open = "w")
[13:13:56.576]         }
[13:13:56.576]         else {
[13:13:56.576]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:56.576]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:56.576]         }
[13:13:56.576]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:56.576]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:56.576]             base::sink(type = "output", split = FALSE)
[13:13:56.576]             base::close(...future.stdout)
[13:13:56.576]         }, add = TRUE)
[13:13:56.576]     }
[13:13:56.576]     ...future.frame <- base::sys.nframe()
[13:13:56.576]     ...future.conditions <- base::list()
[13:13:56.576]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:56.576]     if (FALSE) {
[13:13:56.576]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:56.576]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:56.576]     }
[13:13:56.576]     ...future.result <- base::tryCatch({
[13:13:56.576]         base::withCallingHandlers({
[13:13:56.576]             ...future.value <- base::withVisible(base::local({
[13:13:56.576]                 ...future.makeSendCondition <- local({
[13:13:56.576]                   sendCondition <- NULL
[13:13:56.576]                   function(frame = 1L) {
[13:13:56.576]                     if (is.function(sendCondition)) 
[13:13:56.576]                       return(sendCondition)
[13:13:56.576]                     ns <- getNamespace("parallel")
[13:13:56.576]                     if (exists("sendData", mode = "function", 
[13:13:56.576]                       envir = ns)) {
[13:13:56.576]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:56.576]                         envir = ns)
[13:13:56.576]                       envir <- sys.frame(frame)
[13:13:56.576]                       master <- NULL
[13:13:56.576]                       while (!identical(envir, .GlobalEnv) && 
[13:13:56.576]                         !identical(envir, emptyenv())) {
[13:13:56.576]                         if (exists("master", mode = "list", envir = envir, 
[13:13:56.576]                           inherits = FALSE)) {
[13:13:56.576]                           master <- get("master", mode = "list", 
[13:13:56.576]                             envir = envir, inherits = FALSE)
[13:13:56.576]                           if (inherits(master, c("SOCKnode", 
[13:13:56.576]                             "SOCK0node"))) {
[13:13:56.576]                             sendCondition <<- function(cond) {
[13:13:56.576]                               data <- list(type = "VALUE", value = cond, 
[13:13:56.576]                                 success = TRUE)
[13:13:56.576]                               parallel_sendData(master, data)
[13:13:56.576]                             }
[13:13:56.576]                             return(sendCondition)
[13:13:56.576]                           }
[13:13:56.576]                         }
[13:13:56.576]                         frame <- frame + 1L
[13:13:56.576]                         envir <- sys.frame(frame)
[13:13:56.576]                       }
[13:13:56.576]                     }
[13:13:56.576]                     sendCondition <<- function(cond) NULL
[13:13:56.576]                   }
[13:13:56.576]                 })
[13:13:56.576]                 withCallingHandlers({
[13:13:56.576]                   {
[13:13:56.576]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:56.576]                     if (!identical(...future.globals.maxSize.org, 
[13:13:56.576]                       ...future.globals.maxSize)) {
[13:13:56.576]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:56.576]                       on.exit(options(oopts), add = TRUE)
[13:13:56.576]                     }
[13:13:56.576]                     {
[13:13:56.576]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:56.576]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:56.576]                         USE.NAMES = FALSE)
[13:13:56.576]                       do.call(mapply, args = args)
[13:13:56.576]                     }
[13:13:56.576]                   }
[13:13:56.576]                 }, immediateCondition = function(cond) {
[13:13:56.576]                   sendCondition <- ...future.makeSendCondition()
[13:13:56.576]                   sendCondition(cond)
[13:13:56.576]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.576]                   {
[13:13:56.576]                     inherits <- base::inherits
[13:13:56.576]                     invokeRestart <- base::invokeRestart
[13:13:56.576]                     is.null <- base::is.null
[13:13:56.576]                     muffled <- FALSE
[13:13:56.576]                     if (inherits(cond, "message")) {
[13:13:56.576]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:56.576]                       if (muffled) 
[13:13:56.576]                         invokeRestart("muffleMessage")
[13:13:56.576]                     }
[13:13:56.576]                     else if (inherits(cond, "warning")) {
[13:13:56.576]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:56.576]                       if (muffled) 
[13:13:56.576]                         invokeRestart("muffleWarning")
[13:13:56.576]                     }
[13:13:56.576]                     else if (inherits(cond, "condition")) {
[13:13:56.576]                       if (!is.null(pattern)) {
[13:13:56.576]                         computeRestarts <- base::computeRestarts
[13:13:56.576]                         grepl <- base::grepl
[13:13:56.576]                         restarts <- computeRestarts(cond)
[13:13:56.576]                         for (restart in restarts) {
[13:13:56.576]                           name <- restart$name
[13:13:56.576]                           if (is.null(name)) 
[13:13:56.576]                             next
[13:13:56.576]                           if (!grepl(pattern, name)) 
[13:13:56.576]                             next
[13:13:56.576]                           invokeRestart(restart)
[13:13:56.576]                           muffled <- TRUE
[13:13:56.576]                           break
[13:13:56.576]                         }
[13:13:56.576]                       }
[13:13:56.576]                     }
[13:13:56.576]                     invisible(muffled)
[13:13:56.576]                   }
[13:13:56.576]                   muffleCondition(cond)
[13:13:56.576]                 })
[13:13:56.576]             }))
[13:13:56.576]             future::FutureResult(value = ...future.value$value, 
[13:13:56.576]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:56.576]                   ...future.rng), globalenv = if (FALSE) 
[13:13:56.576]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:56.576]                     ...future.globalenv.names))
[13:13:56.576]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:56.576]         }, condition = base::local({
[13:13:56.576]             c <- base::c
[13:13:56.576]             inherits <- base::inherits
[13:13:56.576]             invokeRestart <- base::invokeRestart
[13:13:56.576]             length <- base::length
[13:13:56.576]             list <- base::list
[13:13:56.576]             seq.int <- base::seq.int
[13:13:56.576]             signalCondition <- base::signalCondition
[13:13:56.576]             sys.calls <- base::sys.calls
[13:13:56.576]             `[[` <- base::`[[`
[13:13:56.576]             `+` <- base::`+`
[13:13:56.576]             `<<-` <- base::`<<-`
[13:13:56.576]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:56.576]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:56.576]                   3L)]
[13:13:56.576]             }
[13:13:56.576]             function(cond) {
[13:13:56.576]                 is_error <- inherits(cond, "error")
[13:13:56.576]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:56.576]                   NULL)
[13:13:56.576]                 if (is_error) {
[13:13:56.576]                   sessionInformation <- function() {
[13:13:56.576]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:56.576]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:56.576]                       search = base::search(), system = base::Sys.info())
[13:13:56.576]                   }
[13:13:56.576]                   ...future.conditions[[length(...future.conditions) + 
[13:13:56.576]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:56.576]                     cond$call), session = sessionInformation(), 
[13:13:56.576]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:56.576]                   signalCondition(cond)
[13:13:56.576]                 }
[13:13:56.576]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:56.576]                 "immediateCondition"))) {
[13:13:56.576]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:56.576]                   ...future.conditions[[length(...future.conditions) + 
[13:13:56.576]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:56.576]                   if (TRUE && !signal) {
[13:13:56.576]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.576]                     {
[13:13:56.576]                       inherits <- base::inherits
[13:13:56.576]                       invokeRestart <- base::invokeRestart
[13:13:56.576]                       is.null <- base::is.null
[13:13:56.576]                       muffled <- FALSE
[13:13:56.576]                       if (inherits(cond, "message")) {
[13:13:56.576]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:56.576]                         if (muffled) 
[13:13:56.576]                           invokeRestart("muffleMessage")
[13:13:56.576]                       }
[13:13:56.576]                       else if (inherits(cond, "warning")) {
[13:13:56.576]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:56.576]                         if (muffled) 
[13:13:56.576]                           invokeRestart("muffleWarning")
[13:13:56.576]                       }
[13:13:56.576]                       else if (inherits(cond, "condition")) {
[13:13:56.576]                         if (!is.null(pattern)) {
[13:13:56.576]                           computeRestarts <- base::computeRestarts
[13:13:56.576]                           grepl <- base::grepl
[13:13:56.576]                           restarts <- computeRestarts(cond)
[13:13:56.576]                           for (restart in restarts) {
[13:13:56.576]                             name <- restart$name
[13:13:56.576]                             if (is.null(name)) 
[13:13:56.576]                               next
[13:13:56.576]                             if (!grepl(pattern, name)) 
[13:13:56.576]                               next
[13:13:56.576]                             invokeRestart(restart)
[13:13:56.576]                             muffled <- TRUE
[13:13:56.576]                             break
[13:13:56.576]                           }
[13:13:56.576]                         }
[13:13:56.576]                       }
[13:13:56.576]                       invisible(muffled)
[13:13:56.576]                     }
[13:13:56.576]                     muffleCondition(cond, pattern = "^muffle")
[13:13:56.576]                   }
[13:13:56.576]                 }
[13:13:56.576]                 else {
[13:13:56.576]                   if (TRUE) {
[13:13:56.576]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.576]                     {
[13:13:56.576]                       inherits <- base::inherits
[13:13:56.576]                       invokeRestart <- base::invokeRestart
[13:13:56.576]                       is.null <- base::is.null
[13:13:56.576]                       muffled <- FALSE
[13:13:56.576]                       if (inherits(cond, "message")) {
[13:13:56.576]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:56.576]                         if (muffled) 
[13:13:56.576]                           invokeRestart("muffleMessage")
[13:13:56.576]                       }
[13:13:56.576]                       else if (inherits(cond, "warning")) {
[13:13:56.576]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:56.576]                         if (muffled) 
[13:13:56.576]                           invokeRestart("muffleWarning")
[13:13:56.576]                       }
[13:13:56.576]                       else if (inherits(cond, "condition")) {
[13:13:56.576]                         if (!is.null(pattern)) {
[13:13:56.576]                           computeRestarts <- base::computeRestarts
[13:13:56.576]                           grepl <- base::grepl
[13:13:56.576]                           restarts <- computeRestarts(cond)
[13:13:56.576]                           for (restart in restarts) {
[13:13:56.576]                             name <- restart$name
[13:13:56.576]                             if (is.null(name)) 
[13:13:56.576]                               next
[13:13:56.576]                             if (!grepl(pattern, name)) 
[13:13:56.576]                               next
[13:13:56.576]                             invokeRestart(restart)
[13:13:56.576]                             muffled <- TRUE
[13:13:56.576]                             break
[13:13:56.576]                           }
[13:13:56.576]                         }
[13:13:56.576]                       }
[13:13:56.576]                       invisible(muffled)
[13:13:56.576]                     }
[13:13:56.576]                     muffleCondition(cond, pattern = "^muffle")
[13:13:56.576]                   }
[13:13:56.576]                 }
[13:13:56.576]             }
[13:13:56.576]         }))
[13:13:56.576]     }, error = function(ex) {
[13:13:56.576]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:56.576]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:56.576]                 ...future.rng), started = ...future.startTime, 
[13:13:56.576]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:56.576]             version = "1.8"), class = "FutureResult")
[13:13:56.576]     }, finally = {
[13:13:56.576]         if (!identical(...future.workdir, getwd())) 
[13:13:56.576]             setwd(...future.workdir)
[13:13:56.576]         {
[13:13:56.576]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:56.576]                 ...future.oldOptions$nwarnings <- NULL
[13:13:56.576]             }
[13:13:56.576]             base::options(...future.oldOptions)
[13:13:56.576]             if (.Platform$OS.type == "windows") {
[13:13:56.576]                 old_names <- names(...future.oldEnvVars)
[13:13:56.576]                 envs <- base::Sys.getenv()
[13:13:56.576]                 names <- names(envs)
[13:13:56.576]                 common <- intersect(names, old_names)
[13:13:56.576]                 added <- setdiff(names, old_names)
[13:13:56.576]                 removed <- setdiff(old_names, names)
[13:13:56.576]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:56.576]                   envs[common]]
[13:13:56.576]                 NAMES <- toupper(changed)
[13:13:56.576]                 args <- list()
[13:13:56.576]                 for (kk in seq_along(NAMES)) {
[13:13:56.576]                   name <- changed[[kk]]
[13:13:56.576]                   NAME <- NAMES[[kk]]
[13:13:56.576]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.576]                     next
[13:13:56.576]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:56.576]                 }
[13:13:56.576]                 NAMES <- toupper(added)
[13:13:56.576]                 for (kk in seq_along(NAMES)) {
[13:13:56.576]                   name <- added[[kk]]
[13:13:56.576]                   NAME <- NAMES[[kk]]
[13:13:56.576]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.576]                     next
[13:13:56.576]                   args[[name]] <- ""
[13:13:56.576]                 }
[13:13:56.576]                 NAMES <- toupper(removed)
[13:13:56.576]                 for (kk in seq_along(NAMES)) {
[13:13:56.576]                   name <- removed[[kk]]
[13:13:56.576]                   NAME <- NAMES[[kk]]
[13:13:56.576]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.576]                     next
[13:13:56.576]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:56.576]                 }
[13:13:56.576]                 if (length(args) > 0) 
[13:13:56.576]                   base::do.call(base::Sys.setenv, args = args)
[13:13:56.576]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:56.576]             }
[13:13:56.576]             else {
[13:13:56.576]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:56.576]             }
[13:13:56.576]             {
[13:13:56.576]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:56.576]                   0L) {
[13:13:56.576]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:56.576]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:56.576]                   base::options(opts)
[13:13:56.576]                 }
[13:13:56.576]                 {
[13:13:56.576]                   {
[13:13:56.576]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:56.576]                     NULL
[13:13:56.576]                   }
[13:13:56.576]                   options(future.plan = NULL)
[13:13:56.576]                   if (is.na(NA_character_)) 
[13:13:56.576]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:56.576]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:56.576]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:56.576]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:56.576]                     envir = parent.frame()) 
[13:13:56.576]                   {
[13:13:56.576]                     if (is.function(workers)) 
[13:13:56.576]                       workers <- workers()
[13:13:56.576]                     workers <- structure(as.integer(workers), 
[13:13:56.576]                       class = class(workers))
[13:13:56.576]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:56.576]                       workers >= 1)
[13:13:56.576]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:56.576]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:56.576]                     }
[13:13:56.576]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:56.576]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:56.576]                       envir = envir)
[13:13:56.576]                     if (!future$lazy) 
[13:13:56.576]                       future <- run(future)
[13:13:56.576]                     invisible(future)
[13:13:56.576]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:56.576]                 }
[13:13:56.576]             }
[13:13:56.576]         }
[13:13:56.576]     })
[13:13:56.576]     if (TRUE) {
[13:13:56.576]         base::sink(type = "output", split = FALSE)
[13:13:56.576]         if (TRUE) {
[13:13:56.576]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:56.576]         }
[13:13:56.576]         else {
[13:13:56.576]             ...future.result["stdout"] <- base::list(NULL)
[13:13:56.576]         }
[13:13:56.576]         base::close(...future.stdout)
[13:13:56.576]         ...future.stdout <- NULL
[13:13:56.576]     }
[13:13:56.576]     ...future.result$conditions <- ...future.conditions
[13:13:56.576]     ...future.result$finished <- base::Sys.time()
[13:13:56.576]     ...future.result
[13:13:56.576] }
[13:13:56.582] Exporting 5 global objects (1.77 KiB) to cluster node #1 ...
[13:13:56.582] Exporting '...future.FUN' (1.66 KiB) to cluster node #1 ...
[13:13:56.583] Exporting '...future.FUN' (1.66 KiB) to cluster node #1 ... DONE
[13:13:56.583] Exporting 'MoreArgs' (56 bytes) to cluster node #1 ...
[13:13:56.583] Exporting 'MoreArgs' (56 bytes) to cluster node #1 ... DONE
[13:13:56.584] Exporting '...future.elements_ii' (56 bytes) to cluster node #1 ...
[13:13:56.584] Exporting '...future.elements_ii' (56 bytes) to cluster node #1 ... DONE
[13:13:56.584] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:56.585] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:56.585] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:56.585] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:56.586] Exporting 5 global objects (1.77 KiB) to cluster node #1 ... DONE
[13:13:56.586] MultisessionFuture started
[13:13:56.587] - Launch lazy future ... done
[13:13:56.587] run() for 'MultisessionFuture' ... done
[13:13:56.587] Created future:
[13:13:56.603] receiveMessageFromWorker() for ClusterFuture ...
[13:13:56.603] - Validating connection of MultisessionFuture
[13:13:56.603] - received message: FutureResult
[13:13:56.603] - Received FutureResult
[13:13:56.603] - Erased future from FutureRegistry
[13:13:56.604] result() for ClusterFuture ...
[13:13:56.604] - result already collected: FutureResult
[13:13:56.604] result() for ClusterFuture ... done
[13:13:56.604] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:56.587] MultisessionFuture:
[13:13:56.587] Label: 'future_.mapply-2'
[13:13:56.587] Expression:
[13:13:56.587] {
[13:13:56.587]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:56.587]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:56.587]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:56.587]         on.exit(options(oopts), add = TRUE)
[13:13:56.587]     }
[13:13:56.587]     {
[13:13:56.587]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:56.587]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:56.587]         do.call(mapply, args = args)
[13:13:56.587]     }
[13:13:56.587] }
[13:13:56.587] Lazy evaluation: FALSE
[13:13:56.587] Asynchronous evaluation: TRUE
[13:13:56.587] Local evaluation: TRUE
[13:13:56.587] Environment: R_GlobalEnv
[13:13:56.587] Capture standard output: TRUE
[13:13:56.587] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:56.587] Globals: 5 objects totaling 1.77 KiB (function '...future.FUN' of 1.66 KiB, list 'MoreArgs' of 56 bytes, list '...future.elements_ii' of 56 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:56.587] Packages: <none>
[13:13:56.587] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:56.587] Resolved: TRUE
[13:13:56.587] Value: <not collected>
[13:13:56.587] Conditions captured: <none>
[13:13:56.587] Early signaling: FALSE
[13:13:56.587] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:56.587] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:56.605] Chunk #2 of 2 ... DONE
[13:13:56.605] Launching 2 futures (chunks) ... DONE
[13:13:56.605] Resolving 2 futures (chunks) ...
[13:13:56.605] resolve() on list ...
[13:13:56.605]  recursive: 0
[13:13:56.605]  length: 2
[13:13:56.605] 
[13:13:56.606] Future #1
[13:13:56.606] result() for ClusterFuture ...
[13:13:56.606] - result already collected: FutureResult
[13:13:56.606] result() for ClusterFuture ... done
[13:13:56.606] result() for ClusterFuture ...
[13:13:56.606] - result already collected: FutureResult
[13:13:56.607] result() for ClusterFuture ... done
[13:13:56.607] signalConditionsASAP(MultisessionFuture, pos=1) ...
[13:13:56.607] - nx: 2
[13:13:56.607] - relay: TRUE
[13:13:56.607] - stdout: TRUE
[13:13:56.607] - signal: TRUE
[13:13:56.608] - resignal: FALSE
[13:13:56.608] - force: TRUE
[13:13:56.608] - relayed: [n=2] FALSE, FALSE
[13:13:56.608] - queued futures: [n=2] FALSE, FALSE
[13:13:56.608]  - until=1
[13:13:56.608]  - relaying element #1
[13:13:56.608] result() for ClusterFuture ...
[13:13:56.609] - result already collected: FutureResult
[13:13:56.609] result() for ClusterFuture ... done
[13:13:56.609] result() for ClusterFuture ...
[13:13:56.609] - result already collected: FutureResult
[13:13:56.609] result() for ClusterFuture ... done
[13:13:56.609] result() for ClusterFuture ...
[13:13:56.610] - result already collected: FutureResult
[13:13:56.610] result() for ClusterFuture ... done
[13:13:56.610] result() for ClusterFuture ...
[13:13:56.610] - result already collected: FutureResult
[13:13:56.610] result() for ClusterFuture ... done
[13:13:56.610] - relayed: [n=2] TRUE, FALSE
[13:13:56.610] - queued futures: [n=2] TRUE, FALSE
[13:13:56.611] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[13:13:56.611]  length: 1 (resolved future 1)
[13:13:56.611] Future #2
[13:13:56.611] result() for ClusterFuture ...
[13:13:56.611] - result already collected: FutureResult
[13:13:56.611] result() for ClusterFuture ... done
[13:13:56.612] result() for ClusterFuture ...
[13:13:56.612] - result already collected: FutureResult
[13:13:56.612] result() for ClusterFuture ... done
[13:13:56.612] signalConditionsASAP(MultisessionFuture, pos=2) ...
[13:13:56.612] - nx: 2
[13:13:56.612] - relay: TRUE
[13:13:56.613] - stdout: TRUE
[13:13:56.613] - signal: TRUE
[13:13:56.613] - resignal: FALSE
[13:13:56.613] - force: TRUE
[13:13:56.613] - relayed: [n=2] TRUE, FALSE
[13:13:56.613] - queued futures: [n=2] TRUE, FALSE
[13:13:56.613]  - until=2
[13:13:56.614]  - relaying element #2
[13:13:56.614] result() for ClusterFuture ...
[13:13:56.614] - result already collected: FutureResult
[13:13:56.614] result() for ClusterFuture ... done
[13:13:56.614] result() for ClusterFuture ...
[13:13:56.614] - result already collected: FutureResult
[13:13:56.615] result() for ClusterFuture ... done
[13:13:56.615] result() for ClusterFuture ...
[13:13:56.615] - result already collected: FutureResult
[13:13:56.615] result() for ClusterFuture ... done
[13:13:56.615] result() for ClusterFuture ...
[13:13:56.615] - result already collected: FutureResult
[13:13:56.615] result() for ClusterFuture ... done
[13:13:56.616] - relayed: [n=2] TRUE, TRUE
[13:13:56.616] - queued futures: [n=2] TRUE, TRUE
[13:13:56.616] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[13:13:56.616]  length: 0 (resolved future 2)
[13:13:56.616] Relaying remaining futures
[13:13:56.616] signalConditionsASAP(NULL, pos=0) ...
[13:13:56.617] - nx: 2
[13:13:56.617] - relay: TRUE
[13:13:56.617] - stdout: TRUE
[13:13:56.617] - signal: TRUE
[13:13:56.617] - resignal: FALSE
[13:13:56.617] - force: TRUE
[13:13:56.617] - relayed: [n=2] TRUE, TRUE
[13:13:56.618] - queued futures: [n=2] TRUE, TRUE
 - flush all
[13:13:56.618] - relayed: [n=2] TRUE, TRUE
[13:13:56.618] - queued futures: [n=2] TRUE, TRUE
[13:13:56.618] signalConditionsASAP(NULL, pos=0) ... done
[13:13:56.618] resolve() on list ... DONE
[13:13:56.618] result() for ClusterFuture ...
[13:13:56.619] - result already collected: FutureResult
[13:13:56.619] result() for ClusterFuture ... done
[13:13:56.619] result() for ClusterFuture ...
[13:13:56.619] - result already collected: FutureResult
[13:13:56.619] result() for ClusterFuture ... done
[13:13:56.619] result() for ClusterFuture ...
[13:13:56.620] - result already collected: FutureResult
[13:13:56.620] result() for ClusterFuture ... done
[13:13:56.620] result() for ClusterFuture ...
[13:13:56.620] - result already collected: FutureResult
[13:13:56.620] result() for ClusterFuture ... done
[13:13:56.620]  - Number of value chunks collected: 2
[13:13:56.621] Resolving 2 futures (chunks) ... DONE
[13:13:56.621] Reducing values from 2 chunks ...
[13:13:56.621]  - Number of values collected after concatenation: 2
[13:13:56.621]  - Number of values expected: 2
[13:13:56.621] Reducing values from 2 chunks ... DONE
[13:13:56.621] future_mapply() ... DONE
- Recycle arguments to same length ...
[13:13:56.622] future_mapply() ...
[13:13:56.624] Number of chunks: 2
[13:13:56.624] getGlobalsAndPackagesXApply() ...
[13:13:56.624]  - future.globals: TRUE
[13:13:56.625] getGlobalsAndPackages() ...
[13:13:56.625] Searching for globals...
[13:13:56.625] - globals found: [1] 'FUN'
[13:13:56.626] Searching for globals ... DONE
[13:13:56.626] Resolving globals: FALSE
[13:13:56.626] The total size of the 1 globals is 56 bytes (56 bytes)
[13:13:56.627] The total size of the 1 globals exported for future expression ('FUN()') is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (56 bytes of class 'function')
[13:13:56.627] - globals: [1] 'FUN'
[13:13:56.627] 
[13:13:56.627] getGlobalsAndPackages() ... DONE
[13:13:56.627]  - globals found/used: [n=1] 'FUN'
[13:13:56.627]  - needed namespaces: [n=0] 
[13:13:56.628] Finding globals ... DONE
[13:13:56.628] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:56.628] List of 2
[13:13:56.628]  $ ...future.FUN:function (x, ...)  
[13:13:56.628]  $ MoreArgs     : NULL
[13:13:56.628]  - attr(*, "where")=List of 2
[13:13:56.628]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:56.628]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:56.628]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:56.628]  - attr(*, "resolved")= logi FALSE
[13:13:56.628]  - attr(*, "total_size")= num NA
[13:13:56.631] Packages to be attached in all futures: [n=0] 
[13:13:56.631] getGlobalsAndPackagesXApply() ... DONE
[13:13:56.631] Number of futures (= number of chunks): 2
[13:13:56.632] Launching 2 futures (chunks) ...
[13:13:56.632] Chunk #1 of 2 ...
[13:13:56.632]  - Finding globals in '...' for chunk #1 ...
[13:13:56.632] getGlobalsAndPackages() ...
[13:13:56.632] Searching for globals...
[13:13:56.633] 
[13:13:56.633] Searching for globals ... DONE
[13:13:56.633] - globals: [0] <none>
[13:13:56.633] getGlobalsAndPackages() ... DONE
[13:13:56.633]    + additional globals found: [n=0] 
[13:13:56.634]    + additional namespaces needed: [n=0] 
[13:13:56.634]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:56.634]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:56.634]  - seeds: <none>
[13:13:56.634]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.634] getGlobalsAndPackages() ...
[13:13:56.635] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.635] Resolving globals: FALSE
[13:13:56.635] The total size of the 5 globals is 280 bytes (280 bytes)
[13:13:56.636] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 280 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (224 bytes of class 'list'), '...future.FUN' (56 bytes of class 'function') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:56.636] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.636] 
[13:13:56.636] getGlobalsAndPackages() ... DONE
[13:13:56.637] run() for 'Future' ...
[13:13:56.637] - state: 'created'
[13:13:56.637] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:56.652] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:56.652] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:56.652]   - Field: 'node'
[13:13:56.652]   - Field: 'label'
[13:13:56.652]   - Field: 'local'
[13:13:56.653]   - Field: 'owner'
[13:13:56.653]   - Field: 'envir'
[13:13:56.653]   - Field: 'workers'
[13:13:56.653]   - Field: 'packages'
[13:13:56.653]   - Field: 'gc'
[13:13:56.653]   - Field: 'conditions'
[13:13:56.654]   - Field: 'persistent'
[13:13:56.654]   - Field: 'expr'
[13:13:56.654]   - Field: 'uuid'
[13:13:56.654]   - Field: 'seed'
[13:13:56.654]   - Field: 'version'
[13:13:56.655]   - Field: 'result'
[13:13:56.655]   - Field: 'asynchronous'
[13:13:56.655]   - Field: 'calls'
[13:13:56.655]   - Field: 'globals'
[13:13:56.655]   - Field: 'stdout'
[13:13:56.655]   - Field: 'earlySignal'
[13:13:56.656]   - Field: 'lazy'
[13:13:56.656]   - Field: 'state'
[13:13:56.656] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:56.656] - Launch lazy future ...
[13:13:56.656] Packages needed by the future expression (n = 0): <none>
[13:13:56.657] Packages needed by future strategies (n = 0): <none>
[13:13:56.657] {
[13:13:56.657]     {
[13:13:56.657]         {
[13:13:56.657]             ...future.startTime <- base::Sys.time()
[13:13:56.657]             {
[13:13:56.657]                 {
[13:13:56.657]                   {
[13:13:56.657]                     {
[13:13:56.657]                       base::local({
[13:13:56.657]                         has_future <- base::requireNamespace("future", 
[13:13:56.657]                           quietly = TRUE)
[13:13:56.657]                         if (has_future) {
[13:13:56.657]                           ns <- base::getNamespace("future")
[13:13:56.657]                           version <- ns[[".package"]][["version"]]
[13:13:56.657]                           if (is.null(version)) 
[13:13:56.657]                             version <- utils::packageVersion("future")
[13:13:56.657]                         }
[13:13:56.657]                         else {
[13:13:56.657]                           version <- NULL
[13:13:56.657]                         }
[13:13:56.657]                         if (!has_future || version < "1.8.0") {
[13:13:56.657]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:56.657]                             "", base::R.version$version.string), 
[13:13:56.657]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:56.657]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:56.657]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:56.657]                               "release", "version")], collapse = " "), 
[13:13:56.657]                             hostname = base::Sys.info()[["nodename"]])
[13:13:56.657]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:56.657]                             info)
[13:13:56.657]                           info <- base::paste(info, collapse = "; ")
[13:13:56.657]                           if (!has_future) {
[13:13:56.657]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:56.657]                               info)
[13:13:56.657]                           }
[13:13:56.657]                           else {
[13:13:56.657]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:56.657]                               info, version)
[13:13:56.657]                           }
[13:13:56.657]                           base::stop(msg)
[13:13:56.657]                         }
[13:13:56.657]                       })
[13:13:56.657]                     }
[13:13:56.657]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:56.657]                     base::options(mc.cores = 1L)
[13:13:56.657]                   }
[13:13:56.657]                   options(future.plan = NULL)
[13:13:56.657]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:56.657]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:56.657]                 }
[13:13:56.657]                 ...future.workdir <- getwd()
[13:13:56.657]             }
[13:13:56.657]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:56.657]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:56.657]         }
[13:13:56.657]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:56.657]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:56.657]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:56.657]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:56.657]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:56.657]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:56.657]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:56.657]             base::names(...future.oldOptions))
[13:13:56.657]     }
[13:13:56.657]     if (FALSE) {
[13:13:56.657]     }
[13:13:56.657]     else {
[13:13:56.657]         if (TRUE) {
[13:13:56.657]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:56.657]                 open = "w")
[13:13:56.657]         }
[13:13:56.657]         else {
[13:13:56.657]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:56.657]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:56.657]         }
[13:13:56.657]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:56.657]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:56.657]             base::sink(type = "output", split = FALSE)
[13:13:56.657]             base::close(...future.stdout)
[13:13:56.657]         }, add = TRUE)
[13:13:56.657]     }
[13:13:56.657]     ...future.frame <- base::sys.nframe()
[13:13:56.657]     ...future.conditions <- base::list()
[13:13:56.657]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:56.657]     if (FALSE) {
[13:13:56.657]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:56.657]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:56.657]     }
[13:13:56.657]     ...future.result <- base::tryCatch({
[13:13:56.657]         base::withCallingHandlers({
[13:13:56.657]             ...future.value <- base::withVisible(base::local({
[13:13:56.657]                 ...future.makeSendCondition <- local({
[13:13:56.657]                   sendCondition <- NULL
[13:13:56.657]                   function(frame = 1L) {
[13:13:56.657]                     if (is.function(sendCondition)) 
[13:13:56.657]                       return(sendCondition)
[13:13:56.657]                     ns <- getNamespace("parallel")
[13:13:56.657]                     if (exists("sendData", mode = "function", 
[13:13:56.657]                       envir = ns)) {
[13:13:56.657]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:56.657]                         envir = ns)
[13:13:56.657]                       envir <- sys.frame(frame)
[13:13:56.657]                       master <- NULL
[13:13:56.657]                       while (!identical(envir, .GlobalEnv) && 
[13:13:56.657]                         !identical(envir, emptyenv())) {
[13:13:56.657]                         if (exists("master", mode = "list", envir = envir, 
[13:13:56.657]                           inherits = FALSE)) {
[13:13:56.657]                           master <- get("master", mode = "list", 
[13:13:56.657]                             envir = envir, inherits = FALSE)
[13:13:56.657]                           if (inherits(master, c("SOCKnode", 
[13:13:56.657]                             "SOCK0node"))) {
[13:13:56.657]                             sendCondition <<- function(cond) {
[13:13:56.657]                               data <- list(type = "VALUE", value = cond, 
[13:13:56.657]                                 success = TRUE)
[13:13:56.657]                               parallel_sendData(master, data)
[13:13:56.657]                             }
[13:13:56.657]                             return(sendCondition)
[13:13:56.657]                           }
[13:13:56.657]                         }
[13:13:56.657]                         frame <- frame + 1L
[13:13:56.657]                         envir <- sys.frame(frame)
[13:13:56.657]                       }
[13:13:56.657]                     }
[13:13:56.657]                     sendCondition <<- function(cond) NULL
[13:13:56.657]                   }
[13:13:56.657]                 })
[13:13:56.657]                 withCallingHandlers({
[13:13:56.657]                   {
[13:13:56.657]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:56.657]                     if (!identical(...future.globals.maxSize.org, 
[13:13:56.657]                       ...future.globals.maxSize)) {
[13:13:56.657]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:56.657]                       on.exit(options(oopts), add = TRUE)
[13:13:56.657]                     }
[13:13:56.657]                     {
[13:13:56.657]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:56.657]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:56.657]                         USE.NAMES = FALSE)
[13:13:56.657]                       do.call(mapply, args = args)
[13:13:56.657]                     }
[13:13:56.657]                   }
[13:13:56.657]                 }, immediateCondition = function(cond) {
[13:13:56.657]                   sendCondition <- ...future.makeSendCondition()
[13:13:56.657]                   sendCondition(cond)
[13:13:56.657]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.657]                   {
[13:13:56.657]                     inherits <- base::inherits
[13:13:56.657]                     invokeRestart <- base::invokeRestart
[13:13:56.657]                     is.null <- base::is.null
[13:13:56.657]                     muffled <- FALSE
[13:13:56.657]                     if (inherits(cond, "message")) {
[13:13:56.657]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:56.657]                       if (muffled) 
[13:13:56.657]                         invokeRestart("muffleMessage")
[13:13:56.657]                     }
[13:13:56.657]                     else if (inherits(cond, "warning")) {
[13:13:56.657]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:56.657]                       if (muffled) 
[13:13:56.657]                         invokeRestart("muffleWarning")
[13:13:56.657]                     }
[13:13:56.657]                     else if (inherits(cond, "condition")) {
[13:13:56.657]                       if (!is.null(pattern)) {
[13:13:56.657]                         computeRestarts <- base::computeRestarts
[13:13:56.657]                         grepl <- base::grepl
[13:13:56.657]                         restarts <- computeRestarts(cond)
[13:13:56.657]                         for (restart in restarts) {
[13:13:56.657]                           name <- restart$name
[13:13:56.657]                           if (is.null(name)) 
[13:13:56.657]                             next
[13:13:56.657]                           if (!grepl(pattern, name)) 
[13:13:56.657]                             next
[13:13:56.657]                           invokeRestart(restart)
[13:13:56.657]                           muffled <- TRUE
[13:13:56.657]                           break
[13:13:56.657]                         }
[13:13:56.657]                       }
[13:13:56.657]                     }
[13:13:56.657]                     invisible(muffled)
[13:13:56.657]                   }
[13:13:56.657]                   muffleCondition(cond)
[13:13:56.657]                 })
[13:13:56.657]             }))
[13:13:56.657]             future::FutureResult(value = ...future.value$value, 
[13:13:56.657]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:56.657]                   ...future.rng), globalenv = if (FALSE) 
[13:13:56.657]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:56.657]                     ...future.globalenv.names))
[13:13:56.657]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:56.657]         }, condition = base::local({
[13:13:56.657]             c <- base::c
[13:13:56.657]             inherits <- base::inherits
[13:13:56.657]             invokeRestart <- base::invokeRestart
[13:13:56.657]             length <- base::length
[13:13:56.657]             list <- base::list
[13:13:56.657]             seq.int <- base::seq.int
[13:13:56.657]             signalCondition <- base::signalCondition
[13:13:56.657]             sys.calls <- base::sys.calls
[13:13:56.657]             `[[` <- base::`[[`
[13:13:56.657]             `+` <- base::`+`
[13:13:56.657]             `<<-` <- base::`<<-`
[13:13:56.657]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:56.657]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:56.657]                   3L)]
[13:13:56.657]             }
[13:13:56.657]             function(cond) {
[13:13:56.657]                 is_error <- inherits(cond, "error")
[13:13:56.657]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:56.657]                   NULL)
[13:13:56.657]                 if (is_error) {
[13:13:56.657]                   sessionInformation <- function() {
[13:13:56.657]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:56.657]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:56.657]                       search = base::search(), system = base::Sys.info())
[13:13:56.657]                   }
[13:13:56.657]                   ...future.conditions[[length(...future.conditions) + 
[13:13:56.657]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:56.657]                     cond$call), session = sessionInformation(), 
[13:13:56.657]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:56.657]                   signalCondition(cond)
[13:13:56.657]                 }
[13:13:56.657]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:56.657]                 "immediateCondition"))) {
[13:13:56.657]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:56.657]                   ...future.conditions[[length(...future.conditions) + 
[13:13:56.657]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:56.657]                   if (TRUE && !signal) {
[13:13:56.657]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.657]                     {
[13:13:56.657]                       inherits <- base::inherits
[13:13:56.657]                       invokeRestart <- base::invokeRestart
[13:13:56.657]                       is.null <- base::is.null
[13:13:56.657]                       muffled <- FALSE
[13:13:56.657]                       if (inherits(cond, "message")) {
[13:13:56.657]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:56.657]                         if (muffled) 
[13:13:56.657]                           invokeRestart("muffleMessage")
[13:13:56.657]                       }
[13:13:56.657]                       else if (inherits(cond, "warning")) {
[13:13:56.657]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:56.657]                         if (muffled) 
[13:13:56.657]                           invokeRestart("muffleWarning")
[13:13:56.657]                       }
[13:13:56.657]                       else if (inherits(cond, "condition")) {
[13:13:56.657]                         if (!is.null(pattern)) {
[13:13:56.657]                           computeRestarts <- base::computeRestarts
[13:13:56.657]                           grepl <- base::grepl
[13:13:56.657]                           restarts <- computeRestarts(cond)
[13:13:56.657]                           for (restart in restarts) {
[13:13:56.657]                             name <- restart$name
[13:13:56.657]                             if (is.null(name)) 
[13:13:56.657]                               next
[13:13:56.657]                             if (!grepl(pattern, name)) 
[13:13:56.657]                               next
[13:13:56.657]                             invokeRestart(restart)
[13:13:56.657]                             muffled <- TRUE
[13:13:56.657]                             break
[13:13:56.657]                           }
[13:13:56.657]                         }
[13:13:56.657]                       }
[13:13:56.657]                       invisible(muffled)
[13:13:56.657]                     }
[13:13:56.657]                     muffleCondition(cond, pattern = "^muffle")
[13:13:56.657]                   }
[13:13:56.657]                 }
[13:13:56.657]                 else {
[13:13:56.657]                   if (TRUE) {
[13:13:56.657]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.657]                     {
[13:13:56.657]                       inherits <- base::inherits
[13:13:56.657]                       invokeRestart <- base::invokeRestart
[13:13:56.657]                       is.null <- base::is.null
[13:13:56.657]                       muffled <- FALSE
[13:13:56.657]                       if (inherits(cond, "message")) {
[13:13:56.657]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:56.657]                         if (muffled) 
[13:13:56.657]                           invokeRestart("muffleMessage")
[13:13:56.657]                       }
[13:13:56.657]                       else if (inherits(cond, "warning")) {
[13:13:56.657]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:56.657]                         if (muffled) 
[13:13:56.657]                           invokeRestart("muffleWarning")
[13:13:56.657]                       }
[13:13:56.657]                       else if (inherits(cond, "condition")) {
[13:13:56.657]                         if (!is.null(pattern)) {
[13:13:56.657]                           computeRestarts <- base::computeRestarts
[13:13:56.657]                           grepl <- base::grepl
[13:13:56.657]                           restarts <- computeRestarts(cond)
[13:13:56.657]                           for (restart in restarts) {
[13:13:56.657]                             name <- restart$name
[13:13:56.657]                             if (is.null(name)) 
[13:13:56.657]                               next
[13:13:56.657]                             if (!grepl(pattern, name)) 
[13:13:56.657]                               next
[13:13:56.657]                             invokeRestart(restart)
[13:13:56.657]                             muffled <- TRUE
[13:13:56.657]                             break
[13:13:56.657]                           }
[13:13:56.657]                         }
[13:13:56.657]                       }
[13:13:56.657]                       invisible(muffled)
[13:13:56.657]                     }
[13:13:56.657]                     muffleCondition(cond, pattern = "^muffle")
[13:13:56.657]                   }
[13:13:56.657]                 }
[13:13:56.657]             }
[13:13:56.657]         }))
[13:13:56.657]     }, error = function(ex) {
[13:13:56.657]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:56.657]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:56.657]                 ...future.rng), started = ...future.startTime, 
[13:13:56.657]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:56.657]             version = "1.8"), class = "FutureResult")
[13:13:56.657]     }, finally = {
[13:13:56.657]         if (!identical(...future.workdir, getwd())) 
[13:13:56.657]             setwd(...future.workdir)
[13:13:56.657]         {
[13:13:56.657]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:56.657]                 ...future.oldOptions$nwarnings <- NULL
[13:13:56.657]             }
[13:13:56.657]             base::options(...future.oldOptions)
[13:13:56.657]             if (.Platform$OS.type == "windows") {
[13:13:56.657]                 old_names <- names(...future.oldEnvVars)
[13:13:56.657]                 envs <- base::Sys.getenv()
[13:13:56.657]                 names <- names(envs)
[13:13:56.657]                 common <- intersect(names, old_names)
[13:13:56.657]                 added <- setdiff(names, old_names)
[13:13:56.657]                 removed <- setdiff(old_names, names)
[13:13:56.657]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:56.657]                   envs[common]]
[13:13:56.657]                 NAMES <- toupper(changed)
[13:13:56.657]                 args <- list()
[13:13:56.657]                 for (kk in seq_along(NAMES)) {
[13:13:56.657]                   name <- changed[[kk]]
[13:13:56.657]                   NAME <- NAMES[[kk]]
[13:13:56.657]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.657]                     next
[13:13:56.657]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:56.657]                 }
[13:13:56.657]                 NAMES <- toupper(added)
[13:13:56.657]                 for (kk in seq_along(NAMES)) {
[13:13:56.657]                   name <- added[[kk]]
[13:13:56.657]                   NAME <- NAMES[[kk]]
[13:13:56.657]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.657]                     next
[13:13:56.657]                   args[[name]] <- ""
[13:13:56.657]                 }
[13:13:56.657]                 NAMES <- toupper(removed)
[13:13:56.657]                 for (kk in seq_along(NAMES)) {
[13:13:56.657]                   name <- removed[[kk]]
[13:13:56.657]                   NAME <- NAMES[[kk]]
[13:13:56.657]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.657]                     next
[13:13:56.657]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:56.657]                 }
[13:13:56.657]                 if (length(args) > 0) 
[13:13:56.657]                   base::do.call(base::Sys.setenv, args = args)
[13:13:56.657]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:56.657]             }
[13:13:56.657]             else {
[13:13:56.657]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:56.657]             }
[13:13:56.657]             {
[13:13:56.657]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:56.657]                   0L) {
[13:13:56.657]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:56.657]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:56.657]                   base::options(opts)
[13:13:56.657]                 }
[13:13:56.657]                 {
[13:13:56.657]                   {
[13:13:56.657]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:56.657]                     NULL
[13:13:56.657]                   }
[13:13:56.657]                   options(future.plan = NULL)
[13:13:56.657]                   if (is.na(NA_character_)) 
[13:13:56.657]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:56.657]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:56.657]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:56.657]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:56.657]                     envir = parent.frame()) 
[13:13:56.657]                   {
[13:13:56.657]                     if (is.function(workers)) 
[13:13:56.657]                       workers <- workers()
[13:13:56.657]                     workers <- structure(as.integer(workers), 
[13:13:56.657]                       class = class(workers))
[13:13:56.657]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:56.657]                       workers >= 1)
[13:13:56.657]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:56.657]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:56.657]                     }
[13:13:56.657]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:56.657]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:56.657]                       envir = envir)
[13:13:56.657]                     if (!future$lazy) 
[13:13:56.657]                       future <- run(future)
[13:13:56.657]                     invisible(future)
[13:13:56.657]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:56.657]                 }
[13:13:56.657]             }
[13:13:56.657]         }
[13:13:56.657]     })
[13:13:56.657]     if (TRUE) {
[13:13:56.657]         base::sink(type = "output", split = FALSE)
[13:13:56.657]         if (TRUE) {
[13:13:56.657]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:56.657]         }
[13:13:56.657]         else {
[13:13:56.657]             ...future.result["stdout"] <- base::list(NULL)
[13:13:56.657]         }
[13:13:56.657]         base::close(...future.stdout)
[13:13:56.657]         ...future.stdout <- NULL
[13:13:56.657]     }
[13:13:56.657]     ...future.result$conditions <- ...future.conditions
[13:13:56.657]     ...future.result$finished <- base::Sys.time()
[13:13:56.657]     ...future.result
[13:13:56.657] }
[13:13:56.662] Exporting 5 global objects (280 bytes) to cluster node #1 ...
[13:13:56.663] Exporting '...future.FUN' (56 bytes) to cluster node #1 ...
[13:13:56.663] Exporting '...future.FUN' (56 bytes) to cluster node #1 ... DONE
[13:13:56.663] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:56.664] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:56.664] Exporting '...future.elements_ii' (224 bytes) to cluster node #1 ...
[13:13:56.664] Exporting '...future.elements_ii' (224 bytes) to cluster node #1 ... DONE
[13:13:56.665] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:56.665] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:56.665] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:56.666] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:56.666] Exporting 5 global objects (280 bytes) to cluster node #1 ... DONE
[13:13:56.667] MultisessionFuture started
[13:13:56.667] - Launch lazy future ... done
[13:13:56.667] run() for 'MultisessionFuture' ... done
[13:13:56.667] Created future:
[13:13:56.682] receiveMessageFromWorker() for ClusterFuture ...
[13:13:56.682] - Validating connection of MultisessionFuture
[13:13:56.682] - received message: FutureResult
[13:13:56.683] - Received FutureResult
[13:13:56.683] - Erased future from FutureRegistry
[13:13:56.683] result() for ClusterFuture ...
[13:13:56.683] - result already collected: FutureResult
[13:13:56.683] result() for ClusterFuture ... done
[13:13:56.683] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:56.667] MultisessionFuture:
[13:13:56.667] Label: 'future_mapply-1'
[13:13:56.667] Expression:
[13:13:56.667] {
[13:13:56.667]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:56.667]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:56.667]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:56.667]         on.exit(options(oopts), add = TRUE)
[13:13:56.667]     }
[13:13:56.667]     {
[13:13:56.667]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:56.667]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:56.667]         do.call(mapply, args = args)
[13:13:56.667]     }
[13:13:56.667] }
[13:13:56.667] Lazy evaluation: FALSE
[13:13:56.667] Asynchronous evaluation: TRUE
[13:13:56.667] Local evaluation: TRUE
[13:13:56.667] Environment: R_GlobalEnv
[13:13:56.667] Capture standard output: TRUE
[13:13:56.667] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:56.667] Globals: 5 objects totaling 280 bytes (function '...future.FUN' of 56 bytes, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 224 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:56.667] Packages: <none>
[13:13:56.667] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:56.667] Resolved: TRUE
[13:13:56.667] Value: <not collected>
[13:13:56.667] Conditions captured: <none>
[13:13:56.667] Early signaling: FALSE
[13:13:56.667] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:56.667] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:56.684] Chunk #1 of 2 ... DONE
[13:13:56.684] Chunk #2 of 2 ...
[13:13:56.684]  - Finding globals in '...' for chunk #2 ...
[13:13:56.684] getGlobalsAndPackages() ...
[13:13:56.685] Searching for globals...
[13:13:56.685] 
[13:13:56.685] Searching for globals ... DONE
[13:13:56.685] - globals: [0] <none>
[13:13:56.685] getGlobalsAndPackages() ... DONE
[13:13:56.686]    + additional globals found: [n=0] 
[13:13:56.686]    + additional namespaces needed: [n=0] 
[13:13:56.686]  - Finding globals in '...' for chunk #2 ... DONE
[13:13:56.686]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:56.686]  - seeds: <none>
[13:13:56.686]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.687] getGlobalsAndPackages() ...
[13:13:56.687] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.687] Resolving globals: FALSE
[13:13:56.688] The total size of the 5 globals is 280 bytes (280 bytes)
[13:13:56.688] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 280 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (224 bytes of class 'list'), '...future.FUN' (56 bytes of class 'function') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:56.688] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.689] 
[13:13:56.689] getGlobalsAndPackages() ... DONE
[13:13:56.689] run() for 'Future' ...
[13:13:56.689] - state: 'created'
[13:13:56.690] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:56.704] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:56.704] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:56.704]   - Field: 'node'
[13:13:56.704]   - Field: 'label'
[13:13:56.705]   - Field: 'local'
[13:13:56.705]   - Field: 'owner'
[13:13:56.705]   - Field: 'envir'
[13:13:56.705]   - Field: 'workers'
[13:13:56.705]   - Field: 'packages'
[13:13:56.705]   - Field: 'gc'
[13:13:56.706]   - Field: 'conditions'
[13:13:56.706]   - Field: 'persistent'
[13:13:56.706]   - Field: 'expr'
[13:13:56.706]   - Field: 'uuid'
[13:13:56.706]   - Field: 'seed'
[13:13:56.707]   - Field: 'version'
[13:13:56.707]   - Field: 'result'
[13:13:56.707]   - Field: 'asynchronous'
[13:13:56.707]   - Field: 'calls'
[13:13:56.707]   - Field: 'globals'
[13:13:56.707]   - Field: 'stdout'
[13:13:56.708]   - Field: 'earlySignal'
[13:13:56.708]   - Field: 'lazy'
[13:13:56.708]   - Field: 'state'
[13:13:56.708] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:56.710] - Launch lazy future ...
[13:13:56.711] Packages needed by the future expression (n = 0): <none>
[13:13:56.711] Packages needed by future strategies (n = 0): <none>
[13:13:56.711] {
[13:13:56.711]     {
[13:13:56.711]         {
[13:13:56.711]             ...future.startTime <- base::Sys.time()
[13:13:56.711]             {
[13:13:56.711]                 {
[13:13:56.711]                   {
[13:13:56.711]                     {
[13:13:56.711]                       base::local({
[13:13:56.711]                         has_future <- base::requireNamespace("future", 
[13:13:56.711]                           quietly = TRUE)
[13:13:56.711]                         if (has_future) {
[13:13:56.711]                           ns <- base::getNamespace("future")
[13:13:56.711]                           version <- ns[[".package"]][["version"]]
[13:13:56.711]                           if (is.null(version)) 
[13:13:56.711]                             version <- utils::packageVersion("future")
[13:13:56.711]                         }
[13:13:56.711]                         else {
[13:13:56.711]                           version <- NULL
[13:13:56.711]                         }
[13:13:56.711]                         if (!has_future || version < "1.8.0") {
[13:13:56.711]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:56.711]                             "", base::R.version$version.string), 
[13:13:56.711]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:56.711]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:56.711]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:56.711]                               "release", "version")], collapse = " "), 
[13:13:56.711]                             hostname = base::Sys.info()[["nodename"]])
[13:13:56.711]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:56.711]                             info)
[13:13:56.711]                           info <- base::paste(info, collapse = "; ")
[13:13:56.711]                           if (!has_future) {
[13:13:56.711]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:56.711]                               info)
[13:13:56.711]                           }
[13:13:56.711]                           else {
[13:13:56.711]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:56.711]                               info, version)
[13:13:56.711]                           }
[13:13:56.711]                           base::stop(msg)
[13:13:56.711]                         }
[13:13:56.711]                       })
[13:13:56.711]                     }
[13:13:56.711]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:56.711]                     base::options(mc.cores = 1L)
[13:13:56.711]                   }
[13:13:56.711]                   options(future.plan = NULL)
[13:13:56.711]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:56.711]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:56.711]                 }
[13:13:56.711]                 ...future.workdir <- getwd()
[13:13:56.711]             }
[13:13:56.711]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:56.711]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:56.711]         }
[13:13:56.711]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:56.711]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:56.711]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:56.711]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:56.711]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:56.711]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:56.711]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:56.711]             base::names(...future.oldOptions))
[13:13:56.711]     }
[13:13:56.711]     if (FALSE) {
[13:13:56.711]     }
[13:13:56.711]     else {
[13:13:56.711]         if (TRUE) {
[13:13:56.711]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:56.711]                 open = "w")
[13:13:56.711]         }
[13:13:56.711]         else {
[13:13:56.711]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:56.711]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:56.711]         }
[13:13:56.711]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:56.711]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:56.711]             base::sink(type = "output", split = FALSE)
[13:13:56.711]             base::close(...future.stdout)
[13:13:56.711]         }, add = TRUE)
[13:13:56.711]     }
[13:13:56.711]     ...future.frame <- base::sys.nframe()
[13:13:56.711]     ...future.conditions <- base::list()
[13:13:56.711]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:56.711]     if (FALSE) {
[13:13:56.711]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:56.711]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:56.711]     }
[13:13:56.711]     ...future.result <- base::tryCatch({
[13:13:56.711]         base::withCallingHandlers({
[13:13:56.711]             ...future.value <- base::withVisible(base::local({
[13:13:56.711]                 ...future.makeSendCondition <- local({
[13:13:56.711]                   sendCondition <- NULL
[13:13:56.711]                   function(frame = 1L) {
[13:13:56.711]                     if (is.function(sendCondition)) 
[13:13:56.711]                       return(sendCondition)
[13:13:56.711]                     ns <- getNamespace("parallel")
[13:13:56.711]                     if (exists("sendData", mode = "function", 
[13:13:56.711]                       envir = ns)) {
[13:13:56.711]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:56.711]                         envir = ns)
[13:13:56.711]                       envir <- sys.frame(frame)
[13:13:56.711]                       master <- NULL
[13:13:56.711]                       while (!identical(envir, .GlobalEnv) && 
[13:13:56.711]                         !identical(envir, emptyenv())) {
[13:13:56.711]                         if (exists("master", mode = "list", envir = envir, 
[13:13:56.711]                           inherits = FALSE)) {
[13:13:56.711]                           master <- get("master", mode = "list", 
[13:13:56.711]                             envir = envir, inherits = FALSE)
[13:13:56.711]                           if (inherits(master, c("SOCKnode", 
[13:13:56.711]                             "SOCK0node"))) {
[13:13:56.711]                             sendCondition <<- function(cond) {
[13:13:56.711]                               data <- list(type = "VALUE", value = cond, 
[13:13:56.711]                                 success = TRUE)
[13:13:56.711]                               parallel_sendData(master, data)
[13:13:56.711]                             }
[13:13:56.711]                             return(sendCondition)
[13:13:56.711]                           }
[13:13:56.711]                         }
[13:13:56.711]                         frame <- frame + 1L
[13:13:56.711]                         envir <- sys.frame(frame)
[13:13:56.711]                       }
[13:13:56.711]                     }
[13:13:56.711]                     sendCondition <<- function(cond) NULL
[13:13:56.711]                   }
[13:13:56.711]                 })
[13:13:56.711]                 withCallingHandlers({
[13:13:56.711]                   {
[13:13:56.711]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:56.711]                     if (!identical(...future.globals.maxSize.org, 
[13:13:56.711]                       ...future.globals.maxSize)) {
[13:13:56.711]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:56.711]                       on.exit(options(oopts), add = TRUE)
[13:13:56.711]                     }
[13:13:56.711]                     {
[13:13:56.711]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:56.711]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:56.711]                         USE.NAMES = FALSE)
[13:13:56.711]                       do.call(mapply, args = args)
[13:13:56.711]                     }
[13:13:56.711]                   }
[13:13:56.711]                 }, immediateCondition = function(cond) {
[13:13:56.711]                   sendCondition <- ...future.makeSendCondition()
[13:13:56.711]                   sendCondition(cond)
[13:13:56.711]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.711]                   {
[13:13:56.711]                     inherits <- base::inherits
[13:13:56.711]                     invokeRestart <- base::invokeRestart
[13:13:56.711]                     is.null <- base::is.null
[13:13:56.711]                     muffled <- FALSE
[13:13:56.711]                     if (inherits(cond, "message")) {
[13:13:56.711]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:56.711]                       if (muffled) 
[13:13:56.711]                         invokeRestart("muffleMessage")
[13:13:56.711]                     }
[13:13:56.711]                     else if (inherits(cond, "warning")) {
[13:13:56.711]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:56.711]                       if (muffled) 
[13:13:56.711]                         invokeRestart("muffleWarning")
[13:13:56.711]                     }
[13:13:56.711]                     else if (inherits(cond, "condition")) {
[13:13:56.711]                       if (!is.null(pattern)) {
[13:13:56.711]                         computeRestarts <- base::computeRestarts
[13:13:56.711]                         grepl <- base::grepl
[13:13:56.711]                         restarts <- computeRestarts(cond)
[13:13:56.711]                         for (restart in restarts) {
[13:13:56.711]                           name <- restart$name
[13:13:56.711]                           if (is.null(name)) 
[13:13:56.711]                             next
[13:13:56.711]                           if (!grepl(pattern, name)) 
[13:13:56.711]                             next
[13:13:56.711]                           invokeRestart(restart)
[13:13:56.711]                           muffled <- TRUE
[13:13:56.711]                           break
[13:13:56.711]                         }
[13:13:56.711]                       }
[13:13:56.711]                     }
[13:13:56.711]                     invisible(muffled)
[13:13:56.711]                   }
[13:13:56.711]                   muffleCondition(cond)
[13:13:56.711]                 })
[13:13:56.711]             }))
[13:13:56.711]             future::FutureResult(value = ...future.value$value, 
[13:13:56.711]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:56.711]                   ...future.rng), globalenv = if (FALSE) 
[13:13:56.711]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:56.711]                     ...future.globalenv.names))
[13:13:56.711]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:56.711]         }, condition = base::local({
[13:13:56.711]             c <- base::c
[13:13:56.711]             inherits <- base::inherits
[13:13:56.711]             invokeRestart <- base::invokeRestart
[13:13:56.711]             length <- base::length
[13:13:56.711]             list <- base::list
[13:13:56.711]             seq.int <- base::seq.int
[13:13:56.711]             signalCondition <- base::signalCondition
[13:13:56.711]             sys.calls <- base::sys.calls
[13:13:56.711]             `[[` <- base::`[[`
[13:13:56.711]             `+` <- base::`+`
[13:13:56.711]             `<<-` <- base::`<<-`
[13:13:56.711]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:56.711]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:56.711]                   3L)]
[13:13:56.711]             }
[13:13:56.711]             function(cond) {
[13:13:56.711]                 is_error <- inherits(cond, "error")
[13:13:56.711]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:56.711]                   NULL)
[13:13:56.711]                 if (is_error) {
[13:13:56.711]                   sessionInformation <- function() {
[13:13:56.711]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:56.711]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:56.711]                       search = base::search(), system = base::Sys.info())
[13:13:56.711]                   }
[13:13:56.711]                   ...future.conditions[[length(...future.conditions) + 
[13:13:56.711]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:56.711]                     cond$call), session = sessionInformation(), 
[13:13:56.711]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:56.711]                   signalCondition(cond)
[13:13:56.711]                 }
[13:13:56.711]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:56.711]                 "immediateCondition"))) {
[13:13:56.711]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:56.711]                   ...future.conditions[[length(...future.conditions) + 
[13:13:56.711]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:56.711]                   if (TRUE && !signal) {
[13:13:56.711]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.711]                     {
[13:13:56.711]                       inherits <- base::inherits
[13:13:56.711]                       invokeRestart <- base::invokeRestart
[13:13:56.711]                       is.null <- base::is.null
[13:13:56.711]                       muffled <- FALSE
[13:13:56.711]                       if (inherits(cond, "message")) {
[13:13:56.711]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:56.711]                         if (muffled) 
[13:13:56.711]                           invokeRestart("muffleMessage")
[13:13:56.711]                       }
[13:13:56.711]                       else if (inherits(cond, "warning")) {
[13:13:56.711]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:56.711]                         if (muffled) 
[13:13:56.711]                           invokeRestart("muffleWarning")
[13:13:56.711]                       }
[13:13:56.711]                       else if (inherits(cond, "condition")) {
[13:13:56.711]                         if (!is.null(pattern)) {
[13:13:56.711]                           computeRestarts <- base::computeRestarts
[13:13:56.711]                           grepl <- base::grepl
[13:13:56.711]                           restarts <- computeRestarts(cond)
[13:13:56.711]                           for (restart in restarts) {
[13:13:56.711]                             name <- restart$name
[13:13:56.711]                             if (is.null(name)) 
[13:13:56.711]                               next
[13:13:56.711]                             if (!grepl(pattern, name)) 
[13:13:56.711]                               next
[13:13:56.711]                             invokeRestart(restart)
[13:13:56.711]                             muffled <- TRUE
[13:13:56.711]                             break
[13:13:56.711]                           }
[13:13:56.711]                         }
[13:13:56.711]                       }
[13:13:56.711]                       invisible(muffled)
[13:13:56.711]                     }
[13:13:56.711]                     muffleCondition(cond, pattern = "^muffle")
[13:13:56.711]                   }
[13:13:56.711]                 }
[13:13:56.711]                 else {
[13:13:56.711]                   if (TRUE) {
[13:13:56.711]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.711]                     {
[13:13:56.711]                       inherits <- base::inherits
[13:13:56.711]                       invokeRestart <- base::invokeRestart
[13:13:56.711]                       is.null <- base::is.null
[13:13:56.711]                       muffled <- FALSE
[13:13:56.711]                       if (inherits(cond, "message")) {
[13:13:56.711]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:56.711]                         if (muffled) 
[13:13:56.711]                           invokeRestart("muffleMessage")
[13:13:56.711]                       }
[13:13:56.711]                       else if (inherits(cond, "warning")) {
[13:13:56.711]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:56.711]                         if (muffled) 
[13:13:56.711]                           invokeRestart("muffleWarning")
[13:13:56.711]                       }
[13:13:56.711]                       else if (inherits(cond, "condition")) {
[13:13:56.711]                         if (!is.null(pattern)) {
[13:13:56.711]                           computeRestarts <- base::computeRestarts
[13:13:56.711]                           grepl <- base::grepl
[13:13:56.711]                           restarts <- computeRestarts(cond)
[13:13:56.711]                           for (restart in restarts) {
[13:13:56.711]                             name <- restart$name
[13:13:56.711]                             if (is.null(name)) 
[13:13:56.711]                               next
[13:13:56.711]                             if (!grepl(pattern, name)) 
[13:13:56.711]                               next
[13:13:56.711]                             invokeRestart(restart)
[13:13:56.711]                             muffled <- TRUE
[13:13:56.711]                             break
[13:13:56.711]                           }
[13:13:56.711]                         }
[13:13:56.711]                       }
[13:13:56.711]                       invisible(muffled)
[13:13:56.711]                     }
[13:13:56.711]                     muffleCondition(cond, pattern = "^muffle")
[13:13:56.711]                   }
[13:13:56.711]                 }
[13:13:56.711]             }
[13:13:56.711]         }))
[13:13:56.711]     }, error = function(ex) {
[13:13:56.711]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:56.711]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:56.711]                 ...future.rng), started = ...future.startTime, 
[13:13:56.711]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:56.711]             version = "1.8"), class = "FutureResult")
[13:13:56.711]     }, finally = {
[13:13:56.711]         if (!identical(...future.workdir, getwd())) 
[13:13:56.711]             setwd(...future.workdir)
[13:13:56.711]         {
[13:13:56.711]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:56.711]                 ...future.oldOptions$nwarnings <- NULL
[13:13:56.711]             }
[13:13:56.711]             base::options(...future.oldOptions)
[13:13:56.711]             if (.Platform$OS.type == "windows") {
[13:13:56.711]                 old_names <- names(...future.oldEnvVars)
[13:13:56.711]                 envs <- base::Sys.getenv()
[13:13:56.711]                 names <- names(envs)
[13:13:56.711]                 common <- intersect(names, old_names)
[13:13:56.711]                 added <- setdiff(names, old_names)
[13:13:56.711]                 removed <- setdiff(old_names, names)
[13:13:56.711]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:56.711]                   envs[common]]
[13:13:56.711]                 NAMES <- toupper(changed)
[13:13:56.711]                 args <- list()
[13:13:56.711]                 for (kk in seq_along(NAMES)) {
[13:13:56.711]                   name <- changed[[kk]]
[13:13:56.711]                   NAME <- NAMES[[kk]]
[13:13:56.711]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.711]                     next
[13:13:56.711]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:56.711]                 }
[13:13:56.711]                 NAMES <- toupper(added)
[13:13:56.711]                 for (kk in seq_along(NAMES)) {
[13:13:56.711]                   name <- added[[kk]]
[13:13:56.711]                   NAME <- NAMES[[kk]]
[13:13:56.711]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.711]                     next
[13:13:56.711]                   args[[name]] <- ""
[13:13:56.711]                 }
[13:13:56.711]                 NAMES <- toupper(removed)
[13:13:56.711]                 for (kk in seq_along(NAMES)) {
[13:13:56.711]                   name <- removed[[kk]]
[13:13:56.711]                   NAME <- NAMES[[kk]]
[13:13:56.711]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.711]                     next
[13:13:56.711]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:56.711]                 }
[13:13:56.711]                 if (length(args) > 0) 
[13:13:56.711]                   base::do.call(base::Sys.setenv, args = args)
[13:13:56.711]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:56.711]             }
[13:13:56.711]             else {
[13:13:56.711]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:56.711]             }
[13:13:56.711]             {
[13:13:56.711]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:56.711]                   0L) {
[13:13:56.711]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:56.711]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:56.711]                   base::options(opts)
[13:13:56.711]                 }
[13:13:56.711]                 {
[13:13:56.711]                   {
[13:13:56.711]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:56.711]                     NULL
[13:13:56.711]                   }
[13:13:56.711]                   options(future.plan = NULL)
[13:13:56.711]                   if (is.na(NA_character_)) 
[13:13:56.711]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:56.711]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:56.711]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:56.711]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:56.711]                     envir = parent.frame()) 
[13:13:56.711]                   {
[13:13:56.711]                     if (is.function(workers)) 
[13:13:56.711]                       workers <- workers()
[13:13:56.711]                     workers <- structure(as.integer(workers), 
[13:13:56.711]                       class = class(workers))
[13:13:56.711]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:56.711]                       workers >= 1)
[13:13:56.711]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:56.711]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:56.711]                     }
[13:13:56.711]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:56.711]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:56.711]                       envir = envir)
[13:13:56.711]                     if (!future$lazy) 
[13:13:56.711]                       future <- run(future)
[13:13:56.711]                     invisible(future)
[13:13:56.711]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:56.711]                 }
[13:13:56.711]             }
[13:13:56.711]         }
[13:13:56.711]     })
[13:13:56.711]     if (TRUE) {
[13:13:56.711]         base::sink(type = "output", split = FALSE)
[13:13:56.711]         if (TRUE) {
[13:13:56.711]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:56.711]         }
[13:13:56.711]         else {
[13:13:56.711]             ...future.result["stdout"] <- base::list(NULL)
[13:13:56.711]         }
[13:13:56.711]         base::close(...future.stdout)
[13:13:56.711]         ...future.stdout <- NULL
[13:13:56.711]     }
[13:13:56.711]     ...future.result$conditions <- ...future.conditions
[13:13:56.711]     ...future.result$finished <- base::Sys.time()
[13:13:56.711]     ...future.result
[13:13:56.711] }
[13:13:56.717] Exporting 5 global objects (280 bytes) to cluster node #1 ...
[13:13:56.717] Exporting '...future.FUN' (56 bytes) to cluster node #1 ...
[13:13:56.717] Exporting '...future.FUN' (56 bytes) to cluster node #1 ... DONE
[13:13:56.717] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:56.718] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:56.718] Exporting '...future.elements_ii' (224 bytes) to cluster node #1 ...
[13:13:56.718] Exporting '...future.elements_ii' (224 bytes) to cluster node #1 ... DONE
[13:13:56.719] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:56.719] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:56.719] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:56.720] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:56.720] Exporting 5 global objects (280 bytes) to cluster node #1 ... DONE
[13:13:56.721] MultisessionFuture started
[13:13:56.721] - Launch lazy future ... done
[13:13:56.721] run() for 'MultisessionFuture' ... done
[13:13:56.721] Created future:
[13:13:56.737] receiveMessageFromWorker() for ClusterFuture ...
[13:13:56.737] - Validating connection of MultisessionFuture
[13:13:56.737] - received message: FutureResult
[13:13:56.738] - Received FutureResult
[13:13:56.738] - Erased future from FutureRegistry
[13:13:56.738] result() for ClusterFuture ...
[13:13:56.738] - result already collected: FutureResult
[13:13:56.738] result() for ClusterFuture ... done
[13:13:56.738] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:56.721] MultisessionFuture:
[13:13:56.721] Label: 'future_mapply-2'
[13:13:56.721] Expression:
[13:13:56.721] {
[13:13:56.721]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:56.721]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:56.721]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:56.721]         on.exit(options(oopts), add = TRUE)
[13:13:56.721]     }
[13:13:56.721]     {
[13:13:56.721]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:56.721]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:56.721]         do.call(mapply, args = args)
[13:13:56.721]     }
[13:13:56.721] }
[13:13:56.721] Lazy evaluation: FALSE
[13:13:56.721] Asynchronous evaluation: TRUE
[13:13:56.721] Local evaluation: TRUE
[13:13:56.721] Environment: R_GlobalEnv
[13:13:56.721] Capture standard output: TRUE
[13:13:56.721] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:56.721] Globals: 5 objects totaling 280 bytes (function '...future.FUN' of 56 bytes, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 224 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:56.721] Packages: <none>
[13:13:56.721] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:56.721] Resolved: TRUE
[13:13:56.721] Value: <not collected>
[13:13:56.721] Conditions captured: <none>
[13:13:56.721] Early signaling: FALSE
[13:13:56.721] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:56.721] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:56.739] Chunk #2 of 2 ... DONE
[13:13:56.739] Launching 2 futures (chunks) ... DONE
[13:13:56.739] Resolving 2 futures (chunks) ...
[13:13:56.739] resolve() on list ...
[13:13:56.740]  recursive: 0
[13:13:56.740]  length: 2
[13:13:56.740] 
[13:13:56.740] Future #1
[13:13:56.740] result() for ClusterFuture ...
[13:13:56.740] - result already collected: FutureResult
[13:13:56.740] result() for ClusterFuture ... done
[13:13:56.741] result() for ClusterFuture ...
[13:13:56.741] - result already collected: FutureResult
[13:13:56.741] result() for ClusterFuture ... done
[13:13:56.741] signalConditionsASAP(MultisessionFuture, pos=1) ...
[13:13:56.741] - nx: 2
[13:13:56.741] - relay: TRUE
[13:13:56.742] - stdout: TRUE
[13:13:56.742] - signal: TRUE
[13:13:56.742] - resignal: FALSE
[13:13:56.742] - force: TRUE
[13:13:56.742] - relayed: [n=2] FALSE, FALSE
[13:13:56.742] - queued futures: [n=2] FALSE, FALSE
[13:13:56.743]  - until=1
[13:13:56.743]  - relaying element #1
[13:13:56.743] result() for ClusterFuture ...
[13:13:56.743] - result already collected: FutureResult
[13:13:56.743] result() for ClusterFuture ... done
[13:13:56.743] result() for ClusterFuture ...
[13:13:56.743] - result already collected: FutureResult
[13:13:56.744] result() for ClusterFuture ... done
[13:13:56.744] result() for ClusterFuture ...
[13:13:56.744] - result already collected: FutureResult
[13:13:56.744] result() for ClusterFuture ... done
[13:13:56.744] result() for ClusterFuture ...
[13:13:56.744] - result already collected: FutureResult
[13:13:56.745] result() for ClusterFuture ... done
[13:13:56.745] - relayed: [n=2] TRUE, FALSE
[13:13:56.745] - queued futures: [n=2] TRUE, FALSE
[13:13:56.745] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[13:13:56.745]  length: 1 (resolved future 1)
[13:13:56.745] Future #2
[13:13:56.746] result() for ClusterFuture ...
[13:13:56.746] - result already collected: FutureResult
[13:13:56.746] result() for ClusterFuture ... done
[13:13:56.746] result() for ClusterFuture ...
[13:13:56.746] - result already collected: FutureResult
[13:13:56.746] result() for ClusterFuture ... done
[13:13:56.747] signalConditionsASAP(MultisessionFuture, pos=2) ...
[13:13:56.747] - nx: 2
[13:13:56.747] - relay: TRUE
[13:13:56.747] - stdout: TRUE
[13:13:56.747] - signal: TRUE
[13:13:56.747] - resignal: FALSE
[13:13:56.747] - force: TRUE
[13:13:56.748] - relayed: [n=2] TRUE, FALSE
[13:13:56.748] - queued futures: [n=2] TRUE, FALSE
[13:13:56.748]  - until=2
[13:13:56.748]  - relaying element #2
[13:13:56.748] result() for ClusterFuture ...
[13:13:56.748] - result already collected: FutureResult
[13:13:56.749] result() for ClusterFuture ... done
[13:13:56.749] result() for ClusterFuture ...
[13:13:56.749] - result already collected: FutureResult
[13:13:56.749] result() for ClusterFuture ... done
[13:13:56.749] result() for ClusterFuture ...
[13:13:56.749] - result already collected: FutureResult
[13:13:56.749] result() for ClusterFuture ... done
[13:13:56.750] result() for ClusterFuture ...
[13:13:56.750] - result already collected: FutureResult
[13:13:56.750] result() for ClusterFuture ... done
[13:13:56.750] - relayed: [n=2] TRUE, TRUE
[13:13:56.750] - queued futures: [n=2] TRUE, TRUE
[13:13:56.750] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[13:13:56.751]  length: 0 (resolved future 2)
[13:13:56.751] Relaying remaining futures
[13:13:56.751] signalConditionsASAP(NULL, pos=0) ...
[13:13:56.751] - nx: 2
[13:13:56.751] - relay: TRUE
[13:13:56.751] - stdout: TRUE
[13:13:56.751] - signal: TRUE
[13:13:56.752] - resignal: FALSE
[13:13:56.752] - force: TRUE
[13:13:56.752] - relayed: [n=2] TRUE, TRUE
[13:13:56.752] - queued futures: [n=2] TRUE, TRUE
 - flush all
[13:13:56.752] - relayed: [n=2] TRUE, TRUE
[13:13:56.752] - queued futures: [n=2] TRUE, TRUE
[13:13:56.753] signalConditionsASAP(NULL, pos=0) ... done
[13:13:56.753] resolve() on list ... DONE
[13:13:56.753] result() for ClusterFuture ...
[13:13:56.753] - result already collected: FutureResult
[13:13:56.753] result() for ClusterFuture ... done
[13:13:56.754] result() for ClusterFuture ...
[13:13:56.754] - result already collected: FutureResult
[13:13:56.754] result() for ClusterFuture ... done
[13:13:56.754] result() for ClusterFuture ...
[13:13:56.754] - result already collected: FutureResult
[13:13:56.754] result() for ClusterFuture ... done
[13:13:56.755] result() for ClusterFuture ...
[13:13:56.755] - result already collected: FutureResult
[13:13:56.755] result() for ClusterFuture ... done
[13:13:56.755]  - Number of value chunks collected: 2
[13:13:56.755] Resolving 2 futures (chunks) ... DONE
[13:13:56.755] Reducing values from 2 chunks ...
[13:13:56.755]  - Number of values collected after concatenation: 4
[13:13:56.756]  - Number of values expected: 4
[13:13:56.756] Reducing values from 2 chunks ... DONE
[13:13:56.756] future_mapply() ... DONE
- Parallel RNG ...
[13:13:56.756] future_mapply() ...
[13:13:56.756] Generating random seeds ...
[13:13:56.757] Generating random seed streams for 4 elements ...
[13:13:56.757] Generating random seed streams for 4 elements ... DONE
[13:13:56.757] Generating random seeds ... DONE
[13:13:56.757] Will set RNG state on exit: 10407, 1834436782, 286162678, 179292214, -211438477, 360205059, -1498076858
[13:13:56.760] Number of chunks: 2
[13:13:56.760] getGlobalsAndPackagesXApply() ...
[13:13:56.760]  - future.globals: TRUE
[13:13:56.760] getGlobalsAndPackages() ...
[13:13:56.760] Searching for globals...
[13:13:56.762] - globals found: [3] 'FUN', '.Call', 'C_runif'
[13:13:56.762] Searching for globals ... DONE
[13:13:56.762] Resolving globals: FALSE
[13:13:56.763] The total size of the 1 globals is 2.04 KiB (2088 bytes)
[13:13:56.763] The total size of the 1 globals exported for future expression ('FUN(min = 1)') is 2.04 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (2.04 KiB of class 'function')
[13:13:56.763] - globals: [1] 'FUN'
[13:13:56.764] - packages: [1] 'stats'
[13:13:56.764] getGlobalsAndPackages() ... DONE
[13:13:56.764]  - globals found/used: [n=1] 'FUN'
[13:13:56.764]  - needed namespaces: [n=1] 'stats'
[13:13:56.764] Finding globals ... DONE
[13:13:56.765] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:56.765] List of 2
[13:13:56.765]  $ ...future.FUN:function (n, min = 0, max = 1)  
[13:13:56.765]  $ MoreArgs     :List of 1
[13:13:56.765]   ..$ min: num 1
[13:13:56.765]  - attr(*, "where")=List of 2
[13:13:56.765]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:56.765]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:56.765]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:56.765]  - attr(*, "resolved")= logi FALSE
[13:13:56.765]  - attr(*, "total_size")= num NA
[13:13:56.768] Packages to be attached in all futures: [n=1] 'stats'
[13:13:56.768] getGlobalsAndPackagesXApply() ... DONE
[13:13:56.769] Number of futures (= number of chunks): 2
[13:13:56.769] Launching 2 futures (chunks) ...
[13:13:56.769] Chunk #1 of 2 ...
[13:13:56.769]  - Finding globals in '...' for chunk #1 ...
[13:13:56.769] getGlobalsAndPackages() ...
[13:13:56.770] Searching for globals...
[13:13:56.770] 
[13:13:56.770] Searching for globals ... DONE
[13:13:56.770] - globals: [0] <none>
[13:13:56.771] getGlobalsAndPackages() ... DONE
[13:13:56.771]    + additional globals found: [n=0] 
[13:13:56.771]    + additional namespaces needed: [n=0] 
[13:13:56.771]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:56.771]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:56.772]  - seeds: [2] <seeds>
[13:13:56.772]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.772] getGlobalsAndPackages() ...
[13:13:56.772] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.772] Resolving globals: FALSE
[13:13:56.773] The total size of the 5 globals is 2.47 KiB (2528 bytes)
[13:13:56.774] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 2.47 KiB.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (2.04 KiB of class 'function'), '...future.elements_ii' (224 bytes of class 'list') and '...future.seeds_ii' (160 bytes of class 'list')
[13:13:56.774] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.774] - packages: [1] 'stats'
[13:13:56.774] getGlobalsAndPackages() ... DONE
[13:13:56.774] run() for 'Future' ...
[13:13:56.775] - state: 'created'
[13:13:56.775] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:56.788] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:56.789] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:56.789]   - Field: 'node'
[13:13:56.789]   - Field: 'label'
[13:13:56.789]   - Field: 'local'
[13:13:56.789]   - Field: 'owner'
[13:13:56.790]   - Field: 'envir'
[13:13:56.790]   - Field: 'workers'
[13:13:56.790]   - Field: 'packages'
[13:13:56.790]   - Field: 'gc'
[13:13:56.790]   - Field: 'conditions'
[13:13:56.790]   - Field: 'persistent'
[13:13:56.791]   - Field: 'expr'
[13:13:56.791]   - Field: 'uuid'
[13:13:56.791]   - Field: 'seed'
[13:13:56.791]   - Field: 'version'
[13:13:56.791]   - Field: 'result'
[13:13:56.791]   - Field: 'asynchronous'
[13:13:56.792]   - Field: 'calls'
[13:13:56.792]   - Field: 'globals'
[13:13:56.792]   - Field: 'stdout'
[13:13:56.792]   - Field: 'earlySignal'
[13:13:56.792]   - Field: 'lazy'
[13:13:56.793]   - Field: 'state'
[13:13:56.793] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:56.793] - Launch lazy future ...
[13:13:56.793] Packages needed by the future expression (n = 1): 'stats'
[13:13:56.793] Packages needed by future strategies (n = 0): <none>
[13:13:56.794] {
[13:13:56.794]     {
[13:13:56.794]         {
[13:13:56.794]             ...future.startTime <- base::Sys.time()
[13:13:56.794]             {
[13:13:56.794]                 {
[13:13:56.794]                   {
[13:13:56.794]                     {
[13:13:56.794]                       {
[13:13:56.794]                         base::local({
[13:13:56.794]                           has_future <- base::requireNamespace("future", 
[13:13:56.794]                             quietly = TRUE)
[13:13:56.794]                           if (has_future) {
[13:13:56.794]                             ns <- base::getNamespace("future")
[13:13:56.794]                             version <- ns[[".package"]][["version"]]
[13:13:56.794]                             if (is.null(version)) 
[13:13:56.794]                               version <- utils::packageVersion("future")
[13:13:56.794]                           }
[13:13:56.794]                           else {
[13:13:56.794]                             version <- NULL
[13:13:56.794]                           }
[13:13:56.794]                           if (!has_future || version < "1.8.0") {
[13:13:56.794]                             info <- base::c(r_version = base::gsub("R version ", 
[13:13:56.794]                               "", base::R.version$version.string), 
[13:13:56.794]                               platform = base::sprintf("%s (%s-bit)", 
[13:13:56.794]                                 base::R.version$platform, 8 * 
[13:13:56.794]                                   base::.Machine$sizeof.pointer), 
[13:13:56.794]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:56.794]                                 "release", "version")], collapse = " "), 
[13:13:56.794]                               hostname = base::Sys.info()[["nodename"]])
[13:13:56.794]                             info <- base::sprintf("%s: %s", base::names(info), 
[13:13:56.794]                               info)
[13:13:56.794]                             info <- base::paste(info, collapse = "; ")
[13:13:56.794]                             if (!has_future) {
[13:13:56.794]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:56.794]                                 info)
[13:13:56.794]                             }
[13:13:56.794]                             else {
[13:13:56.794]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:56.794]                                 info, version)
[13:13:56.794]                             }
[13:13:56.794]                             base::stop(msg)
[13:13:56.794]                           }
[13:13:56.794]                         })
[13:13:56.794]                       }
[13:13:56.794]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:56.794]                       base::options(mc.cores = 1L)
[13:13:56.794]                     }
[13:13:56.794]                     base::local({
[13:13:56.794]                       for (pkg in "stats") {
[13:13:56.794]                         base::loadNamespace(pkg)
[13:13:56.794]                         base::library(pkg, character.only = TRUE)
[13:13:56.794]                       }
[13:13:56.794]                     })
[13:13:56.794]                   }
[13:13:56.794]                   options(future.plan = NULL)
[13:13:56.794]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:56.794]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:56.794]                 }
[13:13:56.794]                 ...future.workdir <- getwd()
[13:13:56.794]             }
[13:13:56.794]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:56.794]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:56.794]         }
[13:13:56.794]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:56.794]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:56.794]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:56.794]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:56.794]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:56.794]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:56.794]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:56.794]             base::names(...future.oldOptions))
[13:13:56.794]     }
[13:13:56.794]     if (FALSE) {
[13:13:56.794]     }
[13:13:56.794]     else {
[13:13:56.794]         if (TRUE) {
[13:13:56.794]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:56.794]                 open = "w")
[13:13:56.794]         }
[13:13:56.794]         else {
[13:13:56.794]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:56.794]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:56.794]         }
[13:13:56.794]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:56.794]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:56.794]             base::sink(type = "output", split = FALSE)
[13:13:56.794]             base::close(...future.stdout)
[13:13:56.794]         }, add = TRUE)
[13:13:56.794]     }
[13:13:56.794]     ...future.frame <- base::sys.nframe()
[13:13:56.794]     ...future.conditions <- base::list()
[13:13:56.794]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:56.794]     if (FALSE) {
[13:13:56.794]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:56.794]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:56.794]     }
[13:13:56.794]     ...future.result <- base::tryCatch({
[13:13:56.794]         base::withCallingHandlers({
[13:13:56.794]             ...future.value <- base::withVisible(base::local({
[13:13:56.794]                 ...future.makeSendCondition <- local({
[13:13:56.794]                   sendCondition <- NULL
[13:13:56.794]                   function(frame = 1L) {
[13:13:56.794]                     if (is.function(sendCondition)) 
[13:13:56.794]                       return(sendCondition)
[13:13:56.794]                     ns <- getNamespace("parallel")
[13:13:56.794]                     if (exists("sendData", mode = "function", 
[13:13:56.794]                       envir = ns)) {
[13:13:56.794]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:56.794]                         envir = ns)
[13:13:56.794]                       envir <- sys.frame(frame)
[13:13:56.794]                       master <- NULL
[13:13:56.794]                       while (!identical(envir, .GlobalEnv) && 
[13:13:56.794]                         !identical(envir, emptyenv())) {
[13:13:56.794]                         if (exists("master", mode = "list", envir = envir, 
[13:13:56.794]                           inherits = FALSE)) {
[13:13:56.794]                           master <- get("master", mode = "list", 
[13:13:56.794]                             envir = envir, inherits = FALSE)
[13:13:56.794]                           if (inherits(master, c("SOCKnode", 
[13:13:56.794]                             "SOCK0node"))) {
[13:13:56.794]                             sendCondition <<- function(cond) {
[13:13:56.794]                               data <- list(type = "VALUE", value = cond, 
[13:13:56.794]                                 success = TRUE)
[13:13:56.794]                               parallel_sendData(master, data)
[13:13:56.794]                             }
[13:13:56.794]                             return(sendCondition)
[13:13:56.794]                           }
[13:13:56.794]                         }
[13:13:56.794]                         frame <- frame + 1L
[13:13:56.794]                         envir <- sys.frame(frame)
[13:13:56.794]                       }
[13:13:56.794]                     }
[13:13:56.794]                     sendCondition <<- function(cond) NULL
[13:13:56.794]                   }
[13:13:56.794]                 })
[13:13:56.794]                 withCallingHandlers({
[13:13:56.794]                   {
[13:13:56.794]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:56.794]                     if (!identical(...future.globals.maxSize.org, 
[13:13:56.794]                       ...future.globals.maxSize)) {
[13:13:56.794]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:56.794]                       on.exit(options(oopts), add = TRUE)
[13:13:56.794]                     }
[13:13:56.794]                     {
[13:13:56.794]                       ...future.FUN2 <- function(..., ...future.seeds_ii_jj) {
[13:13:56.794]                         assign(".Random.seed", ...future.seeds_ii_jj, 
[13:13:56.794]                           envir = globalenv(), inherits = FALSE)
[13:13:56.794]                         ...future.FUN(...)
[13:13:56.794]                       }
[13:13:56.794]                       args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 
[13:13:56.794]                         list(...future.seeds_ii_jj = ...future.seeds_ii), 
[13:13:56.794]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:56.794]                         USE.NAMES = FALSE)
[13:13:56.794]                       do.call(mapply, args = args)
[13:13:56.794]                     }
[13:13:56.794]                   }
[13:13:56.794]                 }, immediateCondition = function(cond) {
[13:13:56.794]                   sendCondition <- ...future.makeSendCondition()
[13:13:56.794]                   sendCondition(cond)
[13:13:56.794]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.794]                   {
[13:13:56.794]                     inherits <- base::inherits
[13:13:56.794]                     invokeRestart <- base::invokeRestart
[13:13:56.794]                     is.null <- base::is.null
[13:13:56.794]                     muffled <- FALSE
[13:13:56.794]                     if (inherits(cond, "message")) {
[13:13:56.794]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:56.794]                       if (muffled) 
[13:13:56.794]                         invokeRestart("muffleMessage")
[13:13:56.794]                     }
[13:13:56.794]                     else if (inherits(cond, "warning")) {
[13:13:56.794]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:56.794]                       if (muffled) 
[13:13:56.794]                         invokeRestart("muffleWarning")
[13:13:56.794]                     }
[13:13:56.794]                     else if (inherits(cond, "condition")) {
[13:13:56.794]                       if (!is.null(pattern)) {
[13:13:56.794]                         computeRestarts <- base::computeRestarts
[13:13:56.794]                         grepl <- base::grepl
[13:13:56.794]                         restarts <- computeRestarts(cond)
[13:13:56.794]                         for (restart in restarts) {
[13:13:56.794]                           name <- restart$name
[13:13:56.794]                           if (is.null(name)) 
[13:13:56.794]                             next
[13:13:56.794]                           if (!grepl(pattern, name)) 
[13:13:56.794]                             next
[13:13:56.794]                           invokeRestart(restart)
[13:13:56.794]                           muffled <- TRUE
[13:13:56.794]                           break
[13:13:56.794]                         }
[13:13:56.794]                       }
[13:13:56.794]                     }
[13:13:56.794]                     invisible(muffled)
[13:13:56.794]                   }
[13:13:56.794]                   muffleCondition(cond)
[13:13:56.794]                 })
[13:13:56.794]             }))
[13:13:56.794]             future::FutureResult(value = ...future.value$value, 
[13:13:56.794]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:56.794]                   ...future.rng), globalenv = if (FALSE) 
[13:13:56.794]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:56.794]                     ...future.globalenv.names))
[13:13:56.794]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:56.794]         }, condition = base::local({
[13:13:56.794]             c <- base::c
[13:13:56.794]             inherits <- base::inherits
[13:13:56.794]             invokeRestart <- base::invokeRestart
[13:13:56.794]             length <- base::length
[13:13:56.794]             list <- base::list
[13:13:56.794]             seq.int <- base::seq.int
[13:13:56.794]             signalCondition <- base::signalCondition
[13:13:56.794]             sys.calls <- base::sys.calls
[13:13:56.794]             `[[` <- base::`[[`
[13:13:56.794]             `+` <- base::`+`
[13:13:56.794]             `<<-` <- base::`<<-`
[13:13:56.794]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:56.794]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:56.794]                   3L)]
[13:13:56.794]             }
[13:13:56.794]             function(cond) {
[13:13:56.794]                 is_error <- inherits(cond, "error")
[13:13:56.794]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:56.794]                   NULL)
[13:13:56.794]                 if (is_error) {
[13:13:56.794]                   sessionInformation <- function() {
[13:13:56.794]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:56.794]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:56.794]                       search = base::search(), system = base::Sys.info())
[13:13:56.794]                   }
[13:13:56.794]                   ...future.conditions[[length(...future.conditions) + 
[13:13:56.794]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:56.794]                     cond$call), session = sessionInformation(), 
[13:13:56.794]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:56.794]                   signalCondition(cond)
[13:13:56.794]                 }
[13:13:56.794]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:56.794]                 "immediateCondition"))) {
[13:13:56.794]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:56.794]                   ...future.conditions[[length(...future.conditions) + 
[13:13:56.794]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:56.794]                   if (TRUE && !signal) {
[13:13:56.794]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.794]                     {
[13:13:56.794]                       inherits <- base::inherits
[13:13:56.794]                       invokeRestart <- base::invokeRestart
[13:13:56.794]                       is.null <- base::is.null
[13:13:56.794]                       muffled <- FALSE
[13:13:56.794]                       if (inherits(cond, "message")) {
[13:13:56.794]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:56.794]                         if (muffled) 
[13:13:56.794]                           invokeRestart("muffleMessage")
[13:13:56.794]                       }
[13:13:56.794]                       else if (inherits(cond, "warning")) {
[13:13:56.794]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:56.794]                         if (muffled) 
[13:13:56.794]                           invokeRestart("muffleWarning")
[13:13:56.794]                       }
[13:13:56.794]                       else if (inherits(cond, "condition")) {
[13:13:56.794]                         if (!is.null(pattern)) {
[13:13:56.794]                           computeRestarts <- base::computeRestarts
[13:13:56.794]                           grepl <- base::grepl
[13:13:56.794]                           restarts <- computeRestarts(cond)
[13:13:56.794]                           for (restart in restarts) {
[13:13:56.794]                             name <- restart$name
[13:13:56.794]                             if (is.null(name)) 
[13:13:56.794]                               next
[13:13:56.794]                             if (!grepl(pattern, name)) 
[13:13:56.794]                               next
[13:13:56.794]                             invokeRestart(restart)
[13:13:56.794]                             muffled <- TRUE
[13:13:56.794]                             break
[13:13:56.794]                           }
[13:13:56.794]                         }
[13:13:56.794]                       }
[13:13:56.794]                       invisible(muffled)
[13:13:56.794]                     }
[13:13:56.794]                     muffleCondition(cond, pattern = "^muffle")
[13:13:56.794]                   }
[13:13:56.794]                 }
[13:13:56.794]                 else {
[13:13:56.794]                   if (TRUE) {
[13:13:56.794]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.794]                     {
[13:13:56.794]                       inherits <- base::inherits
[13:13:56.794]                       invokeRestart <- base::invokeRestart
[13:13:56.794]                       is.null <- base::is.null
[13:13:56.794]                       muffled <- FALSE
[13:13:56.794]                       if (inherits(cond, "message")) {
[13:13:56.794]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:56.794]                         if (muffled) 
[13:13:56.794]                           invokeRestart("muffleMessage")
[13:13:56.794]                       }
[13:13:56.794]                       else if (inherits(cond, "warning")) {
[13:13:56.794]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:56.794]                         if (muffled) 
[13:13:56.794]                           invokeRestart("muffleWarning")
[13:13:56.794]                       }
[13:13:56.794]                       else if (inherits(cond, "condition")) {
[13:13:56.794]                         if (!is.null(pattern)) {
[13:13:56.794]                           computeRestarts <- base::computeRestarts
[13:13:56.794]                           grepl <- base::grepl
[13:13:56.794]                           restarts <- computeRestarts(cond)
[13:13:56.794]                           for (restart in restarts) {
[13:13:56.794]                             name <- restart$name
[13:13:56.794]                             if (is.null(name)) 
[13:13:56.794]                               next
[13:13:56.794]                             if (!grepl(pattern, name)) 
[13:13:56.794]                               next
[13:13:56.794]                             invokeRestart(restart)
[13:13:56.794]                             muffled <- TRUE
[13:13:56.794]                             break
[13:13:56.794]                           }
[13:13:56.794]                         }
[13:13:56.794]                       }
[13:13:56.794]                       invisible(muffled)
[13:13:56.794]                     }
[13:13:56.794]                     muffleCondition(cond, pattern = "^muffle")
[13:13:56.794]                   }
[13:13:56.794]                 }
[13:13:56.794]             }
[13:13:56.794]         }))
[13:13:56.794]     }, error = function(ex) {
[13:13:56.794]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:56.794]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:56.794]                 ...future.rng), started = ...future.startTime, 
[13:13:56.794]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:56.794]             version = "1.8"), class = "FutureResult")
[13:13:56.794]     }, finally = {
[13:13:56.794]         if (!identical(...future.workdir, getwd())) 
[13:13:56.794]             setwd(...future.workdir)
[13:13:56.794]         {
[13:13:56.794]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:56.794]                 ...future.oldOptions$nwarnings <- NULL
[13:13:56.794]             }
[13:13:56.794]             base::options(...future.oldOptions)
[13:13:56.794]             if (.Platform$OS.type == "windows") {
[13:13:56.794]                 old_names <- names(...future.oldEnvVars)
[13:13:56.794]                 envs <- base::Sys.getenv()
[13:13:56.794]                 names <- names(envs)
[13:13:56.794]                 common <- intersect(names, old_names)
[13:13:56.794]                 added <- setdiff(names, old_names)
[13:13:56.794]                 removed <- setdiff(old_names, names)
[13:13:56.794]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:56.794]                   envs[common]]
[13:13:56.794]                 NAMES <- toupper(changed)
[13:13:56.794]                 args <- list()
[13:13:56.794]                 for (kk in seq_along(NAMES)) {
[13:13:56.794]                   name <- changed[[kk]]
[13:13:56.794]                   NAME <- NAMES[[kk]]
[13:13:56.794]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.794]                     next
[13:13:56.794]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:56.794]                 }
[13:13:56.794]                 NAMES <- toupper(added)
[13:13:56.794]                 for (kk in seq_along(NAMES)) {
[13:13:56.794]                   name <- added[[kk]]
[13:13:56.794]                   NAME <- NAMES[[kk]]
[13:13:56.794]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.794]                     next
[13:13:56.794]                   args[[name]] <- ""
[13:13:56.794]                 }
[13:13:56.794]                 NAMES <- toupper(removed)
[13:13:56.794]                 for (kk in seq_along(NAMES)) {
[13:13:56.794]                   name <- removed[[kk]]
[13:13:56.794]                   NAME <- NAMES[[kk]]
[13:13:56.794]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.794]                     next
[13:13:56.794]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:56.794]                 }
[13:13:56.794]                 if (length(args) > 0) 
[13:13:56.794]                   base::do.call(base::Sys.setenv, args = args)
[13:13:56.794]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:56.794]             }
[13:13:56.794]             else {
[13:13:56.794]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:56.794]             }
[13:13:56.794]             {
[13:13:56.794]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:56.794]                   0L) {
[13:13:56.794]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:56.794]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:56.794]                   base::options(opts)
[13:13:56.794]                 }
[13:13:56.794]                 {
[13:13:56.794]                   {
[13:13:56.794]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:56.794]                     NULL
[13:13:56.794]                   }
[13:13:56.794]                   options(future.plan = NULL)
[13:13:56.794]                   if (is.na(NA_character_)) 
[13:13:56.794]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:56.794]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:56.794]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:56.794]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:56.794]                     envir = parent.frame()) 
[13:13:56.794]                   {
[13:13:56.794]                     if (is.function(workers)) 
[13:13:56.794]                       workers <- workers()
[13:13:56.794]                     workers <- structure(as.integer(workers), 
[13:13:56.794]                       class = class(workers))
[13:13:56.794]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:56.794]                       workers >= 1)
[13:13:56.794]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:56.794]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:56.794]                     }
[13:13:56.794]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:56.794]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:56.794]                       envir = envir)
[13:13:56.794]                     if (!future$lazy) 
[13:13:56.794]                       future <- run(future)
[13:13:56.794]                     invisible(future)
[13:13:56.794]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:56.794]                 }
[13:13:56.794]             }
[13:13:56.794]         }
[13:13:56.794]     })
[13:13:56.794]     if (TRUE) {
[13:13:56.794]         base::sink(type = "output", split = FALSE)
[13:13:56.794]         if (TRUE) {
[13:13:56.794]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:56.794]         }
[13:13:56.794]         else {
[13:13:56.794]             ...future.result["stdout"] <- base::list(NULL)
[13:13:56.794]         }
[13:13:56.794]         base::close(...future.stdout)
[13:13:56.794]         ...future.stdout <- NULL
[13:13:56.794]     }
[13:13:56.794]     ...future.result$conditions <- ...future.conditions
[13:13:56.794]     ...future.result$finished <- base::Sys.time()
[13:13:56.794]     ...future.result
[13:13:56.794] }
[13:13:56.799] Exporting 5 global objects (2.47 KiB) to cluster node #1 ...
[13:13:56.800] Exporting '...future.FUN' (2.04 KiB) to cluster node #1 ...
[13:13:56.800] Exporting '...future.FUN' (2.04 KiB) to cluster node #1 ... DONE
[13:13:56.800] Exporting 'MoreArgs' (56 bytes) to cluster node #1 ...
[13:13:56.801] Exporting 'MoreArgs' (56 bytes) to cluster node #1 ... DONE
[13:13:56.801] Exporting '...future.elements_ii' (224 bytes) to cluster node #1 ...
[13:13:56.801] Exporting '...future.elements_ii' (224 bytes) to cluster node #1 ... DONE
[13:13:56.802] Exporting '...future.seeds_ii' (160 bytes) to cluster node #1 ...
[13:13:56.802] Exporting '...future.seeds_ii' (160 bytes) to cluster node #1 ... DONE
[13:13:56.802] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:56.803] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:56.803] Exporting 5 global objects (2.47 KiB) to cluster node #1 ... DONE
[13:13:56.804] MultisessionFuture started
[13:13:56.804] - Launch lazy future ... done
[13:13:56.804] run() for 'MultisessionFuture' ... done
[13:13:56.804] Created future:
[13:13:56.820] receiveMessageFromWorker() for ClusterFuture ...
[13:13:56.820] - Validating connection of MultisessionFuture
[13:13:56.821] - received message: FutureResult
[13:13:56.821] - Received FutureResult
[13:13:56.821] - Erased future from FutureRegistry
[13:13:56.821] result() for ClusterFuture ...
[13:13:56.821] - result already collected: FutureResult
[13:13:56.822] result() for ClusterFuture ... done
[13:13:56.822] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:56.804] MultisessionFuture:
[13:13:56.804] Label: 'future_mapply-1'
[13:13:56.804] Expression:
[13:13:56.804] {
[13:13:56.804]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:56.804]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:56.804]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:56.804]         on.exit(options(oopts), add = TRUE)
[13:13:56.804]     }
[13:13:56.804]     {
[13:13:56.804]         ...future.FUN2 <- function(..., ...future.seeds_ii_jj) {
[13:13:56.804]             assign(".Random.seed", ...future.seeds_ii_jj, envir = globalenv(), 
[13:13:56.804]                 inherits = FALSE)
[13:13:56.804]             ...future.FUN(...)
[13:13:56.804]         }
[13:13:56.804]         args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 
[13:13:56.804]             list(...future.seeds_ii_jj = ...future.seeds_ii), 
[13:13:56.804]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:56.804]         do.call(mapply, args = args)
[13:13:56.804]     }
[13:13:56.804] }
[13:13:56.804] Lazy evaluation: FALSE
[13:13:56.804] Asynchronous evaluation: TRUE
[13:13:56.804] Local evaluation: TRUE
[13:13:56.804] Environment: R_GlobalEnv
[13:13:56.804] Capture standard output: TRUE
[13:13:56.804] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:56.804] Globals: 5 objects totaling 2.47 KiB (function '...future.FUN' of 2.04 KiB, list 'MoreArgs' of 56 bytes, list '...future.elements_ii' of 224 bytes, list '...future.seeds_ii' of 160 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:56.804] Packages: 1 packages ('stats')
[13:13:56.804] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[13:13:56.804] Resolved: TRUE
[13:13:56.804] Value: <not collected>
[13:13:56.804] Conditions captured: <none>
[13:13:56.804] Early signaling: FALSE
[13:13:56.804] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:56.804] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:56.822] Chunk #1 of 2 ... DONE
[13:13:56.823] Chunk #2 of 2 ...
[13:13:56.823]  - Finding globals in '...' for chunk #2 ...
[13:13:56.823] getGlobalsAndPackages() ...
[13:13:56.823] Searching for globals...
[13:13:56.823] 
[13:13:56.824] Searching for globals ... DONE
[13:13:56.824] - globals: [0] <none>
[13:13:56.824] getGlobalsAndPackages() ... DONE
[13:13:56.824]    + additional globals found: [n=0] 
[13:13:56.824]    + additional namespaces needed: [n=0] 
[13:13:56.824]  - Finding globals in '...' for chunk #2 ... DONE
[13:13:56.825]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:56.825]  - seeds: [2] <seeds>
[13:13:56.825]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.825] getGlobalsAndPackages() ...
[13:13:56.825] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.825] Resolving globals: FALSE
[13:13:56.826] The total size of the 5 globals is 2.47 KiB (2528 bytes)
[13:13:56.827] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 2.47 KiB.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (2.04 KiB of class 'function'), '...future.elements_ii' (224 bytes of class 'list') and '...future.seeds_ii' (160 bytes of class 'list')
[13:13:56.827] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.827] - packages: [1] 'stats'
[13:13:56.827] getGlobalsAndPackages() ... DONE
[13:13:56.828] run() for 'Future' ...
[13:13:56.828] - state: 'created'
[13:13:56.828] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:56.842] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:56.842] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:56.842]   - Field: 'node'
[13:13:56.842]   - Field: 'label'
[13:13:56.842]   - Field: 'local'
[13:13:56.843]   - Field: 'owner'
[13:13:56.843]   - Field: 'envir'
[13:13:56.843]   - Field: 'workers'
[13:13:56.843]   - Field: 'packages'
[13:13:56.843]   - Field: 'gc'
[13:13:56.844]   - Field: 'conditions'
[13:13:56.844]   - Field: 'persistent'
[13:13:56.844]   - Field: 'expr'
[13:13:56.844]   - Field: 'uuid'
[13:13:56.844]   - Field: 'seed'
[13:13:56.844]   - Field: 'version'
[13:13:56.845]   - Field: 'result'
[13:13:56.845]   - Field: 'asynchronous'
[13:13:56.845]   - Field: 'calls'
[13:13:56.845]   - Field: 'globals'
[13:13:56.845]   - Field: 'stdout'
[13:13:56.845]   - Field: 'earlySignal'
[13:13:56.846]   - Field: 'lazy'
[13:13:56.846]   - Field: 'state'
[13:13:56.846] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:56.846] - Launch lazy future ...
[13:13:56.846] Packages needed by the future expression (n = 1): 'stats'
[13:13:56.847] Packages needed by future strategies (n = 0): <none>
[13:13:56.847] {
[13:13:56.847]     {
[13:13:56.847]         {
[13:13:56.847]             ...future.startTime <- base::Sys.time()
[13:13:56.847]             {
[13:13:56.847]                 {
[13:13:56.847]                   {
[13:13:56.847]                     {
[13:13:56.847]                       {
[13:13:56.847]                         base::local({
[13:13:56.847]                           has_future <- base::requireNamespace("future", 
[13:13:56.847]                             quietly = TRUE)
[13:13:56.847]                           if (has_future) {
[13:13:56.847]                             ns <- base::getNamespace("future")
[13:13:56.847]                             version <- ns[[".package"]][["version"]]
[13:13:56.847]                             if (is.null(version)) 
[13:13:56.847]                               version <- utils::packageVersion("future")
[13:13:56.847]                           }
[13:13:56.847]                           else {
[13:13:56.847]                             version <- NULL
[13:13:56.847]                           }
[13:13:56.847]                           if (!has_future || version < "1.8.0") {
[13:13:56.847]                             info <- base::c(r_version = base::gsub("R version ", 
[13:13:56.847]                               "", base::R.version$version.string), 
[13:13:56.847]                               platform = base::sprintf("%s (%s-bit)", 
[13:13:56.847]                                 base::R.version$platform, 8 * 
[13:13:56.847]                                   base::.Machine$sizeof.pointer), 
[13:13:56.847]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:56.847]                                 "release", "version")], collapse = " "), 
[13:13:56.847]                               hostname = base::Sys.info()[["nodename"]])
[13:13:56.847]                             info <- base::sprintf("%s: %s", base::names(info), 
[13:13:56.847]                               info)
[13:13:56.847]                             info <- base::paste(info, collapse = "; ")
[13:13:56.847]                             if (!has_future) {
[13:13:56.847]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:56.847]                                 info)
[13:13:56.847]                             }
[13:13:56.847]                             else {
[13:13:56.847]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:56.847]                                 info, version)
[13:13:56.847]                             }
[13:13:56.847]                             base::stop(msg)
[13:13:56.847]                           }
[13:13:56.847]                         })
[13:13:56.847]                       }
[13:13:56.847]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:56.847]                       base::options(mc.cores = 1L)
[13:13:56.847]                     }
[13:13:56.847]                     base::local({
[13:13:56.847]                       for (pkg in "stats") {
[13:13:56.847]                         base::loadNamespace(pkg)
[13:13:56.847]                         base::library(pkg, character.only = TRUE)
[13:13:56.847]                       }
[13:13:56.847]                     })
[13:13:56.847]                   }
[13:13:56.847]                   options(future.plan = NULL)
[13:13:56.847]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:56.847]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:56.847]                 }
[13:13:56.847]                 ...future.workdir <- getwd()
[13:13:56.847]             }
[13:13:56.847]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:56.847]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:56.847]         }
[13:13:56.847]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:56.847]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:56.847]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:56.847]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:56.847]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:56.847]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:56.847]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:56.847]             base::names(...future.oldOptions))
[13:13:56.847]     }
[13:13:56.847]     if (FALSE) {
[13:13:56.847]     }
[13:13:56.847]     else {
[13:13:56.847]         if (TRUE) {
[13:13:56.847]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:56.847]                 open = "w")
[13:13:56.847]         }
[13:13:56.847]         else {
[13:13:56.847]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:56.847]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:56.847]         }
[13:13:56.847]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:56.847]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:56.847]             base::sink(type = "output", split = FALSE)
[13:13:56.847]             base::close(...future.stdout)
[13:13:56.847]         }, add = TRUE)
[13:13:56.847]     }
[13:13:56.847]     ...future.frame <- base::sys.nframe()
[13:13:56.847]     ...future.conditions <- base::list()
[13:13:56.847]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:56.847]     if (FALSE) {
[13:13:56.847]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:56.847]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:56.847]     }
[13:13:56.847]     ...future.result <- base::tryCatch({
[13:13:56.847]         base::withCallingHandlers({
[13:13:56.847]             ...future.value <- base::withVisible(base::local({
[13:13:56.847]                 ...future.makeSendCondition <- local({
[13:13:56.847]                   sendCondition <- NULL
[13:13:56.847]                   function(frame = 1L) {
[13:13:56.847]                     if (is.function(sendCondition)) 
[13:13:56.847]                       return(sendCondition)
[13:13:56.847]                     ns <- getNamespace("parallel")
[13:13:56.847]                     if (exists("sendData", mode = "function", 
[13:13:56.847]                       envir = ns)) {
[13:13:56.847]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:56.847]                         envir = ns)
[13:13:56.847]                       envir <- sys.frame(frame)
[13:13:56.847]                       master <- NULL
[13:13:56.847]                       while (!identical(envir, .GlobalEnv) && 
[13:13:56.847]                         !identical(envir, emptyenv())) {
[13:13:56.847]                         if (exists("master", mode = "list", envir = envir, 
[13:13:56.847]                           inherits = FALSE)) {
[13:13:56.847]                           master <- get("master", mode = "list", 
[13:13:56.847]                             envir = envir, inherits = FALSE)
[13:13:56.847]                           if (inherits(master, c("SOCKnode", 
[13:13:56.847]                             "SOCK0node"))) {
[13:13:56.847]                             sendCondition <<- function(cond) {
[13:13:56.847]                               data <- list(type = "VALUE", value = cond, 
[13:13:56.847]                                 success = TRUE)
[13:13:56.847]                               parallel_sendData(master, data)
[13:13:56.847]                             }
[13:13:56.847]                             return(sendCondition)
[13:13:56.847]                           }
[13:13:56.847]                         }
[13:13:56.847]                         frame <- frame + 1L
[13:13:56.847]                         envir <- sys.frame(frame)
[13:13:56.847]                       }
[13:13:56.847]                     }
[13:13:56.847]                     sendCondition <<- function(cond) NULL
[13:13:56.847]                   }
[13:13:56.847]                 })
[13:13:56.847]                 withCallingHandlers({
[13:13:56.847]                   {
[13:13:56.847]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:56.847]                     if (!identical(...future.globals.maxSize.org, 
[13:13:56.847]                       ...future.globals.maxSize)) {
[13:13:56.847]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:56.847]                       on.exit(options(oopts), add = TRUE)
[13:13:56.847]                     }
[13:13:56.847]                     {
[13:13:56.847]                       ...future.FUN2 <- function(..., ...future.seeds_ii_jj) {
[13:13:56.847]                         assign(".Random.seed", ...future.seeds_ii_jj, 
[13:13:56.847]                           envir = globalenv(), inherits = FALSE)
[13:13:56.847]                         ...future.FUN(...)
[13:13:56.847]                       }
[13:13:56.847]                       args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 
[13:13:56.847]                         list(...future.seeds_ii_jj = ...future.seeds_ii), 
[13:13:56.847]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:56.847]                         USE.NAMES = FALSE)
[13:13:56.847]                       do.call(mapply, args = args)
[13:13:56.847]                     }
[13:13:56.847]                   }
[13:13:56.847]                 }, immediateCondition = function(cond) {
[13:13:56.847]                   sendCondition <- ...future.makeSendCondition()
[13:13:56.847]                   sendCondition(cond)
[13:13:56.847]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.847]                   {
[13:13:56.847]                     inherits <- base::inherits
[13:13:56.847]                     invokeRestart <- base::invokeRestart
[13:13:56.847]                     is.null <- base::is.null
[13:13:56.847]                     muffled <- FALSE
[13:13:56.847]                     if (inherits(cond, "message")) {
[13:13:56.847]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:56.847]                       if (muffled) 
[13:13:56.847]                         invokeRestart("muffleMessage")
[13:13:56.847]                     }
[13:13:56.847]                     else if (inherits(cond, "warning")) {
[13:13:56.847]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:56.847]                       if (muffled) 
[13:13:56.847]                         invokeRestart("muffleWarning")
[13:13:56.847]                     }
[13:13:56.847]                     else if (inherits(cond, "condition")) {
[13:13:56.847]                       if (!is.null(pattern)) {
[13:13:56.847]                         computeRestarts <- base::computeRestarts
[13:13:56.847]                         grepl <- base::grepl
[13:13:56.847]                         restarts <- computeRestarts(cond)
[13:13:56.847]                         for (restart in restarts) {
[13:13:56.847]                           name <- restart$name
[13:13:56.847]                           if (is.null(name)) 
[13:13:56.847]                             next
[13:13:56.847]                           if (!grepl(pattern, name)) 
[13:13:56.847]                             next
[13:13:56.847]                           invokeRestart(restart)
[13:13:56.847]                           muffled <- TRUE
[13:13:56.847]                           break
[13:13:56.847]                         }
[13:13:56.847]                       }
[13:13:56.847]                     }
[13:13:56.847]                     invisible(muffled)
[13:13:56.847]                   }
[13:13:56.847]                   muffleCondition(cond)
[13:13:56.847]                 })
[13:13:56.847]             }))
[13:13:56.847]             future::FutureResult(value = ...future.value$value, 
[13:13:56.847]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:56.847]                   ...future.rng), globalenv = if (FALSE) 
[13:13:56.847]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:56.847]                     ...future.globalenv.names))
[13:13:56.847]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:56.847]         }, condition = base::local({
[13:13:56.847]             c <- base::c
[13:13:56.847]             inherits <- base::inherits
[13:13:56.847]             invokeRestart <- base::invokeRestart
[13:13:56.847]             length <- base::length
[13:13:56.847]             list <- base::list
[13:13:56.847]             seq.int <- base::seq.int
[13:13:56.847]             signalCondition <- base::signalCondition
[13:13:56.847]             sys.calls <- base::sys.calls
[13:13:56.847]             `[[` <- base::`[[`
[13:13:56.847]             `+` <- base::`+`
[13:13:56.847]             `<<-` <- base::`<<-`
[13:13:56.847]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:56.847]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:56.847]                   3L)]
[13:13:56.847]             }
[13:13:56.847]             function(cond) {
[13:13:56.847]                 is_error <- inherits(cond, "error")
[13:13:56.847]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:56.847]                   NULL)
[13:13:56.847]                 if (is_error) {
[13:13:56.847]                   sessionInformation <- function() {
[13:13:56.847]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:56.847]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:56.847]                       search = base::search(), system = base::Sys.info())
[13:13:56.847]                   }
[13:13:56.847]                   ...future.conditions[[length(...future.conditions) + 
[13:13:56.847]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:56.847]                     cond$call), session = sessionInformation(), 
[13:13:56.847]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:56.847]                   signalCondition(cond)
[13:13:56.847]                 }
[13:13:56.847]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:56.847]                 "immediateCondition"))) {
[13:13:56.847]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:56.847]                   ...future.conditions[[length(...future.conditions) + 
[13:13:56.847]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:56.847]                   if (TRUE && !signal) {
[13:13:56.847]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.847]                     {
[13:13:56.847]                       inherits <- base::inherits
[13:13:56.847]                       invokeRestart <- base::invokeRestart
[13:13:56.847]                       is.null <- base::is.null
[13:13:56.847]                       muffled <- FALSE
[13:13:56.847]                       if (inherits(cond, "message")) {
[13:13:56.847]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:56.847]                         if (muffled) 
[13:13:56.847]                           invokeRestart("muffleMessage")
[13:13:56.847]                       }
[13:13:56.847]                       else if (inherits(cond, "warning")) {
[13:13:56.847]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:56.847]                         if (muffled) 
[13:13:56.847]                           invokeRestart("muffleWarning")
[13:13:56.847]                       }
[13:13:56.847]                       else if (inherits(cond, "condition")) {
[13:13:56.847]                         if (!is.null(pattern)) {
[13:13:56.847]                           computeRestarts <- base::computeRestarts
[13:13:56.847]                           grepl <- base::grepl
[13:13:56.847]                           restarts <- computeRestarts(cond)
[13:13:56.847]                           for (restart in restarts) {
[13:13:56.847]                             name <- restart$name
[13:13:56.847]                             if (is.null(name)) 
[13:13:56.847]                               next
[13:13:56.847]                             if (!grepl(pattern, name)) 
[13:13:56.847]                               next
[13:13:56.847]                             invokeRestart(restart)
[13:13:56.847]                             muffled <- TRUE
[13:13:56.847]                             break
[13:13:56.847]                           }
[13:13:56.847]                         }
[13:13:56.847]                       }
[13:13:56.847]                       invisible(muffled)
[13:13:56.847]                     }
[13:13:56.847]                     muffleCondition(cond, pattern = "^muffle")
[13:13:56.847]                   }
[13:13:56.847]                 }
[13:13:56.847]                 else {
[13:13:56.847]                   if (TRUE) {
[13:13:56.847]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.847]                     {
[13:13:56.847]                       inherits <- base::inherits
[13:13:56.847]                       invokeRestart <- base::invokeRestart
[13:13:56.847]                       is.null <- base::is.null
[13:13:56.847]                       muffled <- FALSE
[13:13:56.847]                       if (inherits(cond, "message")) {
[13:13:56.847]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:56.847]                         if (muffled) 
[13:13:56.847]                           invokeRestart("muffleMessage")
[13:13:56.847]                       }
[13:13:56.847]                       else if (inherits(cond, "warning")) {
[13:13:56.847]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:56.847]                         if (muffled) 
[13:13:56.847]                           invokeRestart("muffleWarning")
[13:13:56.847]                       }
[13:13:56.847]                       else if (inherits(cond, "condition")) {
[13:13:56.847]                         if (!is.null(pattern)) {
[13:13:56.847]                           computeRestarts <- base::computeRestarts
[13:13:56.847]                           grepl <- base::grepl
[13:13:56.847]                           restarts <- computeRestarts(cond)
[13:13:56.847]                           for (restart in restarts) {
[13:13:56.847]                             name <- restart$name
[13:13:56.847]                             if (is.null(name)) 
[13:13:56.847]                               next
[13:13:56.847]                             if (!grepl(pattern, name)) 
[13:13:56.847]                               next
[13:13:56.847]                             invokeRestart(restart)
[13:13:56.847]                             muffled <- TRUE
[13:13:56.847]                             break
[13:13:56.847]                           }
[13:13:56.847]                         }
[13:13:56.847]                       }
[13:13:56.847]                       invisible(muffled)
[13:13:56.847]                     }
[13:13:56.847]                     muffleCondition(cond, pattern = "^muffle")
[13:13:56.847]                   }
[13:13:56.847]                 }
[13:13:56.847]             }
[13:13:56.847]         }))
[13:13:56.847]     }, error = function(ex) {
[13:13:56.847]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:56.847]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:56.847]                 ...future.rng), started = ...future.startTime, 
[13:13:56.847]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:56.847]             version = "1.8"), class = "FutureResult")
[13:13:56.847]     }, finally = {
[13:13:56.847]         if (!identical(...future.workdir, getwd())) 
[13:13:56.847]             setwd(...future.workdir)
[13:13:56.847]         {
[13:13:56.847]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:56.847]                 ...future.oldOptions$nwarnings <- NULL
[13:13:56.847]             }
[13:13:56.847]             base::options(...future.oldOptions)
[13:13:56.847]             if (.Platform$OS.type == "windows") {
[13:13:56.847]                 old_names <- names(...future.oldEnvVars)
[13:13:56.847]                 envs <- base::Sys.getenv()
[13:13:56.847]                 names <- names(envs)
[13:13:56.847]                 common <- intersect(names, old_names)
[13:13:56.847]                 added <- setdiff(names, old_names)
[13:13:56.847]                 removed <- setdiff(old_names, names)
[13:13:56.847]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:56.847]                   envs[common]]
[13:13:56.847]                 NAMES <- toupper(changed)
[13:13:56.847]                 args <- list()
[13:13:56.847]                 for (kk in seq_along(NAMES)) {
[13:13:56.847]                   name <- changed[[kk]]
[13:13:56.847]                   NAME <- NAMES[[kk]]
[13:13:56.847]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.847]                     next
[13:13:56.847]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:56.847]                 }
[13:13:56.847]                 NAMES <- toupper(added)
[13:13:56.847]                 for (kk in seq_along(NAMES)) {
[13:13:56.847]                   name <- added[[kk]]
[13:13:56.847]                   NAME <- NAMES[[kk]]
[13:13:56.847]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.847]                     next
[13:13:56.847]                   args[[name]] <- ""
[13:13:56.847]                 }
[13:13:56.847]                 NAMES <- toupper(removed)
[13:13:56.847]                 for (kk in seq_along(NAMES)) {
[13:13:56.847]                   name <- removed[[kk]]
[13:13:56.847]                   NAME <- NAMES[[kk]]
[13:13:56.847]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.847]                     next
[13:13:56.847]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:56.847]                 }
[13:13:56.847]                 if (length(args) > 0) 
[13:13:56.847]                   base::do.call(base::Sys.setenv, args = args)
[13:13:56.847]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:56.847]             }
[13:13:56.847]             else {
[13:13:56.847]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:56.847]             }
[13:13:56.847]             {
[13:13:56.847]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:56.847]                   0L) {
[13:13:56.847]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:56.847]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:56.847]                   base::options(opts)
[13:13:56.847]                 }
[13:13:56.847]                 {
[13:13:56.847]                   {
[13:13:56.847]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:56.847]                     NULL
[13:13:56.847]                   }
[13:13:56.847]                   options(future.plan = NULL)
[13:13:56.847]                   if (is.na(NA_character_)) 
[13:13:56.847]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:56.847]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:56.847]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:56.847]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:56.847]                     envir = parent.frame()) 
[13:13:56.847]                   {
[13:13:56.847]                     if (is.function(workers)) 
[13:13:56.847]                       workers <- workers()
[13:13:56.847]                     workers <- structure(as.integer(workers), 
[13:13:56.847]                       class = class(workers))
[13:13:56.847]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:56.847]                       workers >= 1)
[13:13:56.847]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:56.847]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:56.847]                     }
[13:13:56.847]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:56.847]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:56.847]                       envir = envir)
[13:13:56.847]                     if (!future$lazy) 
[13:13:56.847]                       future <- run(future)
[13:13:56.847]                     invisible(future)
[13:13:56.847]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:56.847]                 }
[13:13:56.847]             }
[13:13:56.847]         }
[13:13:56.847]     })
[13:13:56.847]     if (TRUE) {
[13:13:56.847]         base::sink(type = "output", split = FALSE)
[13:13:56.847]         if (TRUE) {
[13:13:56.847]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:56.847]         }
[13:13:56.847]         else {
[13:13:56.847]             ...future.result["stdout"] <- base::list(NULL)
[13:13:56.847]         }
[13:13:56.847]         base::close(...future.stdout)
[13:13:56.847]         ...future.stdout <- NULL
[13:13:56.847]     }
[13:13:56.847]     ...future.result$conditions <- ...future.conditions
[13:13:56.847]     ...future.result$finished <- base::Sys.time()
[13:13:56.847]     ...future.result
[13:13:56.847] }
[13:13:56.853] Exporting 5 global objects (2.47 KiB) to cluster node #1 ...
[13:13:56.853] Exporting '...future.FUN' (2.04 KiB) to cluster node #1 ...
[13:13:56.853] Exporting '...future.FUN' (2.04 KiB) to cluster node #1 ... DONE
[13:13:56.854] Exporting 'MoreArgs' (56 bytes) to cluster node #1 ...
[13:13:56.854] Exporting 'MoreArgs' (56 bytes) to cluster node #1 ... DONE
[13:13:56.854] Exporting '...future.elements_ii' (224 bytes) to cluster node #1 ...
[13:13:56.855] Exporting '...future.elements_ii' (224 bytes) to cluster node #1 ... DONE
[13:13:56.855] Exporting '...future.seeds_ii' (160 bytes) to cluster node #1 ...
[13:13:56.855] Exporting '...future.seeds_ii' (160 bytes) to cluster node #1 ... DONE
[13:13:56.855] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:56.856] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:56.856] Exporting 5 global objects (2.47 KiB) to cluster node #1 ... DONE
[13:13:56.857] MultisessionFuture started
[13:13:56.857] - Launch lazy future ... done
[13:13:56.857] run() for 'MultisessionFuture' ... done
[13:13:56.857] Created future:
[13:13:56.872] receiveMessageFromWorker() for ClusterFuture ...
[13:13:56.873] - Validating connection of MultisessionFuture
[13:13:56.873] - received message: FutureResult
[13:13:56.873] - Received FutureResult
[13:13:56.873] - Erased future from FutureRegistry
[13:13:56.873] result() for ClusterFuture ...
[13:13:56.874] - result already collected: FutureResult
[13:13:56.874] result() for ClusterFuture ... done
[13:13:56.874] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:56.857] MultisessionFuture:
[13:13:56.857] Label: 'future_mapply-2'
[13:13:56.857] Expression:
[13:13:56.857] {
[13:13:56.857]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:56.857]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:56.857]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:56.857]         on.exit(options(oopts), add = TRUE)
[13:13:56.857]     }
[13:13:56.857]     {
[13:13:56.857]         ...future.FUN2 <- function(..., ...future.seeds_ii_jj) {
[13:13:56.857]             assign(".Random.seed", ...future.seeds_ii_jj, envir = globalenv(), 
[13:13:56.857]                 inherits = FALSE)
[13:13:56.857]             ...future.FUN(...)
[13:13:56.857]         }
[13:13:56.857]         args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 
[13:13:56.857]             list(...future.seeds_ii_jj = ...future.seeds_ii), 
[13:13:56.857]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:56.857]         do.call(mapply, args = args)
[13:13:56.857]     }
[13:13:56.857] }
[13:13:56.857] Lazy evaluation: FALSE
[13:13:56.857] Asynchronous evaluation: TRUE
[13:13:56.857] Local evaluation: TRUE
[13:13:56.857] Environment: R_GlobalEnv
[13:13:56.857] Capture standard output: TRUE
[13:13:56.857] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:56.857] Globals: 5 objects totaling 2.47 KiB (function '...future.FUN' of 2.04 KiB, list 'MoreArgs' of 56 bytes, list '...future.elements_ii' of 224 bytes, list '...future.seeds_ii' of 160 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:56.857] Packages: 1 packages ('stats')
[13:13:56.857] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[13:13:56.857] Resolved: TRUE
[13:13:56.857] Value: <not collected>
[13:13:56.857] Conditions captured: <none>
[13:13:56.857] Early signaling: FALSE
[13:13:56.857] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:56.857] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:56.874] Chunk #2 of 2 ... DONE
[13:13:56.875] Launching 2 futures (chunks) ... DONE
[13:13:56.875] Resolving 2 futures (chunks) ...
[13:13:56.875] resolve() on list ...
[13:13:56.875]  recursive: 0
[13:13:56.875]  length: 2
[13:13:56.875] 
[13:13:56.876] Future #1
[13:13:56.876] result() for ClusterFuture ...
[13:13:56.876] - result already collected: FutureResult
[13:13:56.876] result() for ClusterFuture ... done
[13:13:56.876] result() for ClusterFuture ...
[13:13:56.876] - result already collected: FutureResult
[13:13:56.876] result() for ClusterFuture ... done
[13:13:56.877] signalConditionsASAP(MultisessionFuture, pos=1) ...
[13:13:56.877] - nx: 2
[13:13:56.877] - relay: TRUE
[13:13:56.877] - stdout: TRUE
[13:13:56.877] - signal: TRUE
[13:13:56.877] - resignal: FALSE
[13:13:56.878] - force: TRUE
[13:13:56.878] - relayed: [n=2] FALSE, FALSE
[13:13:56.878] - queued futures: [n=2] FALSE, FALSE
[13:13:56.878]  - until=1
[13:13:56.878]  - relaying element #1
[13:13:56.878] result() for ClusterFuture ...
[13:13:56.879] - result already collected: FutureResult
[13:13:56.879] result() for ClusterFuture ... done
[13:13:56.879] result() for ClusterFuture ...
[13:13:56.879] - result already collected: FutureResult
[13:13:56.879] result() for ClusterFuture ... done
[13:13:56.879] result() for ClusterFuture ...
[13:13:56.879] - result already collected: FutureResult
[13:13:56.880] result() for ClusterFuture ... done
[13:13:56.880] result() for ClusterFuture ...
[13:13:56.880] - result already collected: FutureResult
[13:13:56.880] result() for ClusterFuture ... done
[13:13:56.880] - relayed: [n=2] TRUE, FALSE
[13:13:56.880] - queued futures: [n=2] TRUE, FALSE
[13:13:56.881] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[13:13:56.881]  length: 1 (resolved future 1)
[13:13:56.881] Future #2
[13:13:56.881] result() for ClusterFuture ...
[13:13:56.881] - result already collected: FutureResult
[13:13:56.881] result() for ClusterFuture ... done
[13:13:56.882] result() for ClusterFuture ...
[13:13:56.882] - result already collected: FutureResult
[13:13:56.882] result() for ClusterFuture ... done
[13:13:56.882] signalConditionsASAP(MultisessionFuture, pos=2) ...
[13:13:56.882] - nx: 2
[13:13:56.882] - relay: TRUE
[13:13:56.883] - stdout: TRUE
[13:13:56.883] - signal: TRUE
[13:13:56.883] - resignal: FALSE
[13:13:56.883] - force: TRUE
[13:13:56.883] - relayed: [n=2] TRUE, FALSE
[13:13:56.883] - queued futures: [n=2] TRUE, FALSE
[13:13:56.883]  - until=2
[13:13:56.884]  - relaying element #2
[13:13:56.884] result() for ClusterFuture ...
[13:13:56.884] - result already collected: FutureResult
[13:13:56.884] result() for ClusterFuture ... done
[13:13:56.884] result() for ClusterFuture ...
[13:13:56.884] - result already collected: FutureResult
[13:13:56.885] result() for ClusterFuture ... done
[13:13:56.885] result() for ClusterFuture ...
[13:13:56.885] - result already collected: FutureResult
[13:13:56.885] result() for ClusterFuture ... done
[13:13:56.885] result() for ClusterFuture ...
[13:13:56.885] - result already collected: FutureResult
[13:13:56.886] result() for ClusterFuture ... done
[13:13:56.886] - relayed: [n=2] TRUE, TRUE
[13:13:56.886] - queued futures: [n=2] TRUE, TRUE
[13:13:56.886] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[13:13:56.886]  length: 0 (resolved future 2)
[13:13:56.886] Relaying remaining futures
[13:13:56.886] signalConditionsASAP(NULL, pos=0) ...
[13:13:56.887] - nx: 2
[13:13:56.887] - relay: TRUE
[13:13:56.887] - stdout: TRUE
[13:13:56.887] - signal: TRUE
[13:13:56.887] - resignal: FALSE
[13:13:56.887] - force: TRUE
[13:13:56.888] - relayed: [n=2] TRUE, TRUE
[13:13:56.888] - queued futures: [n=2] TRUE, TRUE
 - flush all
[13:13:56.888] - relayed: [n=2] TRUE, TRUE
[13:13:56.888] - queued futures: [n=2] TRUE, TRUE
[13:13:56.888] signalConditionsASAP(NULL, pos=0) ... done
[13:13:56.888] resolve() on list ... DONE
[13:13:56.889] result() for ClusterFuture ...
[13:13:56.889] - result already collected: FutureResult
[13:13:56.889] result() for ClusterFuture ... done
[13:13:56.889] result() for ClusterFuture ...
[13:13:56.889] - result already collected: FutureResult
[13:13:56.889] result() for ClusterFuture ... done
[13:13:56.890] result() for ClusterFuture ...
[13:13:56.890] - result already collected: FutureResult
[13:13:56.890] result() for ClusterFuture ... done
[13:13:56.890] result() for ClusterFuture ...
[13:13:56.890] - result already collected: FutureResult
[13:13:56.890] result() for ClusterFuture ... done
[13:13:56.890]  - Number of value chunks collected: 2
[13:13:56.891] Resolving 2 futures (chunks) ... DONE
[13:13:56.891] Reducing values from 2 chunks ...
[13:13:56.891]  - Number of values collected after concatenation: 4
[13:13:56.891]  - Number of values expected: 4
[13:13:56.891] Reducing values from 2 chunks ... DONE
[13:13:56.891] future_mapply() ... DONE
[[1]]
[1] 1.752502

[[2]]
[1] 2.765950 2.044156

[[3]]
[1] 1.419503 3.529684 1.023802

[[4]]
[1] 4.494280 3.546145 1.402837 4.295444

- future_Map() ...
[13:13:56.892] future_mapply() ...
[13:13:56.895] Number of chunks: 2
[13:13:56.895] getGlobalsAndPackagesXApply() ...
[13:13:56.895]  - future.globals: TRUE
[13:13:56.895] getGlobalsAndPackages() ...
[13:13:56.895] Searching for globals...
[13:13:56.897] - globals found: [2] 'FUN', 'UseMethod'
[13:13:56.897] Searching for globals ... DONE
[13:13:56.897] Resolving globals: FALSE
[13:13:56.898] The total size of the 1 globals is 1.38 KiB (1416 bytes)
[13:13:56.898] The total size of the 1 globals exported for future expression ('FUN()') is 1.38 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (1.38 KiB of class 'function')
[13:13:56.898] - globals: [1] 'FUN'
[13:13:56.898] - packages: [1] 'stats'
[13:13:56.899] getGlobalsAndPackages() ... DONE
[13:13:56.899]  - globals found/used: [n=1] 'FUN'
[13:13:56.899]  - needed namespaces: [n=1] 'stats'
[13:13:56.899] Finding globals ... DONE
[13:13:56.899] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:56.900] List of 2
[13:13:56.900]  $ ...future.FUN:function (x, w, ...)  
[13:13:56.900]  $ MoreArgs     : NULL
[13:13:56.900]  - attr(*, "where")=List of 2
[13:13:56.900]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:56.900]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:56.900]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:56.900]  - attr(*, "resolved")= logi FALSE
[13:13:56.900]  - attr(*, "total_size")= num NA
[13:13:56.903] Packages to be attached in all futures: [n=1] 'stats'
[13:13:56.903] getGlobalsAndPackagesXApply() ... DONE
[13:13:56.903] Number of futures (= number of chunks): 2
[13:13:56.903] Launching 2 futures (chunks) ...
[13:13:56.903] Chunk #1 of 2 ...
[13:13:56.904]  - Finding globals in '...' for chunk #1 ...
[13:13:56.904] getGlobalsAndPackages() ...
[13:13:56.904] Searching for globals...
[13:13:56.904] 
[13:13:56.905] Searching for globals ... DONE
[13:13:56.907] - globals: [0] <none>
[13:13:56.907] getGlobalsAndPackages() ... DONE
[13:13:56.907]    + additional globals found: [n=0] 
[13:13:56.907]    + additional namespaces needed: [n=0] 
[13:13:56.907]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:56.908]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:56.908]  - seeds: <none>
[13:13:56.908]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.908] getGlobalsAndPackages() ...
[13:13:56.908] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.908] Resolving globals: FALSE
[13:13:56.909] The total size of the 5 globals is 2.07 KiB (2120 bytes)
[13:13:56.910] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 2.07 KiB.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (1.38 KiB of class 'function'), '...future.elements_ii' (704 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:56.910] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.910] - packages: [1] 'stats'
[13:13:56.910] getGlobalsAndPackages() ... DONE
[13:13:56.911] run() for 'Future' ...
[13:13:56.911] - state: 'created'
[13:13:56.911] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:56.925] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:56.925] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:56.925]   - Field: 'node'
[13:13:56.926]   - Field: 'label'
[13:13:56.926]   - Field: 'local'
[13:13:56.926]   - Field: 'owner'
[13:13:56.926]   - Field: 'envir'
[13:13:56.926]   - Field: 'workers'
[13:13:56.927]   - Field: 'packages'
[13:13:56.927]   - Field: 'gc'
[13:13:56.927]   - Field: 'conditions'
[13:13:56.927]   - Field: 'persistent'
[13:13:56.927]   - Field: 'expr'
[13:13:56.927]   - Field: 'uuid'
[13:13:56.928]   - Field: 'seed'
[13:13:56.928]   - Field: 'version'
[13:13:56.928]   - Field: 'result'
[13:13:56.928]   - Field: 'asynchronous'
[13:13:56.928]   - Field: 'calls'
[13:13:56.928]   - Field: 'globals'
[13:13:56.929]   - Field: 'stdout'
[13:13:56.929]   - Field: 'earlySignal'
[13:13:56.929]   - Field: 'lazy'
[13:13:56.929]   - Field: 'state'
[13:13:56.929] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:56.930] - Launch lazy future ...
[13:13:56.930] Packages needed by the future expression (n = 1): 'stats'
[13:13:56.930] Packages needed by future strategies (n = 0): <none>
[13:13:56.931] {
[13:13:56.931]     {
[13:13:56.931]         {
[13:13:56.931]             ...future.startTime <- base::Sys.time()
[13:13:56.931]             {
[13:13:56.931]                 {
[13:13:56.931]                   {
[13:13:56.931]                     {
[13:13:56.931]                       {
[13:13:56.931]                         base::local({
[13:13:56.931]                           has_future <- base::requireNamespace("future", 
[13:13:56.931]                             quietly = TRUE)
[13:13:56.931]                           if (has_future) {
[13:13:56.931]                             ns <- base::getNamespace("future")
[13:13:56.931]                             version <- ns[[".package"]][["version"]]
[13:13:56.931]                             if (is.null(version)) 
[13:13:56.931]                               version <- utils::packageVersion("future")
[13:13:56.931]                           }
[13:13:56.931]                           else {
[13:13:56.931]                             version <- NULL
[13:13:56.931]                           }
[13:13:56.931]                           if (!has_future || version < "1.8.0") {
[13:13:56.931]                             info <- base::c(r_version = base::gsub("R version ", 
[13:13:56.931]                               "", base::R.version$version.string), 
[13:13:56.931]                               platform = base::sprintf("%s (%s-bit)", 
[13:13:56.931]                                 base::R.version$platform, 8 * 
[13:13:56.931]                                   base::.Machine$sizeof.pointer), 
[13:13:56.931]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:56.931]                                 "release", "version")], collapse = " "), 
[13:13:56.931]                               hostname = base::Sys.info()[["nodename"]])
[13:13:56.931]                             info <- base::sprintf("%s: %s", base::names(info), 
[13:13:56.931]                               info)
[13:13:56.931]                             info <- base::paste(info, collapse = "; ")
[13:13:56.931]                             if (!has_future) {
[13:13:56.931]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:56.931]                                 info)
[13:13:56.931]                             }
[13:13:56.931]                             else {
[13:13:56.931]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:56.931]                                 info, version)
[13:13:56.931]                             }
[13:13:56.931]                             base::stop(msg)
[13:13:56.931]                           }
[13:13:56.931]                         })
[13:13:56.931]                       }
[13:13:56.931]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:56.931]                       base::options(mc.cores = 1L)
[13:13:56.931]                     }
[13:13:56.931]                     base::local({
[13:13:56.931]                       for (pkg in "stats") {
[13:13:56.931]                         base::loadNamespace(pkg)
[13:13:56.931]                         base::library(pkg, character.only = TRUE)
[13:13:56.931]                       }
[13:13:56.931]                     })
[13:13:56.931]                   }
[13:13:56.931]                   options(future.plan = NULL)
[13:13:56.931]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:56.931]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:56.931]                 }
[13:13:56.931]                 ...future.workdir <- getwd()
[13:13:56.931]             }
[13:13:56.931]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:56.931]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:56.931]         }
[13:13:56.931]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:56.931]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:56.931]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:56.931]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:56.931]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:56.931]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:56.931]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:56.931]             base::names(...future.oldOptions))
[13:13:56.931]     }
[13:13:56.931]     if (FALSE) {
[13:13:56.931]     }
[13:13:56.931]     else {
[13:13:56.931]         if (TRUE) {
[13:13:56.931]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:56.931]                 open = "w")
[13:13:56.931]         }
[13:13:56.931]         else {
[13:13:56.931]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:56.931]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:56.931]         }
[13:13:56.931]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:56.931]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:56.931]             base::sink(type = "output", split = FALSE)
[13:13:56.931]             base::close(...future.stdout)
[13:13:56.931]         }, add = TRUE)
[13:13:56.931]     }
[13:13:56.931]     ...future.frame <- base::sys.nframe()
[13:13:56.931]     ...future.conditions <- base::list()
[13:13:56.931]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:56.931]     if (FALSE) {
[13:13:56.931]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:56.931]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:56.931]     }
[13:13:56.931]     ...future.result <- base::tryCatch({
[13:13:56.931]         base::withCallingHandlers({
[13:13:56.931]             ...future.value <- base::withVisible(base::local({
[13:13:56.931]                 ...future.makeSendCondition <- local({
[13:13:56.931]                   sendCondition <- NULL
[13:13:56.931]                   function(frame = 1L) {
[13:13:56.931]                     if (is.function(sendCondition)) 
[13:13:56.931]                       return(sendCondition)
[13:13:56.931]                     ns <- getNamespace("parallel")
[13:13:56.931]                     if (exists("sendData", mode = "function", 
[13:13:56.931]                       envir = ns)) {
[13:13:56.931]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:56.931]                         envir = ns)
[13:13:56.931]                       envir <- sys.frame(frame)
[13:13:56.931]                       master <- NULL
[13:13:56.931]                       while (!identical(envir, .GlobalEnv) && 
[13:13:56.931]                         !identical(envir, emptyenv())) {
[13:13:56.931]                         if (exists("master", mode = "list", envir = envir, 
[13:13:56.931]                           inherits = FALSE)) {
[13:13:56.931]                           master <- get("master", mode = "list", 
[13:13:56.931]                             envir = envir, inherits = FALSE)
[13:13:56.931]                           if (inherits(master, c("SOCKnode", 
[13:13:56.931]                             "SOCK0node"))) {
[13:13:56.931]                             sendCondition <<- function(cond) {
[13:13:56.931]                               data <- list(type = "VALUE", value = cond, 
[13:13:56.931]                                 success = TRUE)
[13:13:56.931]                               parallel_sendData(master, data)
[13:13:56.931]                             }
[13:13:56.931]                             return(sendCondition)
[13:13:56.931]                           }
[13:13:56.931]                         }
[13:13:56.931]                         frame <- frame + 1L
[13:13:56.931]                         envir <- sys.frame(frame)
[13:13:56.931]                       }
[13:13:56.931]                     }
[13:13:56.931]                     sendCondition <<- function(cond) NULL
[13:13:56.931]                   }
[13:13:56.931]                 })
[13:13:56.931]                 withCallingHandlers({
[13:13:56.931]                   {
[13:13:56.931]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:56.931]                     if (!identical(...future.globals.maxSize.org, 
[13:13:56.931]                       ...future.globals.maxSize)) {
[13:13:56.931]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:56.931]                       on.exit(options(oopts), add = TRUE)
[13:13:56.931]                     }
[13:13:56.931]                     {
[13:13:56.931]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:56.931]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:56.931]                         USE.NAMES = FALSE)
[13:13:56.931]                       do.call(mapply, args = args)
[13:13:56.931]                     }
[13:13:56.931]                   }
[13:13:56.931]                 }, immediateCondition = function(cond) {
[13:13:56.931]                   sendCondition <- ...future.makeSendCondition()
[13:13:56.931]                   sendCondition(cond)
[13:13:56.931]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.931]                   {
[13:13:56.931]                     inherits <- base::inherits
[13:13:56.931]                     invokeRestart <- base::invokeRestart
[13:13:56.931]                     is.null <- base::is.null
[13:13:56.931]                     muffled <- FALSE
[13:13:56.931]                     if (inherits(cond, "message")) {
[13:13:56.931]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:56.931]                       if (muffled) 
[13:13:56.931]                         invokeRestart("muffleMessage")
[13:13:56.931]                     }
[13:13:56.931]                     else if (inherits(cond, "warning")) {
[13:13:56.931]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:56.931]                       if (muffled) 
[13:13:56.931]                         invokeRestart("muffleWarning")
[13:13:56.931]                     }
[13:13:56.931]                     else if (inherits(cond, "condition")) {
[13:13:56.931]                       if (!is.null(pattern)) {
[13:13:56.931]                         computeRestarts <- base::computeRestarts
[13:13:56.931]                         grepl <- base::grepl
[13:13:56.931]                         restarts <- computeRestarts(cond)
[13:13:56.931]                         for (restart in restarts) {
[13:13:56.931]                           name <- restart$name
[13:13:56.931]                           if (is.null(name)) 
[13:13:56.931]                             next
[13:13:56.931]                           if (!grepl(pattern, name)) 
[13:13:56.931]                             next
[13:13:56.931]                           invokeRestart(restart)
[13:13:56.931]                           muffled <- TRUE
[13:13:56.931]                           break
[13:13:56.931]                         }
[13:13:56.931]                       }
[13:13:56.931]                     }
[13:13:56.931]                     invisible(muffled)
[13:13:56.931]                   }
[13:13:56.931]                   muffleCondition(cond)
[13:13:56.931]                 })
[13:13:56.931]             }))
[13:13:56.931]             future::FutureResult(value = ...future.value$value, 
[13:13:56.931]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:56.931]                   ...future.rng), globalenv = if (FALSE) 
[13:13:56.931]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:56.931]                     ...future.globalenv.names))
[13:13:56.931]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:56.931]         }, condition = base::local({
[13:13:56.931]             c <- base::c
[13:13:56.931]             inherits <- base::inherits
[13:13:56.931]             invokeRestart <- base::invokeRestart
[13:13:56.931]             length <- base::length
[13:13:56.931]             list <- base::list
[13:13:56.931]             seq.int <- base::seq.int
[13:13:56.931]             signalCondition <- base::signalCondition
[13:13:56.931]             sys.calls <- base::sys.calls
[13:13:56.931]             `[[` <- base::`[[`
[13:13:56.931]             `+` <- base::`+`
[13:13:56.931]             `<<-` <- base::`<<-`
[13:13:56.931]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:56.931]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:56.931]                   3L)]
[13:13:56.931]             }
[13:13:56.931]             function(cond) {
[13:13:56.931]                 is_error <- inherits(cond, "error")
[13:13:56.931]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:56.931]                   NULL)
[13:13:56.931]                 if (is_error) {
[13:13:56.931]                   sessionInformation <- function() {
[13:13:56.931]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:56.931]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:56.931]                       search = base::search(), system = base::Sys.info())
[13:13:56.931]                   }
[13:13:56.931]                   ...future.conditions[[length(...future.conditions) + 
[13:13:56.931]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:56.931]                     cond$call), session = sessionInformation(), 
[13:13:56.931]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:56.931]                   signalCondition(cond)
[13:13:56.931]                 }
[13:13:56.931]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:56.931]                 "immediateCondition"))) {
[13:13:56.931]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:56.931]                   ...future.conditions[[length(...future.conditions) + 
[13:13:56.931]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:56.931]                   if (TRUE && !signal) {
[13:13:56.931]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.931]                     {
[13:13:56.931]                       inherits <- base::inherits
[13:13:56.931]                       invokeRestart <- base::invokeRestart
[13:13:56.931]                       is.null <- base::is.null
[13:13:56.931]                       muffled <- FALSE
[13:13:56.931]                       if (inherits(cond, "message")) {
[13:13:56.931]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:56.931]                         if (muffled) 
[13:13:56.931]                           invokeRestart("muffleMessage")
[13:13:56.931]                       }
[13:13:56.931]                       else if (inherits(cond, "warning")) {
[13:13:56.931]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:56.931]                         if (muffled) 
[13:13:56.931]                           invokeRestart("muffleWarning")
[13:13:56.931]                       }
[13:13:56.931]                       else if (inherits(cond, "condition")) {
[13:13:56.931]                         if (!is.null(pattern)) {
[13:13:56.931]                           computeRestarts <- base::computeRestarts
[13:13:56.931]                           grepl <- base::grepl
[13:13:56.931]                           restarts <- computeRestarts(cond)
[13:13:56.931]                           for (restart in restarts) {
[13:13:56.931]                             name <- restart$name
[13:13:56.931]                             if (is.null(name)) 
[13:13:56.931]                               next
[13:13:56.931]                             if (!grepl(pattern, name)) 
[13:13:56.931]                               next
[13:13:56.931]                             invokeRestart(restart)
[13:13:56.931]                             muffled <- TRUE
[13:13:56.931]                             break
[13:13:56.931]                           }
[13:13:56.931]                         }
[13:13:56.931]                       }
[13:13:56.931]                       invisible(muffled)
[13:13:56.931]                     }
[13:13:56.931]                     muffleCondition(cond, pattern = "^muffle")
[13:13:56.931]                   }
[13:13:56.931]                 }
[13:13:56.931]                 else {
[13:13:56.931]                   if (TRUE) {
[13:13:56.931]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.931]                     {
[13:13:56.931]                       inherits <- base::inherits
[13:13:56.931]                       invokeRestart <- base::invokeRestart
[13:13:56.931]                       is.null <- base::is.null
[13:13:56.931]                       muffled <- FALSE
[13:13:56.931]                       if (inherits(cond, "message")) {
[13:13:56.931]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:56.931]                         if (muffled) 
[13:13:56.931]                           invokeRestart("muffleMessage")
[13:13:56.931]                       }
[13:13:56.931]                       else if (inherits(cond, "warning")) {
[13:13:56.931]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:56.931]                         if (muffled) 
[13:13:56.931]                           invokeRestart("muffleWarning")
[13:13:56.931]                       }
[13:13:56.931]                       else if (inherits(cond, "condition")) {
[13:13:56.931]                         if (!is.null(pattern)) {
[13:13:56.931]                           computeRestarts <- base::computeRestarts
[13:13:56.931]                           grepl <- base::grepl
[13:13:56.931]                           restarts <- computeRestarts(cond)
[13:13:56.931]                           for (restart in restarts) {
[13:13:56.931]                             name <- restart$name
[13:13:56.931]                             if (is.null(name)) 
[13:13:56.931]                               next
[13:13:56.931]                             if (!grepl(pattern, name)) 
[13:13:56.931]                               next
[13:13:56.931]                             invokeRestart(restart)
[13:13:56.931]                             muffled <- TRUE
[13:13:56.931]                             break
[13:13:56.931]                           }
[13:13:56.931]                         }
[13:13:56.931]                       }
[13:13:56.931]                       invisible(muffled)
[13:13:56.931]                     }
[13:13:56.931]                     muffleCondition(cond, pattern = "^muffle")
[13:13:56.931]                   }
[13:13:56.931]                 }
[13:13:56.931]             }
[13:13:56.931]         }))
[13:13:56.931]     }, error = function(ex) {
[13:13:56.931]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:56.931]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:56.931]                 ...future.rng), started = ...future.startTime, 
[13:13:56.931]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:56.931]             version = "1.8"), class = "FutureResult")
[13:13:56.931]     }, finally = {
[13:13:56.931]         if (!identical(...future.workdir, getwd())) 
[13:13:56.931]             setwd(...future.workdir)
[13:13:56.931]         {
[13:13:56.931]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:56.931]                 ...future.oldOptions$nwarnings <- NULL
[13:13:56.931]             }
[13:13:56.931]             base::options(...future.oldOptions)
[13:13:56.931]             if (.Platform$OS.type == "windows") {
[13:13:56.931]                 old_names <- names(...future.oldEnvVars)
[13:13:56.931]                 envs <- base::Sys.getenv()
[13:13:56.931]                 names <- names(envs)
[13:13:56.931]                 common <- intersect(names, old_names)
[13:13:56.931]                 added <- setdiff(names, old_names)
[13:13:56.931]                 removed <- setdiff(old_names, names)
[13:13:56.931]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:56.931]                   envs[common]]
[13:13:56.931]                 NAMES <- toupper(changed)
[13:13:56.931]                 args <- list()
[13:13:56.931]                 for (kk in seq_along(NAMES)) {
[13:13:56.931]                   name <- changed[[kk]]
[13:13:56.931]                   NAME <- NAMES[[kk]]
[13:13:56.931]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.931]                     next
[13:13:56.931]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:56.931]                 }
[13:13:56.931]                 NAMES <- toupper(added)
[13:13:56.931]                 for (kk in seq_along(NAMES)) {
[13:13:56.931]                   name <- added[[kk]]
[13:13:56.931]                   NAME <- NAMES[[kk]]
[13:13:56.931]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.931]                     next
[13:13:56.931]                   args[[name]] <- ""
[13:13:56.931]                 }
[13:13:56.931]                 NAMES <- toupper(removed)
[13:13:56.931]                 for (kk in seq_along(NAMES)) {
[13:13:56.931]                   name <- removed[[kk]]
[13:13:56.931]                   NAME <- NAMES[[kk]]
[13:13:56.931]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.931]                     next
[13:13:56.931]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:56.931]                 }
[13:13:56.931]                 if (length(args) > 0) 
[13:13:56.931]                   base::do.call(base::Sys.setenv, args = args)
[13:13:56.931]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:56.931]             }
[13:13:56.931]             else {
[13:13:56.931]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:56.931]             }
[13:13:56.931]             {
[13:13:56.931]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:56.931]                   0L) {
[13:13:56.931]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:56.931]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:56.931]                   base::options(opts)
[13:13:56.931]                 }
[13:13:56.931]                 {
[13:13:56.931]                   {
[13:13:56.931]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:56.931]                     NULL
[13:13:56.931]                   }
[13:13:56.931]                   options(future.plan = NULL)
[13:13:56.931]                   if (is.na(NA_character_)) 
[13:13:56.931]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:56.931]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:56.931]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:56.931]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:56.931]                     envir = parent.frame()) 
[13:13:56.931]                   {
[13:13:56.931]                     if (is.function(workers)) 
[13:13:56.931]                       workers <- workers()
[13:13:56.931]                     workers <- structure(as.integer(workers), 
[13:13:56.931]                       class = class(workers))
[13:13:56.931]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:56.931]                       workers >= 1)
[13:13:56.931]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:56.931]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:56.931]                     }
[13:13:56.931]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:56.931]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:56.931]                       envir = envir)
[13:13:56.931]                     if (!future$lazy) 
[13:13:56.931]                       future <- run(future)
[13:13:56.931]                     invisible(future)
[13:13:56.931]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:56.931]                 }
[13:13:56.931]             }
[13:13:56.931]         }
[13:13:56.931]     })
[13:13:56.931]     if (TRUE) {
[13:13:56.931]         base::sink(type = "output", split = FALSE)
[13:13:56.931]         if (TRUE) {
[13:13:56.931]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:56.931]         }
[13:13:56.931]         else {
[13:13:56.931]             ...future.result["stdout"] <- base::list(NULL)
[13:13:56.931]         }
[13:13:56.931]         base::close(...future.stdout)
[13:13:56.931]         ...future.stdout <- NULL
[13:13:56.931]     }
[13:13:56.931]     ...future.result$conditions <- ...future.conditions
[13:13:56.931]     ...future.result$finished <- base::Sys.time()
[13:13:56.931]     ...future.result
[13:13:56.931] }
[13:13:56.936] Exporting 5 global objects (2.07 KiB) to cluster node #1 ...
[13:13:56.936] Exporting '...future.FUN' (1.38 KiB) to cluster node #1 ...
[13:13:56.937] Exporting '...future.FUN' (1.38 KiB) to cluster node #1 ... DONE
[13:13:56.937] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:56.937] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:56.938] Exporting '...future.elements_ii' (704 bytes) to cluster node #1 ...
[13:13:56.938] Exporting '...future.elements_ii' (704 bytes) to cluster node #1 ... DONE
[13:13:56.938] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:56.939] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:56.939] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:56.939] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:56.939] Exporting 5 global objects (2.07 KiB) to cluster node #1 ... DONE
[13:13:56.940] MultisessionFuture started
[13:13:56.940] - Launch lazy future ... done
[13:13:56.941] run() for 'MultisessionFuture' ... done
[13:13:56.941] Created future:
[13:13:56.957] receiveMessageFromWorker() for ClusterFuture ...
[13:13:56.957] - Validating connection of MultisessionFuture
[13:13:56.957] - received message: FutureResult
[13:13:56.958] - Received FutureResult
[13:13:56.958] - Erased future from FutureRegistry
[13:13:56.958] result() for ClusterFuture ...
[13:13:56.958] - result already collected: FutureResult
[13:13:56.958] result() for ClusterFuture ... done
[13:13:56.958] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:56.941] MultisessionFuture:
[13:13:56.941] Label: 'future_Map-1'
[13:13:56.941] Expression:
[13:13:56.941] {
[13:13:56.941]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:56.941]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:56.941]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:56.941]         on.exit(options(oopts), add = TRUE)
[13:13:56.941]     }
[13:13:56.941]     {
[13:13:56.941]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:56.941]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:56.941]         do.call(mapply, args = args)
[13:13:56.941]     }
[13:13:56.941] }
[13:13:56.941] Lazy evaluation: FALSE
[13:13:56.941] Asynchronous evaluation: TRUE
[13:13:56.941] Local evaluation: TRUE
[13:13:56.941] Environment: R_GlobalEnv
[13:13:56.941] Capture standard output: TRUE
[13:13:56.941] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:56.941] Globals: 5 objects totaling 2.07 KiB (function '...future.FUN' of 1.38 KiB, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 704 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:56.941] Packages: 1 packages ('stats')
[13:13:56.941] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:56.941] Resolved: TRUE
[13:13:56.941] Value: <not collected>
[13:13:56.941] Conditions captured: <none>
[13:13:56.941] Early signaling: FALSE
[13:13:56.941] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:56.941] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:56.959] Chunk #1 of 2 ... DONE
[13:13:56.959] Chunk #2 of 2 ...
[13:13:56.959]  - Finding globals in '...' for chunk #2 ...
[13:13:56.959] getGlobalsAndPackages() ...
[13:13:56.960] Searching for globals...
[13:13:56.960] 
[13:13:56.960] Searching for globals ... DONE
[13:13:56.960] - globals: [0] <none>
[13:13:56.960] getGlobalsAndPackages() ... DONE
[13:13:56.961]    + additional globals found: [n=0] 
[13:13:56.961]    + additional namespaces needed: [n=0] 
[13:13:56.961]  - Finding globals in '...' for chunk #2 ... DONE
[13:13:56.961]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:56.961]  - seeds: <none>
[13:13:56.961]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.962] getGlobalsAndPackages() ...
[13:13:56.962] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.962] Resolving globals: FALSE
[13:13:56.963] The total size of the 5 globals is 2.41 KiB (2472 bytes)
[13:13:56.963] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 2.41 KiB.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (1.38 KiB of class 'function'), '...future.elements_ii' (1.03 KiB of class 'list') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:56.963] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:56.964] - packages: [1] 'stats'
[13:13:56.964] getGlobalsAndPackages() ... DONE
[13:13:56.964] run() for 'Future' ...
[13:13:56.964] - state: 'created'
[13:13:56.965] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:56.978] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:56.978] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:56.978]   - Field: 'node'
[13:13:56.979]   - Field: 'label'
[13:13:56.979]   - Field: 'local'
[13:13:56.979]   - Field: 'owner'
[13:13:56.979]   - Field: 'envir'
[13:13:56.979]   - Field: 'workers'
[13:13:56.980]   - Field: 'packages'
[13:13:56.980]   - Field: 'gc'
[13:13:56.980]   - Field: 'conditions'
[13:13:56.980]   - Field: 'persistent'
[13:13:56.980]   - Field: 'expr'
[13:13:56.980]   - Field: 'uuid'
[13:13:56.981]   - Field: 'seed'
[13:13:56.981]   - Field: 'version'
[13:13:56.981]   - Field: 'result'
[13:13:56.981]   - Field: 'asynchronous'
[13:13:56.981]   - Field: 'calls'
[13:13:56.981]   - Field: 'globals'
[13:13:56.982]   - Field: 'stdout'
[13:13:56.982]   - Field: 'earlySignal'
[13:13:56.982]   - Field: 'lazy'
[13:13:56.982]   - Field: 'state'
[13:13:56.982] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:56.983] - Launch lazy future ...
[13:13:56.983] Packages needed by the future expression (n = 1): 'stats'
[13:13:56.983] Packages needed by future strategies (n = 0): <none>
[13:13:56.984] {
[13:13:56.984]     {
[13:13:56.984]         {
[13:13:56.984]             ...future.startTime <- base::Sys.time()
[13:13:56.984]             {
[13:13:56.984]                 {
[13:13:56.984]                   {
[13:13:56.984]                     {
[13:13:56.984]                       {
[13:13:56.984]                         base::local({
[13:13:56.984]                           has_future <- base::requireNamespace("future", 
[13:13:56.984]                             quietly = TRUE)
[13:13:56.984]                           if (has_future) {
[13:13:56.984]                             ns <- base::getNamespace("future")
[13:13:56.984]                             version <- ns[[".package"]][["version"]]
[13:13:56.984]                             if (is.null(version)) 
[13:13:56.984]                               version <- utils::packageVersion("future")
[13:13:56.984]                           }
[13:13:56.984]                           else {
[13:13:56.984]                             version <- NULL
[13:13:56.984]                           }
[13:13:56.984]                           if (!has_future || version < "1.8.0") {
[13:13:56.984]                             info <- base::c(r_version = base::gsub("R version ", 
[13:13:56.984]                               "", base::R.version$version.string), 
[13:13:56.984]                               platform = base::sprintf("%s (%s-bit)", 
[13:13:56.984]                                 base::R.version$platform, 8 * 
[13:13:56.984]                                   base::.Machine$sizeof.pointer), 
[13:13:56.984]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:56.984]                                 "release", "version")], collapse = " "), 
[13:13:56.984]                               hostname = base::Sys.info()[["nodename"]])
[13:13:56.984]                             info <- base::sprintf("%s: %s", base::names(info), 
[13:13:56.984]                               info)
[13:13:56.984]                             info <- base::paste(info, collapse = "; ")
[13:13:56.984]                             if (!has_future) {
[13:13:56.984]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:56.984]                                 info)
[13:13:56.984]                             }
[13:13:56.984]                             else {
[13:13:56.984]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:56.984]                                 info, version)
[13:13:56.984]                             }
[13:13:56.984]                             base::stop(msg)
[13:13:56.984]                           }
[13:13:56.984]                         })
[13:13:56.984]                       }
[13:13:56.984]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:56.984]                       base::options(mc.cores = 1L)
[13:13:56.984]                     }
[13:13:56.984]                     base::local({
[13:13:56.984]                       for (pkg in "stats") {
[13:13:56.984]                         base::loadNamespace(pkg)
[13:13:56.984]                         base::library(pkg, character.only = TRUE)
[13:13:56.984]                       }
[13:13:56.984]                     })
[13:13:56.984]                   }
[13:13:56.984]                   options(future.plan = NULL)
[13:13:56.984]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:56.984]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:56.984]                 }
[13:13:56.984]                 ...future.workdir <- getwd()
[13:13:56.984]             }
[13:13:56.984]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:56.984]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:56.984]         }
[13:13:56.984]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:56.984]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:56.984]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:56.984]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:56.984]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:56.984]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:56.984]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:56.984]             base::names(...future.oldOptions))
[13:13:56.984]     }
[13:13:56.984]     if (FALSE) {
[13:13:56.984]     }
[13:13:56.984]     else {
[13:13:56.984]         if (TRUE) {
[13:13:56.984]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:56.984]                 open = "w")
[13:13:56.984]         }
[13:13:56.984]         else {
[13:13:56.984]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:56.984]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:56.984]         }
[13:13:56.984]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:56.984]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:56.984]             base::sink(type = "output", split = FALSE)
[13:13:56.984]             base::close(...future.stdout)
[13:13:56.984]         }, add = TRUE)
[13:13:56.984]     }
[13:13:56.984]     ...future.frame <- base::sys.nframe()
[13:13:56.984]     ...future.conditions <- base::list()
[13:13:56.984]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:56.984]     if (FALSE) {
[13:13:56.984]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:56.984]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:56.984]     }
[13:13:56.984]     ...future.result <- base::tryCatch({
[13:13:56.984]         base::withCallingHandlers({
[13:13:56.984]             ...future.value <- base::withVisible(base::local({
[13:13:56.984]                 ...future.makeSendCondition <- local({
[13:13:56.984]                   sendCondition <- NULL
[13:13:56.984]                   function(frame = 1L) {
[13:13:56.984]                     if (is.function(sendCondition)) 
[13:13:56.984]                       return(sendCondition)
[13:13:56.984]                     ns <- getNamespace("parallel")
[13:13:56.984]                     if (exists("sendData", mode = "function", 
[13:13:56.984]                       envir = ns)) {
[13:13:56.984]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:56.984]                         envir = ns)
[13:13:56.984]                       envir <- sys.frame(frame)
[13:13:56.984]                       master <- NULL
[13:13:56.984]                       while (!identical(envir, .GlobalEnv) && 
[13:13:56.984]                         !identical(envir, emptyenv())) {
[13:13:56.984]                         if (exists("master", mode = "list", envir = envir, 
[13:13:56.984]                           inherits = FALSE)) {
[13:13:56.984]                           master <- get("master", mode = "list", 
[13:13:56.984]                             envir = envir, inherits = FALSE)
[13:13:56.984]                           if (inherits(master, c("SOCKnode", 
[13:13:56.984]                             "SOCK0node"))) {
[13:13:56.984]                             sendCondition <<- function(cond) {
[13:13:56.984]                               data <- list(type = "VALUE", value = cond, 
[13:13:56.984]                                 success = TRUE)
[13:13:56.984]                               parallel_sendData(master, data)
[13:13:56.984]                             }
[13:13:56.984]                             return(sendCondition)
[13:13:56.984]                           }
[13:13:56.984]                         }
[13:13:56.984]                         frame <- frame + 1L
[13:13:56.984]                         envir <- sys.frame(frame)
[13:13:56.984]                       }
[13:13:56.984]                     }
[13:13:56.984]                     sendCondition <<- function(cond) NULL
[13:13:56.984]                   }
[13:13:56.984]                 })
[13:13:56.984]                 withCallingHandlers({
[13:13:56.984]                   {
[13:13:56.984]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:56.984]                     if (!identical(...future.globals.maxSize.org, 
[13:13:56.984]                       ...future.globals.maxSize)) {
[13:13:56.984]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:56.984]                       on.exit(options(oopts), add = TRUE)
[13:13:56.984]                     }
[13:13:56.984]                     {
[13:13:56.984]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:56.984]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:56.984]                         USE.NAMES = FALSE)
[13:13:56.984]                       do.call(mapply, args = args)
[13:13:56.984]                     }
[13:13:56.984]                   }
[13:13:56.984]                 }, immediateCondition = function(cond) {
[13:13:56.984]                   sendCondition <- ...future.makeSendCondition()
[13:13:56.984]                   sendCondition(cond)
[13:13:56.984]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.984]                   {
[13:13:56.984]                     inherits <- base::inherits
[13:13:56.984]                     invokeRestart <- base::invokeRestart
[13:13:56.984]                     is.null <- base::is.null
[13:13:56.984]                     muffled <- FALSE
[13:13:56.984]                     if (inherits(cond, "message")) {
[13:13:56.984]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:56.984]                       if (muffled) 
[13:13:56.984]                         invokeRestart("muffleMessage")
[13:13:56.984]                     }
[13:13:56.984]                     else if (inherits(cond, "warning")) {
[13:13:56.984]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:56.984]                       if (muffled) 
[13:13:56.984]                         invokeRestart("muffleWarning")
[13:13:56.984]                     }
[13:13:56.984]                     else if (inherits(cond, "condition")) {
[13:13:56.984]                       if (!is.null(pattern)) {
[13:13:56.984]                         computeRestarts <- base::computeRestarts
[13:13:56.984]                         grepl <- base::grepl
[13:13:56.984]                         restarts <- computeRestarts(cond)
[13:13:56.984]                         for (restart in restarts) {
[13:13:56.984]                           name <- restart$name
[13:13:56.984]                           if (is.null(name)) 
[13:13:56.984]                             next
[13:13:56.984]                           if (!grepl(pattern, name)) 
[13:13:56.984]                             next
[13:13:56.984]                           invokeRestart(restart)
[13:13:56.984]                           muffled <- TRUE
[13:13:56.984]                           break
[13:13:56.984]                         }
[13:13:56.984]                       }
[13:13:56.984]                     }
[13:13:56.984]                     invisible(muffled)
[13:13:56.984]                   }
[13:13:56.984]                   muffleCondition(cond)
[13:13:56.984]                 })
[13:13:56.984]             }))
[13:13:56.984]             future::FutureResult(value = ...future.value$value, 
[13:13:56.984]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:56.984]                   ...future.rng), globalenv = if (FALSE) 
[13:13:56.984]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:56.984]                     ...future.globalenv.names))
[13:13:56.984]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:56.984]         }, condition = base::local({
[13:13:56.984]             c <- base::c
[13:13:56.984]             inherits <- base::inherits
[13:13:56.984]             invokeRestart <- base::invokeRestart
[13:13:56.984]             length <- base::length
[13:13:56.984]             list <- base::list
[13:13:56.984]             seq.int <- base::seq.int
[13:13:56.984]             signalCondition <- base::signalCondition
[13:13:56.984]             sys.calls <- base::sys.calls
[13:13:56.984]             `[[` <- base::`[[`
[13:13:56.984]             `+` <- base::`+`
[13:13:56.984]             `<<-` <- base::`<<-`
[13:13:56.984]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:56.984]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:56.984]                   3L)]
[13:13:56.984]             }
[13:13:56.984]             function(cond) {
[13:13:56.984]                 is_error <- inherits(cond, "error")
[13:13:56.984]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:56.984]                   NULL)
[13:13:56.984]                 if (is_error) {
[13:13:56.984]                   sessionInformation <- function() {
[13:13:56.984]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:56.984]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:56.984]                       search = base::search(), system = base::Sys.info())
[13:13:56.984]                   }
[13:13:56.984]                   ...future.conditions[[length(...future.conditions) + 
[13:13:56.984]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:56.984]                     cond$call), session = sessionInformation(), 
[13:13:56.984]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:56.984]                   signalCondition(cond)
[13:13:56.984]                 }
[13:13:56.984]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:56.984]                 "immediateCondition"))) {
[13:13:56.984]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:56.984]                   ...future.conditions[[length(...future.conditions) + 
[13:13:56.984]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:56.984]                   if (TRUE && !signal) {
[13:13:56.984]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.984]                     {
[13:13:56.984]                       inherits <- base::inherits
[13:13:56.984]                       invokeRestart <- base::invokeRestart
[13:13:56.984]                       is.null <- base::is.null
[13:13:56.984]                       muffled <- FALSE
[13:13:56.984]                       if (inherits(cond, "message")) {
[13:13:56.984]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:56.984]                         if (muffled) 
[13:13:56.984]                           invokeRestart("muffleMessage")
[13:13:56.984]                       }
[13:13:56.984]                       else if (inherits(cond, "warning")) {
[13:13:56.984]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:56.984]                         if (muffled) 
[13:13:56.984]                           invokeRestart("muffleWarning")
[13:13:56.984]                       }
[13:13:56.984]                       else if (inherits(cond, "condition")) {
[13:13:56.984]                         if (!is.null(pattern)) {
[13:13:56.984]                           computeRestarts <- base::computeRestarts
[13:13:56.984]                           grepl <- base::grepl
[13:13:56.984]                           restarts <- computeRestarts(cond)
[13:13:56.984]                           for (restart in restarts) {
[13:13:56.984]                             name <- restart$name
[13:13:56.984]                             if (is.null(name)) 
[13:13:56.984]                               next
[13:13:56.984]                             if (!grepl(pattern, name)) 
[13:13:56.984]                               next
[13:13:56.984]                             invokeRestart(restart)
[13:13:56.984]                             muffled <- TRUE
[13:13:56.984]                             break
[13:13:56.984]                           }
[13:13:56.984]                         }
[13:13:56.984]                       }
[13:13:56.984]                       invisible(muffled)
[13:13:56.984]                     }
[13:13:56.984]                     muffleCondition(cond, pattern = "^muffle")
[13:13:56.984]                   }
[13:13:56.984]                 }
[13:13:56.984]                 else {
[13:13:56.984]                   if (TRUE) {
[13:13:56.984]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:56.984]                     {
[13:13:56.984]                       inherits <- base::inherits
[13:13:56.984]                       invokeRestart <- base::invokeRestart
[13:13:56.984]                       is.null <- base::is.null
[13:13:56.984]                       muffled <- FALSE
[13:13:56.984]                       if (inherits(cond, "message")) {
[13:13:56.984]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:56.984]                         if (muffled) 
[13:13:56.984]                           invokeRestart("muffleMessage")
[13:13:56.984]                       }
[13:13:56.984]                       else if (inherits(cond, "warning")) {
[13:13:56.984]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:56.984]                         if (muffled) 
[13:13:56.984]                           invokeRestart("muffleWarning")
[13:13:56.984]                       }
[13:13:56.984]                       else if (inherits(cond, "condition")) {
[13:13:56.984]                         if (!is.null(pattern)) {
[13:13:56.984]                           computeRestarts <- base::computeRestarts
[13:13:56.984]                           grepl <- base::grepl
[13:13:56.984]                           restarts <- computeRestarts(cond)
[13:13:56.984]                           for (restart in restarts) {
[13:13:56.984]                             name <- restart$name
[13:13:56.984]                             if (is.null(name)) 
[13:13:56.984]                               next
[13:13:56.984]                             if (!grepl(pattern, name)) 
[13:13:56.984]                               next
[13:13:56.984]                             invokeRestart(restart)
[13:13:56.984]                             muffled <- TRUE
[13:13:56.984]                             break
[13:13:56.984]                           }
[13:13:56.984]                         }
[13:13:56.984]                       }
[13:13:56.984]                       invisible(muffled)
[13:13:56.984]                     }
[13:13:56.984]                     muffleCondition(cond, pattern = "^muffle")
[13:13:56.984]                   }
[13:13:56.984]                 }
[13:13:56.984]             }
[13:13:56.984]         }))
[13:13:56.984]     }, error = function(ex) {
[13:13:56.984]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:56.984]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:56.984]                 ...future.rng), started = ...future.startTime, 
[13:13:56.984]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:56.984]             version = "1.8"), class = "FutureResult")
[13:13:56.984]     }, finally = {
[13:13:56.984]         if (!identical(...future.workdir, getwd())) 
[13:13:56.984]             setwd(...future.workdir)
[13:13:56.984]         {
[13:13:56.984]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:56.984]                 ...future.oldOptions$nwarnings <- NULL
[13:13:56.984]             }
[13:13:56.984]             base::options(...future.oldOptions)
[13:13:56.984]             if (.Platform$OS.type == "windows") {
[13:13:56.984]                 old_names <- names(...future.oldEnvVars)
[13:13:56.984]                 envs <- base::Sys.getenv()
[13:13:56.984]                 names <- names(envs)
[13:13:56.984]                 common <- intersect(names, old_names)
[13:13:56.984]                 added <- setdiff(names, old_names)
[13:13:56.984]                 removed <- setdiff(old_names, names)
[13:13:56.984]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:56.984]                   envs[common]]
[13:13:56.984]                 NAMES <- toupper(changed)
[13:13:56.984]                 args <- list()
[13:13:56.984]                 for (kk in seq_along(NAMES)) {
[13:13:56.984]                   name <- changed[[kk]]
[13:13:56.984]                   NAME <- NAMES[[kk]]
[13:13:56.984]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.984]                     next
[13:13:56.984]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:56.984]                 }
[13:13:56.984]                 NAMES <- toupper(added)
[13:13:56.984]                 for (kk in seq_along(NAMES)) {
[13:13:56.984]                   name <- added[[kk]]
[13:13:56.984]                   NAME <- NAMES[[kk]]
[13:13:56.984]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.984]                     next
[13:13:56.984]                   args[[name]] <- ""
[13:13:56.984]                 }
[13:13:56.984]                 NAMES <- toupper(removed)
[13:13:56.984]                 for (kk in seq_along(NAMES)) {
[13:13:56.984]                   name <- removed[[kk]]
[13:13:56.984]                   NAME <- NAMES[[kk]]
[13:13:56.984]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:56.984]                     next
[13:13:56.984]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:56.984]                 }
[13:13:56.984]                 if (length(args) > 0) 
[13:13:56.984]                   base::do.call(base::Sys.setenv, args = args)
[13:13:56.984]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:56.984]             }
[13:13:56.984]             else {
[13:13:56.984]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:56.984]             }
[13:13:56.984]             {
[13:13:56.984]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:56.984]                   0L) {
[13:13:56.984]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:56.984]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:56.984]                   base::options(opts)
[13:13:56.984]                 }
[13:13:56.984]                 {
[13:13:56.984]                   {
[13:13:56.984]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:56.984]                     NULL
[13:13:56.984]                   }
[13:13:56.984]                   options(future.plan = NULL)
[13:13:56.984]                   if (is.na(NA_character_)) 
[13:13:56.984]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:56.984]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:56.984]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:56.984]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:56.984]                     envir = parent.frame()) 
[13:13:56.984]                   {
[13:13:56.984]                     if (is.function(workers)) 
[13:13:56.984]                       workers <- workers()
[13:13:56.984]                     workers <- structure(as.integer(workers), 
[13:13:56.984]                       class = class(workers))
[13:13:56.984]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:56.984]                       workers >= 1)
[13:13:56.984]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:56.984]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:56.984]                     }
[13:13:56.984]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:56.984]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:56.984]                       envir = envir)
[13:13:56.984]                     if (!future$lazy) 
[13:13:56.984]                       future <- run(future)
[13:13:56.984]                     invisible(future)
[13:13:56.984]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:56.984]                 }
[13:13:56.984]             }
[13:13:56.984]         }
[13:13:56.984]     })
[13:13:56.984]     if (TRUE) {
[13:13:56.984]         base::sink(type = "output", split = FALSE)
[13:13:56.984]         if (TRUE) {
[13:13:56.984]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:56.984]         }
[13:13:56.984]         else {
[13:13:56.984]             ...future.result["stdout"] <- base::list(NULL)
[13:13:56.984]         }
[13:13:56.984]         base::close(...future.stdout)
[13:13:56.984]         ...future.stdout <- NULL
[13:13:56.984]     }
[13:13:56.984]     ...future.result$conditions <- ...future.conditions
[13:13:56.984]     ...future.result$finished <- base::Sys.time()
[13:13:56.984]     ...future.result
[13:13:56.984] }
[13:13:56.989] Exporting 5 global objects (2.41 KiB) to cluster node #1 ...
[13:13:56.989] Exporting '...future.FUN' (1.38 KiB) to cluster node #1 ...
[13:13:56.990] Exporting '...future.FUN' (1.38 KiB) to cluster node #1 ... DONE
[13:13:56.990] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:56.990] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:56.991] Exporting '...future.elements_ii' (1.03 KiB) to cluster node #1 ...
[13:13:56.991] Exporting '...future.elements_ii' (1.03 KiB) to cluster node #1 ... DONE
[13:13:56.991] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:56.992] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:56.992] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:56.992] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:56.992] Exporting 5 global objects (2.41 KiB) to cluster node #1 ... DONE
[13:13:56.993] MultisessionFuture started
[13:13:56.993] - Launch lazy future ... done
[13:13:56.993] run() for 'MultisessionFuture' ... done
[13:13:56.994] Created future:
[13:13:57.010] receiveMessageFromWorker() for ClusterFuture ...
[13:13:57.010] - Validating connection of MultisessionFuture
[13:13:57.010] - received message: FutureResult
[13:13:57.010] - Received FutureResult
[13:13:57.011] - Erased future from FutureRegistry
[13:13:57.011] result() for ClusterFuture ...
[13:13:57.011] - result already collected: FutureResult
[13:13:57.011] result() for ClusterFuture ... done
[13:13:57.011] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:56.994] MultisessionFuture:
[13:13:56.994] Label: 'future_Map-2'
[13:13:56.994] Expression:
[13:13:56.994] {
[13:13:56.994]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:56.994]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:56.994]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:56.994]         on.exit(options(oopts), add = TRUE)
[13:13:56.994]     }
[13:13:56.994]     {
[13:13:56.994]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:56.994]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:56.994]         do.call(mapply, args = args)
[13:13:56.994]     }
[13:13:56.994] }
[13:13:56.994] Lazy evaluation: FALSE
[13:13:56.994] Asynchronous evaluation: TRUE
[13:13:56.994] Local evaluation: TRUE
[13:13:56.994] Environment: R_GlobalEnv
[13:13:56.994] Capture standard output: TRUE
[13:13:56.994] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:56.994] Globals: 5 objects totaling 2.41 KiB (function '...future.FUN' of 1.38 KiB, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 1.03 KiB, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:56.994] Packages: 1 packages ('stats')
[13:13:56.994] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:56.994] Resolved: TRUE
[13:13:56.994] Value: <not collected>
[13:13:56.994] Conditions captured: <none>
[13:13:56.994] Early signaling: FALSE
[13:13:56.994] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:56.994] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:57.012] Chunk #2 of 2 ... DONE
[13:13:57.012] Launching 2 futures (chunks) ... DONE
[13:13:57.012] Resolving 2 futures (chunks) ...
[13:13:57.012] resolve() on list ...
[13:13:57.012]  recursive: 0
[13:13:57.012]  length: 2
[13:13:57.013] 
[13:13:57.013] Future #1
[13:13:57.013] result() for ClusterFuture ...
[13:13:57.013] - result already collected: FutureResult
[13:13:57.013] result() for ClusterFuture ... done
[13:13:57.013] result() for ClusterFuture ...
[13:13:57.014] - result already collected: FutureResult
[13:13:57.014] result() for ClusterFuture ... done
[13:13:57.014] signalConditionsASAP(MultisessionFuture, pos=1) ...
[13:13:57.014] - nx: 2
[13:13:57.014] - relay: TRUE
[13:13:57.014] - stdout: TRUE
[13:13:57.014] - signal: TRUE
[13:13:57.015] - resignal: FALSE
[13:13:57.015] - force: TRUE
[13:13:57.015] - relayed: [n=2] FALSE, FALSE
[13:13:57.015] - queued futures: [n=2] FALSE, FALSE
[13:13:57.015]  - until=1
[13:13:57.015]  - relaying element #1
[13:13:57.016] result() for ClusterFuture ...
[13:13:57.016] - result already collected: FutureResult
[13:13:57.016] result() for ClusterFuture ... done
[13:13:57.016] result() for ClusterFuture ...
[13:13:57.016] - result already collected: FutureResult
[13:13:57.016] result() for ClusterFuture ... done
[13:13:57.017] result() for ClusterFuture ...
[13:13:57.017] - result already collected: FutureResult
[13:13:57.017] result() for ClusterFuture ... done
[13:13:57.017] result() for ClusterFuture ...
[13:13:57.017] - result already collected: FutureResult
[13:13:57.017] result() for ClusterFuture ... done
[13:13:57.017] - relayed: [n=2] TRUE, FALSE
[13:13:57.018] - queued futures: [n=2] TRUE, FALSE
[13:13:57.018] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[13:13:57.018]  length: 1 (resolved future 1)
[13:13:57.018] Future #2
[13:13:57.018] result() for ClusterFuture ...
[13:13:57.018] - result already collected: FutureResult
[13:13:57.019] result() for ClusterFuture ... done
[13:13:57.019] result() for ClusterFuture ...
[13:13:57.019] - result already collected: FutureResult
[13:13:57.019] result() for ClusterFuture ... done
[13:13:57.019] signalConditionsASAP(MultisessionFuture, pos=2) ...
[13:13:57.019] - nx: 2
[13:13:57.020] - relay: TRUE
[13:13:57.020] - stdout: TRUE
[13:13:57.020] - signal: TRUE
[13:13:57.020] - resignal: FALSE
[13:13:57.020] - force: TRUE
[13:13:57.020] - relayed: [n=2] TRUE, FALSE
[13:13:57.020] - queued futures: [n=2] TRUE, FALSE
[13:13:57.021]  - until=2
[13:13:57.021]  - relaying element #2
[13:13:57.021] result() for ClusterFuture ...
[13:13:57.021] - result already collected: FutureResult
[13:13:57.021] result() for ClusterFuture ... done
[13:13:57.021] result() for ClusterFuture ...
[13:13:57.022] - result already collected: FutureResult
[13:13:57.022] result() for ClusterFuture ... done
[13:13:57.022] result() for ClusterFuture ...
[13:13:57.022] - result already collected: FutureResult
[13:13:57.022] result() for ClusterFuture ... done
[13:13:57.022] result() for ClusterFuture ...
[13:13:57.023] - result already collected: FutureResult
[13:13:57.023] result() for ClusterFuture ... done
[13:13:57.023] - relayed: [n=2] TRUE, TRUE
[13:13:57.023] - queued futures: [n=2] TRUE, TRUE
[13:13:57.023] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[13:13:57.023]  length: 0 (resolved future 2)
[13:13:57.023] Relaying remaining futures
[13:13:57.024] signalConditionsASAP(NULL, pos=0) ...
[13:13:57.024] - nx: 2
[13:13:57.024] - relay: TRUE
[13:13:57.024] - stdout: TRUE
[13:13:57.024] - signal: TRUE
[13:13:57.024] - resignal: FALSE
[13:13:57.024] - force: TRUE
[13:13:57.025] - relayed: [n=2] TRUE, TRUE
[13:13:57.025] - queued futures: [n=2] TRUE, TRUE
 - flush all
[13:13:57.025] - relayed: [n=2] TRUE, TRUE
[13:13:57.025] - queued futures: [n=2] TRUE, TRUE
[13:13:57.025] signalConditionsASAP(NULL, pos=0) ... done
[13:13:57.026] resolve() on list ... DONE
[13:13:57.026] result() for ClusterFuture ...
[13:13:57.026] - result already collected: FutureResult
[13:13:57.026] result() for ClusterFuture ... done
[13:13:57.026] result() for ClusterFuture ...
[13:13:57.026] - result already collected: FutureResult
[13:13:57.026] result() for ClusterFuture ... done
[13:13:57.027] result() for ClusterFuture ...
[13:13:57.027] - result already collected: FutureResult
[13:13:57.027] result() for ClusterFuture ... done
[13:13:57.027] result() for ClusterFuture ...
[13:13:57.027] - result already collected: FutureResult
[13:13:57.027] result() for ClusterFuture ... done
[13:13:57.028]  - Number of value chunks collected: 2
[13:13:57.028] Resolving 2 futures (chunks) ... DONE
[13:13:57.028] Reducing values from 2 chunks ...
[13:13:57.028]  - Number of values collected after concatenation: 5
[13:13:57.028]  - Number of values expected: 5
[13:13:57.028] Reducing values from 2 chunks ... DONE
[13:13:57.029] future_mapply() ... DONE
- future_mapply() - 'max-or-0-if' recycling rule ...
[13:13:57.031] future_mapply() ...
[13:13:57.034] Number of chunks: 2
[13:13:57.034] getGlobalsAndPackagesXApply() ...
[13:13:57.034]  - future.globals: TRUE
[13:13:57.034] getGlobalsAndPackages() ...
[13:13:57.034] Searching for globals...
[13:13:57.035] - globals found: [1] 'FUN'
[13:13:57.035] Searching for globals ... DONE
[13:13:57.035] Resolving globals: FALSE
[13:13:57.036] The total size of the 1 globals is 56 bytes (56 bytes)
[13:13:57.036] The total size of the 1 globals exported for future expression ('FUN()') is 56 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (56 bytes of class 'function')
[13:13:57.036] - globals: [1] 'FUN'
[13:13:57.037] 
[13:13:57.037] getGlobalsAndPackages() ... DONE
[13:13:57.037]  - globals found/used: [n=1] 'FUN'
[13:13:57.037]  - needed namespaces: [n=0] 
[13:13:57.037] Finding globals ... DONE
[13:13:57.037] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:57.038] List of 2
[13:13:57.038]  $ ...future.FUN:function (e1, e2)  
[13:13:57.038]  $ MoreArgs     : NULL
[13:13:57.038]  - attr(*, "where")=List of 2
[13:13:57.038]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:57.038]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:57.038]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:57.038]  - attr(*, "resolved")= logi FALSE
[13:13:57.038]  - attr(*, "total_size")= num NA
[13:13:57.041] Packages to be attached in all futures: [n=0] 
[13:13:57.041] getGlobalsAndPackagesXApply() ... DONE
[13:13:57.041] Number of futures (= number of chunks): 2
[13:13:57.041] Launching 2 futures (chunks) ...
[13:13:57.041] Chunk #1 of 2 ...
[13:13:57.042]  - Finding globals in '...' for chunk #1 ...
[13:13:57.042] getGlobalsAndPackages() ...
[13:13:57.042] Searching for globals...
[13:13:57.042] 
[13:13:57.043] Searching for globals ... DONE
[13:13:57.043] - globals: [0] <none>
[13:13:57.043] getGlobalsAndPackages() ... DONE
[13:13:57.043]    + additional globals found: [n=0] 
[13:13:57.043]    + additional namespaces needed: [n=0] 
[13:13:57.043]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:57.044]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:57.044]  - seeds: <none>
[13:13:57.044]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:57.044] getGlobalsAndPackages() ...
[13:13:57.044] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:57.044] Resolving globals: FALSE
[13:13:57.045] The total size of the 5 globals is 168 bytes (168 bytes)
[13:13:57.046] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 168 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (112 bytes of class 'list'), '...future.FUN' (56 bytes of class 'function') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:57.046] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:57.046] 
[13:13:57.046] getGlobalsAndPackages() ... DONE
[13:13:57.046] run() for 'Future' ...
[13:13:57.047] - state: 'created'
[13:13:57.047] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:57.061] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:57.061] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:57.061]   - Field: 'node'
[13:13:57.061]   - Field: 'label'
[13:13:57.061]   - Field: 'local'
[13:13:57.062]   - Field: 'owner'
[13:13:57.062]   - Field: 'envir'
[13:13:57.062]   - Field: 'workers'
[13:13:57.062]   - Field: 'packages'
[13:13:57.062]   - Field: 'gc'
[13:13:57.062]   - Field: 'conditions'
[13:13:57.063]   - Field: 'persistent'
[13:13:57.063]   - Field: 'expr'
[13:13:57.063]   - Field: 'uuid'
[13:13:57.063]   - Field: 'seed'
[13:13:57.063]   - Field: 'version'
[13:13:57.064]   - Field: 'result'
[13:13:57.064]   - Field: 'asynchronous'
[13:13:57.064]   - Field: 'calls'
[13:13:57.064]   - Field: 'globals'
[13:13:57.064]   - Field: 'stdout'
[13:13:57.064]   - Field: 'earlySignal'
[13:13:57.065]   - Field: 'lazy'
[13:13:57.065]   - Field: 'state'
[13:13:57.065] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:57.065] - Launch lazy future ...
[13:13:57.065] Packages needed by the future expression (n = 0): <none>
[13:13:57.066] Packages needed by future strategies (n = 0): <none>
[13:13:57.066] {
[13:13:57.066]     {
[13:13:57.066]         {
[13:13:57.066]             ...future.startTime <- base::Sys.time()
[13:13:57.066]             {
[13:13:57.066]                 {
[13:13:57.066]                   {
[13:13:57.066]                     {
[13:13:57.066]                       base::local({
[13:13:57.066]                         has_future <- base::requireNamespace("future", 
[13:13:57.066]                           quietly = TRUE)
[13:13:57.066]                         if (has_future) {
[13:13:57.066]                           ns <- base::getNamespace("future")
[13:13:57.066]                           version <- ns[[".package"]][["version"]]
[13:13:57.066]                           if (is.null(version)) 
[13:13:57.066]                             version <- utils::packageVersion("future")
[13:13:57.066]                         }
[13:13:57.066]                         else {
[13:13:57.066]                           version <- NULL
[13:13:57.066]                         }
[13:13:57.066]                         if (!has_future || version < "1.8.0") {
[13:13:57.066]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:57.066]                             "", base::R.version$version.string), 
[13:13:57.066]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:57.066]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:57.066]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:57.066]                               "release", "version")], collapse = " "), 
[13:13:57.066]                             hostname = base::Sys.info()[["nodename"]])
[13:13:57.066]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:57.066]                             info)
[13:13:57.066]                           info <- base::paste(info, collapse = "; ")
[13:13:57.066]                           if (!has_future) {
[13:13:57.066]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:57.066]                               info)
[13:13:57.066]                           }
[13:13:57.066]                           else {
[13:13:57.066]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:57.066]                               info, version)
[13:13:57.066]                           }
[13:13:57.066]                           base::stop(msg)
[13:13:57.066]                         }
[13:13:57.066]                       })
[13:13:57.066]                     }
[13:13:57.066]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:57.066]                     base::options(mc.cores = 1L)
[13:13:57.066]                   }
[13:13:57.066]                   options(future.plan = NULL)
[13:13:57.066]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:57.066]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:57.066]                 }
[13:13:57.066]                 ...future.workdir <- getwd()
[13:13:57.066]             }
[13:13:57.066]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:57.066]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:57.066]         }
[13:13:57.066]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:57.066]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:57.066]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:57.066]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:57.066]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:57.066]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:57.066]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:57.066]             base::names(...future.oldOptions))
[13:13:57.066]     }
[13:13:57.066]     if (FALSE) {
[13:13:57.066]     }
[13:13:57.066]     else {
[13:13:57.066]         if (TRUE) {
[13:13:57.066]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:57.066]                 open = "w")
[13:13:57.066]         }
[13:13:57.066]         else {
[13:13:57.066]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:57.066]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:57.066]         }
[13:13:57.066]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:57.066]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:57.066]             base::sink(type = "output", split = FALSE)
[13:13:57.066]             base::close(...future.stdout)
[13:13:57.066]         }, add = TRUE)
[13:13:57.066]     }
[13:13:57.066]     ...future.frame <- base::sys.nframe()
[13:13:57.066]     ...future.conditions <- base::list()
[13:13:57.066]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:57.066]     if (FALSE) {
[13:13:57.066]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:57.066]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:57.066]     }
[13:13:57.066]     ...future.result <- base::tryCatch({
[13:13:57.066]         base::withCallingHandlers({
[13:13:57.066]             ...future.value <- base::withVisible(base::local({
[13:13:57.066]                 ...future.makeSendCondition <- local({
[13:13:57.066]                   sendCondition <- NULL
[13:13:57.066]                   function(frame = 1L) {
[13:13:57.066]                     if (is.function(sendCondition)) 
[13:13:57.066]                       return(sendCondition)
[13:13:57.066]                     ns <- getNamespace("parallel")
[13:13:57.066]                     if (exists("sendData", mode = "function", 
[13:13:57.066]                       envir = ns)) {
[13:13:57.066]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:57.066]                         envir = ns)
[13:13:57.066]                       envir <- sys.frame(frame)
[13:13:57.066]                       master <- NULL
[13:13:57.066]                       while (!identical(envir, .GlobalEnv) && 
[13:13:57.066]                         !identical(envir, emptyenv())) {
[13:13:57.066]                         if (exists("master", mode = "list", envir = envir, 
[13:13:57.066]                           inherits = FALSE)) {
[13:13:57.066]                           master <- get("master", mode = "list", 
[13:13:57.066]                             envir = envir, inherits = FALSE)
[13:13:57.066]                           if (inherits(master, c("SOCKnode", 
[13:13:57.066]                             "SOCK0node"))) {
[13:13:57.066]                             sendCondition <<- function(cond) {
[13:13:57.066]                               data <- list(type = "VALUE", value = cond, 
[13:13:57.066]                                 success = TRUE)
[13:13:57.066]                               parallel_sendData(master, data)
[13:13:57.066]                             }
[13:13:57.066]                             return(sendCondition)
[13:13:57.066]                           }
[13:13:57.066]                         }
[13:13:57.066]                         frame <- frame + 1L
[13:13:57.066]                         envir <- sys.frame(frame)
[13:13:57.066]                       }
[13:13:57.066]                     }
[13:13:57.066]                     sendCondition <<- function(cond) NULL
[13:13:57.066]                   }
[13:13:57.066]                 })
[13:13:57.066]                 withCallingHandlers({
[13:13:57.066]                   {
[13:13:57.066]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:57.066]                     if (!identical(...future.globals.maxSize.org, 
[13:13:57.066]                       ...future.globals.maxSize)) {
[13:13:57.066]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:57.066]                       on.exit(options(oopts), add = TRUE)
[13:13:57.066]                     }
[13:13:57.066]                     {
[13:13:57.066]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:57.066]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:57.066]                         USE.NAMES = FALSE)
[13:13:57.066]                       do.call(mapply, args = args)
[13:13:57.066]                     }
[13:13:57.066]                   }
[13:13:57.066]                 }, immediateCondition = function(cond) {
[13:13:57.066]                   sendCondition <- ...future.makeSendCondition()
[13:13:57.066]                   sendCondition(cond)
[13:13:57.066]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:57.066]                   {
[13:13:57.066]                     inherits <- base::inherits
[13:13:57.066]                     invokeRestart <- base::invokeRestart
[13:13:57.066]                     is.null <- base::is.null
[13:13:57.066]                     muffled <- FALSE
[13:13:57.066]                     if (inherits(cond, "message")) {
[13:13:57.066]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:57.066]                       if (muffled) 
[13:13:57.066]                         invokeRestart("muffleMessage")
[13:13:57.066]                     }
[13:13:57.066]                     else if (inherits(cond, "warning")) {
[13:13:57.066]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:57.066]                       if (muffled) 
[13:13:57.066]                         invokeRestart("muffleWarning")
[13:13:57.066]                     }
[13:13:57.066]                     else if (inherits(cond, "condition")) {
[13:13:57.066]                       if (!is.null(pattern)) {
[13:13:57.066]                         computeRestarts <- base::computeRestarts
[13:13:57.066]                         grepl <- base::grepl
[13:13:57.066]                         restarts <- computeRestarts(cond)
[13:13:57.066]                         for (restart in restarts) {
[13:13:57.066]                           name <- restart$name
[13:13:57.066]                           if (is.null(name)) 
[13:13:57.066]                             next
[13:13:57.066]                           if (!grepl(pattern, name)) 
[13:13:57.066]                             next
[13:13:57.066]                           invokeRestart(restart)
[13:13:57.066]                           muffled <- TRUE
[13:13:57.066]                           break
[13:13:57.066]                         }
[13:13:57.066]                       }
[13:13:57.066]                     }
[13:13:57.066]                     invisible(muffled)
[13:13:57.066]                   }
[13:13:57.066]                   muffleCondition(cond)
[13:13:57.066]                 })
[13:13:57.066]             }))
[13:13:57.066]             future::FutureResult(value = ...future.value$value, 
[13:13:57.066]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:57.066]                   ...future.rng), globalenv = if (FALSE) 
[13:13:57.066]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:57.066]                     ...future.globalenv.names))
[13:13:57.066]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:57.066]         }, condition = base::local({
[13:13:57.066]             c <- base::c
[13:13:57.066]             inherits <- base::inherits
[13:13:57.066]             invokeRestart <- base::invokeRestart
[13:13:57.066]             length <- base::length
[13:13:57.066]             list <- base::list
[13:13:57.066]             seq.int <- base::seq.int
[13:13:57.066]             signalCondition <- base::signalCondition
[13:13:57.066]             sys.calls <- base::sys.calls
[13:13:57.066]             `[[` <- base::`[[`
[13:13:57.066]             `+` <- base::`+`
[13:13:57.066]             `<<-` <- base::`<<-`
[13:13:57.066]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:57.066]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:57.066]                   3L)]
[13:13:57.066]             }
[13:13:57.066]             function(cond) {
[13:13:57.066]                 is_error <- inherits(cond, "error")
[13:13:57.066]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:57.066]                   NULL)
[13:13:57.066]                 if (is_error) {
[13:13:57.066]                   sessionInformation <- function() {
[13:13:57.066]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:57.066]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:57.066]                       search = base::search(), system = base::Sys.info())
[13:13:57.066]                   }
[13:13:57.066]                   ...future.conditions[[length(...future.conditions) + 
[13:13:57.066]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:57.066]                     cond$call), session = sessionInformation(), 
[13:13:57.066]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:57.066]                   signalCondition(cond)
[13:13:57.066]                 }
[13:13:57.066]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:57.066]                 "immediateCondition"))) {
[13:13:57.066]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:57.066]                   ...future.conditions[[length(...future.conditions) + 
[13:13:57.066]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:57.066]                   if (TRUE && !signal) {
[13:13:57.066]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:57.066]                     {
[13:13:57.066]                       inherits <- base::inherits
[13:13:57.066]                       invokeRestart <- base::invokeRestart
[13:13:57.066]                       is.null <- base::is.null
[13:13:57.066]                       muffled <- FALSE
[13:13:57.066]                       if (inherits(cond, "message")) {
[13:13:57.066]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:57.066]                         if (muffled) 
[13:13:57.066]                           invokeRestart("muffleMessage")
[13:13:57.066]                       }
[13:13:57.066]                       else if (inherits(cond, "warning")) {
[13:13:57.066]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:57.066]                         if (muffled) 
[13:13:57.066]                           invokeRestart("muffleWarning")
[13:13:57.066]                       }
[13:13:57.066]                       else if (inherits(cond, "condition")) {
[13:13:57.066]                         if (!is.null(pattern)) {
[13:13:57.066]                           computeRestarts <- base::computeRestarts
[13:13:57.066]                           grepl <- base::grepl
[13:13:57.066]                           restarts <- computeRestarts(cond)
[13:13:57.066]                           for (restart in restarts) {
[13:13:57.066]                             name <- restart$name
[13:13:57.066]                             if (is.null(name)) 
[13:13:57.066]                               next
[13:13:57.066]                             if (!grepl(pattern, name)) 
[13:13:57.066]                               next
[13:13:57.066]                             invokeRestart(restart)
[13:13:57.066]                             muffled <- TRUE
[13:13:57.066]                             break
[13:13:57.066]                           }
[13:13:57.066]                         }
[13:13:57.066]                       }
[13:13:57.066]                       invisible(muffled)
[13:13:57.066]                     }
[13:13:57.066]                     muffleCondition(cond, pattern = "^muffle")
[13:13:57.066]                   }
[13:13:57.066]                 }
[13:13:57.066]                 else {
[13:13:57.066]                   if (TRUE) {
[13:13:57.066]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:57.066]                     {
[13:13:57.066]                       inherits <- base::inherits
[13:13:57.066]                       invokeRestart <- base::invokeRestart
[13:13:57.066]                       is.null <- base::is.null
[13:13:57.066]                       muffled <- FALSE
[13:13:57.066]                       if (inherits(cond, "message")) {
[13:13:57.066]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:57.066]                         if (muffled) 
[13:13:57.066]                           invokeRestart("muffleMessage")
[13:13:57.066]                       }
[13:13:57.066]                       else if (inherits(cond, "warning")) {
[13:13:57.066]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:57.066]                         if (muffled) 
[13:13:57.066]                           invokeRestart("muffleWarning")
[13:13:57.066]                       }
[13:13:57.066]                       else if (inherits(cond, "condition")) {
[13:13:57.066]                         if (!is.null(pattern)) {
[13:13:57.066]                           computeRestarts <- base::computeRestarts
[13:13:57.066]                           grepl <- base::grepl
[13:13:57.066]                           restarts <- computeRestarts(cond)
[13:13:57.066]                           for (restart in restarts) {
[13:13:57.066]                             name <- restart$name
[13:13:57.066]                             if (is.null(name)) 
[13:13:57.066]                               next
[13:13:57.066]                             if (!grepl(pattern, name)) 
[13:13:57.066]                               next
[13:13:57.066]                             invokeRestart(restart)
[13:13:57.066]                             muffled <- TRUE
[13:13:57.066]                             break
[13:13:57.066]                           }
[13:13:57.066]                         }
[13:13:57.066]                       }
[13:13:57.066]                       invisible(muffled)
[13:13:57.066]                     }
[13:13:57.066]                     muffleCondition(cond, pattern = "^muffle")
[13:13:57.066]                   }
[13:13:57.066]                 }
[13:13:57.066]             }
[13:13:57.066]         }))
[13:13:57.066]     }, error = function(ex) {
[13:13:57.066]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:57.066]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:57.066]                 ...future.rng), started = ...future.startTime, 
[13:13:57.066]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:57.066]             version = "1.8"), class = "FutureResult")
[13:13:57.066]     }, finally = {
[13:13:57.066]         if (!identical(...future.workdir, getwd())) 
[13:13:57.066]             setwd(...future.workdir)
[13:13:57.066]         {
[13:13:57.066]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:57.066]                 ...future.oldOptions$nwarnings <- NULL
[13:13:57.066]             }
[13:13:57.066]             base::options(...future.oldOptions)
[13:13:57.066]             if (.Platform$OS.type == "windows") {
[13:13:57.066]                 old_names <- names(...future.oldEnvVars)
[13:13:57.066]                 envs <- base::Sys.getenv()
[13:13:57.066]                 names <- names(envs)
[13:13:57.066]                 common <- intersect(names, old_names)
[13:13:57.066]                 added <- setdiff(names, old_names)
[13:13:57.066]                 removed <- setdiff(old_names, names)
[13:13:57.066]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:57.066]                   envs[common]]
[13:13:57.066]                 NAMES <- toupper(changed)
[13:13:57.066]                 args <- list()
[13:13:57.066]                 for (kk in seq_along(NAMES)) {
[13:13:57.066]                   name <- changed[[kk]]
[13:13:57.066]                   NAME <- NAMES[[kk]]
[13:13:57.066]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:57.066]                     next
[13:13:57.066]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:57.066]                 }
[13:13:57.066]                 NAMES <- toupper(added)
[13:13:57.066]                 for (kk in seq_along(NAMES)) {
[13:13:57.066]                   name <- added[[kk]]
[13:13:57.066]                   NAME <- NAMES[[kk]]
[13:13:57.066]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:57.066]                     next
[13:13:57.066]                   args[[name]] <- ""
[13:13:57.066]                 }
[13:13:57.066]                 NAMES <- toupper(removed)
[13:13:57.066]                 for (kk in seq_along(NAMES)) {
[13:13:57.066]                   name <- removed[[kk]]
[13:13:57.066]                   NAME <- NAMES[[kk]]
[13:13:57.066]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:57.066]                     next
[13:13:57.066]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:57.066]                 }
[13:13:57.066]                 if (length(args) > 0) 
[13:13:57.066]                   base::do.call(base::Sys.setenv, args = args)
[13:13:57.066]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:57.066]             }
[13:13:57.066]             else {
[13:13:57.066]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:57.066]             }
[13:13:57.066]             {
[13:13:57.066]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:57.066]                   0L) {
[13:13:57.066]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:57.066]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:57.066]                   base::options(opts)
[13:13:57.066]                 }
[13:13:57.066]                 {
[13:13:57.066]                   {
[13:13:57.066]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:57.066]                     NULL
[13:13:57.066]                   }
[13:13:57.066]                   options(future.plan = NULL)
[13:13:57.066]                   if (is.na(NA_character_)) 
[13:13:57.066]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:57.066]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:57.066]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:57.066]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:57.066]                     envir = parent.frame()) 
[13:13:57.066]                   {
[13:13:57.066]                     if (is.function(workers)) 
[13:13:57.066]                       workers <- workers()
[13:13:57.066]                     workers <- structure(as.integer(workers), 
[13:13:57.066]                       class = class(workers))
[13:13:57.066]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:57.066]                       workers >= 1)
[13:13:57.066]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:57.066]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:57.066]                     }
[13:13:57.066]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:57.066]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:57.066]                       envir = envir)
[13:13:57.066]                     if (!future$lazy) 
[13:13:57.066]                       future <- run(future)
[13:13:57.066]                     invisible(future)
[13:13:57.066]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:57.066]                 }
[13:13:57.066]             }
[13:13:57.066]         }
[13:13:57.066]     })
[13:13:57.066]     if (TRUE) {
[13:13:57.066]         base::sink(type = "output", split = FALSE)
[13:13:57.066]         if (TRUE) {
[13:13:57.066]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:57.066]         }
[13:13:57.066]         else {
[13:13:57.066]             ...future.result["stdout"] <- base::list(NULL)
[13:13:57.066]         }
[13:13:57.066]         base::close(...future.stdout)
[13:13:57.066]         ...future.stdout <- NULL
[13:13:57.066]     }
[13:13:57.066]     ...future.result$conditions <- ...future.conditions
[13:13:57.066]     ...future.result$finished <- base::Sys.time()
[13:13:57.066]     ...future.result
[13:13:57.066] }
[13:13:57.072] Exporting 5 global objects (168 bytes) to cluster node #1 ...
[13:13:57.072] Exporting '...future.FUN' (56 bytes) to cluster node #1 ...
[13:13:57.072] Exporting '...future.FUN' (56 bytes) to cluster node #1 ... DONE
[13:13:57.073] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:57.073] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:57.073] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ...
[13:13:57.074] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ... DONE
[13:13:57.074] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:57.074] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:57.074] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:57.075] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:57.075] Exporting 5 global objects (168 bytes) to cluster node #1 ... DONE
[13:13:57.076] MultisessionFuture started
[13:13:57.076] - Launch lazy future ... done
[13:13:57.076] run() for 'MultisessionFuture' ... done
[13:13:57.076] Created future:
[13:13:57.092] receiveMessageFromWorker() for ClusterFuture ...
[13:13:57.092] - Validating connection of MultisessionFuture
[13:13:57.092] - received message: FutureResult
[13:13:57.092] - Received FutureResult
[13:13:57.093] - Erased future from FutureRegistry
[13:13:57.093] result() for ClusterFuture ...
[13:13:57.093] - result already collected: FutureResult
[13:13:57.093] result() for ClusterFuture ... done
[13:13:57.093] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:57.076] MultisessionFuture:
[13:13:57.076] Label: 'future_Map-1'
[13:13:57.076] Expression:
[13:13:57.076] {
[13:13:57.076]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:57.076]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:57.076]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:57.076]         on.exit(options(oopts), add = TRUE)
[13:13:57.076]     }
[13:13:57.076]     {
[13:13:57.076]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:57.076]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:57.076]         do.call(mapply, args = args)
[13:13:57.076]     }
[13:13:57.076] }
[13:13:57.076] Lazy evaluation: FALSE
[13:13:57.076] Asynchronous evaluation: TRUE
[13:13:57.076] Local evaluation: TRUE
[13:13:57.076] Environment: R_GlobalEnv
[13:13:57.076] Capture standard output: TRUE
[13:13:57.076] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:57.076] Globals: 5 objects totaling 168 bytes (function '...future.FUN' of 56 bytes, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 112 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:57.076] Packages: <none>
[13:13:57.076] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:57.076] Resolved: TRUE
[13:13:57.076] Value: <not collected>
[13:13:57.076] Conditions captured: <none>
[13:13:57.076] Early signaling: FALSE
[13:13:57.076] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:57.076] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:57.094] Chunk #1 of 2 ... DONE
[13:13:57.094] Chunk #2 of 2 ...
[13:13:57.094]  - Finding globals in '...' for chunk #2 ...
[13:13:57.094] getGlobalsAndPackages() ...
[13:13:57.094] Searching for globals...
[13:13:57.095] 
[13:13:57.095] Searching for globals ... DONE
[13:13:57.095] - globals: [0] <none>
[13:13:57.095] getGlobalsAndPackages() ... DONE
[13:13:57.095]    + additional globals found: [n=0] 
[13:13:57.096]    + additional namespaces needed: [n=0] 
[13:13:57.096]  - Finding globals in '...' for chunk #2 ... DONE
[13:13:57.096]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:57.096]  - seeds: <none>
[13:13:57.096]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:57.096] getGlobalsAndPackages() ...
[13:13:57.097] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:57.097] Resolving globals: FALSE
[13:13:57.098] The total size of the 5 globals is 280 bytes (280 bytes)
[13:13:57.098] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 280 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (224 bytes of class 'list'), '...future.FUN' (56 bytes of class 'function') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:57.098] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:57.099] 
[13:13:57.099] getGlobalsAndPackages() ... DONE
[13:13:57.099] run() for 'Future' ...
[13:13:57.099] - state: 'created'
[13:13:57.100] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:57.114] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:57.114] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:57.114]   - Field: 'node'
[13:13:57.115]   - Field: 'label'
[13:13:57.115]   - Field: 'local'
[13:13:57.115]   - Field: 'owner'
[13:13:57.115]   - Field: 'envir'
[13:13:57.115]   - Field: 'workers'
[13:13:57.115]   - Field: 'packages'
[13:13:57.116]   - Field: 'gc'
[13:13:57.116]   - Field: 'conditions'
[13:13:57.116]   - Field: 'persistent'
[13:13:57.116]   - Field: 'expr'
[13:13:57.116]   - Field: 'uuid'
[13:13:57.116]   - Field: 'seed'
[13:13:57.117]   - Field: 'version'
[13:13:57.117]   - Field: 'result'
[13:13:57.117]   - Field: 'asynchronous'
[13:13:57.117]   - Field: 'calls'
[13:13:57.117]   - Field: 'globals'
[13:13:57.118]   - Field: 'stdout'
[13:13:57.118]   - Field: 'earlySignal'
[13:13:57.118]   - Field: 'lazy'
[13:13:57.118]   - Field: 'state'
[13:13:57.118] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:57.118] - Launch lazy future ...
[13:13:57.119] Packages needed by the future expression (n = 0): <none>
[13:13:57.119] Packages needed by future strategies (n = 0): <none>
[13:13:57.120] {
[13:13:57.120]     {
[13:13:57.120]         {
[13:13:57.120]             ...future.startTime <- base::Sys.time()
[13:13:57.120]             {
[13:13:57.120]                 {
[13:13:57.120]                   {
[13:13:57.120]                     {
[13:13:57.120]                       base::local({
[13:13:57.120]                         has_future <- base::requireNamespace("future", 
[13:13:57.120]                           quietly = TRUE)
[13:13:57.120]                         if (has_future) {
[13:13:57.120]                           ns <- base::getNamespace("future")
[13:13:57.120]                           version <- ns[[".package"]][["version"]]
[13:13:57.120]                           if (is.null(version)) 
[13:13:57.120]                             version <- utils::packageVersion("future")
[13:13:57.120]                         }
[13:13:57.120]                         else {
[13:13:57.120]                           version <- NULL
[13:13:57.120]                         }
[13:13:57.120]                         if (!has_future || version < "1.8.0") {
[13:13:57.120]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:57.120]                             "", base::R.version$version.string), 
[13:13:57.120]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:57.120]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:57.120]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:57.120]                               "release", "version")], collapse = " "), 
[13:13:57.120]                             hostname = base::Sys.info()[["nodename"]])
[13:13:57.120]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:57.120]                             info)
[13:13:57.120]                           info <- base::paste(info, collapse = "; ")
[13:13:57.120]                           if (!has_future) {
[13:13:57.120]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:57.120]                               info)
[13:13:57.120]                           }
[13:13:57.120]                           else {
[13:13:57.120]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:57.120]                               info, version)
[13:13:57.120]                           }
[13:13:57.120]                           base::stop(msg)
[13:13:57.120]                         }
[13:13:57.120]                       })
[13:13:57.120]                     }
[13:13:57.120]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:57.120]                     base::options(mc.cores = 1L)
[13:13:57.120]                   }
[13:13:57.120]                   options(future.plan = NULL)
[13:13:57.120]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:57.120]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:57.120]                 }
[13:13:57.120]                 ...future.workdir <- getwd()
[13:13:57.120]             }
[13:13:57.120]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:57.120]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:57.120]         }
[13:13:57.120]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:57.120]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:57.120]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:57.120]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:57.120]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:57.120]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:57.120]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:57.120]             base::names(...future.oldOptions))
[13:13:57.120]     }
[13:13:57.120]     if (FALSE) {
[13:13:57.120]     }
[13:13:57.120]     else {
[13:13:57.120]         if (TRUE) {
[13:13:57.120]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:57.120]                 open = "w")
[13:13:57.120]         }
[13:13:57.120]         else {
[13:13:57.120]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:57.120]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:57.120]         }
[13:13:57.120]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:57.120]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:57.120]             base::sink(type = "output", split = FALSE)
[13:13:57.120]             base::close(...future.stdout)
[13:13:57.120]         }, add = TRUE)
[13:13:57.120]     }
[13:13:57.120]     ...future.frame <- base::sys.nframe()
[13:13:57.120]     ...future.conditions <- base::list()
[13:13:57.120]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:57.120]     if (FALSE) {
[13:13:57.120]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:57.120]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:57.120]     }
[13:13:57.120]     ...future.result <- base::tryCatch({
[13:13:57.120]         base::withCallingHandlers({
[13:13:57.120]             ...future.value <- base::withVisible(base::local({
[13:13:57.120]                 ...future.makeSendCondition <- local({
[13:13:57.120]                   sendCondition <- NULL
[13:13:57.120]                   function(frame = 1L) {
[13:13:57.120]                     if (is.function(sendCondition)) 
[13:13:57.120]                       return(sendCondition)
[13:13:57.120]                     ns <- getNamespace("parallel")
[13:13:57.120]                     if (exists("sendData", mode = "function", 
[13:13:57.120]                       envir = ns)) {
[13:13:57.120]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:57.120]                         envir = ns)
[13:13:57.120]                       envir <- sys.frame(frame)
[13:13:57.120]                       master <- NULL
[13:13:57.120]                       while (!identical(envir, .GlobalEnv) && 
[13:13:57.120]                         !identical(envir, emptyenv())) {
[13:13:57.120]                         if (exists("master", mode = "list", envir = envir, 
[13:13:57.120]                           inherits = FALSE)) {
[13:13:57.120]                           master <- get("master", mode = "list", 
[13:13:57.120]                             envir = envir, inherits = FALSE)
[13:13:57.120]                           if (inherits(master, c("SOCKnode", 
[13:13:57.120]                             "SOCK0node"))) {
[13:13:57.120]                             sendCondition <<- function(cond) {
[13:13:57.120]                               data <- list(type = "VALUE", value = cond, 
[13:13:57.120]                                 success = TRUE)
[13:13:57.120]                               parallel_sendData(master, data)
[13:13:57.120]                             }
[13:13:57.120]                             return(sendCondition)
[13:13:57.120]                           }
[13:13:57.120]                         }
[13:13:57.120]                         frame <- frame + 1L
[13:13:57.120]                         envir <- sys.frame(frame)
[13:13:57.120]                       }
[13:13:57.120]                     }
[13:13:57.120]                     sendCondition <<- function(cond) NULL
[13:13:57.120]                   }
[13:13:57.120]                 })
[13:13:57.120]                 withCallingHandlers({
[13:13:57.120]                   {
[13:13:57.120]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:57.120]                     if (!identical(...future.globals.maxSize.org, 
[13:13:57.120]                       ...future.globals.maxSize)) {
[13:13:57.120]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:57.120]                       on.exit(options(oopts), add = TRUE)
[13:13:57.120]                     }
[13:13:57.120]                     {
[13:13:57.120]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:57.120]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:57.120]                         USE.NAMES = FALSE)
[13:13:57.120]                       do.call(mapply, args = args)
[13:13:57.120]                     }
[13:13:57.120]                   }
[13:13:57.120]                 }, immediateCondition = function(cond) {
[13:13:57.120]                   sendCondition <- ...future.makeSendCondition()
[13:13:57.120]                   sendCondition(cond)
[13:13:57.120]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:57.120]                   {
[13:13:57.120]                     inherits <- base::inherits
[13:13:57.120]                     invokeRestart <- base::invokeRestart
[13:13:57.120]                     is.null <- base::is.null
[13:13:57.120]                     muffled <- FALSE
[13:13:57.120]                     if (inherits(cond, "message")) {
[13:13:57.120]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:57.120]                       if (muffled) 
[13:13:57.120]                         invokeRestart("muffleMessage")
[13:13:57.120]                     }
[13:13:57.120]                     else if (inherits(cond, "warning")) {
[13:13:57.120]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:57.120]                       if (muffled) 
[13:13:57.120]                         invokeRestart("muffleWarning")
[13:13:57.120]                     }
[13:13:57.120]                     else if (inherits(cond, "condition")) {
[13:13:57.120]                       if (!is.null(pattern)) {
[13:13:57.120]                         computeRestarts <- base::computeRestarts
[13:13:57.120]                         grepl <- base::grepl
[13:13:57.120]                         restarts <- computeRestarts(cond)
[13:13:57.120]                         for (restart in restarts) {
[13:13:57.120]                           name <- restart$name
[13:13:57.120]                           if (is.null(name)) 
[13:13:57.120]                             next
[13:13:57.120]                           if (!grepl(pattern, name)) 
[13:13:57.120]                             next
[13:13:57.120]                           invokeRestart(restart)
[13:13:57.120]                           muffled <- TRUE
[13:13:57.120]                           break
[13:13:57.120]                         }
[13:13:57.120]                       }
[13:13:57.120]                     }
[13:13:57.120]                     invisible(muffled)
[13:13:57.120]                   }
[13:13:57.120]                   muffleCondition(cond)
[13:13:57.120]                 })
[13:13:57.120]             }))
[13:13:57.120]             future::FutureResult(value = ...future.value$value, 
[13:13:57.120]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:57.120]                   ...future.rng), globalenv = if (FALSE) 
[13:13:57.120]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:57.120]                     ...future.globalenv.names))
[13:13:57.120]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:57.120]         }, condition = base::local({
[13:13:57.120]             c <- base::c
[13:13:57.120]             inherits <- base::inherits
[13:13:57.120]             invokeRestart <- base::invokeRestart
[13:13:57.120]             length <- base::length
[13:13:57.120]             list <- base::list
[13:13:57.120]             seq.int <- base::seq.int
[13:13:57.120]             signalCondition <- base::signalCondition
[13:13:57.120]             sys.calls <- base::sys.calls
[13:13:57.120]             `[[` <- base::`[[`
[13:13:57.120]             `+` <- base::`+`
[13:13:57.120]             `<<-` <- base::`<<-`
[13:13:57.120]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:57.120]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:57.120]                   3L)]
[13:13:57.120]             }
[13:13:57.120]             function(cond) {
[13:13:57.120]                 is_error <- inherits(cond, "error")
[13:13:57.120]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:57.120]                   NULL)
[13:13:57.120]                 if (is_error) {
[13:13:57.120]                   sessionInformation <- function() {
[13:13:57.120]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:57.120]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:57.120]                       search = base::search(), system = base::Sys.info())
[13:13:57.120]                   }
[13:13:57.120]                   ...future.conditions[[length(...future.conditions) + 
[13:13:57.120]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:57.120]                     cond$call), session = sessionInformation(), 
[13:13:57.120]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:57.120]                   signalCondition(cond)
[13:13:57.120]                 }
[13:13:57.120]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:57.120]                 "immediateCondition"))) {
[13:13:57.120]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:57.120]                   ...future.conditions[[length(...future.conditions) + 
[13:13:57.120]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:57.120]                   if (TRUE && !signal) {
[13:13:57.120]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:57.120]                     {
[13:13:57.120]                       inherits <- base::inherits
[13:13:57.120]                       invokeRestart <- base::invokeRestart
[13:13:57.120]                       is.null <- base::is.null
[13:13:57.120]                       muffled <- FALSE
[13:13:57.120]                       if (inherits(cond, "message")) {
[13:13:57.120]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:57.120]                         if (muffled) 
[13:13:57.120]                           invokeRestart("muffleMessage")
[13:13:57.120]                       }
[13:13:57.120]                       else if (inherits(cond, "warning")) {
[13:13:57.120]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:57.120]                         if (muffled) 
[13:13:57.120]                           invokeRestart("muffleWarning")
[13:13:57.120]                       }
[13:13:57.120]                       else if (inherits(cond, "condition")) {
[13:13:57.120]                         if (!is.null(pattern)) {
[13:13:57.120]                           computeRestarts <- base::computeRestarts
[13:13:57.120]                           grepl <- base::grepl
[13:13:57.120]                           restarts <- computeRestarts(cond)
[13:13:57.120]                           for (restart in restarts) {
[13:13:57.120]                             name <- restart$name
[13:13:57.120]                             if (is.null(name)) 
[13:13:57.120]                               next
[13:13:57.120]                             if (!grepl(pattern, name)) 
[13:13:57.120]                               next
[13:13:57.120]                             invokeRestart(restart)
[13:13:57.120]                             muffled <- TRUE
[13:13:57.120]                             break
[13:13:57.120]                           }
[13:13:57.120]                         }
[13:13:57.120]                       }
[13:13:57.120]                       invisible(muffled)
[13:13:57.120]                     }
[13:13:57.120]                     muffleCondition(cond, pattern = "^muffle")
[13:13:57.120]                   }
[13:13:57.120]                 }
[13:13:57.120]                 else {
[13:13:57.120]                   if (TRUE) {
[13:13:57.120]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:57.120]                     {
[13:13:57.120]                       inherits <- base::inherits
[13:13:57.120]                       invokeRestart <- base::invokeRestart
[13:13:57.120]                       is.null <- base::is.null
[13:13:57.120]                       muffled <- FALSE
[13:13:57.120]                       if (inherits(cond, "message")) {
[13:13:57.120]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:57.120]                         if (muffled) 
[13:13:57.120]                           invokeRestart("muffleMessage")
[13:13:57.120]                       }
[13:13:57.120]                       else if (inherits(cond, "warning")) {
[13:13:57.120]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:57.120]                         if (muffled) 
[13:13:57.120]                           invokeRestart("muffleWarning")
[13:13:57.120]                       }
[13:13:57.120]                       else if (inherits(cond, "condition")) {
[13:13:57.120]                         if (!is.null(pattern)) {
[13:13:57.120]                           computeRestarts <- base::computeRestarts
[13:13:57.120]                           grepl <- base::grepl
[13:13:57.120]                           restarts <- computeRestarts(cond)
[13:13:57.120]                           for (restart in restarts) {
[13:13:57.120]                             name <- restart$name
[13:13:57.120]                             if (is.null(name)) 
[13:13:57.120]                               next
[13:13:57.120]                             if (!grepl(pattern, name)) 
[13:13:57.120]                               next
[13:13:57.120]                             invokeRestart(restart)
[13:13:57.120]                             muffled <- TRUE
[13:13:57.120]                             break
[13:13:57.120]                           }
[13:13:57.120]                         }
[13:13:57.120]                       }
[13:13:57.120]                       invisible(muffled)
[13:13:57.120]                     }
[13:13:57.120]                     muffleCondition(cond, pattern = "^muffle")
[13:13:57.120]                   }
[13:13:57.120]                 }
[13:13:57.120]             }
[13:13:57.120]         }))
[13:13:57.120]     }, error = function(ex) {
[13:13:57.120]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:57.120]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:57.120]                 ...future.rng), started = ...future.startTime, 
[13:13:57.120]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:57.120]             version = "1.8"), class = "FutureResult")
[13:13:57.120]     }, finally = {
[13:13:57.120]         if (!identical(...future.workdir, getwd())) 
[13:13:57.120]             setwd(...future.workdir)
[13:13:57.120]         {
[13:13:57.120]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:57.120]                 ...future.oldOptions$nwarnings <- NULL
[13:13:57.120]             }
[13:13:57.120]             base::options(...future.oldOptions)
[13:13:57.120]             if (.Platform$OS.type == "windows") {
[13:13:57.120]                 old_names <- names(...future.oldEnvVars)
[13:13:57.120]                 envs <- base::Sys.getenv()
[13:13:57.120]                 names <- names(envs)
[13:13:57.120]                 common <- intersect(names, old_names)
[13:13:57.120]                 added <- setdiff(names, old_names)
[13:13:57.120]                 removed <- setdiff(old_names, names)
[13:13:57.120]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:57.120]                   envs[common]]
[13:13:57.120]                 NAMES <- toupper(changed)
[13:13:57.120]                 args <- list()
[13:13:57.120]                 for (kk in seq_along(NAMES)) {
[13:13:57.120]                   name <- changed[[kk]]
[13:13:57.120]                   NAME <- NAMES[[kk]]
[13:13:57.120]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:57.120]                     next
[13:13:57.120]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:57.120]                 }
[13:13:57.120]                 NAMES <- toupper(added)
[13:13:57.120]                 for (kk in seq_along(NAMES)) {
[13:13:57.120]                   name <- added[[kk]]
[13:13:57.120]                   NAME <- NAMES[[kk]]
[13:13:57.120]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:57.120]                     next
[13:13:57.120]                   args[[name]] <- ""
[13:13:57.120]                 }
[13:13:57.120]                 NAMES <- toupper(removed)
[13:13:57.120]                 for (kk in seq_along(NAMES)) {
[13:13:57.120]                   name <- removed[[kk]]
[13:13:57.120]                   NAME <- NAMES[[kk]]
[13:13:57.120]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:57.120]                     next
[13:13:57.120]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:57.120]                 }
[13:13:57.120]                 if (length(args) > 0) 
[13:13:57.120]                   base::do.call(base::Sys.setenv, args = args)
[13:13:57.120]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:57.120]             }
[13:13:57.120]             else {
[13:13:57.120]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:57.120]             }
[13:13:57.120]             {
[13:13:57.120]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:57.120]                   0L) {
[13:13:57.120]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:57.120]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:57.120]                   base::options(opts)
[13:13:57.120]                 }
[13:13:57.120]                 {
[13:13:57.120]                   {
[13:13:57.120]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:57.120]                     NULL
[13:13:57.120]                   }
[13:13:57.120]                   options(future.plan = NULL)
[13:13:57.120]                   if (is.na(NA_character_)) 
[13:13:57.120]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:57.120]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:57.120]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:57.120]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:57.120]                     envir = parent.frame()) 
[13:13:57.120]                   {
[13:13:57.120]                     if (is.function(workers)) 
[13:13:57.120]                       workers <- workers()
[13:13:57.120]                     workers <- structure(as.integer(workers), 
[13:13:57.120]                       class = class(workers))
[13:13:57.120]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:57.120]                       workers >= 1)
[13:13:57.120]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:57.120]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:57.120]                     }
[13:13:57.120]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:57.120]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:57.120]                       envir = envir)
[13:13:57.120]                     if (!future$lazy) 
[13:13:57.120]                       future <- run(future)
[13:13:57.120]                     invisible(future)
[13:13:57.120]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:57.120]                 }
[13:13:57.120]             }
[13:13:57.120]         }
[13:13:57.120]     })
[13:13:57.120]     if (TRUE) {
[13:13:57.120]         base::sink(type = "output", split = FALSE)
[13:13:57.120]         if (TRUE) {
[13:13:57.120]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:57.120]         }
[13:13:57.120]         else {
[13:13:57.120]             ...future.result["stdout"] <- base::list(NULL)
[13:13:57.120]         }
[13:13:57.120]         base::close(...future.stdout)
[13:13:57.120]         ...future.stdout <- NULL
[13:13:57.120]     }
[13:13:57.120]     ...future.result$conditions <- ...future.conditions
[13:13:57.120]     ...future.result$finished <- base::Sys.time()
[13:13:57.120]     ...future.result
[13:13:57.120] }
[13:13:57.125] Exporting 5 global objects (280 bytes) to cluster node #1 ...
[13:13:57.125] Exporting '...future.FUN' (56 bytes) to cluster node #1 ...
[13:13:57.126] Exporting '...future.FUN' (56 bytes) to cluster node #1 ... DONE
[13:13:57.126] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:57.126] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:57.127] Exporting '...future.elements_ii' (224 bytes) to cluster node #1 ...
[13:13:57.127] Exporting '...future.elements_ii' (224 bytes) to cluster node #1 ... DONE
[13:13:57.127] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:57.128] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:57.128] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:57.128] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:57.128] Exporting 5 global objects (280 bytes) to cluster node #1 ... DONE
[13:13:57.131] MultisessionFuture started
[13:13:57.132] - Launch lazy future ... done
[13:13:57.132] run() for 'MultisessionFuture' ... done
[13:13:57.132] Created future:
[13:13:57.147] receiveMessageFromWorker() for ClusterFuture ...
[13:13:57.147] - Validating connection of MultisessionFuture
[13:13:57.147] - received message: FutureResult
[13:13:57.148] - Received FutureResult
[13:13:57.148] - Erased future from FutureRegistry
[13:13:57.148] result() for ClusterFuture ...
[13:13:57.148] - result already collected: FutureResult
[13:13:57.148] result() for ClusterFuture ... done
[13:13:57.148] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:57.132] MultisessionFuture:
[13:13:57.132] Label: 'future_Map-2'
[13:13:57.132] Expression:
[13:13:57.132] {
[13:13:57.132]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:57.132]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:57.132]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:57.132]         on.exit(options(oopts), add = TRUE)
[13:13:57.132]     }
[13:13:57.132]     {
[13:13:57.132]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:57.132]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:57.132]         do.call(mapply, args = args)
[13:13:57.132]     }
[13:13:57.132] }
[13:13:57.132] Lazy evaluation: FALSE
[13:13:57.132] Asynchronous evaluation: TRUE
[13:13:57.132] Local evaluation: TRUE
[13:13:57.132] Environment: R_GlobalEnv
[13:13:57.132] Capture standard output: TRUE
[13:13:57.132] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:57.132] Globals: 5 objects totaling 280 bytes (function '...future.FUN' of 56 bytes, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 224 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:57.132] Packages: <none>
[13:13:57.132] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:57.132] Resolved: TRUE
[13:13:57.132] Value: <not collected>
[13:13:57.132] Conditions captured: <none>
[13:13:57.132] Early signaling: FALSE
[13:13:57.132] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:57.132] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:57.149] Chunk #2 of 2 ... DONE
[13:13:57.149] Launching 2 futures (chunks) ... DONE
[13:13:57.149] Resolving 2 futures (chunks) ...
[13:13:57.149] resolve() on list ...
[13:13:57.149]  recursive: 0
[13:13:57.150]  length: 2
[13:13:57.150] 
[13:13:57.150] Future #1
[13:13:57.150] result() for ClusterFuture ...
[13:13:57.150] - result already collected: FutureResult
[13:13:57.150] result() for ClusterFuture ... done
[13:13:57.151] result() for ClusterFuture ...
[13:13:57.151] - result already collected: FutureResult
[13:13:57.151] result() for ClusterFuture ... done
[13:13:57.151] signalConditionsASAP(MultisessionFuture, pos=1) ...
[13:13:57.151] - nx: 2
[13:13:57.151] - relay: TRUE
[13:13:57.151] - stdout: TRUE
[13:13:57.152] - signal: TRUE
[13:13:57.152] - resignal: FALSE
[13:13:57.152] - force: TRUE
[13:13:57.152] - relayed: [n=2] FALSE, FALSE
[13:13:57.152] - queued futures: [n=2] FALSE, FALSE
[13:13:57.152]  - until=1
[13:13:57.153]  - relaying element #1
[13:13:57.153] result() for ClusterFuture ...
[13:13:57.153] - result already collected: FutureResult
[13:13:57.153] result() for ClusterFuture ... done
[13:13:57.153] result() for ClusterFuture ...
[13:13:57.153] - result already collected: FutureResult
[13:13:57.153] result() for ClusterFuture ... done
[13:13:57.154] result() for ClusterFuture ...
[13:13:57.154] - result already collected: FutureResult
[13:13:57.154] result() for ClusterFuture ... done
[13:13:57.154] result() for ClusterFuture ...
[13:13:57.154] - result already collected: FutureResult
[13:13:57.154] result() for ClusterFuture ... done
[13:13:57.155] - relayed: [n=2] TRUE, FALSE
[13:13:57.155] - queued futures: [n=2] TRUE, FALSE
[13:13:57.155] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[13:13:57.155]  length: 1 (resolved future 1)
[13:13:57.155] Future #2
[13:13:57.155] result() for ClusterFuture ...
[13:13:57.156] - result already collected: FutureResult
[13:13:57.156] result() for ClusterFuture ... done
[13:13:57.156] result() for ClusterFuture ...
[13:13:57.156] - result already collected: FutureResult
[13:13:57.156] result() for ClusterFuture ... done
[13:13:57.156] signalConditionsASAP(MultisessionFuture, pos=2) ...
[13:13:57.157] - nx: 2
[13:13:57.157] - relay: TRUE
[13:13:57.157] - stdout: TRUE
[13:13:57.157] - signal: TRUE
[13:13:57.157] - resignal: FALSE
[13:13:57.157] - force: TRUE
[13:13:57.157] - relayed: [n=2] TRUE, FALSE
[13:13:57.158] - queued futures: [n=2] TRUE, FALSE
[13:13:57.158]  - until=2
[13:13:57.158]  - relaying element #2
[13:13:57.158] result() for ClusterFuture ...
[13:13:57.158] - result already collected: FutureResult
[13:13:57.158] result() for ClusterFuture ... done
[13:13:57.159] result() for ClusterFuture ...
[13:13:57.159] - result already collected: FutureResult
[13:13:57.159] result() for ClusterFuture ... done
[13:13:57.159] result() for ClusterFuture ...
[13:13:57.159] - result already collected: FutureResult
[13:13:57.159] result() for ClusterFuture ... done
[13:13:57.160] result() for ClusterFuture ...
[13:13:57.160] - result already collected: FutureResult
[13:13:57.160] result() for ClusterFuture ... done
[13:13:57.160] - relayed: [n=2] TRUE, TRUE
[13:13:57.160] - queued futures: [n=2] TRUE, TRUE
[13:13:57.160] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[13:13:57.160]  length: 0 (resolved future 2)
[13:13:57.161] Relaying remaining futures
[13:13:57.161] signalConditionsASAP(NULL, pos=0) ...
[13:13:57.161] - nx: 2
[13:13:57.161] - relay: TRUE
[13:13:57.161] - stdout: TRUE
[13:13:57.161] - signal: TRUE
[13:13:57.162] - resignal: FALSE
[13:13:57.162] - force: TRUE
[13:13:57.162] - relayed: [n=2] TRUE, TRUE
[13:13:57.162] - queued futures: [n=2] TRUE, TRUE
 - flush all
[13:13:57.162] - relayed: [n=2] TRUE, TRUE
[13:13:57.162] - queued futures: [n=2] TRUE, TRUE
[13:13:57.163] signalConditionsASAP(NULL, pos=0) ... done
[13:13:57.163] resolve() on list ... DONE
[13:13:57.163] result() for ClusterFuture ...
[13:13:57.163] - result already collected: FutureResult
[13:13:57.163] result() for ClusterFuture ... done
[13:13:57.163] result() for ClusterFuture ...
[13:13:57.163] - result already collected: FutureResult
[13:13:57.164] result() for ClusterFuture ... done
[13:13:57.164] result() for ClusterFuture ...
[13:13:57.164] - result already collected: FutureResult
[13:13:57.164] result() for ClusterFuture ... done
[13:13:57.164] result() for ClusterFuture ...
[13:13:57.164] - result already collected: FutureResult
[13:13:57.165] result() for ClusterFuture ... done
[13:13:57.165]  - Number of value chunks collected: 2
[13:13:57.165] Resolving 2 futures (chunks) ... DONE
[13:13:57.165] Reducing values from 2 chunks ...
[13:13:57.165]  - Number of values collected after concatenation: 3
[13:13:57.165]  - Number of values expected: 3
[13:13:57.166] Reducing values from 2 chunks ... DONE
[13:13:57.166] future_mapply() ... DONE
- future_mapply(x, ...) where x[[i]] subsets via S3 method ...
[13:13:57.166] future_mapply() ...
[13:13:57.169] Number of chunks: 2
[13:13:57.169] getGlobalsAndPackagesXApply() ...
[13:13:57.169]  - future.globals: TRUE
[13:13:57.169] getGlobalsAndPackages() ...
[13:13:57.169] Searching for globals...
[13:13:57.171] - globals found: [1] 'FUN'
[13:13:57.171] Searching for globals ... DONE
[13:13:57.171] Resolving globals: FALSE
[13:13:57.171] The total size of the 1 globals is 848 bytes (848 bytes)
[13:13:57.172] The total size of the 1 globals exported for future expression ('FUN()') is 848 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (848 bytes of class 'function')
[13:13:57.172] - globals: [1] 'FUN'
[13:13:57.172] 
[13:13:57.172] getGlobalsAndPackages() ... DONE
[13:13:57.172]  - globals found/used: [n=1] 'FUN'
[13:13:57.173]  - needed namespaces: [n=0] 
[13:13:57.173] Finding globals ... DONE
[13:13:57.173] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[13:13:57.173] List of 2
[13:13:57.173]  $ ...future.FUN:function (x)  
[13:13:57.173]  $ MoreArgs     : NULL
[13:13:57.173]  - attr(*, "where")=List of 2
[13:13:57.173]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:57.173]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[13:13:57.173]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:57.173]  - attr(*, "resolved")= logi FALSE
[13:13:57.173]  - attr(*, "total_size")= num NA
[13:13:57.176] Packages to be attached in all futures: [n=0] 
[13:13:57.176] getGlobalsAndPackagesXApply() ... DONE
[13:13:57.177] Number of futures (= number of chunks): 2
[13:13:57.177] Launching 2 futures (chunks) ...
[13:13:57.177] Chunk #1 of 2 ...
[13:13:57.177]  - Finding globals in '...' for chunk #1 ...
[13:13:57.177] getGlobalsAndPackages() ...
[13:13:57.178] Searching for globals...
[13:13:57.178] 
[13:13:57.178] Searching for globals ... DONE
[13:13:57.178] - globals: [0] <none>
[13:13:57.178] getGlobalsAndPackages() ... DONE
[13:13:57.179]    + additional globals found: [n=0] 
[13:13:57.179]    + additional namespaces needed: [n=0] 
[13:13:57.179]  - Finding globals in '...' for chunk #1 ... DONE
[13:13:57.179]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:57.179]  - seeds: <none>
[13:13:57.179]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:57.180] getGlobalsAndPackages() ...
[13:13:57.180] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:57.180] Resolving globals: FALSE
[13:13:57.181] The total size of the 5 globals is 904 bytes (904 bytes)
[13:13:57.181] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 904 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (848 bytes of class 'function'), '...future.elements_ii' (56 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:57.181] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:57.182] 
[13:13:57.182] getGlobalsAndPackages() ... DONE
[13:13:57.182] run() for 'Future' ...
[13:13:57.182] - state: 'created'
[13:13:57.182] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:57.196] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:57.197] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:57.197]   - Field: 'node'
[13:13:57.197]   - Field: 'label'
[13:13:57.197]   - Field: 'local'
[13:13:57.197]   - Field: 'owner'
[13:13:57.197]   - Field: 'envir'
[13:13:57.198]   - Field: 'workers'
[13:13:57.198]   - Field: 'packages'
[13:13:57.198]   - Field: 'gc'
[13:13:57.198]   - Field: 'conditions'
[13:13:57.198]   - Field: 'persistent'
[13:13:57.198]   - Field: 'expr'
[13:13:57.199]   - Field: 'uuid'
[13:13:57.199]   - Field: 'seed'
[13:13:57.199]   - Field: 'version'
[13:13:57.199]   - Field: 'result'
[13:13:57.199]   - Field: 'asynchronous'
[13:13:57.200]   - Field: 'calls'
[13:13:57.200]   - Field: 'globals'
[13:13:57.200]   - Field: 'stdout'
[13:13:57.200]   - Field: 'earlySignal'
[13:13:57.200]   - Field: 'lazy'
[13:13:57.200]   - Field: 'state'
[13:13:57.201] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:57.201] - Launch lazy future ...
[13:13:57.201] Packages needed by the future expression (n = 0): <none>
[13:13:57.201] Packages needed by future strategies (n = 0): <none>
[13:13:57.202] {
[13:13:57.202]     {
[13:13:57.202]         {
[13:13:57.202]             ...future.startTime <- base::Sys.time()
[13:13:57.202]             {
[13:13:57.202]                 {
[13:13:57.202]                   {
[13:13:57.202]                     {
[13:13:57.202]                       base::local({
[13:13:57.202]                         has_future <- base::requireNamespace("future", 
[13:13:57.202]                           quietly = TRUE)
[13:13:57.202]                         if (has_future) {
[13:13:57.202]                           ns <- base::getNamespace("future")
[13:13:57.202]                           version <- ns[[".package"]][["version"]]
[13:13:57.202]                           if (is.null(version)) 
[13:13:57.202]                             version <- utils::packageVersion("future")
[13:13:57.202]                         }
[13:13:57.202]                         else {
[13:13:57.202]                           version <- NULL
[13:13:57.202]                         }
[13:13:57.202]                         if (!has_future || version < "1.8.0") {
[13:13:57.202]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:57.202]                             "", base::R.version$version.string), 
[13:13:57.202]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:57.202]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:57.202]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:57.202]                               "release", "version")], collapse = " "), 
[13:13:57.202]                             hostname = base::Sys.info()[["nodename"]])
[13:13:57.202]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:57.202]                             info)
[13:13:57.202]                           info <- base::paste(info, collapse = "; ")
[13:13:57.202]                           if (!has_future) {
[13:13:57.202]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:57.202]                               info)
[13:13:57.202]                           }
[13:13:57.202]                           else {
[13:13:57.202]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:57.202]                               info, version)
[13:13:57.202]                           }
[13:13:57.202]                           base::stop(msg)
[13:13:57.202]                         }
[13:13:57.202]                       })
[13:13:57.202]                     }
[13:13:57.202]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:57.202]                     base::options(mc.cores = 1L)
[13:13:57.202]                   }
[13:13:57.202]                   options(future.plan = NULL)
[13:13:57.202]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:57.202]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:57.202]                 }
[13:13:57.202]                 ...future.workdir <- getwd()
[13:13:57.202]             }
[13:13:57.202]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:57.202]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:57.202]         }
[13:13:57.202]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:57.202]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:57.202]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:57.202]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:57.202]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:57.202]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:57.202]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:57.202]             base::names(...future.oldOptions))
[13:13:57.202]     }
[13:13:57.202]     if (FALSE) {
[13:13:57.202]     }
[13:13:57.202]     else {
[13:13:57.202]         if (TRUE) {
[13:13:57.202]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:57.202]                 open = "w")
[13:13:57.202]         }
[13:13:57.202]         else {
[13:13:57.202]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:57.202]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:57.202]         }
[13:13:57.202]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:57.202]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:57.202]             base::sink(type = "output", split = FALSE)
[13:13:57.202]             base::close(...future.stdout)
[13:13:57.202]         }, add = TRUE)
[13:13:57.202]     }
[13:13:57.202]     ...future.frame <- base::sys.nframe()
[13:13:57.202]     ...future.conditions <- base::list()
[13:13:57.202]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:57.202]     if (FALSE) {
[13:13:57.202]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:57.202]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:57.202]     }
[13:13:57.202]     ...future.result <- base::tryCatch({
[13:13:57.202]         base::withCallingHandlers({
[13:13:57.202]             ...future.value <- base::withVisible(base::local({
[13:13:57.202]                 ...future.makeSendCondition <- local({
[13:13:57.202]                   sendCondition <- NULL
[13:13:57.202]                   function(frame = 1L) {
[13:13:57.202]                     if (is.function(sendCondition)) 
[13:13:57.202]                       return(sendCondition)
[13:13:57.202]                     ns <- getNamespace("parallel")
[13:13:57.202]                     if (exists("sendData", mode = "function", 
[13:13:57.202]                       envir = ns)) {
[13:13:57.202]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:57.202]                         envir = ns)
[13:13:57.202]                       envir <- sys.frame(frame)
[13:13:57.202]                       master <- NULL
[13:13:57.202]                       while (!identical(envir, .GlobalEnv) && 
[13:13:57.202]                         !identical(envir, emptyenv())) {
[13:13:57.202]                         if (exists("master", mode = "list", envir = envir, 
[13:13:57.202]                           inherits = FALSE)) {
[13:13:57.202]                           master <- get("master", mode = "list", 
[13:13:57.202]                             envir = envir, inherits = FALSE)
[13:13:57.202]                           if (inherits(master, c("SOCKnode", 
[13:13:57.202]                             "SOCK0node"))) {
[13:13:57.202]                             sendCondition <<- function(cond) {
[13:13:57.202]                               data <- list(type = "VALUE", value = cond, 
[13:13:57.202]                                 success = TRUE)
[13:13:57.202]                               parallel_sendData(master, data)
[13:13:57.202]                             }
[13:13:57.202]                             return(sendCondition)
[13:13:57.202]                           }
[13:13:57.202]                         }
[13:13:57.202]                         frame <- frame + 1L
[13:13:57.202]                         envir <- sys.frame(frame)
[13:13:57.202]                       }
[13:13:57.202]                     }
[13:13:57.202]                     sendCondition <<- function(cond) NULL
[13:13:57.202]                   }
[13:13:57.202]                 })
[13:13:57.202]                 withCallingHandlers({
[13:13:57.202]                   {
[13:13:57.202]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:57.202]                     if (!identical(...future.globals.maxSize.org, 
[13:13:57.202]                       ...future.globals.maxSize)) {
[13:13:57.202]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:57.202]                       on.exit(options(oopts), add = TRUE)
[13:13:57.202]                     }
[13:13:57.202]                     {
[13:13:57.202]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:57.202]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:57.202]                         USE.NAMES = FALSE)
[13:13:57.202]                       do.call(mapply, args = args)
[13:13:57.202]                     }
[13:13:57.202]                   }
[13:13:57.202]                 }, immediateCondition = function(cond) {
[13:13:57.202]                   sendCondition <- ...future.makeSendCondition()
[13:13:57.202]                   sendCondition(cond)
[13:13:57.202]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:57.202]                   {
[13:13:57.202]                     inherits <- base::inherits
[13:13:57.202]                     invokeRestart <- base::invokeRestart
[13:13:57.202]                     is.null <- base::is.null
[13:13:57.202]                     muffled <- FALSE
[13:13:57.202]                     if (inherits(cond, "message")) {
[13:13:57.202]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:57.202]                       if (muffled) 
[13:13:57.202]                         invokeRestart("muffleMessage")
[13:13:57.202]                     }
[13:13:57.202]                     else if (inherits(cond, "warning")) {
[13:13:57.202]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:57.202]                       if (muffled) 
[13:13:57.202]                         invokeRestart("muffleWarning")
[13:13:57.202]                     }
[13:13:57.202]                     else if (inherits(cond, "condition")) {
[13:13:57.202]                       if (!is.null(pattern)) {
[13:13:57.202]                         computeRestarts <- base::computeRestarts
[13:13:57.202]                         grepl <- base::grepl
[13:13:57.202]                         restarts <- computeRestarts(cond)
[13:13:57.202]                         for (restart in restarts) {
[13:13:57.202]                           name <- restart$name
[13:13:57.202]                           if (is.null(name)) 
[13:13:57.202]                             next
[13:13:57.202]                           if (!grepl(pattern, name)) 
[13:13:57.202]                             next
[13:13:57.202]                           invokeRestart(restart)
[13:13:57.202]                           muffled <- TRUE
[13:13:57.202]                           break
[13:13:57.202]                         }
[13:13:57.202]                       }
[13:13:57.202]                     }
[13:13:57.202]                     invisible(muffled)
[13:13:57.202]                   }
[13:13:57.202]                   muffleCondition(cond)
[13:13:57.202]                 })
[13:13:57.202]             }))
[13:13:57.202]             future::FutureResult(value = ...future.value$value, 
[13:13:57.202]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:57.202]                   ...future.rng), globalenv = if (FALSE) 
[13:13:57.202]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:57.202]                     ...future.globalenv.names))
[13:13:57.202]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:57.202]         }, condition = base::local({
[13:13:57.202]             c <- base::c
[13:13:57.202]             inherits <- base::inherits
[13:13:57.202]             invokeRestart <- base::invokeRestart
[13:13:57.202]             length <- base::length
[13:13:57.202]             list <- base::list
[13:13:57.202]             seq.int <- base::seq.int
[13:13:57.202]             signalCondition <- base::signalCondition
[13:13:57.202]             sys.calls <- base::sys.calls
[13:13:57.202]             `[[` <- base::`[[`
[13:13:57.202]             `+` <- base::`+`
[13:13:57.202]             `<<-` <- base::`<<-`
[13:13:57.202]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:57.202]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:57.202]                   3L)]
[13:13:57.202]             }
[13:13:57.202]             function(cond) {
[13:13:57.202]                 is_error <- inherits(cond, "error")
[13:13:57.202]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:57.202]                   NULL)
[13:13:57.202]                 if (is_error) {
[13:13:57.202]                   sessionInformation <- function() {
[13:13:57.202]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:57.202]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:57.202]                       search = base::search(), system = base::Sys.info())
[13:13:57.202]                   }
[13:13:57.202]                   ...future.conditions[[length(...future.conditions) + 
[13:13:57.202]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:57.202]                     cond$call), session = sessionInformation(), 
[13:13:57.202]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:57.202]                   signalCondition(cond)
[13:13:57.202]                 }
[13:13:57.202]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:57.202]                 "immediateCondition"))) {
[13:13:57.202]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:57.202]                   ...future.conditions[[length(...future.conditions) + 
[13:13:57.202]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:57.202]                   if (TRUE && !signal) {
[13:13:57.202]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:57.202]                     {
[13:13:57.202]                       inherits <- base::inherits
[13:13:57.202]                       invokeRestart <- base::invokeRestart
[13:13:57.202]                       is.null <- base::is.null
[13:13:57.202]                       muffled <- FALSE
[13:13:57.202]                       if (inherits(cond, "message")) {
[13:13:57.202]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:57.202]                         if (muffled) 
[13:13:57.202]                           invokeRestart("muffleMessage")
[13:13:57.202]                       }
[13:13:57.202]                       else if (inherits(cond, "warning")) {
[13:13:57.202]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:57.202]                         if (muffled) 
[13:13:57.202]                           invokeRestart("muffleWarning")
[13:13:57.202]                       }
[13:13:57.202]                       else if (inherits(cond, "condition")) {
[13:13:57.202]                         if (!is.null(pattern)) {
[13:13:57.202]                           computeRestarts <- base::computeRestarts
[13:13:57.202]                           grepl <- base::grepl
[13:13:57.202]                           restarts <- computeRestarts(cond)
[13:13:57.202]                           for (restart in restarts) {
[13:13:57.202]                             name <- restart$name
[13:13:57.202]                             if (is.null(name)) 
[13:13:57.202]                               next
[13:13:57.202]                             if (!grepl(pattern, name)) 
[13:13:57.202]                               next
[13:13:57.202]                             invokeRestart(restart)
[13:13:57.202]                             muffled <- TRUE
[13:13:57.202]                             break
[13:13:57.202]                           }
[13:13:57.202]                         }
[13:13:57.202]                       }
[13:13:57.202]                       invisible(muffled)
[13:13:57.202]                     }
[13:13:57.202]                     muffleCondition(cond, pattern = "^muffle")
[13:13:57.202]                   }
[13:13:57.202]                 }
[13:13:57.202]                 else {
[13:13:57.202]                   if (TRUE) {
[13:13:57.202]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:57.202]                     {
[13:13:57.202]                       inherits <- base::inherits
[13:13:57.202]                       invokeRestart <- base::invokeRestart
[13:13:57.202]                       is.null <- base::is.null
[13:13:57.202]                       muffled <- FALSE
[13:13:57.202]                       if (inherits(cond, "message")) {
[13:13:57.202]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:57.202]                         if (muffled) 
[13:13:57.202]                           invokeRestart("muffleMessage")
[13:13:57.202]                       }
[13:13:57.202]                       else if (inherits(cond, "warning")) {
[13:13:57.202]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:57.202]                         if (muffled) 
[13:13:57.202]                           invokeRestart("muffleWarning")
[13:13:57.202]                       }
[13:13:57.202]                       else if (inherits(cond, "condition")) {
[13:13:57.202]                         if (!is.null(pattern)) {
[13:13:57.202]                           computeRestarts <- base::computeRestarts
[13:13:57.202]                           grepl <- base::grepl
[13:13:57.202]                           restarts <- computeRestarts(cond)
[13:13:57.202]                           for (restart in restarts) {
[13:13:57.202]                             name <- restart$name
[13:13:57.202]                             if (is.null(name)) 
[13:13:57.202]                               next
[13:13:57.202]                             if (!grepl(pattern, name)) 
[13:13:57.202]                               next
[13:13:57.202]                             invokeRestart(restart)
[13:13:57.202]                             muffled <- TRUE
[13:13:57.202]                             break
[13:13:57.202]                           }
[13:13:57.202]                         }
[13:13:57.202]                       }
[13:13:57.202]                       invisible(muffled)
[13:13:57.202]                     }
[13:13:57.202]                     muffleCondition(cond, pattern = "^muffle")
[13:13:57.202]                   }
[13:13:57.202]                 }
[13:13:57.202]             }
[13:13:57.202]         }))
[13:13:57.202]     }, error = function(ex) {
[13:13:57.202]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:57.202]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:57.202]                 ...future.rng), started = ...future.startTime, 
[13:13:57.202]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:57.202]             version = "1.8"), class = "FutureResult")
[13:13:57.202]     }, finally = {
[13:13:57.202]         if (!identical(...future.workdir, getwd())) 
[13:13:57.202]             setwd(...future.workdir)
[13:13:57.202]         {
[13:13:57.202]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:57.202]                 ...future.oldOptions$nwarnings <- NULL
[13:13:57.202]             }
[13:13:57.202]             base::options(...future.oldOptions)
[13:13:57.202]             if (.Platform$OS.type == "windows") {
[13:13:57.202]                 old_names <- names(...future.oldEnvVars)
[13:13:57.202]                 envs <- base::Sys.getenv()
[13:13:57.202]                 names <- names(envs)
[13:13:57.202]                 common <- intersect(names, old_names)
[13:13:57.202]                 added <- setdiff(names, old_names)
[13:13:57.202]                 removed <- setdiff(old_names, names)
[13:13:57.202]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:57.202]                   envs[common]]
[13:13:57.202]                 NAMES <- toupper(changed)
[13:13:57.202]                 args <- list()
[13:13:57.202]                 for (kk in seq_along(NAMES)) {
[13:13:57.202]                   name <- changed[[kk]]
[13:13:57.202]                   NAME <- NAMES[[kk]]
[13:13:57.202]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:57.202]                     next
[13:13:57.202]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:57.202]                 }
[13:13:57.202]                 NAMES <- toupper(added)
[13:13:57.202]                 for (kk in seq_along(NAMES)) {
[13:13:57.202]                   name <- added[[kk]]
[13:13:57.202]                   NAME <- NAMES[[kk]]
[13:13:57.202]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:57.202]                     next
[13:13:57.202]                   args[[name]] <- ""
[13:13:57.202]                 }
[13:13:57.202]                 NAMES <- toupper(removed)
[13:13:57.202]                 for (kk in seq_along(NAMES)) {
[13:13:57.202]                   name <- removed[[kk]]
[13:13:57.202]                   NAME <- NAMES[[kk]]
[13:13:57.202]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:57.202]                     next
[13:13:57.202]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:57.202]                 }
[13:13:57.202]                 if (length(args) > 0) 
[13:13:57.202]                   base::do.call(base::Sys.setenv, args = args)
[13:13:57.202]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:57.202]             }
[13:13:57.202]             else {
[13:13:57.202]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:57.202]             }
[13:13:57.202]             {
[13:13:57.202]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:57.202]                   0L) {
[13:13:57.202]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:57.202]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:57.202]                   base::options(opts)
[13:13:57.202]                 }
[13:13:57.202]                 {
[13:13:57.202]                   {
[13:13:57.202]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:57.202]                     NULL
[13:13:57.202]                   }
[13:13:57.202]                   options(future.plan = NULL)
[13:13:57.202]                   if (is.na(NA_character_)) 
[13:13:57.202]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:57.202]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:57.202]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:57.202]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:57.202]                     envir = parent.frame()) 
[13:13:57.202]                   {
[13:13:57.202]                     if (is.function(workers)) 
[13:13:57.202]                       workers <- workers()
[13:13:57.202]                     workers <- structure(as.integer(workers), 
[13:13:57.202]                       class = class(workers))
[13:13:57.202]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:57.202]                       workers >= 1)
[13:13:57.202]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:57.202]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:57.202]                     }
[13:13:57.202]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:57.202]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:57.202]                       envir = envir)
[13:13:57.202]                     if (!future$lazy) 
[13:13:57.202]                       future <- run(future)
[13:13:57.202]                     invisible(future)
[13:13:57.202]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:57.202]                 }
[13:13:57.202]             }
[13:13:57.202]         }
[13:13:57.202]     })
[13:13:57.202]     if (TRUE) {
[13:13:57.202]         base::sink(type = "output", split = FALSE)
[13:13:57.202]         if (TRUE) {
[13:13:57.202]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:57.202]         }
[13:13:57.202]         else {
[13:13:57.202]             ...future.result["stdout"] <- base::list(NULL)
[13:13:57.202]         }
[13:13:57.202]         base::close(...future.stdout)
[13:13:57.202]         ...future.stdout <- NULL
[13:13:57.202]     }
[13:13:57.202]     ...future.result$conditions <- ...future.conditions
[13:13:57.202]     ...future.result$finished <- base::Sys.time()
[13:13:57.202]     ...future.result
[13:13:57.202] }
[13:13:57.207] Exporting 5 global objects (904 bytes) to cluster node #1 ...
[13:13:57.208] Exporting '...future.FUN' (848 bytes) to cluster node #1 ...
[13:13:57.208] Exporting '...future.FUN' (848 bytes) to cluster node #1 ... DONE
[13:13:57.208] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:57.209] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:57.209] Exporting '...future.elements_ii' (56 bytes) to cluster node #1 ...
[13:13:57.209] Exporting '...future.elements_ii' (56 bytes) to cluster node #1 ... DONE
[13:13:57.210] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:57.210] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:57.210] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:57.211] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:57.211] Exporting 5 global objects (904 bytes) to cluster node #1 ... DONE
[13:13:57.211] MultisessionFuture started
[13:13:57.212] - Launch lazy future ... done
[13:13:57.212] run() for 'MultisessionFuture' ... done
[13:13:57.212] Created future:
[13:13:57.228] receiveMessageFromWorker() for ClusterFuture ...
[13:13:57.228] - Validating connection of MultisessionFuture
[13:13:57.228] - received message: FutureResult
[13:13:57.228] - Received FutureResult
[13:13:57.229] - Erased future from FutureRegistry
[13:13:57.229] result() for ClusterFuture ...
[13:13:57.229] - result already collected: FutureResult
[13:13:57.229] result() for ClusterFuture ... done
[13:13:57.229] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:57.212] MultisessionFuture:
[13:13:57.212] Label: 'future_mapply-1'
[13:13:57.212] Expression:
[13:13:57.212] {
[13:13:57.212]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:57.212]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:57.212]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:57.212]         on.exit(options(oopts), add = TRUE)
[13:13:57.212]     }
[13:13:57.212]     {
[13:13:57.212]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:57.212]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:57.212]         do.call(mapply, args = args)
[13:13:57.212]     }
[13:13:57.212] }
[13:13:57.212] Lazy evaluation: FALSE
[13:13:57.212] Asynchronous evaluation: TRUE
[13:13:57.212] Local evaluation: TRUE
[13:13:57.212] Environment: R_GlobalEnv
[13:13:57.212] Capture standard output: TRUE
[13:13:57.212] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:57.212] Globals: 5 objects totaling 904 bytes (function '...future.FUN' of 848 bytes, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 56 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:57.212] Packages: <none>
[13:13:57.212] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:57.212] Resolved: TRUE
[13:13:57.212] Value: <not collected>
[13:13:57.212] Conditions captured: <none>
[13:13:57.212] Early signaling: FALSE
[13:13:57.212] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:57.212] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:57.230] Chunk #1 of 2 ... DONE
[13:13:57.230] Chunk #2 of 2 ...
[13:13:57.230]  - Finding globals in '...' for chunk #2 ...
[13:13:57.230] getGlobalsAndPackages() ...
[13:13:57.230] Searching for globals...
[13:13:57.231] 
[13:13:57.231] Searching for globals ... DONE
[13:13:57.231] - globals: [0] <none>
[13:13:57.231] getGlobalsAndPackages() ... DONE
[13:13:57.231]    + additional globals found: [n=0] 
[13:13:57.231]    + additional namespaces needed: [n=0] 
[13:13:57.232]  - Finding globals in '...' for chunk #2 ... DONE
[13:13:57.232]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:57.232]  - seeds: <none>
[13:13:57.232]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:57.232] getGlobalsAndPackages() ...
[13:13:57.232] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:57.233] Resolving globals: FALSE
[13:13:57.233] The total size of the 5 globals is 904 bytes (904 bytes)
[13:13:57.234] The total size of the 5 globals exported for future expression ('{; ...future.globals.maxSize.org <- getOption("future.globals.maxSize"); if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {; oopts <- options(future.globals.maxSize = ...future.globals.maxSize); on.exit(options(oopts), add = TRUE); }; ...; do.call(mapply, args = args); }; }') is 904 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (848 bytes of class 'function'), '...future.elements_ii' (56 bytes of class 'list') and 'MoreArgs' (0 bytes of class 'NULL')
[13:13:57.234] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:57.234] 
[13:13:57.234] getGlobalsAndPackages() ... DONE
[13:13:57.235] run() for 'Future' ...
[13:13:57.235] - state: 'created'
[13:13:57.235] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:57.249] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:57.249] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:57.249]   - Field: 'node'
[13:13:57.249]   - Field: 'label'
[13:13:57.250]   - Field: 'local'
[13:13:57.250]   - Field: 'owner'
[13:13:57.250]   - Field: 'envir'
[13:13:57.250]   - Field: 'workers'
[13:13:57.250]   - Field: 'packages'
[13:13:57.250]   - Field: 'gc'
[13:13:57.251]   - Field: 'conditions'
[13:13:57.251]   - Field: 'persistent'
[13:13:57.251]   - Field: 'expr'
[13:13:57.251]   - Field: 'uuid'
[13:13:57.251]   - Field: 'seed'
[13:13:57.251]   - Field: 'version'
[13:13:57.252]   - Field: 'result'
[13:13:57.252]   - Field: 'asynchronous'
[13:13:57.252]   - Field: 'calls'
[13:13:57.252]   - Field: 'globals'
[13:13:57.252]   - Field: 'stdout'
[13:13:57.253]   - Field: 'earlySignal'
[13:13:57.253]   - Field: 'lazy'
[13:13:57.253]   - Field: 'state'
[13:13:57.253] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:57.253] - Launch lazy future ...
[13:13:57.254] Packages needed by the future expression (n = 0): <none>
[13:13:57.254] Packages needed by future strategies (n = 0): <none>
[13:13:57.254] {
[13:13:57.254]     {
[13:13:57.254]         {
[13:13:57.254]             ...future.startTime <- base::Sys.time()
[13:13:57.254]             {
[13:13:57.254]                 {
[13:13:57.254]                   {
[13:13:57.254]                     {
[13:13:57.254]                       base::local({
[13:13:57.254]                         has_future <- base::requireNamespace("future", 
[13:13:57.254]                           quietly = TRUE)
[13:13:57.254]                         if (has_future) {
[13:13:57.254]                           ns <- base::getNamespace("future")
[13:13:57.254]                           version <- ns[[".package"]][["version"]]
[13:13:57.254]                           if (is.null(version)) 
[13:13:57.254]                             version <- utils::packageVersion("future")
[13:13:57.254]                         }
[13:13:57.254]                         else {
[13:13:57.254]                           version <- NULL
[13:13:57.254]                         }
[13:13:57.254]                         if (!has_future || version < "1.8.0") {
[13:13:57.254]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:57.254]                             "", base::R.version$version.string), 
[13:13:57.254]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:57.254]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:57.254]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:57.254]                               "release", "version")], collapse = " "), 
[13:13:57.254]                             hostname = base::Sys.info()[["nodename"]])
[13:13:57.254]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:57.254]                             info)
[13:13:57.254]                           info <- base::paste(info, collapse = "; ")
[13:13:57.254]                           if (!has_future) {
[13:13:57.254]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:57.254]                               info)
[13:13:57.254]                           }
[13:13:57.254]                           else {
[13:13:57.254]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:57.254]                               info, version)
[13:13:57.254]                           }
[13:13:57.254]                           base::stop(msg)
[13:13:57.254]                         }
[13:13:57.254]                       })
[13:13:57.254]                     }
[13:13:57.254]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:57.254]                     base::options(mc.cores = 1L)
[13:13:57.254]                   }
[13:13:57.254]                   options(future.plan = NULL)
[13:13:57.254]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:57.254]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:57.254]                 }
[13:13:57.254]                 ...future.workdir <- getwd()
[13:13:57.254]             }
[13:13:57.254]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:57.254]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:57.254]         }
[13:13:57.254]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:57.254]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:57.254]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:57.254]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:57.254]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:57.254]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:57.254]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:57.254]             base::names(...future.oldOptions))
[13:13:57.254]     }
[13:13:57.254]     if (FALSE) {
[13:13:57.254]     }
[13:13:57.254]     else {
[13:13:57.254]         if (TRUE) {
[13:13:57.254]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:57.254]                 open = "w")
[13:13:57.254]         }
[13:13:57.254]         else {
[13:13:57.254]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:57.254]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:57.254]         }
[13:13:57.254]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:57.254]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:57.254]             base::sink(type = "output", split = FALSE)
[13:13:57.254]             base::close(...future.stdout)
[13:13:57.254]         }, add = TRUE)
[13:13:57.254]     }
[13:13:57.254]     ...future.frame <- base::sys.nframe()
[13:13:57.254]     ...future.conditions <- base::list()
[13:13:57.254]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:57.254]     if (FALSE) {
[13:13:57.254]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:57.254]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:57.254]     }
[13:13:57.254]     ...future.result <- base::tryCatch({
[13:13:57.254]         base::withCallingHandlers({
[13:13:57.254]             ...future.value <- base::withVisible(base::local({
[13:13:57.254]                 ...future.makeSendCondition <- local({
[13:13:57.254]                   sendCondition <- NULL
[13:13:57.254]                   function(frame = 1L) {
[13:13:57.254]                     if (is.function(sendCondition)) 
[13:13:57.254]                       return(sendCondition)
[13:13:57.254]                     ns <- getNamespace("parallel")
[13:13:57.254]                     if (exists("sendData", mode = "function", 
[13:13:57.254]                       envir = ns)) {
[13:13:57.254]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:57.254]                         envir = ns)
[13:13:57.254]                       envir <- sys.frame(frame)
[13:13:57.254]                       master <- NULL
[13:13:57.254]                       while (!identical(envir, .GlobalEnv) && 
[13:13:57.254]                         !identical(envir, emptyenv())) {
[13:13:57.254]                         if (exists("master", mode = "list", envir = envir, 
[13:13:57.254]                           inherits = FALSE)) {
[13:13:57.254]                           master <- get("master", mode = "list", 
[13:13:57.254]                             envir = envir, inherits = FALSE)
[13:13:57.254]                           if (inherits(master, c("SOCKnode", 
[13:13:57.254]                             "SOCK0node"))) {
[13:13:57.254]                             sendCondition <<- function(cond) {
[13:13:57.254]                               data <- list(type = "VALUE", value = cond, 
[13:13:57.254]                                 success = TRUE)
[13:13:57.254]                               parallel_sendData(master, data)
[13:13:57.254]                             }
[13:13:57.254]                             return(sendCondition)
[13:13:57.254]                           }
[13:13:57.254]                         }
[13:13:57.254]                         frame <- frame + 1L
[13:13:57.254]                         envir <- sys.frame(frame)
[13:13:57.254]                       }
[13:13:57.254]                     }
[13:13:57.254]                     sendCondition <<- function(cond) NULL
[13:13:57.254]                   }
[13:13:57.254]                 })
[13:13:57.254]                 withCallingHandlers({
[13:13:57.254]                   {
[13:13:57.254]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:57.254]                     if (!identical(...future.globals.maxSize.org, 
[13:13:57.254]                       ...future.globals.maxSize)) {
[13:13:57.254]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:57.254]                       on.exit(options(oopts), add = TRUE)
[13:13:57.254]                     }
[13:13:57.254]                     {
[13:13:57.254]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:57.254]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[13:13:57.254]                         USE.NAMES = FALSE)
[13:13:57.254]                       do.call(mapply, args = args)
[13:13:57.254]                     }
[13:13:57.254]                   }
[13:13:57.254]                 }, immediateCondition = function(cond) {
[13:13:57.254]                   sendCondition <- ...future.makeSendCondition()
[13:13:57.254]                   sendCondition(cond)
[13:13:57.254]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:57.254]                   {
[13:13:57.254]                     inherits <- base::inherits
[13:13:57.254]                     invokeRestart <- base::invokeRestart
[13:13:57.254]                     is.null <- base::is.null
[13:13:57.254]                     muffled <- FALSE
[13:13:57.254]                     if (inherits(cond, "message")) {
[13:13:57.254]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:57.254]                       if (muffled) 
[13:13:57.254]                         invokeRestart("muffleMessage")
[13:13:57.254]                     }
[13:13:57.254]                     else if (inherits(cond, "warning")) {
[13:13:57.254]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:57.254]                       if (muffled) 
[13:13:57.254]                         invokeRestart("muffleWarning")
[13:13:57.254]                     }
[13:13:57.254]                     else if (inherits(cond, "condition")) {
[13:13:57.254]                       if (!is.null(pattern)) {
[13:13:57.254]                         computeRestarts <- base::computeRestarts
[13:13:57.254]                         grepl <- base::grepl
[13:13:57.254]                         restarts <- computeRestarts(cond)
[13:13:57.254]                         for (restart in restarts) {
[13:13:57.254]                           name <- restart$name
[13:13:57.254]                           if (is.null(name)) 
[13:13:57.254]                             next
[13:13:57.254]                           if (!grepl(pattern, name)) 
[13:13:57.254]                             next
[13:13:57.254]                           invokeRestart(restart)
[13:13:57.254]                           muffled <- TRUE
[13:13:57.254]                           break
[13:13:57.254]                         }
[13:13:57.254]                       }
[13:13:57.254]                     }
[13:13:57.254]                     invisible(muffled)
[13:13:57.254]                   }
[13:13:57.254]                   muffleCondition(cond)
[13:13:57.254]                 })
[13:13:57.254]             }))
[13:13:57.254]             future::FutureResult(value = ...future.value$value, 
[13:13:57.254]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:57.254]                   ...future.rng), globalenv = if (FALSE) 
[13:13:57.254]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:57.254]                     ...future.globalenv.names))
[13:13:57.254]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:57.254]         }, condition = base::local({
[13:13:57.254]             c <- base::c
[13:13:57.254]             inherits <- base::inherits
[13:13:57.254]             invokeRestart <- base::invokeRestart
[13:13:57.254]             length <- base::length
[13:13:57.254]             list <- base::list
[13:13:57.254]             seq.int <- base::seq.int
[13:13:57.254]             signalCondition <- base::signalCondition
[13:13:57.254]             sys.calls <- base::sys.calls
[13:13:57.254]             `[[` <- base::`[[`
[13:13:57.254]             `+` <- base::`+`
[13:13:57.254]             `<<-` <- base::`<<-`
[13:13:57.254]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:57.254]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:57.254]                   3L)]
[13:13:57.254]             }
[13:13:57.254]             function(cond) {
[13:13:57.254]                 is_error <- inherits(cond, "error")
[13:13:57.254]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:57.254]                   NULL)
[13:13:57.254]                 if (is_error) {
[13:13:57.254]                   sessionInformation <- function() {
[13:13:57.254]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:57.254]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:57.254]                       search = base::search(), system = base::Sys.info())
[13:13:57.254]                   }
[13:13:57.254]                   ...future.conditions[[length(...future.conditions) + 
[13:13:57.254]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:57.254]                     cond$call), session = sessionInformation(), 
[13:13:57.254]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:57.254]                   signalCondition(cond)
[13:13:57.254]                 }
[13:13:57.254]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:57.254]                 "immediateCondition"))) {
[13:13:57.254]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:57.254]                   ...future.conditions[[length(...future.conditions) + 
[13:13:57.254]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:57.254]                   if (TRUE && !signal) {
[13:13:57.254]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:57.254]                     {
[13:13:57.254]                       inherits <- base::inherits
[13:13:57.254]                       invokeRestart <- base::invokeRestart
[13:13:57.254]                       is.null <- base::is.null
[13:13:57.254]                       muffled <- FALSE
[13:13:57.254]                       if (inherits(cond, "message")) {
[13:13:57.254]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:57.254]                         if (muffled) 
[13:13:57.254]                           invokeRestart("muffleMessage")
[13:13:57.254]                       }
[13:13:57.254]                       else if (inherits(cond, "warning")) {
[13:13:57.254]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:57.254]                         if (muffled) 
[13:13:57.254]                           invokeRestart("muffleWarning")
[13:13:57.254]                       }
[13:13:57.254]                       else if (inherits(cond, "condition")) {
[13:13:57.254]                         if (!is.null(pattern)) {
[13:13:57.254]                           computeRestarts <- base::computeRestarts
[13:13:57.254]                           grepl <- base::grepl
[13:13:57.254]                           restarts <- computeRestarts(cond)
[13:13:57.254]                           for (restart in restarts) {
[13:13:57.254]                             name <- restart$name
[13:13:57.254]                             if (is.null(name)) 
[13:13:57.254]                               next
[13:13:57.254]                             if (!grepl(pattern, name)) 
[13:13:57.254]                               next
[13:13:57.254]                             invokeRestart(restart)
[13:13:57.254]                             muffled <- TRUE
[13:13:57.254]                             break
[13:13:57.254]                           }
[13:13:57.254]                         }
[13:13:57.254]                       }
[13:13:57.254]                       invisible(muffled)
[13:13:57.254]                     }
[13:13:57.254]                     muffleCondition(cond, pattern = "^muffle")
[13:13:57.254]                   }
[13:13:57.254]                 }
[13:13:57.254]                 else {
[13:13:57.254]                   if (TRUE) {
[13:13:57.254]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:57.254]                     {
[13:13:57.254]                       inherits <- base::inherits
[13:13:57.254]                       invokeRestart <- base::invokeRestart
[13:13:57.254]                       is.null <- base::is.null
[13:13:57.254]                       muffled <- FALSE
[13:13:57.254]                       if (inherits(cond, "message")) {
[13:13:57.254]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:57.254]                         if (muffled) 
[13:13:57.254]                           invokeRestart("muffleMessage")
[13:13:57.254]                       }
[13:13:57.254]                       else if (inherits(cond, "warning")) {
[13:13:57.254]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:57.254]                         if (muffled) 
[13:13:57.254]                           invokeRestart("muffleWarning")
[13:13:57.254]                       }
[13:13:57.254]                       else if (inherits(cond, "condition")) {
[13:13:57.254]                         if (!is.null(pattern)) {
[13:13:57.254]                           computeRestarts <- base::computeRestarts
[13:13:57.254]                           grepl <- base::grepl
[13:13:57.254]                           restarts <- computeRestarts(cond)
[13:13:57.254]                           for (restart in restarts) {
[13:13:57.254]                             name <- restart$name
[13:13:57.254]                             if (is.null(name)) 
[13:13:57.254]                               next
[13:13:57.254]                             if (!grepl(pattern, name)) 
[13:13:57.254]                               next
[13:13:57.254]                             invokeRestart(restart)
[13:13:57.254]                             muffled <- TRUE
[13:13:57.254]                             break
[13:13:57.254]                           }
[13:13:57.254]                         }
[13:13:57.254]                       }
[13:13:57.254]                       invisible(muffled)
[13:13:57.254]                     }
[13:13:57.254]                     muffleCondition(cond, pattern = "^muffle")
[13:13:57.254]                   }
[13:13:57.254]                 }
[13:13:57.254]             }
[13:13:57.254]         }))
[13:13:57.254]     }, error = function(ex) {
[13:13:57.254]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:57.254]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:57.254]                 ...future.rng), started = ...future.startTime, 
[13:13:57.254]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:57.254]             version = "1.8"), class = "FutureResult")
[13:13:57.254]     }, finally = {
[13:13:57.254]         if (!identical(...future.workdir, getwd())) 
[13:13:57.254]             setwd(...future.workdir)
[13:13:57.254]         {
[13:13:57.254]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:57.254]                 ...future.oldOptions$nwarnings <- NULL
[13:13:57.254]             }
[13:13:57.254]             base::options(...future.oldOptions)
[13:13:57.254]             if (.Platform$OS.type == "windows") {
[13:13:57.254]                 old_names <- names(...future.oldEnvVars)
[13:13:57.254]                 envs <- base::Sys.getenv()
[13:13:57.254]                 names <- names(envs)
[13:13:57.254]                 common <- intersect(names, old_names)
[13:13:57.254]                 added <- setdiff(names, old_names)
[13:13:57.254]                 removed <- setdiff(old_names, names)
[13:13:57.254]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:57.254]                   envs[common]]
[13:13:57.254]                 NAMES <- toupper(changed)
[13:13:57.254]                 args <- list()
[13:13:57.254]                 for (kk in seq_along(NAMES)) {
[13:13:57.254]                   name <- changed[[kk]]
[13:13:57.254]                   NAME <- NAMES[[kk]]
[13:13:57.254]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:57.254]                     next
[13:13:57.254]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:57.254]                 }
[13:13:57.254]                 NAMES <- toupper(added)
[13:13:57.254]                 for (kk in seq_along(NAMES)) {
[13:13:57.254]                   name <- added[[kk]]
[13:13:57.254]                   NAME <- NAMES[[kk]]
[13:13:57.254]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:57.254]                     next
[13:13:57.254]                   args[[name]] <- ""
[13:13:57.254]                 }
[13:13:57.254]                 NAMES <- toupper(removed)
[13:13:57.254]                 for (kk in seq_along(NAMES)) {
[13:13:57.254]                   name <- removed[[kk]]
[13:13:57.254]                   NAME <- NAMES[[kk]]
[13:13:57.254]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:57.254]                     next
[13:13:57.254]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:57.254]                 }
[13:13:57.254]                 if (length(args) > 0) 
[13:13:57.254]                   base::do.call(base::Sys.setenv, args = args)
[13:13:57.254]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:57.254]             }
[13:13:57.254]             else {
[13:13:57.254]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:57.254]             }
[13:13:57.254]             {
[13:13:57.254]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:57.254]                   0L) {
[13:13:57.254]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:57.254]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:57.254]                   base::options(opts)
[13:13:57.254]                 }
[13:13:57.254]                 {
[13:13:57.254]                   {
[13:13:57.254]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:57.254]                     NULL
[13:13:57.254]                   }
[13:13:57.254]                   options(future.plan = NULL)
[13:13:57.254]                   if (is.na(NA_character_)) 
[13:13:57.254]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:57.254]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:57.254]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:57.254]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:57.254]                     envir = parent.frame()) 
[13:13:57.254]                   {
[13:13:57.254]                     if (is.function(workers)) 
[13:13:57.254]                       workers <- workers()
[13:13:57.254]                     workers <- structure(as.integer(workers), 
[13:13:57.254]                       class = class(workers))
[13:13:57.254]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:57.254]                       workers >= 1)
[13:13:57.254]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:57.254]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:57.254]                     }
[13:13:57.254]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:57.254]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:57.254]                       envir = envir)
[13:13:57.254]                     if (!future$lazy) 
[13:13:57.254]                       future <- run(future)
[13:13:57.254]                     invisible(future)
[13:13:57.254]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:57.254]                 }
[13:13:57.254]             }
[13:13:57.254]         }
[13:13:57.254]     })
[13:13:57.254]     if (TRUE) {
[13:13:57.254]         base::sink(type = "output", split = FALSE)
[13:13:57.254]         if (TRUE) {
[13:13:57.254]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:57.254]         }
[13:13:57.254]         else {
[13:13:57.254]             ...future.result["stdout"] <- base::list(NULL)
[13:13:57.254]         }
[13:13:57.254]         base::close(...future.stdout)
[13:13:57.254]         ...future.stdout <- NULL
[13:13:57.254]     }
[13:13:57.254]     ...future.result$conditions <- ...future.conditions
[13:13:57.254]     ...future.result$finished <- base::Sys.time()
[13:13:57.254]     ...future.result
[13:13:57.254] }
[13:13:57.260] Exporting 5 global objects (904 bytes) to cluster node #1 ...
[13:13:57.260] Exporting '...future.FUN' (848 bytes) to cluster node #1 ...
[13:13:57.260] Exporting '...future.FUN' (848 bytes) to cluster node #1 ... DONE
[13:13:57.261] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ...
[13:13:57.261] Exporting 'MoreArgs' (0 bytes) to cluster node #1 ... DONE
[13:13:57.261] Exporting '...future.elements_ii' (56 bytes) to cluster node #1 ...
[13:13:57.262] Exporting '...future.elements_ii' (56 bytes) to cluster node #1 ... DONE
[13:13:57.262] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ...
[13:13:57.262] Exporting '...future.seeds_ii' (0 bytes) to cluster node #1 ... DONE
[13:13:57.262] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:57.263] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:57.263] Exporting 5 global objects (904 bytes) to cluster node #1 ... DONE
[13:13:57.264] MultisessionFuture started
[13:13:57.264] - Launch lazy future ... done
[13:13:57.264] run() for 'MultisessionFuture' ... done
[13:13:57.264] Created future:
[13:13:57.280] receiveMessageFromWorker() for ClusterFuture ...
[13:13:57.280] - Validating connection of MultisessionFuture
[13:13:57.280] - received message: FutureResult
[13:13:57.280] - Received FutureResult
[13:13:57.281] - Erased future from FutureRegistry
[13:13:57.281] result() for ClusterFuture ...
[13:13:57.281] - result already collected: FutureResult
[13:13:57.281] result() for ClusterFuture ... done
[13:13:57.281] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:57.264] MultisessionFuture:
[13:13:57.264] Label: 'future_mapply-2'
[13:13:57.264] Expression:
[13:13:57.264] {
[13:13:57.264]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:57.264]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:57.264]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:57.264]         on.exit(options(oopts), add = TRUE)
[13:13:57.264]     }
[13:13:57.264]     {
[13:13:57.264]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[13:13:57.264]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[13:13:57.264]         do.call(mapply, args = args)
[13:13:57.264]     }
[13:13:57.264] }
[13:13:57.264] Lazy evaluation: FALSE
[13:13:57.264] Asynchronous evaluation: TRUE
[13:13:57.264] Local evaluation: TRUE
[13:13:57.264] Environment: R_GlobalEnv
[13:13:57.264] Capture standard output: TRUE
[13:13:57.264] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:57.264] Globals: 5 objects totaling 904 bytes (function '...future.FUN' of 848 bytes, NULL 'MoreArgs' of 0 bytes, list '...future.elements_ii' of 56 bytes, NULL '...future.seeds_ii' of 0 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:57.264] Packages: <none>
[13:13:57.264] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[13:13:57.264] Resolved: TRUE
[13:13:57.264] Value: <not collected>
[13:13:57.264] Conditions captured: <none>
[13:13:57.264] Early signaling: FALSE
[13:13:57.264] Owner process: e68164d2-bb33-2c97-50c6-7230dcf9053e
[13:13:57.264] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:57.282] Chunk #2 of 2 ... DONE
[13:13:57.282] Launching 2 futures (chunks) ... DONE
[13:13:57.282] Resolving 2 futures (chunks) ...
[13:13:57.282] resolve() on list ...
[13:13:57.282]  recursive: 0
[13:13:57.282]  length: 2
[13:13:57.283] 
[13:13:57.283] Future #1
[13:13:57.283] result() for ClusterFuture ...
[13:13:57.283] - result already collected: FutureResult
[13:13:57.283] result() for ClusterFuture ... done
[13:13:57.283] result() for ClusterFuture ...
[13:13:57.284] - result already collected: FutureResult
[13:13:57.284] result() for ClusterFuture ... done
[13:13:57.284] signalConditionsASAP(MultisessionFuture, pos=1) ...
[13:13:57.284] - nx: 2
[13:13:57.284] - relay: TRUE
[13:13:57.284] - stdout: TRUE
[13:13:57.284] - signal: TRUE
[13:13:57.285] - resignal: FALSE
[13:13:57.285] - force: TRUE
[13:13:57.285] - relayed: [n=2] FALSE, FALSE
[13:13:57.285] - queued futures: [n=2] FALSE, FALSE
[13:13:57.285]  - until=1
[13:13:57.285]  - relaying element #1
[13:13:57.286] result() for ClusterFuture ...
[13:13:57.286] - result already collected: FutureResult
[13:13:57.286] result() for ClusterFuture ... done
[13:13:57.286] result() for ClusterFuture ...
[13:13:57.286] - result already collected: FutureResult
[13:13:57.286] result() for ClusterFuture ... done
[13:13:57.287] result() for ClusterFuture ...
[13:13:57.287] - result already collected: FutureResult
[13:13:57.287] result() for ClusterFuture ... done
[13:13:57.287] result() for ClusterFuture ...
[13:13:57.287] - result already collected: FutureResult
[13:13:57.287] result() for ClusterFuture ... done
[13:13:57.288] - relayed: [n=2] TRUE, FALSE
[13:13:57.288] - queued futures: [n=2] TRUE, FALSE
[13:13:57.288] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[13:13:57.288]  length: 1 (resolved future 1)
[13:13:57.288] Future #2
[13:13:57.288] result() for ClusterFuture ...
[13:13:57.289] - result already collected: FutureResult
[13:13:57.289] result() for ClusterFuture ... done
[13:13:57.289] result() for ClusterFuture ...
[13:13:57.289] - result already collected: FutureResult
[13:13:57.289] result() for ClusterFuture ... done
[13:13:57.289] signalConditionsASAP(MultisessionFuture, pos=2) ...
[13:13:57.289] - nx: 2
[13:13:57.290] - relay: TRUE
[13:13:57.290] - stdout: TRUE
[13:13:57.290] - signal: TRUE
[13:13:57.290] - resignal: FALSE
[13:13:57.290] - force: TRUE
[13:13:57.290] - relayed: [n=2] TRUE, FALSE
[13:13:57.291] - queued futures: [n=2] TRUE, FALSE
[13:13:57.291]  - until=2
[13:13:57.291]  - relaying element #2
[13:13:57.291] result() for ClusterFuture ...
[13:13:57.291] - result already collected: FutureResult
[13:13:57.291] result() for ClusterFuture ... done
[13:13:57.291] result() for ClusterFuture ...
[13:13:57.292] - result already collected: FutureResult
[13:13:57.292] result() for ClusterFuture ... done
[13:13:57.292] result() for ClusterFuture ...
[13:13:57.292] - result already collected: FutureResult
[13:13:57.292] result() for ClusterFuture ... done
[13:13:57.292] result() for ClusterFuture ...
[13:13:57.293] - result already collected: FutureResult
[13:13:57.293] result() for ClusterFuture ... done
[13:13:57.293] - relayed: [n=2] TRUE, TRUE
[13:13:57.293] - queued futures: [n=2] TRUE, TRUE
[13:13:57.293] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[13:13:57.293]  length: 0 (resolved future 2)
[13:13:57.294] Relaying remaining futures
[13:13:57.294] signalConditionsASAP(NULL, pos=0) ...
[13:13:57.294] - nx: 2
[13:13:57.294] - relay: TRUE
[13:13:57.294] - stdout: TRUE
[13:13:57.294] - signal: TRUE
[13:13:57.294] - resignal: FALSE
[13:13:57.295] - force: TRUE
[13:13:57.295] - relayed: [n=2] TRUE, TRUE
[13:13:57.295] - queued futures: [n=2] TRUE, TRUE
 - flush all
[13:13:57.295] - relayed: [n=2] TRUE, TRUE
[13:13:57.295] - queued futures: [n=2] TRUE, TRUE
[13:13:57.296] signalConditionsASAP(NULL, pos=0) ... done
[13:13:57.296] resolve() on list ... DONE
[13:13:57.296] result() for ClusterFuture ...
[13:13:57.296] - result already collected: FutureResult
[13:13:57.296] result() for ClusterFuture ... done
[13:13:57.296] result() for ClusterFuture ...
[13:13:57.296] - result already collected: FutureResult
[13:13:57.297] result() for ClusterFuture ... done
[13:13:57.297] result() for ClusterFuture ...
[13:13:57.297] - result already collected: FutureResult
[13:13:57.297] result() for ClusterFuture ... done
[13:13:57.297] result() for ClusterFuture ...
[13:13:57.297] - result already collected: FutureResult
[13:13:57.298] result() for ClusterFuture ... done
[13:13:57.298]  - Number of value chunks collected: 2
[13:13:57.298] Resolving 2 futures (chunks) ... DONE
[13:13:57.298] Reducing values from 2 chunks ...
[13:13:57.298]  - Number of values collected after concatenation: 2
[13:13:57.298]  - Number of values expected: 2
[13:13:57.299] Reducing values from 2 chunks ... DONE
[13:13:57.299] future_mapply() ... DONE
[13:13:57.299] plan(): Setting new future strategy stack:
[13:13:57.299] List of future strategies:
[13:13:57.299] 1. sequential:
[13:13:57.299]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:57.299]    - tweaked: FALSE
[13:13:57.299]    - call: plan(sequential)
[13:13:57.300] plan(): nbrOfWorkers() = 1
*** strategy = 'multisession' ... done
> 
> message("- Empty input [non parallel] ...")
- Empty input [non parallel] ...
> y0 <- mapply(search)
> y1 <- future_mapply(search)
> stopifnot(identical(y1, y0))
> 
> y0 <- mapply(list, integer(0L))
> y1 <- future_mapply(list, integer(0L))
> stopifnot(identical(y1, y0))
> 
> message("*** future_mapply() - special cases ...")
*** future_mapply() - special cases ...
> 
> X <- list()
> names(X) <- character(0L)
> 
> y <- future_mapply(FUN = identity, X)
> stopifnot(length(y) == 0L, !is.null(names(y)), identical(y, X))
> 
> y <- future_mapply(FUN = identity, X, X)
> stopifnot(length(y) == 0L, !is.null(names(y)), identical(y, X))
> 
> message("*** future_mapply() - special cases ... DONE")
*** future_mapply() - special cases ... DONE
> 
> message("*** future_mapply() ... DONE")
*** future_mapply() ... DONE
> 
> source("incl/end.R")
[13:13:57.302] plan(): Setting new future strategy stack:
[13:13:57.302] List of future strategies:
[13:13:57.302] 1. FutureStrategy:
[13:13:57.302]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:57.302]    - tweaked: FALSE
[13:13:57.302]    - call: future::plan(oplan)
[13:13:57.303] plan(): nbrOfWorkers() = 1
> 
> proc.time()
   user  system elapsed 
   4.25    0.21    5.93